From 9bd8b0d3f04e3a33558bfc97b05a5adaa6dc9f7d Mon Sep 17 00:00:00 2001 From: Ivan X Date: Sat, 9 Jan 2016 16:53:57 -0500 Subject: [PATCH] python implementation of Apple's CLOCK.PATCH on GS/OS 6.0.1 System Tools 2 --- scripts/clock.patch.py | 174 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 174 insertions(+) create mode 100755 scripts/clock.patch.py diff --git a/scripts/clock.patch.py b/scripts/clock.patch.py new file mode 100755 index 0000000..9ca9e7d --- /dev/null +++ b/scripts/clock.patch.py @@ -0,0 +1,174 @@ +#!/usr/bin/env python +'''CLOCK.PATCH implemented in Python 2/3 for A2SERVER + +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 +values for a calling script (the a2server-setup installer script). +''' + +# 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 + +# 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 + return x # 840 RETURN + +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 + mo == 11): x = -1; continue + # 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 + if x != -1: break + 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) + # 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 + +print(",".join([str(x) for x in yt[1:]]))