\\ ANS Forth String word set                             uho 25Mar95

   $Logfile:   C:/SRC/FPC/FPC-ANS/VCS/STRING.SEV  $
   $Revision: 1.3 $
   $Date: 1999/04/10 11:45:04 $
   $Author: uho $

 /--------------------------------------------------------uh 25Mar95
 | This file contains the definition of an ANS-Forth compatible    |
 | String word set for F-PC. If you do not use F-PC this           |
 | file is useless for you. This is NOT an ANS-Forth program but is|
 | highly F-PC specific. It is a system extension to F-PC in order |
 | to make F-PC supply the ANS-Forth string word set.              |
 |                                                                 |
 | This file is a companion to the F-PC ANS-Forth CORE and CORE EXT|
 | extensions as provided in the file ANSI.SEQ. ANSI.SEQ is needed |
 | to load this file.                                              |
 |                                                                 |
 | To support strict ANS-Forth code, a separate vocabulary ANSI    |
 | STRING is defined. By this the F-PC vocabulary search mechanism |
 | can be used to restrict the visibility of specific word sets.   |
 | To activate the double-number word set include the phrase       |
 | ANSI STRING ALSO in your program.                               |
 |                                                                 |
 | This Code is public domain software.                            |
 |                                                                 |
 | Remarks and comments are welcome.                               |
 |                                                                 |
 |               Ulrich Hoffmann                                   |
 |               Sehestedter Strasse 26                            |
 |               24340 Eckernfoerde                                |
 |               Germany                                           |
 |               +49 431 712 217                                   |
 |               +49 431 712 216  (FAX)                            |
 |               Ulrich.E.Hoffmann@gmx.de                          |
 |                                                                 |
 \-----------------------------------------------------------------/

{

needs ansi.seq

Only Forth also ANSI definitions  warning off

Vocabulary STRING

Only Forth also ANSI STRING definitions also ANSI CORE also


' -trailing Alias -trailing
' /string   Alias /string
' blank     Alias blank
' cmove     Alias cmove
' cmove>    Alias cmove>

: COMPARE ( c-addr1 u1 c-addr2 u2 -- n )
   ROT
   2DUP U< IF DROP COMPARE DUP 0= IF DROP  1 THEN  EXIT THEN
   2DUP U> IF NIP  COMPARE DUP 0= IF DROP -1 THEN  EXIT THEN
   DROP COMPARE ;

\ SEARCH
\ SLITERAL

cr .( Parts of the ANS Forth String word set loaded. )

\s

------------------------------------------------------------

Revision history:
$Log: string.seq,v $
Revision 1.3  1999/04/10 11:45:04  uho
Changed Email Address

Revision 1.2  1997/08/28 10:04:35  uho
Changed email address

Revision 1.1  1997/08/28 09:59:16  uho
Initial revision

   
      Rev 1.2   17 Nov 1995  1:22:20
   Clean up for release.