openbios/openboot/obp/fm/kernel/sparc/parseline.fth
Branch
-
Show log
Commit
-
Hash : 1a08f436
Author :
Date : 2010-08-25T09:23:17
change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb
-
obp/fm/kernel/sparc/parseline.fth
-
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
\ parseline.fth 1.1 02/05/02 \ Copyright 1985-1990 Bradley Forthware \ Copyright 1990-2002 Sun Microsystems, Inc. All Rights Reserved \ Copyright Use is subject to license terms. \ \ Splits a buffer into two parts around the first line delimiter \ sequence. A line delimiter sequence is either CR, LF, CR followed by LF, \ or LF followed by CR. \ adr1 len2 is the initial substring before, but not including, \ the first line delimiter sequence. \ adr2 len3 is the trailing substring after, but not including, \ the first line delimiter sequence. code parse-line ( adr1 len1 -- adr1 len2 adr1+len2 len1-len2 ) tos sc1 move \ len1 sp 0 /n* scr nget \ adr1 sp 2 /n* sp sub \ Make room for extra return values h# 0a tos move \ Delimiter 1 h# 0d sc4 move \ Delimiter 2 scr sc1 scr add \ Point to end %g0 sc1 sc3 sub \ Index counts up from -len1 sc3 1 sc3 sub \ Account for pre-increment ahead sc3 1 sc3 addcc \ Delay: Increment and test counter begin tos sc2 cmp = if annul sc4 sc2 cmp then \ Compare to delimiters = if annul \ Exit if delimiter found sc3 1 sc3 addcc \ Delay: Increment and test counter sc1 sc3 sc1 add \ Compute len2 sc1 sp 1 /n* nput \ .. and store on stack sc3 1 sc3 addcc \ Consume first delimiter \ Check next character too, unless we're at the end of the buffer 0<> if nop scr sc3 sc5 ldub \ Get the next character \ Compare next character to other delimiter tos sc2 cmp = if tos sc5 cmp sc4 sc5 cmp then <> if annul \ If next character is the other delimiter sc3 1 sc3 add \ ... consume it then then scr sc3 scr add \ Compute adr1+len2 scr sp 0 /n* nput \ .. and store on stack %g0 sc3 tos sub \ Return len1-len2 next then but then 0= until annul scr sc3 sc2 ldub \ Delay: Get the next character \ There is no line delimiter in the input string scr sp 0 /n* nput \ Store adr1+len2 on stack %g0 tos move \ Return rem-len=0 c;