Return to split.fs CVS log

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

Annotation of qemu/roms/openbios/forth/lib/split.fs, revision 1.1

1.1     ! root        1: \ implements split-before, split-after and left-split 
        !             2: \ as described in 4.3 (Path resolution)
        !             3: 
        !             4: \ delimeter returned in R-string
        !             5: : split-before ( addr len delim -- addr-R len-R addr-L len-L ) 
        !             6:   0 rot dup >r 0 ?do
        !             7:     ( str char cnt R: len <sys> )
        !             8:     2 pick over + c@ 2 pick = if leave then
        !             9:     1+
        !            10:   loop
        !            11:   nip
        !            12:   2dup + r> 2 pick -
        !            13:   2swap
        !            14: ;
        !            15: 
        !            16: \ delimeter returned in L-string
        !            17: : split-after ( addr len delim -- addr-R len-R addr-L len-L ) 
        !            18:   over 1- rot dup >r 0 ?do
        !            19:     ( str char cnt R: len <sys> )
        !            20:     2 pick over + c@ 2 pick = if leave then
        !            21:     1-
        !            22:        loop
        !            23:   nip
        !            24:        dup 0 >= if 1+ else drop r@ then
        !            25:        2dup + r> 2 pick -
        !            26:   2swap
        !            27: ;
        !            28: 
        !            29: \ delimiter not returned
        !            30: : left-split ( addr len delim -- addr-R len-R addr-L len-L )
        !            31:   0 rot dup >r 0 ?do
        !            32:     ( str char cnt R: len <sys> )
        !            33:     2 pick i + c@ 2 pick = if leave then
        !            34:     1+
        !            35:   loop
        !            36:   nip
        !            37:   2dup + 1+ r> 2 pick -
        !            38:   dup if 1- then
        !            39:   2swap
        !            40: ;
        !            41: 
        !            42: \ delimiter not returned [THIS FUNCTION IS NOT NEEDED]
        !            43: : right-split ( addr len delim -- addr-R len-R addr-L len-L )
        !            44:        dup >r
        !            45:        split-after
        !            46:        dup if 2dup + 1-
        !            47:                c@ r@ = if 1- then then
        !            48:        r> drop
        !            49: ;
        !            50: 
        !            51: \ split <param-text> into separate path and device strings
        !            52: : split-path-device  ( str len -- pathstr len devstr len )
        !            53:   ascii , left-split 2 pick 0= if
        !            54:     \ No comma - so either <dev>:<id> or <dev>:<id><path>
        !            55:     2dup ascii \ strchr 0= if
        !            56:       \ No backslash so just <dev> or <dev>:<id>
        !            57:       s" " 2swap       \ ( pathstr len devstr len )
        !            58:     else
        !            59:       \ Contains backslash, must be a <dev>:<id><path>
        !            60:       ascii : left-split       \ ( pathstr len devstr len )
        !            61:     then
        !            62: 
        !            63:     \ Remove RHS split (unused)
        !            64:     4 roll drop
        !            65:     4 roll drop
        !            66:   else
        !            67:     \ Contains comma so split is already correct
        !            68:   then
        !            69: ;
        !            70: 

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