1
0
mirror of https://github.com/janet-lang/janet synced 2025-05-02 15:34:15 +00:00

Fix help.

This commit is contained in:
Calvin Rose 2018-08-15 22:48:35 -04:00
parent 704b56068d
commit d95941597f
3 changed files with 14 additions and 17 deletions

View File

@ -92,7 +92,8 @@ void dst_struct_put(DstKV *st, Dst key, Dst value) {
* is closer to their source than current. We use robinhood
* hashing to ensure that equivalent structs that are contsructed
* with different order have the same internal layout, and therefor
* will compare properly - i.e., {1 2 3 4} should equal {3 4 1 2}. */
* will compare properly - i.e., {1 2 3 4} should equal {3 4 1 2}.
* Collisions are resolved via an insertion sort insertion. */
otherhash = dst_hash(kv->key);
otherindex = dst_struct_maphash(cap, otherhash);
otherdist = (i + cap - otherindex) & (cap - 1);
@ -155,11 +156,7 @@ const DstKV *dst_struct_end(DstKV *st) {
/* Get an item from a struct */
Dst dst_struct_get(const DstKV *st, Dst key) {
const DstKV *kv = dst_struct_find(st, key);
if (NULL == kv) {
return dst_wrap_nil();
} else {
return kv->value;
}
return kv ? kv->value : dst_wrap_nil();
}
/* Get the next key in a struct */

View File

@ -10,8 +10,8 @@
# Flag handlers
(def handlers :private
{"h" (fn []
(print "usage: " (get args 0) " [options] scripts...")
{"h" (fn @[]
(print "usage: " (get process.args 0) " [options] scripts...")
(print
`Options are:
-h Show this help
@ -30,18 +30,18 @@
"-" (fn @[] (:= *handleopts* false) 1)
"e" (fn @[i]
(:= *no-file* false)
(eval (get args (+ i 1)))
(eval (get process.args (+ i 1)))
2)})
(defn- dohandler @[n i]
(def h (get handlers n))
(if h (h i) (print "unknown flag -" n)))
(if h (h i) (do (print "unknown flag -" n) ((get handlers "h")))))
# Process arguments
(var i 1)
(def lenargs (length args))
(def lenargs (length process.args))
(while (< i lenargs)
(def arg (get args i))
(def arg (get process.args i))
(if (and *handleopts* (= "-" (string.slice arg 0 1)))
(+= i (dohandler (string.slice arg 1 2) i))
(do

View File

@ -38,7 +38,7 @@ int main(int argc, char **argv) {
args = dst_array(argc);
for (i = 0; i < argc; i++)
dst_array_push(args, dst_cstringv(argv[i]));
dst_env_def(env, "args", dst_wrap_array(args));
dst_env_def(env, "process.args", dst_wrap_array(args));
/* Expose line getter */
dst_env_def(env, "getline", dst_wrap_cfunction(dst_line_getter));