diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-23 21:53:37 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-23 21:53:37 +0200 |
| commit | 9beee977ccb0703656504c070ab85e54537f8f95 (patch) | |
| tree | 0dd1636d79223b91b23fd43cba0581fea63e295d /vms/vmstest.com | |
| parent | d3e8016ffd4de45fb8ea5a76a1aa2048f3facaa9 (diff) | |
| download | egawk-9beee977ccb0703656504c070ab85e54537f8f95.tar.gz egawk-9beee977ccb0703656504c070ab85e54537f8f95.tar.bz2 egawk-9beee977ccb0703656504c070ab85e54537f8f95.zip | |
More doc updates, fix initialization on VAX/VMS.
Diffstat (limited to 'vms/vmstest.com')
| -rw-r--r-- | vms/vmstest.com | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/vms/vmstest.com b/vms/vmstest.com index 1b5b7ed9..75a6b460 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -594,6 +594,8 @@ $ $strftime: echo "strftime" $ ! this test could fail on slow machines or on a second boundary, $ ! so if it does, double check the actual results +$ ! This test needs SYS$TIMEZONE_NAME and SYS$TIMEZONE_RULE +$ ! to be properly defined. $!! date | gawk -v "OUTPUT"=_strftime.tmp -f strftime.awk $ now = f$time() $ wkd = f$extract(0,3,f$cvtime(now,,"WEEKDAY")) @@ -601,11 +603,12 @@ $ mon = f$cvtime(now,"ABSOLUTE","MONTH") $ mon = f$extract(0,1,mon) + f$edit(f$extract(1,2,mon),"LOWERCASE") $ day = f$cvtime(now,,"DAY") $ tim = f$extract(0,8,f$cvtime(now,,"TIME")) -$ tz = f$trnlnm("SYS$TIMEZONE_NAME") +$! Can not use tz as it shows up in the C environment. +$ timezone = f$trnlnm("SYS$TIMEZONE_NAME") $ yr = f$cvtime(now,,"YEAR") $ if f$trnlnm("FTMP").nes."" then close/noLog ftmp $ open/Write ftmp strftime.in -$ write ftmp wkd," ",mon," ",day," ",tim," ",tz," ",yr +$ write ftmp wkd," ",mon," ",day," ",tim," ",timezone," ",yr $ close ftmp $ gawk -v "OUTPUT"=_strftime.tmp -f strftime.awk strftime.in $ set noOn |