[gforth] / gforth / gforth-cgi.fs

gforth: gforth/gforth-cgi.fs

1 :	anton	1.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