[Win32forth-cvs] win32forth/apps/Internet/WebServer WebServer.F, 1.1, 1.2

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28259/apps/Internet/WebServer

Modified Files:
	WebServer.F 
Log Message:
Made the WebServer a turnkey application.

Index: WebServer.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WebServer.F	13 Jun 2007 13:00:44 -0000	1.1
--- WebServer.F	13 Jun 2007 17:38:15 -0000	1.2
***************
*** 2,16 ****
  \ Tom Dixon
  
  needs http
  needs httpecho
  needs httpmime
  needs httpfile
  
- \ Setup Server
  80 httpserver http
! http setup-http
! http serv-init
  
! \ Run the Server
! : www-server begin http serv-poll 10 ms key? until ;
  
--- 2,103 ----
  \ Tom Dixon
  
+ anew -WebServer.f
+ 
+ true value create-turnkey? \ set to false when you don't want a turnkey app
+ 
  needs http
  needs httpecho
  needs httpmime
  needs httpfile
+ needs browsefld
  
  80 httpserver http
! \ *G our http-server instance
  
! : server-set-title ( -- )
! \ *G set title of the console window
!     Z" Win32Forth - HTTP Web Server" conHndl call SetWindowText drop ;
! 
! s" doc\" Prepend<home>\ webpath place
! \ *G the path to the web content
! 
! : server-choose-path   { \ $path -- }
! \ *G chosse the path for the folder with the web content
!     z" Choose the web content folder."
!     MAXSTRING LocalAlloc: $path webpath count $path place
!     $path conHndl BrowseForFolder
!     if   $path count webpath place
!          webpath ?+\
!     then ;
! 
! : server-init   ( -- )
! \ *G init the server
!     http setup-http http serv-init ;
! 
! : server-run    ( -- )
! \ *G run the server
!     begin http serv-poll 10 ms key? until ;
! 
! : server-exit   ( -- )
! \ *G close the server
!     http serv-close
! 
!     create-turnkey?
!     if   bye
!     else cr ." Type 'www-server <cr>' to restart the server."
!     then ;
! 
! : www-server
! \ *G main
!     server-set-title
! 
!     cls ." The Win32Forth HTTP Web Server is running." cr
! 
!     server-choose-path
! 
!     cr ." webpath = " webpath count type cr
!     cr ." Press any key to stop the server."
! 
!     server-init
!     server-run
!     server-exit
!     ;
! 
! \ create a turnkey application
! create-turnkey? [IF]
! 
! also hidden
! 
! : www-server-hello ( -- )  \ startup stuff
! 
!         \ default initialization (needed for all turnkey apps)
!         init-console
!         if initialization-chain do-chain then
!         exception@ if bye then
! 
!         \ our own initialization
!         menu-off                        \ close menubar
!         ['] _interpret is interpret     \ close the statusbar
!         Destroy: ConsoleStatusbar
!         init-screen                     \ show console
! 
!         get-commandline       \ copy commandline to SOURCE
!         default-application   \ and run our app
! ;
! 
! previous
! 
! \ override default-hello with our own one
! ' www-server-hello is default-hello
! 
! \ and create the application
! &forthdir count &appdir place
! 0 0 ' www-server APPLICATION WebServer.exe
! 1 pause-seconds bye
! 
! [else]
! 
! www-server
! 
! [then]