[Wisp-cvs] wisp/doc/examples argenv.wth,NONE,1.1 Makefile.am,1.36,1.37

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

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

Modified Files:
	Makefile.am 
Added Files:
	argenv.wth 
Log Message:
Created the |argc-argv-envp| and |argv-envp| macros.

--- NEW FILE: argenv.wth ---
;;;; argenv.wth - demonstrate usage of the |argv-envp| macro
;;
;; 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: argenv.wth,v 1.1 2002/09/18 21:14:23 digg Exp $

(include io)
(include linux)

(defun strlen
  swap dup
  begin dup byte@ while
    1+
  repeat
  swap - swap)

(defun _start argv-envp
  swap
  begin cell@++ dup while
    dup hexprint space dup strlen type cr
  repeat
  drop cr
  begin cell@++ dup while
    dup hexprint space dup strlen type cr
  repeat)

; vim: ft=worth

Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- Makefile.am	4 Sep 2002 14:34:44 -0000	1.36
+++ Makefile.am	18 Sep 2002 21:14:23 -0000	1.37
@@ -9,7 +9,7 @@
 EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
     rawkey.wisp \
     find.wisp \
-    hello.was hello.wth banana.wth false.wth angry.wth \
+    hello.was hello.wth banana.wth false.wth angry.wth argenv.wth \
     .cvsignore
 
 exampledir = ${prefix}/share/doc/wisp/examples
@@ -22,7 +22,8 @@
 install-readable: closure.wisp quine.wisp signal.wisp \
                   rawkey.wisp \
                   find.wisp \
-                  hello.was hello.wth banana.wth false.wth angry.wth
+                  hello.was hello.wth banana.wth false.wth angry.wth \
+                  argenv.wth
 	install -m644 $^ ${exampledir}
 
 check: quine-check