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
|
