| [170] | 1 | //BasicFixed.h
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 | #define MAX_ARRAYDIM 16
|
|---|
| 5 | #define PTR_SIZE sizeof(LONG_PTR)
|
|---|
| 6 | #define VN_SIZE 1024
|
|---|
| 7 | #define MAX_LEN 65535
|
|---|
| 8 |
|
|---|
| 9 |
|
|---|
| 10 | ////////////////
|
|---|
| 11 | // マシンタイプ
|
|---|
| 12 | ////////////////
|
|---|
| 13 |
|
|---|
| 14 | #define MACHINE_X86 1
|
|---|
| 15 | #define MACHINE_AMD64 2
|
|---|
| 16 |
|
|---|
| 17 |
|
|---|
| 18 | ////////////////
|
|---|
| 19 | // 型
|
|---|
| 20 | ////////////////
|
|---|
| 21 |
|
|---|
| 22 | #define DEF_NON -1
|
|---|
| 23 |
|
|---|
| 24 | /* basic\command.sbp内の "_System_Type_***" 定数と同期が必要 */
|
|---|
| 25 | #define FLAG_PTR 0x80000000
|
|---|
| 26 | #define FLAG_CAST 0x40000000
|
|---|
| 27 |
|
|---|
| 28 | //整数型
|
|---|
| 29 | #define DEF_SBYTE 0x00000001
|
|---|
| 30 | #define DEF_BYTE 0x00000002
|
|---|
| 31 | #define DEF_INTEGER 0x00000003
|
|---|
| 32 | #define DEF_WORD 0x00000004
|
|---|
| 33 | #define DEF_LONG 0x00000005
|
|---|
| 34 | #define DEF_DWORD 0x00000006
|
|---|
| 35 | #define DEF_INT64 0x00000007
|
|---|
| 36 | #define DEF_QWORD 0x00000008
|
|---|
| 37 |
|
|---|
| 38 | //実数型
|
|---|
| 39 | #define DEF_SINGLE 0x00000009
|
|---|
| 40 | #define DEF_DOUBLE 0x0000000A
|
|---|
| 41 |
|
|---|
| 42 | //文字型
|
|---|
| 43 | #define DEF_CHAR 0x0000000B
|
|---|
| 44 |
|
|---|
| 45 | //bool型
|
|---|
| 46 | #define DEF_BOOLEAN 0x0000000C
|
|---|
| 47 |
|
|---|
| 48 | //文字列型
|
|---|
| 49 | #define DEF_STRING 0x0000000D
|
|---|
| 50 |
|
|---|
| 51 | //ポインタ型
|
|---|
| 52 | #define DEF_PTR_VOID 0x0000000E
|
|---|
| 53 | #define DEF_PTR_PROC 0x0000000F
|
|---|
| 54 |
|
|---|
| 55 | //特殊型
|
|---|
| 56 | #define DEF_ANY 0x00000015
|
|---|
| 57 | #define DEF_OBJECT 0x00000016
|
|---|
| 58 | #define DEF_STRUCT 0x00000017
|
|---|
| 59 | #define DEF_ELLIPSE 0x00000018
|
|---|
| 60 |
|
|---|
| 61 | //ポインタ型
|
|---|
| 62 | #define MASK_PTR 0x0000ff00
|
|---|
| 63 | #define MASK_NATURAL 0x000000ff
|
|---|
| 64 |
|
|---|
| 65 | #define PTR_LEVEL(t) (((t)&MASK_PTR)>>8)
|
|---|
| 66 | #define NATURAL_TYPE(t) ((t)&MASK_NATURAL)
|
|---|
| 67 | #define MAKE_PTR_TYPE(t,p) ((t)|((p)<<8))
|
|---|
| 68 | #define PTR_LEVEL_UP(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)
|
|---|
| 69 | #define PTR_LEVEL_DOWN(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)-1)
|
|---|
| 70 |
|
|---|
| 71 | #define DEF_PTR_OBJECT MAKE_PTR_TYPE(DEF_OBJECT,1)
|
|---|
| 72 | #define DEF_PTR_STRUCT MAKE_PTR_TYPE(DEF_STRUCT,1)
|
|---|
| 73 |
|
|---|
| 74 |
|
|---|
| 75 |
|
|---|
| 76 | //NumOpe関数の結果がリテラル値の場合、その値の補助情報がindexに格納される
|
|---|
| 77 | #define LITERAL_NULL -2
|
|---|
| 78 | #define LITERAL_M128_0 -3
|
|---|
| 79 | #define LITERAL_0_255 -4
|
|---|
| 80 | #define LITERAL_M32768_0 -5
|
|---|
| 81 | #define LITERAL_0_65535 -6
|
|---|
| 82 | #define LITERAL_OTHER_MINUS -7
|
|---|
| 83 | #define LITERAL_OTHER_PLUS -8
|
|---|
| 84 |
|
|---|
| 85 | #define LITERAL_STRING -9
|
|---|
| 86 |
|
|---|
| 87 | #define IS_LITERAL(x) (x<=LITERAL_NULL&&x!=LITERAL_STRING)
|
|---|
| 88 | #define IS_MINUS_LITERAL(x) (x==LITERAL_M128_0||x==LITERAL_M32768_0||x==LITERAL_OTHER_MINUS)
|
|---|
| 89 | #define IS_POSITIVE_LITERAL(x) (x==LITERAL_NULL||x==LITERAL_0_255||x==LITERAL_0_65535||x==LITERAL_OTHER_PLUS)
|
|---|
| 90 |
|
|---|
| 91 | //////////////////////////////////////
|
|---|
| 92 | /* 演算子（優先順位が関係している） */
|
|---|
| 93 | //////////////////////////////////////
|
|---|
| 94 |
|
|---|
| 95 | //論理演算子
|
|---|
| 96 | #define CALC_XOR 3 // Xor
|
|---|
| 97 | #define CALC_OR 6 // Or
|
|---|
| 98 | #define CALC_AND 9 // And
|
|---|
| 99 | #define CALC_NOT 12 // Not
|
|---|
| 100 |
|
|---|
| 101 | //比較演算子
|
|---|
| 102 | #define CALC_PE 21 // <=
|
|---|
| 103 | #define CALC_QE 22 // >=
|
|---|
| 104 | #define CALC_NOTEQUAL 23 // <>
|
|---|
| 105 | #define CALC_EQUAL 24 // =
|
|---|
| 106 | #define CALC_P 25 // <
|
|---|
| 107 | #define CALC_Q 26 // >
|
|---|
| 108 |
|
|---|
| 109 | //算術演算子
|
|---|
| 110 | #define CALC_SHL 31 //<<
|
|---|
| 111 | #define CALC_SHR 32 //>>
|
|---|
| 112 | #define CALC_ADDITION 41 // +
|
|---|
| 113 | #define CALC_SUBTRACTION 42 // -
|
|---|
| 114 | #define CALC_STRPLUS 43 // &
|
|---|
| 115 | #define CALC_MOD 51 // Mod
|
|---|
| 116 | #define CALC_PRODUCT 61 // *
|
|---|
| 117 | #define CALC_QUOTIENT 62 // /
|
|---|
| 118 | #define CALC_INTQUOTIENT 63 //整数除算
|
|---|
| 119 | #define CALC_AS 71 // As
|
|---|
| 120 | #define CALC_BYVAL 72 // ByVal
|
|---|
| 121 | #define CALC_MINUSMARK 81 // -x
|
|---|
| 122 | #define CALC_POWER 91 // ^
|
|---|
| 123 |
|
|---|
| 124 | //代入演算子
|
|---|
| 125 | #define CALC_SUBSITUATION 200
|
|---|
| 126 |
|
|---|
| 127 | //添え字演算子
|
|---|
| 128 | #define CALC_ARRAY_GET 201
|
|---|
| 129 | #define CALC_ARRAY_SET 202
|
|---|
| 130 |
|
|---|
| 131 |
|
|---|
| 132 | //////////////////////////////////////////////////////////////////////
|
|---|
| 133 | // エスケープシーケンス用のバイトコードは0xA0～0xCFの範囲も利用できる
|
|---|
| 134 | //////////////////////////////////////////////////////////////////////
|
|---|
| 135 |
|
|---|
| 136 | //以下制御用エスケープシーケンス
|
|---|
| 137 | #define ESC_MOD '1' // MOD 演算子
|
|---|
| 138 | #define ESC_AND '&' // AND 演算子
|
|---|
| 139 | #define ESC_OR '3' // OR 演算子
|
|---|
| 140 | #define ESC_XOR '4' // XOR 演算子
|
|---|
| 141 | #define ESC_NOT '5' // NOT 演算子
|
|---|
| 142 | #define ESC_AS '6' // AS（区切り文字）
|
|---|
| 143 | #define ESC_THEN 2 // Then
|
|---|
| 144 | #define ESC_ELSE 3 // Else
|
|---|
| 145 | #define ESC_IF 'A' // If
|
|---|
| 146 | #define ESC_ELSEIF 'B' // ElseIf
|
|---|
| 147 | #define ESC_ENDIF 'C' // End If
|
|---|
| 148 | #define ESC_DEF 'D' // Def
|
|---|
| 149 | #define ESC_DECLARE 'E' // Declare
|
|---|
| 150 | #define ESC_SUB 'F' // Sub
|
|---|
| 151 | #define ESC_ENDSUB 'G' // End Sub
|
|---|
| 152 | #define ESC_EXITSUB 'H' // Exit Sub
|
|---|
| 153 | #define ESC_FUNCTION 'I' // Function
|
|---|
| 154 | #define ESC_ENDFUNCTION 'J' // End Function
|
|---|
| 155 | #define ESC_EXITFUNCTION 'K' // Exit Function
|
|---|
| 156 | #define ESC_BYVAL 'L' // ByVal
|
|---|
| 157 | #define ESC_BYREF 'M' // ByRef
|
|---|
| 158 | #define ESC_TYPE 'N' // Type
|
|---|
| 159 | #define ESC_ENDTYPE 'O' // End Type
|
|---|
| 160 | #define ESC_EXITFOR 'P' // Exit For
|
|---|
| 161 | #define ESC_EXITWHILE 'Q' // Exit Wend
|
|---|
| 162 | #define ESC_EXITDO 'R' // Exit Do
|
|---|
| 163 | #define ESC_SELECTCASE 'S' // Select Case
|
|---|
| 164 | #define ESC_CASE 'T' // Case
|
|---|
| 165 | #define ESC_CASEELSE 'U' // Case Else
|
|---|
| 166 | #define ESC_ENDSELECT 'V' // End Select
|
|---|
| 167 | #define ESC_CONST 'W' // Const
|
|---|
| 168 | #define ESC_WITH 'X' // With
|
|---|
| 169 | #define ESC_ENDWITH 'Y' // End With
|
|---|
| 170 | #define ESC_CDECL 'Z' // cdecl規約
|
|---|
| 171 | #define ESC_MACRO 'a' // Macro
|
|---|
| 172 | #define ESC_ENDMACRO 'b' // End Macro
|
|---|
| 173 | #define ESC_EXITMACRO 'c' // Exit Macro
|
|---|
| 174 | #define ESC_EXPORT 'd' // Export
|
|---|
| 175 | #define ESC_CONTINUE 'e' // Continue
|
|---|
| 176 | #define ESC_PSMEM 'f' // "->" Member of Pointer Struct（構造体ポインタのメンバ参照）
|
|---|
| 177 | #define ESC_STATIC 'g' // Static
|
|---|
| 178 | #define ESC_TYPEDEF 'h' // TypeDef
|
|---|
| 179 | #define ESC_TRY 'i' // Try
|
|---|
| 180 | #define ESC_CATCH 'j' // Catch
|
|---|
| 181 | #define ESC_FINALLY 'k' // Finally
|
|---|
| 182 | #define ESC_THROW 'l' // Throw
|
|---|
| 183 | #define ESC_ENDTRY 'm' // End Try
|
|---|
| 184 | #define ESC_NAMESPACE 'o' // Namespace
|
|---|
| 185 | #define ESC_ENDNAMESPACE 'p' // End Namespace
|
|---|
| 186 | #define ESC_IMPORTS 'q' // Imports
|
|---|
| 187 | #define ESC_CLEARNAMESPACEIMPORTED 'r' // _ClearNamespaceImported
|
|---|
| 188 | //EXEファイル用制御エスケープシーケンス
|
|---|
| 189 | #define ESC_USING 's' // Print命令語のUsing
|
|---|
| 190 | #define ESC_FOR 't' // Open命令語のFor
|
|---|
| 191 | #define ESC_LINENUM 'u' // 行番号を示す
|
|---|
| 192 |
|
|---|
| 193 | //オブジェクト指向エスケープシーケンス
|
|---|
| 194 | #define ESC_CLASS (char)0xA0
|
|---|
| 195 | #define ESC_ENDCLASS (char)0xA1
|
|---|
| 196 | #define ESC_ABSTRACT (char)0xA2
|
|---|
| 197 | #define ESC_VIRTUAL (char)0xA3
|
|---|
| 198 | #define ESC_OVERRIDE (char)0xA4
|
|---|
| 199 | #define ESC_INHERITS (char)0xA5
|
|---|
| 200 | #define ESC_ENUM (char)0xA6
|
|---|
| 201 | #define ESC_ENDENUM (char)0xA7
|
|---|
| 202 | #define ESC_NEW (char)0xA8
|
|---|
| 203 | #define ESC_INTERFACE (char)0xA9
|
|---|
| 204 | #define ESC_ENDINTERFACE (char)0xAA
|
|---|
| 205 | #define ESC_OPERATOR (char)0xAB
|
|---|
