From 168c027fec0485285a62862bddce100bc8b43380 Mon Sep 17 00:00:00 2001
From: Jali <jali@orca-central.de>
Date: Tue, 17 Nov 2020 00:04:31 +0100
Subject: [PATCH] Found clue to cookie jar

---
 src/cookies/COOKIES.D | 11 +----------
 src/cookies/COOKIES.I | 23 ++++++++++++++++-------
 2 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/cookies/COOKIES.D b/src/cookies/COOKIES.D
index 08c57c2..8e3ab91 100644
--- a/src/cookies/COOKIES.D
+++ b/src/cookies/COOKIES.D
@@ -2,21 +2,12 @@
  * Module: Cookies
  * Author: jali <jali@orca-central.de
  * Created On: Sun 01 Nov 2020 05:45:06 PM CET
- * Last Modified: Sun 01 Nov 2020 05:45:06 PM CET
+ * Last Modified: Mon 16 Nov 2020 11:54:18 PM CET
  * Description: Cookiejar code, based on toshyp.atari.org
  ****************************************************************************)
 
 DEFINITION MODULE Cookies;
 
-(* 
- * Basic structure for a a cookie-jar. 
- * Defines an entry in the jar.
- *)
-TYPE CookieJar = RECORD
-    id : LONGCARD;
-    value : LONGCARD;
-END;
-    
 (*
  * Finds and returns the cookie from the system cookie jar.
  *)
diff --git a/src/cookies/COOKIES.I b/src/cookies/COOKIES.I
index b617eec..8296473 100644
--- a/src/cookies/COOKIES.I
+++ b/src/cookies/COOKIES.I
@@ -2,12 +2,24 @@
  * Module: Cookies
  * Author: jali <jali@orca-central.de
  * Created On: Sun 01 Nov 2020 05:58:31 PM CET
- * Last Modified: Sun 01 Nov 2020 05:58:31 PM CET
+ * Last Modified: Tue 17 Nov 2020 12:04:06 AM CET
  * Description: Cookiejar code, based on toshyp.atari.org
  ****************************************************************************)
 
 IMPLEMENTATION MODULE Cookies;
 
+CONST
+    PCOOKIE = 05A0H (* Address of the system cookie jar *)
+
+TYPE 
+    (* A single entry in the cookie jar *)
+    COOKIE = RECORD
+                CookieId    : ARRAY [0..3] OF CHAR;
+                CookieValue : LONGCARD;
+             END;
+    (* Defines a pointer to a cookie *)
+    COOKIEPTR = POINTER TO COOKIE;
+
 (*
  * Finds and returns the cookie from the system cookie jar.
  *)
@@ -18,12 +30,9 @@ VAR
     i   : LONGCARD; 
 
 BEGIN
-    val = 0;
-    jar := Setexc(0x5A0/4) (* What exactly does this do? *)
-    IF jar != NIL THEN
-        
-    END;
-END Cookies;
+    
+END GetCookie;
+END Cookies.
 
 (* vim: set filetype=modula2: set nospell: set fileformat=dos: *)