diff options
Diffstat (limited to 'appl/cmd/fs/template.b')
| -rw-r--r-- | appl/cmd/fs/template.b | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/appl/cmd/fs/template.b b/appl/cmd/fs/template.b new file mode 100644 index 00000000..9b08f589 --- /dev/null +++ b/appl/cmd/fs/template.b @@ -0,0 +1,35 @@ +implement Fsmodule; +include "sys.m"; + sys: Sys; +include "draw.m"; +include "sh.m"; +include "fslib.m"; + fslib: Fslib; + Report, Value, type2s, quit: import fslib; + Fschan, Fsdata, Entrychan, Entry, + Gatechan, Gatequery, Nilentry, Option, + Next, Down, Skip, Quit: import Fslib; + +types(): string +{ + return "nil"; +} + +badmod(p: string) +{ + sys->fprint(sys->fildes(2), "fs: size: cannot load %s: %r\n", p); + raise "fail:bad module"; +} + +init() +{ + sys = load Sys Sys->PATH; + fslib = load Fslib Fslib->PATH; + if(fslib == nil) + badmod(Fslib->PATH); +} + +run(nil: ref Draw->Context, report: ref Report, + opts: list of Option, args: list of ref Value): ref Value +{ +} |
