home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / test / string.4th < prev    next >
Encoding:
Text File  |  1995-04-15  |  476 b   |  28 lines
  1. \
  2. \ string.4th --- test some string functions
  3. \ (duz 15Apr95)
  4. \
  5.  
  6. CR .( string word set)
  7. CR .( ===============)
  8. CR
  9.  
  10. MARKER FORGET-STRING-TESTS
  11.  
  12. : STR1 S" ASDFASDF" ;
  13. : STR2 S" ASDFASDFGHJK" ;
  14. : STR3 S" ASDFGHJK" ;
  15.  
  16. STR1 STR3 COMPARE -1 = Y
  17. STR3 STR1 COMPARE  1 = Y
  18. STR1 STR1 COMPARE  0 = Y
  19. STR1 STR2 COMPARE -1 = Y
  20. STR2 STR1 COMPARE  1 = Y SPACE D
  21.  
  22. STR2 STR1 SEARCH Y STR2 D= Y
  23. STR2 STR3 SEARCH Y STR2 4 /STRING D= Y
  24. STR3 STR1 SEARCH N STR3 D= Y  SPACE D
  25.  
  26.  
  27. FORGET-STRING-TESTS
  28.