TempleOSTS_140317.ISO

Compiler/Cmp.HPP

@@ -0,0 +1,77 @@
+#help_index "Compiler/Lex"
+#help_file "::/Doc/Lex"
+public extern CLex *LexNew(U8 *buf=NULL,I64 flags=0,U8 *filename=NULL);
+public extern U0 LexDel(CLex *lx);
+public extern I64 LexSize(CLex *lx);
+public extern U0 LexPutToken(CLex *lx);
+public extern I64 LexGetChar(CLex *lx);
+public extern U0 LexSkipEol(CLex *lx);
+public extern U0 LexPush(CLex *lx);
+public extern U0 LexPop(CLex *lx);
+public extern I64 Lex(CLex *lx);
+public extern U8 *LexExtStr(CLex *lx,I64 *_size=NULL);
+public extern U0 LexPutLine(CLex *lx,U8 *start);
+public extern U0 LexPutPos(CLex *lx);
+public extern I64 PrsKeyWord(CLex *lx);
+public extern U0 LexWarn(CLex *lx,U8 *str=NULL);
+public extern U0 LexExcept(CLex *lx,U8 *str=NULL);
+public extern U8 *LexExpression2Bin(CLex *lx,I64 *_type=NULL);
+public extern U8 *LexStatement2Bin(CLex *lx,I64 *_type,I64 cmp_flags=CMPF_PRS_SEMICOLON);
+public extern I64 IsLexExpression2Bin(CLex *lx,U8 **ex); //FALSE=no err
+public extern I64 LexExpression(CLex *lx);
+public extern I64 MemberMetaData(U8 *st,CMemberLst *ml);
+extern U0 MemberLstDel(CHashClass *c);
+public extern CMemberLstMeta *MemberMetaFind(U8 *st,CMemberLst *ml);
+public extern CMemberLst *MemberFind(U8 *needle_str,CHashClass *haystack_class);
+public extern CMemberLst *MemberFind2(CHashClass *needle_class,CHashClass *haystack_class);
+public extern U0 LexAttachDoc(CLex *lx,CLexFile *tempf=NULL,
+	CDoc *doc=NULL,U8 *abs_filename=NULL,CDocEntry *doc_e=NULL,I64 col=0);
+public extern CHashClass *OptClassFwd(CHashClass *tempc);
+
+#help_index "Compiler/Directive"
+#help_file "::/Doc/Directives"
+public extern U0 StreamPrint(U8 *fmt,...);
+public extern I64 StreamExePrint(U8 *fmt,...);
+public extern Bool OTrace(Bool val);
+public extern I64 OTraceMask(I64 i=0b1001111101);
+public extern Bool OptEqu(I64 num,Bool val);
+public extern Bool OptOn(I64 num);
+public extern Bool OptOff(I64 num);
+public extern Bool GetOpt(I64 num);
+public extern Bool CTrace(Bool val);
+public extern Bool Echo(Bool val);
+public extern U0 ImportHashTable(CHashTable *tempht);
+public extern I64 IncludeDepth();
+
+#help_index "Hash"
+extern CHashSrcSym *HashEntryImportCopy(CHashSrcSym *temph);
+extern U0 HashTableImport(CHashTable *src,CHashTable *dst);
+public extern I64 HashEntrySize(CHashSrcSym *temph);
+public extern I64 HashEntrySize2(CHashSrcSym *temph);
+public extern I64 HashTableSize2(CHashTable *table);
+
+
+#help_index "Compiler;Cmd Line (Typically)"
+public extern I64 Cmp(U8 *filename,U8 *map_name=NULL,U8 *out_name=NULL,U8 mapfile_drv=0);
+
+#help_index "Compiler"
+public extern I64 ExePutS(U8 *buf,U8 *filename=NULL,Bool just_load=FALSE,
+			  CLexHashTableContext *htc=NULL);
+public extern I64 ExePrint(U8 *fmt,...);
+public extern I64 ExeFile(U8 *name,Bool just_load=FALSE);
+public extern I64 ExePutS2(U8 *buf,U8 *filename=NULL,Bool just_load=FALSE);
+public extern I64 ExePrint2(U8 *fmt,...);
+public extern I64 ExeFile2(U8 *name,Bool just_load=FALSE);
+extern CHashTable *asm_hash;
+extern U0 CmpInit(Bool first);
+extern I64 compiled_lines,compiled_funs,compiled_bytes;
+
+//The following is for benchmarking
+extern Bool cmp_do_not_write_to_dsk;
+
+#help_index "Debugging/Dump"
+public extern U0 Ui(U8 *buf,U8 **_ip,I64 seg_size=64,I64 *_jmp_dst=NULL,Bool just_ins=FALSE);
+public extern U8 *U(U8 *ip,I64 cnt=20,I64 seg_size=64);
+public extern I64 Un(U8 *ip,I64 cnt=0x80,I64 seg_size=64);
+
+#help_index ""