diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-12 23:47:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-12 23:47:29 +0000 |
| commit | 3a83e42280a29741eefd9ec6bfbc21fb5da3aaf6 (patch) | |
| tree | 2d9f8472f45ee789674ea6a0a1509b0ecf0d4330 /src/interp/ptrees.boot.pamphlet | |
| parent | 268e1d951b28b128781ba8f4851149da0be458d9 (diff) | |
| download | open-axiom-3a83e42280a29741eefd9ec6bfbc21fb5da3aaf6.tar.gz | |
* posit.boot: New. Import sys-macros, astr.
(tokConstruct): Move from ptrees.boot.pamphlet.
(tokType): Likewise.
(tokPart): Likewise.
(tokPosn): Likewise.
(pfAbSynOp): Likewise.
(pfAbSynOp?): Likewise.
(pfLeaf?): Likewise.
(pfLeaf): Likewise.
(pfLeafToken): Likewise.
(pfLeafPosition): Likewise.
(pfTree): Likewise.
(pfParts): Likewise.
(pfFirst): Likewise.
(pfSecond): Likewise.
* astr.boot: New. Import boot-pkg.
* sys-constants.boot (IDENTITY): Define.
* patches.lisp.pamphlet (identity): Move definition to sys-constants.
* cformat.boot: New. Import unlisp, posit. Add ugly workwound
for GCL bug.
* incl.boot: New. Import unlisp, cstream, cformat. Tweak.
Add ugly workwound for GCL bug.
(incLude1): Fix thinko
* Makefile.pamphlet (incl.$(FASLEXT)): New rule.
(cformat.$(FASLEXT)): Likewise.
(posit.$(FASLEXT)): Likewise.
(astr.$(FASLEXT)): Likewise.
(DEP): Don't include bits.lisp.
(${DEPSYS}): Explicitly load "bits" here.
Diffstat (limited to 'src/interp/ptrees.boot.pamphlet')
| -rw-r--r-- | src/interp/ptrees.boot.pamphlet | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/src/interp/ptrees.boot.pamphlet b/src/interp/ptrees.boot.pamphlet index 43471476..dea41bdc 100644 --- a/src/interp/ptrees.boot.pamphlet +++ b/src/interp/ptrees.boot.pamphlet @@ -64,44 +64,6 @@ THE PFORM DATA STRUCTURE )package "BOOT" ---constructer and selectors for leaf tokens - -tokConstruct(hd,tok,:pos)== - a:=cons(hd,tok) - IFCAR pos => - pfNoPosition? CAR pos=> a - ncPutQ(a,"posn",CAR pos) - a - a - -tokType x== ncTag x -tokPart x== CDR x -tokPosn x== - a:= QASSQ("posn",ncAlist x) - if a then CDR a else pfNoPosition() - -pfAbSynOp form == - hd := CAR form - IFCAR hd or hd - -pfAbSynOp?(form, op) == - hd := CAR form - EQ(hd, op) or EQCAR(hd, op) - -pfLeaf? form == - MEMQ(pfAbSynOp form, - '(id idsy symbol string char float expression integer - Document error)) - -pfLeaf(x,y,:z) == tokConstruct(x,y, IFCAR z or pfNoPosition()) -pfLeafToken form == tokPart form -pfLeafPosition form == tokPosn form - -pfTree(x,y) == CONS(x,y) -- was ==> -pfParts form == CDR form -- was ==> -pfFirst form == CADR form -- was ==> -pfSecond form == CADDR form -- was ==> - --% SPECIAL NODES pfListOf x == pfTree('listOf,x) pfListOf? x == pfAbSynOp?(x,'listOf) |