mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2025-04-25 04:50:20 +01:00
22e3d8f06e
Remove some palettes. Add PaletteSetSlate. Change all gr_palette_std to gr32_palette_std. Change all CBGR48 to CBGR24.
4511 lines
No EOL
110 KiB
HolyC
Executable file
4511 lines
No EOL
110 KiB
HolyC
Executable file
// Main ZealOS header
|
|
|
|
#help_index ""
|
|
extern class CAOT;
|
|
extern class CAOTHeapGlobal;
|
|
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 NONE 0 //for use in default arguments
|
|
#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"
|
|
//CosmiC union structure is treated as a whole if no member is specified, similar to bit fields.
|
|
//See $LK,"::/Demo/SubIntAccess.CC"$.
|
|
|
|
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 CQueue
|
|
{
|
|
CQueue *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 CQueueD3I32 //Queue of three dimensional I32 pts
|
|
{
|
|
CQueueD3I32 *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_COUNT 512
|
|
public class CQueueVectU8
|
|
{
|
|
CQueueVectU8 *next,
|
|
*last;
|
|
I64 total_count,
|
|
node_count,
|
|
min_idx;
|
|
U8 body[QUE_VECT_U8_COUNT];
|
|
};
|
|
|
|
#help_index "Data Types/Fifo"
|
|
public class CFifoU8
|
|
{
|
|
U8 *buf;
|
|
I64 mask,
|
|
in_ptr,
|
|
out_ptr;
|
|
};
|
|
public class CFifoI64
|
|
{
|
|
I64 *buf,
|
|
mask,
|
|
in_ptr,
|
|
out_ptr;
|
|
};
|
|
#help_index "Date/CMOS"
|
|
#define CMOS_SEL 0x70 //select which reg to access using this port
|
|
#define CMOS_DATA 0x71 //read from or write to reg using this port
|
|
|
|
//CMOS registers
|
|
#define CMOSR_SEC 0x0
|
|
#define CMOSR_MIN 0x2
|
|
#define CMOSR_HOUR 0x4
|
|
#define CMOSR_DAY_OF_WEEK 0x6
|
|
#define CMOSR_DAY_OF_MONTH 0x7
|
|
#define CMOSR_MONTH 0x8
|
|
#define CMOSR_YEAR 0x9
|
|
#define CMOSR_STATUS_A 0xA
|
|
#define CMOSR_STATUS_B 0xB
|
|
|
|
//CMOS status flags
|
|
#define CMOSF_BINARY (1 << 2)
|
|
#define CMOSF_UPDATING (1 << 7)
|
|
|
|
#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.
|
|
//ZealOS 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, I64 cpu_num, F64 *state, F64 *DstateDt); //If break into parallel pieces.
|
|
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_DEBUG 0x32
|
|
//See $LK,"ST_INT_NAMES",A="MN:ST_INT_NAMES"$
|
|
|
|
//You might want to start backward from
|
|
//0xFF for your own interrupts.
|
|
//See $LK+PU,"IntEntryAlloc",A="MN:IntEntryAlloc"$.
|
|
#define I_USER 0x40
|
|
|
|
#define MP_PROCESSORS_NUM 128
|
|
|
|
//Control register flag bits
|
|
#define CR0f_PE 0 //Protection Enable (Protected mode)
|
|
#define CR0f_MP 1 //Monitor coprocessor
|
|
#define CR0f_EM 2 //Emulation of coprocessor
|
|
#define CR0f_TS 3 //Task switched, some irrelevant x87 task management stuff
|
|
#define CR0f_NE 5 //Numeric error
|
|
#define CR0f_PG 31//Enable paging
|
|
|
|
#define CR0F_PE (1 << CR0f_PE)
|
|
#define CR0F_NE (1 << CR0f_NE)
|
|
|
|
#define CR4f_PAE 5 //Physical Address Extension, required by long mode
|
|
#define CR4f_PGE 7 //Page-Global Enable
|
|
#define CR4f_OSFXSR 9 //FXSAVE/FXRSTOR support enabled
|
|
|
|
#define CR4F_PAE (1 << CR4f_PAE)
|
|
#define CR4F_PGE (1 << CR4f_PGE)
|
|
#define CR4F_OSFXSR (1 << CR4f_OSFXSR)
|
|
|
|
#define SYS_START_CR0 (CR0F_PE | CR0F_NE)
|
|
|
|
#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,
|
|
boot_ds,
|
|
boot_cs,
|
|
cs32,
|
|
cs64, //The $LK,"Charter",A="FI:::/Doc/Charter.DD"$ says just ring-0.
|
|
cs64_ring3, //$LK,"Ring3",A="FI:::/Demo/Lectures/Ring3.CC"$, in case you want to play around.
|
|
ds,
|
|
ds_ring3,
|
|
tr[MP_PROCESSORS_NUM],
|
|
tr_ring3[MP_PROCESSORS_NUM];
|
|
};
|
|
|
|
//Interrupt Descriptor Table
|
|
class CIDTEntry
|
|
{
|
|
U16 offset_low,
|
|
seg_select;
|
|
U8 ist,
|
|
type_attr;
|
|
U16 offset_mid;
|
|
U32 offset_hi,
|
|
zero;
|
|
};
|
|
#assert sizeof(CIDTEntry) == 16
|
|
|
|
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
|
|
#define MEM_E820t_USABLE 1
|
|
#define MEM_E820t_RESERVED 2
|
|
#define MEM_E820t_ACPI 3
|
|
#define MEM_E820t_ACPI_NVS 4
|
|
#define MEM_E820t_BAD_MEM 5
|
|
#define MEM_E820t_PERM_MEM 7
|
|
|
|
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 'ZCCB' //Zeal CosmiC Binary
|
|
class CBinFile
|
|
{//$LK,"Bin File Header Generation",A="FF:::/Compiler/CMain.CC,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.CC,IET_ABS_ADDR"$
|
|
file_size;
|
|
};
|
|
|
|
class CPatchTableAbsAddr
|
|
{
|
|
U8 eit_abs_addr; //$LK,"IET_ABS_ADDR",A="MN:IET_ABS_ADDR"$
|
|
U32 abs_addres_count;
|
|
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 "Graphics/VBE"
|
|
|
|
#define BLACK32 0x000000
|
|
#define WHITE32 0xFFFFFF
|
|
#define VBE_MODES_NUM 32
|
|
|
|
class CVBEInfo
|
|
{
|
|
U8 signature[4];
|
|
U16 version;
|
|
U32 oem,
|
|
capabilities,
|
|
video_modes;
|
|
U16 total_memory,
|
|
software_revision;
|
|
U32 vendor,
|
|
product_name,
|
|
product_revision;
|
|
U8 reserved[222],
|
|
oem_data[256];
|
|
};
|
|
#assert sizeof(CVBEInfo) == 512
|
|
|
|
class CVBEMode
|
|
{
|
|
U16 attributes,
|
|
pad[7],
|
|
pitch,
|
|
width,
|
|
height;
|
|
U8 pad[3],
|
|
bpp,
|
|
pad,
|
|
memory_model,
|
|
pad[12];
|
|
U32 framebuffer;
|
|
U16 pad[9];
|
|
U32 max_pixel_clock;
|
|
U8 reserved[190];
|
|
};
|
|
#assert sizeof(CVBEMode) == 256
|
|
|
|
class CVBEModeShort
|
|
{
|
|
U16 width,
|
|
height,
|
|
mode_num;
|
|
U32 max_pixel_clock; //TODO refresh rates.
|
|
};
|
|
|
|
#help_index "Boot"
|
|
class CKernel
|
|
{//Must match $LK,"OSStartUp",A="FF:::/Kernel/KStart16.CC,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_buses;
|
|
;$$ = ($$ + 15) & -16;
|
|
CGDT sys_gdt;
|
|
U32 sys_font_ptr;
|
|
CVBEInfo sys_vbe_info;
|
|
CVBEModeShort sys_vbe_modes[VBE_MODES_NUM];
|
|
CVBEMode sys_vbe_mode;
|
|
U16 sys_vbe_mode_num;
|
|
};
|
|
|
|
//Run-Levels
|
|
#define RLf_16BIT 0
|
|
#define RLf_VESA 1
|
|
#define RLf_32BIT 2
|
|
#define RLf_PATCHED 3
|
|
#define RLf_16MEG_SYS_CODE_BP 4
|
|
#define RLf_64BIT 5
|
|
#define RLf_16MEG_SYSTEM_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_AUTOCOMPLETE 17
|
|
#define RLf_SYSTEM_SERVER 18
|
|
#define RLf_ONCE_SYSTEM 19
|
|
#define RLf_ONCE_USER 20
|
|
|
|
#define RLF_16BIT (1 << RLf_16BIT)
|
|
#define RLF_VESA (1 << RLf_VESA)
|
|
#define RLF_32BIT (1 << RLf_32BIT)
|
|
#define RLF_PATCHED (1 << RLf_PATCHED)
|
|
#define RLF_16MEG_SYS_CODE_BP (1 << RLf_16MEG_SYS_CODE_BP)
|
|
#define RLF_64BIT (1 << RLf_64BIT)
|
|
#define RLF_16MEG_SYSTEM_HEAP_CTRL (1 << RLf_16MEG_SYSTEM_HEAP_CTRL)
|
|
#define RLF_FULL_HEAPS (1 << RLf_FULL_HEAPS)
|
|
#define RLF_RAW (1 << RLf_RAW)
|
|
#define RLF_INTERRUPTS (1 << RLf_INTERRUPTS)
|
|
#define RLF_BLKDEV (1 << RLf_BLKDEV)
|
|
#define RLF_MP (1 << RLf_MP)
|
|
#define RLF_COMPILER (1 << RLf_COMPILER)
|
|
#define RLF_DOC (1 << RLf_DOC)
|
|
#define RLF_WINMGR (1 << RLf_WINMGR)
|
|
#define RLF_REGISTRY (1 << RLf_REGISTRY)
|
|
#define RLF_HOME (1 << RLf_HOME)
|
|
#define RLF_AUTOCOMPLETE (1 << RLf_AUTOCOMPLETE)
|
|
#define RLF_SYSTEM_SERVER (1 << RLf_SYSTEM_SERVER)
|
|
#define RLF_ONCE_SYSTEM (1 << RLf_ONCE_SYSTEM)
|
|
#define RLF_ONCE_USER (1 << RLf_ONCE_USER)
|
|
|
|
#help_index "Processor"
|
|
|
|
//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
|
|
|
|
//Programmable Interrupt Controller
|
|
#define PIC_1 0x20
|
|
#define PIC_1_DATA 0x21
|
|
#define PIC_2 0xA0
|
|
#define PIC_2_DATA 0xA1
|
|
#define PIC_INIT 0x11
|
|
#define PIC_EOI 0x20 //End of interrupt
|
|
|
|
//Local Advanced Programmable Interrupt Controller
|
|
#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_ARBITRATION_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
|
|
|
|
class CAP16BitInit
|
|
{//AP Multicore
|
|
U32 jmp;
|
|
CSysLimitBase ap_gdt_ptr;
|
|
};
|
|
|
|
#help_index "Time/PIT"
|
|
#help_file "::/Doc/PIT.DD"
|
|
//Programmable Interval Timer
|
|
#define PIT_0 0x40
|
|
#define PIT_2 0x42
|
|
#define PIT_CMD 0x43
|
|
|
|
#define PIT_CMDF_OPMODE_RATE_GEN 0x04
|
|
#define PIT_CMDF_OPMODE_SQUARE_WAVE 0x06
|
|
#define PIT_CMDF_ACCESS_WORD 0x30
|
|
#define PIT_CMDF_CHANNEL0 0x00
|
|
#define PIT_CMDF_CHANNEL2 0x80
|
|
|
|
public class CCountsGlobals
|
|
{
|
|
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.
|
|
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 CRAXRBXRCXRDX
|
|
{
|
|
I64 rax, rbx, rcx, rdx;
|
|
};
|
|
|
|
//Asm callable function pointers.
|
|
//They work with $LK,"CallExtNum",A="MN:CallExtNum"$() when calling from CosmiC.
|
|
#define EXT_WIN_TO_TOP 0
|
|
#define EXT_WIN_FOCUS 1
|
|
#define EXT_HEAPLOG_MALLOC 2
|
|
#define EXT_HEAPLOG_FREE 3
|
|
#define EXT_DEBUG_RESUME 4
|
|
#define EXT_EXTS_NUM 5
|
|
|
|
#help_index "Processor"
|
|
#define DEFAULT_CACHE_LINE_WIDTH 128
|
|
|
|
//Semaphores
|
|
class CSema
|
|
{
|
|
Bool val, pad[DEFAULT_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_DEBUG_MODE 4
|
|
#define SEMA_SOUND 5
|
|
#define SEMA_HEAPLOG_ACTIVE 6
|
|
#define SEMA_HEAPLOG_LOCK 7
|
|
#define SEMA_REFRESH_IN_PROGRESS 8
|
|
#define SEMA_FLUSH_VBE_IMAGE 9
|
|
#define SEMA_SINGLE_USER 10
|
|
#define SEMA_DISK_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_MESSAGES 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_count; // 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.CC,ST_HTT_TYPES"$
|
|
#define HTt_EXPORT_SYS_SYM 0
|
|
#define HTt_IMPORT_SYS_SYM 1
|
|
#define HTt_DEFINE_STR 2
|
|
#define HTt_GLOBAL_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_GLOBAL_VAR 0x00008 //CHashGlobalVar
|
|
#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_GLOBAL_VAR | HTT_FUN | HTT_CLASS | HTT_EXPORT_SYS_SYM | HTT_HELP_FILE)
|
|
#define HTG_ALL -1
|
|
|
|
#define KERNEL_MODULE_NAME "/Kernel/Kernel"
|
|
|
|
class CDebugInfo
|
|
{
|
|
U32 min_line, max_line;
|
|
U32 body[1]; //Code heap is 32-bit value
|
|
};
|
|
|
|
public class CHashSrcSym:CHash
|
|
{
|
|
U8 *src_link,
|
|
*idx;
|
|
CDebugInfo *debug_info;
|
|
U8 *import_name;
|
|
CAOTImportExport *ie_list;
|
|
};
|
|
|
|
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_FSTACK 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 List Flags
|
|
#define MLF_DEFAULT_AVAILABLE 1
|
|
#define MLF_LASTCLASS 2
|
|
#define MLF_STR_DEFAULT_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 count, total_count;
|
|
};
|
|
|
|
#define MLMF_IS_STR 1
|
|
public class CMemberListMeta
|
|
{
|
|
CMemberListMeta *next;
|
|
U8 *str;
|
|
I64 flags,
|
|
user_data;
|
|
};
|
|
|
|
public class CMemberList
|
|
{
|
|
CMemberList *next, *left, *right,
|
|
*left_class_base, *right_class_base; //For finding dup class local vars.
|
|
U8 *str;
|
|
CHashClass *member_class, *member_class_base;
|
|
CMemberListMeta *meta;
|
|
U32 use_count;
|
|
U16 flags;
|
|
I8 reg, pad;
|
|
I64 offset, size;
|
|
CArrayDim dim;
|
|
U8 *static_data;
|
|
union
|
|
{
|
|
I64 static_data_rip;
|
|
I64 default_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 count;
|
|
};
|
|
|
|
#define Cf_EXTERN 0
|
|
#define Cf_INTERNAL_TYPE 1
|
|
|
|
public class CHashClass:CHashSrcSym
|
|
{//See $LK,"ParseClassNew",A="MN:ParseClassNew"$(). base_class of $LK,"CHashFun",A="MN:CHashFun"$
|
|
I64 size, neg_offset;
|
|
U32 member_count;
|
|
U8 ptr_stars_count, raw_type;
|
|
U16 flags;
|
|
CMemberList *member_list_and_root, //Head of linked list and head of tree.
|
|
*member_class_base_root, //For finding dup class local vars.
|
|
*last_in_member_list;
|
|
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,"ParseFunNew",A="MN:ParseFunNew"$().
|
|
CHashClass *return_class;
|
|
U32 arg_count, pad,
|
|
used_reg_mask, clobbered_reg_mask;
|
|
U8 *exe_addr;
|
|
CExternUsage *ext_list;
|
|
};
|
|
|
|
//Global 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 CHashGlobalVar:CHashSrcSym
|
|
{
|
|
I64 size, flags;
|
|
CHashClass *var_class;
|
|
CHashFun *fun_ptr;
|
|
CArrayDim dim;
|
|
U8 *data_addr;
|
|
union
|
|
{
|
|
I64 data_addr_rip;
|
|
CAOTHeapGlobal *heap_global;
|
|
}
|
|
};
|
|
#assert offset(CHashClass.size) == offset(CHashGlobalVar.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_PROMPT 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_DEFAULT_FOREGROUND 17
|
|
#define DOCT_DEFAULT_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_LIST 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_LIST 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_DEFAULT_LEN 0x1000000000000000
|
|
#define DOCEF_DEFAULT_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_LIST 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_DEFAULT_LEN 60
|
|
#define DOCEf_DEFAULT_RAW_TYPE 61
|
|
#define DOCEf_FLAGS_NUM 62
|
|
|
|
public class CDocBin
|
|
{
|
|
CDocBin *next, *last;
|
|
I32 tmp_use_count, renum_num;
|
|
U8 *tag;
|
|
U0 start;
|
|
U32 num, flags, size, use_count;
|
|
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_DEFAULT_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_PROMPT 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_GLOBAL_VAR LTCYAN
|
|
#define DOC_COLOR_CLASS LTBLUE
|
|
#define DOC_COLOR_FUN PURPLE
|
|
#define DOC_COLOR_KEYWORD BLUE
|
|
#define DOC_COLOR_REG LTRED
|
|
#define DOC_COLOR_NUMBER YELLOW
|
|
|
|
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, default_text_attr;
|
|
};
|
|
|
|
#define DOC_DEFAULT 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_DEFAULT 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_format_data;
|
|
I64 hex_ed_width;
|
|
I32 scroll_len,
|
|
len, //$LK,"DOCE_LEN_DEFAULT",A="MN:DOCE_LEN_DEFAULT"$
|
|
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",
|
|
prompt, 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_SCREEN 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_count,
|
|
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_count;
|
|
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.CC"$
|
|
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,"DocBorderListDraw",A="MN:DocBorderListDraw"$().
|
|
|
|
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_DEFAULT (WIF_FOCUS_TASK_MENU | WIG_DBL_CLICK | 0xFFFF - WIF_SELF_DOC - WIF_SELF_ODE)
|
|
#define WIG_NO_FOCUS_TASK_DEFAULT (WIG_TASK_DEFAULT - WIF_SELF_BORDER - WIF_SELF_MS_L - WIF_SELF_MS_R - WIG_DBL_CLICK)
|
|
#define WIG_USER_TASK_DEFAULT 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 CWinMgrTimingGlobals
|
|
{
|
|
I64 last_total_jiffies,
|
|
last_idle_pt_hits[MP_PROCESSORS_NUM],
|
|
last_swap_counter[MP_PROCESSORS_NUM];
|
|
F64 last_calc_idle_time, calc_idle_delta_time;
|
|
I64 calc_idle_count;
|
|
};
|
|
|
|
#define WINMGR_FPS (60000.0 / 1001)
|
|
#define WINMGR_PERIOD (1001 / 60000.0)
|
|
|
|
public class CWinMgrGlobals
|
|
{
|
|
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;
|
|
CWinMgrTimingGlobals *t;
|
|
Bool show_menu, grab_scroll, grab_scroll_closed;
|
|
};
|
|
|
|
#help_index "AutoComplete"
|
|
#define ACf_INIT_IN_PROGRESS 0
|
|
#define ACf_LAST_WAS_KEYMAP 1
|
|
|
|
#define AC_FILLINS_NUM 12
|
|
public class CAutoCompleteGlobals
|
|
{
|
|
I64 col, row, old_col, old_row, 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 "/System/AutoComplete/ACWords.DATA"
|
|
#define ACD_DEF_FILENAME "/System/AutoComplete/ACDefs.DATA"
|
|
|
|
#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 CAutoCompleteDictGlobals
|
|
{
|
|
U8 *word_list;
|
|
I64 word_list_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 0
|
|
#define OPTf_TRACE 1
|
|
#define OPTf_WARN_UNUSED_VAR 2 //Applied to funs, not statements
|
|
#define OPTf_WARN_PAREN 3 //Warn unnecessary parens
|
|
#define OPTf_WARN_DUP_TYPES 4 //Warn dup local var type statements
|
|
#define OPTf_WARN_HEADER_MISMATCH 5
|
|
#define OPTf_EXTERNS_TO_IMPORTS 6
|
|
#define OPTf_KEEP_PRIVATE 7
|
|
#define OPTf_NO_REG_VAR 8 //Applied to funs, not statements
|
|
#define OPTf_GLOBALS_ON_DATA_HEAP 9
|
|
//Disable 10-byte float consts for ã,log2_10,log10_2,loge_2
|
|
#define OPTf_NO_BUILTIN_CONST 10 //Applied to funs, not statements
|
|
#define OPTf_USE_IMM64 11 //Not completely implemented
|
|
#define OPTf_DECIMAL_ONLY 12 //Only allow decimal numbers (no 0x or 0b prefixed numbers)
|
|
#define OPTf_NO_FLOATS 13 //No floating point numbers allowed
|
|
|
|
#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 error 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_STACK 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_STACK 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_STACK 0x000008000
|
|
#define ICF_ARG1_WAS_STACK 0x000010000
|
|
#define ICF_ARG2_WAS_STACK 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_CONVERT_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_count,
|
|
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 CParseStack
|
|
{
|
|
I64 ptr,
|
|
stack[255],
|
|
ptr2,
|
|
stack2[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, *forward, *default, *begin;
|
|
U8 *str;
|
|
U32 type, flags;
|
|
I64 use_count;
|
|
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_DEFAULT 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.CC,uasm_slash_val"$ only.
|
|
#define SV_NONE 11
|
|
class CInst
|
|
{
|
|
U8 ins_entry_num, //This entry num in opcode hash entry
|
|
opcode_count,
|
|
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_STACK_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 CAbsCountsI64
|
|
{
|
|
U16 abs_addres, //Only odd/even matters. Count of absolute addres in an exp.
|
|
c_addres; //Only odd/even matters. Count 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/ParseExp.CC,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, *global_asm_undef_hash;
|
|
CAbsCountsI64 abs_counts;
|
|
};
|
|
|
|
class CAsmNum2
|
|
{
|
|
CAsmNum num;
|
|
I64 U8_count, rel;
|
|
Bool imm_flag;
|
|
};
|
|
|
|
class CAsmIns
|
|
{
|
|
CInst *tmpins;
|
|
CAsmNum2 imm, disp;
|
|
I64 U8_count, last_opcode_U8,
|
|
REX, ModrM, SIB;
|
|
Bool has_REX, has_ModrM, has_SIB,
|
|
has_addr_prefix,
|
|
has_operand_prefix,
|
|
is_default, 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 globals
|
|
CAsmUndefHash *asm_undef_hash;
|
|
Bool U8_avail,
|
|
imm_flag;//Only for import globals
|
|
};
|
|
|
|
//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_count,
|
|
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 CAOTHeapGlobalRef
|
|
{
|
|
CAOTHeapGlobalRef *next;
|
|
I64 rip;
|
|
};
|
|
|
|
class CAOTHeapGlobal
|
|
{
|
|
CAOTHeapGlobal *next;
|
|
U8 *str;
|
|
I64 size;
|
|
CAOTHeapGlobalRef *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;
|
|
CAOTHeapGlobal *heap_globals;
|
|
};
|
|
|
|
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_stack->line_num);}
|
|
#define __CMD_LINE__ #exe{StreamPrint("%d", Fs->last_cc->flags & CCF_CMD_LINE && Fs->last_cc->lex_include_stack->depth < 1);}
|
|
#define __FILE__ #exe{StreamPrint("\"%s\"", Fs->last_cc->lex_include_stack->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, *global_unresolved;
|
|
CAOTAbsAddr *abss;
|
|
CAOTHeapGlobal *heap_globals;
|
|
I64 list_col, list_last_rip;
|
|
U8 *last_label, *list_last_line;
|
|
CLexFile *list_last_lfn;
|
|
I64 seg_size;
|
|
Bool list;
|
|
};
|
|
|
|
//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_list,
|
|
*fun;
|
|
CHashTable *hash_table_list,
|
|
*define_hash_table,
|
|
*local_hash_table,
|
|
*global_hash_table;
|
|
};
|
|
|
|
//CompCtrl flags
|
|
#define CCF_CMD_LINE 0x001
|
|
#define CCF_PROMPT 0x002
|
|
#define CCf_PROMPT 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 CCompCtrl
|
|
{
|
|
CCompCtrl *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_count;
|
|
U8 *cur_help_idx;
|
|
I64 last_U16,
|
|
min_line, max_line, last_line_num,
|
|
lock_count;
|
|
U32 *char_bmp_alpha_numeric;
|
|
CLexHashTableContext htc;
|
|
CHashGeneric *hash_entry;
|
|
CAbsCountsI64 abs_counts;
|
|
CAsmUndefHash *asm_undef_hash;
|
|
CMemberList *local_var_entry;
|
|
CCodeMisc *lb_leave;
|
|
U8 *cur_buf_ptr;
|
|
CLexFile *lex_include_stack,
|
|
*lex_parse_stack,
|
|
*fun_lex_file;
|
|
CStreamBlk *next_stream_blk, *last_stream_blk;
|
|
CAOT *aot;
|
|
|
|
I64 pass, opts, pass_trace, saved_pass_trace, error_count, warning_count;
|
|
|
|
//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;
|
|
CParseStack *ps;
|
|
CAOTCtrl *aotc;
|
|
I64 aot_depth, prompt_line;
|
|
#assert !($$ & 7)
|
|
};
|
|
|
|
#help_index "Compiler"
|
|
public class CCompGlobals
|
|
{
|
|
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,
|
|
stack_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 CUAsmGlobals
|
|
{
|
|
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/SMBIOS"
|
|
//SMBIOS parsing based on SMBIOS specification 3.3.0 (document "DSP0134")
|
|
#define SMBIOSt_BIOS 0
|
|
#define SMBIOSt_SYSTEM 1
|
|
#define SMBIOSt_BASEBOARD 2
|
|
#define SMBIOSt_ENCLOSURE 3
|
|
#define SMBIOSt_PROCESSOR 4
|
|
#define SMBIOSt_CACHE 7
|
|
#define SMBIOSt_CONNECTOR 8
|
|
#define SMBIOSt_SLOT 9
|
|
#define SMBIOSt_OEM_STRINGS 11
|
|
#define SMBIOSt_SYS_CONFIG_OPTIONS 12
|
|
#define SMBIOSt_PHYMEM 16
|
|
#define SMBIOSt_MEM_DEVICE 17
|
|
#define SMBIOSt_MAPPED_ADDR 19
|
|
#define SMBIOSt_BATTERY 22
|
|
#define SMBIOSt_BOOT_INFO 32
|
|
#define SMBIOSt_ALL 0xFF //Non-existent placeholder type
|
|
|
|
class CSMBIOSHeader
|
|
{//Section 6.1.2 line 885
|
|
U8 type, //SMBIOSt_*
|
|
length;
|
|
U16 handle; //identifier for this structure.
|
|
};
|
|
class CSMBIOSEntryPoint
|
|
{//Section 5.2.1 line 812
|
|
U8 anchor_str[4], // '_SM_'
|
|
checksum,
|
|
length,
|
|
major_version,
|
|
minor_version;
|
|
U16 max_structure_size;
|
|
U8 entry_point_revision,
|
|
formatted_area[5],
|
|
anchor_str2[5], // '_DMI_'
|
|
checksum2;
|
|
U16 table_length;
|
|
U32 table_address;
|
|
U16 structure_count;
|
|
U8 bcd_revision;
|
|
};
|
|
|
|
class CSMBIOSBIOSInfo
|
|
{//Section 7.1 line 922
|
|
CSMBIOSHeader header;
|
|
U8 vendor,
|
|
version;
|
|
U16 start_address_segment;
|
|
U8 release_date,
|
|
rom_size;
|
|
U64 flags;
|
|
U8 extended_flags[2];
|
|
U8 major_release,
|
|
minor_release,
|
|
embedded_controller_firmware_major_release,
|
|
embedded_controller_firmware_minor_release;
|
|
U16 extended_rom_size;
|
|
};
|
|
|
|
class CSMBIOSSystemInfo
|
|
{//Section 7.2 line 936
|
|
CSMBIOSHeader header;
|
|
U8 manufacturer,
|
|
product_name,
|
|
version,
|
|
serial_number,
|
|
uuid[16],
|
|
wakeup_type,
|
|
sku_number,
|
|
family;
|
|
};
|
|
|
|
class CSMBIOSBaseboardInfo
|
|
{//Section 7.3 line 968
|
|
CSMBIOSHeader header;
|
|
U8 manufacturer,
|
|
product,
|
|
version,
|
|
serial_number,
|
|
asset_tag,
|
|
feature_flags,
|
|
chassis_location;
|
|
U16 chassis_handle;
|
|
U8 board_type,
|
|
contained_object_handles_num;
|
|
U16 contained_object_handles[1]; //Variable length, member above gives length
|
|
};
|
|
|
|
class CSMBIOSEnclosureInfo
|
|
{//Section 7.4 line 984
|
|
CSMBIOSHeader header;
|
|
U8 manufacturer,
|
|
type,
|
|
version,
|
|
serial_number,
|
|
asset_tag,
|
|
bootup_state,
|
|
power_supply_state,
|
|
thermal_state,
|
|
security_status;
|
|
U32 oem_defined;
|
|
U8 height,
|
|
power_cord_count,
|
|
contained_element_count,
|
|
contained_element_record_length,
|
|
contained_elements[1]; //array length == count * record_length;
|
|
};
|
|
|
|
class CSMBIOSEnclosureContainedElement
|
|
{//Section 7.4.4 line 999
|
|
U8 contained_element_type,
|
|
contained_element_minimum,
|
|
contained_element_maximum;
|
|
};
|
|
|
|
class CSMBIOSProcessorInfo
|
|
{//Section 7.5 line 1010
|
|
CSMBIOSHeader header;
|
|
U8 name,
|
|
type,
|
|
family,
|
|
manufacturer;
|
|
U64 id;
|
|
U8 version,
|
|
voltage;
|
|
U16 external_clock,
|
|
max_speed,
|
|
current_speed;
|
|
U8 status,
|
|
upgrade;
|
|
U16 l1_cache_handle,
|
|
l2_cache_handle,
|
|
l3_cache_handle;
|
|
U8 serial_number,
|
|
asset_tag,
|
|
part_number,
|
|
core_count,
|
|
cores_enabled,
|
|
thread_count;
|
|
U16 characteristics;
|
|
};
|
|
|
|
class CSMBIOSCacheInfo
|
|
{//Section 7.8 line 1168
|
|
CSMBIOSHeader header;
|
|
U8 name;
|
|
U16 config,
|
|
max_size,
|
|
installed_size,
|
|
supported_sram_type,
|
|
installed_sram_type;
|
|
U8 cache_speed,
|
|
error_correction_type,
|
|
cache_type,
|
|
associativity;
|
|
};
|
|
|
|
class CSMBIOSConnectorInfo
|
|
{//Section 7.9 line 1198
|
|
CSMBIOSHeader header;
|
|
U8 internal_name,
|
|
internal_type,
|
|
external_name,
|
|
external_type,
|
|
port_type;
|
|
};
|
|
|
|
class CSMBIOSSlotInfo
|
|
{//Section 7.10 line 1226
|
|
CSMBIOSHeader header;
|
|
U8 name,
|
|
type,
|
|
data_bus_width,
|
|
current_usage,
|
|
length;
|
|
U16 id;
|
|
U8 flags1,
|
|
flags2;
|
|
U16 segment_group_number;
|
|
U8 bus_number,
|
|
device_function_number;
|
|
};
|
|
|
|
class CSMBIOSMemArrayInfo
|
|
{//Section 7.17 line 1519
|
|
CSMBIOSHeader header;
|
|
U8 location,
|
|
use,
|
|
memory_error_correction;
|
|
U32 max_capacity;
|
|
U16 memory_error_info_handle,
|
|
mem_device_count;
|
|
U64 extended_max_capacity;
|
|
};
|
|
|
|
class CSMBIOSMemDeviceInfo
|
|
{//Section 7.18 line 1538
|
|
CSMBIOSHeader header;
|
|
U16 memory_array_handle,
|
|
memory_error_info_handle,
|
|
total_width,
|
|
data_width,
|
|
size;
|
|
U8 form_factor,
|
|
device_set,
|
|
device_locator,
|
|
bank_locator,
|
|
type;
|
|
U16 type_detail,
|
|
speed;
|
|
U8 manufacturer,
|
|
serial_number,
|
|
asset_tag,
|
|
part_number,
|
|
attributes;
|
|
U32 extended_size;
|
|
U16 configured_speed,
|
|
min_voltage,
|
|
max_voltage,
|
|
configured_voltage;
|
|
};
|
|
|
|
class CSMBIOSBatteryInfo
|
|
{//Section 7.23 line 1723
|
|
CSMBIOSHeader header;
|
|
U8 location,
|
|
manufacturer,
|
|
manufacture_date,
|
|
serial_number,
|
|
name,
|
|
chemistry,
|
|
capacity,
|
|
voltage,
|
|
sbds_version_number,
|
|
max_battery_data_error,
|
|
sbds_serial_number,
|
|
sbds_manufacture_date,
|
|
sbds_chemistry,
|
|
capacity_multiplier;
|
|
U32 oem;
|
|
};
|
|
|
|
#help_index "Devices;PCI"
|
|
|
|
//PCI Registers, used with $LK,"PCIRead",A="MN:PCIReadU16"$ functions.
|
|
#define PCIR_VENDOR_ID 0x00
|
|
#define PCIR_DEVICE_ID 0x02
|
|
#define PCIR_COMMAND 0x04
|
|
#define PCIR_STATUS 0x06
|
|
#define PCIR_REVISION_ID 0x08
|
|
#define PCIR_PROG_IF 0x09
|
|
#define PCIR_SUB_CODE 0x0A
|
|
#define PCIR_CLASS_CODE 0x0B
|
|
#define PCIR_CACHE_LINE_SIZE 0x0C
|
|
#define PCIR_LATENCY_TIMER 0x0D
|
|
#define PCIR_HEADER_TYPE 0x0E
|
|
#define PCIR_BIST 0x0F
|
|
#define PCIR_BASE0 0x10
|
|
#define PCIR_BASE1 0x14
|
|
#define PCIR_BASE2 0x18
|
|
#define PCIR_BASE3 0x1C
|
|
#define PCIR_BASE4 0x20
|
|
#define PCIR_BASE5 0x24
|
|
#define PCIR_SUBSYS_VENDOR_ID 0x2C
|
|
#define PCIR_SUBSYS_ID 0x2E
|
|
#define PCIR_EXPANSION_ROM 0x30
|
|
#define PCIR_CAPABILITIES 0x34
|
|
#define PCIR_INTERRUPT_LINE 0x3C
|
|
#define PCIR_INTERRUPT_PIN 0x3D
|
|
#define PCIR_MIN_GRANT 0x3E
|
|
#define PCIR_MAX_LATENCY 0x3F
|
|
|
|
//PCI class codes
|
|
#define PCIC_STORAGE 0x1
|
|
#define PCIC_NETWORK 0x2
|
|
|
|
//PCI subclass codes
|
|
#define PCISC_ETHERNET 0x0
|
|
#define PCISC_AHCI 0x6
|
|
|
|
//PCI I/O ports
|
|
#define PCI_ADDR 0xCF8
|
|
#define PCI_DATA 0xCFC
|
|
|
|
class CPCIDev
|
|
{
|
|
CPCIDev *next, *last;
|
|
U8 bus, dev, fun,
|
|
*vendor_str,
|
|
*dev_id_str,
|
|
class_code,
|
|
sub_code,
|
|
prog_if,
|
|
revision_id,
|
|
bist,
|
|
header_type,
|
|
latency_timer,
|
|
cache_line_size,
|
|
capabilities,
|
|
interrupt_line,
|
|
interrupt_pin,
|
|
min_grant,
|
|
max_latency;
|
|
U16 vendor_id,
|
|
device_id,
|
|
subsys_id,
|
|
subsys_vendor_id;
|
|
U32 base[6],
|
|
erom;
|
|
};
|
|
|
|
#help_index "Devices;File/System;PCI"
|
|
public class CATARep
|
|
{
|
|
CATARep *next;
|
|
I64 num,
|
|
type,
|
|
base0,
|
|
base1,
|
|
unit,
|
|
irq;
|
|
};
|
|
|
|
#help_index "Devices;Disk/AHCI"
|
|
#define AHCI_MAX_PORTS 32
|
|
|
|
//Physical Region Descriptor Table
|
|
#define AHCI_PRD_MAX_BYTES (4 * 1024 * 1024) //Max bytes that can go in one PRD entry ($ER$4 MiB). Section 4.2.3.3 Fig. 17 (DBC)
|
|
#define AHCI_PRDT_MAX_BLOCKS (U16_MAX + 1) //Max blocks you can transfer in one command.
|
|
#define AHCI_PRDT_MAX_LEN 8 //Max PRD entries in one command. This is equal to (MAX_BLOCKS * BLK_SIZE) ö MAX_BYTES.
|
|
|
|
//Global Host Control (Controller) flags
|
|
#define AHCI_GHCf_HBA_RESET 0
|
|
#define AHCI_GHCf_INTERRUPT_ENABLE 1
|
|
#define AHCI_GHCf_AHCI_ENABLE 31
|
|
|
|
#define AHCI_CAPSf_S64A 31 //Supports 64-bit Addressing
|
|
|
|
#define AHCI_CAPSEXTf_BOH 0 //Supports BIOS/OS Handoff
|
|
#define AHCI_CAPSEXTf_NVMP 1 //NVMHCI Supported & Present
|
|
|
|
//BIOS/OS Handoff Control
|
|
#define AHCI_BOHCf_BOS 0 //BIOS-Owned Semaphore (BIOS owns controller)
|
|
#define AHCI_BOHCf_OOS 1 //OS-Owned Semaphore (OS owns controller)
|
|
#define AHCI_BOHCf_BB 4 //BIOS Busy (polling bit while BIOS cleans up things after ownership transfer)
|
|
|
|
//Command Header flags
|
|
#define AHCI_CH_DESCf_A 5 //'ATAPI' bit. Set when ATAPI command is being sent.
|
|
#define AHCI_CH_DESCF_A (1 << AHCI_CH_DESCf_A)
|
|
#define AHCI_CH_DESCf_W 6 //'Write' bit. Set when data is being written.
|
|
#define AHCI_CH_DESCF_W (1 << AHCI_CH_DESCf_W)
|
|
|
|
//Command FIS flags
|
|
#define AHCI_CF_DESCf_C 7 //'Command' bit. Set when FIS is an ATA command.
|
|
#define AHCI_CF_DESCF_C (1 << AHCI_CF_DESCF_C)
|
|
|
|
//Port register flags
|
|
//Command and Status register flags
|
|
#define AHCI_PxCMDf_ST 0 //'Start'. Start processing commmand list. FRE must be set before.
|
|
#define AHCI_PxCMDf_SUD 1 //'Spin-Up Device'. For devices that support Staggered Spin-up. We attempt to set it for all ports.
|
|
#define AHCI_PxCMDf_POD 2 //'Power-On Device'. For devices that support Cold Presence. We attempt to set it for all ports.
|
|
#define AHCI_PxCMDf_FRE 4 //'FIS Receive Enable'. Allows the processing of FISes.
|
|
#define AHCI_PxCMDf_FR 14 //'FIS receive Running'. Status indicator for FRE.
|
|
#define AHCI_PxCMDf_CR 15 //'Command list Running'. Status indicator for ST.
|
|
#define AHCI_PxCMDf_ATAPI 24 //'Device is ATAPI'. When set, HBA turns on desktop LED when device is in use. For ATAPI devices.
|
|
#define AHCI_PxCMDF_ST (1 << AHCI_PxCMDf_ST)
|
|
#define AHCI_PxCMDF_SUD (1 << AHCI_PxCMDf_SUD)
|
|
#define AHCI_PxCMDF_POD (1 << AHCI_PxCMDf_POD)
|
|
#define AHCI_PxCMDF_FRE (1 << AHCI_PxCMDf_FRE)
|
|
#define AHCI_PxCMDF_FR (1 << AHCI_PxCMDf_FR)
|
|
#define AHCI_PxCMDF_CR (1 << AHCI_PxCMDf_CR)
|
|
#define AHCI_PxCMDF_ATAPI (1 << AHCI_PxCMDf_ATAPI)
|
|
|
|
//Task File Data register flags
|
|
#define AHCI_PxTFDf_STS_ERR 0 // Error Bit of Status register
|
|
|
|
//Signature types
|
|
#define AHCI_PxSIG_ATA 0x00000101
|
|
#define AHCI_PxSIG_ATAPI 0xEB140101
|
|
#define AHCI_PxSIG_SEMB 0xC33C0101 //Enclosure Management Bridge... rare to encounter in wild.
|
|
#define AHCI_PxSIG_PM 0x96690101 //Port multiplier... not relevant to PC-type systems.
|
|
|
|
//Interrupt flags (same in PxIE and PxIS)
|
|
#define AHCI_PxIf_OFS 24 //Overflow Status
|
|
#define AHCI_PxIf_INFS 26 //SATA Interface Non-Fatal Error
|
|
#define AHCI_PxIf_IFS 27 //SATA Interface Fatal Error
|
|
#define AHCI_PxIf_HBDS 28 //Host Bus Data Error
|
|
#define AHCI_PxIf_HBFS 29 //Host Bus Fatal Error
|
|
#define AHCI_PxIf_TFE 30 //Task File Error, see $LK,"ATAS_ERR",A="MN:ATAS_ERR"$.
|
|
#define AHCI_PxIf_CPDS 31 //Cold Port Detect Status
|
|
|
|
//COMRESET flags
|
|
//SATA Control register flags
|
|
#define AHCI_PxSCTLf_DET_INIT 1
|
|
#define AHCI_PxSCTLF_DET_INIT (1 << AHCI_PxSCTLf_DET_INIT)
|
|
//SATA Status register flags
|
|
#define AHCI_PxSSTSF_DET_PRESENT 3
|
|
|
|
//SATA Error register flags
|
|
#define AHCI_PxSERR_ERR_I 0 // Recovered Data Integrity Error
|
|
#define AHCI_PxSERR_ERR_M 1 // Recovered Communication Error
|
|
#define AHCI_PxSERR_ERR_T 8 // Transient Data Integrity Error
|
|
#define AHCI_PxSERR_ERR_C 9 // Persistent Communication Error
|
|
#define AHCI_PxSERR_ERR_P 10 // SATA Protocol Error
|
|
#define AHCI_PxSERR_ERR_E 11 // Internal Error
|
|
#define AHCI_PxSERR_DIAG_I 17 // Phy Internal Error
|
|
#define AHCI_PxSERR_DIAG_C 21 // Link Layer CRC Error
|
|
#define AHCI_PxSERR_DIAG_H 22 // Handshake Error
|
|
#define AHCI_PxSERR_DIAG_S 23 // Link Sequence Error
|
|
#define AHCI_PxSERR_DIAG_T 24 // Transport State Transition Error
|
|
|
|
class CAHCIPort
|
|
{//Port register layout
|
|
U32 cmd_list_base,
|
|
cmd_list_base_upper,
|
|
fis_base,
|
|
fis_base_upper,
|
|
interrupt_status,
|
|
interrupt_enable,
|
|
command,
|
|
reserved,
|
|
task_file_data,
|
|
signature,
|
|
sata_status,
|
|
sata_ctrl,
|
|
sata_error,
|
|
sata_active,
|
|
cmd_issue,
|
|
sata_notif,
|
|
fis_switch_ctrl,
|
|
device_sleep;
|
|
U8 reserved[40],
|
|
vendor[16];
|
|
};
|
|
|
|
class CAHCIHba
|
|
{//HBA register layout
|
|
U32 caps,
|
|
ghc, //Global Host Control
|
|
interrupt_status,
|
|
ports_implemented,
|
|
version,
|
|
ccc_ctrl, //Command Completion Coalescing
|
|
ccc_ports,
|
|
em_location,//Enclosure Management
|
|
em_ctrl,
|
|
caps_ext,
|
|
bohc;
|
|
U8 reserved[116],
|
|
vendor[96];
|
|
CAHCIPort ports[32];
|
|
};
|
|
|
|
#define FISt_H2D 0x27
|
|
|
|
class CFisH2D
|
|
{//Host To Device
|
|
U8 type,
|
|
desc, //We are concerned with bit #7 ($LK,"AHCI_CF_DESCf_C",A="MN:AHCI_CF_DESCf_C"$) 1=command, 0=control.
|
|
command,
|
|
feature_low,
|
|
lba0,
|
|
lba1,
|
|
lba2,
|
|
device,
|
|
lba3,
|
|
lba4,
|
|
lba5,
|
|
feature_high;
|
|
U16 count;
|
|
U8 icc,
|
|
ctrl;
|
|
U32 reserved;
|
|
};
|
|
|
|
class CFisReceived
|
|
{
|
|
U8 dma_fis[28],
|
|
reserved[4],
|
|
pio_fis[20],
|
|
reserved[12],
|
|
r_fis[20],
|
|
reserved[4],
|
|
devbits_fis[8],
|
|
unknown_fis[64],
|
|
reserved[96];
|
|
};
|
|
|
|
class CPrdtEntry
|
|
{
|
|
U32 data_base,
|
|
data_base_upper,
|
|
reserved,
|
|
data_byte_count; //bit 31 is "Interrupt on Completion". bits 21:0 are the actual count.
|
|
};
|
|
|
|
/*
|
|
Bits of first U32:
|
|
4:0 - Command FIS Length, in U32s
|
|
5 - ATAPI bit (A) for ATAPI command
|
|
6 - Write bit (W) for write commands $LK,"AHCI_CH_DESCf_W",A="MN:AHCI_CH_DESCf_W"$ 1=write 0=read
|
|
7 - Prefetchable (P)
|
|
8 - Reset (R)
|
|
9 - Built-in Self Test (BIST)
|
|
10 - Clear busy upon R_OK
|
|
11 - Reserved
|
|
15:12 - Port Multiplier Port (PMP)
|
|
31:16 - Physical Region Descriptor Table Length (PRDTL)
|
|
*/
|
|
class CPortCmdHeader
|
|
{//What the CAHCIPort.cmd_list consists of.
|
|
U16 desc,
|
|
prdt_len;
|
|
U32 prd_byte_count,
|
|
cmd_table_base,
|
|
cmd_table_base_upper,
|
|
reserved[4];
|
|
};
|
|
|
|
class CPortCmdTable
|
|
{
|
|
U8 cmd_fis[64],
|
|
acmd[16],
|
|
reserved[48];
|
|
CPrdtEntry prdt[8];
|
|
};
|
|
|
|
class CAtapiReadCmd
|
|
{
|
|
U8 command,
|
|
reserved;
|
|
U32 lba,
|
|
count;
|
|
U8 reserved,
|
|
ctrl,
|
|
zero[4];
|
|
};
|
|
|
|
//ATA_IDENTIFY command array indexes (array of U16s)
|
|
#define ATA_IDENT_SERIAL_NUM 10
|
|
#define ATA_IDENT_MODEL_NUM 27
|
|
#define ATA_IDENT_LBA48_CAPACITY 100
|
|
|
|
//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_READ_DMA_EXT 0x25
|
|
#define ATA_WRITE_MULTI 0xC5
|
|
#define ATA_WRITE_MULTI_EXT 0x39
|
|
#define ATA_WRITE_DMA_EXT 0x35
|
|
#define ATA_IDENTIFY 0xEC
|
|
#define ATA_IDENTIFY_PACKET 0xA1 // IDENTIFY PACKET DEVICE, mirror of ATA_IDENTIFY for ATAPI
|
|
|
|
#define ATAPI_FORMAT_UNIT 0x0400
|
|
#define ATAPI_START_STOP_UNIT 0x1B00
|
|
#define ATAPI_READ_CAPACITY 0x2500
|
|
#define ATAPI_SEEK 0x2B00
|
|
#define ATAPI_SYNC_CACHE 0x3500
|
|
#define ATAPI_READ_TRACK_INFO 0x5200
|
|
#define ATAPI_CLOSE_TRACK_SESSION 0x5B00
|
|
#define ATAPI_READ 0xA800
|
|
#define ATAPI_WRITE 0xAA00
|
|
#define ATAPI_SET_CD_SPEED 0xBB00
|
|
|
|
#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 "*.CC*;*.HH*"
|
|
#define FILEMASK_AOT "*.CC*;*.HH*;*.PRJ*"
|
|
#define FILEMASK_SRC "*.CC*;*.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 CMBRPart
|
|
{
|
|
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;
|
|
CMBRPart 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_drive; //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_drive_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,
|
|
ListAccDate,
|
|
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_DRIVE_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_CONTIGUOUS 0x400 //C
|
|
#define RS_ATTR_FIXED 0x800 //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 // r
|
|
#define FUf_DIFF 1 // d
|
|
#define FUf_DEL 1 // d
|
|
#define FUf_IGNORE 2 // i
|
|
#define FUf_ALL 3 // a
|
|
#define FUf_CANCEL 4 // c
|
|
#define FUf_REPLACE 5 // R
|
|
#define FUf_PUBLIC 6 // p
|
|
#define FUf_MAP 7 // m
|
|
#define FUf_SINGLE 8 // s
|
|
#define FUf_JUST_DIRS 9 // D
|
|
#define FUf_JUST_FILES 10 // F
|
|
#define FUf_JUST_TXT 11 // T
|
|
#define FUf_JUST_DD 12 // $$
|
|
#define FUf_JUST_SRC 13 // S
|
|
#define FUf_JUST_AOT 14 // A
|
|
#define FUf_JUST_JIT 15 // J
|
|
#define FUf_JUST_GR 16 // G
|
|
#define FUf_CLUS_ORDER 17 // O (Move disk head one direction)
|
|
#define FUf_SCAN_PARENTS 18 // P
|
|
#define FUf_FLATTEN_TREE 19 // f
|
|
#define FUf_WHOLE_LABELS 20 // l
|
|
#define FUf_WHOLE_LABELS_BEFORE 21 // lb
|
|
#define FUf_WHOLE_LABELS_AFTER 22 // la
|
|
|
|
#define FUF_RECURSE (1 << FUf_RECURSE)
|
|
#define FUF_DIFF (1 << FUf_DIFF)
|
|
#define FUF_DEL (1 << FUf_DEL)
|
|
#define FUF_IGNORE (1 << FUf_IGNORE)
|
|
#define FUF_ALL (1 << FUf_ALL)
|
|
#define FUF_CANCEL (1 << FUf_CANCEL)
|
|
#define FUF_REPLACE (1 << FUf_REPLACE)
|
|
#define FUF_PUBLIC (1 << FUf_PUBLIC)
|
|
#define FUF_MAP (1 << FUf_MAP)
|
|
#define FUF_SINGLE (1 << FUf_SINGLE)
|
|
#define FUF_JUST_DIRS (1 << FUf_JUST_DIRS)
|
|
#define FUF_JUST_FILES (1 << FUf_JUST_FILES)
|
|
#define FUF_JUST_TXT (1 << FUf_JUST_TXT)
|
|
#define FUF_JUST_DD (1 << FUf_JUST_DD)
|
|
#define FUF_JUST_SRC (1 << FUf_JUST_SRC)
|
|
#define FUF_JUST_AOT (1 << FUf_JUST_AOT)
|
|
#define FUF_JUST_JIT (1 << FUf_JUST_JIT)
|
|
#define FUF_JUST_GR (1 << FUf_JUST_GR)
|
|
#define FUF_CLUS_ORDER (1 << FUf_CLUS_ORDER)
|
|
#define FUF_SCAN_PARENTS (1 << FUf_SCAN_PARENTS)
|
|
#define FUF_FLATTEN_TREE (1 << FUf_FLATTEN_TREE)
|
|
#define FUF_WHOLE_LABELS (1 << FUf_WHOLE_LABELS)
|
|
#define FUF_WHOLE_LABELS_BEFORE (1 << FUf_WHOLE_LABELS_BEFORE)
|
|
#define FUF_WHOLE_LABELS_AFTER (1 << FUf_WHOLE_LABELS_AFTER)
|
|
|
|
#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_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 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_FORMAT 6
|
|
#define BDf_INIT_IN_PROGRESS 7
|
|
#define BDf_EXT_SIZE 8
|
|
#define BDf_INTERNAL_BUF 9
|
|
|
|
#define BDF_REMOVABLE (1 << BDf_REMOVABLE)
|
|
#define BDF_INITIALIZED (1 << BDf_INITIALIZED)
|
|
#define BDF_READ_ONLY (1 << BDf_READ_ONLY)
|
|
#define BDF_READ_ONLY_OVERRIDE (1 << BDf_READ_ONLY_OVERRIDE)
|
|
#define BDF_LAST_WAS_WRITE (1 << BDf_LAST_WAS_WRITE)
|
|
#define BDF_READ_CACHE (1 << BDf_READ_CACHE)
|
|
#define BDF_FORMAT (1 << BDf_FORMAT)
|
|
#define BDF_INIT_IN_PROGRESS (1 << BDf_INIT_IN_PROGRESS)
|
|
#define BDF_EXT_SIZE (1 << BDf_EXT_SIZE)
|
|
#define BDF_INTERNAL_BUF (1 << BDf_INTERNAL_BUF)
|
|
|
|
//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
|
|
CTask *owning_task;
|
|
CAHCIPort *ahci_port;
|
|
U8 *prd_buf,
|
|
first_drive_let,
|
|
unit,
|
|
pad[2],
|
|
*RAM_disk,
|
|
*file_disk_name;
|
|
CFile *file_disk;
|
|
U32 bd_signature,
|
|
type,
|
|
flags,
|
|
base0,
|
|
base1,
|
|
blk_size,
|
|
max_reads,
|
|
max_writes;
|
|
I64 drv_offset,
|
|
init_root_dir_blks,
|
|
max_blk,
|
|
locked_flags,
|
|
port_num;
|
|
U16 *dev_id_record;
|
|
F64 last_time;
|
|
};
|
|
|
|
//Drive locked_flags
|
|
#define DVlf_LOCKED 0
|
|
|
|
//See $LK,"ST_DRIVE_TYPES",A="MN:ST_DRIVE_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 CFreeList
|
|
{
|
|
CFreeList *next, *last;
|
|
I64 start, size;
|
|
};
|
|
|
|
#define DRIVES_NUM 26
|
|
|
|
#define DRIVE_SIGNATURE_VAL 'DVSV'
|
|
public class CDrive
|
|
{
|
|
//Don't access ->drv_let directly in case a drive has been remapped.
|
|
//Use $LK,"Drive2Letter",A="MN:Drive2Letter"$().
|
|
I64 locked_flags;
|
|
U32 drive_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;
|
|
CFreeList *next_free, *last_free;
|
|
};
|
|
|
|
#define DISK_CACHE_HASH_SIZE 0x2000
|
|
|
|
class CCacheBlk
|
|
{
|
|
CCacheBlk *next_lru, *last_lru;
|
|
CCacheBlk *next_hash, *last_hash;
|
|
CDrive *drive;
|
|
I64 blk;
|
|
U8 body[BLK_SIZE];
|
|
};
|
|
|
|
#help_index "File/System"
|
|
#define DEFAULT_ISO_FILENAME "::/Tmp/CDDVD.ISO"
|
|
#define DEFAULT_ISO_C_FILENAME "::/Tmp/CDDVD.ISO.C"
|
|
|
|
public class CBlkDevGlobals
|
|
{
|
|
CBlkDev *blkdevs;
|
|
CDrive *drvs,
|
|
*let_to_drive[32];
|
|
CAHCIHba *ahci_hba;
|
|
U8 *default_iso_filename, //$TX,"\"::/Tmp/CDDVD.ISO\"",D="DEFAULT_ISO_FILENAME"$
|
|
*default_iso_c_filename, //$TX,"\"::/Tmp/CDDVD.ISO.C\"",D="DEFAULT_ISO_C_FILENAME"$
|
|
*tmp_filename,
|
|
*home_dir,
|
|
boot_drive_let,
|
|
first_hd_drive_let,
|
|
first_dvd_drive_let;
|
|
CCacheBlk *cache_base,
|
|
*cache_ctrl,
|
|
**cache_hash_table;
|
|
I64 cache_size,
|
|
read_count,
|
|
write_count,
|
|
mount_ide_auto_count,
|
|
cmd_slot_count,
|
|
ins_base0,
|
|
ins_base1; //Install cd/dvd controller.
|
|
Bool dvd_boot_is_good,
|
|
ahci64,
|
|
ins_unit,
|
|
pad[2];
|
|
};
|
|
|
|
#help_index "File/Internal"
|
|
public class CDirContext
|
|
{
|
|
CDrive *old_dv, *drive;
|
|
U8 *old_dir, *mask;
|
|
};
|
|
|
|
#help_index "File/CFile"
|
|
#define FFB_NEXT_BLK I64_MAX
|
|
|
|
#define FF_WRITE 1
|
|
#define FF_NEW_FILE 2
|
|
#define FF_BUF_DIRTY 4
|
|
#define FF_NEEDS_WRITE 8
|
|
#define FF_CONTIGUOUS 16
|
|
#define FF_USE_OLD_DATETIME 32
|
|
|
|
public class CFile //See $LK,"::/Demo/Disk/DataBase.CC"$.
|
|
{
|
|
I64 flags;
|
|
CDirEntry de;
|
|
CDrive *drive;
|
|
I64 fblk_num, clus, file_clus_num, max_blk;
|
|
U8 *clus_buf;
|
|
};
|
|
|
|
#help_index "Memory/Heap"
|
|
#define _CONFIG_HEAP_DEBUG FALSE
|
|
|
|
#if _CONFIG_HEAP_DEBUG
|
|
class CMemUnused
|
|
{
|
|
CHeapCtrl *hc;
|
|
U8 *caller1, *caller2;
|
|
CMemUnused *next;
|
|
I64 size;
|
|
};
|
|
class CMemUsed
|
|
{
|
|
CHeapCtrl *hc;
|
|
U8 *caller1, *caller2;
|
|
CMemUsed *next, *last;
|
|
I64 size;
|
|
U0 start;
|
|
};
|
|
#else
|
|
class CMemUnused
|
|
{
|
|
U0 hc;
|
|
U0 caller1, caller2;
|
|
CMemUnused *next;
|
|
I64 size;
|
|
};
|
|
class CMemUsed
|
|
{
|
|
CHeapCtrl *hc;
|
|
U0 caller1, caller2;
|
|
U0 next, last;
|
|
I64 size;
|
|
U0 start;
|
|
};
|
|
#endif
|
|
|
|
#help_index "Memory/BlkPool"
|
|
#help_file "::/Doc/Pags"
|
|
|
|
#define MBS_USED_SIGNATURE_VAL 'MBUs'
|
|
#define MBS_UNUSED_SIGNATURE_VAL 'MBUn'
|
|
class CMemBlk
|
|
{
|
|
CMemBlk *next, *last;
|
|
U32 mb_signature, pags;
|
|
};
|
|
|
|
#define MRT_UNUSED 0
|
|
#define MRT_RAM 1
|
|
#define MRT_DEV 2
|
|
|
|
class CMemRange
|
|
{
|
|
CMemRange *next, *last;
|
|
U32 type, flags;
|
|
U8 *base;
|
|
I64 size;
|
|
};
|
|
|
|
#define MEM_PAG_BITS 9
|
|
#define MEM_PAG_SIZE (1 << MEM_PAG_BITS)
|
|
#define MEM_HEAP_HASH_SIZE 1024
|
|
#define MEM_FREE_PAG_HASH_SIZE 0x100
|
|
//It is common to $LK,"MAlloc",A="MN:MAlloc"$() exact powers of two. There is some overhead.
|
|
//We add 2 pags, so a request is not rounded-up to next power of two.
|
|
#define MEM_EXTRA_HASH2_PAGS 2
|
|
|
|
#define MEM_SYSTEM_STACK (MEM_PAG_SIZE * 512) //Like 16384*MEM_PAG_SIZE
|
|
#define MEM_EXECUTIVE_STACK (MEM_PAG_SIZE * 512)
|
|
#define MEM_INTERRUPT_STACK (MEM_PAG_SIZE * 512)
|
|
#define MEM_DEFAULT_STACK (MEM_PAG_SIZE * 512)
|
|
|
|
#define TASK_HASH_TABLE_SIZE (1 << 10)
|
|
|
|
//locked flags
|
|
#define BPlf_LOCKED 0
|
|
public class CBlkPool
|
|
{
|
|
I64 locked_flags, alloced_u8s, used_u8s;
|
|
CMemBlk *mem_free_list,
|
|
*mem_free_2meg_list, //This is for Sup1CodeScraps/Mem/Mem2Meg.CC.
|
|
*free_pag_hash[MEM_FREE_PAG_HASH_SIZE],
|
|
*free_pag_hash2[64 - MEM_PAG_BITS];
|
|
};
|
|
|
|
#help_index "Memory/HeapCtrl"
|
|
//locked flags
|
|
#define HClf_LOCKED 0
|
|
|
|
#define HEAP_CTRL_SIGNATURE_VAL 'HcSV'
|
|
public class CHeapCtrl
|
|
{
|
|
CBlkPool *bp;
|
|
U32 hc_signature, pad;
|
|
I64 locked_flags, alloced_u8s, used_u8s;
|
|
CTask *mem_task;
|
|
CMemBlk *next_mem_blk, *last_mem_blk;
|
|
CMemBlk *last_mergable;
|
|
CMemUnused *malloc_free_list;
|
|
CMemUsed *next_um, *last_um;
|
|
CMemUnused *heap_hash[MEM_HEAP_HASH_SIZE / sizeof(U8 *)];
|
|
};
|
|
|
|
#help_index "Devices;Memory/Page Tables"
|
|
public class CDevGlobals
|
|
{
|
|
CIDTEntry *idt;
|
|
U8 *mem64_ptr;
|
|
U8 *uncached_alias; //Alias of lowest 4Gig.
|
|
U8 mp_apic_ids[MP_PROCESSORS_NUM];
|
|
CMemRange mem32_head;
|
|
CPCIDev pci_head;
|
|
U64 user_int_bitmap;
|
|
};
|
|
|
|
#help_index "Graphics/Color;Graphics/Device Contexts"
|
|
//Raster operations
|
|
#define ROPB_EQU 0x00
|
|
#define ROPB_XOR 0x01
|
|
#define ROPB_COLLISION 0x02
|
|
#define ROPB_MONO 0x03
|
|
#define ROPBF_HALF_RANGE_COLOR 0x10
|
|
#define ROPBF_TWO_SIDED 0x20
|
|
#define ROPBF_DITHER 0x40
|
|
#define ROPBF_PROBABILITY_DITHER 0x80
|
|
|
|
#define ROP_EQU (ROPB_EQU << 8)
|
|
#define ROP_XOR (ROPB_XOR << 8)
|
|
#define ROP_COLLISION (ROPB_COLLISION << 8)
|
|
#define ROP_MONO (ROPB_MONO << 8)
|
|
|
|
//These are just for $LK,"ROPF_PROBABILITY_DITHER",A="MN:ROPF_PROBABILITY_DITHER"$
|
|
//See $LK,"DCLighting",A="MN:DCLighting"$().
|
|
#define ROPF_HALF_RANGE_COLOR 0x1000
|
|
#define ROPF_TWO_SIDED 0x2000
|
|
|
|
//These always go in the c1.rop of a CColorROPU32
|
|
#define ROPF_DITHER 0x40000000
|
|
#define ROPF_PROBABILITY_DITHER 0x80000000
|
|
|
|
#help_index "Graphics/Color"
|
|
#define TRANSPARENT 0xFF
|
|
#define BLACK 0
|
|
#define BLUE 1
|
|
#define GREEN 2
|
|
#define CYAN 3
|
|
#define RED 4
|
|
#define PURPLE 5
|
|
#define BROWN 6
|
|
#define LTGRAY 7
|
|
#define DKGRAY 8
|
|
#define LTBLUE 9
|
|
#define LTGREEN 10
|
|
#define LTCYAN 11
|
|
#define LTRED 12
|
|
#define LTPURPLE 13
|
|
#define YELLOW 14
|
|
#define WHITE 15
|
|
|
|
#define COLORS_NUM 16
|
|
#define COLOR_INVALID 16
|
|
#define COLOR_MONO 0xFF
|
|
|
|
public U16 class CColorROPU16 //Don't use this, use CColorROPU32
|
|
{
|
|
U8 color, rop;
|
|
};
|
|
public U32 class CColorROPU32
|
|
{
|
|
CColorROPU16 c0, c1;
|
|
};
|
|
#define COLORROP_COLORS_MASK 0x00FF00FF
|
|
#define COLORROP_NO_ROP0_MASK 0xFFFF00FF
|
|
#define COLORROP_BITS 16
|
|
public U32 class CBGR24
|
|
{
|
|
U8 b, g, r, pad;
|
|
};
|
|
public I64 class CBGR48
|
|
{
|
|
U16 b, g, r, pad;
|
|
};
|
|
|
|
#help_index "Keyboard Devices;Char/Input;StdIn"
|
|
#define KBD_PORT 0x60
|
|
#define KBD_CTRL 0x64
|
|
|
|
#define KBDC_LED 0xED
|
|
#define KBDC_DISABLE_MS 0xA7
|
|
#define KBDC_ENABLE_MS 0xA8
|
|
#define KBDC_ENABLE_KBD 0xAE
|
|
#define KBDC_TYPEMATIC 0xF3
|
|
#define KBDC_SCAN_CODES 0xF0
|
|
|
|
public class CKbdStateGlobals
|
|
{
|
|
I64 scan_code, //See $LK,"scan codes",A="FI:::/Doc/CharOverview.DD"$
|
|
last_down_scan_code,
|
|
count, //Count of keys pressed since boot.
|
|
timestamp, //Output: TSCGet when event.
|
|
new_key_timestamp; //Output: TSCGet when new key event.
|
|
CFifoU8 *fifo, *fifo2; //Private
|
|
CFifoI64 *scan_code_fifo;
|
|
U32 down_bitmap[8], //BitTest, $LK,"Bt",A="MN:Bt"$(), with a merged scan code. (Left and right shift merged, for example.)
|
|
down_bitmap2[8]; //BitTest, $LK,"Bt",A="MN:Bt"$(), with an unmerged scan code.
|
|
Bool reset, //Private: Reset KbdMouse
|
|
irqs_working; //Private
|
|
};
|
|
|
|
#help_index "Mouse"
|
|
public class CMouseHardStateGlobals
|
|
{
|
|
CD3I64 pos, //Position in pixels
|
|
prescale;
|
|
CD3 scale;
|
|
F64 speed; //Output: How fast the user is moving it.
|
|
I64 timestamp, //Output: TSCGet when event.
|
|
install_attempts, //Private
|
|
pkt_size; //Private
|
|
CFifoU8 *fifo, *fifo2; //Private
|
|
Bool bttns[5],
|
|
has_wheel,
|
|
has_ext_bttns,
|
|
enabled,
|
|
event, //Private
|
|
installed, //Private
|
|
install_in_progress, //Private
|
|
irqs_working; //Private
|
|
};
|
|
|
|
public class CMouseStateGlobals
|
|
{
|
|
CD3I64 pos, //Position in pixels
|
|
pos_text, //Position in text rows,cols
|
|
presnap,
|
|
offset;
|
|
CD3 scale;
|
|
F64 speed; //Output: How fast the user is moving it.
|
|
I64 timestamp; //Output: TSCGet when event.
|
|
F64 dbl_time, //Input: Time threshold for calling it a double click.
|
|
left_dbl_time, //Private
|
|
right_dbl_time; //Private
|
|
Bool lb, //Left Bttn
|
|
rb, //Right Bttn
|
|
show,
|
|
has_wheel,
|
|
left_dbl, //Private
|
|
left_down_sent, //Private
|
|
right_dbl, //Private
|
|
right_down_sent; //Private
|
|
};
|
|
|
|
public class CGridGlobals
|
|
{
|
|
Bool snap format "$$CB,\"Snap Grid\"$$\n",
|
|
show format "$$CB,\"Show Grid\"$$\n",
|
|
coord format "$$CB,\"Show Coordinates\"$$\n";
|
|
U8 pad[5];
|
|
F64 x format "$$DA-TRM,A=\"X Spacing:%6.3f\"$$\n",
|
|
y format "$$DA-TRM,A=\"Y Spacing:%6.3f\"$$\n",
|
|
z format "$$DA-TRM,A=\"Z Spacing:%6.3f\"$$\n",
|
|
x_offset format "$$DA-TRM,A=\"X Offset :%6.3f\"$$\n",
|
|
y_offset format "$$DA-TRM,A=\"Y Offset :%6.3f\"$$\n",
|
|
z_offset format "$$DA-TRM,A=\"Z Offset :%6.3f\"$$\n",
|
|
x_speed format "$$DA-TRM,A=\"X Speed :%6.3f\"$$\n",
|
|
y_speed format "$$DA-TRM,A=\"Y Speed :%6.3f\"$$\n",
|
|
z_speed format "$$DA-TRM,A=\"Z Speed :%6.3f\"$$\n";
|
|
};
|
|
|
|
#help_index "Ctrls"
|
|
#define CTRLT_GENERIC 0
|
|
#define CTRLT_WIN_HSCROLL 1 //unique
|
|
#define CTRLT_WIN_VSCROLL 2 //unique
|
|
#define CTRLT_VIEWING_ANGLES 3 //unique
|
|
|
|
#define CTRLF_SHOW 1
|
|
#define CTRLF_BORDER 2
|
|
#define CTRLF_CAPTURE_LEFT_MS 4
|
|
#define CTRLF_CAPTURE_RIGHT_MS 8
|
|
#define CTRLF_CLICKED 16
|
|
|
|
#define WSSf_SET_TO_POS 0
|
|
|
|
public class CWinScroll
|
|
{
|
|
I64 min, pos, max;
|
|
U32 flags;
|
|
U8 color, pad[3];
|
|
};
|
|
|
|
public class CViewAngles
|
|
{
|
|
I64 sx, sy, sz;
|
|
F64 ax, ay, az;
|
|
CColorROPU32 cx, cy, cz, cbd, cbg, config;
|
|
};
|
|
|
|
public class CCtrl
|
|
{
|
|
CCtrl *next, *last;
|
|
CTask *win_task;
|
|
I64 type, flags;
|
|
|
|
//win pix coordinates
|
|
I64 left, right, top, bottom;
|
|
|
|
//screen pix coordinates (derived)
|
|
I64 screen_left, screen_right, screen_top, screen_bottom;
|
|
|
|
U8 *state;
|
|
|
|
//called on resize
|
|
U0 (*update_derived_vals)(CCtrl *c);
|
|
U0 (*draw_it)(CDC *dc, CCtrl *c);
|
|
|
|
Bool (*inside_ctrl)(CCtrl *c, I64 x, I64 y); //For nonbox shapes
|
|
U0 (*left_click)( CCtrl *c, I64 x, I64 y, Bool down);
|
|
U0 (*right_click)(CCtrl *c, I64 x, I64 y, Bool down);
|
|
U0 (*wheel_chg)( CCtrl *c, I64 delta);
|
|
};
|
|
|
|
#help_index "Menus"
|
|
public class CMenuEntry
|
|
{
|
|
CMenuEntry *next;
|
|
CMenuEntry *sub;
|
|
U8 name[32];
|
|
I64 message_code, arg1, arg2;
|
|
Bool checked, dir, pad[6];
|
|
};
|
|
|
|
public class CMenu
|
|
{
|
|
CMenu *next;
|
|
CMenuEntry *sub;
|
|
CTask *task;
|
|
I64 flags;
|
|
U8 attr, pad[7];
|
|
};
|
|
|
|
#help_index "Task"
|
|
class CBpt
|
|
{
|
|
CBpt *next;
|
|
U8 *addr,
|
|
val, pad[7];
|
|
};
|
|
|
|
class CExcept
|
|
{
|
|
CExcept *next, *last;
|
|
I64 handler_catch, handler_untry,
|
|
rsp, rbp, rflags, rsi, rdi, r10, r11, r12, r13, r14, r15;
|
|
};
|
|
|
|
class CFPU
|
|
{
|
|
U8 body[512];
|
|
};
|
|
|
|
#help_index "Job/Exe;Task/Job/Exe"
|
|
#define JOBf_WAKE_MASTER 0
|
|
#define JOBf_FOCUS_MASTER 1
|
|
#define JOBf_EXIT_ON_COMPLETE 2
|
|
#define JOBf_DONT_FILTER 3
|
|
#define JOBf_HIGHEST_PRIORITY 4
|
|
//MP flags
|
|
#define JOBf_DONE 5
|
|
#define JOBf_DISPATCHED 6
|
|
#define JOBf_FREE_ON_COMPLETE 7
|
|
#define JOBf_ADD_TO_QUE 8
|
|
|
|
#define JOBT_TEXT_INPUT 0 //$LK,"TaskText",A="MN:TaskText"$() Feed StdIn
|
|
#define JOBT_MESSAGE 1 //$LK,"TaskMessage",A="MN:TaskMessage"$() Post message
|
|
#define JOBT_EXE_STR 2 //$LK,"TaskExe",A="MN:TaskExe"$() Compile & execute src code text
|
|
//MP cmds
|
|
#define JOBT_CALL 3 //$LK,"JobQueue",A="MN:JobQueue"$() Tell MP to call function
|
|
#define JOBT_SPAWN_TASK 4 //$LK,"Spawn",A="MN:Spawn"$() Tell MP to spawn task
|
|
|
|
class CJob
|
|
{
|
|
CJob *next, *last;
|
|
CJobCtrl *ctrl;
|
|
I64 job_code, flags, message_code;
|
|
|
|
I64 (*addr)(U8 *fun_arg);
|
|
U8 *fun_arg;
|
|
|
|
U8 *aux_str;
|
|
I64 aux1, aux2, //Sometimes called arg1 and arg2. (Windows message param1 param2)
|
|
res;
|
|
|
|
CTask *spawned_task,
|
|
*master_task;
|
|
};
|
|
|
|
#define JOBCf_LOCKED 0
|
|
class CJobCtrl
|
|
{
|
|
CJob *next_waiting, *last_waiting;
|
|
CJob *next_done, *last_done;
|
|
I64 flags;
|
|
};
|
|
|
|
#help_index "Messages"
|
|
//See $LK,"::/Demo/MessageLoop.CC"$
|
|
#define MESSAGE_NULL 0
|
|
#define MESSAGE_CMD 1
|
|
#define MESSAGE_KEY_DOWN 2 //($LK,"ASCII",A="MN:CH_CTRLA"$,$LK,"scan code",A="FI:::/Doc/CharOverview.DD"$) Press <CTRL-SHIFT-L>
|
|
#define MESSAGE_KEY_UP 3 //($LK,"ASCII",A="MN:CH_CTRLA"$,$LK,"scan code",A="FI:::/Doc/CharOverview.DD"$) Press <CTRL-SHIFT-L>
|
|
#define MESSAGE_MS_MOVE 4 //(x,y)
|
|
#define MESSAGE_MS_L_DOWN 5 //(x,y)
|
|
#define MESSAGE_MS_L_UP 6 //(x,y)
|
|
#define MESSAGE_MS_L_D_DOWN 7 //(x,y)
|
|
#define MESSAGE_MS_L_D_UP 8 //(x,y)
|
|
#define MESSAGE_MS_R_DOWN 9 //(x,y)
|
|
#define MESSAGE_MS_R_UP 10 //(x,y)
|
|
#define MESSAGE_MS_R_D_DOWN 11 //(x,y)
|
|
#define MESSAGE_MS_R_D_UP 12 //(x,y)
|
|
|
|
//Fake messages used to send both an up and down.
|
|
#define MESSAGE_KEY_DOWN_UP -2 //Down & UP
|
|
#define MESSAGE_MS_L_DOWN_UP -5 //Down & Up
|
|
#define MESSAGE_MS_L_D_DOWN_UP -7 //Down & Up
|
|
#define MESSAGE_MS_R_DOWN_UP -9 //Down & Up
|
|
#define MESSAGE_MS_R_D_DOWN_UP -11 //Down & Up
|
|
|
|
#help_index "Task/Settings"
|
|
#define TSF_SAME_SONG 1
|
|
public class CTaskSettings
|
|
{
|
|
CTaskSettings *next;
|
|
U8 *cur_dir;
|
|
I64 left, right, top, bottom;
|
|
U0 (*draw_it)(CTask *task, CDC *dc);
|
|
U0 (*task_end_cb)();
|
|
CTask *song_task, *animate_task;
|
|
I64 scroll_x, scroll_y, scroll_z;
|
|
CBGR24 palette[COLORS_NUM];
|
|
U32 win_inhibit;
|
|
U8 text_attr, title_src,
|
|
border_attr, border_src,
|
|
task_title[STR_LEN];
|
|
Bool border, hide_cursor, highlight_cursor, scroll, autocomplete, pad[3];
|
|
#assert !($$ & 7)
|
|
};
|
|
|
|
#help_index "Task"
|
|
//CTask.border_src
|
|
#define BDS_CONST 0
|
|
#define BDS_CUR_DRIVE 1
|
|
#define BDS_ED_FILENAME_DRIVE 2
|
|
|
|
//CTask.title_src
|
|
#define TTS_CONST 0
|
|
#define TTS_LOCKED_CONST 1 //This is not strictly enforced
|
|
#define TTS_TASK_NAME 2
|
|
#define TTS_ED_FILENAME 3
|
|
#define TTS_CUR_LEX 4
|
|
|
|
//CTask.task_flags
|
|
#define TASKf_TASK_LOCK 0
|
|
#define TASKf_KILL_TASK 1
|
|
#define TASKf_SUSPENDED 2
|
|
#define TASKf_IDLE 3
|
|
#define TASKf_CMD_LINE_PROMPT 4
|
|
#define TASKf_INPUT_FILTER_TASK 5
|
|
#define TASKf_FILTER_INPUT 6
|
|
#define TASKf_HAS_SONG 7
|
|
#define TASKf_DISABLE_BPTS 8
|
|
#define TASKf_AWAITING_MESSAGE 9
|
|
#define TASKf_BREAK_LOCKED 10
|
|
#define TASKf_PENDING_BREAK 11
|
|
#define TASKf_BREAK_TO_SHIFT_ESC 12
|
|
#define TASKf_KILL_AFTER_DEBUG 13
|
|
|
|
#define TASKf_NONTIMER_RAND 14
|
|
|
|
//CTask.display_flags
|
|
#define DISPLAYf_SHOW 0
|
|
#define DISPLAYf_NOT_RAW 1
|
|
#define DISPLAYf_SILENT 2
|
|
#define DISPLAYf_NO_BORDER 3
|
|
#define DISPLAYf_WIN_ON_TOP 4
|
|
#define DISPLAYf_CHILDREN_NOT_ON_TOP 5
|
|
|
|
#define TASK_SIGNATURE_VAL 'TskS'
|
|
#define TASK_NAME_LEN 32
|
|
#define TASK_EXCEPT_CALLERS 8
|
|
class CTaskStack
|
|
{
|
|
CTaskStack *next_stack;
|
|
I64 stack_size, stack_ptr;
|
|
U0 stack_base;
|
|
};
|
|
|
|
#define DYING_JIFFIES ToI64(JIFFY_FREQ / 5)
|
|
class CTaskDying
|
|
{
|
|
CTask *next, *last;
|
|
I64 wake_jiffy;
|
|
};
|
|
|
|
public class CTask //The Fs segment reg points to current CTask.
|
|
{
|
|
CTask *addr; //Self-addressed ptr
|
|
U32 task_signature, win_inhibit;
|
|
#assert $$ == offset(CTaskDying.wake_jiffy)
|
|
I64 wake_jiffy;
|
|
U32 task_flags, display_flags;
|
|
|
|
CHeapCtrl *code_heap, *data_heap;
|
|
|
|
CDoc *put_doc, *display_doc, //When double buffering, these two differ.
|
|
*border_doc;
|
|
I64 win_left, win_right, win_top, win_bottom;
|
|
|
|
CDrive *cur_dv;
|
|
U8 *cur_dir;
|
|
|
|
CTask *parent_task,
|
|
*next_task, *last_task,
|
|
*next_input_filter_task, *last_input_filter_task,
|
|
*next_sibling_task, *last_sibling_task,
|
|
*next_child_task, *last_child_task;
|
|
|
|
//These are derived from left,top,right,bottom
|
|
I64 win_width, win_height,
|
|
pix_left, pix_right, pix_width, //These are in pixs, not characters
|
|
pix_top, pix_bottom, pix_height,
|
|
scroll_x, scroll_y, scroll_z;
|
|
|
|
//These must be in this order
|
|
//for $LK,"TASK_CONTEXT_SAVE",A="FF:::/Kernel/Sched.CC,TASK_CONTEXT_SAVE"$ and $LK,"_TASK_CONTEXT_RESTORE",A="FF:::/Kernel/Sched.CC,_TASK_CONTEXT_RESTORE"$
|
|
I64 rip, rflags, rsp, rsi, rax, rcx, rdx, rbx, rbp, rdi, r8, r9, r10, r11, r12, r13, r14, r15;
|
|
CCPU *gs;
|
|
CFPU *fpu_mmx;
|
|
I64 swap_counter;
|
|
|
|
U0 (*draw_it)(CTask *task, CDC *dc);
|
|
|
|
U8 task_title[STR_LEN],
|
|
task_name[TASK_NAME_LEN],
|
|
wallpaper_data[STR_LEN],
|
|
|
|
title_src, border_src,
|
|
text_attr, border_attr;
|
|
U16 win_z_num, pad;
|
|
|
|
CTaskStack *stack;
|
|
|
|
CExcept *next_except, *last_except;
|
|
I64 except_rbp, //throw routine's RBP
|
|
except_ch; //throw(ch)
|
|
U8 *except_callers[TASK_EXCEPT_CALLERS];
|
|
|
|
Bool catch_except;
|
|
Bool new_answer;
|
|
U8 answer_type, pad[5];
|
|
I64 answer;
|
|
F64 answer_time;
|
|
CBpt *bpt_list;
|
|
CCtrl *next_ctrl, *last_ctrl;
|
|
CMenu *cur_menu;
|
|
CTaskSettings *next_settings;
|
|
CMathODE *next_ode, *last_ode;
|
|
F64 last_ode_time;
|
|
CHashTable *hash_table;
|
|
|
|
CJobCtrl server_ctrl;
|
|
CCompCtrl *next_cc, *last_cc;
|
|
CHashFun *last_fun;
|
|
|
|
U0 (*task_end_cb)();
|
|
CTask *song_task, *animate_task;
|
|
I64 rand_seed,
|
|
task_num,
|
|
fault_num, fault_err_code;
|
|
CTask *popup_task,
|
|
*debug_task;
|
|
CWinScroll horz_scroll, vert_scroll;
|
|
|
|
I64 user_data;
|
|
#assert !($$ & 7)
|
|
};
|
|
|
|
class CTSS
|
|
{
|
|
U32 res1;
|
|
I64 rsp0, rsp1, rsp2, res2,
|
|
ist1, ist2, ist3, ist4, ist5, ist6, ist7, res3;
|
|
U16 res4, io_map_offset;
|
|
U8 io_map[0x10000/8];
|
|
I64 *st0, *st1, *st2;
|
|
U16 tr, tr_ring3;
|
|
};
|
|
|
|
#define ans (Fs->answer)
|
|
#define ansf (Fs->answer(F64))
|
|
|
|
#define _RAX Fs->rax
|
|
#define _RBX Fs->rbx
|
|
#define _RCX Fs->rcx
|
|
#define _RDX Fs->rdx
|
|
#define _RSI Fs->rsi
|
|
#define _RDI Fs->rdi
|
|
#define _RBP Fs->rbp
|
|
#define _RSP Fs->rsp
|
|
#define _RIP Fs->rip
|
|
#define _R8 Fs->r8
|
|
#define _R9 Fs->r9
|
|
#define _R10 Fs->r10
|
|
#define _R11 Fs->r11
|
|
#define _R12 Fs->r12
|
|
#define _R13 Fs->r13
|
|
#define _R14 Fs->r14
|
|
#define _R15 Fs->r15
|
|
|
|
#help_index "MultiCore"
|
|
#define CPUf_RAN_A_TASK 0
|
|
#define CPUf_DYING_TASK_QUE 1
|
|
|
|
public class CCPU //The Gs segment reg points to current CCPU.
|
|
{
|
|
CCPU *addr; //Self-addressed ptr
|
|
I64 num, cpu_flags,
|
|
startup_rip,
|
|
idle_pt_hits;
|
|
F64 idle_factor;
|
|
I64 total_jiffies;
|
|
CTask *executive_task, *idle_task;
|
|
I64 tr, //task reg
|
|
swap_counter;
|
|
U0 (*profiler_timer_irq)(CTask *task);
|
|
CTaskDying *next_dying, *last_dying;
|
|
I64 kill_jiffy;
|
|
CTSS *tss;
|
|
I64 start_stack[16];
|
|
#assert !($$ & 7)
|
|
};
|
|
|
|
#help_index "Memory/Page Tables"
|
|
#define MEM_MIN_MEG 256 //256 Meg minimum.
|
|
|
|
#define SYS_FIXED_AREA 0x100000
|
|
#define SYS_16MEG_AREA_LIMIT 0x1000000
|
|
public class CSysFixedArea
|
|
{
|
|
CFPU init_fpu_mmx;
|
|
CCPU boot_cpu;
|
|
CTask system;
|
|
CBlkPool sys_code_bp;
|
|
CHeapCtrl system_hc;
|
|
$$ = ($$ + 0x1000 - 1) & -0x1000;
|
|
};
|
|
|
|
#help_index "Char"
|
|
#define CH_CTRLA 0x01
|
|
#define CH_CTRLB 0x02
|
|
#define CH_CTRLC 0x03
|
|
#define CH_CTRLD 0x04
|
|
#define CH_CTRLE 0x05
|
|
#define CH_CTRLF 0x06
|
|
#define CH_CTRLG 0x07
|
|
#define CH_CTRLH 0x08
|
|
#define CH_CTRLI 0x09
|
|
#define CH_CTRLJ 0x0A
|
|
#define CH_CTRLK 0x0B
|
|
#define CH_CTRLL 0x0C
|
|
#define CH_CTRLM 0x0D
|
|
#define CH_CTRLN 0x0E
|
|
#define CH_CTRLO 0x0F
|
|
#define CH_CTRLP 0x10
|
|
#define CH_CTRLQ 0x11
|
|
#define CH_CTRLR 0x12
|
|
#define CH_CTRLS 0x13
|
|
#define CH_CTRLT 0x14
|
|
#define CH_CTRLU 0x15
|
|
#define CH_CTRLV 0x16
|
|
#define CH_CTRLW 0x17
|
|
#define CH_CTRLX 0x18
|
|
#define CH_CTRLY 0x19
|
|
#define CH_CTRLZ 0x1A
|
|
#define CH_CURSOR 0x05
|
|
#define CH_BACKSPACE 0x08
|
|
#define CH_ESC 0x1B
|
|
#define CH_SHIFT_ESC 0x1C
|
|
#define CH_SPACE 0x20
|
|
|
|
#define ST_ERR_ST "$$RED$$$$BK,1$$ERROR:$$FG$$$$BK,0$$ "
|
|
#define ST_WARN_ST "$$LTRED$$$$BK,1$$WARNING:$$FG$$$$BK,0$$ "
|
|
|
|
//Scan code flags
|
|
#define SCf_E0_PREFIX 7
|
|
#define SCf_KEY_UP 8
|
|
#define SCf_SHIFT 9
|
|
#define SCf_CTRL 10
|
|
#define SCf_ALT 11
|
|
#define SCf_CAPS 12
|
|
#define SCf_NUM 13
|
|
#define SCf_SCROLL 14
|
|
#define SCf_NEW_KEY 15
|
|
#define SCf_MS_L_DOWN 16
|
|
#define SCf_MS_R_DOWN 17
|
|
#define SCf_DELETE 18
|
|
#define SCf_INS 19
|
|
#define SCf_NO_SHIFT 30
|
|
#define SCf_KEY_DESC 31
|
|
#define SCF_E0_PREFIX (1 << SCf_E0_PREFIX)
|
|
#define SCF_KEY_UP (1 << SCf_KEY_UP)
|
|
#define SCF_SHIFT (1 << SCf_SHIFT)
|
|
#define SCF_CTRL (1 << SCf_CTRL)
|
|
#define SCF_ALT (1 << SCf_ALT)
|
|
#define SCF_CAPS (1 << SCf_CAPS)
|
|
#define SCF_NUM (1 << SCf_NUM)
|
|
#define SCF_SCROLL (1 << SCf_SCROLL)
|
|
#define SCF_NEW_KEY (1 << SCf_NEW_KEY)
|
|
#define SCF_MS_L_DOWN (1 << SCf_MS_L_DOWN)
|
|
#define SCF_MS_R_DOWN (1 << SCf_MS_R_DOWN)
|
|
#define SCF_DELETE (1 << SCf_DELETE)
|
|
#define SCF_INS (1 << SCf_INS)
|
|
#define SCF_NO_SHIFT (1 << SCf_NO_SHIFT)
|
|
#define SCF_KEY_DESC (1 << SCf_KEY_DESC)
|
|
|
|
//ZealOS places a 1 in bit 7 for
|
|
//keys with an E0 prefix.
|
|
//See $LK,"::/Doc/CharOverview.DD"$ and $LK,"KbdHandler",A="MN:KbdHandler"$().
|
|
#define SC_ESC 0x01
|
|
#define SC_BACKSPACE 0x0E
|
|
#define SC_TAB 0x0F
|
|
#define SC_ENTER 0x1C
|
|
#define SC_SHIFT 0x2A
|
|
#define SC_CTRL 0x1D
|
|
#define SC_ALT 0x38
|
|
#define SC_CAPS 0x3A
|
|
#define SC_NUM 0x45
|
|
#define SC_SCROLL 0x46
|
|
#define SC_CURSOR_UP 0x48
|
|
#define SC_CURSOR_DOWN 0x50
|
|
#define SC_CURSOR_LEFT 0x4B
|
|
#define SC_CURSOR_RIGHT 0x4D
|
|
#define SC_PAGE_UP 0x49
|
|
#define SC_PAGE_DOWN 0x51
|
|
#define SC_HOME 0x47
|
|
#define SC_END 0x4F
|
|
#define SC_INS 0x52
|
|
#define SC_DELETE 0x53
|
|
#define SC_F1 0x3B
|
|
#define SC_F2 0x3C
|
|
#define SC_F3 0x3D
|
|
#define SC_F4 0x3E
|
|
#define SC_F5 0x3F
|
|
#define SC_F6 0x40
|
|
#define SC_F7 0x41
|
|
#define SC_F8 0x42
|
|
#define SC_F9 0x43
|
|
#define SC_F10 0x44
|
|
#define SC_F11 0x57
|
|
#define SC_F12 0x58
|
|
#define SC_PAUSE 0x61
|
|
#define SC_GUI 0xDB
|
|
#define SC_PRINTSCREEN1 0xAA
|
|
#define SC_PRINTSCREEN2 0xB7
|
|
|
|
#help_index "Char;Debugging/Raw Output;TextBase Layer/Char"
|
|
//text.raw_flags
|
|
#define RAWF_IN_DOLLAR 1
|
|
#define RAWF_LAST_DOLLAR 2
|
|
#define RAWF_SHOW_DOLLAR 4
|
|
#define RAWF_SCROLL 8
|
|
|
|
public class CTextGlobals
|
|
{
|
|
I64 raw_col, raw_flags;
|
|
U32 *raw_screen, *fb_alias;
|
|
I64 rows, cols; //Use TEXT_ROWS,TEXT_COLS
|
|
U64 *font, *aux_font, screen_size, buffer_size;
|
|
U8 *vga_alias;
|
|
U8 border_chars[16];
|
|
Bool is_fb_busy;
|
|
};
|
|
|
|
#define FONT_WIDTH 8
|
|
#define FONT_HEIGHT 8
|
|
|
|
#help_index "Graphics"
|
|
//z-vals less than zero are in front of screen and not drawn.
|
|
//we want to shift all Z-vals into a drawable range.
|
|
//GR_Z_ALL is set to half of the Z-range which is an I32.
|
|
#define GR_Z_ALL (I32_MAX/2)
|
|
|
|
#help_index "Graphics/Device Contexts"
|
|
//Low 8 bits reserved for flags that go into saved bitmaps
|
|
#define DCF_PALETTE 1
|
|
#define DCF_NO_TRANSPARENTS 2 //Can be used to optimized $LK,"GrBlot",A="MN:GrBlot"$().
|
|
|
|
#define DCF_TRANSFORMATION 0x100
|
|
|
|
//See $LK,"DCSymmetrySet",A="MN:DCSymmetrySet"$() or $LK,"DCSymmetry3Set",A="MN:DCSymmetry3Set"$()
|
|
#define DCF_SYMMETRY 0x200
|
|
|
|
//Must be used with DCF_SYMMETRY set also.
|
|
//See $LK,"::/Demo/Games/BigGuns.CC"$
|
|
#define DCF_JUST_MIRROR 0x400
|
|
|
|
#define DCF_LOCATE_NEAREST 0x800
|
|
#define DCF_DONT_DRAW 0x1000
|
|
#define DCF_ALIAS 0x2000
|
|
#define DCF_SCREEN_BITMAP 0x4000
|
|
#define DCF_FILL_NOT_COLOR 0x8000
|
|
#define DCF_RECORD_EXTENTS 0x10000
|
|
#define DCF_ON_TOP 0x20000
|
|
|
|
//$LK,"DCSave",A="MN:DCSave"$() flags.
|
|
#define DCSF_PALETTE_GET 1
|
|
|
|
#define DCS_SIGNATURE_VAL 'DvCS'
|
|
|
|
class CGrSym
|
|
{
|
|
I32 sx, sy, sz, pad;
|
|
//Normal of symmetry plane
|
|
I64 snx, sny, snz;
|
|
};
|
|
|
|
public class CDC
|
|
{
|
|
U0 start;
|
|
CDate cdt;
|
|
I32 x0, y0,
|
|
width, width_internal,
|
|
height,
|
|
flags;
|
|
U0 end;
|
|
CBGR24 palette[COLORS_NUM];
|
|
|
|
//public (Change directly)
|
|
CColorROPU32 color,
|
|
bkcolor, //Set for use with $LK,"ROP_COLLISION",A="MN:ROP_COLLISION"$
|
|
color2; //Internally used for $LK,"GrFloodFill",A="MN:GrFloodFill"$()
|
|
CD3I32 ls; //Light source (should be normalized to 65536).
|
|
|
|
//dither_probability_u16 is basically a U16.
|
|
//It is activated by $LK,"ROPF_PROBABILITY_DITHER",A="MN:ROPF_PROBABILITY_DITHER"$.
|
|
//0x0000 =100% color.c0
|
|
//0x8000 =50% color.c0 50% color.c1
|
|
//0x10000=100% color.c1
|
|
//See $LK,"::/Demo/Graphics/SunMoon.CC"$ and $LK,"::/Demo/Graphics/Shading.CC"$.
|
|
U64 dither_probability_u16;
|
|
|
|
CDC *brush;
|
|
|
|
//Set with $LK,"DCMat4x4Set",A="MN:DCMat4x4Set"$(). $LK,"Free",A="MN:Free"$() before setting.
|
|
I64 *r, //rotation matrix of quads decimal in lo
|
|
r_norm; //shifted 32 bits. Used for scaling thick
|
|
|
|
//public (Change directly)
|
|
I32 x, y, z,
|
|
thick;
|
|
|
|
//Can be changed from the default $LK,"DCTransform",A="MN:DCTransform"$()
|
|
U0 (*transform)(CDC *dc, I64 *x, I64 *y, I64 *z);
|
|
|
|
//Can be changed from the default $LK,"DCLighting",A="MN:DCLighting"$()
|
|
U0 (*lighting)(CDC *dc, CD3I32 *p1, CD3I32 *p2, CD3I32 *p3, CColorROPU32 color);
|
|
|
|
//Set by $LK,"DCSymmetrySet",A="MN:DCSymmetrySet"$() or $LK,"DCSymmetry3Set",A="MN:DCSymmetry3Set"$()
|
|
CGrSym sym;
|
|
|
|
I32 cur_x, cur_y, cur_z, pad;
|
|
I64 collision_count;
|
|
|
|
I64 nearest_dist,
|
|
min_x, max_x, min_y, max_y; //Set by $LK,"DCF_RECORD_EXTENTS",A="MN:DCF_RECORD_EXTENTS"$ (screen coordinates)
|
|
|
|
U32 dc_signature, pad;
|
|
CTask *mem_task, *win_task;
|
|
CDC *alias;
|
|
U8 *body;
|
|
|
|
//Set by $LK,"DCDepthBufAlloc",A="MN:DCDepthBufAlloc"$()
|
|
I32 *depth_buf;
|
|
I64 db_z; //private
|
|
#assert !($$ & 7)
|
|
};
|
|
|
|
#help_index "Devices"
|
|
//VGA Memory
|
|
#define VGAM_GRAPHICS 0xA0000
|
|
|
|
#define "Char/Input;StdIn"
|
|
//StrGet flags
|
|
#define SGF_SHIFT_ESC_EXIT 1 //This kills task on <SHIFT-ESC>
|
|
#define SGF_WITH_NEW_LINE 2
|
|
|
|
#define "Char/Operations"
|
|
//Flags for StrUtil and MStrUtil
|
|
#define SUF_REM_CTRL_CHARS 0x001
|
|
#define SUF_REM_LEADING 0x002
|
|
#define SUF_REM_TRAILING 0x004
|
|
#define SUF_REM_SPACES 0x008
|
|
#define SUF_SINGLE_SPACE 0x010
|
|
#define SUF_TO_UPPER 0x020
|
|
#define SUF_TO_LOWER 0x040
|
|
#define SUF_S2T 0x080
|
|
#define SUF_T2S 0x100 // Only works with MStrUtil
|
|
#define SUF_SCALE_INDENT 0x200
|
|
#define SUF_SAFE_DOLLAR 0x400
|
|
|
|
//Flags for StrFind
|
|
#define SFF_IGNORE_CASE 1
|
|
#define SFF_WHOLE_LABELS_BEFORE 2
|
|
#define SFF_WHOLE_LABELS_AFTER 4
|
|
#define SFG_WHOLE_LABELS (SFF_WHOLE_LABELS_BEFORE | SFF_WHOLE_LABELS_AFTER)
|
|
|
|
//Flags for ListMatch
|
|
#define LMF_IGNORE_CASE 1
|
|
#define LMF_EXACT 2
|
|
|
|
#help_index "Keyboard Devices/System"
|
|
#define KDF_HAS_DESCS 1
|
|
class CKeyDevEntry
|
|
{
|
|
CKeyDevEntry *next, *last;
|
|
I64 priority, flags;
|
|
Bool (*put_key)(I64 ch, I64 sc);
|
|
Bool (*put_s)(U8 *st);
|
|
};
|
|
|
|
class CKeyDevGlobals
|
|
{
|
|
CKeyDevEntry put_key_head;
|
|
U0 (**fp_ctrl_alt_cbs)(I64 sc);
|
|
I64 ctrl_alt_in_irq_flags,
|
|
**ctrl_alt_ret_addr; //addr of ret addr on stack in kbd irq
|
|
U8 **ctrl_alt_no_shift_descs, **ctrl_alt_shift_descs,
|
|
desc[STR_LEN],
|
|
*handler;
|
|
};
|
|
|
|
#help_index "Sound"
|
|
#define PCSPKR 0x61
|
|
#help_index "ScreenCast;Sound/AU Files"
|
|
public class CAUData
|
|
{//Format of AU files
|
|
CDate cdt;
|
|
I8 ona;
|
|
};
|
|
|
|
class CSoundData
|
|
{//Format recorded in mem
|
|
CSoundData *next, *last;
|
|
F64 tS;
|
|
I8 ona;
|
|
};
|
|
|
|
public class CScreenCastGlobals
|
|
{
|
|
CSoundData sound_head;
|
|
CDate t0_now;
|
|
F64 t0_tS;
|
|
U8 *print_format;
|
|
CDC *dc, *dc2_alias;
|
|
Bool record, just_audio;
|
|
I8 ona;
|
|
};
|
|
|
|
#help_index "Debugging/FunSeg"
|
|
#define FUN_SEG_CACHE_SIZE 256
|
|
class CFunSegCache
|
|
{
|
|
I64 base, limit;
|
|
F64 time_stamp;
|
|
U8 str[1]; //FUN_SEG_CACHE_STR_LEN
|
|
$$ = 64;
|
|
};
|
|
#define FUN_SEG_CACHE_STR_LEN (sizeof(CFunSegCache) - offset(CFunSegCache.str))
|
|
|
|
#help_index "Debugging"
|
|
class CMPCrash
|
|
{
|
|
I64 cpu_num;
|
|
CTask *task;
|
|
I64 rip;
|
|
U8 *message;
|
|
I64 message_num;
|
|
};
|
|
|
|
public class CDebugGlobals
|
|
{
|
|
CTask *focus_task;
|
|
U8 *message;
|
|
I64 message_num;
|
|
CMPCrash *mp_crash;
|
|
U8 *int_fault_code,
|
|
*fix_file_line;
|
|
CFunSegCache *fun_seg_cache;
|
|
I64 fun_seg_cache_index;
|
|
Bool panic;
|
|
};
|
|
|
|
#help_index "Boot"
|
|
//Boot related
|
|
#define BOOT_RAM_BASE 0x07C00
|
|
#define BOOT_RAM_LIMIT 0x97000
|
|
#define BOOT_STACK_SIZE BLK_SIZE
|
|
|
|
#define BOOT_SRC_NULL 0
|
|
#define BOOT_SRC_ROM 1
|
|
#define BOOT_SRC_RAM 2
|
|
#define BOOT_SRC_HARDDRIVE 3
|
|
#define BOOT_SRC_DVD 4
|
|
|
|
// $LK,"In",A="MN:In"$("") StdIn for call to $LK,"BootHDIns",A="MN:BootHDIns"$().
|
|
#define STD_DISTRO_DVD_CONFIG "TB\nScale2Mem(2048,0x40000)\nT \n\n\n\n"
|
|
|
|
#help_index "Registry"
|
|
//Registry sys_message_flags. $LK,"RegOneTimePopUp",A="MN:RegOneTimePopUp"$()
|
|
#define ARf_FLOODFILL 0
|
|
#define ARf_CSPRITE_INS_CLIP 1
|
|
#define ARf_PLANAR_SYMMETRY 2
|
|
#define ARf_PSALMODY_JUKEBOX 3
|
|
#define ARf_MESH_ED 4
|
|
#define ARf_CSPRITE_PTS_RECTANGLES 5
|
|
#define ARf_MANAGE_SLIDER 6
|
|
|
|
#help_index "Misc/Progress Bars"
|
|
#define PROGRESS_BARS_NUM 4
|
|
#define PROGRESS_DESC_LEN (64 - 8 - 8)
|
|
class CProgress
|
|
{
|
|
I64 val, max;
|
|
F64 t0, tf;
|
|
U8 desc[PROGRESS_DESC_LEN];
|
|
};
|
|
|
|
#help_index "Char/Operations"
|
|
#define PRINTF_PAD_ZERO 0x001
|
|
#define PRINTF_LEFT_JUSTIFY 0x002
|
|
#define PRINTF_TRUNCATE 0x004
|
|
#define PRINTF_COMMA 0x008
|
|
#define PRINTF_DOLLAR 0x010
|
|
#define PRINTF_SLASH 0x020
|
|
#define PRINTF_QUESTION 0x040
|
|
#define PRINTF_AUX_FORMAT_NUM 0x080
|
|
#define PRINTF_DECIMAL 0x100
|
|
#define PRINTF_NEG 0x200
|
|
#define PRINTF_NEG_E 0x400
|
|
#define PRINTF_NEG_AUX_FORMAT_NUM 0x800
|
|
|
|
#help_index "" |