/* * Copyright (C) 2012 * Dale Weiler * * Permission is hereby granted, free of charge, to any person obtaining a copy of * this software and associated documentation files (the "Software"), to deal in * the Software without restriction, including without limitation the rights to * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies * of the Software, and to permit persons to whom the Software is furnished to do * so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in all * copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE * SOFTWARE. */ #ifndef GMQCC_HDR #define GMQCC_HDR #include #include #include #include #include /* * stdint.h and inttypes.h -less subset * for systems that don't have it, which we must * assume is all systems. (int8_t not required) */ #if CHAR_MIN == -128 typedef unsigned char uint8_t; /* same as below */ #elif SCHAR_MIN == -128 typedef unsigned char uint8_t; /* same as above */ #endif #if SHRT_MAX == 0x7FFF typedef short int16_t; typedef unsigned short uint16_t; #elif INT_MAX == 0x7FFF typedef int int16_t; typedef unsigned int uint16_t; #endif #if INT_MAX == 0x7FFFFFFF typedef int int32_t; typedef unsigned int uint32_t; #elif LONG_MAX == 0x7FFFFFFF typedef long int32_t; typedef unsigned long uint32_t; #endif #ifdef _LP64 /* long pointer == 64 */ typedef unsigned long uintptr_t; typedef long intptr_t; #else typedef unsigned int uintptr_t; typedef int intptr_t; #endif /* Ensure type sizes are correct: */ typedef char uint8_size_is_correct [sizeof(uint8_t) == 1?1:-1]; typedef char uint16_size_if_correct [sizeof(uint16_t) == 2?1:-1]; typedef char uint32_size_is_correct [sizeof(uint32_t) == 4?1:-1]; typedef char int8_size_is_correct [sizeof(int8_t) == 1?1:-1]; typedef char int16_size_if_correct [sizeof(int16_t) == 2?1:-1]; typedef char int32_size_is_correct [sizeof(int32_t) == 4?1:-1]; /* intptr_t / uintptr_t correct size check */ typedef char uintptr_size_is_correct[sizeof(intptr_t) == sizeof(int*)?1:-1]; typedef char uintptr_size_is_correct[sizeof(uintptr_t)== sizeof(int*)?1:-1]; //=================================================================== //============================ lex.c ================================ //=================================================================== struct lex_file { FILE *file; /* file handler */ char *name; /* name of file */ char peek [5]; char lastok[8192]; int last; /* last token */ int current; /* current token */ int length; /* bytes left to parse */ int size; /* never changes (size of file) */ int line; /* what line are we on? */ }; /* * It's important that this table never exceed 32 keywords, the ascii * table starts at 33 (and we don't want conflicts) */ #define TOKEN_DO 0 #define TOKEN_ELSE 1 #define TOKEN_IF 2 #define TOKEN_WHILE 3 #define TOKEN_BREAK 4 #define TOKEN_CONTINUE 5 #define TOKEN_RETURN 6 #define TOKEN_GOTO 7 #define TOKEN_FOR 8 // extension #define TOKEN_TYPEDEF 9 // extension // ensure the token types are out of the // bounds of anyothers that may conflict. #define TOKEN_FLOAT 110 #define TOKEN_VECTOR 111 #define TOKEN_STRING 112 #define TOKEN_ENTITY 113 #define TOKEN_VOID 114 /* * Lexer state constants, these are numbers for where exactly in * the lexing the lexer is at. Or where it decided to stop if a lexer * error occurs. These numbers must be > where the ascii-table ends * and > the last type token which is TOKEN_VOID */ #define LEX_COMMENT 1128 #define LEX_CHRLIT 1129 #define LEX_STRLIT 1130 #define LEX_IDENT 1131 int lex_token (struct lex_file *); void lex_reset (struct lex_file *); void lex_close (struct lex_file *); struct lex_file *lex_include(struct lex_file *, char *); struct lex_file *lex_open (FILE *); //=================================================================== //========================== error.c ================================ //=================================================================== #define ERROR_LEX (SHRT_MAX+0) #define ERROR_PARSE (SHRT_MAX+1) #define ERROR_INTERNAL (SHRT_MAX+2) #define ERROR_COMPILER (SHRT_MAX+3) #define ERROR_PREPRO (SHRT_MAX+4) int error(struct lex_file *, int, const char *, ...); //=================================================================== //========================== parse.c ================================ //=================================================================== int parse_gen(struct lex_file *); //=================================================================== //========================== typedef.c ============================== //=================================================================== typedef struct typedef_node_t { char *name; } typedef_node; void typedef_init(); void typedef_clear(); typedef_node *typedef_find(const char *); int typedef_add (struct lex_file *file, const char *, const char *); //=================================================================== //=========================== util.c ================================ //=================================================================== void *util_memory_a(unsigned int, unsigned int, const char *); void util_memory_d(void *, unsigned int, const char *); char *util_strdup (const char *); char *util_strrq (char *); void util_debug (const char *, const char *, ...); #ifdef NOTRACK # define mem_a(x) malloc(x) # define mem_d(x) free (x) #else # define mem_a(x) util_memory_a((x), __LINE__, __FILE__) # define mem_d(x) util_memory_d((x), __LINE__, __FILE__) #endif #define VECTOR_MAKE(T,N) \ T* N##_data = NULL; \ long N##_elements = 0; \ long N##_allocated = 0; \ int N##_add(T element) { \ if (N##_elements == N##_allocated) { \ if (N##_allocated == 0) { \ N##_allocated = 12; \ } else { \ N##_allocated *= 2; \ } \ void *temp = realloc(N##_data, (N##_allocated * sizeof(T))); \ if (!temp) { \ free(temp); \ return -1; \ } \ N##_data = (T*)temp; \ } \ N##_data[N##_elements] = element; \ return N##_elements++; \ } //=================================================================== //=========================== code.c ================================ //=================================================================== #define TYPE_VOID 0 #define TYPE_STRING 1 #define TYPE_FLOAT 2 #define TYPE_VECTOR 3 #define TYPE_ENTITY 4 #define TYPE_FIELD 5 #define TYPE_FUNCTION 6 #define TYPE_POINTER 7 /* * Each paramater incerements by 3 since vector types hold * 3 components (x,y,z). */ #define OFS_NULL 0 #define OFS_RETURN 1 #define OFS_PARM0 (OFS_RETURN+3) #define OFS_PARM1 (OFS_PARM0 +3) #define OFS_PARM2 (OFS_PARM1 +3) #define OFS_PARM3 (OFS_PARM2 +3) #define OFS_PARM4 (OFS_PARM3 +3) #define OFS_PARM5 (OFS_PARM4 +3) #define OFS_PARM6 (OFS_PARM5 +3) #define OFS_PARM7 (OFS_PARM6 +3) typedef struct { uint16_t opcode; /* operand 1 */ union { int16_t s1; /* signed */ uint16_t u1; /* unsigned */ }; /* operand 2 */ union { int16_t s2; /* signed */ uint16_t u2; /* unsigned */ }; /* operand 3 */ union { int16_t s3; /* signed */ uint16_t u3; /* unsigned */ }; /* * This is the same as the structure in darkplaces * { * unsigned short op; * short a,b,c; * } * But this one is more sane to work with, and the * type sizes are guranteed. */ } prog_section_statement; typedef struct { /* The types: * 0 = ev_void * 1 = ev_string * 2 = ev_float * 3 = ev_vector * 4 = ev_entity * 5 = ev_field * 6 = ev_function * 7 = ev_pointer -- engine only * 8 = ev_bad -- engine only */ uint16_t type; uint16_t offset; uint32_t name; } prog_section_both; typedef prog_section_both prog_section_def; typedef prog_section_both prog_section_field; typedef struct { int32_t entry; /* in statement table for instructions */ uint32_t firstlocal; /* First local in local table */ uint32_t locals; /* Total ints of params + locals */ uint32_t profile; /* Always zero (engine uses this) */ uint32_t name; /* name of function in string table */ uint32_t file; /* file of the source file */ uint32_t nargs; /* number of arguments */ uint8_t argsize[8]; /* size of arguments (keep 8 always?) */ } prog_section_function; /* * Instructions * These are the external instructions supported by the interperter * this is what things compile to (from the C code). */ enum { INSTR_DONE, INSTR_MUL_F, INSTR_MUL_V, INSTR_MUL_FV, INSTR_MUL_VF, INSTR_DIV_F, INSTR_ADD_F, INSTR_ADD_V, INSTR_SUB_F, INSTR_SUB_V, INSTR_EQ_F, INSTR_EQ_V, INSTR_EQ_S, INSTR_EQ_E, INSTR_EQ_FNC, INSTR_NE_F, INSTR_NE_V, INSTR_NE_S, INSTR_NE_E, INSTR_NE_FNC, INSTR_LE, INSTR_GE, INSTR_LT, INSTR_GT, INSTR_LOAD_F, INSTR_LOAD_V, INSTR_LOAD_S, INSTR_LOAD_ENT, INSTR_LOAD_FLD, INSTR_LOAD_FNC, INSTR_ADDRESS, INSTR_STORE_F, INSTR_STORE_V, INSTR_STORE_S, INSTR_STORE_ENT, INSTR_STORE_FLD, INSTR_STORE_FNC, INSTR_STOREP_F, INSTR_STOREP_V, INSTR_STOREP_S, INSTR_STOREP_ENT, INSTR_STOREP_FLD, INSTR_STOREP_FNC, INSTR_RETURN, INSTR_NOT_F, INSTR_NOT_V, INSTR_NOT_S, INSTR_NOT_ENT, INSTR_NOT_FNC, INSTR_IF, INSTR_IFNOT, INSTR_CALL0, INSTR_CALL1, INSTR_CALL2, INSTR_CALL3, INSTR_CALL4, INSTR_CALL5, INSTR_CALL6, INSTR_CALL7, INSTR_CALL8, INSTR_STATE, INSTR_GOTO, INSTR_AND, INSTR_OR, INSTR_BITAND, INSTR_BITOR }; /* * The symbols below are created by the following * expanded macros: * * VECTOR_MAKE(prog_section_statement, code_statements); * VECTOR_MAKE(prog_section_def, code_defs ); * VECTOR_MAKE(prog_section_field, code_fields ); * VECTOR_MAKE(prog_section_function, code_functions ); * VECTOR_MAKE(int, code_globals ); * VECTOR_MAKE(char, code_strings ); */ int code_statements_add(prog_section_statement); int code_defs_add (prog_section_def); int code_fields_add (prog_section_field); int code_functions_add(prog_section_function); int code_globals_add (int); int code_strings_add (char); extern long code_statements_elements; extern long code_strings_elements; extern long code_globals_elements; extern long code_functions_elements; extern long code_fields_elements; extern long code_defs_elements; /* * code_write -- writes out the compiled file * code_init -- prepares the code file */ void code_write (); void code_init (); //=================================================================== //========================= assembler.c ============================= //=================================================================== void asm_init (const char *, FILE **); void asm_close(FILE *); void asm_parse(FILE *); #endif