diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-17 14:41:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-17 14:41:00 +0000 |
| commit | 16111656afaa94a382d61de6c3ec37a9bdca05ef (patch) | |
| tree | 50b54aa78118b0e723246f6acc034da705f53d35 /src/boot | |
| parent | f699415cce3f73d0f2b63ecb3b1fdc7084ba4cea (diff) | |
| download | open-axiom-16111656afaa94a382d61de6c3ec37a9bdca05ef.tar.gz | |
* lisp/core.lisp.in: Add ref and deref to support references.
* interp/sys-constants.boot ($OperatorFunctionNames): Add "by" and
"..".
* interp/spad.lisp: Tidy.
* interp/spad-parser.boot: New parsers.
* interp/preparse.lisp: Remove dead codes.
* interp/parsing.lisp (MATCH-ADVANCE-KEYWORD): Remove.
* interp/parse.boot (doParseCategory): Rename from parseCategory.
* interp/newaux.lisp: Tidy.
* interp/lexing.boot (getSpadToken): New.
(Keywords): Remove 'when'.
(matchKeywordNext): New.
(matchSpecial): Likewise.
(matchAdvanceSpecial): Likewise.
(matchAdvanceGlyph): Likewise.
* interp/fnewmeta.lisp: Move variable definitions to preparse.lisp.
Remove Lisp based parsers.
Remove file.
* interp/c-doc.boot (recordAttributeDocumentation): Fix thinko.
* interp/bootlex.lisp (GET-BOOT-TOKEN): Remove.
* interp/Makefile.in: Adjust dependencies.
* boot/parser.boot (bpChar): New.
(bpPattern): Allow character constants.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/parser.boot | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index f2c0a721..f9ae96dc 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -383,6 +383,16 @@ bpConstTok() == bpPush bfSymbol bpPop1() bpString() +bpChar() == + $stok is ["ID",:.] and $ttok is "char" => + a := bpState() + bpApplication() => + s := bpPop1() + s is ["char",.] => bpPush s + bpRestore a + false + false + false ++ Subroutine of bpExportItem. Parses tails of ExportItem. bpExportItemTail() == @@ -1004,7 +1014,7 @@ bpDConstruction()== bpPattern()== bpBracketConstruct function bpPatternL - or bpName() or bpConstTok() + or bpChar() or bpName() or bpConstTok() bpEqual()== bpEqKey "SHOEEQ" and (bpApplication() or bpConstTok() or |