Lines Matching defs:args
1110 static struct alisp_object * F_car(struct alisp_instance *instance, struct alisp_object * args)
1112 struct alisp_object *p1 = car(args), *p2;
1113 delete_tree(instance, cdr(args));
1114 delete_object(instance, args);
1125 static struct alisp_object * F_cdr(struct alisp_instance *instance, struct alisp_object * args)
1127 struct alisp_object *p1 = car(args), *p2;
1128 delete_tree(instance, cdr(args));
1129 delete_object(instance, args);
1140 static struct alisp_object * F_add(struct alisp_instance *instance, struct alisp_object * args)
1142 struct alisp_object * p = args, * p1, * n;
1178 static struct alisp_object * F_concat(struct alisp_instance *instance, struct alisp_object * args)
1180 struct alisp_object * p = args, * p1, * n;
1219 static struct alisp_object * F_sub(struct alisp_instance *instance, struct alisp_object * args)
1221 struct alisp_object * p = args, * p1, * n;
1229 if (p == args && cdr(p) != &alsa_lisp_nil) {
1242 if (p == args && cdr(p) != &alsa_lisp_nil)
1265 static struct alisp_object * F_mul(struct alisp_instance *instance, struct alisp_object * args)
1267 struct alisp_object * p = args, * p1, * n;
1301 static struct alisp_object * F_div(struct alisp_instance *instance, struct alisp_object * args)
1303 struct alisp_object * p = args, * p1, * n;
1311 if (p == args && cdr(p) != &alsa_lisp_nil) {
1331 if (p == args && cdr(p) != &alsa_lisp_nil) {
1360 static struct alisp_object * F_mod(struct alisp_instance *instance, struct alisp_object * args)
1364 p1 = eval(instance, car(args));
1365 p2 = eval(instance, car(cdr(args)));
1366 delete_tree(instance, cdr(cdr(args)));
1367 delete_object(instance, cdr(args));
1368 delete_object(instance, args);
1407 static struct alisp_object * F_lt(struct alisp_instance *instance, struct alisp_object * args)
1411 p1 = eval(instance, car(args));
1412 p2 = eval(instance, car(cdr(args)));
1413 delete_tree(instance, cdr(cdr(args)));
1414 delete_object(instance, cdr(args));
1415 delete_object(instance, args);
1446 static struct alisp_object * F_gt(struct alisp_instance *instance, struct alisp_object * args)
1450 p1 = eval(instance, car(args));
1451 p2 = eval(instance, car(cdr(args)));
1452 delete_tree(instance, cdr(cdr(args)));
1453 delete_object(instance, cdr(args));
1454 delete_object(instance, args);
1485 static struct alisp_object * F_le(struct alisp_instance *instance, struct alisp_object * args)
1489 p1 = eval(instance, car(args));
1490 p2 = eval(instance, car(cdr(args)));
1491 delete_tree(instance, cdr(cdr(args)));
1492 delete_object(instance, cdr(args));
1493 delete_object(instance, args);
1524 static struct alisp_object * F_ge(struct alisp_instance *instance, struct alisp_object * args)
1528 p1 = eval(instance, car(args));
1529 p2 = eval(instance, car(cdr(args)));
1530 delete_tree(instance, cdr(cdr(args)));
1531 delete_object(instance, cdr(args));
1532 delete_object(instance, args);
1563 static struct alisp_object * F_numeq(struct alisp_instance *instance, struct alisp_object * args)
1567 p1 = eval(instance, car(args));
1568 p2 = eval(instance, car(cdr(args)));
1569 delete_tree(instance, cdr(cdr(args)));
1570 delete_object(instance, cdr(args));
1571 delete_object(instance, args);
1602 static struct alisp_object * F_numneq(struct alisp_instance *instance, struct alisp_object * args)
1606 p = F_numeq(instance, args);
1616 static struct alisp_object * F_exfun(struct alisp_instance *instance, struct alisp_object * args)
1620 p1 = eval(instance, car(args));
1621 delete_tree(instance, cdr(args));
1622 delete_object(instance, args);
1707 static struct alisp_object * F_princ(struct alisp_instance *instance, struct alisp_object * args)
1709 struct alisp_object * p = args, * p1 = NULL, * n;
1730 static struct alisp_object * F_atom(struct alisp_instance *instance, struct alisp_object * args)
1734 p = eval(instance, car(args));
1735 delete_tree(instance, cdr(args));
1736 delete_object(instance, args);
1761 static struct alisp_object * F_cons(struct alisp_instance *instance, struct alisp_object * args)
1767 p->value.c.car = eval(instance, car(args));
1768 p->value.c.cdr = eval(instance, car(cdr(args)));
1769 delete_tree(instance, cdr(cdr(args)));
1770 delete_object(instance, cdr(args));
1771 delete_object(instance, args);
1773 delete_tree(instance, args);
1782 static struct alisp_object * F_list(struct alisp_instance *instance, struct alisp_object * args)
1784 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1;
1850 static struct alisp_object * F_eq(struct alisp_instance *instance, struct alisp_object * args)
1854 p1 = eval(instance, car(args));
1855 p2 = eval(instance, car(cdr(args)));
1856 delete_tree(instance, cdr(cdr(args)));
1857 delete_object(instance, cdr(args));
1858 delete_object(instance, args);
1873 static struct alisp_object * F_equal(struct alisp_instance *instance, struct alisp_object * args)
1877 p1 = eval(instance, car(args));
1878 p2 = eval(instance, car(cdr(args)));
1879 delete_tree(instance, cdr(cdr(args)));
1880 delete_object(instance, cdr(args));
1881 delete_object(instance, args);
1896 static struct alisp_object * F_quote(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args)
1898 struct alisp_object *p = car(args);
1900 delete_tree(instance, cdr(args));
1901 delete_object(instance, args);
1908 static struct alisp_object * F_and(struct alisp_instance *instance, struct alisp_object * args)
1910 struct alisp_object * p = args, * p1 = NULL, * n;
1932 static struct alisp_object * F_or(struct alisp_instance *instance, struct alisp_object * args)
1934 struct alisp_object * p = args, * p1 = NULL, * n;
1956 static struct alisp_object * F_not(struct alisp_instance *instance, struct alisp_object * args)
1958 struct alisp_object * p = eval(instance, car(args));
1960 delete_tree(instance, cdr(args));
1961 delete_object(instance, args);
1974 static struct alisp_object * F_cond(struct alisp_instance *instance, struct alisp_object * args)
1976 struct alisp_object * p = args, * p1, * p2, * p3;
2007 static struct alisp_object * F_if(struct alisp_instance *instance, struct alisp_object * args)
2011 p1 = car(args);
2012 p2 = car(cdr(args));
2013 p3 = cdr(cdr(args));
2014 delete_object(instance, cdr(args));
2015 delete_object(instance, args);
2032 static struct alisp_object * F_when(struct alisp_instance *instance, struct alisp_object * args)
2036 p1 = car(args);
2037 p2 = cdr(args);
2038 delete_object(instance, args);
2053 static struct alisp_object * F_unless(struct alisp_instance *instance, struct alisp_object * args)
2057 p1 = car(args);
2058 p2 = cdr(args);
2059 delete_object(instance, args);
2073 static struct alisp_object * F_while(struct alisp_instance *instance, struct alisp_object * args)
2077 p1 = car(args);
2078 p2 = cdr(args);
2080 delete_object(instance, args);
2098 static struct alisp_object * F_progn(struct alisp_instance *instance, struct alisp_object * args)
2100 struct alisp_object * p = args, * p1 = NULL, * n;
2117 static struct alisp_object * F_prog1(struct alisp_instance *instance, struct alisp_object * args)
2119 struct alisp_object * p = args, * first = NULL, * p1;
2141 static struct alisp_object * F_prog2(struct alisp_instance *instance, struct alisp_object * args)
2143 struct alisp_object * p = args, * second = NULL, * p1;
2167 static struct alisp_object * F_set(struct alisp_instance *instance, struct alisp_object * args)
2169 struct alisp_object * p1 = eval(instance, car(args)),
2170 * p2 = eval(instance, car(cdr(args)));
2172 delete_tree(instance, cdr(cdr(args)));
2173 delete_object(instance, cdr(args));
2174 delete_object(instance, args);
2192 static struct alisp_object * F_unset(struct alisp_instance *instance, struct alisp_object * args)
2194 struct alisp_object * p1 = eval(instance, car(args));
2197 delete_tree(instance, cdr(args));
2198 delete_object(instance, args);
2207 static struct alisp_object * F_setq(struct alisp_instance *instance, struct alisp_object * args)
2209 struct alisp_object * p = args, * p1, * p2 = NULL, *n;
2239 static struct alisp_object * F_unsetq(struct alisp_instance *instance, struct alisp_object * args)
2241 struct alisp_object * p = args, * p1 = NULL, * n;
2260 static struct alisp_object * F_defun(struct alisp_instance *instance, struct alisp_object * args)
2262 struct alisp_object * p1 = car(args),
2263 * p2 = car(cdr(args)),
2264 * p3 = cdr(cdr(args));
2272 delete_tree(instance, args);
2278 delete_tree(instance, args);
2283 delete_object(instance, cdr(args));
2284 delete_object(instance, args);
2292 delete_tree(instance, args);
2297 static struct alisp_object * eval_func(struct alisp_instance *instance, struct alisp_object * p, struct alisp_object * args)
2307 p3 = args;
2375 delete_tree(instance, args);
2380 struct alisp_object * F_gc(struct alisp_instance *instance ATTRIBUTE_UNUSED, struct alisp_object * args ATTRIBUTE_UNUSED)
2390 struct alisp_object * F_path(struct alisp_instance *instance, struct alisp_object * args)
2394 p1 = eval(instance, car(args));
2395 delete_tree(instance, cdr(args));
2396 delete_object(instance, args);
2412 struct alisp_object * F_include(struct alisp_instance *instance, struct alisp_object * args)
2414 struct alisp_object * p = args, * p1;
2433 struct alisp_object * F_string_to_integer(struct alisp_instance *instance, struct alisp_object * args)
2435 struct alisp_object * p = eval(instance, car(args)), * p1;
2437 delete_tree(instance, cdr(args));
2438 delete_object(instance, args);
2455 struct alisp_object * F_string_to_float(struct alisp_instance *instance, struct alisp_object * args)
2457 struct alisp_object * p = eval(instance, car(args)), * p1;
2459 delete_tree(instance, cdr(args));
2460 delete_object(instance, args);
2562 struct alisp_object * F_format(struct alisp_instance *instance, struct alisp_object * args)
2564 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2568 delete_object(instance, args);
2661 struct alisp_object * F_compare_strings(struct alisp_instance *instance, struct alisp_object * args)
2663 struct alisp_object * p1 = args, * n, * p[7];
2751 struct alisp_object * F_assoc(struct alisp_instance *instance, struct alisp_object * args)
2755 p1 = eval(instance, car(args));
2756 p2 = eval(instance, car(cdr(args)));
2757 delete_tree(instance, cdr(cdr(args)));
2758 delete_object(instance, cdr(args));
2759 delete_object(instance, args);
2781 struct alisp_object * F_rassoc(struct alisp_instance *instance, struct alisp_object * args)
2785 p1 = eval(instance, car(args));
2786 p2 = eval(instance, car(cdr(args)));
2787 delete_tree(instance, cdr(cdr(args)));
2788 delete_object(instance, cdr(args));
2789 delete_object(instance, args);
2811 struct alisp_object * F_assq(struct alisp_instance *instance, struct alisp_object * args)
2815 p1 = eval(instance, car(args));
2816 p2 = eval(instance, car(cdr(args)));
2817 delete_tree(instance, cdr(cdr(args)));
2818 delete_object(instance, cdr(args));
2819 delete_object(instance, args);
2841 struct alisp_object * F_nth(struct alisp_instance *instance, struct alisp_object * args)
2846 p1 = eval(instance, car(args));
2847 p2 = eval(instance, car(cdr(args)));
2848 delete_tree(instance, cdr(cdr(args)));
2849 delete_object(instance, cdr(args));
2850 delete_object(instance, args);
2878 struct alisp_object * F_rassq(struct alisp_instance *instance, struct alisp_object * args)
2882 p1 = eval(instance, car(args));
2883 p2 = eval(instance, car(cdr(args)));
2884 delete_tree(instance, cdr(cdr(args)));
2885 delete_object(instance, cdr(args));
2886 delete_object(instance, args);
2905 static struct alisp_object * F_dump_memory(struct alisp_instance *instance, struct alisp_object * args)
2907 struct alisp_object * p = car(args);
2909 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2913 delete_tree(instance, args);
2920 delete_tree(instance, args);
2924 static struct alisp_object * F_stat_memory(struct alisp_instance *instance, struct alisp_object * args)
2934 delete_tree(instance, args);
2938 static struct alisp_object * F_check_memory(struct alisp_instance *instance, struct alisp_object * args)
2940 delete_tree(instance, args);
2949 static struct alisp_object * F_dump_objects(struct alisp_instance *instance, struct alisp_object * args)
2951 struct alisp_object * p = car(args);
2953 if (p != &alsa_lisp_nil && cdr(args) == &alsa_lisp_nil &&
2957 delete_tree(instance, args);
2964 delete_tree(instance, args);
2970 struct alisp_object * (*func)(struct alisp_instance *instance, struct alisp_object * args);
3081 * Syntax: (funcall function args...)
3083 static struct alisp_object * F_funcall(struct alisp_instance *instance, struct alisp_object * args)
3085 struct alisp_object * p = eval(instance, car(args)), * p1;
3091 delete_tree(instance, cdr(args));
3092 delete_object(instance, args);
3095 p1 = cdr(args);
3096 delete_object(instance, args);
3140 static struct alisp_object * F_eval(struct alisp_instance *instance, struct alisp_object * args)
3142 return eval(instance, eval(instance, car(args)));
3308 const char *id, const char *args, ...)
3313 if (args && *args != 'n') {
3317 va_start(ap, args);
3318 while (*args) {
3319 if (*args++ != '%') {
3323 if (*args == '\0') {
3329 switch (*args++) {
3346 while (*args && *args != '%')
3347 *ptrid++ = *args++;