version 1.25, 2002/09/14 08:20:18
|
version 1.28, 2003/03/22 10:04:06
|
Line 1
|
Line 1
|
\ documentation source to texi format converter |
\ documentation source to texi format converter |
|
|
\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,1999,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 94 create description-buffer 4096 chars all
|
Line 94 create description-buffer 4096 chars all
|
: make-doc ( -- ) |
: make-doc ( -- ) |
get-current documentation set-current |
get-current documentation set-current |
create |
create |
last @ name>string skip-prefix 2, \ name |
latest name>string skip-prefix 2, \ name |
[char] ) parse save-mem 2, \ stack-effect |
[char] ) parse save-mem 2, \ stack-effect |
bl sword condition-wordset 2, \ wordset |
bl sword condition-wordset 2, \ wordset |
bl sword dup \ pronounciation |
bl sword dup \ pronounciation |
if |
if |
condition-pronounciation |
condition-pronounciation |
else |
else |
2drop last @ name>string skip-prefix |
2drop latest name>string skip-prefix |
endif |
endif |
2, |
2, |
get-description save-mem 2, |
get-description save-mem 2, |
Line 203 create docline doclinelength chars allot
|
Line 203 create docline doclinelength chars allot
|
|
|
: compare-ci ( addr1 u1 addr2 u2 -- n ) |
: compare-ci ( addr1 u1 addr2 u2 -- n ) |
\ case insensitive string compare |
\ case insensitive string compare |
|
\ !! works correctly only for comparing for equality |
2 pick swap - |
2 pick swap - |
?dup-0=-if |
?dup-0=-if |
capscomp |
capscomp |