diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-18 17:13:44 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-06-18 17:13:44 +0200 |
commit | a520a41f74a553aea12385d034244c27825ecfe9 (patch) | |
tree | 5f8fa80ef8cc91705fd8dda134ae1ee6ce3de31c /MLKReadtable.h | |
parent | 49bfec9cadd9c999ace3de3745f16c951b1193b8 (diff) |
MLKReadtable: Add support for changing syntax types and setting and unsetting constituent traits.
Diffstat (limited to 'MLKReadtable.h')
-rw-r--r-- | MLKReadtable.h | 38 |
1 files changed, 36 insertions, 2 deletions
diff --git a/MLKReadtable.h b/MLKReadtable.h index f1fe16d..00da691 100644 --- a/MLKReadtable.h +++ b/MLKReadtable.h @@ -32,6 +32,32 @@ enum MLKReadtableCase MLKReadtableCase_PRESERVE }; +enum MLKSyntaxType +{ + CONSTITUENT = 0, + WHITESPACE = 1, + TERMINATING_MACRO = 2, + NONTERMINATING_MACRO = 3, + SINGLE_ESCAPE = 4, + MULTI_ESCAPE = 5 +}; + +enum MLKConstituentTrait +{ + ALPHABETIC = 1, + INVALID = 2, + PACKAGE_MARKER = 4, + ALPHA_DIGIT = 8, + EXPONENT_MARKER = 16, + NUMBER_MARKER = 32, + RATIO_MARKER = 64, + DECIMAL_POINT = 128, + MINUS_SIGN = 256, + PLUS_SIGN = 512, + SIGN = 1024, + DOT = 2048 +}; + @interface MLKReadtable : MLKLispValue <NSCopying> { @@ -77,7 +103,15 @@ enum MLKReadtableCase -(MLKFuncallable *) macroFunctionForCharacter:(unichar)ch; -(unichar) charWithReadtableCase:(unichar)ch; -// For internal use. -(int) characterConstituentTraits:(unichar)ch; --(int) characterSyntaxType:(unichar)ch; +-(BOOL) character:(unichar)ch + hasTrait:(enum MLKConstituentTrait)trait; +-(enum MLKSyntaxType) characterSyntaxType:(unichar)ch; + +-(void) setSyntaxType:(enum MLKSyntaxType)type + forCharacter:(unichar)ch; +-(void) setConstituentTrait:(enum MLKConstituentTrait)trait + forCharacter:(unichar)ch; +-(void) unsetConstituentTrait:(enum MLKConstituentTrait)trait + forCharacter:(unichar)ch; @end |