2016-01-09 21:53:57 +00:00
|
|
|
#!/usr/bin/env python
|
2016-01-10 16:54:57 +00:00
|
|
|
'''CLOCK.PATCH by Greg Branche implemented in Python 2/3 for A2SERVER
|
2016-01-09 21:53:57 +00:00
|
|
|
|
|
|
|
|
This is a line-for-line conversion of an edited version of CLOCK.PATCH
|
|
|
|
|
from the System Tools 2 disk in GS/OS 6.0.1. It's not good Python,
|
|
|
|
|
but I thought it would be an interesting exercise. In general
|
|
|
|
|
I have tried replicate each line as closely to BASIC as possible.
|
|
|
|
|
|
|
|
|
|
Because BASIC substrings are 1-based and python's are 0-based, various
|
|
|
|
|
indexes are minus one of their BASIC equivalents.
|
|
|
|
|
|
|
|
|
|
The one change is that you can optionally pass the day and date by
|
|
|
|
|
command line argument (e.g "Wed 3/13/15"). I also improved error
|
|
|
|
|
checking. These are in the BASIC lines that don't end in 0.
|
|
|
|
|
|
|
|
|
|
Rather than modifying PRODOS, this outputs a string of comma-separated
|
2016-01-10 16:32:22 +00:00
|
|
|
year values for a calling script (the a2server-setup installer),
|
|
|
|
|
followed by a space and a dd-Mmm-yy date string.
|
2016-01-09 21:53:57 +00:00
|
|
|
'''
|
|
|
|
|
|
|
|
|
|
# imports for python 3 code compatibility
|
|
|
|
|
from __future__ import print_function
|
|
|
|
|
from __future__ import unicode_literals
|
|
|
|
|
from __future__ import absolute_import
|
|
|
|
|
from __future__ import division
|
|
|
|
|
|
|
|
|
|
# other imports
|
|
|
|
|
import sys
|
2016-01-10 16:32:22 +00:00
|
|
|
import datetime
|
2016-01-09 21:53:57 +00:00
|
|
|
|
|
|
|
|
# substitute raw_input for input in Python2
|
|
|
|
|
try: input = raw_input
|
|
|
|
|
except NameError: pass
|
|
|
|
|
|
|
|
|
|
dow_str = None
|
|
|
|
|
day = None
|
|
|
|
|
if len(sys.argv) > 2:
|
|
|
|
|
dow_str = sys.argv[1] # day of week passed on command line
|
|
|
|
|
day = sys.argv[2] # date passed on command line
|
|
|
|
|
|
|
|
|
|
# 60000 REM # of days in each month
|
|
|
|
|
data = [31,28,31,30,31,30,31,31,30,31,30] # 60010 DATA 31,28,31,30,31,30,31,31,30,31,30
|
|
|
|
|
# 60020 REM Names of days of week
|
|
|
|
|
data += [ # 60030 DATA SUN,MON,TUE,WED,THU,FRI,SAT
|
|
|
|
|
"SUN","MON","TUE","WED","THU","FRI","SAT"]
|
|
|
|
|
data = iter(data)
|
|
|
|
|
# 110 REM cu() = cumulative # of days in year
|
|
|
|
|
cu = [0] * 13 # 120 DIM CU(12)
|
|
|
|
|
# 130 REM fill array with # of days in year
|
|
|
|
|
cu[1] = 0 # 140 CU(1) = 0: REM January
|
|
|
|
|
for i in range(2,13): # 150 FOR I = 2 TO 12
|
|
|
|
|
x = next(data) # 160 READ X
|
|
|
|
|
cu[i] = cu[i-1] + x # 170 CU(I) = CU(I - 1) + X
|
|
|
|
|
# 180 NEXT I
|
|
|
|
|
|
|
|
|
|
# 200 REM DN$() = Names for days of week
|
|
|
|
|
dn = [""] * 8 # 210 DIM DN$(7)
|
|
|
|
|
# 220 REM fill array with names of days of week
|
|
|
|
|
for i in range(1,8): # 230 FOR I = 1 TO 7
|
|
|
|
|
dn[i] = next(data) # 240 READ DN$(I)
|
|
|
|
|
# 250 NEXT I
|
|
|
|
|
|
|
|
|
|
# 270 REM yt() is the year table values
|
|
|
|
|
yt = [0] * 8 # 280 DIM YT(7)
|
|
|
|
|
|
|
|
|
|
def mod7(x): # 340 DEF FN MOD7(X) = INT (((X / 7) - INT (X / 7)) * 7 + .5)
|
|
|
|
|
return int(((x / 7) - int(x / 7)) * 7 + .5)
|
|
|
|
|
|
|
|
|
|
def find_slash_pos(day): # 799 REM Finds position of / within date string
|
|
|
|
|
x = -1 # 800 X = 0: REM On exit, contains position of /, or 0 if none found
|
|
|
|
|
for i in range(0,3): # 810 FOR I = 1 TO 3
|
|
|
|
|
if day[i:i+1] == "/": x = i; break # 820 IF MID$ (DAY$,I,1) = "/" THEN X = I:I = 3
|
|
|
|
|
# 830 NEXT I
|
2016-07-29 17:39:49 +00:00
|
|
|
return x # 840 RETURN
|
2016-01-09 21:53:57 +00:00
|
|
|
|
|
|
|
|
while True: # 999 REM get the user's input and convert
|
|
|
|
|
if not day:
|
|
|
|
|
print( # 1010 PRINT "Please enter today's date (mm/dd/yy)"
|
|
|
|
|
"Please enter today's date (mm/dd/yy)")
|
|
|
|
|
day = input("-> ") # 1020 INPUT "-> ";DAY$
|
|
|
|
|
x = find_slash_pos(day) # 1030 GOSUB 800: REM find slash separator
|
|
|
|
|
input_ok = False
|
|
|
|
|
while not input_ok:
|
|
|
|
|
if not (x != -1): # 1040 IF X < > 0 THEN 1080
|
|
|
|
|
print( # 1050 PRINT "Invalid date entered. Please try again."; CHR$ (7)
|
|
|
|
|
"Invalid date entered. Please try again.\x07")
|
|
|
|
|
break # 1060 GOTO 1010
|
|
|
|
|
# 1070 REM Convert month value to numeric variable
|
|
|
|
|
mo = int(day[0:0+x]) # 1080 MO = VAL ( MID$ (DAY$,1,X - 1))
|
|
|
|
|
day = day[x+1:] # 1090 DAY$ = MID$ (DAY$,X + 1)
|
|
|
|
|
if mo < 1 or mo > 12: x = -1; continue # 1100 IF MO < 1 OR MO > 12 THEN 1050: REM Range check the month value
|
|
|
|
|
x = find_slash_pos(day) # 1110 GOSUB 800: REM Parse out the current day
|
|
|
|
|
if x == -1: continue # 1120 IF X = 0 THEN 1050
|
|
|
|
|
# 1130 REM Convert day string into numeric value
|
|
|
|
|
da = int(day[0:0+x]) # 1140 DA = VAL ( MID$ (DAY$,1,X - 1))
|
|
|
|
|
day = day[x+1:] # 1150 DAY$ = MID$ (DAY$,X + 1)
|
|
|
|
|
if da < 1 or da > 31: x = -1; continue # 1160 IF DA < 1 OR DA > 31 THEN 1050: REM Range check the day value
|
|
|
|
|
if mo == 2 and da > 29: # 1161 IF MO = 2 AND DA > 29 THEN 1050
|
|
|
|
|
x = -1; continue
|
|
|
|
|
if (mo == 4 or # 1162 IF (MO = 4 OR MO = 6 OR MO = 9 OR MO = 11) AND DA > 30 THEN 1050
|
|
|
|
|
mo == 6 or
|
|
|
|
|
mo == 9 or
|
2016-01-19 12:38:23 +00:00
|
|
|
mo == 11) and da > 30: x = -1; continue
|
2016-01-09 21:53:57 +00:00
|
|
|
# 1170 REM Convert year string into numeric value
|
|
|
|
|
yr = int(day) # 1180 YR = VAL (DAY$)
|
|
|
|
|
if yr < 0 or yr > 99: x = -1; continue # 1190 IF YR < 0 OR YR > 99 THEN 1050: REM Only allow 0-99
|
|
|
|
|
if yr > 39: yr = yr + 1900 # 1200 IF YR > 39 THEN YR = YR + 1900: REM 40-99 must be 1940-1999
|
|
|
|
|
if yr < 40: yr = yr + 2000 # 1210 IF YR < 40 THEN YR = YR + 2000: REM 0-39 must be 2000-2039
|
|
|
|
|
if ((yr / 4) != int(yr / 4) and # 1211 IF ((YR / 4) < > INT(YR / 4)) AND MO = 2 AND DA > 28 THEN 1050
|
|
|
|
|
mo == 2 and
|
|
|
|
|
da > 28): x = -1; continue
|
|
|
|
|
input_ok = True
|
2016-07-29 17:39:49 +00:00
|
|
|
if x != -1: break
|
2016-01-09 21:53:57 +00:00
|
|
|
else: dow_str = ""; day = ""
|
|
|
|
|
|
|
|
|
|
while True:
|
|
|
|
|
if not dow_str:
|
|
|
|
|
print(
|
|
|
|
|
"Please enter the day of the week") # 1230 PRINT "Please enter the day of the week"
|
|
|
|
|
dow_str = input("(e.g. Wed) -> ") # 1240 INPUT "(e.g. Wed) -> ";DOW$
|
|
|
|
|
input_ok = False
|
|
|
|
|
while not input_ok:
|
|
|
|
|
if not (len(dow_str) >= 3): # 1250 IF LEN (DOW$) > = 3 THEN 1270: REM Must be at least 3 characters
|
|
|
|
|
print( # 1260 PRINT "Invalid day of week. Please try again."; CHR$ (7): GOTO 1230
|
|
|
|
|
"Invalid day of week. Please try again.\x07")
|
|
|
|
|
break
|
|
|
|
|
if len(dow_str) > 3: # 1270 IF LEN (DOW$) > 3 THEN DOW$ = LEFT$ (DOW$,3)
|
|
|
|
|
dow_str = dow_str[0:0+3]
|
|
|
|
|
# 1280 REM Shift any lower case letters to upper case
|
|
|
|
|
b = "" # 1290 B$ = ""
|
|
|
|
|
for i in range(0,3): # 1300 FOR I = 1 TO 3
|
|
|
|
|
a = dow_str[i:i+1] # 1310 A$ = MID$ (DOW$,I,1)
|
|
|
|
|
if ( # 1320 IF ASC (A$) > = ASC ("a") AND ASC (A$) < = ASC ("z") THEN A$ = CHR$ ( ASC (A$) - ( ASC ("a") - ASC ("A")))
|
|
|
|
|
ord(a) >= ord("a") and ord(a) <= ord("z")): a = chr(ord(a) - (ord("a") - ord("A")))
|
|
|
|
|
b = b + a # 1330 B$ = B$ + A$
|
|
|
|
|
# 1340 NEXT I
|
|
|
|
|
dow_str = b # 1350 DOW$ = B$
|
|
|
|
|
# 1360 REM Now convert day-of-week string to numeric value
|
|
|
|
|
dow_num = 0 # 1370 DOW = 0
|
|
|
|
|
for i in range (1,8): # 1380 FOR I = 1 TO 7
|
|
|
|
|
if dow_str == dn[i]: # 1390 IF DOW$ = DN$(I) THEN DOW = I:I = 7
|
|
|
|
|
dow_num = i; i = 7
|
|
|
|
|
# 1400 NEXT I
|
|
|
|
|
if dow_num == 0: dow_str = ""; continue # 1410 IF DOW = 0 THEN 1260
|
|
|
|
|
input_ok = True
|
|
|
|
|
if len(dow_str) >= 3: break
|
|
|
|
|
else: dow_str = ""; day = ""
|
|
|
|
|
# 1430 REM Calculate the number of days so far this year
|
|
|
|
|
dys = da + cu[mo] # 1440 DYS = DA + CU(MO)
|
2016-01-10 16:32:22 +00:00
|
|
|
oyr = yr
|
2016-01-09 21:53:57 +00:00
|
|
|
# 1450 REM Must account for extra day in leap year
|
|
|
|
|
if ((yr / 4) == int(yr / 4)) and (mo > 2): # 1460 IF (YR / 4) = INT (YR / 4) AND MO > 2 THEN DYS = DYS + 1
|
|
|
|
|
dys = dys + 1
|
|
|
|
|
|
|
|
|
|
# 1480 REM Now calculate the index to use to fill in the table
|
|
|
|
|
idx = dow_num - mod7(dys) + 1 # 1490 IDX = DOW - FN MOD7(DYS) + 1
|
|
|
|
|
idx = abs(idx - 10) # 1500 IDX = ABS (IDX - 10)
|
|
|
|
|
if idx > 7: idx = idx - 7 # 1510 IF IDX > 7 THEN IDX = IDX - 7
|
|
|
|
|
|
|
|
|
|
# 1530 REM Now we can fill in the year table
|
|
|
|
|
for i in range(1,8): # 1540 FOR I = 1 TO 7
|
|
|
|
|
if '_i' in vars() and i < (_i + 1): continue # python: simulate change of i within loop
|
|
|
|
|
x = yr - 1900 # 1550 X = YR - 1900
|
|
|
|
|
if x >= 100: x = x - 100 # 1560 IF X > = 100 THEN X = X - 100
|
|
|
|
|
yt[idx] = x # 1570 YT(IDX) = X: REM store the year into table
|
|
|
|
|
idx = idx - 1 # 1580 IDX = IDX - 1
|
|
|
|
|
if idx < 1: idx = 7 # 1590 IF IDX < 1 THEN IDX = 7
|
|
|
|
|
if not ((yr / 4) != int(yr / 4)): # 1600 IF (YR / 4) < > INT (YR / 4) THEN 1660: REM not a leap year
|
|
|
|
|
i = i + 1; _i = i # 1610 I = I + 1: REM update index
|
|
|
|
|
if i > 7: continue # 1620 IF I > 7 THEN 1670: REM if entire array done, exit
|
|
|
|
|
yt[idx] = x # 1630 YT(IDX) = X: REM duplicate entry for leap year
|
|
|
|
|
idx = idx - 1 # 1640 IDX = IDX - 1
|
|
|
|
|
if idx < 1: idx = 7 # 1650 IF IDX < 1 THEN IDX = 7
|
|
|
|
|
yr = yr + 1 # 1660 YR = YR + 1
|
|
|
|
|
# 1670 NEXT I
|
|
|
|
|
|
2016-01-10 16:32:22 +00:00
|
|
|
print(",".join([str(x) for x in yt[1:]]) + " " +
|
|
|
|
|
str(da).encode("L1").decode("L1").zfill(2) + "-" +
|
|
|
|
|
datetime.date(1900, mo, 1).strftime('%b') + "-" +
|
|
|
|
|
str(oyr).encode("L1").decode("L1")[2:])
|
