Author: wmb Date: Fri Jun 25 01:25:15 2010 New Revision: 1834 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1834
Log: Checked in queue.fth .
Added: forth/lib/queue.fth
Added: forth/lib/queue.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/queue.fth Fri Jun 25 01:25:15 2010 (r1834) @@ -0,0 +1,69 @@ +\ See license at end of file +purpose: Character queue + +struct ( queue ) + /l field >qbase + /l field >qsize + /l field >qgetp + /l field >qputp +constant /queue + +: clearq ( q -- ) dup >qbase l@ swap 2dup >qgetp l! >qputp l! ; +: makeq ( size -- q ) + /queue alloc-mem ( size q ) + swap 1+ over >qsize l! ( q ) + dup >qsize l@ alloc-mem over >qbase l! dup clearq +; +: decqp ( q ptr -- q ptr' ) + over >qbase l@ over = if over >qsize l@ + then 1- +; +: putq ( char q -- ) + dup >qputp l@ decqp ( char q putptr ) + begin over >qgetp l@ over = while pause repeat ( char q putptr ) + rot over c! ( q putptr ) + swap >qputp l! ( ) +; +: getq ( q -- char ) + dup >qgetp @ ( q getptr ) + begin over >qputp l@ over = while pause repeat ( q getptr ) + decqp ( q getptr ) + dup c@ -rot ( char q getptr ) + swap >qgetp l! ( char ) +; +: qempty? ( q -- flag ) dup >qgetp l@ swap >qputp @ = ; +: qfull? ( q -- flag ) dup >qputp l@ decqp swap >qgetp @ = ; +: qlen ( q -- len ) + dup >qgetp l@ over >qputp l@ - ( q len ) + dup 0< if over >qsize l@ + then ( q len' ) + nip ( len ) +; +: q#open ( q -- n ) dup >qsize l@ 1- swap qlen - ; +\ 10 makeq constant q1 +\ : .q ( q -- ) +\ dup >qbase l@ . dup >qsize l@ . dup >qgetp l@ . dup >qputp l@ . cr +\ drop +\ ; + +\ LICENSE_BEGIN +\ Copyright (c) 2010 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END