A TempleOS distro for heretics
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

3907 lines
90 KiB

// Main TempleOS header
#help_index ""
extern class CAOT;
extern class CAOTHeapGlbl;
extern class CAOTImportExport;
extern class CCPU;
extern class CDC;
extern class CDirContext;
extern class CDoc;
extern class CFile;
extern class CHashClass;
extern class CHashFun;
extern class CHeapCtrl;
extern class CIntermediateCode;
extern class CJobCtrl;
extern class CTask;
#define NULL 0
#define TRUE 1
#define FALSE 0
#define ON 1
#define OFF 0
#define I8_MIN (-0x80)
#define I8_MAX 0x7F
#define U8_MIN 0
#define U8_MAX 0xFF
#define I16_MIN (-0x8000)
#define I16_MAX 0x7FFF
#define U16_MIN 0
#define U16_MAX 0xFFFF
#define I32_MIN (-0x80000000)
#define I32_MAX 0x7FFFFFFF
#define U32_MIN 0
#define U32_MAX 0xFFFFFFFF
#define I64_MIN (-0x8000000000000000)
#define I64_MAX 0x7FFFFFFFFFFFFFFF
#define U64_MIN 0
#define U64_MAX 0xFFFFFFFFFFFFFFFF
#define INVALID_PTR I64_MAX
#define STR_LEN 144
//(Int to F64 conversion is signed)
//Turn off 80-bit float constants with $LK,"OPTf_NO_BUILTIN_CONST",A="MN:OPTf_NO_BUILTIN_CONST"$.
#define U64_F64_MAX (0x43F0000000000000(F64))
#define F64_MAX (0x7FEFFFFFFFFFFFFF(F64))
#define F64_MIN (0xFFEFFFFFFFFFFFFF(F64))
#define inf (0x7FF0000000000000(F64))
#define ì (0x7FF0000000000000(F64))
#define pi (0x400921FB54442D18(F64))
#define ã (0x400921FB54442D18(F64))
#define exp_1 (0x4005BF0A8B145769(F64)) //The number "e"
#define log2_10 (0x400A934F0979A371(F64))
#define log2_e (0x3FF71547652B82FE(F64))
#define log10_2 (0x3FD34413509F79FF(F64))
#define loge_2 (0x3FE62E42FEFA39EF(F64))
#define sqrt2 (0x3FF6A09E667F3BCD(F64))
#define eps (0x3CB0000000000000(F64))
#help_index "Data Types/Simple"
/*HolyC union structure is treated as a
whole if no member is specified,
similar to bit fields.
See $LK,"EndianI64",A="MN:EndianI64"$() and $LK,"::/Demo/SubIntAccess.HC"$.
*/
U16i union U16
{
I8i i8[2];
U8i u8[2];
};
I16i union I16
{
I8i i8[2];
U8i u8[2];
};
U32i union U32
{
I8i i8[4];
U8i u8[4];
I16 i16[2];
U16 u16[2];
};
I32i union I32
{
I8i i8[4];
U8i u8[4];
I16 i16[2];
U16 u16[2];
};
U64i union U64
{
I8i i8[8];
U8i u8[8];
I16 i16[4];
U16 u16[4];
I32 i32[2];
U32 u32[2];
};
I64i union I64
{
I8i i8[8];
U8i u8[8];
I16 i16[4];
U16 u16[4];
I32 i32[2];
U32 u32[2];
};
#help_index "Math/Complex;Data Types/Complex"
public class Complex
{
F64 x,y;
};
#help_index "Data Types/Circular Queue"
public class CQue
{
CQue *next,*last;
};
#help_index "Graphics/Data Types/D3I32;Math/Data Types/D3I32;Data Types/D3I32"
public class CD3I32 //Three dimensional I32 pt
{
I32 x,y,z;
};
public class CQueD3I32 //Que of three dimensional I32 pts
{
CQueD3I32 *next,*last;
CD3I32 p;
};
#help_index "Math/Data Types;Data Types"
public class CD2I32 //Two dimensional I32 pt
{
I32 x,y;
};
public class CD2I64 //Two dimensional I64 pt
{
I64 x,y;
};
public class CD3I64 //Three dimensional I64 pt
{
I64 x,y,z;
};
public class CD2 //Two dimensional F64 pt
{
F64 x,y;
};
#help_index "Math/CD3;Data Types/CD3"
public class CD3 //Three dimensional F64 pt
{
F64 x,y,z;
};
#help_index "Data Types/Queue Vector"
#define QUE_VECT_U8_CNT 512
public class CQueVectU8
{
CQueVectU8 *next,*last;
I64 total_cnt,node_cnt,min_idx;
U8 body[QUE_VECT_U8_CNT];
};
#help_index "Data Types/Fifo"
public class CFifoU8
{
U8 *buf;
I64 mask,in_ptr,out_ptr;
};
public class CFifoI64
{
I64 *buf;
I64 mask,in_ptr,out_ptr;
};
#help_index "Date/CDate"
#define CDATE_YEAR_DAYS 365.24225
#define CDATE_YEAR_DAYS_INT 36524225
#define CDATE_BASE_DAY_OF_WEEK 0
public I64 class CDate
{
U32 time;
I32 date;
};
#help_index "Date;Date/CDate"
public class CDateStruct
{
U8 sec10000,sec100,sec,min,hour,
day_of_week,day_of_mon,mon;
I32 year;
};
#help_index "Math/ODE"
public class COrder2D3
{
F64 x,y,z,
DxDt,DyDt,DzDt;
};
#define MSF_INACTIVE 1
#define MSF_FIXED 2
public class CMass
{
CMass *next,*last;
COrder2D3 *state, //Point to entries in $LK,"CMathODE",A="MN:CMathODE"$.state[]
*DstateDt; //Point to entries in $LK,"CMathODE",A="MN:CMathODE"$.DstateDt[]
U0 start;
U32 flags,num;
F64 mass,drag_profile_factor;
U0 saved_state;
F64 x,y,z,
DxDt,DyDt,DzDt;
U0 end;
};
#define SSF_INACTIVE 1
#define SSF_NO_COMPRESSION 2
#define SSF_NO_TENSION 4
public class CSpring
{
CSpring *next,*last;
CMass *end1,*end2;
F64 f,displacement; //set for you to check
U0 start;
U32 flags,num,
end1_num,end2_num;
F64 const,rest_len;
U0 end;
};
//Ordinary Differential Equations
#define ODEF_HAS_MASSES 1
#define ODEF_PAUSED 2
#define ODEF_STARTED 4
#define ODEF_BUSY 8
#define ODEf_HAS_MASSES 0
#define ODEf_PAUSED 1
#define ODEf_STARTED 2
#define ODEf_BUSY 3
public class CMathODE
{
CMathODE *next,*last;
I64 flags,n,n_internal;
CMass *next_mass,*last_mass;
CSpring *next_spring,*last_spring;
F64 drag_v, //drag proportional to velocity
drag_v2, //drag proportional to velocity squared
drag_v3, //drag proportional to velocity cubed
acceleration_limit, //This clips acceleration
base_t,
t,t_scale,
h,h_min,h_max;
//This is not precise, just a ballpark.
//TempleOS CMathODE's are for video games
//not science. It bails if it takes
//too long.
F64 min_tolerance,max_tolerance;
F64 tolerance_internal,
*array_base,
*state,
*state_internal,
*DstateDt,
*state_scale,
*initial_state,
*tmp0,*tmp1,*tmp2,*tmp3,
*tmp4,*tmp5,*tmp6,*tmp7;
CTask *mem_task,*win_task;
U0 (*derive)(CMathODE *o,F64 t,F64 *state,F64 *DstateDt);
U0 (*mp_derive)(CMathODE *o,F64 t, //If break into parallel pieces.
I64 cpu_num,F64 *state,F64 *DstateDt);
CTask **slave_tasks;
I64 mp_not_done_flags;
F64 mp_t,*mp_state,*mp_DstateDt;
I64 user_data;
};
#help_index "Processor"
//IDT entry types
#define IDTET_TASK 0x05
#define IDTET_IRQ 0x0E
#define IDTET_TRAP 0x0F //Same as IRQ but doesnt do CLI.
//Interrupts
//0x00-0x1F are reserved by Intel
#define I_DIV_ZERO 0x00
#define I_SINGLE_STEP 0x01
#define I_NMI 0x02
#define I_BPT 0x03
#define I_PAGE_FAULT 0x0E
//0x20-0x2F are used for hardware
#define I_TIMER 0x20
//Software Interrupts
#define I_MP_CRASH 0x30
#define I_WAKE 0x31
#define I_DBG 0x32
//See $LK,"ST_INT_NAMES",A="MN:ST_INT_NAMES"$
//You might want to start bwd from
//0xFF for your own interrupts.
#define I_USER 0x40
#define MP_PROCESSORS_NUM 128
#define SYS_START_CR0 0x0031
#define RFLAGf_CARRY 0
#define RFLAGf_PARITY 2
#define RFLAGf_AUX_CARRY 4
#define RFLAGf_ZERO 6
#define RFLAGf_SIGN 7
#define RFLAGf_TRAP 8 //Single Step
#define RFLAGf_INT 9
#define RFLAGf_DIR 10
#define RFLAGf_OVERFLOW 11
#define RFLAGf_IOPL0 12 // I/O Privilege Level
#define RFLAGf_IOPL1 13
#define RFLAGf_NESTED_TASK 14
#define RFLAGf_RESUME 16
#define RFLAGf_V8086 17
#define RFLAGf_ALIGN_CHECK 18
#define RFLAGf_VINT 19 //Virtual Interrupt
#define RFLAGf_VINT_PENDING 20
#define RFLAGf_ID 21
#define RFLAGG_START 0x0000
#define RFLAGG_NORMAL (1<<RFLAGf_INT)
//Global Descriptor Table
class CGDTEntry
{
U64 lo,hi;
};
class CGDT
{
CGDTEntry null;
CGDTEntry boot_ds;
CGDTEntry boot_cs;
CGDTEntry cs32;
CGDTEntry cs64; //The $LK,"Charter",A="FI:::/Doc/Charter.DD"$ says just ring-0.
CGDTEntry cs64_ring3; //$LK,"Ring3",A="FI:::/Demo/Lectures/Ring3.HC"$, in case you want to play around.
CGDTEntry ds;
CGDTEntry ds_ring3;
CGDTEntry tr[MP_PROCESSORS_NUM];
CGDTEntry tr_ring3[MP_PROCESSORS_NUM];
};
class CSysLimitBase
{
U16 limit; //Offset of last byte, not size.
U8 *base; //&GDT or &IDT
};
#help_index "Memory/Info"
#define MEM_E820_ENTRIES_NUM 48
class CMemE820
{
U8 *base;
I64 len;
U8 type,pad[3];
};
#help_index "Compiler/Internal"
//Loader flags
#define LDF_NO_ABSS 1
#define LDF_JUST_LOAD 2
#define LDF_SILENT 4
#define BIN_SIGNATURE_VAL 'TOSB'
class CBinFile
{//$LK,"Bin File Header Generation",A="FF:::/Compiler/CMain.HC,16 ALIGN"$ by compiler.
U16 jmp;
U8 module_align_bits,
reserved;
U32 bin_signature;
I64 org,
patch_table_offset, //$LK,"Patch Table Generation",A="FF:::/Compiler/CMain.HC,IET_ABS_ADDR"$
file_size;
};
class CPatchTableAbsAddr
{
U8 eit_abs_addr; //$LK,"IET_ABS_ADDR",A="MN:IET_ABS_ADDR"$
U32 abs_addres_cnt;
U8 zero;
U32 abs_addres[1];
};
//$LK,"CAOTImportExport",A="MN:CAOTImportExport"$ Types. Used in PatchTable.
#define IET_END 0
//reserved
#define IET_REL_I0 2 //Fictitious
#define IET_IMM_U0 3 //Fictitious
#define IET_REL_I8 4
#define IET_IMM_U8 5
#define IET_REL_I16 6
#define IET_IMM_U16 7
#define IET_REL_I32 8
#define IET_IMM_U32 9
#define IET_REL_I64 10
#define IET_IMM_I64 11
#define IEF_IMM_NOT_REL 1
//reserved
#define IET_REL32_EXPORT 16
#define IET_IMM32_EXPORT 17
#define IET_REL64_EXPORT 18 //Not implemented
#define IET_IMM64_EXPORT 19 //Not implemented
#define IET_ABS_ADDR 20
#define IET_CODE_HEAP 21 //Not really used
#define IET_ZEROED_CODE_HEAP 22 //Not really used
#define IET_DATA_HEAP 23
#define IET_ZEROED_DATA_HEAP 24 //Not really used
#define IET_MAIN 25
#help_index "Boot"
class CKernel
{//Must match $LK,"OSStartUp",A="FF:::/Kernel/KStart16.HC,MEM_BOOT_BASE"$
CBinFile h;
U32 jmp,
boot_src,
boot_blk,
boot_patch_table_base,
sys_run_level;
CDate compile_time;
U0 start;
U32 boot_base;
U16 mem_E801[2];
CMemE820 mem_E820[MEM_E820_ENTRIES_NUM];
U64 mem_physical_space;
CSysLimitBase sys_gdt_ptr;
U16 sys_pci_busses;
;$$=($$+15)&-16;
CGDT sys_gdt;
};
//Run-Levels
#define RLf_16BIT 0
#define RLf_VGA 1
#define RLf_32BIT 2
#define RLf_PATCHED 3
#define RLf_16MEG_SYS_CODE_BP 4
#define RLf_64BIT 5
#define RLf_16MEG_ADAM_HEAP_CTRL 6
#define RLf_FULL_HEAPS 7
#define RLf_RAW 8
#define RLf_INTERRUPTS 9
#define RLf_BLKDEV 10
#define RLf_MP 11
#define RLf_COMPILER 12
#define RLf_DOC 13
#define RLf_WINMGR 14
#define RLf_REGISTRY 15
#define RLf_HOME 16
#define RLf_AUTO_COMPLETE 17
#define RLf_ADAM_SERVER 18
#define RLf_ONCE_ADAM 19
#define RLf_ONCE_USER 20
#define RLF_16BIT 0x000001
#define RLF_VGA 0x000002
#define RLF_32BIT 0x000004
#define RLF_PATCHED 0x000008
#define RLF_16MEG_SYS_CODE_BP 0x000010
#define RLF_64BIT 0x000020
#define RLF_16MEG_ADAM_HEAP_CTRL 0x000040
#define RLF_FULL_HEAPS 0x000050
#define RLF_RAW 0x000100
#define RLF_INTERRUPTS 0x000200
#define RLF_BLKDEV 0x000400
#define RLF_MP 0x000800
#define RLF_COMPILER 0x001000
#define RLF_DOC 0x002000
#define RLF_WINMGR 0x004000
#define RLF_REGISTRY 0x008000
#define RLF_HOME 0x010000
#define RLF_AUTO_COMPLETE 0x020000
#define RLF_ADAM_SERVER 0x040000
#define RLF_ONCE_ADAM 0x080000
#define RLF_ONCE_USER 0x100000
#help_index "Processor"
#define LAPIC_BASE 0xFEE00000
#define LAPIC_APIC_ID (LAPIC_BASE+0x020)
#define LAPIC_APIC_VERSION (LAPIC_BASE+0x030)
#define LAPIC_TASK_PRIORITY (LAPIC_BASE+0x080)
#define LAPIC_ARIBITRATION_PRIORITY (LAPIC_BASE+0x090)
#define LAPIC_PROCESSOR_PRIORITY (LAPIC_BASE+0x0A0)
#define LAPIC_EOI (LAPIC_BASE+0x0B0)
#define LAPIC_LOG_DST (LAPIC_BASE+0x0D0)
#define LAPIC_DFR (LAPIC_BASE+0x0E0)
#define LAPIC_LDR (LAPIC_BASE+0x0D0)
#define LAPICF_APIC_ENABLED 0x100
#define LAPIC_SVR (LAPIC_BASE+0x0F0)
#define LAPIC_ISR (LAPIC_BASE+0x100)
#define LAPIC_TMR (LAPIC_BASE+0x180)
#define LAPIC_IRR (LAPIC_BASE+0x200)
#define LAPIC_ICR_LOW (LAPIC_BASE+0x300)
#define LAPIC_ICR_HIGH (LAPIC_BASE+0x310)
#define LAPIC_LVT_TIMER (LAPIC_BASE+0x320)
#define LAPIC_LVT_THERMAL (LAPIC_BASE+0x330)
#define LAPIC_LVT_PERF (LAPIC_BASE+0x340)
#define LAPIC_LVT_LINT0 (LAPIC_BASE+0x350)
#define LAPIC_LVT_LINT1 (LAPIC_BASE+0x360)
#define LAPIC_LVT_ERR (LAPIC_BASE+0x370)
#define MPN_VECT 0x97
#define MP_VECT_ADDR (MPN_VECT*0x1000)
//I/O APIC Memory mapped window
#define IOAPIC_REG 0xFEC00000 //U8
#define IOAPIC_DATA 0xFEC00010 //U32
//I/O APIC Regs
#define IOAPICID 0x00
#define IOAPICVER 0x01
#define IOAPICARB 0x02
#define IOREDTAB 0x10
//Model specific regs.
#define IA32F_SCE 0x001
#define IA32F_LME 0x100
#define IA32_LAPIC_BASE 0x01B
#define IA32_EFER 0xC0000080
#define IA32_FS_BASE 0xC0000100
#define IA32_GS_BASE 0xC0000101
class CAP16BitInit
{//AP Multicore
U32 jmp;
CSysLimitBase ap_gdt_ptr;
};
#help_index "Time/CPU Cycles;Time/HPET;Time/Jiffies"
//High Performance Event Timer
#define HPET_GCAP_ID (0xFED00000+0x00)
#define HPET_GEN_CONF (0xFED00000+0x10)
#define HPET_MAIN_CNT (0xFED00000+0xF0)
public class CCntsGlbls
{
I64 jiffies, //$LK,"JIFFY_FREQ",A="MN:JIFFY_FREQ"$
timer, //$LK,"SYS_TIMER_FREQ",A="MN:SYS_TIMER_FREQ"$. Use $LK,"SysTimerRead",A="MN:SysTimerRead"$().
time_stamp_freq,
time_stamp_kHz_freq,
time_stamp_freq_initial, //Initial freq, sampled once at boot time.
HPET_freq,
HPET_kHz_freq,
HPET_initial; //Initial count, sampled at boot time.
Bool time_stamp_calibrated;
};
#define JIFFY_FREQ 1000 // Hz
#define CDATE_FREQ 49710 // Hz
#define SYS_TIMER_FREQ (18333*65536/1000) //Hz
#define SYS_TIMER0_PERIOD (65536*182/10/JIFFY_FREQ)
#help_index "Call"
//Function Stack Frame
#define SF_RBP 0x00
#define SF_RIP 0x08
#define SF_ARG1 0x10
#define SF_ARG2 0x18
#define SF_ARG3 0x20
#define SF_ARG4 0x28
#define SF_ARG5 0x30
#define SF_ARG6 0x38
#define SF_ARG7 0x40
#define SF_ARG8 0x48
class CRAXRBCRCXRDX
{
I64 rax,rbx,rcx,rdx;
};
//Asm callable function pointers.
//They work with $LK,"CallExtNum",A="MN:CallExtNum"$() when calling from HolyC.
#define EXT_WIN_TO_TOP 0
#define EXT_WIN_FOCUS 1
#define EXT_HEAPLOG_MALLOC 2
#define EXT_HEAPLOG_FREE 3
#define EXT_DBG_RESUME 4
#define EXT_EXTS_NUM 5
#help_index "Processor"
#define DFT_CACHE_LINE_WIDTH 128
//Semaphores
class CSema
{
Bool val,pad[DFT_CACHE_LINE_WIDTH-1];
};
#define SEMA_DEBUG 0
#define SEMA_RECORD_MACRO 1
#define SEMA_SYS_TIMER 2
#define SEMA_SYS_DATE 3
#define SEMA_DBG_MODE 4
#define SEMA_SND 5
#define SEMA_HEAPLOG_ACTIVE 6
#define SEMA_HEAPLOG_LOCK 7
#define SEMA_REFRESH_IN_PROGRESS 8
#define SEMA_FLUSH_VGA_IMAGE 9
#define SEMA_SINGLE_USER 10
#define SEMA_DSK_CACHE 11
#define SEMA_FAR_CALL32 12
#define SEMA_DEV_MEM 13
#define SEMA_VGA 14
#define SEMA_UPDATE_WIN_Z_BUF 15
#define SEMA_TT 16
#define SEMA_MUTE 17
#define SEMA_JUST_PUMP_MSGS 18
#define SEMA_TMBEAT 19
#define SEMA_FIX 20
#define SEMA_SEMAS_NUM 21
#define CTRL_ALT_DEL 0
#define CTRL_ALT_C 1
#define CTRL_ALT_X 2
#define CTRL_ALT_TAB 3
#help_index "Hash"
public class CHash
{//See $LK,"Hash",A="HI:Hash"$
CHash *next;
U8 *str;
U32 type,
use_cnt; // inc'ed every time search found, never dec'ed.
};
public class CHashTable
{
CHashTable *next;
I64 mask,locked_flags;
CHash **body;
};
#help_index "Hash/System"
//Hash table types: $LK,"ST_HTT_TYPES",A="FF:::/Kernel/KDefine.HC,ST_HTT_TYPES"$
#define HTt_EXPORT_SYS_SYM 0
#define HTt_IMPORT_SYS_SYM 1
#define HTt_DEFINE_STR 2
#define HTt_GLBL_VAR 3
#define HTt_CLASS 4
#define HTt_INTERNAL_TYPE 5
#define HTt_FUN 6
#define HTt_WORD 7
#define HTt_DICT_WORD 8
#define HTt_KEYWORD 9
#define HTt_ASM_KEYWORD 10
#define HTt_OPCODE 11
#define HTt_REG 12
#define HTt_FILE 13
#define HTt_MODULE 14
#define HTt_HELP_FILE 15
#define HTt_FRAME_PTR 16
#define HTt_TYPES_NUM 17
#define HTf_PRIVATE 23
#define HTf_PUBLIC 24
#define HTf_EXPORT 25
#define HTf_IMPORT 26
#define HTf_IMM 27
#define HTf_GOTO_LABEL 28
#define HTf_RESOLVED 29
#define HTf_UNRESOLVED 30
#define HTf_LOCAL 31
#define HTT_INVALID 0
#define HTT_EXPORT_SYS_SYM 0x00001 //CHashExport
#define HTT_IMPORT_SYS_SYM 0x00002 //CHashImport
#define HTT_DEFINE_STR 0x00004 //CHashDefineStr
#define HTT_GLBL_VAR 0x00008 //CHashGlblVar
#define HTT_CLASS 0x00010 //CHashClass
#define HTT_INTERNAL_TYPE 0x00020 //CHashClass
#define HTT_FUN 0x00040 //CHashFun
#define HTT_WORD 0x00080 //CHashAC only in AutoComplete table
#define HTT_DICT_WORD 0x00100 //CHashGeneric only in AutoComplete tbl
#define HTT_KEYWORD 0x00200 //CHashGeneric $LK,"KEYWORD",A="FF:::/Compiler/OpCodes.DD,KEYWORD"$
#define HTT_ASM_KEYWORD 0x00400 //CHashGeneric $LK,"ASM_KEYWORD",A="FF:::/Compiler/OpCodes.DD,ASM_KEYWORD"$
#define HTT_OPCODE 0x00800 //CHashOpcode
#define HTT_REG 0x01000 //CHashReg
#define HTT_FILE 0x02000 //CHashGeneric
#define HTT_MODULE 0x04000 //CHashGeneric
#define HTT_HELP_FILE 0x08000 //CHashSrcSym
#define HTT_FRAME_PTR 0x10000 //CHashGeneric
#define HTG_TYPE_MASK 0x1FFFF
#define HTF_PRIVATE 0x00800000
#define HTF_PUBLIC 0x01000000
#define HTF_EXPORT 0x02000000
#define HTF_IMPORT 0x04000000
#define HTF_IMM 0x08000000
#define HTF_GOTO_LABEL 0x10000000
#define HTF_RESOLVE 0x20000000
#define HTF_UNRESOLVED 0x40000000
#define HTF_LOCAL 0x80000000
#define HTG_FLAGS_MASK 0xFF000000
#define HTG_SRC_SYM (HTT_DEFINE_STR|HTT_GLBL_VAR|HTT_FUN|HTT_CLASS|\
HTT_EXPORT_SYS_SYM|HTT_HELP_FILE)
#define HTG_ALL -1
#define KERNEL_MODULE_NAME "/Kernel/Kernel"
class CDbgInfo
{
U32 min_line,max_line;
U32 body[1]; //Code heap is 32-bit value
};
public class CHashSrcSym:CHash
{
U8 *src_link,
*idx;
CDbgInfo *dbg_info;
U8 *import_name;
CAOTImportExport *ie_lst;
};
public class CHashGeneric:CHash
{
I64 user_data0,user_data1,user_data2;
};
#define REGT_NONE 0
#define REGT_R8 1
#define REGT_R16 2
#define REGT_R32 3
#define REGT_R64 4
#define REGT_SEG 5
#define REGT_FSTK 6
#define REGT_MM 7
#define REGT_XMM 8
public class CHashReg:CHash
{
U8 reg_num,reg_type;
};
public class CHashAC:CHash
{
I32 num;
U32 hits;
};
public class CHashExport:CHashSrcSym
{
I64 val;
};
public class CHashImport:CHashSrcSym
{
U8 *module_base,
*module_header_entry;
};
#help_index "Compiler/Internal"
#define PTR_STARS_NUM 4
//Member Lst Flags
#define MLF_DFT_AVAILABLE 1
#define MLF_LASTCLASS 2
#define MLF_STR_DFT_AVAILABLE 4
#define MLF_FUN 8
#define MLF_DOT_DOT_DOT 16
#define MLF_NO_UNUSED_WARN 32
#define MLF_STATIC 64
public class CArrayDim
{
CArrayDim *next;
I64 cnt,total_cnt;
};
#define MLMF_IS_STR 1
public class CMemberLstMeta
{
CMemberLstMeta *next;
U8 *str;
I64 flags,
user_data;
};
public class CMemberLst
{
CMemberLst *next,*left,*right,
*left_class_base,*right_class_base; //For finding dup class local vars.
U8 *str;
CHashClass *member_class,*member_class_base;
CMemberLstMeta *meta;
U32 use_cnt;
U16 flags;
I8 reg,pad;
I64 offset,size;
CArrayDim dim;
U8 *static_data;
union {
I64 static_data_rip;
I64 dft_val;
}
CHashFun *fun_ptr;
};
class CExternUsage
{
CExternUsage *next;
I64 rip;
};
#help_index "Hash/System;Compiler/Internal"
public class CHashDefineStr:CHashSrcSym
{
U8 *data,**sub_idx;
I64 cnt;
};
#define Cf_EXTERN 0
#define Cf_INTERNAL_TYPE 1
public class CHashClass:CHashSrcSym
{//See $LK,"PrsClassNew",A="MN:PrsClassNew"$(). base_class of $LK,"CHashFun",A="MN:CHashFun"$
I64 size,neg_offset;
U32 member_cnt;
U8 ptr_stars_cnt,raw_type;
U16 flags;
CMemberLst *member_lst_and_root, //Head of linked list and head of tree.
*member_class_base_root, //For finding dup class local vars.
*last_in_member_lst;
CHashClass *base_class,
*fwd_class;
};
//Function flags
#define Ff_INTERRUPT 8
#define Ff_HASERRCODE 9
#define Ff_ARGPOP 10
#define Ff_NOARGPOP 11
#define Ff_INTERNAL 12
#define Ff__EXTERN 13
#define Ff_DOT_DOT_DOT 14
#define Ff_RET1 15
public class CHashFun:CHashClass
{//See $LK,"PrsFunNew",A="MN:PrsFunNew"$().
CHashClass *return_class;
U32 arg_cnt,pad,
used_reg_mask,clobbered_reg_mask;
U8 *exe_addr;
CExternUsage *ext_lst;
};
//Glbl Var Flags
#define GVF_FUN 1
#define GVF_IMPORT 2
#define GVF_EXTERN 4
#define GVF_DATA_HEAP 8
#define GVF_ALIAS 16
#define GVF_ARRAY 32
public class CHashGlblVar:CHashSrcSym
{
I64 size,flags;
CHashClass *var_class;
CHashFun *fun_ptr;
CArrayDim dim;
U8 *data_addr;
union {
I64 data_addr_rip;
CAOTHeapGlbl *heap_glbl;
}
};
#assert offset(CHashClass.size)==offset(CHashGlblVar.size)
#help_index "DolDoc"
//See $LK,"TextBase Layer",A="HI:TextBase Layer"$.
#define ATTRF_BLINK 0x10000000
#define ATTRF_INVERT 0x20000000
#define ATTRF_SEL 0x40000000
#define ATTRF_UNDERLINE 0x80000000
#define ATTRf_BLINK 28
#define ATTRf_INVERT 29
#define ATTRf_SEL 30
#define ATTRf_UNDERLINE 31
//CDocEntry.type codes (Low 8 bits)
#define DOCT_TEXT 0
#define DOCT_NEW_LINE 1
#define DOCT_SOFT_NEW_LINE 2
#define DOCT_TAB 3
#define DOCT_PAGE_BREAK 4
#define DOCT_CURSOR 5
#define DOCT_MARKER 6
#define DOCT_PMT 7
#define DOCT_CLEAR 8
#define DOCT_PAGE_LEN 9
#define DOCT_LEFT_MARGIN 10
#define DOCT_RIGHT_MARGIN 11
#define DOCT_HEADER 12
#define DOCT_FOOTER 13
#define DOCT_INDENT 14
#define DOCT_FOREGROUND 15
#define DOCT_BACKGROUND 16
#define DOCT_DFT_FOREGROUND 17
#define DOCT_DFT_BACKGROUND 18
#define DOCT_WORD_WRAP 19
#define DOCT_HIGHLIGHT 20
#define DOCT_BLINK 21
#define DOCT_INVERT 22
#define DOCT_UNDERLINE 23
#define DOCT_SHIFTED_X 24
#define DOCT_SHIFTED_Y 25
#define DOCT_CURSOR_MOVEMENT 26
#define DOCT_ANCHOR 27
#define DOCT_LINK 28
#define DOCT_BTTN 29
#define DOCT_DATA 30
#define DOCT_CHECK_BOX 31
#define DOCT_LST 32
#define DOCT_MACRO 33
#define DOCT_MENU_VAL 34
#define DOCT_HEX_ED 35
#define DOCT_TREE 36
#define DOCT_SPRITE 37
#define DOCT_INS_BIN 38
#define DOCT_INS_BIN_SIZE 39
#define DOCT_SONG 40
#define DOCT_HTML_CODE 41
#define DOCT_ERROR 42
#define DOCT_TYPES_NUM 43
//CDocEntry.type flags upper bits
#define DOCET_BLINK ATTRF_BLINK
#define DOCET_INVERT ATTRF_INVERT
#define DOCET_SEL ATTRF_SEL
#define DOCET_UNDERLINE ATTRF_UNDERLINE
#define DOCG_BL_IV_UL 0xB0000000
#define DOCEt_BLINK ATTRf_BLINK
#define DOCEt_INVERT ATTRf_INVERT
#define DOCEt_SEL ATTRf_SEL
#define DOCEt_UNDERLINE ATTRf_UNDERLINE
#define DOCG_DBL_BUF_FLAGS (DOCF_OVERSTRIKE|DOCF_PLAIN_TEXT|\
DOCF_PLAIN_TEXT_TABS|DOCF_SIZE_MIN|DOCF_NO_CURSOR|\
DOCF_FORM|DOCF_DBL_DOLLARS|DOCF_DONT_SWAP_OUT|\
DOCF_DO_FULL_REFRESH|DOCF_BORDER_DOC|DOCF_HIDE_CURSOR|\
DOCF_DONT_HIGHLIGHT_CURSOR|DOCF_CARRIAGE_RETURN)
//CDocEntry.de_flags. These first 16 are arg=
#define DOCEF_TAG 1
#define DOCEF_LEN 2
#define DOCEF_AUX_STR 4
#define DOCEF_DEFINE 8
#define DOCEF_HTML_LINK 0x10
#define DOCEF_LEFT_EXP 0x20
#define DOCEF_LEFT_MACRO 0x40
#define DOCEF_RIGHT_EXP 0x80
#define DOCEF_RIGHT_MACRO 0x100
#define DOCEF_HAS_BIN 0x200
#define DOCEF_BIN_PTR_LINK 0x400
#define DOCEF_RAW_TYPE 0x800
#define DOCEF_SHIFTED_X 0x1000
#define DOCEF_SHIFTED_Y 0x2000
#define DOCEF_SCROLLING_X 0x4000
#define DOCEF_USER_DATA 0x8000
//CDocEntry.de_flags. These are +/- flags
#define DOCEF_LEFT_CB 0x10000
#define DOCEF_LEFT_IN_STR 0x20000
#define DOCEF_RIGHT_CB 0x40000
#define DOCEF_RIGHT_IN_STR 0x80000
#define DOCEF_LEFT_X 0x100000
#define DOCEF_CENTER_X 0x200000
#define DOCEF_RIGHT_X 0x400000
#define DOCEF_TOP_Y 0x800000
#define DOCEF_CENTER_Y 0x1000000
#define DOCEF_BOTTOM_Y 0x2000000
//HL...UL
#define DOCEF_TAG_CB 0x100000000
#define DOCEF_PAGE_REL_Y 0x200000000
#define DOCEF_MARGIN_REL_X 0x400000000
#define DOCEF_WIN_REL 0x800000000
#define DOCEF_LINK 0x1000000000
#define DOCEF_ESC 0x2000000000 //Send <ESC> (Exit and Save)
#define DOCEF_QUIT 0x4000000000 //Send <SHIFT-ESC> (Abort)
#define DOCEF_FROM_START 0x8000000000
#define DOCEF_HAS_BORDER 0x10000000000
#define DOCEF_SOLID_BORDER 0x20000000000
#define DOCEF_BORDER_PLOT 0x40000000000
#define DOCEF_CHECKED_COLLAPSED 0x80000000000 //Checked or Collapsed
#define DOCEF_CHECK_COLLAPSABLE 0x100000000000
#define DOCEF_REFRESH_DATA 0x200000000000
#define DOCEF_UPDATE_DATA 0x400000000000
//$LK,"DOCEF_DEREF_DATA",A="MN:DOCEF_DEREF_DATA"$ is confusing. $LK,"DocForm",A="MN:DocForm"$() makes doc_e->data point to members
//of class. For ints, it derefs doc_e->data as a ptr. For strings, it doesn't.
#define DOCEF_DEREF_DATA 0x800000000000
#define DOCEF_REMALLOC_DATA 0x1000000000000
#define DOCEF_HAS_TERMINATOR 0x2000000000000
#define DOCEF_ZERO_BASED 0x4000000000000
#define DOCEF_HOLD 0x8000000000000
#define DOCEF_TREE 0x10000000000000
#define DOCEF_LST 0x20000000000000
#define DOCEF_SKIP 0x40000000000000
#define DOCEF_POPUP 0x80000000000000
#define DOCEF_SKIP_IN_FORM 0x100000000000000
#define DOCEF_FILTER_SKIP 0x200000000000000
#define DOCEF_NO_CLICK_ON 0x400000000000000
#define DOCEF_DONT_DRAW 0x800000000000000 //only works on sprites
#define DOCEF_DFT_LEN 0x1000000000000000
#define DOCEF_DFT_RAW_TYPE 0x2000000000000000
#define DOCEG_HAS_ALLOC (DOCEF_TAG|DOCEF_AUX_STR|DOCEF_DEFINE|\
DOCEF_HTML_LINK|DOCEF_LEFT_MACRO|DOCEF_RIGHT_MACRO|DOCEF_BIN_PTR_LINK|\
DOCEF_REMALLOC_DATA)
#define DOCEG_HAS_ARG ((DOCEG_HAS_ALLOC&~DOCEF_REMALLOC_DATA)|\
DOCEF_LEN|DOCEF_LEFT_EXP|DOCEF_RIGHT_EXP|DOCEF_HAS_BIN|DOCEF_RAW_TYPE|\
DOCEF_SHIFTED_X|DOCEF_SHIFTED_Y|DOCEF_SCROLLING_X|DOCEF_USER_DATA)
#define DOCEG_DONT_EDIT (DOCEF_DEFINE|DOCEF_HTML_LINK|\
DOCEF_AUX_STR|DOCEF_BIN_PTR_LINK|DOCEF_SCROLLING_X|DOCEF_TAG_CB)
//These are ident to Doc flags
#define DOCEF_HIGHLIGHT 0x4000000
#define DOCEF_WORD_WRAP 0x8000000
#define DOCEF_BLINK ATTRF_BLINK
#define DOCEF_INVERT ATTRF_INVERT
#define DOCEF_SEL ATTRF_SEL
#define DOCEF_UNDERLINE ATTRF_UNDERLINE
#define DOCEf_HIGHLIGHT 26
#define DOCEf_WORD_WRAP 27
#define DOCEf_BLINK ATTRf_BLINK
#define DOCEf_INVERT ATTRf_INVERT
#define DOCEf_SEL ATTRf_SEL
#define DOCEf_UNDERLINE ATTRf_UNDERLINE
//CDocEntry.de_flags. These first 16 are arg=
#define DOCEf_TAG 0
#define DOCEf_LEN 1
#define DOCEf_AUX_STR 2
#define DOCEf_DEFINE 3
#define DOCEf_HTML_LINK 4
#define DOCEf_LEFT_EXP 5
#define DOCEf_LEFT_MACRO 6
#define DOCEf_RIGHT_EXP 7
#define DOCEf_RIGHT_MACRO 8
#define DOCEf_HAS_BIN 9
#define DOCEf_BIN_PTR_LINK 10
#define DOCEf_RAW_TYPE 11
#define DOCEf_SHIFTED_X 12
#define DOCEf_SHIFTED_Y 13
#define DOCEf_SCROLLING_X 14
#define DOCEf_USER_DATA 15
//CDocEntry.de_flags. These are +/- flags
#define DOCEf_LEFT_CB 16
#define DOCEf_LEFT_IN_STR 17
#define DOCEf_RIGHT_CB 18
#define DOCEf_RIGHT_IN_STR 19
#define DOCEf_LEFT_X 20
#define DOCEf_CENTER_X 21
#define DOCEf_RIGHT_X 22
#define DOCEf_TOP_Y 23
#define DOCEf_CENTER_Y 24
#define DOCEf_BOTTOM_Y 25
//HL...UL
#define DOCEf_TAG_CB 32
#define DOCEf_PAGE_REL_Y 33
#define DOCEf_MARGIN_REL_X 34
#define DOCEf_WIN_REL 35
#define DOCEf_LINK 36
#define DOCEf_ESC 37 //Send <ESC> (Exit and Save)
#define DOCEf_QUIT 38 //Send <SHIFT-ESC> (Abort)
#define DOCEf_FROM_START 39
#define DOCEf_HAS_BORDER 40
#define DOCEf_SOLID_BORDER 41
#define DOCEf_BORDER_PLOT 42
#define DOCEf_CHECKED_COLLAPSED 43 //Checked or Collapsed
#define DOCEf_CHECK_COLLAPSABLE 44
#define DOCEf_REFRESH_DATA 45
#define DOCEf_UPDATE_DATA 46
#define DOCEf_DEREF_DATA 47
#define DOCEf_REMALLOC_DATA 48
#define DOCEf_HAS_TERMINATOR 49
#define DOCEf_ZERO_BASED 50
#define DOCEf_HOLD 51
#define DOCEf_TREE 52
#define DOCEf_LST 53
#define DOCEf_SKIP 54
#define DOCEf_POPUP 55
#define DOCEf_SKIP_IN_FORM 56
#define DOCEf_FILTER_SKIP 57
#define DOCEf_NO_CLICK_ON 58
#define DOCEf_DONT_DRAW 59 //only works on sprites
#define DOCEf_DFT_LEN 60
#define DOCEf_DFT_RAW_TYPE 61
#define DOCEf_FLAGS_NUM 62
public class CDocBin
{
CDocBin *next,*last;
I32 tmp_use_cnt,renum_num;
U8 *tag;
U0 start;
U32 num,flags,size,use_cnt;
U0 end;
U8 *data;
#assert !($$&7)
};
#define DOC_SCROLL_SPEED 8
#define DOCSS_NORMAL 0
#define DOCSS_SINGLE_QUOTE 1
#define DOCSS_DBL_QUOTE 2
#define DOCSS_COMMENT 3
#define DOCSS_CPP_Z_COMMENT 4
#define DOC_ATTR_DFT_TEXT WHITE<<4+BLACK
#define DOC_COLOR_ALT_TEXT LTGRAY
#define DOC_COLOR_LINK RED
#define DOC_COLOR_MACRO LTBLUE
#define DOC_COLOR_ANCHOR DKGRAY
#define DOC_COLOR_TREE PURPLE
#define DOC_COLOR_PMT GREEN
#define DOC_COLOR_COMMENT GREEN
#define DOC_COLOR_BIN LTGREEN
#define DOC_COLOR_STR BROWN
#define DOC_COLOR_CHAR_CONST BROWN
#define DOC_COLOR_EXPORT_SYS_SYM LTPURPLE
#define DOC_COLOR_DEFINE_STR CYAN
#define DOC_COLOR_GLBL_VAR LTCYAN
#define DOC_COLOR_CLASS LTBLUE
#define DOC_COLOR_FUN PURPLE
#define DOC_COLOR_KEYWORD BLUE
#define DOC_COLOR_REG LTRED
public class CDocSettings
{
U32 final_u32_attr;
I16 left_margin,right_margin,indent;
U16 page_len,header,footer;
I8 shifted_x,shifted_y;
U8 state,comment_depth,paren_depth,brace_depth,
cur_text_attr,dft_text_attr;
};
#define DOC_DFT I32_MIN
public class CDocEntryBase
{
//This is a shortened structure for
//cmds like the text cmd which
//don't require the full CDocEntry structure.
CDocEntryBase *next,*last;
U8 *tag;
union {
U8 type_u8; //this stores the code
U32 type; //these store attr flags
};
I32 page_line_num;
I64 de_flags;
I32 x,y;
U32 min_col,max_col;
CDocSettings settings;
I64 user_data;
#assert !($$&7)
};
#define DOCE_LEN_DFT 64
public class CDocEntry:CDocEntryBase
{
union {
I64 attr;
I64 cursor_x_offset;
I64 (*left_cb)(CDoc *doc,CDocEntry *doc_e);
I64 left_exp;
};
U8 *left_macro;
union {
I64 cursor_y_offset;
I64 (*right_cb)(CDoc *doc,CDocEntry *doc_e);
I64 right_exp;
};
U8 *right_macro;
U8 *(*tag_cb)(CDoc *doc,CDocEntry *doc_e,CTask *mem_task);
U8 *define_str,
*aux_str,
*bin_ptr_link,
*html_link,
*my_fmt_data;
I64 hex_ed_width;
I32 scroll_len,
len, //$LK,"DOCE_LEN_DFT",A="MN:DOCE_LEN_DFT"$
bin_num;
U8 raw_type,pad[3];
CDocBin *bin_data;
U8 *data;
#assert !($$&7)
};
//$LK,"DocForm",A="MN:DocForm"$() $LK,"DocMenu",A="MN:DocMenu"$() $LK,"DocEd",A="MN:DocEd"$() $LK,"PopUpMenu",A="MN:PopUpMenu"$()
#define DOF_SIZE_MIN 0x01
#define DOF_INTERCEPT_TASK_END 0x02
#define DOF_DONT_HOME 0x04
#define DOF_WIN_MAX 0x08
#define DOF_DONT_TEXT_ATTR 0x10
#define DOF_DONT_WINMGR_SYNC 0x20
#define DOF_DONT_SHOW 0x40
//Combines with $LK,"Editor Flags",A="MN:EDF_BAIL"$
class CEdFindText
{
U8 find_text[STR_LEN] format "$$DA-P,"
"A=\"Find :%s\"$$\n",
replace_text[STR_LEN] format "$$DA-P,"
"A=\"Replace :%s\"$$\n";
Bool replace format "$$CB,\"Replace\"$$\n",
scan_fwd format "$$CB,\"Fwd\"$$\n",
scan_sel_text format "$$CB,\"Selection\"$$\n",
match_case format "$$CB,\"Match Case\"$$\n",
whole_labels format "$$CB,\"Whole Labels\"$$\n",
local_var format "$$CB,\"Rename Local Var\"$$\n",
pmt,pad;
I64 filter_lines format "$$DA,A=\"Filter Lines:%d\"$$\n";
};
class CEdFileName
{
CDirContext *dirc;
U8 name[256] format "$$DA-P,LEN=255,A=\"FileName:%s\"$$";
};
//$LK,"Ed",A="MN:Ed"$()
#define EDF_BAIL 0x100
#define EDF_COLLAPSE 0x200
#define EDF_UNCOLLAPSE 0x400
#define EDF_WAS_WRITE 0x800 //Was exit ESC or SHIFT_ESC?
//Combines with $LK,"Document Flags",A="MN:DOF_SIZE_MIN"$
#define EDf_BAIL 8
#define EDf_COLLAPSE 9
#define EDf_UNCOLLAPSE 10
#define EDf_WAS_WRITE 11
// DOC header flags
#define DOCF_PLAIN_TEXT 0x1
#define DOCF_PLAIN_TEXT_TABS 0x2 //has '\t', not DOCT_TAB
#define DOCF_AUTO_SAVE 0x4
#define DOCF_NO_CURSOR 0x8
#define DOCF_CARRIAGE_RETURN 0x10
#define DOCF_DBL_DOLLARS 0x20
#define DOCF_COLOR_NAMES 0x40
//Reserved x1
#define DOCF_BORDER_DOC 0x100
#define DOCF_FORM 0x200
#define DOCF_SIZE_MIN 0x400
#define DOCF_HIDE_CURSOR 0x800 //use $LK,"DocCursor",A="MN:DocCursor"$
#define DOCF_DONT_HIGHLIGHT_CURSOR 0x1000 //use $LK,"DocHighlightCursor",A="MN:DocHighlightCursor"$
#define DOCF_NO_SCROLL_BARS 0x2000 //use $LK,"DocScroll",A="MN:DocScroll"$
#define DOCF_ALLOW_UNDO 0x4000
#define DOCF_DONT_SHOW 0x8000
#define DOCF_HAS_SONG 0x10000
#define DOCF_MORE 0x20000
#define DOCF_BWD_MOVEMENT 0x40000
#define DOCF_NULL_GRAB_SCROLL 0x80000
#define DOCF_DONT_SWAP_OUT 0x100000
#define DOCF_DO_FULL_REFRESH 0x200000
#define DOCF_BREAK_UNLOCKED 0x400000
//Reserved x1
#define DOCF_HIGHLIGHT DOCEF_HIGHLIGHT
#define DOCF_WORD_WRAP DOCEF_WORD_WRAP
#define DOCF_BLINK DOCEF_BLINK
#define DOCF_INVERT DOCEF_INVERT
#define DOCF_SEL DOCEF_SEL
#define DOCF_UNDERLINE DOCEF_UNDERLINE
#define DOCF_OVERSTRIKE 0x100000000
#define DOCF_IN_DOLLAR 0x200000000
#define DOCF_SUPERSCRIPT_MODE 0x400000000
#define DOCF_SUBSCRIPT_MODE 0x800000000
#define DOCF_UNDO_DIRTY 0x1000000000
#define DOCf_PLAIN_TEXT 0
#define DOCf_PLAIN_TEXT_TABS 1 //has '\t', not DOCT_TAB
#define DOCf_AUTO_SAVE 2
#define DOCf_NO_CURSOR 3
#define DOCf_CARRIAGE_RETURN 4
#define DOCf_DBL_DOLLARS 5
#define DOCf_COLOR_NAMES 6
//Reserved x1
#define DOCf_BORDER_DOC 8
#define DOCf_FORM 9
#define DOCf_SIZE_MIN 10
#define DOCf_HIDE_CURSOR 11 //use $LK,"DocCursor",A="MN:DocCursor"$
#define DOCf_DONT_HIGHLIGHT_CURSOR 12 //use $LK,"DocHighlightCursor",A="MN:DocHighlightCursor"$
#define DOCf_NO_SCROLL_BARS 13 //use $LK,"DocScroll",A="MN:DocScroll"$
#define DOCf_ALLOW_UNDO 14
#define DOCf_DONT_SHOW 15
#define DOCf_HAS_SONG 16
#define DOCf_MORE 17
#define DOCf_BWD_MOVEMENT 18
#define DOCf_NULL_GRAB_SCROLL 19
#define DOCf_DONT_SWAP_OUT 20
#define DOCf_DO_FULL_REFRESH 21
#define DOCf_BREAK_UNLOCKED 22
//Reserved x1
#define DOCf_HIGHLIGHT DOCEf_HIGHLIGHT
#define DOCf_WORD_WRAP DOCEf_WORD_WRAP
#define DOCf_BLINK DOCEf_BLINK
#define DOCf_INVERT DOCEf_INVERT
#define DOCf_SEL DOCEf_SEL
#define DOCf_UNDERLINE DOCEf_UNDERLINE
#define DOCf_OVERSTRIKE 32
#define DOCf_IN_DOLLAR 33
#define DOCf_SUPERSCRIPT_MODE 34
#define DOCf_SUBSCRIPT_MODE 35
#define DOCf_UNDO_DIRTY 36
//locked flags
#define DOClf_LOCKED 0
class CDocUndo
{
CDocUndo *next,*last;
I64 size,doc_flags,time_stamp;
U8 *body;
};
//See $LK,"DocMenu",A="MN:DocMenu"$()
#define DOCM_CANCEL (-1)
#define DOC_SIGNATURE_VAL 'DocS'
#define RECALCt_NORMAL 0x00
#define RECALCt_FIND_CURSOR 0x01
#define RECALCt_TO_SCRN 0x02
#define RECALCG_MASK 0xFF
#define RECALCF_HAS_CURSOR 0x100
#define RECALCF_ADD_CURSOR 0x200
#define RECALCF_TO_HTML 0x400
public class CDoc //Linked Text File header
{//See $LK,"Doc",A="HI:Doc"$ for documentation.
CDocEntryBase head;
I64 flags,locked_flags;
CDocEntry *cur_entry,*old_cur_entry;
I32 cur_col,old_cur_col,
line_start_col,top_line_num,
dollar_buf_size,dollar_buf_ptr;
U8 *dollar_buf; //When entering $$ cmds, it buffers them until the end $$.
CTask *win_task,*mem_task,*owning_task;
I32 page_line_num,undo_cnt,
x,y,min_x,max_x,min_y,max_y;
I64 line,col,best_d,
old_win_top,old_win_bottom,
old_win_left,old_win_right,
cmd_U8;
U32 doc_signature,cur_bin_num;
I64 max_entries,
updates_cnt;
CEdFindText *find_replace;
CEdFileName filename;
I64 file_attr;
I64 (*left_click_link)(CDoc *doc,CDocEntry *doc_e);
I64 (*right_click_link)(CDoc *doc,CDocEntry *doc_e);
//See $LK,"::/Apps/Psalmody/JukeBox.HC"$
U8 *user_put_data; //Passed to user_put_key() and user_put_s()
Bool (*user_put_key)(CDoc *doc,U8 *data,I64 ch,I64 sc);
Bool (*user_put_s)(CDoc *doc,U8 *data,U8 *st);
CDoc *parent_doc; //(When browsing deeper, opening deeper docs.)
U64 desc; //8 characters. See $LK,"DocBorderLstDraw",A="MN:DocBorderLstDraw"$().
CDocBin bin_head;
CDocSettings settings_head;
CDocUndo undo_head;
I64 user_data;
#assert !($$&7)
};
#help_index "Windows"
/*
Fs->win_inhibit mask
Some inhibit actions on the task itself.
Some inhibit actions if the focus task
tries to do something.
*/
#define WIF_SELF_FOCUS 0x0001 //If active this task cannot have focus
//MENU 0x0002
#define WIF_SELF_CTRLS 0x0004
#define WIF_SELF_MS_L 0x0008
//MS_L_D 0x0010
#define WIF_SELF_MS_R 0x0020
//MS_R_D 0x0040
#define WIF_SELF_MS_WHEEL 0x0080 //Does nothing, yet
#define WIF_SELF_BORDER 0x0100
#define WIF_SELF_GRAB_SCROLL 0x0200
#define WIF_SELF_DOC 0x0400
#define WIF_SELF_ODE 0x0800
#define WIF_SELF_KEY_DESC 0x1000
//FOCUS 0x00010000
#define WIF_FOCUS_TASK_MENU 0x00020000
#define WIF_FOCUS_TASK_CTRLS 0x00040000
#define WIF_FOCUS_TASK_MS_L 0x00080000
#define WIF_FOCUS_TASK_MS_L_D 0x00100000
#define WIF_FOCUS_TASK_MS_R 0x00200000
#define WIF_FOCUS_TASK_MS_R_D 0x00400000
#define WIF_FOCUS_TASK_MS_WHEEL 0x00800000 //Does nothing, yet
#define WIF_FOCUS_TASK_BORDER 0x01000000
#define WIF_FOCUS_TASK_GRAB_SCROLL 0x02000000
#define WIG_DBL_CLICK (WIF_FOCUS_TASK_MS_L_D|WIF_FOCUS_TASK_MS_R_D)
#define WIG_TASK_DFT (WIF_FOCUS_TASK_MENU|WIG_DBL_CLICK|\
0xFFFF-WIF_SELF_DOC-WIF_SELF_ODE)
#define WIG_NO_FOCUS_TASK_DFT (WIG_TASK_DFT-WIF_SELF_BORDER\
-WIF_SELF_MS_L-WIF_SELF_MS_R-WIG_DBL_CLICK)
#define WIG_USER_TASK_DFT WIF_SELF_KEY_DESC
#define WIf_SELF_FOCUS 0
#define WIf_SELF_CTRLS 2
#define WIf_SELF_MS_L 3
#define WIf_SELF_MS_R 5
#define WIf_SELF_MS_WHEEL 7
#define WIf_SELF_BORDER 8
#define WIf_SELF_GRAB_SCROLL 9
#define WIf_SELF_DOC 10
#define WIf_SELF_ODE 11
#define WIf_SELF_KEY_DESC 12
#define WIf_FOCUS_TASK_MENU 17
#define WIf_FOCUS_TASK_CTRLS 18
#define WIf_FOCUS_TASK_MS_L 19
#define WIf_FOCUS_TASK_MS_L_D 20
#define WIf_FOCUS_TASK_MS_R 21
#define WIf_FOCUS_TASK_MS_R_D 22
#define WIf_FOCUS_TASK_MS_WHEEL 23
#define WIf_FOCUS_TASK_BORDER 24
#define WIf_FOCUS_TASK_GRAB_SCROLL 25
class CWinMgrTimingGlbls
{
I64 last_total_jiffies,
last_idle_pt_hits[MP_PROCESSORS_NUM],
last_swap_cnter[MP_PROCESSORS_NUM];
F64 last_calc_idle_time,calc_idle_delta_time;
I64 calc_idle_cnt;
};
#define WINMGR_FPS (30000.0/1001)
#define WINMGR_PERIOD (1001/30000.0)
public class CWinMgrGlbls
{
I64 updates;
F64 ode_time,
last_ode_time,
fps, //You can read but not write this. You have no control.
ideal_refresh_tS,
last_refresh_tS;
CWinMgrTimingGlbls *t;
Bool show_menu,grab_scroll,grab_scroll_closed;
};
#help_index "AutoComplete"
#define ACf_INIT_IN_PROGRESS 0
#define AC_FILLINS_NUM 10
public class CAutoCompleteGlbls
{
I64 num_words;
CHashTable *hash_table;
U8 *cur_word;
I64 flags;
CTask *task;
I64 partial_len,num_fillins,
fillin_hits [AC_FILLINS_NUM+1];
CHashAC *fillin_matches[AC_FILLINS_NUM+1];
};
#help_index "AutoComplete/Dictionary"
#define ACD_WORD_FILENAME "/Adam/AutoComplete/ACWords.DATA.Z"
#define ACD_DEF_FILENAME "/Adam/AutoComplete/ACDefs.DATA"
#define ACD_DEF_FILENAME_Z "/Adam/AutoComplete/ACDefs.DATA.Z"
#define ACD_H1 0
#define ACD_H1_END 1
#define ACD_DEF 2
#define ACD_DEF_END 3
#define ACD_PRONUNCIATION 4
#define ACD_PRONUNCIATION_END 5
#define ACD_POS 6
#define ACD_POS_END 7
#define ACD_EXTRA 8
#define ACD_EXTRA_END 9
#define ACD_BLK_SIZE 0x4000
#define ACD_END_CHAR 0x00
#define ACD_WORD_CHAR 0x01
#define ACD_DEF_CHAR 0x02
#define ACD_PRONUNCIATION_CHAR 0x03
#define ACD_POS_CHAR 0x04
#define ACD_EXTRA_CHAR 0x05
#define ACD_FILLINS_NUM 10
public class CAutoCompleteDictGlbls
{
U8 *word_lst;
I64 word_lst_size,num_words,num_fillins;
U8 *fillins[ACD_FILLINS_NUM];
Bool has_words,has_defs;
};
#help_index "Compiler/Directive"
//Compiler $LK,"Option",A="MN:Option"$()s
//You might need to do #exe {Option();}
//Note: The #exe stmt is lexed-ahead,
//so it takes effect earlier than you might expect.
#define OPTf_ECHO 0x00
#define OPTf_TRACE 0x01
#define OPTf_WARN_UNUSED_VAR 0x10 //Applied to funs, not stmts
#define OPTf_WARN_PAREN 0x11 //Warn unnecessary parens
#define OPTf_WARN_DUP_TYPES 0x12 //Warn dup local var type stmts
#define OPTf_WARN_HEADER_MISMATCH 0x13
#define OPTf_EXTERNS_TO_IMPORTS 0x20
#define OPTf_KEEP_PRIVATE 0x21
#define OPTf_NO_REG_VAR 0x22 //Applied to funs, not stmts
#define OPTf_GLBLS_ON_DATA_HEAP 0x23
//Disable 10-byte float consts for ã,log2_10,log10_2,loge_2
#define OPTf_NO_BUILTIN_CONST 0x24 //Applied to funs, not stmts
#define OPTf_USE_IMM64 0x25 //Not completely implemented
#define OPTF_ECHO (1<<OPTf_ECHO)
#help_index "Compiler/Intermediate Code"
//See $LK,"ST_RAW_TYPES",A="MN:ST_RAW_TYPES"$
#define RT_I0 2
#define RT_U0 3
#define RT_I8 4
#define RT_U8 5
#define RT_I16 6
#define RT_U16 7
#define RT_I32 8
#define RT_U32 9
#define RT_I64 10
#define RT_PTR 10 //Signed to allow negative err codes. $LK,"DOCM_CANCEL",A="MN:DOCM_CANCEL"$
#define RT_U64 11
#define RT_F32 12 //Not implemented
#define RT_UF32 13 //Not implemented, Fictitious
#define RT_F64 14
#define RT_UF64 15 //Fictitious
#define RT_RTS_NUM 16
#define RTF_UNSIGNED 1
#define RTG_MASK 0xFF
#define MDf_STK 8
#define MDf_IMM 9
#define MDf_REG 10
#define MDf_DISP 11
#define MDf_SIB 12
#define MDf_RIP_DISP32 13
#define MDF_NULL 0x0000
#define MDF_STK 0x0100
#define MDF_IMM 0x0200
#define MDF_REG 0x0400
#define MDF_DISP 0x0800
#define MDF_SIB 0x1000
#define MDF_RIP_DISP32 0x2000
#define MDG_MASK 0xFF00
#define MDG_REG_DISP_SIB (MDF_REG|MDF_DISP|MDF_SIB)
#define MDG_DISP_SIB_RIP (MDF_DISP|MDF_SIB|MDF_RIP_DISP32)
#define MDG_REG_DISP_SIB_RIP (MDF_REG|MDG_DISP_SIB_RIP)
#define ICF_RES_TO_F64 0x000000001
#define ICF_RES_TO_INT 0x000000002
#define ICF_ARG1_TO_F64 0x000000004
#define ICF_ARG1_TO_INT 0x000000008
#define ICF_ARG2_TO_F64 0x000000010
#define ICF_ARG2_TO_INT 0x000000020
#define ICF_USE_F64 0x000000040
#define ICF_USE_UNSIGNED 0x000000080
#define ICF_USE_INT 0x000000100 //highest priority
#define ICF_RES_NOT_USED 0x000000200
#define ICF_CODE_FINAL 0x000000400
#define ICF_BY_VAL 0x000000800 //By value, not ref.
#define ICF_SHORT_JMP 0x000001000
#define ICF_PUSH_RES 0x000002000
#define ICF_PASS_TRACE 0x000004000
#define ICF_RES_WAS_STK 0x000008000
#define ICF_ARG1_WAS_STK 0x000010000
#define ICF_ARG2_WAS_STK 0x000020000
#define ICF_PUSH_CMP 0x000040000 //for 50<i<j<=100 exps
#define ICF_POP_CMP 0x000080000 //for 50<i<j<=100 exps
#define ICF_SWAP 0x000100000
#define ICf_DONT_PUSH_FLOAT0 21 // 3bits
#define ICf_DONT_POP_FLOAT0 24 // 3bits
#define ICF_ALT_TEMPLATE 0x008000000
#define ICF_LOCK 0x010000000
#define ICf_LOCK 28
#define ICF_NO_RIP 0x020000000
#define ICF_DEL_PREV_INS 0x040000000
#define ICF_PREV_DELETED 0x080000000
#define ICF_DONT_RESTORE 0x100000000
#define ICG_NO_CVT_MASK 0x1FFFFFF00
#define IC_BODY_SIZE 0x83
#define ECF_HAS_PUSH_CMP 0x01 //for 50<i<j<=100 exps
U16 class CICType
{
U8 raw_type,mode;
};
class CICArg
{
CICType type;
U16 reg; //low is reg, high is index_reg+scale<<6
I64 disp;
};
class CICTreeLinks
{
CHashClass *arg1_class,*arg2_class;
CIntermediateCode *arg1_tree,*arg2_tree;
CHashClass *class2;
};
class CIntermediateCodeBase
{
CIntermediateCode *next,*last;
U16 ic_code,
ic_precedence;
I16 ic_cnt,
ic_last_start;
};
class CIntermediateCode:CIntermediateCodeBase
{
I64 ic_flags,
ic_data,
ic_line;
CHashClass *ic_class,*ic_class2;
CICArg arg1,arg2,res;
U8 arg1_type_pointed_to; //Used for $LK,"IST_ASSIGN",A="MN:IST_ASSIGN"$ and $LK,"IST_DEREF",A="MN:IST_DEREF"$ $LK,"ic_codes",A="MN:intermediate_code_table"$.
union {
U8 ic_body[IC_BODY_SIZE];
//Tree Links are created in OptPass012. An ADD opcode, for example,
//points back to its two earlier arg CIntermediateCode's.
//Tree links get destroyed during Pass789A when they get overwrites
//by machine code. (Saves room to union the output machine code buffer
//with these links, since they are not needed after pass4.
//Tree links are used during passes 012 and 3 for determining types.
CICTreeLinks t;
};
#assert !($$&7)
};
class CPrsStk
{
I64 ptr,
stk[255],
ptr2,
stk2[255];
};
#define CMT_LABEL 0
#define CMT_ASM_LABEL 1
#define CMT_GOTO_LABEL 2
#define CMT_STR_CONST 3
#define CMT_JMP_TABLE 4
#define CMT_FLOAT_CONSTS 5
#define CMT_ARRAY_DIM 6
#define CMT_HASH_ENTRY 7
#define CMF_POP_CMP 0x01
#define CMF_DEFINED 0x02
#define CMF_I8_JMP_TABLE 0x04
#define CMF_U8_JMP_TABLE 0x08
#define CMF_I16_JMP_TABLE 0x10
#define CMF_U16_JMP_TABLE 0x20
#define CM_CONSTS_NUM 16
class CCodeMisc
{
CCodeMisc *next,*last,*fwd,*dft,*begin;
U8 *str;
U32 type,flags;
I64 use_cnt;
U8 *addr;
union {
I64 st_len; //STR_CONST
I64 num_consts; //FLOAT_CONSTS
I64 range;
I64 rip; //ASM_LABEL
}
union {
CCodeMisc **jmp_table;
F64 *float_consts;
CArrayDim *dim;
CHash *h;
};
};
#help_index "Compiler/Assembler"
#define IEF_OP_SIZE16 0x001
#define IEF_OP_SIZE32 0x002
#define IEF_PLUS_OPCODE 0x004
#define IEF_DONT_SWITCH_MODES 0x008
#define IEF_DFT 0x010
#define IEF_NOT_IN_64_BIT 0x020
#define IEF_48_REX 0x040
#define IEF_REX_ONLY_R8_R15 0x080
#define IEF_REX_XOR_LIKE 0x100
#define IEF_STI_LIKE 0x200
#define IEF_ENDING_ZERO 0x400
//Slash value
#define SV_R_REG 8
#define SV_I_REG 9
#define SV_STI_LIKE 10 //$LK,"uasm_slash_val",A="FF:::/Compiler/AsmInit.HC,uasm_slash_val"$ only.
#define SV_NONE 11
class CInst
{
U8 ins_entry_num, //This entry num in opcode hash entry
opcode_cnt,
opcode[4];
U16 flags;
U8 slash_val,uasm_slash_val,opcode_modifier,
arg1,arg2,
size1,size2,//Size in bits
pad;
};
//x86 opcodes
#define OC_OP_SIZE_PREFIX 0x66
#define OC_ADDR_SIZE_PREFIX 0x67
#define OC_LOCK_PREFIX 0xF0
#define OC_NOP 0x90
#define OC_BPT 0xCC
#define OC_CALL 0xE8
#define OC_JMP_REL8 0xEB
#define OC_NOP2 (OC_NOP<<8+OC_OP_SIZE_PREFIX)
#define PUSH_C_REGS PUSH RAX PUSH RCX PUSH RDX PUSH RBX PUSH R8 PUSH R9
#define POP_C_REGS POP R9 POP R8 POP RBX POP RDX POP RCX POP RAX
#define PUSH_REGS PUSH RAX PUSH RCX PUSH RDX PUSH RBX PUSH RBP PUSH RSI \
PUSH RDI PUSH R8 PUSH R9 PUSH R10 PUSH R11 PUSH R12 PUSH R13 PUSH R14 PUSH R15
#define POP_REGS POP R15 POP R14 POP R13 POP R12 POP R11 POP R10 POP R9 \
POP R8 POP RDI POP RSI POP RBP POP RBX POP RDX POP RCX POP RAX
#define REG_RAX 0
#define REG_RCX 1
#define REG_RDX 2
#define REG_RBX 3
#define REG_RSP 4
#define REG_RBP 5
#define REG_RSI 6
#define REG_RDI 7
#define REG_R8 8
#define REG_REGS_NUM 16
#define REG_RIP 16 //Used by compiler, not really it's num
//Be careful: RBPu8, RSPu8, RSIu8, RDIu8 are 20-24
#define REG_NONE 32 //noreg flag sets it to this
#define REG_ALLOC 33 //reg flag sets it to this
#define REG_UNDEF I8_MIN
#define REGG_CLOBBERED 0x013F //RAX,RCX,RDX,RBX,R8
#define REGG_SAVED 0x0030 //RBP,RSP
#define REGG_STK_TMP 0x0200 //R9
#define REGG_LOCAL_VARS 0xCCC0 //RSI,RDI,R10,R11,R14,R15
#define REGG_LOCAL_NON_PTR_VARS 0x3000 //R12,R13
#define AOT_BIN_BLK_BITS 16
#define AOT_BIN_BLK_SIZE (1<<AOT_BIN_BLK_BITS)
class CAOTBinBlk
{
CAOTBinBlk *next;
U8 body[AOT_BIN_BLK_SIZE];
};
I64 class CAbsCntsI64
{
U16 abs_addres, //Only odd/even matters. Cnt of absolute addres in an exp.
c_addres; //Only odd/even matters. Cnt of C addres in an exp.
U32 externs; //Only nonzero matters. Some regions have externs banned.
};
class CAsmUndefHash
{//Only place created is $LK,"Exp Parser",A="FF:::/Compiler/PrsExp.HC,sizeof(CAsmUndefHash)"$ when an undef is found in an ASM exp.
CAsmUndefHash *next;
CHashExport *hash;
};
class CAsmNum
{
I64 i;
U8 *machine_code;
CAsmUndefHash *local_asm_undef_hash,*glbl_asm_undef_hash;
CAbsCntsI64 abs_cnts;
};
class CAsmNum2
{
CAsmNum num;
I64 U8_cnt,rel;
Bool imm_flag;
};
class CAsmIns
{
CInst *tmpins;
CAsmNum2 imm,disp;
I64 U8_cnt,last_opcode_U8,
REX,ModrM,SIB;
Bool has_REX,has_ModrM,has_SIB,
has_addr_prefix,
has_operand_prefix,
is_dft,pad[2];
};
class CAsmArg
{
CAsmNum num;
I64 seg,size, //Size in bytes
reg1,reg2,
reg1_type,reg2_type,
scale;
Bool indirect,imm_or_off_present,just_seg,pad[5];
};
class CAsmUnresolvedRef
{
CAsmUnresolvedRef *next;
I64 type,line_num;
U8 *machine_code;
I64 rip,rel_rip;
CAOT *aot;
U8 *str; //Only for import glbls
CAsmUndefHash *asm_undef_hash;
Bool U8_avail,
imm_flag;//Only for import glbls
};
//Opcode Modifier
#define OM_NO 0
#define OM_CB 1
#define OM_CW 2
#define OM_CD 3
#define OM_CP 4
#define OM_IB 5
#define OM_IW 6
#define OM_ID 7
#define ARGT_NONE 0
#define ARGT_REL8 1
#define ARGT_REL16 2
#define ARGT_REL32 3
#define ARGT_IMM8 4
#define ARGT_IMM16 5
#define ARGT_IMM32 6
#define ARGT_IMM64 7
#define ARGT_UIMM8 8
#define ARGT_UIMM16 9
#define ARGT_UIMM32 10
#define ARGT_UIMM64 11
#define ARGT_R8 12
#define ARGT_R16 13
#define ARGT_R32 14
#define ARGT_R64 15
#define ARGT_RM8 16
#define ARGT_RM16 17
#define ARGT_RM32 18
#define ARGT_RM64 19
#define ARGT_M8 20
#define ARGT_M16 21
#define ARGT_M32 22
#define ARGT_M64 23
#define ARGT_M1632 24 // Not implemented
#define ARGT_M16N32 25 // Not implemented
#define ARGT_M16N16 26 // Not implemented
#define ARGT_M32N32 27 // Not implemented
#define ARGT_MOFFS8 28
#define ARGT_MOFFS16 29
#define ARGT_MOFFS32 30
#define ARGT_MOFFS64 31
#define ARGT_AL 32
#define ARGT_AX 33
#define ARGT_EAX 34
#define ARGT_RAX 35
#define ARGT_CL 36
#define ARGT_DX 37
#define ARGT_SREG 39
#define ARGT_SS 40
#define ARGT_DS 41
#define ARGT_ES 42
#define ARGT_FS 43
#define ARGT_GS 44
#define ARGT_CS 45
#define ARGT_ST0 46
#define ARGT_STI 47
#define ARGT_MM 48 // Not implemented
#define ARGT_MM32 49 // Not implemented
#define ARGT_MM64 50 // Not implemented
#define ARGT_XMM 51 // Not implemented
#define ARGT_XMM32 52 // Not implemented
#define ARGT_XMM64 53 // Not implemented
#define ARGT_XMM128 54 // Not implemented
#define ARGT_XMM0 55 // Not implemented
#help_index "Compiler/Internal;Hash/System"
#define OCF_ALIAS 1
public class CHashOpcode:CHash
{
U16 inst_entry_cnt,
oc_flags,pad[2];
CInst ins[1];
};
#help_index "Compiler/Intermediate Code"
#define IEF_GOTO_LABEL 1
class CAOTImportExport
{
CAOTImportExport *next,*last;
I64 rip,flags;
CAOT *aot;
U8 *str,
*src_link,
type,pad[7];
};
#define AAT_ADD_U8 0
#define AAT_SUB_U8 1
#define AAT_ADD_U16 2
#define AAT_SUB_U16 3
#define AAT_ADD_U32 4
#define AAT_SUB_U32 5
#define AAT_ADD_U64 6
#define AAT_SUB_U64 7
class CAOTAbsAddr
{
CAOTAbsAddr *next;
I64 rip;
U8 type,pad[7];
};
class CAOTHeapGlblRef
{
CAOTHeapGlblRef *next;
I64 rip;
};
class CAOTHeapGlbl
{
CAOTHeapGlbl *next;
U8 *str;
I64 size;
CAOTHeapGlblRef *references;
};
class CAOT
{
CAOT *next,*last;
U8 *buf;
I64 rip,rip2,
aot_U8s,
max_align_bits,org;
CAOT *parent_aot;
CAOTImportExport *next_ie,*last_ie;
CAOTAbsAddr *abss;
CAOTHeapGlbl *heap_glbls;
};
class CStreamBlk
{
CStreamBlk *next,*last;
U8 *body;
};
class CCodeCtrl
{
CCodeCtrl *coc_next;
CCodeMisc *coc_next_misc,*coc_last_misc;
CIntermediateCodeBase coc_head;
};
#help_index "Compiler/Lex"
#define __DATE__ #exe{StreamPrint("\"%D\"",Now);}
#define __TIME__ #exe{StreamPrint("\"%T\"",Now);}
#define __LINE__ #exe{StreamPrint("%d",\
Fs->last_cc->lex_include_stk->line_num);}
#define __CMD_LINE__ #exe{StreamPrint("%d",Fs->last_cc->flags&CCF_CMD_LINE &&\
Fs->last_cc->lex_include_stk->depth<1);}
#define __FILE__ #exe{StreamPrint("\"%s\"",\
Fs->last_cc->lex_include_stk->full_name);}
#define __DIR__ #exe{StreamDir;}
#define LFSF_DOC 1
#define LFSF_DEFINE 2
class CLexFile
{
CLexFile *next;
U8 *buf,
*buf_ptr;
I64 line_num,flags;
U8 *full_name,
*line_start;
CDoc *doc;
CDocEntry *cur_entry;
I32 depth;
U8 last_U16,pad[3];
};
class CAOTCtrl
{
I64 rip; //Inst ptr
CAsmArg arg1,arg2;
CAOTBinBlk *bin;
I64 num_bin_U8s,
max_align_bits,org;
CAsmUnresolvedRef *local_unresolved,*glbl_unresolved;
CAOTAbsAddr *abss;
CAOTHeapGlbl *heap_glbls;
I64 lst_col,lst_last_rip;
U8 *last_label,*lst_last_line;
CLexFile *lst_last_lfn;
I64 seg_size;
Bool lst;
};
//Tokens
#define TK_EOF 0
#define TK_SUPERSCRIPT 0x001
#define TK_SUBSCRIPT 0x002
#define TK_NORMALSCRIPT 0x003
#define TK_IDENT 0x100
#define TK_STR 0x101
#define TK_I64 0x102
#define TK_CHAR_CONST 0x103
#define TK_F64 0x104
#define TK_PLUS_PLUS 0x105
#define TK_MINUS_MINUS 0x106
#define TK_DEREFERENCE 0x107
#define TK_DBL_COLON 0x108
#define TK_SHL 0x109
#define TK_SHR 0x10A
#define TK_EQU_EQU 0x10B
#define TK_NOT_EQU 0x10C
#define TK_LESS_EQU 0x10D
#define TK_GREATER_EQU 0x10E
#define TK_AND_AND 0x10F
#define TK_OR_OR 0x110
#define TK_XOR_XOR 0x111
#define TK_SHL_EQU 0x112
#define TK_SHR_EQU 0x113
#define TK_MUL_EQU 0x114
#define TK_DIV_EQU 0x115
#define TK_AND_EQU 0x116
#define TK_OR_EQU 0x117
#define TK_XOR_EQU 0x118
#define TK_ADD_EQU 0x119
#define TK_SUB_EQU 0x11A
#define TK_IF 0x11B
#define TK_IFDEF 0x11C
#define TK_IFNDEF 0x11D
#define TK_IFAOT 0x11E
#define TK_IFJIT 0x11F
#define TK_ENDIF 0x120
#define TK_ELSE 0x121
#define TK_MOD_EQU 0x122
#define TK_DOT_DOT 0x123
#define TK_ELLIPSIS 0x124
#define TK_INS_BIN 0x125
#define TK_INS_BIN_SIZE 0x126
#define TK_TKS_NUM 0x127
class CLexHashTableContext
{
CLexHashTableContext *next;
I64 old_flags,hash_mask;
CHashFun *local_var_lst,
*fun;
CHashTable *hash_table_lst,
*define_hash_table,
*local_hash_table,
*glbl_hash_table;
};
//CmpCtrl flags
#define CCF_CMD_LINE 0x001
#define CCF_PMT 0x002
#define CCf_PMT 1
#define CCF_QUESTION_HELP 0x004
#define CCF_DONT_FREE_BUF 0x008
#define CCF_NO_DEFINES 0x010
#define CCF_IN_IF 0x020
#define CCF_JUST_LOAD 0x040
#define CCF_KEEP_NEW_LINES 0x080
#define CCF_KEEP_DOT 0x100
#define CCF_KEEP_SIGN_NUM 0x200
#define CCF_KEEP_AT_SIGN 0x400
#define CCF_NO_CHAR_CONST 0x800
#define CCf_PASS_TRACE_PRESENT 12
#define CCF_NOT_CONST 0x0000020000
#define CCF_NO_REG_OPT 0x0000040000
#define CCF_IN_QUOTES 0x0000080000
#define CCF_EXE_BLK 0x0000100000
#define CCF_HAS_MISC_DATA 0x0000200000
#define CCF_HAS_RETURN 0x0000400000
#define CCF_ASM_EXPRESSIONS 0x0000800000
#define CCF_UNRESOLVED 0x0001000000
#define CCF_LOCAL 0x0002000000
#define CCF_FUN_EXP 0x0004000000
#define CCf_FUN_EXP 26
#define CCF_POSTINC 0x0008000000
#define CCF_POSTDEC 0x0010000000
#define CCF_PREINC 0x0020000000
#define CCF_PREDEC 0x0040000000
#define CCF_ARRAY 0x0080000000
#define CCF_RAX 0x0100000000
#define CCF_USE_LAST_U16 0x0200000000
#define CCf_USE_LAST_U16 33
#define CCF_LAST_WAS_DOT 0x0400000000
#define CCF_AOT_COMPILE 0x0800000000
#define CCf_AOT_COMPILE 35
#define CCF_NO_ABSS 0x1000000000
#define CCF_PAREN 0x2000000000
#define CCf_PAREN 37
#define CCF_CLASS_DOL_OFFSET 0x4000000000
#define CCF_DONT_MAKE_RES 0x8000000000
public class CCmpCtrl
{
CCmpCtrl *next,*last;
I64 token,
flags,
cur_i64;
F64 cur_f64;
U8 *cur_str;
I64 cur_str_len,
class_dol_offset;
U8 *dollar_buf;
I64 dollar_cnt;
U8 *cur_help_idx;
I64 last_U16,
min_line,max_line,last_line_num,
lock_cnt;
U32 *char_bmp_alpha_numeric;
CLexHashTableContext htc;
CHashGeneric *hash_entry;
CAbsCntsI64 abs_cnts;
CAsmUndefHash *asm_undef_hash;
CMemberLst *local_var_entry;
CCodeMisc *lb_leave;
U8 *cur_buf_ptr;
CLexFile *lex_include_stk,
*lex_prs_stk,
*fun_lex_file;
CStreamBlk *next_stream_blk,*last_stream_blk;
CAOT *aot;
I64 pass,opts,pass_trace,saved_pass_trace,
error_cnt,warning_cnt;
//For intermediate codes with multiple float ops (int<->float conversions)
I64 cur_ic_float_op_num,last_ic_float_op_num;
CIntermediateCode *last_float_op_ic;
Bool last_dont_pushable,last_dont_popable,last_float_op_pos,
dont_push_float,pad[4];
CCodeCtrl coc;
CPrsStk *ps;
CAOTCtrl *aotc;
I64 aot_depth,pmt_line;
#assert !($$&7)
};
#help_index "Compiler"
public class CCmpGlbls
{
CHashTable *asm_hash;
CHashClass *internal_types[RT_RTS_NUM];
CIntermediateCode ic_nop;
U32 *dual_U16_tokens1,*dual_U16_tokens2,*dual_U16_tokens3,
*binary_ops;
I64 num_reg_vars,num_non_ptr_vars,
stk_tmps_mask,reg_vars_mask,non_ptr_vars_mask;
U8 *to_reg_vars_map,*non_ptr_vars_map;
I64 size_arg_mask[9],
compiled_lines;
};
#help_index "Debugging/Unassemble"
class CUAsmGlbls
{
CInst **table_16_32,**table_64;
I64 table_16_32_entries,
table_64_entries,
ins64_arg_mask,
signed_arg_mask,
mem_arg_mask;
};
#help_index "Devices;PCI"
class CPCIDev
{
CPCIDev *next,*last;
U16 vendor,dev_id;
U8 bus,dev,fun,pad,
sub_code,base_code,pad[6],
*vendor_str,*dev_id_str;
};
#help_index "Devices;File/System;PCI"
public class CATARep
{
CATARep *next;
I64 num,type,base0,base1,unit,irq;
};
//See $LK,"::/Doc/Credits.DD"$.
#define ATA_NOP 0x00
#define ATA_DEV_RST 0x08
#define ATA_PACKET 0xA0
#define ATA_READ_NATIVE_MAX 0xF8
#define ATA_READ_NATIVE_MAX_EXT 0x27
#define ATA_SET_MAX 0xF9
#define ATA_SET_MAX_EXT 0x37
#define ATA_READ_MULTI 0xC4
#define ATA_READ_MULTI_EXT 0x29
#define ATA_WRITE_MULTI 0xC5
#define ATA_WRITE_MULTI_EXT 0x39
#define ATA_ID_DEV 0xEC
#define ATAS_ERR 0x01
#define ATAS_DRQ 0x08
#define ATAS_DF 0x20
#define ATAS_DRDY 0x40
#define ATAS_BSY 0x80
#define ATAR0_DATA 0
#define ATAR0_FEAT 1
#define ATAR0_NSECT 2
#define ATAR0_SECT 3
#define ATAR0_LCYL 4
#define ATAR0_HCYL 5
#define ATAR0_SEL 6
#define ATAR0_STAT 7
#define ATAR0_CMD 7
#define ATAR1_CTRL 2
#help_index "File/FileNames"
#define FILEMASK_JIT "*.HC*;*.HH*"
#define FILEMASK_AOT "*.HC*;*.HH*;*.PRJ*"
#define FILEMASK_SRC "*.HC*;*.HH*;*.IN*;*.PRJ*"
#define FILEMASK_DD FILEMASK_SRC ";*.DD*"
#define FILEMASK_TXT FILEMASK_DD ";*.TXT*"
#define FILEMASK_GR "*.GR*"
#help_index "File/Low Level"
#define BLK_SIZE_BITS 9
#define BLK_SIZE (1<<BLK_SIZE_BITS)
#define DVD_BLK_SIZE (4*BLK_SIZE)
#define DVD_BOOT_LOADER_SIZE DVD_BLK_SIZE*1
#define INVALID_CLUS (-1)
class CMBRPrt
{
U8 active, //0x80=active 0x00=inactive
start_head;
U16 start_cyl;
U8 type,
end_head;
U16 end_cyl;
U32 offset, //Sects between MBR and first sect
size; //Sects in drv
};
class CMasterBoot
{
U8 code[440];
U32 media_id;
U16 zero;
CMBRPrt p[4];
U16 signature; //AA55
};
class CRedSeaBoot
{
U8 jump_and_nop[3],
signature,reserved[4]; //MBR_PT_REDSEA=0x88. Distinguish from real FAT32
I64 drv_offset, //For CD/DVD image copy.
sects,
root_clus,
bitmap_sects,
unique_id;
U8 code[462];
U16 signature2; //0xAA55
};
class CFAT32Boot
{
U8 jump_and_nop[3],
oem_name[8];
U16 bytes_per_sect;
U8 sects_per_clus;
U16 reserved_sects;
U8 copies_of_fat;
U16 max_root_dir_entries, //Not used
old_sects_in_drv; //Not used
U8 media_desc; //F64 for hard disk
U16 old_sects_per_fat, //Not used
sects_per_track,
num_heads;
U32 hidden_sects,
sects,
sects_per_fat;
U16 flags,
version;
U32 root_clus;
U16 file_system_info_sect,
backup_boot_sect;
U8 reserved[12],
log_drv_num,
unused,
ext_signature; //0x29
U32 serial_num;
U8 vol_name[11],
fat_name[8],
code[420];
U16 signature;
};
class CFAT32FileInfoSect
{
U32 signature1;
U8 unknown[480];
U32 signature2,
free_clus,
most_recently_alloced;
U8 reserved[12];
U32 signature3;
};
class CFAT32DirEntry
{
U8 name[11],
attr,
NTres,
CrtTimeTenth;
U16 CrtTime,
CrtDate,
LstAccDate,
clus_hi,
WrtTime,
WrtDate,
clus_lo;
U32 size;
};
class CFAT32DirEntryLong
{
U8 ord;
U16 name1[5];
U8 attr,
type,
xsum;
U16 name2[6],
zero,
name3[2];
};
#define FAT32_ENTRIES_PER_BLK (BLK_SIZE/sizeof(CFAT32DirEntry))
#define FAT32_ENTRIES_BITS Bsf(FAT32_ENTRIES_PER_BLK)
class CPalindromeU16
{
U16 little,big;
};
class CPalindromeU32
{
U32 little,big;
};
class CATAPITrack
{
U16 track_info_len;
U8 track_lo,
session_lo,
reserved;
U16 misc1;
U8 misc2;
U32 track_start,
next_writable,
free_blks;
union {
U32 fixed_packet_size;
U32 blocking_factor;
};
union {
U32 track_size;
U32 rzone_end;
};
U32 last_recorded;
U8 track_hi,
session_hi;
U16 reserved;
U32 read_compatibility,
next_layer_jmp,
last_layer_jmp;
};
//ISO9660
#define ISOT_BOOT_RECORD 0
#define ISOT_PRI_VOL_DESC 1
#define ISOT_SUPPLEMENTARY_DESC 2
#define ISOT_VOL_DRV_DESC 3
#define ISOT_TERMINATOR 255
class CISODirEntry
{
U8 pad[2];
CPalindromeU32 loc;
U8 pad[24];
};
class CISOPriDesc
{
U8 type,
id[5],
version,
pad[73];
CPalindromeU32 vol_space_size;
U8 pad[32];
CPalindromeU16 vol_set_size;
CPalindromeU16 vol_seq_num;
CPalindromeU16 log_block_size;
U8 pad[20];
CISODirEntry root_dir_record;
U8 pad[128],
publisher_id[128],
pad[435],
file_structure_version,
pad[1166];
};
//Red Sea Attributes
//See $LK,"ST_FILE_ATTRS",A="MN:ST_FILE_ATTRS"$
#define RS_ATTR_READ_ONLY 0x01 //R
#define RS_ATTR_HIDDEN 0x02 //H
#define RS_ATTR_SYSTEM 0x04 //S
#define RS_ATTR_VOL_ID 0x08 //V
#define RS_ATTR_DIR 0x10 //D
#define RS_ATTR_ARCHIVE 0x20 //A
#define RS_ATTR_LONG_NAME (RS_ATTR_READ_ONLY|RS_ATTR_HIDDEN|\
RS_ATTR_SYSTEM|RS_ATTR_VOL_ID)
#define RS_ATTR_LONG_NAME_MASK (RS_ATTR_LONG_NAME|RS_ATTR_DIR|RS_ATTR_ARCHIVE)
#define RS_ATTR_DELETED 0x100 //X
#define RS_ATTR_RESIDENT 0x200 //T
#define RS_ATTR_COMPRESSED 0x400 //Z
#define RS_ATTR_CONTIGUOUS 0x800 //C
#define RS_ATTR_FIXED 0x1000 //F
#help_index "File/CD DVD"
//Media types for $LK,"DVDImageWrite",A="MN:DVDImageWrite"$()
#define MT_CD 1
#define MT_DVD 2
#help_index "File/Low Level;File/Program Routines"
//CDirEntry flags (Used by $LK,"FileMgr",A="MN:FileMgr"$())
#define CDIR_FILENAME_LEN 38 //Must include terminator zero
public class CDirEntry
{
CDirEntry *next,*parent,*sub;
U8 *full_name;
I64 user_data,user_data2;
U0 start;
U16 attr;
U8 name[CDIR_FILENAME_LEN];
I64 clus,size;
CDate datetime;
};
#define CDIR_SIZE (sizeof(CDirEntry)-offset(CDirEntry.start))
#help_index "File/Program Routines"
//File Util Flags
//See $LK,"ST_FILE_UTIL_FLAGS",A="MN:ST_FILE_UTIL_FLAGS"$
#define FUf_RECURSE 0
#define FUf_DIFF 1
#define FUf_DEL 1
#define FUf_IGNORE 2
#define FUf_ALL 3
#define FUf_CANCEL 4
#define FUf_REPLACE 5
#define FUf_RISKY 5
#define FUf_PUBLIC 6
#define FUf_MAP 7
#define FUf_EXPAND 8
#define FUf_SINGLE 9
#define FUf_JUST_DIRS 10
#define FUf_JUST_FILES 11
#define FUf_JUST_TXT 12
#define FUf_JUST_DD 13
#define FUf_JUST_SRC 14
#define FUf_JUST_AOT 15
#define FUf_JUST_JIT 16
#define FUf_JUST_GR 17
#define FUf_Z_OR_NOT_Z 18
#define FUf_CLUS_ORDER 19
#define FUf_SCAN_PARENTS 20
#define FUf_FLATTEN_TREE 21
#define FUf_WHOLE_LABELS 22
#define FUf_WHOLE_LABELS_BEFORE 23
#define FUf_WHOLE_LABELS_AFTER 24
#define FUF_RECURSE 0x0000001 //r
#define FUF_DIFF 0x0000002 //d
#define FUF_DEL 0x0000002 //d
#define FUF_IGNORE 0x0000004 //i
#define FUF_ALL 0x0000008 //a
#define FUF_CANCEL 0x0000010 //c
#define FUF_REPLACE 0x0000020 //R
#define FUF_RISKY 0x0000020 //R
#define FUF_PUBLIC 0x0000040 //p
#define FUF_MAP 0x0000080 //m
#define FUF_EXPAND 0x0000100 //x
#define FUF_SINGLE 0x0000200 //s
#define FUF_JUST_DIRS 0x0000400 //D
#define FUF_JUST_FILES 0x0000800 //F
#define FUF_JUST_TXT 0x0001000 //T
#define FUF_JUST_DD 0x0002000 //$$
#define FUF_JUST_SRC 0x0004000 //S
#define FUF_JUST_AOT 0x0008000 //A
#define FUF_JUST_JIT 0x0010000 //J
#define FUF_JUST_GR 0x0020000 //G
#define FUF_Z_OR_NOT_Z 0x0040000 //Z
#define FUF_CLUS_ORDER 0x0080000 //O Move disk head one direction
#define FUF_SCAN_PARENTS 0x0100000 //P
#define FUF_FLATTEN_TREE 0x0200000 //f
#define FUF_WHOLE_LABELS 0x0400000 //l
#define FUF_WHOLE_LABELS_BEFORE 0x0800000 //lb
#define FUF_WHOLE_LABELS_AFTER 0x1000000 //la
#define FUG_FILES_FIND (FUF_RECURSE|FUF_SINGLE|FUF_CLUS_ORDER|\
FUF_JUST_DIRS|FUF_JUST_FILES|FUF_JUST_TXT|FUF_JUST_DD|\
FUF_JUST_SRC|FUF_JUST_AOT|FUF_JUST_JIT|FUF_JUST_GR|FUF_FLATTEN_TREE)
#define FUG_FILE_FIND (FUF_JUST_DIRS|FUF_JUST_FILES|FUF_Z_OR_NOT_Z|\
FUF_SCAN_PARENTS)
#help_index "File/Low Level"
//See $LK,"ST_BLKDEV_TYPES",A="MN:ST_BLKDEV_TYPES"$
#define BDT_NULL 0
#define BDT_RAM 1
#define BDT_ATA 2
#define BDT_ISO_FILE_READ 3
#define BDT_ISO_FILE_WRITE 4
#define BDT_ATAPI 5
#define BDT_TYPES_NUM 6
#define BDF_REMOVABLE 0x001
#define BDF_INITIALIZED 0x002
#define BDF_READ_ONLY 0x004
#define BDF_READ_ONLY_OVERRIDE 0x008
#define BDF_LAST_WAS_WRITE 0x010
#define BDF_READ_CACHE 0x020
#define BDF_FMT 0x040
#define BDF_INIT_IN_PROGRESS 0x080
#define BDF_EXT_SIZE 0x100
#define BDf_REMOVABLE 0
#define BDf_INITIALIZED 1
#define BDf_READ_ONLY 2
#define BDf_READ_ONLY_OVERRIDE 3
#define BDf_LAST_WAS_WRITE 4
#define BDf_READ_CACHE 5
#define BDf_FMT 6
#define BDf_INIT_IN_PROGRESS 7
#define BDf_EXT_SIZE 8
//locked flags
#define BDlf_LOCKED 0
#define BLKDEVS_NUM 26
#define BD_SIGNATURE_VAL 'BDSV'
public class CBlkDev
{
CBlkDev *lock_fwding; //If two blkdevs on same controller, use just one lock
I64 locked_flags;
U32 bd_signature,
type,flags;
U8 first_drv_let,unit,pad[2];
U32 base0,base1,
blk_size;
I64 drv_offset,init_root_dir_blks,
max_blk;
U16 *dev_id_record;
U8 *RAM_dsk,
*file_dsk_name;
CFile *file_dsk;
CTask *owning_task;
F64 last_time;
U32 max_reads,max_writes;
};
//Drive locked_flags
#define DVlf_LOCKED 0
//See $LK,"ST_DRV_TYPES",A="MN:ST_DRV_TYPES"$
#define FSt_NULL 0
#define FSt_REDSEA 1 //Supported
#define FSt_FAT32 2 //Supported except for short names, to some degree
#define FSt_ISO9660 3 //Not Supported
#define FSt_NTFS 4 //Not Supported
#define FSt_UNKNOWN 5
#define FSt_TYPES_NUM 6
#define FSG_TYPE_MASK 0x7FFF
//File system type flags
#define FStf_DISABLE 15
#define MBR_PT_FAT12 0x01
#define MBR_PT_FAT32a 0x0B
#define MBR_PT_FAT32b 0x0C
#define MBR_PT_FAT32c 0x1B
#define MBR_PT_FAT32d 0x1C
#define MBR_PT_FAT32e 0x8B
#define MBR_PT_FAT32f 0x8C
#define MBR_PT_NTFS 0x07
#define MBR_PT_REDSEA 0x88
class CFreeLst
{
CFreeLst *next,*last;
I64 start,size;
};
#define DRVS_NUM 26
#define DRV_SIGNATURE_VAL 'DVSV'
public class CDrv
{
//Don't access ->drv_let directly in case a drive has been remapped.
//Use $LK,"Drv2Let",A="MN:Drv2Let"$().
I64 locked_flags;
U32 dv_signature;
U8 drv_let,pad;
U16 fs_type;
I64 drv_offset,
size,
prt_num,
file_system_info_sect,
fat1,fat2,
root_clus,
data_area,
spc; //sectors per clus
CDate fat32_local_time_offset;
CTask *owning_task;
CBlkDev *bd;
CFAT32FileInfoSect *fis;
I64 fat_blk_dirty,
cur_fat_blk_num;
U32 *cur_fat_blk;
CFreeLst *next_free,*last_free;
};
#define DSK_CACHE_HASH_SIZE 0x2000
class CCacheBlk
{
CCacheBlk *next_lru,*last_lru;
CCacheBlk *next_hash,*last_hash;
CDrv *dv;
I64 blk;
U8 body[BLK_SIZE];
};
#help_index "File/System"
#define DFT_ISO_FILENAME "::/Tmp/CDDVD.ISO"
#define DFT_ISO_C_FILENAME "::/Tmp/CDDVD.ISO.C"
public class CBlkDevGlbls
{
CBlkDev *blkdevs;
U8 *dft_iso_filename; //$TX,"\"::/Tmp/CDDVD.ISO\"",D="DFT_ISO_FILENAME"$
U8 *dft_iso_c_filename; //$TX,"\"::/Tmp/CDDVD.ISO.C\"",D="DFT_ISO_C_FILENAME"$
U8