Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24353
Modified Files:
WebServer.F
Log Message:
Jos: To simplify console applications. Saving boring cut and past actions.
Index: WebServer.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** WebServer.F 13 Aug 2008 11:40:54 -0000 1.4
--- WebServer.F 16 Aug 2008 13:31:35 -0000 1.5
***************
*** 77,123 ****
;
! \ 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
! ;
! ))
! : www-server-hello ( -- ) \ startup stuff
! \ default initialization (needed for all turnkey apps)
! initialization-chain do-chain
! init-console drop
! unset-except set-except \ exception handling needs to be set after the console is started
! exception@ if bye then
!
! \ our own initialization
! menu-off \ close menubar
! HideStatusBar: ConsoleWindow \ close the statusbar
! 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
--- 77,87 ----
;
! \ create an application that runs in the console
create-turnkey? [IF]
! in-console
\ and create the application
! &forthdir count &appdir place \ in the Forth-directory
0 0 ' www-server APPLICATION WebServer.exe
1 pause-seconds bye
|
