File: string.4th

package info (click to toggle)
pfe 0.9.14-5
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,436 kB
  • ctags: 2,439
  • sloc: ansic: 14,095; sh: 438; asm: 113; makefile: 70; perl: 13
file content (27 lines) | stat: -rw-r--r-- 476 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
\
\ string.4th --- test some string functions
\ (duz 15Apr95)
\

CR .( string word set)
CR .( ===============)
CR

MARKER FORGET-STRING-TESTS

: STR1 S" ASDFASDF" ;
: STR2 S" ASDFASDFGHJK" ;
: STR3 S" ASDFGHJK" ;

STR1 STR3 COMPARE -1 = Y
STR3 STR1 COMPARE  1 = Y
STR1 STR1 COMPARE  0 = Y
STR1 STR2 COMPARE -1 = Y
STR2 STR1 COMPARE  1 = Y SPACE D

STR2 STR1 SEARCH Y STR2 D= Y
STR2 STR3 SEARCH Y STR2 4 /STRING D= Y
STR3 STR1 SEARCH N STR3 D= Y  SPACE D


FORGET-STRING-TESTS