Добавлены функции CHR ENTIER LEN ORD

[dsw-obn.git] / src / oberon-internals.h

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index 3c6fb853f1a824330eb773fa55a95b7ac0ffd16d..31c8054c6f2cab8f088c5de904e443aa73f67105 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -180,7 +180,8 @@ enum oberon_mode_kind
        MODE_CHAR,
        MODE_STRING,
        MODE_TYPE,
-       MODE_SET
+       MODE_SET,
+       MODE_LEN
 };
 
 enum oberon_operator_kind
@@ -188,6 +189,8 @@ enum oberon_operator_kind
        OP_UNARY_MINUS,
        OP_LOGIC_NOT,
        OP_ABS,
+       OP_CAP,
+       OP_ENTIER,
 
        OP_ADD,
        OP_SUB,
@@ -213,7 +216,9 @@ enum oberon_operator_kind
        OP_DIFFERENCE,
        OP_SYM_DIFFERENCE,
        OP_COMPLEMENTATION,
-       OP_IN
+       OP_IN,
+
+       OP_ASH
 };
 
 struct oberon_item_t