[Wisp-cvs] wisp/doc/examples bufinput.wth,NONE,1.1 .cvsignore,1.2,1.3 Makefile.am,1.38,1.39

[<di...@us...>]

Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv25684/doc/examples

Modified Files:
	.cvsignore Makefile.am 
Added Files:
	bufinput.wth 
Log Message:
Created the beginnings of Worth-level assemblying.

--- NEW FILE: bufinput.wth ---
;;;; bufinput.wth - buffered input
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2.  If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: bufinput.wth,v 1.1 2002/09/30 18:24:55 digg Exp $

(include io)
(include linux)

(macro inbuf-size 80)
(macro instruc-size inbuf-size 4 +)

(macro instruc.start@ inbuf-size + byte@)
(macro instruc.start! inbuf-size + byte!)
(macro instruc.stop@ inbuf-size 1 + + byte@)
(macro instruc.stop! inbuf-size 1 + + byte!)
(macro instruc.eof@ inbuf-size 2 + + byte@)
(macro instruc.eof! inbuf-size 2 + + byte!)
(macro instruc.fd@ inbuf-size 3 + + byte@)
(macro instruc.fd! inbuf-size 3 + + byte!)

(macro init-instruc
   0 over instruc.start!
   0 over instruc.stop!
   0 over instruc.eof!
   0 swap instruc.fd!)

(macro shift-instruc
  dup instruc.start@ dup if
    over +
    over dup dup instruc.start@ swap instruc.stop@ - bytemove
    dup instruc.stop@ over instruc.start@ - over instruc.stop!
    0 swap instruc.start!
  else 2drop then)

(macro fill-instruc
  dup instruc.eof@ unless
    dup shift-instruc
    dup dup instruc.stop@ 2dup + swap inbuf-size swap -
    rot instruc.fd@ -rot sys.read
    cond dup 0 > if
      swap dup instruc.stop@ rot + swap instruc.stop!
    else dup 0 = if
      drop 1 swap instruc.eof!
    else
      negate hexprint " error occurred\n" type 1 sys.exit
    thens
  else
    drop
  then)

(macro EOF -1)

(defun instruc-getchar
  swap
  dup dup instruc.start@ swap instruc.stop@ u>= if
    dup fill-instruc
  then
  dup dup instruc.start@ swap instruc.stop@ u< if
    dup instruc.start@ 2dup + byte@ -rot 1+ swap instruc.start!
  else
    drop EOF
  then
  swap)

(macro whitespace? #\space <=)

(defun _start
  instruc-size 0 allocate
  dup init-instruc
  begin dup instruc-getchar dup EOF <> while
    dup dup #\space #\U+7F within over #\[ <> and over #\] <> and if
      emit
    else
      #\[ emit
      16 /mod emit-digit emit-digit #\] emit
    then
    #\newline = if cr then
  repeat
  "\nThe End\n" type)

; vim: ft=worth

Index: .cvsignore
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/.cvsignore,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- .cvsignore	22 Jul 2002 14:36:47 -0000	1.2
+++ .cvsignore	30 Sep 2002 18:24:55 -0000	1.3
@@ -1,4 +1,11 @@
 .*.swp
 Makefile
 Makefile.in
+angry
+argenv
+banana
+bufinput
+false
+foo*
 gmon.out
+hello

Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- Makefile.am	30 Sep 2002 18:24:37 -0000	1.38
+++ Makefile.am	30 Sep 2002 18:24:55 -0000	1.39
@@ -6,16 +6,24 @@
 #
 #### @(#) $Id$
 
+WORTH_EXAMPLES = angry.wth argenv.wth banana.wth bufinput.wth \
+    false.wth hello.wth
+
 EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
     rawkey.wisp \
     find.wisp \
-    hello.was hello.wth banana.wth false.wth angry.wth argenv.wth \
+    hello.was \
+    $(WORTH_EXAMPLES) \
     .cvsignore
 
 %: %.wth
 	WISP_PATH=$(top_srcdir)/modules $(top_builddir)/src/wisp \
         $(top_srcdir)/tools/worth $<
 
+%.was: %.wth
+	WISP_PATH=$(top_srcdir)/modules $(top_builddir)/src/wisp \
+        $(top_srcdir)/tools/worth -III $<
+
 exampledir = ${prefix}/share/doc/wisp/examples
 
 install: install-dir install-readable
@@ -26,8 +34,7 @@
 install-readable: closure.wisp quine.wisp signal.wisp \
                   rawkey.wisp \
                   find.wisp \
-                  hello.was hello.wth banana.wth false.wth angry.wth \
-                  argenv.wth
+                  hello.was $(WORTH_EXAMPLES)
 	install -m644 $^ ${exampledir}
 
 check: quine-check