Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4195/win32forth/src
Modified Files:
Utils.f
Log Message:
gah:Updated documentation and tidy up.
Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Utils.f 24 Aug 2006 10:14:30 -0000 1.11
--- Utils.f 25 Aug 2006 12:54:01 -0000 1.12
***************
*** 537,541 ****
time-buf call GetLocalTime drop ;
! create compile-version time-len allot \ a place to save the compile time
get-local-time \ save as part of compiled image
--- 537,541 ----
time-buf call GetLocalTime drop ;
! create compile-version time-len allot \ a place to save the compile time (global)
get-local-time \ save as part of compiled image
***************
*** 561,564 ****
--- 561,565 ----
: .date ( -- )
+ \ *G Print date in short format, based on regional setting.
get-local-time time-buf >date" type ;
***************
*** 570,573 ****
--- 571,575 ----
: .month,day,year ( -- )
+ \ *G Print day and date in full.
get-local-time time-buf >month,day,year" type ;
***************
*** 578,581 ****
--- 580,584 ----
: .time ( -- )
+ \ *G Print time in 24hr format.
get-local-time time-buf >time" type ;
***************
*** 586,589 ****
--- 589,593 ----
: .am/pm ( -- )
+ \ *G Print time in 12hr format.
get-local-time time-buf >am/pm" type ;
|