Test programs and Examples

startup.wft

This chapter presents the listing of the file startup.wft which is compiled just after the file wfroth.wft is compiled..

Last update:	7-February-1999
State (estimation)	100%

---

/* ===========================================================================
 
 startup.wft me then you
 
 Description: This file is intented to be customized by you.
 
 This file is loaded from wfroth.wft (see this file), which
 is loaded after the forth kernel is ready to run.
 
 =========================================================================== */
 
: greatings
 " wfroth v" type
 #version 16 shr <#S> type '. emit #version 8 shr 255 and <#S> type 
 '. emit #version 255 and '@ + emit
 space '( emit #date 255 and <#S> type '- emit
 #date 8 shr 255 and CASE
 1 OF " Jan" type ENDOF
 2 OF " Feb" type ENDOF
 3 OF " Mar" type ENDOF
 4 OF " Apr" type ENDOF
 5 OF " May" type ENDOF
 6 OF " Jun" type ENDOF
 7 OF " Jul" type ENDOF
 8 OF " Aug" type ENDOF
 9 OF " Sep" type ENDOF
 10 OF " Oct" type ENDOF
 11 OF " Nov" type ENDOF
 12 OF " Dec" type ENDOF
 ENDCASE drop
 '- emit #date 16 shr 1900 + <#S> type ') emit cr
 " To have a basic help type: help" type cr
 " Complete html help at: http://www.qnx.com/~omsingla/wfroth_help/wfroth.htm" type cr ;
greatings
forget greatings
 
\ I have to modify the kernel to accept the conditional in anonymous definitions...
: temp
 platform CASE
 WINDOWS OF " /windows/notepad.exe" !editor ENDOF
 QNXPHOTON OF " /bin/vedit" !editor ENDOF
 CONSOLE OF " /windows/notepad.exe" !editor ENDOF
 ENDCASE drop ;
temp 
forget temp
 
 " /wfroth/test/test.wft" !curr_file
\ " /wfroth/test/test_wf.wft" !curr_file
 
\ " /wfroth/ti_c50/fcc_c50.wft" !curr_file
\ COM1: load
 
infos