alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding more.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-15 18:45:26 -08:00
parent 5cc284e6b0
commit eeb10b4bcd
1 changed files with 33 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
examples/gemini/gemini.fs
View File

@ -18,13 +18,14 @@ needs slurp.fs
vocabulary gemini also json also arrays also gemini definitions vocabulary gemini also json also arrays also gemini definitions
: askit { a n -- a } : askit ( a: a -- a )
>a
{{ {{
[[ _s" contents" [[ [[ _s" contents" [[
{{ {{
[[ _s" parts" [[ [[ _s" parts" [[
{{ {{
[[ _s" text" a n _s ]] [[ _s" text" a> ]]
}} }}
]] ]] ]] ]]
}} }}
@ -49,26 +50,50 @@ also HTTPClient
NetworkClientSecure.new constant nclient NetworkClientSecure.new constant nclient
cacert top adrop nclient NetworkClientSecure.setCACert cacert top adrop nclient NetworkClientSecure.setCACert
: doquery ( a -- a ) : doquery ( a -- n )
HTTPClient.new { session } HTTPClient.new { session }
url top adrop nclient session HTTPClient.beginNC 0= throw url top adrop nclient session HTTPClient.beginNC 0= throw
1 session HTTPClient.setFollowRedirects 1 session HTTPClient.setFollowRedirects
10 session HTTPClient.setRedirectLimit 10 session HTTPClient.setRedirectLimit
0 session HTTPClient.setReuse 0 session HTTPClient.setReuse
z" POST" top session HTTPClient.sendRequest adrop 200 <> throw z" POST" top range session HTTPClient.sendRequest adrop 200 <> throw
session HTTPClient.getStreamPtr { result } session HTTPClient.getStreamPtr { result }
_s" "
begin result NetworkClient.available while begin result NetworkClient.available while
pad 1024 result NetworkClient.available min result NetworkClient.readBytes result NetworkClient.available STRING array
pad swap type top range result NetworkClient.readBytes drop ,c
repeat repeat
session HTTPClient.delete session HTTPClient.delete
cr
; ;
: snipped ( a -- a ) top 3 + top >count @ 3 - _s anip ;
: ask : ask
nl parse askit >json doquery nl parse _s askit >json doquery
top 3 + top >count @ 3 - _s anip reply-text a. cr snipped reply-text a. cr ;
: askjson ( a -- a )
>a {{
[[ _s" contents" [[
{{
[[ _s" parts" [[
{{
[[ _s" text" a> ]]
}}
]] ]]
}}
]] ]]
[[ _s" generationConfig" {{
[[ _s" response_mime_type" _s" application/json" ]]
}} ]]
}}
; ;
: asklist ( a -- a )
_s" using this JSON schema: list[str]" ,c askjson >json doquery
snipped reply-text json> ;
previous previous
[THEN] [THEN]