![]() |
GNU PROLOG with UTF8 support
|
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <ctype.h>
#include "gp_config.h"
#include "machine.h"
Data Structures | |
struct | UsedMachRegInf |
struct | RegInf |
struct | TagInf |
struct | StackInf |
Macros | |
#define | STR_LENGTH 512 |
#define | FILE_WAM_ARCHI_DEF "wam_archi.def" |
#define | FILE_WAM_ARCHI_H "wam_archi.h" |
#define | FILE_WAM_REGS_H "wam_regs.h" |
#define | FILE_WAM_STACKS_H "wam_stacks.h" |
#define | FILE_GPROLOG_CST_H "gprolog_cst.h" |
#define | Mk_Tag_Mask(x) ((((PlULong) (x) >> tag_size_low) << (value_size + tag_size_low)) | ((x) & ((1 << tag_size_low) - 1))) |
Enumerations | |
enum | TypTag { SHORT_UNS, LONG_INT, ADDRESS } |
Functions | |
void | Generate_Archi (void) |
void | Write_C_Compiler_Info (void) |
void | Write_GProlog_Cst (void) |
char * | Read_Identifier (char *s, int fail_if_error, char **end) |
char * | Read_String (char *s, char **end) |
int | Pl_Read_Integer (char *s, char **end) |
void | Generate_Regs (FILE *f, FILE *g) |
void | Generate_Tags (FILE *f, FILE *g) |
void | Generate_Stacks (FILE *f, FILE *g) |
void | Pl_Fatal_Error (char *format,...) |
int | main (void) |
Variables | |
UsedMachRegInf | used_mach_reg [256] |
int | nb_of_used_mach_regs |
char | save_str [STR_LENGTH] |
FILE * | fw_r |
FILE * | fw_s |
FILE * | fg_c |
#define FILE_GPROLOG_CST_H "gprolog_cst.h" |
#define FILE_WAM_ARCHI_DEF "wam_archi.def" |
#define FILE_WAM_ARCHI_H "wam_archi.h" |
#define FILE_WAM_REGS_H "wam_regs.h" |
#define FILE_WAM_STACKS_H "wam_stacks.h" |
#define Mk_Tag_Mask | ( | x | ) | ((((PlULong) (x) >> tag_size_low) << (value_size + tag_size_low)) | ((x) & ((1 << tag_size_low) - 1))) |
#define STR_LENGTH 512 |
enum TypTag |
void Generate_Archi | ( | void | ) |
void Generate_Regs | ( | FILE * | f, |
FILE * | g | ||
) |
void Generate_Stacks | ( | FILE * | f, |
FILE * | g | ||
) |
void Generate_Tags | ( | FILE * | f, |
FILE * | g | ||
) |
int main | ( | void | ) |
void Pl_Fatal_Error | ( | char * | format, |
... | |||
) |
int Pl_Read_Integer | ( | char * | s, |
char ** | end | ||
) |
char * Read_Identifier | ( | char * | s, |
int | fail_if_error, | ||
char ** | end | ||
) |
char * Read_String | ( | char * | s, |
char ** | end | ||
) |
void Write_C_Compiler_Info | ( | void | ) |
void Write_GProlog_Cst | ( | void | ) |
FILE* fg_c |
FILE* fw_r |
FILE* fw_s |
int nb_of_used_mach_regs |
char save_str[STR_LENGTH] |
UsedMachRegInf used_mach_reg[256] |