[Win32forth-cvs] win32forth/src Utils.f,1.11,1.12

[George H. <geo...@us...>]

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 ;