[commit] r3782 - forth/lib

[repository service]

Author: quozl
Date: Wed Sep 30 07:07:04 2015
New Revision: 3782
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3782

Log:
Add missing file from r3781, thanks to Marcin Cieslak for advising.

Added:
   forth/lib/string-tools.fth

Added: forth/lib/string-tools.fth
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ forth/lib/string-tools.fth	Wed Sep 30 07:07:04 2015	(r3782)
@@ -0,0 +1,39 @@
+\ string tools
+\ make it easy to include numbers in strings
+\ avoid $cat2 $cat3 which leak memory
+
+\ These words work with a pre-allocated string buffer.
+\ Each buffer begins with its current count and ends with a null byte.
+\ Unless we need larger strings, those will be 1 byte each.
+\ The buddy allocator gives us 2^n bytes, so we will limit string size to 256-2=254 bytes.
+
+d# 254 constant maxstring
+\ buf: len data
+: string:   ( -- )   create 256 allot  ;
+string: string1
+
+\ name$ means an address/length pair on the stack
+\ $name is a word that takes a string and maybe more arguments
+: $room    ( buffer -- room )      maxstring swap c@ -  ;
+: string$  ( buffer -- string$ )   count  ;
+: $add     ( string$ buffer -- )
+   >r
+   r@ $room over < abort" string will not fit "   ( string$ )
+   r> $cat
+;
+: $addch    ( ch buffer -- )  >r r@ c@ r@ + 1+ c!  1 r@ c@ + r> c! ;
+: $empty    ( buffer -- )  0 swap c!  ;
+: $place    ( string$ buffer -- )   dup  $empty  $add  ;
+: $prepend  ( string$ buffer -- )  \ $len == string$ length,  blen == buffer length
+   >r dup r@ 1+ r@ 1+ rot + r@ c@  ( $ buf+1 buf+1+$len blen ) cmove>
+   r@ 1+ swap   ( ready to do a cmove )
+   ( $len )  dup r@ c@ + r> c!
+   ( adr buf+1 $len )  cmove
+;
+: $add_     ( buffer -- )     "  " rot $add  ;
+: $add#_    ( n buffer -- )   >r (.) r@ $add  r> $add_ ;
+: $addd#_   ( n buffer -- )   >r  push-decimal (.) pop-base  r@ $add  r> $add_ ;
+: $addh#_   ( n buffer -- )   >r  push-hex  (u.) pop-base  r@ $add  r> $add_ ;
+: $add8h#   ( n buffer -- )   >r  push-hex  (.8) pop-base  r> $add  ;
+: $add0x#_  ( n buffer -- )   >r " 0x" r@ $add r> $addh#_  ;
+