rainlance/AmiTimeKeeper
1
0
Fork 0
Code Issues Pull Requests Releases 8 Wiki Activity

Release 1.12

Browse Source
This commit is contained in:
Carsten Sonne Larsen
2021-01-31 20:10:59 +01:00
parent 7f7b1173c0
commit c048b79a21
62 changed files with 2966 additions and 2106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
arexx/TZCentralAustralia.rx Normal file
View File

@ -0,0 +1,3 @@
/* Set TZ to Australian Central time zone */
SAY ('Changing to Australian Central time zone ...')
Address TIMEKEEPER.1 'SET TZ ACST-9'

3
arexx/TZCentralEurope.rx Normal file
View File

@ -0,0 +1,3 @@
/* Set TZ to Central European time zone */
SAY ('Changing to Central European time zone ...')
Address TIMEKEEPER.1 'SET TZ CET-1CEST,M3.5.0,M10.5.0/3'

3
arexx/TZEastAustralia.rx Normal file
View File

@ -0,0 +1,3 @@
/* Set TZ to Australian Eastern time zone */
SAY ('Changing to Australian Eastern time zone ...')
Address TIMEKEEPER.1 'SET TZ AEST-10AEDT,M10.1.0,M4.1.0/3'

3
arexx/TZNorthEastAmerica.rx Normal file
View File

@ -0,0 +1,3 @@
/* Set TZ to North East American time zone */
SAY ('Changing to North East American time zone ...')
Address TIMEKEEPER.1 'SET TZ EST5EDT,M3.2.0,M11.1.0'

23
arexx/TZTest.rx Normal file
View File

@ -0,0 +1,23 @@
/* Test time zone settings */
SAY ('Testing time zone values ...')
Address TIMEKEEPER.1 SET TZ
Address TIMEKEEPER.1'SET TZ CET-1'
Address TIMEKEEPER.1'SET TZ CET-1CEST'
Address TIMEKEEPER.1'SET TZ <GMT+3>-3'
Address TIMEKEEPER.1 'SET TZ CST6CDT,M3.2.0,M11.1.0'
Address TIMEKEEPER.1 'SET TZ MST7MDT,M3.2.0,M11.1.0'
Address TIMEKEEPER.1 'SET TZ AEST-10AEDT,M10.1.0,M4.1.0/3'
Address TIMEKEEPER.1 'SET TZ NZST-12NZDT,M9.5.0,M4.1.0/3'
Address TIMEKEEPER.1'SET TZ GMT0'
Address TIMEKEEPER.1 SET TZVALUE 10000
Address TIMEKEEPER.1 'SET TZVALUE -10000'
Address TIMEKEEPER.1 SET TZVALUE 200
Address TIMEKEEPER.1 'SET TZVALUE -200'
Address TIMEKEEPER.1 'SET TZDST -1'
Address TIMEKEEPER.1 SET TZDST 0
Address TIMEKEEPER.1 SET TZDST 1
Address TIMEKEEPER.1 'SET TZDST -1'

4
arexx/getactive.rx Normal file
View File

@ -0,0 +1,4 @@
/* Show TimeKeeper synchronization status */
Options RESULTS
Address TIMEKEEPER.1 'GET ACTIVE'; SAY ('ACTIVE (YES/NO):' RESULT);
Address TIMEKEEPER.1 'GET ACTIVE NUMBER'; SAY ('ACTIVE (0/1):' RESULT);

5
arexx/getserver.rx Normal file
View File

@ -0,0 +1,5 @@
/* Show the NTP server address in use */
Options RESULTS
Address TIMEKEEPER.1 'GET SERVER';
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY (RESULT)
ELSE SAY (TIMEKEEPER.ERRORTEXT)

2
arexx/help.rx
View File

@ -1,4 +1,4 @@
/* Show the ARexx commands supported by TimeKeeper */
Options RESULTS
Address TIMEKEEPER.1 'help'
Address TIMEKEEPER.1 HELP
SAY (RESULT)

2
arexx/hide.rx Normal file
View File

@ -0,0 +1,2 @@
/* Hide TimeKeeper settings window */
Address TIMEKEEPER.1 HIDE

18
arexx/lastsync.rx
View File

@ -1,3 +1,19 @@
/* Show when the last response from a NTP server was received */
Options RESULTS
Address TIMEKEEPER.1 'LastSync'; SAY (RESULT)
Address TIMEKEEPER.1 'LastSync'
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY (RESULT)
ELSE SAY (TIMEKEEPER.ERRORTEXT)
Address TIMEKEEPER.1 LASTSYNC RFC3339
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Time and date in RFC 3339 format:' RESULT)
ELSE SAY (TIMEKEEPER.ERRORTEXT)
Address TIMEKEEPER.1 LASTSYNC DATE
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Sorted date (in the form YYYYMMDD):' RESULT)
ELSE SAY (TIMEKEEPER.ERRORTEXT)
Address TIMEKEEPER.1 LASTSYNC TIME
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Time in seconds since midnight:' RESULT)
ELSE SAY (TIMEKEEPER.ERRORTEXT)

13
arexx/settings.rx
View File

@ -9,6 +9,13 @@ Address TIMEKEEPER.1 'get threshold'; SAY ('THRESHOLD =' RESULT 'microseconds')
Address TIMEKEEPER.1 'get ReadOnly'; SAY ('READONLY =' RESULT)
Address TIMEKEEPER.1 'get Expert'; SAY ('EXPERT =' RESULT)
Address TIMEKEEPER.1 'get timeout'; SAY ('TIMEOUT =' RESULT 'milliseconds')
Address TIMEKEEPER.1 'get CX_POPUP'; SAY ('POPUP =' RESULT)
Address TIMEKEEPER.1 'get CX_POPKEY'; SAY ('POPKEY =' RESULT)
Address TIMEKEEPER.1 'get CX_PRIORITY'; SAY ('PRIORITY =' RESULT)
Address TIMEKEEPER.1 GET CX_POPUP; SAY ('POPUP =' RESULT)
Address TIMEKEEPER.1 GET CX_POPKEY; SAY ('POPKEY =' RESULT)
Address TIMEKEEPER.1 GET CX_PRIORITY; SAY ('PRIORITY =' RESULT)
Address TIMEKEEPER.1 GET ACTIVE; SAY ('ACTIVE =' RESULT)
Address TIMEKEEPER.1 GET NOLOG; SAY ('NOLOG =' RESULT)
Address TIMEKEEPER.1 GET TZD; SAY ('TZD =' RESULT)
Address TIMEKEEPER.1 GET TZ; SAY ('TZ =' RESULT)
Address TIMEKEEPER.1 GET TZNAME; SAY ('TZNAME =' RESULT)
Address TIMEKEEPER.1 GET TZVALUE; SAY ('TZVALUE =' RESULT)
Address TIMEKEEPER.1 GET TZDST; SAY ('TZDST =' RESULT)

3
arexx/start.rx
View File

@ -1,3 +1,4 @@
/* Start TimeKeeper synchronization */
SAY ('Starting TimeKeeper synchronization ...')
Address TIMEKEEPER.1 'start'
Address TIMEKEEPER.1 START
IF TIMEKEEPER.ERRORCODE ~= 0 THEN SAY (TIMEKEEPER.ERRORTEXT)

11
arexx/status.rx
View File

@ -1,5 +1,12 @@
/* Show TimeKeeper synchronization status */
Options RESULTS
Address TIMEKEEPER.1 'status'; SAY (RESULT)
Address TIMEKEEPER.1 'LastSync'; SAY ('Last response from NTP server was:' RESULT)
Address TIMEKEEPER.1 'LastAdjust'; SAY ('Last clock adjustment was:' RESULT)
Address TIMEKEEPER.1 'LastSync'
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Last response from NTP server was:' RESULT)
ELSE SAY ('LastSync:' TIMEKEEPER.ERRORTEXT)
Address TIMEKEEPER.1 'LastAdj'
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Last clock adjustment was:' RESULT)
ELSE SAY ('LastAdj:' TIMEKEEPER.ERRORTEXT)

3
arexx/stop.rx
View File

@ -1,3 +1,4 @@
/* Stop TimeKeeper synchronization */
SAY ('Stopping TimeKeeper synchronization ...')
Address TIMEKEEPER.1 'stop'
Address TIMEKEEPER.1 STOP
IF TIMEKEEPER.ERRORCODE ~= 0 THEN SAY (TIMEKEEPER.ERRORTEXT)

19
arexx/time.rx Normal file
View File

@ -0,0 +1,19 @@
/* Show current date and time */
Options RESULTS
Address TIMEKEEPER.1 NOW ASCII LOCAL; SAY ('ASCII style:' RESULT)
Address TIMEKEEPER.1 NOW ASCII UTC; SAY ('ASCII style (UTC):' RESULT)
Address TIMEKEEPER.1 NOW DOS LOCAL; SAY ('DOS style:' RESULT)
Address TIMEKEEPER.1 NOW DOS UTC; SAY ('DOS style (UTC):' RESULT)
Address TIMEKEEPER.1 NOW RFC850; SAY ('RFC850:' RESULT)
Address TIMEKEEPER.1 NOW RFC1123; SAY ('RFC1123:' RESULT)
Address TIMEKEEPER.1 NOW RFC2822 LOCAL; SAY ('RFC2822:' RESULT)
Address TIMEKEEPER.1 NOW RFC2822 UTC; SAY ('RFC2822:' RESULT)
Address TIMEKEEPER.1 NOW RFC3339 LOCAL; SAY ('RFC3339:' RESULT)
Address TIMEKEEPER.1 NOW RFC3339 UTC; SAY ('RFC3339:' RESULT)
Address TIMEKEEPER.1 NOW ISO8601 LOCAL; SAY ('ISO8601:' RESULT)
Address TIMEKEEPER.1 NOW ISO8601 UTC; SAY ('ISO8601:' RESULT)
Address TIMEKEEPER.1 NOW DATE LOCAL; SAY ('ARexx compatible sorted date:' RESULT)
Address TIMEKEEPER.1 NOW DATE UTC; SAY ('ARexx compatible sorted date (UTC):' RESULT)
Address TIMEKEEPER.1 NOW TIME LOCAL; SAY ('ARexx compatible time in seconds since midnight:' RESULT)
Address TIMEKEEPER.1 NOW TIME UTC; SAY ('ARexx compatible time in seconds since midnight (UTC):' RESULT)

13
arexx/timezone.rx
View File

@ -1,3 +1,14 @@
/* Show current timezone in TimeKeeper */
Options RESULTS
Address TIMEKEEPER.1 'timezone'; SAY (RESULT)
Address TIMEKEEPER.1 TIMEZONE 1; SAY (' 1:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 2; SAY (' 2:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 3; SAY (' 3:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 4; SAY (' 4:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 5; SAY (' 5:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 6; SAY (' 6:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 7; SAY (' 7:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 8; SAY (' 8:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 9; SAY (' 9:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 10; SAY ('10:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 11; SAY ('11:' RESULT)
Address TIMEKEEPER.1 TIMEZONE 12; SAY ('12:' RESULT)

3
arexx/transition.rx Normal file
View File

@ -0,0 +1,3 @@
/* Show time zone transition map in log */
SAY ('Writing time zone transition map to log')
Address TIMEKEEPER.1 LOGTRANS