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

Revise example.

Browse Source
This commit is contained in:
Brad Nelson
2024-11-14 21:05:55 -08:00
parent 8c010e1b24
commit 4ed9475c81
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/gemini/gemini.fs
View File

@ -36,6 +36,8 @@ r| What's the "time"?| askit >json a. cr cr
r| What's the "time"?| askit _s" contents" dict@ 0 a@ _s" parts" dict@ 0 a@ _s" text" dict@ >json a. cr r| What's the "time"?| askit _s" contents" dict@ 0 a@ _s" parts" dict@ 0 a@ _s" text" dict@ >json a. cr
0 [IF] 0 [IF]
_s" sample.txt" slurp json> _s" candidates" dict@ 0 a@ _s" content" dict@ _s" parts" dict@ 0 a@ _s" text" dict@ a.
HTTPClient HTTPClient
NetworkClientSecure.new constant nclient NetworkClientSecure.new constant nclient

15
examples/gemini/slurp.fs
View File

@ -12,11 +12,16 @@
\ See the License for the specific language governing permissions and \ See the License for the specific language governing permissions and
\ limitations under the License. \ limitations under the License.
: slurp-file ( a n -- a n ) needs arrays.fs
r/o open-file throw >r
also arrays
: slurp ( a: filename -- a: content )
top range r/o open-file throw >r adrop
r@ file-size throw ( sz ) r@ file-size throw ( sz )
dup 1+ allocate throw swap ( data sz ) STRING array
2dup r@ read-file throw drop top range r@ read-file throw drop
r> close-file throw r> close-file throw
2dup + 0 swap c!
; ;
previous