![]() |
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] |
1.8.11