Lines Matching refs:p1
1112 struct alisp_object *p1 = car(args), *p2;
1115 p1 = eval(instance, p1);
1116 delete_tree(instance, cdr(p1));
1117 p2 = car(p1);
1118 delete_object(instance, p1);
1127 struct alisp_object *p1 = car(args), *p2;
1130 p1 = eval(instance, p1);
1131 delete_tree(instance, car(p1));
1132 p2 = cdr(p1);
1133 delete_object(instance, p1);
1142 struct alisp_object * p = args, * p1, * n;
1147 p1 = eval(instance, car(p));
1149 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1151 f += p1->value.i;
1153 v += p1->value.i;
1154 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1155 f += p1->value.f + v;
1161 delete_tree(instance, p1);
1166 p1 = eval(instance, car(p));
1180 struct alisp_object * p = args, * p1, * n;
1183 p1 = eval(instance, car(p));
1185 if (alisp_compare_type(p1, ALISP_OBJ_STRING)) {
1186 str1 = realloc(str, (str ? strlen(str) : 0) + strlen(p1->value.s) + 1);
1193 strcpy(str1, p1->value.s);
1195 strcat(str1, p1->value.s);
1200 delete_tree(instance, p1);
1205 p1 = eval(instance, car(p));
1221 struct alisp_object * p = args, * p1, * n;
1227 p1 = eval(instance, car(p));
1228 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1230 v = p1->value.i;
1233 f -= p1->value.i;
1235 v -= p1->value.i;
1237 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1243 f = p1->value.f;
1245 f -= p1->value.f;
1249 delete_tree(instance, p1);
1267 struct alisp_object * p = args, * p1, * n;
1273 p1 = eval(instance, car(p));
1274 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1276 f *= p1->value.i;
1278 v *= p1->value.i;
1279 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1280 f *= p1->value.f * v; v = 1;
1285 delete_tree(instance, p1);
1303 struct alisp_object * p = args, * p1, * n;
1309 p1 = eval(instance, car(p));
1310 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1312 v = p1->value.i;
1314 if (p1->value.i == 0) {
1321 f /= p1->value.i;
1323 v /= p1->value.i;
1326 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1332 f = p1->value.f;
1334 if (p1->value.f == 0) {
1339 f /= p1->value.i;
1344 delete_tree(instance, p1);
1362 struct alisp_object * p1, * p2, * p3;
1364 p1 = eval(instance, car(args));
1370 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1376 p3 = new_integer(instance, p1->value.i % p2->value.i);
1378 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1379 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1383 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1394 delete_tree(instance, p1);
1399 delete_tree(instance, p1);
1409 struct alisp_object * p1, * p2;
1411 p1 = eval(instance, car(args));
1417 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1419 if (p1->value.i < p2->value.i) {
1421 delete_tree(instance, p1);
1425 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1426 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1430 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1438 delete_tree(instance, p1);
1448 struct alisp_object * p1, * p2;
1450 p1 = eval(instance, car(args));
1456 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1458 if (p1->value.i > p2->value.i) {
1460 delete_tree(instance, p1);
1464 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1465 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1469 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1477 delete_tree(instance, p1);
1487 struct alisp_object * p1, * p2;
1489 p1 = eval(instance, car(args));
1495 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1497 if (p1->value.i <= p2->value.i) {
1499 delete_tree(instance, p1);
1503 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1504 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1508 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1516 delete_tree(instance, p1);
1526 struct alisp_object * p1, * p2;
1528 p1 = eval(instance, car(args));
1534 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1536 if (p1->value.i >= p2->value.i) {
1538 delete_tree(instance, p1);
1542 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1543 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1547 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1555 delete_tree(instance, p1);
1565 struct alisp_object * p1, * p2;
1567 p1 = eval(instance, car(args));
1573 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1575 if (p1->value.i == p2->value.i) {
1577 delete_tree(instance, p1);
1581 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1582 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1586 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1594 delete_tree(instance, p1);
1618 struct alisp_object * p1, * p2;
1620 p1 = eval(instance, car(args));
1623 p2 = get_object(instance, p1);
1625 delete_tree(instance, p1);
1631 delete_tree(instance, p1);
1634 delete_tree(instance, p1);
1709 struct alisp_object * p = args, * p1 = NULL, * n;
1712 if (p1)
1713 delete_tree(instance, p1);
1714 p1 = eval(instance, car(p));
1715 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
1716 snd_output_printf(instance->out, "%s", p1->value.s);
1718 princ_object(instance->out, p1);
1724 return p1;
1784 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1;
1790 p1 = new_object(instance, ALISP_OBJ_CONS);
1791 if (p1 == NULL) {
1796 p1->value.c.car = eval(instance, car(p));
1797 if (p1->value.c.car == NULL) {
1804 first = p1;
1806 prev->value.c.cdr = p1;
1807 prev = p1;
1808 p = cdr(p1 = p);
1809 delete_object(instance, p1);
1815 static inline int eq(struct alisp_object * p1, struct alisp_object * p2)
1817 return p1 == p2;
1820 static int equal(struct alisp_object * p1, struct alisp_object * p2)
1824 if (eq(p1, p2))
1827 type1 = alisp_get_type(p1);
1836 return !strcmp(p1->value.s, p2->value.s);
1838 return p1->value.i == p2->value.i;
1840 return p1->value.i == p2->value.i;
1852 struct alisp_object * p1, * p2;
1854 p1 = eval(instance, car(args));
1860 if (eq(p1, p2)) {
1861 delete_tree(instance, p1);
1865 delete_tree(instance, p1);
1875 struct alisp_object * p1, * p2;
1877 p1 = eval(instance, car(args));
1883 if (equal(p1, p2)) {
1884 delete_tree(instance, p1);
1888 delete_tree(instance, p1);
1910 struct alisp_object * p = args, * p1 = NULL, * n;
1913 if (p1)
1914 delete_tree(instance, p1);
1915 p1 = eval(instance, car(p));
1916 if (p1 == &alsa_lisp_nil) {
1917 delete_tree(instance, p1);
1926 return p1;
1934 struct alisp_object * p = args, * p1 = NULL, * n;
1937 if (p1)
1938 delete_tree(instance, p1);
1939 p1 = eval(instance, car(p));
1940 if (p1 != &alsa_lisp_nil) {
1943 return p1;
1976 struct alisp_object * p = args, * p1, * p2, * p3;
1979 p1 = car(p);
1980 if ((p2 = eval(instance, car(p1))) != &alsa_lisp_nil) {
1981 p3 = cdr(p1);
1982 delete_object(instance, p1);
1994 delete_tree(instance, cdr(p1));
1995 delete_object(instance, p1);
2009 struct alisp_object * p1, * p2, * p3;
2011 p1 = car(args);
2017 p1 = eval(instance, p1);
2018 if (p1 != &alsa_lisp_nil) {
2019 delete_tree(instance, p1);
2024 delete_tree(instance, p1);
2034 struct alisp_object * p1, * p2;
2036 p1 = car(args);
2039 if ((p1 = eval(instance, p1)) != &alsa_lisp_nil) {
2040 delete_tree(instance, p1);
2043 delete_tree(instance, p1);
2055 struct alisp_object * p1, * p2;
2057 p1 = car(args);
2060 if ((p1 = eval(instance, p1)) == &alsa_lisp_nil) {
2063 delete_tree(instance, p1);
2075 struct alisp_object * p1, * p2, * p3;
2077 p1 = car(args);
2082 incref_tree(instance, p1);
2083 if ((p3 = eval(instance, p1)) == &alsa_lisp_nil)
2090 delete_tree(instance, p1);
2100 struct alisp_object * p = args, * p1 = NULL, * n;
2103 if (p1)
2104 delete_tree(instance, p1);
2105 p1 = eval(instance, car(p));
2111 return p1;
2119 struct alisp_object * p = args, * first = NULL, * p1;
2122 p1 = eval(instance, car(p));
2124 first = p1;
2126 delete_tree(instance, p1);
2127 p1 = cdr(p);
2129 p = p1;
2143 struct alisp_object * p = args, * second = NULL, * p1;
2148 p1 = eval(instance, car(p));
2150 second = p1;
2152 delete_tree(instance, p1);
2153 p1 = cdr(p);
2155 p = p1;
2169 struct alisp_object * p1 = eval(instance, car(args)),
2175 if (!check_set_object(instance, p1)) {
2179 if (set_object(instance, p1, p2) == NULL) {
2180 delete_tree(instance, p1);
2185 delete_tree(instance, p1);
2194 struct alisp_object * p1 = eval(instance, car(args));
2196 delete_tree(instance, unset_object(instance, p1));
2199 return p1;
2209 struct alisp_object * p = args, * p1, * p2 = NULL, *n;
2212 p1 = car(p);
2217 if (!check_set_object(instance, p1)) {
2221 if (set_object(instance, p1, p2) == NULL) {
2222 delete_tree(instance, p1);
2227 delete_tree(instance, p1);
2241 struct alisp_object * p = args, * p1 = NULL, * n;
2244 if (p1)
2245 delete_tree(instance, p1);
2246 p1 = unset_object(instance, car(p));
2252 return p1;
2262 struct alisp_object * p1 = car(args),
2285 if (set_object(instance, p1, lexpr) == NULL) {
2286 delete_tree(instance, p1);
2290 delete_tree(instance, p1);
2299 struct alisp_object * p1, * p2, * p3, * p4;
2303 p1 = car(p);
2304 if (alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER) &&
2305 !strcmp(p1->value.s, "lambda")) {
2392 struct alisp_object * p1;
2394 p1 = eval(instance, car(args));
2397 if (!alisp_compare_type(p1, ALISP_OBJ_STRING)) {
2398 delete_tree(instance, p1);
2401 if (!strcmp(p1->value.s, "data")) {
2402 delete_tree(instance, p1);
2405 delete_tree(instance, p1);
2414 struct alisp_object * p = args, * p1;
2418 p1 = eval(instance, car(p));
2419 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
2420 res = alisp_include_file(instance, p1->value.s);
2421 delete_tree(instance, p1);
2422 p = cdr(p1 = p);
2423 delete_object(instance, p1);
2435 struct alisp_object * p = eval(instance, car(args)), * p1;
2442 p1 = new_integer(instance, floor(p->value.f));
2445 p1 = &alsa_lisp_nil;
2448 return p1;
2457 struct alisp_object * p = eval(instance, car(args)), * p1;
2464 p1 = new_float(instance, p->value.i);
2467 p1 = &alsa_lisp_nil;
2470 return p1;
2564 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2570 delete_tree(instance, p1);
2578 n = eval(instance, car(p1));
2588 delete_tree(instance, cdr(p1));
2589 delete_object(instance, p1);
2633 p1 = cdr(n = p1);
2635 n = eval(instance, car(p1));
2639 delete_tree(instance, cdr(p1));
2640 delete_object(instance, p1);
2643 p1 = new_string(instance, s1);
2646 p1 = &alsa_lisp_nil;
2648 return p1;
2663 struct alisp_object * p1 = args, * n, * p[7];
2668 p[start1] = eval(instance, car(p1));
2669 p1 = cdr(n = p1);
2672 delete_tree(instance, p1);
2675 p1 = &alsa_lisp_nil;
2680 p1 = &alsa_lisp_nil;
2685 p1 = &alsa_lisp_nil;
2690 p1 = &alsa_lisp_nil;
2696 p1 = &alsa_lisp_nil;
2702 p1 = &alsa_lisp_nil;
2714 p1 = &alsa_lisp_nil;
2722 p1 = &alsa_lisp_nil;
2733 p1 = &alsa_lisp_nil;
2740 p1 = &alsa_lisp_t;
2745 return p1;
2753 struct alisp_object * p1, * p2, * n;
2755 p1 = eval(instance, car(args));
2762 if (eq(p1, car(car(p2)))) {
2764 delete_tree(instance, p1);
2774 delete_tree(instance, p1);
2783 struct alisp_object * p1, *p2, * n;
2785 p1 = eval(instance, car(args));
2792 if (eq(p1, cdr(car(p2)))) {
2794 delete_tree(instance, p1);
2804 delete_tree(instance, p1);
2813 struct alisp_object * p1, * p2, * n;
2815 p1 = eval(instance, car(args));
2822 if (equal(p1, car(car(p2)))) {
2824 delete_tree(instance, p1);
2834 delete_tree(instance, p1);
2843 struct alisp_object * p1, * p2, * n;
2846 p1 = eval(instance, car(args));
2852 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
2853 delete_tree(instance, p1);
2858 delete_object(instance, p1);
2862 idx = p1->value.i;
2863 delete_object(instance, p1);
2880 struct alisp_object * p1, * p2, * n;
2882 p1 = eval(instance, car(args));
2889 if (equal(p1, cdr(car(p2)))) {
2891 delete_tree(instance, p1);
2901 delete_tree(instance, p1);
3041 static int compar(const void *p1, const void *p2)
3043 return strcmp(((struct intrinsic *)p1)->name,
3047 static inline struct alisp_object * eval_cons1(struct alisp_instance *instance, struct alisp_object * p1, struct alisp_object * p2)
3052 key.name = p1->value.s;
3057 delete_object(instance, p1);
3064 delete_object(instance, p1);
3068 if ((p3 = get_object(instance, p1)) != &alsa_lisp_nil) {
3069 delete_object(instance, p1);
3072 lisp_warn(instance, "function `%s' is undefined", p1->value.s);
3073 delete_object(instance, p1);
3085 struct alisp_object * p = eval(instance, car(args)), * p1;
3095 p1 = cdr(args);
3097 return eval_cons1(instance, p, p1);
3102 struct alisp_object * p1 = car(p), * p2;
3104 if (p1 != &alsa_lisp_nil && alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER)) {
3105 if (!strcmp(p1->value.s, "lambda"))
3110 return eval_cons1(instance, p1, p2);
3152 struct alisp_object *p, *p1;
3176 p1 = eval(instance, p);
3177 if (p1 == NULL) {
3183 princ_object(instance->vout, p1);
3186 delete_tree(instance, p1);
3203 struct alisp_object *p, *p1;
3237 p1 = eval(instance, p);
3238 if (p1 == NULL) {
3244 princ_object(instance->vout, p1);
3247 delete_tree(instance, p1);
3433 struct alisp_object * p1;
3435 p1 = get_object1(instance, id);
3436 if (p1 == NULL)
3438 *seq = p1;
3444 struct alisp_object * p1 = *seq;
3446 p1 = cdr(p1);
3447 if (p1 == &alsa_lisp_nil)
3449 *seq = p1;