first working version

2026-02-24 11:40:42 -05:00
parent 8fbf7983e1
commit 0a8a4bca03
4 changed files with 432 additions and 0 deletions
--- a/doc.bas
+++ b/doc.bas
@@ -0,0 +1,15 @@
+' doc.bas
+#include once "doc.bi"
+
+sub Doc_Init( byref d as DocState )
+    d.path = ""
+    d.modified = 0
+end sub
+
+sub Doc_SetPath( byref d as DocState, byref p as string )
+    d.path = p
+end sub
+
+sub Doc_SetModified( byref d as DocState, byval m as integer )
+    d.modified = iif(m <> 0, 1, 0)
+end sub