Lines Matching +defs:list +defs:part
9 ;; This file is part of GNU Emacs.
40 (calc-enter-result arg "eq" (cons 'calcFunc-eq (calc-top-list-n arg)))
52 (calc-enter-result arg "neq" (cons 'calcFunc-neq (calc-top-list-n arg)))
98 (calc-enter-result 3 "if" (cons 'calcFunc-if (calc-top-list-n 3)))))
271 (read-from-minibuffer "Function argument list: "
293 (list 'lambda
296 (list 'calc-wrapper
297 (list 'calc-enter-result
304 (list 'cons
305 (list 'quote func)
306 (list 'calc-top-list-n
309 (let ((body (list 'math-normalize (calc-fix-user-formula form))))
312 (list 'lambda calc-user-formula-alist)
315 (list 'math-check-const v t)))
317 (list body))))
358 (list 'quote f))
361 (list 'let '((calc-simplify-mode nil))
362 (list 'math-normalize (calc-fix-user-formula (nth 1 f)))))
365 (list 'math-simplify (calc-fix-user-formula (nth 1 f))))
368 (list 'math-simplify-extended
371 (cons 'list
372 (cons (list 'quote (car f))
403 (read-from-minibuffer "Composition argument list: "
414 (cons (setq entry (list calc-language)) comps)))
418 (list (length calc-user-formula-alist))) (cdr entry))))
420 (list 'lambda calc-user-formula-alist (calc-fix-user-formula comp))))
457 (list 'lambda
460 (list 'calc-execute-kbd-macro
476 (calc-edit-mode (list 'calc-finish-user-syntax-edit (list 'quote lang))
495 (cons (list lang) calc-user-parse-tables))))
503 ;; used by calc-write-parse-table-part which is called by
512 (calc-write-parse-table-part (car (car p)))
519 (defun calc-write-parse-table-part (p)
542 (calc-write-parse-table-part (nth 1 (car p)))
545 (calc-write-parse-table-part (list (car (nth 2 (car p)))))
557 (p (calc-read-parse-table-part ":=[\n\t ]+" ":=")))
581 (setq tab (nconc tab (list (cons p exp)))))))))
603 (defun calc-read-parse-table-part (term eterm)
604 (let ((part nil)
614 (let ((p (calc-read-parse-table-part "}" "}")))
628 (setq part (nconc part
629 (list (list sym p
636 part (nconc part (list quoted))))
638 (setq part (nconc part (list (if (= (match-beginning 1)
651 (setq part (nconc part (list (calc-fix-token-name
656 (let ((len (length part)))
658 (let ((last (nthcdr (setq len (1- len)) part)))
662 (list '\? (list (car last)) '("$$"))))))))
663 part))
692 (list 'calc-edit-macro-finish-edit cmdname kys)
711 (list 'calc-finish-formula-edit (list 'quote func))
935 (list 'lambda '(arg)
937 (list 'calc-execute-kbd-macro
996 (list defn))))
1120 (memq (car (nth 3 cmd)) '(cons list))
1161 (calc-record-list (if (> (length new-stack) 1)
1165 (calc-record-undo (list 'set 'saved-stack-top old-stack-top))
1167 (calc-record-undo (list 'pop 1 (mapcar 'car old-stack))))
1176 (calc-record-undo (list 'push 1))
1181 (calc-record-undo (list 'push 1))
1184 (calc-record-undo (list 'set 'saved-stack-top 0)))))))))
1186 (defun calc-push-list-in-macro (vals m sels)
1187 (let ((entry (list (car vals) 1 (car sels)))
1304 (setq parts (nconc parts (list (concat (substring body 0 -2)
1326 (let ((part parts))
1333 (while (and part (> rpt-count 0))
1334 (execute-kbd-macro (car part))
1337 (setq part (cdr part)))
1490 (list 'calcFunc-eq (math-neg a) (math-neg b))
1491 (list 'calcFunc-eq a b)))))
1514 (list 'calcFunc-neq (math-neg a) (math-neg b))
1515 (list 'calcFunc-neq a b)))))
1550 (list 'calcFunc-gt (math-neg a) (math-neg b))
1551 (list 'calcFunc-lt a b))
1561 (list 'calcFunc-lt (math-neg a) (math-neg b))
1562 (list 'calcFunc-gt a b))
1572 (list 'calcFunc-geq (math-neg a) (math-neg b))
1573 (list 'calcFunc-leq a b))
1583 (list 'calcFunc-leq (math-neg a) (math-neg b))
1584 (list 'calcFunc-geq a b))
1599 (list 'calcFunc-rmeq a))))))
1610 (t (list 'calcFunc-land a b))))
1621 (t (list 'calcFunc-lor a b))))
1632 (list 'calcFunc-lnot a))))))
1645 (list e1)))
1650 (list e2))))
1653 (list 'calcFunc-if c e1 e2)))))
1676 (list 'calcFunc-if a1
1712 (list 'calcFunc-in a b)))
1735 (list 'calcFunc-integer a))))
1742 (list 'calcFunc-real a))))
1749 (list 'calcFunc-constant a))))
1755 (list 'calcFunc-refers a b)
1764 (list 'calcFunc-negative a))))
1771 (list 'calcFunc-variable a))))
1775 (list 'calcFunc-nonvar a)
1792 (doc (if (stringp (car body)) (list (car body))))
1797 (list 'progn
1818 (append (list 'defun
1828 (list
1832 (list
1833 (list 'setq
1835 (list 'if
1837 (list 'prefix-numeric-value
1840 (list
1841 (list 'calc-enter-result
1845 (list 'append
1846 (list 'quote (list fname))
1847 (list 'calc-top-list-n
1849 (list 'and
1851 (list
1852 'list
1853 (list
1855 (list
1858 (list 'cons
1859 (list 'quote fname)
1860 (list 'calc-top-list-n
1864 (append (list 'defun
1868 (list
1871 (append (list 'defun fname clargs)
1873 (math-do-arg-list-check args nil nil)
1884 (list (cons 'and
1887 (setq chk (list (cons 'progn chk)))
1892 (qqual (list 'quote qual))
1897 (list
1899 (list 'setq var
1900 (list 'mapcar (list 'quote chk) var))
1901 (list 'setq var (list chk var)))))
1904 (list
1906 (list 'mapcar
1907 (list 'function
1908 (list 'lambda '(x)
1909 (list 'or
1910 (list chk 'x)
1911 (list 'math-reject-arg
1914 (list 'or
1915 (list chk var)
1916 (list 'math-reject-arg var qqual)))))
1923 (list
1925 (list 'mapcar
1926 (list 'function
1927 (list 'lambda '(x)
1928 (list 'and
1929 (list chk 'x)
1930 (list 'math-reject-arg
1933 (list 'and
1934 (list chk var)
1935 (list 'math-reject-arg var qqual)))))
1938 (defun math-do-arg-list-check (args is-opt is-rest)
1944 (math-do-arg-list-check (cdr args) is-opt is-rest)))
1946 (math-do-arg-list-check (cdr args) t nil))
1948 (math-do-arg-list-check (cdr args) nil t))
1949 (t (math-do-arg-list-check (cdr args) is-opt is-rest))))
1980 (list (cons 'catch (cons '(quote math-return) body)))
1989 (math-define-list body))
1991 (defun math-define-list (body &optional quote)
1999 (math-define-list (cdr (cdr body)))))
2002 (math-define-list (cdr body) t))
2005 (math-define-list (cdr body))))
2008 (math-define-list (cdr body))))))
2027 (setq head (list head))))
2038 (cons 'progn (math-define-setf-list (cdr exp)))
2051 (cons func (math-define-list (cdr exp))))
2053 (let ((args (math-define-list (cdr exp)))
2058 (list 'eq (car args) '(quote float)))
2082 (list 'math-negp (car args))
2087 (list 'math-posp (car args))
2088 (list 'math-lessp (nth 1 args) (nth 0 args))))
2090 (list 'not
2093 (list 'math-posp (car args))
2094 (list 'math-lessp
2097 (list 'not
2100 (list 'math-negp (car args))
2105 (list 'math-zerop (nth 0 args))
2111 (list 'not
2114 (list 'math-zerop (nth 0 args))
2120 (list 'math-add (car args) 1))
2122 (list 'math-add (car args) -1))
2143 (t (cons func (math-define-list (cdr exp))))))) ;;args
2157 (list 'quote (math-normalize exp))
2163 (cons (math-define-list (car forms))
2171 (defun math-define-setf-list (body)
2174 (math-define-setf-list (cdr (cdr body))))))
2180 (list 'setq place value))
2182 (list 'setcar (list 'nthcdr (nth 1 place) (nth 2 place)) value))
2184 (list 'setcar (list 'nthcdr (nth 2 place) (nth 1 place)) value))
2186 (list 'setcar (nth 1 place) value))
2188 (list 'setcdr (nth 1 place) value))
2195 (list op arg1 (car rest))
2203 (math-define-list (cdr (car vlist))))
2215 (nconc (list (nth 0 exp) ; 'lambda
2216 (nth 1 exp)) ; arg list
2222 (math-define-elt (list 'elt seq (car idx)) (cdr idx))
2232 (cons 'catch (cons '(quote math-break) (list body)))
2241 (cons 'catch (cons '(quote math-break) (list body)))
2251 (list (math-handle-for (cdr head) body))
2263 (cons (append (if const-limit nil (list (list save-limit limit)))
2264 (if const-step nil (list (list save-step step)))
2265 (list (list var init)))
2266 (list
2270 (list '<= var save-limit)
2271 (list '>= var save-limit))
2272 (list 'not
2277 (list 'math-lessp
2280 (list 'math-lessp
2283 (list 'if
2284 (list 'math-posp
2286 (list 'math-lessp
2289 (list 'math-lessp
2293 (list (list 'setq
2295 (list (if all-ints
2304 (cons 'catch (cons '(quote math-break) (list body)))
2312 (list (math-handle-foreach (cdr head) body))
2315 (cons (list (list var data))
2316 (list
2320 (list (list 'setq
2322 (list 'cdr var)))))))))))
2344 (append x (list (math-read-expr-level (nth 3 op))))
2346 (list 'calcFunc-in