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
28
29
30
31
32
33
34
35
36
37
38
|
\ this is the splitfunc testsuite.
\
\ run it with paflof < splitfunc-testsuite.fs 2>/dev/null
\ implements split-before, split-after and left-split
\ as described in 4.3 (Path resolution)
s" splitfunc.fs" included
: test-split
s" var/log/messages" 2dup
cr ." split-before test:" cr
2dup ." String: " type cr
2f split-before
2swap
." initial: " type cr ." remainder:" type cr
cr
." split-after test:" cr
2f split-after cr
2swap
." initial: " type cr ." remainder:" type cr
." foobar test" cr
s" foobar" 2dup
2f split-after cr
2swap
." initial: " type cr ." remainder:" type cr
2f split-after cr
2swap
." initial: " type cr ." remainder:" type cr
;
|
