mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
28 lines
823 B
Forth
Executable file
28 lines
823 B
Forth
Executable file
#!/usr/bin/env retro
|
|
|
|
This implements `s:paste`, a string to private pastebin in
|
|
RETRO. It uses a Unix pipe to `md5` to create the paste name,
|
|
keeping in line with the `share.forth` example code.
|
|
|
|
It takes a string and returns a pointer to the URL of the
|
|
paste.
|
|
|
|
~~~
|
|
{{
|
|
:pipe{ dup 'md5_-s_"%s" s:format file:R unix:popen ;
|
|
:skip-space dup file:read drop ;
|
|
:skip-info [ dup file:read $= eq? ] until skip-space ;
|
|
:get-checksum #127 [ dup file:read , ] here × dip swap ;
|
|
:} unix:pclose ;
|
|
:cleanup s:chop s:temp ;
|
|
:save [ '/home/crc/public/%s s:format file:spew ] sip ;
|
|
:url 'http://forth.works/%s s:format ;
|
|
---reveal---
|
|
:s:paste (s-s)
|
|
&Heap [ pipe{ skip-info get-checksum } cleanup save url ] v:preserve ;
|
|
}}
|
|
~~~
|
|
|
|
```
|
|
'Hello_#forth s:paste s:put nl
|
|
```
|