jali/TelnetST
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Found clue to cookie jar

Browse Source
This commit is contained in:
Alexander Noack
2020-11-17 00:04:31 +01:00
parent c064dbfcb8
commit 168c027fec
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/cookies/COOKIES.D
View File

@@ -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.
*)

23
src/cookies/COOKIES.I
View File

@@ -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: *)