fix: Implement SECSTODATE (#424)

fixes #403

Author: tomsci

examples/Tests/datetest.opo

@@ -1,8 +1,8 @@
 INCLUDE "DATE.OXH"
 
 PROC main:
-	LOCAL d&, dh&, epoch&
-	LOCAL year%, month%, day%
+	LOCAL d&, dh&, epoch&, s&
+	LOCAL year%, month%, day%, hour%, min%, sec%, yday%
 
 	d& = DATETOSECS(1970, 1, 1, 0, 0, 0)
 	PRINT "DATETOSECS(1970, 1, 1, 0, 0, 0) = "; d&
@@ -32,5 +32,12 @@ PROC main:
 		RAISE -1
 	ENDIF
 
+	s& = 1727425745
+	SECSTODATE s&, year%, month%, day%, hour%, min%, sec%, yday%
+	PRINT "SECSTODATE", s&, "=", year%, month%, day%, hour%, min%, sec%, yday%
+	IF year% <> 2024 OR month% <> 9 OR day% <> 27 OR hour% <> 8 OR min% <> 29 OR sec% <> 5 OR yday% <> 271
+		RAISE -1
+	ENDIF
+
 	GET
 ENDP

examples/Tests/datetest.txt

@@ -586,6 +586,7 @@ Callables = {
     SCREEN = SpecialOp({Int, Int, Int, Int, numParams = {2, 4}}),
     SCREENINFO = Op("ScreenInfo", {IntArrayArg}),
     SECOND = Fn("Second", {}, Int),
+    SECSTODATE = Op("SecsToDate", {Long, IntVarArg, IntVarArg, IntVarArg, IntVarArg, IntVarArg, IntVarArg, IntVarArg}),
     SETDOC = Op("SetDoc", {String}),
     SETFLAGS = Op("SetFlags", {Long}),
     SETPATH = Op("SetPath", {String}),

src/compiler.lua

@@ -2321,7 +2321,16 @@ function SetPath(stack, runtime) -- 0xFA
 end
 
 function SecsToDate(stack, runtime) -- 0xFB
-    unimplemented("SecsToDate")
+    local s, year, month, day, hour, min, sec, yday = stack:pop(8)
+
+    local d = os.date("!*t", s)
+    runtime:addrAsVariable(year, DataTypes.EWord)(d.year)
+    runtime:addrAsVariable(month, DataTypes.EWord)(d.month)
+    runtime:addrAsVariable(day, DataTypes.EWord)(d.day)
+    runtime:addrAsVariable(hour, DataTypes.EWord)(d.hour)
+    runtime:addrAsVariable(min, DataTypes.EWord)(d.min)
+    runtime:addrAsVariable(sec, DataTypes.EWord)(d.sec)
+    runtime:addrAsVariable(yday, DataTypes.EWord)(d.yday)
 end
 
 function gIPrint(stack, runtime) -- 0xFC