FWGS
/
Xash3DArchive
Archived
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
This repository has been archived on 2022-06-27. You can view files and clone it, but cannot push or open issues or pull requests.
Xash3DArchive/common/qcclib/qcclib.h

624 lines
17 KiB
C
Raw Blame History

//=======================================================================
// Copyright XashXT Group 2007 ©
// qcclib.h - qcclib header
//=======================================================================
#ifndef QCCLIB_H
#define QCCLIB_H
#include "platform.h"
#include "baseutils.h"
#include "vprogs.h"
/*
TODO:
"stopped at 10 errors"
other pointer types for models and clients?
compact string heap?
always initialize all variables to something safe
the def->type->type arrangement is really silly.
return type checking
parm count type checking
immediate overflow checking
pass the first two parms in call->b and call->c
*/
#define MEMBERFIELDNAME "__m%s" //mark
#define MAX_ERRORS 10
#define MAX_NAME 64 // chars long
#define MAX_PARMS 8
#define MAX_PARMS_EXTRA 128
#define MAX_SOUNDS 2048
#define MAX_TEXTURES 1024
#define MAX_MODELS 2048
#define MAX_FILES 1024
//compiler flags
#define FLAG_KILLSDEBUGGERS 1
#define FLAG_ASDEFAULT 2
#define FLAG_SETINGUI 4
#define FLAG_HIDDENINGUI 8
#define FLAG_MIDCOMPILE 16 //option can be changed mid-compile with the special pragma
#define G_FLOAT(o) (pr_globals[o])
#define G_INT(o) (*(int *)&pr_globals[o])
#define G_VECTOR(o) (&pr_globals[o])
#define G_STRING(o) (strings + *(string_t *)&pr_globals[o])
#define G_FUNCTION(o) (*(func_t *)&pr_globals[o])
//qcc private pool
#define Qalloc( size ) Mem_Alloc(qccpool, size )
#define Qrealloc( ptr, size ) Mem_Realloc(qccpool, ptr, size )
//loading files
#define QCC_LoadFile(f) PR_LoadFile(f, NULL, FT_CODE)
#define QCC_LoadData(f) PR_LoadFile(f, NULL, FT_DATA)
#define BytesForBuckets(b) (sizeof(bucket_t)*b)
#define STRCMP(s1, s2) (((*s1)!=(*s2)) || strcmp(s1+1,s2+1))
#define STRNCMP(s1, s2, l) (((*s1)!=(*s2)) || strncmp(s1+1,s2+1,l))
typedef uint gofs_t; // offset in global data block
typedef struct function_s function_t;
typedef char PATHSTRING[MAX_NAME];
typedef enum {
QCF_STANDARD,
QCF_HEXEN2,
QCF_FTE,
QCF_FTEDEBUG,
QCF_KK7
} targetformat_t;
typedef enum {
tt_eof, // end of file reached
tt_name, // an alphanumeric name token
tt_punct, // code punctuation
tt_immediate, // string, float, vector
} token_type_t;
typedef struct bucket_s
{
void *data;
char *keystring;
struct bucket_s *next;
}bucket_t;
typedef struct hashtable_s
{
int numbuckets;
bucket_t **bucket;
}hashtable_t;
typedef struct cachedsourcefile_s
{
char filename[128];
int size;
char *file;
enum
{
FT_CODE, //quakec source
FT_DATA, //quakec lib
} type;
struct cachedsourcefile_s *next;
} cachedsourcefile_t;
struct function_s
{
int builtin; // if non 0, call an internal function
int code; // first statement
char *file; // source file with definition
int file_line;
struct def_s *def;
uint parm_ofs[MAX_PARMS];// always contiguous, right?
};
typedef struct temp_s
{
gofs_t ofs;
struct def_s *scope;
struct def_s *lastfunc;
struct temp_s *next;
bool used;
uint size;
} temp_t;
typedef union eval_s
{
string_t string;
float _float;
float vector[3];
func_t function;
int _int;
union eval_s *ptr;
} eval_t;
typedef struct
{
bool *enabled;
char *abbrev;
int optimisationlevel;
int flags; //1: kills debuggers. 2: applied as default.
char *fullname;
char *description;
void *guiinfo;
} optimisations_t;
typedef struct
{
bool *enabled;
int flags; //2 applied as default
char *abbrev;
char *fullname;
char *description;
void *guiinfo;
} compiler_flag_t;
typedef struct
{
char name[MAX_NAME];
char value[MAX_NAME * 4];
char params[MAX_PARMS][32];
int numparams;
bool used;
bool inside;
int namelen;
} const_t;
typedef struct type_s
{
etype_t type;
struct type_s *parentclass; //type_entity...
struct type_s *next;
struct type_s *aux_type; // return type or field type
struct type_s *param;
int num_parms; // -1 = variable args
uint ofs; //inside a structure.
uint size;
char *name;
} type_t;
typedef struct
{
int targetflags; //weather we need to mark the progs as a newer version
char *name;
char *opname;
int priority;
enum
{
ASSOC_LEFT,
ASSOC_RIGHT,
ASSOC_RIGHT_RESULT
} associative;
struct type_s **type_a;
struct type_s **type_b;
struct type_s **type_c;
} opcode_t;
typedef struct def_s
{
type_t *type;
char *name;
struct def_s *next;
struct def_s *nextlocal; // provides a chain of local variables
gofs_t ofs; // for the opt_locals_marshalling optimisation.
struct def_s *scope; // function the var was defined in, or NULL
int initialized; // 1 when a declaration included "= immediate"
int constant; // 1 says we can use the value over and over again
bool local; // 1 indices local variable
int references;
int timescalled; // part of the opt_stripfunctions optimisation.
int s_file;
int s_line;
int arraysize;
bool shared;
bool saved;
temp_t *temp;
} def_t;
typedef struct
{
char *memory;
int max_memory;
int current_memory;
type_t *types;
def_t def_head; // unused head of linked list
def_t *def_tail; // add new defs after this and move it
def_t *localvars; // chain of variables which need to be pushed and stuff.
int size_fields;
} pr_info_t;
typedef enum {
WARN_DEBUGGING,
WARN_ERROR,
WARN_NOTREFERENCED,
WARN_NOTREFERENCEDCONST,
WARN_CONFLICTINGRETURNS,
WARN_TOOFEWPARAMS,
WARN_TOOMANYPARAMS,
WARN_UNEXPECTEDPUNCT,
WARN_ASSIGNMENTTOCONSTANT,
WARN_ASSIGNMENTTOCONSTANTFUNC,
WARN_MISSINGRETURNVALUE,
WARN_WRONGRETURNTYPE,
WARN_POINTLESSSTATEMENT,
WARN_MISSINGRETURN,
WARN_DUPLICATEDEFINITION,
WARN_UNDEFNOTDEFINED,
WARN_PRECOMPILERMESSAGE,
WARN_TOOMANYPARAMETERSFORFUNC,
WARN_STRINGTOOLONG,
WARN_BADTARGET,
WARN_BADPRAGMA,
WARN_HANGINGSLASHR,
WARN_NOTDEFINED,
WARN_NOTCONSTANT,
WARN_SWITCHTYPEMISMATCH,
WARN_CONFLICTINGUNIONMEMBER,
WARN_KEYWORDDISABLED,
WARN_ENUMFLAGS_NOTINTEGER,
WARN_ENUMFLAGS_NOTBINARY,
WARN_CASEINSENSATIVEFRAMEMACRO,
WARN_DUPLICATELABEL,
WARN_DUPLICATEMACRO,
WARN_ASSIGNMENTINCONDITIONAL,
WARN_MACROINSTRING,
WARN_BADPARAMS,
WARN_IMPLICITCONVERSION,
WARN_FIXEDRETURNVALUECONFLICT,
WARN_EXTRAPRECACHE,
WARN_NOTPRECACHED,
WARN_DEADCODE,
WARN_UNREACHABLECODE,
WARN_NOTSTANDARDBEHAVIOUR,
WARN_INEFFICIENTPLUSPLUS,
WARN_DUPLICATEPRECOMPILER,
WARN_IDENTICALPRECOMPILER,
WARN_FTE_SPECIFIC, //extension that only FTEQCC will have a clue about.
WARN_EXTENSION_USED, //extension that frikqcc also understands
WARN_IFSTRING_USED,
WARN_LAXCAST, //some errors become this with a compiler flag
WARN_UNDESIRABLECONVENTION,
WARN_SAMENAMEASGLOBAL,
WARN_CONSTANTCOMPARISON,
ERR_PARSEERRORS, //caused by pr_parseerror being called.
//these are definatly my fault...
ERR_INTERNAL,
ERR_TOOCOMPLEX,
ERR_BADOPCODE,
ERR_TOOMANYSTATEMENTS,
ERR_TOOMANYSTRINGS,
ERR_BADTARGETSWITCH,
ERR_TOOMANYTYPES,
ERR_TOOMANYPAKFILES,
ERR_PRECOMPILERCONSTANTTOOLONG,
ERR_MACROTOOMANYPARMS,
ERR_CONSTANTTOOLONG,
ERR_TOOMANYFRAMEMACROS,
//limitations, some are imposed by compiler, some arn't.
ERR_TOOMANYGLOBALS,
ERR_TOOMANYGOTOS,
ERR_TOOMANYBREAKS,
ERR_TOOMANYCONTINUES,
ERR_TOOMANYCASES,
ERR_TOOMANYLABELS,
ERR_TOOMANYOPENFILES,
ERR_TOOMANYPARAMETERSVARARGS,
ERR_TOOMANYTOTALPARAMETERS,
//these are probably yours, or qcc being fussy.
ERR_BADEXTENSION,
ERR_BADIMMEDIATETYPE,
ERR_NOOUTPUT,
ERR_NOTAFUNCTION,
ERR_FUNCTIONWITHVARGS,
ERR_BADHEX,
ERR_UNKNOWNPUCTUATION,
ERR_EXPECTED,
ERR_NOTANAME,
ERR_NAMETOOLONG,
ERR_NOFUNC,
ERR_COULDNTOPENFILE,
ERR_NOTFUNCTIONTYPE,
ERR_TOOFEWPARAMS,
ERR_TOOMANYPARAMS,
ERR_CONSTANTNOTDEFINED,
ERR_BADFRAMEMACRO,
ERR_TYPEMISMATCH,
ERR_TYPEMISMATCHREDEC,
ERR_TYPEMISMATCHPARM,
ERR_TYPEMISMATCHARRAYSIZE,
ERR_UNEXPECTEDPUNCTUATION,
ERR_NOTACONSTANT,
ERR_REDECLARATION,
ERR_INITIALISEDLOCALFUNCTION,
ERR_NOTDEFINED,
ERR_ARRAYNEEDSSIZE,
ERR_ARRAYNEEDSBRACES,
ERR_TOOMANYINITIALISERS,
ERR_TYPEINVALIDINSTRUCT,
ERR_NOSHAREDLOCALS,
ERR_TYPEWITHNONAME,
ERR_BADARRAYSIZE,
ERR_NONAME,
ERR_SHAREDINITIALISED,
ERR_UNKNOWNVALUE,
ERR_BADARRAYINDEXTYPE,
ERR_NOVALIDOPCODES,
ERR_MEMBERNOTVALID,
ERR_BADPLUSPLUSOPERATOR,
ERR_BADNOTTYPE,
ERR_BADTYPECAST,
ERR_MULTIPLEDEFAULTS,
ERR_CASENOTIMMEDIATE,
ERR_BADSWITCHTYPE,
ERR_BADLABELNAME,
ERR_NOLABEL,
ERR_THINKTIMETYPEMISMATCH,
ERR_STATETYPEMISMATCH,
ERR_BADBUILTINIMMEDIATE,
ERR_PARAMWITHNONAME,
ERR_BADPARAMORDER,
ERR_ILLEGALCONTINUES,
ERR_ILLEGALBREAKS,
ERR_ILLEGALCASES,
ERR_NOTANUMBER,
ERR_WRONGSUBTYPE,
ERR_EOF,
ERR_NOPRECOMPILERIF,
ERR_NOENDIF,
ERR_HASHERROR,
ERR_NOTATYPE,
ERR_TOOMANYPACKFILES,
ERR_INVALIDVECTORIMMEDIATE,
ERR_INVALIDSTRINGIMMEDIATE,
ERR_BADCHARACTURECODE,
ERR_BADPARMS,
ERR_EXCEEDERRCOUNT,
WARN_MAX,
};
extern pr_info_t pr;
extern byte *qccpool;
extern file_t *asmfile;
extern uint MAX_REGS;
extern int MAX_STRINGS;
extern int MAX_GLOBALS;
extern int MAX_FIELDS;
extern int MAX_STATEMENTS;
extern int MAX_FUNCTIONS;
extern int MAX_CONSTANTS;
extern type_t *type_void;
extern type_t *type_string;
extern type_t *type_float;
extern type_t *type_vector;
extern type_t *type_entity;
extern type_t *type_field;
extern type_t *type_function;
extern type_t *type_pointer;
extern type_t *type_integer;
extern type_t *type_variant;
extern type_t *type_floatfield;
extern targetformat_t targetformat;
extern cachedsourcefile_t *sourcefile;
extern optimisations_t optimisations[];
extern compiler_flag_t compiler_flag[];
extern char v_copyright[1024];
extern hashtable_t compconstantstable;
extern hashtable_t globalstable, localstable;
extern opcode_t pr_opcodes[]; // sized by initialization
const extern int type_size[];
extern const_t *CompilerConstant;
extern bool pr_dumpasm;
extern char pr_token[8192];
extern token_type_t pr_token_type;
extern type_t *pr_immediate_type;
extern eval_t pr_immediate;
//keywords
extern bool keyword_asm;
extern bool keyword_break;
extern bool keyword_case;
extern bool keyword_class;
extern bool keyword_const;
extern bool keyword_continue;
extern bool keyword_default;
extern bool keyword_do;
extern bool keyword_entity;
extern bool keyword_float;
extern bool keyword_for;
extern bool keyword_goto;
extern bool keyword_int;
extern bool keyword_integer;
extern bool keyword_state;
extern bool keyword_string;
extern bool keyword_struct;
extern bool keyword_switch;
extern bool keyword_thinktime;
extern bool keyword_var;
extern bool keyword_vector;
extern bool keyword_union;
extern bool keyword_enum; //kinda like in c, but typedef not supported.
extern bool keyword_enumflags; //like enum, but doubles instead of adds 1.
extern bool keyword_typedef; //fixme
extern bool keyword_extern; //function is external, don't error or warn if the body was not found
extern bool keyword_shared; //mark global to be copied over when progs changes (part of FTE_MULTIPROGS)
extern bool keyword_noref; //nowhere else references this, don't strip it.
extern bool keyword_nosave; //don't write the def to the output.
extern bool keyword_union; //you surly know what a union is!
extern bool keywords_coexist;
//compiler flags
extern bool output_parms;
extern bool autoprototype;
extern bool flag_ifstring;
extern bool flag_laxcasts;
extern bool flag_hashonly;
extern bool flag_fasttrackarrays;
extern bool opt_overlaptemps;
extern bool opt_shortenifnots;
extern bool opt_noduplicatestrings;
extern bool opt_constantarithmatic;
extern bool opt_nonvec_parms;
extern bool opt_constant_names;
extern bool opt_precache_file;
extern bool opt_filenames;
extern bool opt_assignments;
extern bool opt_unreferenced;
extern bool opt_function_names;
extern bool opt_locals;
extern bool opt_dupconstdefs;
extern bool opt_constant_names_strings;
extern bool opt_return_only;
extern bool opt_compound_jumps;
extern bool opt_stripfunctions;
extern bool opt_locals_marshalling;
extern bool opt_logicops;
extern bool opt_vectorcalls;
extern int optres_shortenifnots;
extern int optres_overlaptemps;
extern int optres_noduplicatestrings;
extern int optres_constantarithmatic;
extern int optres_nonvec_parms;
extern int optres_constant_names;
extern int optres_precache_file;
extern int optres_filenames;
extern int optres_assignments;
extern int optres_unreferenced;
extern int optres_function_names;
extern int optres_locals;
extern int optres_dupconstdefs;
extern int optres_constant_names_strings;
extern int optres_return_only;
extern int optres_compound_jumps;
extern int optres_stripfunctions;
extern int optres_locals_marshalling;
extern int optres_logicops;
extern bool pr_warning[WARN_MAX];
extern char pr_parm_names[MAX_PARMS + MAX_PARMS_EXTRA][MAX_NAME];
extern def_t *extra_parms[MAX_PARMS_EXTRA];
extern jmp_buf pr_parse_abort; // longjump with this on parse error
extern int pr_source_line;
extern char *pr_file_p;
extern def_t *pr_scope;
extern int pr_error_count;
extern int pr_warning_count;
extern bool pr_dumpasm;
extern string_t s_file; // filename for function definition
extern def_t def_ret;
extern def_t def_parms[MAX_PARMS];
extern char pr_immediate_string[8192];
extern float *pr_globals;
extern uint numpr_globals;
extern char *strings;
extern int strofs;
extern dstatement_t *statements;
extern int numstatements;
extern int *statement_linenums;
extern dfunction_t *functions;
extern int numfunctions;
extern ddef_t *qcc_globals;
extern int numglobaldefs;
extern def_t *activetemps;
extern ddef_t *fields;
extern int numfielddefs;
extern type_t *qcc_typeinfo;
extern int numtypeinfos;
extern int maxtypeinfos;
extern int *qcc_tempofs;
extern int max_temps;
extern int tempsstart;
extern int numtemps;
//hash.c
extern int typecmp(type_t *a, type_t *b);
void Hash_InitTable(hashtable_t *table, int numbucks, void *mem);
int Hash_Key(char *name, int modulus);
void *Hash_Get(hashtable_t *table, char *name);
void *Hash_GetKey(hashtable_t *table, int key);
void *Hash_GetInsensative(hashtable_t *table, char *name);
void Hash_Remove(hashtable_t *table, char *name);
void Hash_RemoveKey(hashtable_t *table, int key);
void *Hash_GetNext(hashtable_t *table, char *name, void *old);
void Hash_RemoveData(hashtable_t *table, char *name, void *data);
void *Hash_GetNextInsensative(hashtable_t *table, char *name, void *old);
void *Hash_Add(hashtable_t *table, char *name, void *data, bucket_t *buck);
void *Hash_AddKey(hashtable_t *table, int key, void *data, bucket_t *buck);
void *Hash_AddInsensative(hashtable_t *table, char *name, void *data, bucket_t *buck);
void *(*pHash_Get)(hashtable_t *table, char *name);
void *(*pHash_GetNext)(hashtable_t *table, char *name, void *old);
void *(*pHash_Add)(hashtable_t *table, char *name, void *data, bucket_t *);
//pr_comp.c
void PR_Lex( void );
bool PR_UnInclude( void );
void PR_PrintDefs( void );
char *PR_ParseName( void );
int PR_CopyString (char *str);
void PR_Expect (char *string);
char *TypeName( type_t *type );
void PR_ResetErrorScope( void );
void PR_SkipToSemicolon( void );
type_t *TypeForName(char *name);
void PR_ClearGrabMacros( void );
void PR_NewLine (bool incomment);
int PR_WarningForName(char *name);
bool PR_CheckToken (char *string);
bool PR_CheckName (char *string);
const_t *PR_DefineName(char *name);
type_t *PR_ParseType (int newtype);
void PR_PrintStatement (dstatement_t *s);
char *PR_ValueString (etype_t type, void *val);
type_t *PR_NewType (char *name, int basictype);
bool PR_CompileFile (char *string, char *filename);
void PR_ParsePrintDef (int warningtype, def_t *def);
void PR_ParseError (int errortype, char *error, ...);
bool PR_CheckKeyword(int keywordenabled, char *string);
void PR_ParseWarning (int warningtype, char *error, ...);
void PR_EmitClassFromFunction(def_t *scope, char *tname);
int PR_encode( int len, int method, char *in, vfile_t *handle);
void PR_EmitArrayGetFunction(def_t *scope, char *arrayname);
void PR_EmitArraySetFunction(def_t *scope, char *arrayname);
type_t *PR_ParseFunctionType (int newtype, type_t *returntype);
void PR_IncludeChunk (char *data, bool duplicate, char *filename);
void PR_Warning (int type, char *file, int line, char *error, ...);
byte *PR_LoadFile(char *filename, fs_offset_t *filesizeptr, int type );
void PR_ParseErrorPrintDef (int errortype, def_t *def, char *error, ...);
char *PR_decode( int complen, int len, int method, char *info, char *buffer);
def_t *PR_GetDef (type_t *type, char *name, def_t *scope, bool allocate, int arraysize);
void PR_RemapOffsets(uint firststatement, uint laststatement, uint min, uint max, uint newmin);
//pr_utils
bool PrepareDATProgs ( const char *dir, const char *name, byte params );
bool CompileDATProgs ( void );
//debug info about used recources
PATHSTRING *precache_sounds;
PATHSTRING *precache_files;
PATHSTRING *precache_textures;
PATHSTRING *precache_models;
int numsounds;
int numtextures;
int nummodels;
int numfiles;
#endif//QCCLIB_H
Reference in New Issue View Git Blame Copy Permalink