diff options
Diffstat (limited to 'examples/cli.zc')
| -rw-r--r-- | examples/cli.zc | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/examples/cli.zc b/examples/cli.zc index 113a0da..1ea0e6a 100644 --- a/examples/cli.zc +++ b/examples/cli.zc @@ -1,12 +1,15 @@ +namespace; +include rt, std; + // print the length and first character of the file named by ZC_FILE -include "src/lib/std.zc"; +include std; fn main() { let name[80], s, n; - n = Host.env("ZC_FILE", name, 80); - if (n < 0) { put_s("no file\n"); return 1; } - s = readfile(name); - if (!s) { put_s("can't read\n"); return 1; } - put_n(len_w(s)); put_c(' '); put_c(s[0]); put_c(10); - free(d*s); + n = std.Host.env("ZC_FILE", name, 80); + if (n < 0) { rt.put_s("no file\n"); return 1; } + s = rt.readfile(name); + if (!s) { rt.put_s("can't read\n"); return 1; } + rt.put_n(rt.len_w(s)); rt.put_c(' '); rt.put_c(s[0]); rt.put_c(10); + rt.free(s); return 0; } |
