Annotation of gforth/gforth-cgi.fs, revision 1.1

1.1     ! anton       1: #! /usr/bin/gforth
        !             2: 
        !             3: \ This file is in the public domain. NO WARRANTY.
        !             4: 
        !             5: \ Example CGI script
        !             6: 
        !             7: .( Content-Type: text/plain; charset=us-ascii) cr
        !             8: .( Content-Transfer-Encoding: 7bit) cr
        !             9: cr
        !            10: : zeroes ( u -- )
        !            11:     0 +do '0 emit loop ;
        !            12: 
        !            13: : u.rz ( u1 u2 -- )
        !            14:     >r s>d  <<# #s #> r> over - zeroes type #>> ;
        !            15: 
        !            16: .( It's ) time&date 4 u.rz .( -) 2 u.rz .( -) 2 u.rz space
        !            17:                     2 u.rz .( :) 2 u.rz .( :) 2 u.rz cr
        !            18: \ : printargs ( -- )
        !            19: \     argc @ 0 +do
        !            20: \         ." arg" i . ." = '" i arg type ." '" cr
        !            21: \     loop ;
        !            22: \ printargs
        !            23: \ s" QUERY_STRING" getenv type cr
        !            24: \ s" PATH_INFO" getenv type cr
        !            25: \ s" PATH_TRANSLATED" getenv type
        !            26: \ s" CONTENT_LENGTH" getenv type
        !            27: bye

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>