TudbuT/spl
1
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity Actions

fast.spl improvements

Browse source
This commit is contained in:
Daniella / Tove 2024-10-29 21:12:10 +01:00
parent 5c8875eb55
commit 1b1855fe5a
Signed by: TudbuT
GPG key ID: B3CF345217F202D3
3 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
spl/fast.spl
View file

@ -33,8 +33,10 @@ func $ { v | env:get }
func . { | output } func . { | output }
func ex { | with s ; [ ^sh ^-c s ] command-wait; } func ex { | with s ; [ ^sh ^-c s ] command-wait; }
func ex% { | command-wait; } func ex% { | command-wait; }
func ex. { | with s ; [ ^sh ^-c s ] StreamTypes:cmd:create:read-to-end<1024 16 *> }
func ex%. { | StreamTypes:cmd:create:read-to-end<1024 16 *> }
func into { | with input file ; func into { | with input file ;
input gettype any<[ / "array" eq \ / "bytearray" eq \ ]> not if { input _str:to-bytes =input } input gettype any<[ { | "array" eq } { | "bytearray" eq } ]> not if { input _str:to-bytes =input }
file 1 StreamTypes:file:create file 1 StreamTypes:file:create
dup :write-exact;<input> dup :write-exact;<input>
:close; :close;

3
spl/repl.spl
View file

@ -3,7 +3,8 @@
func main { mega | with args ; func main { mega | with args ;
"Welcome to the SPL REPL!" println "Welcome to the SPL REPL!" println
"Enter any code after the cursor to execute it.\nfast.spl (for shell-like functions) is included.\n" println "Enter any code after the cursor to execute it." println
"fast.spl (for shell-like functions) is included.\n" println
"REPL" =program-name "REPL" =program-name
while { 1 } { while { 1 } {

1
test.txt
View file

@ -1 +0,0 @@
hi