summaryrefslogtreecommitdiffstats
path: root/lib.h
diff options
context:
space:
mode:
Diffstat (limited to 'lib.h')
-rw-r--r--lib.h92
1 files changed, 46 insertions, 46 deletions
diff --git a/lib.h b/lib.h
index 911fb3e8..4c101501 100644
--- a/lib.h
+++ b/lib.h
@@ -300,7 +300,7 @@ struct dyn_args {
obj_common;
val car;
val cdr;
- struct args *args;
+ varg args;
};
struct strm_ctx;
@@ -809,12 +809,12 @@ val append2(val list1, val list2);
val nappend2(val list1, val list2);
val revappend(val list1, val list2);
val nreconc(val list1, val list2);
-val appendv(struct args *lists);
-val nconcv(struct args *lists);
+val appendv(varg lists);
+val nconcv(varg lists);
val sub_list(val list, val from, val to);
val replace_list(val list, val items, val from, val to);
val lazy_appendl(val lists);
-val lazy_appendv(struct args *lists);
+val lazy_appendv(varg lists);
val ldiff(val list1, val list2);
val ldiff_old(val list1, val list2);
val flatten(val list);
@@ -866,7 +866,7 @@ val count(val item, val seq, val testfun_in, val keyfun_in);
val some_satisfy(val list, val pred, val key);
val all_satisfy(val list, val pred, val key);
val none_satisfy(val list, val pred, val key);
-val multi(val func, struct args *lists);
+val multi(val func, varg lists);
val eql(val left, val right);
val equal(val left, val right);
val meq(val item, varg args);
@@ -901,7 +901,7 @@ void rcyc_empty(void);
val lcons_fun(val lcons);
INLINE val us_lcons_fun(val lcons) { return lcons->lc.func; }
val list(val first, ...); /* terminated by nao */
-val listv(struct args *);
+val listv(varg );
val consp(val obj);
val lconsp(val obj);
val atom(val obj);
@@ -931,18 +931,18 @@ val numberp(val num);
val arithp(val obj);
val nary_op(val self, val (*bfun)(val, val),
val (*ufun)(val self, val),
- struct args *args, val emptyval);
+ varg args, val emptyval);
val nary_simple_op(val (*bfun)(val, val),
- struct args *args, val emptyval);
+ varg args, val emptyval);
val plus(val anum, val bnum);
-val plusv(struct args *);
+val plusv(varg );
val minus(val anum, val bnum);
-val minusv(val minuend, struct args *nlist);
+val minusv(val minuend, varg nlist);
val neg(val num);
val abso(val num);
val mul(val anum, val bnum);
-val mulv(struct args *);
-val divv(val dividend, struct args *);
+val mulv(varg );
+val divv(val dividend, varg );
val trunc(val anum, val bnum);
val mod(val anum, val bnum);
val wrap_star(val start, val end, val num);
@@ -965,32 +965,32 @@ val lt(val anum, val bnum);
val ge(val anum, val bnum);
val le(val anum, val bnum);
val numeq(val anum, val bnum);
-val gtv(val first, struct args *rest);
-val ltv(val first, struct args *rest);
-val gev(val first, struct args *rest);
-val lev(val first, struct args *rest);
-val numeqv(val first, struct args *rest);
-val numneqv(struct args *list);
+val gtv(val first, varg rest);
+val ltv(val first, varg rest);
+val gev(val first, varg rest);
+val lev(val first, varg rest);
+val numeqv(val first, varg rest);
+val numneqv(varg list);
val sum(val seq, val keyfun);
val prod(val seq, val keyfun);
val max2(val a, val b);
val min2(val a, val b);
-val maxv(val first, struct args *rest);
-val minv(val first, struct args *rest);
+val maxv(val first, varg rest);
+val minv(val first, varg rest);
val maxl(val first, val rest);
val minl(val first, val rest);
val clamp(val low, val high, val num);
-val bracket(val larg, struct args *args);
+val bracket(val larg, varg args);
val expt(val base, val exp);
-val exptv(struct args *nlist);
+val exptv(varg nlist);
val exptmod(val base, val exp, val mod);
val sqroot(val anum);
val isqrt(val anum);
val square(val anum);
val gcd(val anum, val bnum);
-val gcdv(struct args *nlist);
+val gcdv(varg nlist);
val lcm(val anum, val bnum);
-val lcmv(struct args *nlist);
+val lcmv(varg nlist);
val floorf(val);
val floordiv(val, val);
val ceili(val);
@@ -1019,8 +1019,8 @@ val logtwo(val num);
val expo(val);
val logand(val, val);
val logior(val, val);
-val logandv(struct args *nlist);
-val logiorv(struct args *nlist);
+val logandv(varg nlist);
+val logiorv(varg nlist);
val logxor(val, val);
val logxor_old(val, val);
val logtest(val, val);
@@ -1029,7 +1029,7 @@ val logtrunc(val a, val bits);
val sign_extend(val num, val nbits);
val ash(val a, val bits);
val bit(val a, val bit);
-val maskv(struct args *bits);
+val maskv(varg bits);
val logcount(val n);
val bitset(val n);
val string_own(wchar_t *str);
@@ -1063,8 +1063,8 @@ val cat_str(val list, val sep);
val scat(val sep, ...);
val scat2(val s1, val s2);
val scat3(val s1, val sep, val s2);
-val join_with(val sep, struct args *args);
-val fmt_join(struct args *args);
+val join_with(val sep, varg args);
+val fmt_join(varg args);
val split_str(val str, val sep);
val split_str_keep(val str, val sep, val keep_sep_opt, val count_opt);
val spl(val sep, val arg1, val arg2);
@@ -1093,10 +1093,10 @@ val flo_int(val i);
val less(val left, val right);
val greater(val left, val right);
val lequal(val left, val right);
-val lessv(val first, struct args *rest);
-val greaterv(val first, struct args *rest);
-val lequalv(val first, struct args *rest);
-val gequalv(val first, struct args *rest);
+val lessv(val first, varg rest);
+val greaterv(val first, varg rest);
+val lequalv(val first, varg rest);
+val gequalv(val first, varg rest);
val chrp(val chr);
wchar_t c_chr(val chr);
val chr_isalnum(val ch);
@@ -1210,7 +1210,7 @@ val vm_fun_p(val);
val fun_fixparam_count(val obj);
val fun_optparam_count(val obj);
val fun_variadic(val obj);
-val generic_funcall(val fun, struct args *);
+val generic_funcall(val fun, varg );
val funcall(val fun);
val funcall1(val fun, val arg);
val funcall2(val fun, val arg1, val arg2);
@@ -1218,7 +1218,7 @@ val funcall3(val fun, val arg1, val arg2, val arg3);
val funcall4(val fun, val arg1, val arg2, val arg3, val arg4);
val reduce_left(val fun, val list, val init, val key);
val reduce_right(val fun, val list, val init, val key);
-val transposev(struct args *lists);
+val transposev(varg lists);
val transpose(val lists);
/* The notation pa_12_2 means take some function f(arg1, arg2) and
fix a value for argument 1 to create a g(arg2).
@@ -1231,15 +1231,15 @@ val pa_123_1(val fun3, val arg2, val arg3);
val pa_1234_1(val fun4, val arg2, val arg3, val arg4);
val pa_1234_34(val fun3, val arg1, val arg2);
val chain(val first_fun, ...);
-val chainv(struct args *funlist);
-val chandv(struct args *funlist);
-val juxtv(struct args *funlist);
+val chainv(varg funlist);
+val chandv(varg funlist);
+val juxtv(varg funlist);
val andf(val first_fun, ...);
-val andv(struct args *funlist);
-val orv(struct args *funlist);
+val andv(varg funlist);
+val orv(varg funlist);
val notf(val fun);
-val nandv(struct args *funlist);
-val norv(struct args *funlist);
+val nandv(varg funlist);
+val norv(varg funlist);
val iff(val condfun, val thenfun, val elsefun);
val iffi(val condfun, val thenfun, val elsefun);
val dupl(val fun);
@@ -1252,7 +1252,7 @@ loc vecref_l(val vec, val ind);
val vec_push(val vec, val item);
val length_vec(val vec);
val size_vec(val vec);
-val vectorv(struct args *);
+val vectorv(varg );
val vec(val first, ...);
val vec_list(val list);
val list_vec(val vector);
@@ -1308,10 +1308,10 @@ val acons_new(val key, val value, val list);
val acons_new_c(val key, loc new_p, loc list);
val aconsql_new(val key, val value, val list);
val alist_remove(val list, val keys);
-val alist_removev(val list, struct args *keys);
+val alist_removev(val list, varg keys);
val alist_remove1(val list, val key);
val alist_nremove(val list, val keys);
-val alist_nremovev(val list, struct args *keys);
+val alist_nremovev(val list, varg keys);
val alist_nremove1(val list, val key);
val copy_cons(val cons);
val copy_tree(val tree);
@@ -1335,7 +1335,7 @@ val nshuffle(val seq, val randstate);
val shuffle(val seq, val randstate);
val multi_sort(val lists, val funcs, val key_funcs);
val sort_group(val seq, val keyfun, val lessfun);
-val unique(val seq, val keyfun, struct args *hashv_args);
+val unique(val seq, val keyfun, varg hashv_args);
val uniq(val seq);
val grade(val seq, val lessfun, val keyfun_in);
val nrot(val seq, val n_in);
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-01 16:15:53 +0000