version 1.24, 1995/02/23 20:17:16
|
version 1.25, 1995/07/06 15:57:25
|
Line 361 VARIABLE ^imm
|
Line 361 VARIABLE ^imm
|
: name, ( "name" -- ) bl word count string, T cfalign H ; |
: name, ( "name" -- ) bl word count string, T cfalign H ; |
: view, ( -- ) ( dummy ) ; |
: view, ( -- ) ( dummy ) ; |
|
|
|
\ Target Document Creation (goes to crossdoc.fd) 05jul95py |
|
|
|
s" crossdoc.fd" r/w create-file throw value doc-file-id |
|
\ contains the file-id of the documentation file |
|
|
|
: \G ( -- ) |
|
source >in @ /string doc-file-id write-line throw |
|
source >in ! drop ; immediate |
|
|
|
Variable to-doc |
|
|
|
: cross-doc-entry ( -- ) |
|
to-doc @ tlast @ 0<> and \ not an anonymous (i.e. noname) header |
|
IF |
|
s" " doc-file-id write-line throw |
|
s" make-doc " doc-file-id write-file throw |
|
tlast @ >image count $1F and doc-file-id write-file throw |
|
>in @ |
|
[char] ( parse 2drop |
|
[char] ) parse doc-file-id write-file throw |
|
s" )" doc-file-id write-file throw |
|
[char] \ parse 2drop |
|
POSTPONE \g |
|
>in ! |
|
THEN to-doc on ; |
|
|
VARIABLE CreateFlag CreateFlag off |
VARIABLE CreateFlag CreateFlag off |
|
|
: (Theader ( "name" -- ghost ) T align H view, |
: (Theader ( "name" -- ghost ) T align H view, |
Line 375 VARIABLE CreateFlag CreateFlag off
|
Line 401 VARIABLE CreateFlag CreateFlag off
|
dup >magic ^imm ! \ a pointer for immediate |
dup >magic ^imm ! \ a pointer for immediate |
Already @ IF dup >end tdoes ! |
Already @ IF dup >end tdoes ! |
ELSE 0 tdoes ! THEN |
ELSE 0 tdoes ! THEN |
80 flag! ; |
80 flag! |
|
cross-doc-entry ; |
|
|
VARIABLE ;Resolve 1 cells allot |
VARIABLE ;Resolve 1 cells allot |
|
|
Line 384 VARIABLE ;Resolve 1 cells allot
|
Line 411 VARIABLE ;Resolve 1 cells allot
|
|
|
>TARGET |
>TARGET |
: Alias ( cfa -- ) \ name |
: Alias ( cfa -- ) \ name |
|
dup 0< IF to-doc off THEN |
(THeader over resolve T A, H 80 flag! ; |
(THeader over resolve T A, H 80 flag! ; |
>CROSS |
>CROSS |
|
|
Line 816 cell constant cell
|
Line 844 cell constant cell
|
\ include bug5.fs |
\ include bug5.fs |
\ only forth also minimal definitions |
\ only forth also minimal definitions |
|
|
: \ postpone \ ; |
: \ postpone \ ; |
: ( postpone ( ; |
: \G postpone \G ; |
|
: ( postpone ( ; |
: include bl word count included ; |
: include bl word count included ; |
: .( [char] ) parse type ; |
: .( [char] ) parse type ; |
: cr cr ; |
: cr cr ; |