diff options
| author | dteske <dteske@FreeBSD.org> | 2012-12-10 15:29:56 +0000 |
|---|---|---|
| committer | dteske <dteske@FreeBSD.org> | 2012-12-10 15:29:56 +0000 |
| commit | 2160ff58527c3253bc5fe11f85c2e3d0fa680688 (patch) | |
| tree | c6e45bb873868c2d35ba7844141bf329bfdd7586 /sys/boot/forth | |
| parent | f89ca91851c687b07b1002f6cdf356c849928859 (diff) | |
| download | FreeBSD-src-2160ff58527c3253bc5fe11f85c2e3d0fa680688.zip FreeBSD-src-2160ff58527c3253bc5fe11f85c2e3d0fa680688.tar.gz | |
Add support for comma-separated values (whitespace-separated still supported).
PR: conf/121064
Submitted by: koitsu
Reviewed by: jh
Diffstat (limited to 'sys/boot/forth')
| -rw-r--r-- | sys/boot/forth/support.4th | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sys/boot/forth/support.4th b/sys/boot/forth/support.4th index 4a01af0..645e14d 100644 --- a/sys/boot/forth/support.4th +++ b/sys/boot/forth/support.4th @@ -207,20 +207,20 @@ create last_module_option sizeof module.next allot 0 last_module_option ! dup 0= if 2drop 2drop false exit then begin begin - swap dup c@ dup 32 = over 9 = or - over 10 = or over 13 = or swap drop + swap dup c@ dup 32 = over 9 = or over 10 = or + over 13 = or over 44 = or swap drop while 1+ swap 1- repeat swap 2 pick 1- over < while 2over 2over drop over compare-insensitive 0= if 2 pick over = if 2drop 2drop true exit then 2 pick tuck - -rot + swap over c@ dup 32 = - over 9 = or over 10 = or over 13 = or + over 9 = or over 10 = or over 13 = or over 44 = or swap drop if 2drop 2drop true exit then then begin - swap dup c@ - dup 32 = over 9 = or over 10 = or over 13 = or - swap drop if false else true then 2 pick 0> and + swap dup c@ dup 32 = over 9 = or over 10 = or + over 13 = or over 44 = or swap drop + if false else true then 2 pick 0> and while 1+ swap 1- repeat swap repeat |
