A structured procedural language w/ a Lisp runtime / Rust ATProto bridge, to build a working TUI Bsky client
Add profile and post Superplan examples
+41
+22
superplan/examples/post.spl
+22
superplan/examples/post.spl
···
1
+
PROGRAM POST
2
+
3
+
STRING HANDLE
4
+
STRING PASSWORD
5
+
STRING TEXT
6
+
7
+
BEGIN
8
+
WRITE("HANDLE:")
9
+
HANDLE = READLINE()
10
+
11
+
WRITE("APP PASSWORD:")
12
+
PASSWORD = READLINE()
13
+
14
+
IF ATP_LOGIN(HANDLE, PASSWORD) THEN
15
+
WRITE("TEXT:")
16
+
TEXT = READLINE()
17
+
18
+
IF ATP_POST(TEXT) THEN
19
+
WRITE("POST OK")
20
+
END
21
+
END
22
+
END
+19
superplan/examples/profile.spl
+19
superplan/examples/profile.spl
···
1
+
PROGRAM PROFILE
2
+
3
+
STRING ACTOR
4
+
JSON PROFILE
5
+
6
+
PROCEDURE SHOW_PROFILE(JSON PROFILE)
7
+
BEGIN
8
+
WRITE("HANDLE:")
9
+
WRITE(JSON_STRING(JSON_GET(PROFILE, "handle")))
10
+
WRITE("DISPLAY NAME:")
11
+
WRITE(JSON_STRING(JSON_GET(PROFILE, "displayName")))
12
+
END
13
+
14
+
BEGIN
15
+
WRITE("ACTOR:")
16
+
ACTOR = READLINE()
17
+
PROFILE = ATP_PROFILE(ACTOR)
18
+
CALL SHOW_PROFILE(PROFILE)
19
+
END