Return to splitfunc-testsuite.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / testsuite

Annotation of qemu/roms/openbios/forth/testsuite/splitfunc-testsuite.fs, revision 1.1.1.1

1.1       root        1: \ this is the splitfunc testsuite.
                      2: \ 
                      3: \ run it with   paflof < splitfunc-testsuite.fs 2>/dev/null
                      4: 
                      5: \ implements split-before, split-after and left-split 
                      6: \ as described in 4.3 (Path resolution)
                      7: 
                      8: s" splitfunc.fs" included
                      9:  
                     10: : test-split
                     11:  s" var/log/messages" 2dup
                     12: 
                     13:  cr ." split-before test:" cr
                     14:  2dup ." String: " type cr
                     15:  2f split-before
                     16:  2swap 
                     17:  ." initial: " type cr ." remainder:" type cr
                     18:  cr
                     19:  ." split-after test:" cr
                     20:  2f split-after cr
                     21:  2swap 
                     22:  ." initial: " type cr ." remainder:" type cr
                     23: 
                     24:  ." foobar test" cr
                     25: 
                     26:  s" foobar" 2dup
                     27: 
                     28:  2f split-after cr
                     29:  2swap 
                     30:  ." initial: " type cr ." remainder:" type cr
                     31: 
                     32:  2f split-after cr
                     33:  2swap 
                     34:  ." initial: " type cr ." remainder:" type cr
                     35:  ;
                     36: 
                     37: 
                     38:   

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.