mirror of
https://github.com/ubf/ubf.git
synced 2026-04-17 18:26:23 +00:00
28 lines
410 B
Plaintext
28 lines
410 B
Plaintext
+NAME("file_server").
|
|
|
|
+VSN("ubf1.0").
|
|
|
|
+INFO("I am a mini file server").
|
|
|
|
+DESCRIPTION("
|
|
|
|
Commands:
|
|
|
|
'ls'$ List files
|
|
{'get' File} => Length ~ ... ~ | noSuchFile
|
|
|
|
").
|
|
|
|
+SERVICES().
|
|
|
|
+TYPE file() = string().
|
|
|
|
|
|
+STATE start
|
|
ls => {files, [string()]} & start;
|
|
{get, file()} => binary() & start
|
|
| noSuchFile & stop.
|
|
|
|
|
|
|