gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/httpd.fs between versions 1.16 and 1.20

version 1.16, 2004/05/16 21:16:36	version 1.20, 2006/10/07 17:06:15
Line 1	Line 1
#! /usr/local/bin/gforth	#! /usr/local/bin/gforth

\ Copyright (C) 2000,2002,2003 Free Software Foundation, Inc.	\ Copyright (C) 2000,2002,2003,2004 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 23 warnings off	Line 23 warnings off
require string.fs	require string.fs

Variable DocumentRoot s" /usr/local/httpd/htdocs/" DocumentRoot $!	Variable DocumentRoot s" /usr/local/httpd/htdocs/" DocumentRoot $!
Variable UserDir s" .html-data/" UserDir $!	Variable UserDir s" public_html/" UserDir $!

Variable url	Variable url
Variable posted	Variable posted
Line 94 Variable maxnum	Line 94 Variable maxnum

: ?cr ( -- )	: ?cr ( -- )
#tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ;	#tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ;
: refill-loop ( -- flag )	: refill-loop ( -- flag ) base @ >r base off
BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL	BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL
true ELSE maxnum off false THEN ;	true ELSE maxnum off false THEN r> base ! ;
: get-input ( -- flag ior )	: get-input ( -- flag ior )
s" /nosuchfile" url $! s" HTTP/1.0" protocol $!	s" /nosuchfile" url $! s" HTTP/1.0" protocol $!
s" close" connection $!	s" close" connection $!
Line 181 mime set-current	Line 181 mime set-current
s" application/pgp-signature" transparent: sig	s" application/pgp-signature" transparent: sig
s" application/x-bzip2" transparent: bz2	s" application/x-bzip2" transparent: bz2
s" application/x-gzip" transparent: gz	s" application/x-gzip" transparent: gz
s" /etc/mime.types" mime-read	s" /etc/mime.types" ['] mime-read catch [IF] 2drop [THEN]

definitions	definitions

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

Removed from v.1.16
changed lines
	Added in v.1.20