Lines Matching refs:p1
1111 struct alisp_object *p1 = car(args), *p2;
1114 p1 = eval(instance, p1);
1115 delete_tree(instance, cdr(p1));
1116 p2 = car(p1);
1117 delete_object(instance, p1);
1126 struct alisp_object *p1 = car(args), *p2;
1129 p1 = eval(instance, p1);
1130 delete_tree(instance, car(p1));
1131 p2 = cdr(p1);
1132 delete_object(instance, p1);
1141 struct alisp_object * p = args, * p1, * n;
1146 p1 = eval(instance, car(p));
1148 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1150 f += p1->value.i;
1152 v += p1->value.i;
1153 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1154 f += p1->value.f + v;
1160 delete_tree(instance, p1);
1165 p1 = eval(instance, car(p));
1179 struct alisp_object * p = args, * p1, * n;
1182 p1 = eval(instance, car(p));
1184 if (alisp_compare_type(p1, ALISP_OBJ_STRING)) {
1185 str1 = realloc(str, (str ? strlen(str) : 0) + strlen(p1->value.s) + 1);
1192 strcpy(str1, p1->value.s);
1194 strcat(str1, p1->value.s);
1199 delete_tree(instance, p1);
1204 p1 = eval(instance, car(p));
1220 struct alisp_object * p = args, * p1, * n;
1226 p1 = eval(instance, car(p));
1227 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1229 v = p1->value.i;
1232 f -= p1->value.i;
1234 v -= p1->value.i;
1236 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1242 f = p1->value.f;
1244 f -= p1->value.f;
1248 delete_tree(instance, p1);
1266 struct alisp_object * p = args, * p1, * n;
1272 p1 = eval(instance, car(p));
1273 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1275 f *= p1->value.i;
1277 v *= p1->value.i;
1278 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1279 f *= p1->value.f * v; v = 1;
1284 delete_tree(instance, p1);
1302 struct alisp_object * p = args, * p1, * n;
1308 p1 = eval(instance, car(p));
1309 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
1311 v = p1->value.i;
1313 if (p1->value.i == 0) {
1320 f /= p1->value.i;
1322 v /= p1->value.i;
1325 } else if (alisp_compare_type(p1, ALISP_OBJ_FLOAT)) {
1331 f = p1->value.f;
1333 if (p1->value.f == 0) {
1338 f /= p1->value.i;
1343 delete_tree(instance, p1);
1361 struct alisp_object * p1, * p2, * p3;
1363 p1 = eval(instance, car(args));
1369 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1375 p3 = new_integer(instance, p1->value.i % p2->value.i);
1377 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1378 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1382 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1393 delete_tree(instance, p1);
1398 delete_tree(instance, p1);
1408 struct alisp_object * p1, * p2;
1410 p1 = eval(instance, car(args));
1416 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1418 if (p1->value.i < p2->value.i) {
1420 delete_tree(instance, p1);
1424 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1425 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1429 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1437 delete_tree(instance, p1);
1447 struct alisp_object * p1, * p2;
1449 p1 = eval(instance, car(args));
1455 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1457 if (p1->value.i > p2->value.i) {
1459 delete_tree(instance, p1);
1463 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1464 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1468 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1476 delete_tree(instance, p1);
1486 struct alisp_object * p1, * p2;
1488 p1 = eval(instance, car(args));
1494 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1496 if (p1->value.i <= p2->value.i) {
1498 delete_tree(instance, p1);
1502 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1503 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1507 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1515 delete_tree(instance, p1);
1525 struct alisp_object * p1, * p2;
1527 p1 = eval(instance, car(args));
1533 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1535 if (p1->value.i >= p2->value.i) {
1537 delete_tree(instance, p1);
1541 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1542 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1546 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1554 delete_tree(instance, p1);
1564 struct alisp_object * p1, * p2;
1566 p1 = eval(instance, car(args));
1572 if (alisp_compare_type(p1, ALISP_OBJ_INTEGER) &&
1574 if (p1->value.i == p2->value.i) {
1576 delete_tree(instance, p1);
1580 } else if ((alisp_compare_type(p1, ALISP_OBJ_INTEGER) ||
1581 alisp_compare_type(p1, ALISP_OBJ_FLOAT)) &&
1585 f1 = alisp_compare_type(p1, ALISP_OBJ_INTEGER) ? p1->value.i : p1->value.f;
1593 delete_tree(instance, p1);
1617 struct alisp_object * p1, * p2;
1619 p1 = eval(instance, car(args));
1622 p2 = get_object(instance, p1);
1624 delete_tree(instance, p1);
1630 delete_tree(instance, p1);
1633 delete_tree(instance, p1);
1708 struct alisp_object * p = args, * p1 = NULL, * n;
1711 if (p1)
1712 delete_tree(instance, p1);
1713 p1 = eval(instance, car(p));
1714 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
1715 snd_output_printf(instance->out, "%s", p1->value.s);
1717 princ_object(instance->out, p1);
1723 return p1;
1783 struct alisp_object * p = args, * first = NULL, * prev = NULL, * p1;
1789 p1 = new_object(instance, ALISP_OBJ_CONS);
1790 if (p1 == NULL) {
1795 p1->value.c.car = eval(instance, car(p));
1796 if (p1->value.c.car == NULL) {
1803 first = p1;
1805 prev->value.c.cdr = p1;
1806 prev = p1;
1807 p = cdr(p1 = p);
1808 delete_object(instance, p1);
1814 static inline int eq(struct alisp_object * p1, struct alisp_object * p2)
1816 return p1 == p2;
1819 static int equal(struct alisp_object * p1, struct alisp_object * p2)
1823 if (eq(p1, p2))
1826 type1 = alisp_get_type(p1);
1835 return !strcmp(p1->value.s, p2->value.s);
1837 return p1->value.i == p2->value.i;
1839 return p1->value.i == p2->value.i;
1851 struct alisp_object * p1, * p2;
1853 p1 = eval(instance, car(args));
1859 if (eq(p1, p2)) {
1860 delete_tree(instance, p1);
1864 delete_tree(instance, p1);
1874 struct alisp_object * p1, * p2;
1876 p1 = eval(instance, car(args));
1882 if (equal(p1, p2)) {
1883 delete_tree(instance, p1);
1887 delete_tree(instance, p1);
1909 struct alisp_object * p = args, * p1 = NULL, * n;
1912 if (p1)
1913 delete_tree(instance, p1);
1914 p1 = eval(instance, car(p));
1915 if (p1 == &alsa_lisp_nil) {
1916 delete_tree(instance, p1);
1925 return p1;
1933 struct alisp_object * p = args, * p1 = NULL, * n;
1936 if (p1)
1937 delete_tree(instance, p1);
1938 p1 = eval(instance, car(p));
1939 if (p1 != &alsa_lisp_nil) {
1942 return p1;
1975 struct alisp_object * p = args, * p1, * p2, * p3;
1978 p1 = car(p);
1979 if ((p2 = eval(instance, car(p1))) != &alsa_lisp_nil) {
1980 p3 = cdr(p1);
1981 delete_object(instance, p1);
1993 delete_tree(instance, cdr(p1));
1994 delete_object(instance, p1);
2008 struct alisp_object * p1, * p2, * p3;
2010 p1 = car(args);
2016 p1 = eval(instance, p1);
2017 if (p1 != &alsa_lisp_nil) {
2018 delete_tree(instance, p1);
2023 delete_tree(instance, p1);
2033 struct alisp_object * p1, * p2;
2035 p1 = car(args);
2038 if ((p1 = eval(instance, p1)) != &alsa_lisp_nil) {
2039 delete_tree(instance, p1);
2042 delete_tree(instance, p1);
2054 struct alisp_object * p1, * p2;
2056 p1 = car(args);
2059 if ((p1 = eval(instance, p1)) == &alsa_lisp_nil) {
2062 delete_tree(instance, p1);
2074 struct alisp_object * p1, * p2, * p3;
2076 p1 = car(args);
2081 incref_tree(instance, p1);
2082 if ((p3 = eval(instance, p1)) == &alsa_lisp_nil)
2089 delete_tree(instance, p1);
2099 struct alisp_object * p = args, * p1 = NULL, * n;
2102 if (p1)
2103 delete_tree(instance, p1);
2104 p1 = eval(instance, car(p));
2110 return p1;
2118 struct alisp_object * p = args, * first = NULL, * p1;
2121 p1 = eval(instance, car(p));
2123 first = p1;
2125 delete_tree(instance, p1);
2126 p1 = cdr(p);
2128 p = p1;
2142 struct alisp_object * p = args, * second = NULL, * p1;
2147 p1 = eval(instance, car(p));
2149 second = p1;
2151 delete_tree(instance, p1);
2152 p1 = cdr(p);
2154 p = p1;
2168 struct alisp_object * p1 = eval(instance, car(args)),
2174 if (!check_set_object(instance, p1)) {
2178 if (set_object(instance, p1, p2) == NULL) {
2179 delete_tree(instance, p1);
2184 delete_tree(instance, p1);
2193 struct alisp_object * p1 = eval(instance, car(args));
2195 delete_tree(instance, unset_object(instance, p1));
2198 return p1;
2208 struct alisp_object * p = args, * p1, * p2 = NULL, *n;
2211 p1 = car(p);
2216 if (!check_set_object(instance, p1)) {
2220 if (set_object(instance, p1, p2) == NULL) {
2221 delete_tree(instance, p1);
2226 delete_tree(instance, p1);
2240 struct alisp_object * p = args, * p1 = NULL, * n;
2243 if (p1)
2244 delete_tree(instance, p1);
2245 p1 = unset_object(instance, car(p));
2251 return p1;
2261 struct alisp_object * p1 = car(args),
2284 if (set_object(instance, p1, lexpr) == NULL) {
2285 delete_tree(instance, p1);
2289 delete_tree(instance, p1);
2298 struct alisp_object * p1, * p2, * p3, * p4;
2302 p1 = car(p);
2303 if (alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER) &&
2304 !strcmp(p1->value.s, "lambda")) {
2391 struct alisp_object * p1;
2393 p1 = eval(instance, car(args));
2396 if (!alisp_compare_type(p1, ALISP_OBJ_STRING)) {
2397 delete_tree(instance, p1);
2400 if (!strcmp(p1->value.s, "data")) {
2401 delete_tree(instance, p1);
2404 delete_tree(instance, p1);
2413 struct alisp_object * p = args, * p1;
2417 p1 = eval(instance, car(p));
2418 if (alisp_compare_type(p1, ALISP_OBJ_STRING))
2419 res = alisp_include_file(instance, p1->value.s);
2420 delete_tree(instance, p1);
2421 p = cdr(p1 = p);
2422 delete_object(instance, p1);
2434 struct alisp_object * p = eval(instance, car(args)), * p1;
2441 p1 = new_integer(instance, floor(p->value.f));
2444 p1 = &alsa_lisp_nil;
2447 return p1;
2456 struct alisp_object * p = eval(instance, car(args)), * p1;
2463 p1 = new_float(instance, p->value.i);
2466 p1 = &alsa_lisp_nil;
2469 return p1;
2563 struct alisp_object * p = eval(instance, car(args)), * p1 = cdr(args), * n;
2569 delete_tree(instance, p1);
2577 n = eval(instance, car(p1));
2587 delete_tree(instance, cdr(p1));
2588 delete_object(instance, p1);
2632 p1 = cdr(n = p1);
2634 n = eval(instance, car(p1));
2638 delete_tree(instance, cdr(p1));
2639 delete_object(instance, p1);
2642 p1 = new_string(instance, s1);
2645 p1 = &alsa_lisp_nil;
2647 return p1;
2662 struct alisp_object * p1 = args, * n, * p[7];
2667 p[start1] = eval(instance, car(p1));
2668 p1 = cdr(n = p1);
2671 delete_tree(instance, p1);
2674 p1 = &alsa_lisp_nil;
2679 p1 = &alsa_lisp_nil;
2684 p1 = &alsa_lisp_nil;
2689 p1 = &alsa_lisp_nil;
2695 p1 = &alsa_lisp_nil;
2701 p1 = &alsa_lisp_nil;
2713 p1 = &alsa_lisp_nil;
2721 p1 = &alsa_lisp_nil;
2732 p1 = &alsa_lisp_nil;
2739 p1 = &alsa_lisp_t;
2744 return p1;
2752 struct alisp_object * p1, * p2, * n;
2754 p1 = eval(instance, car(args));
2761 if (eq(p1, car(car(p2)))) {
2763 delete_tree(instance, p1);
2773 delete_tree(instance, p1);
2782 struct alisp_object * p1, *p2, * n;
2784 p1 = eval(instance, car(args));
2791 if (eq(p1, cdr(car(p2)))) {
2793 delete_tree(instance, p1);
2803 delete_tree(instance, p1);
2812 struct alisp_object * p1, * p2, * n;
2814 p1 = eval(instance, car(args));
2821 if (equal(p1, car(car(p2)))) {
2823 delete_tree(instance, p1);
2833 delete_tree(instance, p1);
2842 struct alisp_object * p1, * p2, * n;
2845 p1 = eval(instance, car(args));
2851 if (!alisp_compare_type(p1, ALISP_OBJ_INTEGER)) {
2852 delete_tree(instance, p1);
2857 delete_object(instance, p1);
2861 idx = p1->value.i;
2862 delete_object(instance, p1);
2879 struct alisp_object * p1, * p2, * n;
2881 p1 = eval(instance, car(args));
2888 if (equal(p1, cdr(car(p2)))) {
2890 delete_tree(instance, p1);
2900 delete_tree(instance, p1);
3040 static int compar(const void *p1, const void *p2)
3042 return strcmp(((struct intrinsic *)p1)->name,
3046 static inline struct alisp_object * eval_cons1(struct alisp_instance *instance, struct alisp_object * p1, struct alisp_object * p2)
3051 key.name = p1->value.s;
3056 delete_object(instance, p1);
3063 delete_object(instance, p1);
3067 if ((p3 = get_object(instance, p1)) != &alsa_lisp_nil) {
3068 delete_object(instance, p1);
3071 lisp_warn(instance, "function `%s' is undefined", p1->value.s);
3072 delete_object(instance, p1);
3084 struct alisp_object * p = eval(instance, car(args)), * p1;
3094 p1 = cdr(args);
3096 return eval_cons1(instance, p, p1);
3101 struct alisp_object * p1 = car(p), * p2;
3103 if (p1 != &alsa_lisp_nil && alisp_compare_type(p1, ALISP_OBJ_IDENTIFIER)) {
3104 if (!strcmp(p1->value.s, "lambda"))
3109 return eval_cons1(instance, p1, p2);
3151 struct alisp_object *p, *p1;
3175 p1 = eval(instance, p);
3176 if (p1 == NULL) {
3182 princ_object(instance->vout, p1);
3185 delete_tree(instance, p1);
3202 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;