38 lines
1.2 KiB
Plaintext
38 lines
1.2 KiB
Plaintext
#!/usr/bin/env nomsu -V6.15.13.8
|
|
#
|
|
This file defines some actions that interact with the filesystem.
|
|
|
|
external:
|
|
(files for $path) means:
|
|
$files = (=lua "Files.list(\$path)")
|
|
if $files:
|
|
$files = (List $files)
|
|
return $files
|
|
$(read file $filename) = $Files.read
|
|
[
|
|
write to file $filename $text, to file $filename write $text
|
|
write $text to file $filename
|
|
] all mean:
|
|
unless ($filename != "stdin"):
|
|
fail "Cannot write to stdin"
|
|
|
|
lua> ("
|
|
local file = io.open(\$filename, 'w')
|
|
file:write(\$text)
|
|
file:close()
|
|
")
|
|
|
|
(source lines of $tree) means:
|
|
$source = ($tree.source if ($tree is syntax tree) else $tree)
|
|
$file = (read file $source.filename)
|
|
return
|
|
[
|
|
: for $ in ($file, line number at $source.start) to
|
|
$file, line number at $source.stop
|
|
..: add ($file, line $)
|
|
], joined with "\n"
|
|
|
|
$(spoof file $text) = $Files.spoof
|
|
$(spoof file $filename = $text) = $Files.spoof
|
|
$(make directory $path) = $Files.make_directory
|