![]() |
GNU PROLOG with UTF8 support
|
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <ctype.h>
#include <setjmp.h>
#include <locale.h>
#include "wam_parser.h"
#include "wam_protos.h"
#include "../EnginePl/pl_long.h"
#include "../EnginePl/pl_wchar.h"
Data Structures | |
struct | ParseInf |
Macros | |
#define | MAX_FCT_ARITY 10 |
#define | MAX_LINE_LEN 65536 |
#define | MAX_STR_LEN 32768 |
#define | MAX_ARGS 65536 /* for big swith_on_... */ |
Functions | |
static void | Parser (void) |
static int | Parse_And_Treat_Decl_Or_Inst (ParseInf *in) |
static void | Read_Argument (ArgTyp arg_type, ArgVal **top) |
static void | Read_Token (int what) |
static int | Scanner (int complex_atom) |
static char | Peek_Char (int skip_spaces) |
int | Parse_Wam_File (char *file_name_in, int comment) |
void | Syntax_Error (char *s) |
Variables | |
ParseInf | decl [] |
ParseInf | inst [] |
ArgVal | arg [MAX_ARGS] |
jmp_buf | jumper |
int | keep_source_lines |
FILE * | file_in |
int | cur_line_no |
char | cur_line_str [MAX_LINE_LEN] |
char * | cur_line_p |
char * | beg_last_token |
char | str_val [MAX_STR_LEN] |
PlLong | int_val |
double | dbl_val |
#define MAX_ARGS 65536 /* for big swith_on_... */ |
#define MAX_FCT_ARITY 10 |
#define MAX_LINE_LEN 65536 |
#define MAX_STR_LEN 32768 |
|
static |
int Parse_Wam_File | ( | char * | file_name_in, |
int | comment | ||
) |
|
static |
|
static |
|
static |
|
static |
void Syntax_Error | ( | char * | s | ) |
char* beg_last_token |
int cur_line_no |
char* cur_line_p |
char cur_line_str[MAX_LINE_LEN] |
double dbl_val |
ParseInf decl[] |
FILE* file_in |
ParseInf inst[] |
PlLong int_val |
jmp_buf jumper |
int keep_source_lines |
char str_val[MAX_STR_LEN] |