Adding WIP w/ gemini example.

examples/gemini/gemini.fs

@@ -0,0 +1,63 @@
+#! /usr/bin/env ueforth
+
+needs arrays.fs
+needs json.fs
+needs slurp.fs
+
+vocabulary gemini also json also arrays also gemini definitions
+
+: askit { a n -- a }
+   {{
+     [[ _s" contents" [[
+       {{
+         [[ _s" parts" [[
+           {{
+             [[ _s" text" a n _s ]]
+           }}
+         ]] ]]
+       }}
+     ]] ]]
+   }}
+;
+
+s" What's the time?" askit >json a.
+
+0 [IF]
+HTTPClient
+NetworkClientSecure.new constant nclient
+
+: 2constant create , , does> dup cell+ @ swap @ ;
+
+: slurp-file ( a n -- a n )
+  r/o open-file throw >r
+  r@ file-size throw ( sz )
+  dup 1+ allocate throw swap ( data sz )
+  2dup r@ read-file throw drop
+  r> close-file throw
+  2dup + 0 swap c!
+;
+
+s" /spiffs/gemini_cert" slurp-file drop constant cacert
+s" /spiffs/gemini_url" slurp-file drop constant url
+s" /spiffs/question" slurp-file 2constant question
+
+cacert nclient NetworkClientSecure.setCACert
+." loaded cert:" cr
+cacert z>s type cr
+
+HTTPClient.new constant session
+." created session" cr
+." URL: " url z>s type cr
+url nclient session HTTPClient.beginNC ." beginNC: " . cr
+1 session HTTPClient.setFollowRedirects
+10 session HTTPClient.setRedirectLimit
+." set follow redirects and limit of 10" cr
+." question: " question type
+z" POST" question session HTTPClient.sendRequest ." POSTED: " . cr
+
+session HTTPClient.getStreamPtr constant result
+result NetworkClient.available ." available: " dup . cr
+
+[THEN]
+
+previous previous previous forth definitions