mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 00:54:47 +00:00
90941fffa7
This moves the CONST replacement up before we turn the elements into a single string. The advantage is that we don't have to worry about splitting the string properly to find the CONST names as the elements are already split for us.t
65 lines
1.9 KiB
QBasic
65 lines
1.9 KiB
QBasic
'String SPacer/delimiter constants
|
|
'sp is used as the primary string spacer
|
|
'sp2 & sp3 are used when further delimiation is required
|
|
'for instance, sp2 is used for embedding spacing info for auto-layout by an IDE
|
|
DIM SHARED sp AS STRING * 1, sp2 AS STRING * 1, sp3 AS STRING * 1
|
|
sp = CHR$(13): sp2 = CHR$(10): sp3 = CHR$(26)
|
|
DIM SHARED sp_asc AS LONG, sp2_asc AS LONG, sp3_asc AS LONG
|
|
sp_asc = ASC(sp): sp2_asc = ASC(sp2): sp3_asc = ASC(sp3)
|
|
IF Debug THEN sp = CHR$(250): sp2 = CHR$(249): sp3 = CHR$(179) 'makes debug output more readable
|
|
|
|
'ASCII codes
|
|
CONST ASC_BACKSLASH = 92
|
|
CONST ASC_FORWARDSLASH = 47
|
|
CONST ASC_LEFTBRACKET = 40
|
|
CONST ASC_RIGHTBRACKET = 41
|
|
CONST ASC_FULLSTOP = 46
|
|
CONST ASC_COLON = 58
|
|
CONST ASC_SEMICOLON = 59
|
|
CONST ASC_UNDERSCORE = 95
|
|
CONST ASC_QUOTE = 34
|
|
CONST ASC_LEFTSQUAREBRACKET = 91
|
|
CONST ASC_RIGHTSQUAREBRACKET = 93
|
|
CONST ASC_QUESTIONMARK = 63
|
|
|
|
'_KEYDOWN/_KEYHIT codes
|
|
CONST KEY_LSHIFT = 100304
|
|
CONST KEY_RSHIFT = 100303
|
|
CONST KEY_LCTRL = 100306
|
|
CONST KEY_RCTRL = 100305
|
|
CONST KEY_LALT = 100308
|
|
CONST KEY_RALT = 100307
|
|
CONST KEY_LAPPLE = 100310
|
|
CONST KEY_RAPPLE = 100309
|
|
CONST KEY_F1 = 15104
|
|
CONST KEY_F2 = 15360
|
|
CONST KEY_F3 = 15616
|
|
CONST KEY_F4 = 15872
|
|
CONST KEY_F5 = 16128
|
|
CONST KEY_F6 = 16384
|
|
CONST KEY_F7 = 16640
|
|
CONST KEY_F8 = 16896
|
|
CONST KEY_F9 = 17152
|
|
CONST KEY_F10 = 17408
|
|
CONST KEY_F11 = 34048
|
|
CONST KEY_F12 = 34304
|
|
CONST KEY_INSERT = 20992
|
|
CONST KEY_DELETE = 21248
|
|
CONST KEY_HOME = 18176
|
|
CONST KEY_END = 20224
|
|
CONST KEY_PAGEUP = 18688
|
|
CONST KEY_PAGEDOWN = 20736
|
|
CONST KEY_LEFT = 19200
|
|
CONST KEY_RIGHT = 19712
|
|
CONST KEY_UP = 18432
|
|
CONST KEY_DOWN = 20480
|
|
CONST KEY_ESC = 27
|
|
CONST KEY_ENTER = 13
|
|
CONST KEY_TAB = 9
|
|
|
|
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
|
|
DIM SHARED CHR_TAB AS STRING: CHR_TAB = CHR$(9)
|
|
DIM SHARED CRLF AS STRING: CRLF = CHR$(13) + CHR$(10) 'carriage return+line feed
|
|
|
|
DIM SHARED OS_BITS AS LONG
|
|
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32
|