Lines Matching defs:big
67 (defun calc-big-language ()
70 (calc-set-language 'big)
880 ;; The variable math-read-big-lines is local to math-read-big-expr in
881 ;; calc-ext.el, but is used by math-read-big-rec, math-read-big-char,
882 ;; math-read-big-emptyp, math-read-big-error and math-read-big-balance,
883 ;; which are called (directly and indirectly) by math-read-big-expr.
884 ;; It is also local to math-read-big-bigp in calc-ext.el, which calls
885 ;; math-read-big-balance.
886 (defvar math-read-big-lines)
888 ;; The variables math-read-big-baseline and math-read-big-h2 are
889 ;; local to math-read-big-expr in calc-ext.el, but used by
890 ;; math-read-big-rec.
891 (defvar math-read-big-baseline)
892 (defvar math-read-big-h2)
895 ;; are local to math-read-big-rec, but are used by math-read-big-char,
896 ;; math-read-big-emptyp and math-read-big-balance which are called by
897 ;; math-read-big-rec.
898 ;; math-rb-h2 is also local to math-read-big-bigp in calc-ext.el,
899 ;; which calls math-read-big-balance.
905 (defun math-read-big-rec (math-rb-h1 math-rb-v1 math-rb-h2 math-rb-v2
911 (math-read-big-emptyp math-rb-h1 math-rb-v1 math-rb-h2 (1+ math-rb-v1)))
914 (math-read-big-emptyp math-rb-h1 (1- math-rb-v2) math-rb-h2 math-rb-v2))
921 (nth math-rb-v1 math-read-big-lines)))))
922 (math-read-big-error math-rb-h1 math-rb-v1)
923 (setq math-read-big-baseline math-rb-v1
924 math-read-big-h2 math-rb-h2
925 math-rb-v2 (nth math-rb-v1 math-read-big-lines)
930 (math-read-big-error (+ math-rb-h1 (nth 1 math-rb-h2))
936 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) math-rb-v2))
939 (math-read-big-emptyp (1- math-rb-h2) math-rb-v1 math-rb-h2 math-rb-v2))
945 (lines-v1 (nthcdr math-rb-v1 math-read-big-lines))
959 (/= (math-read-big-char math-rb-h1 (1- v)) ?\ )
960 (/= (math-read-big-char math-rb-h1 (1+ v)) ?\ )))
973 (math-read-big-error math-rb-h1 math-rb-v1)) ; Should never happen!
979 (let ((num (math-read-big-rec math-rb-h1 math-rb-v1 h v))
980 (den (math-read-big-rec math-rb-h1 (1+ v) h math-rb-v2)))
987 (or (= (math-read-big-char (1+ math-rb-h1) v) ?\|)
988 (math-read-big-error (1+ math-rb-h1) v "Malformed root sign"))
989 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
990 (while (= (math-read-big-char (1+ math-rb-h1) (setq v (1- v))) ?\|))
991 (or (= (math-read-big-char (setq h (+ math-rb-h1 2)) v) ?\_)
992 (math-read-big-error h v "Malformed root sign"))
993 (while (= (math-read-big-char (setq h (1+ h)) v) ?\_))
994 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
995 (math-read-big-emptyp math-rb-h1 (1+ other-v) h math-rb-v2 nil t)
996 (setq p (list 'calcFunc-sqrt (math-read-big-rec
999 v math-read-big-baseline))
1003 (= (math-read-big-char (1+ math-rb-h1) (1- v)) ?\_))
1005 (math-read-big-emptyp math-rb-h1 math-rb-v1 h (1- v) nil t)
1006 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t)
1007 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
1008 (while (= (math-read-big-char (setq h (1+ h)) (1- v)) ?\_))
1009 (setq p (list 'calcFunc-sqrt (math-read-big-rec
1011 v math-read-big-baseline))
1015 (= (math-read-big-char (1+ math-rb-h1) v) ?\ )
1016 (= (string-match "( *)" (nth v math-read-big-lines)
1019 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
1020 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t)
1021 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t)
1022 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t)
1024 (math-read-big-rec (1+ math-rb-h1) math-rb-v1 (1- h) v)
1025 (math-read-big-rec (1+ math-rb-h1) (1+ v)
1030 (setq p (list 'neg (math-read-big-rec (1+ math-rb-h1) math-rb-v1
1032 v math-read-big-baseline
1033 h math-read-big-h2))
1037 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
1038 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t)
1039 (setq h (math-read-big-balance (1+ math-rb-h1) v "(" t))
1040 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t)
1041 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t)
1042 (let ((sep (math-read-big-char (1- h) v))
1047 (math-read-big-error (1- h) v "Expected `)'"))
1049 (setq p (math-read-big-rec
1051 (setq hmid (math-read-big-balance h v "(")
1053 (math-read-big-rec h math-rb-v1 (1- hmid) math-rb-v2 v))
1056 (setq p (cons 'intv (cons (if (= (math-read-big-char
1061 ((= (math-read-big-char (1- h) v) ?\])
1062 (math-read-big-error (1- h) v "Expected `)'"))
1065 (math-read-big-error
1070 (math-read-big-error
1076 (or (= (math-read-big-char (setq h math-rb-h1) (1+ v)) ?\[)
1077 (= (math-read-big-char (setq h (1+ h)) v) ?\[)
1078 (and (= (math-read-big-char h v) ?\ )
1079 (= (math-read-big-char (setq h (1+ h)) v) ?\[)))
1080 (= (math-read-big-char h (1+ v)) ?\[))
1081 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t)
1087 (setq h (math-read-big-balance (1+ hleft) v "["))
1090 (math-read-big-error hright v "Expected `]'"))
1092 (setq p (cons (math-read-big-rec
1094 (and (memq (math-read-big-char h v) '(?\ ?\,))
1095 (= (math-read-big-char hleft (1+ v)) ?\[)))
1099 (if (= (math-read-big-char h v) ?\ )
1101 (and (= (math-read-big-char h v) ?\])
1103 (math-read-big-error (1- h) v "Expected `]'"))
1104 (if (= (math-read-big-char h vtop) ?\,)
1106 (math-read-big-emptyp math-rb-h1 (1+ v) (1- h) math-rb-v2 nil t)
1112 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t)
1113 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t)
1117 (setq widest (math-read-big-balance h v "[" t))
1118 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t)
1119 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t)
1120 (setq p (cons (math-read-big-rec
1123 (= (math-read-big-char (1- h) v) ?\,)))
1124 (setq widest (math-read-big-char (1- h) v))
1127 (math-read-big-error (1- h) v "Expected `]'"))
1130 widest (math-read-big-balance h v "[")
1131 p (nconc p (list (math-read-big-rec
1134 p (cons 'intv (cons (if (= (math-read-big-char (1- h) v)
1142 (setq line (nth v math-read-big-lines))
1145 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t)
1146 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t)
1147 (setq p (math-read-big-rec math-rb-h1 v h (1+ v) v)))
1152 (setq line (nth v math-read-big-lines))
1157 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t)
1158 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t)
1159 (if (= (math-read-big-char widest v) ?\()
1166 (math-read-big-emptyp widest math-rb-v1 h v nil t)
1167 (math-read-big-emptyp widest (1+ v) h math-rb-v2 nil t)
1169 (setq widest (math-read-big-balance h v "(" t))
1170 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t)
1171 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t)
1172 (setq p (cons (math-read-big-rec
1175 (= (math-read-big-char (1- h) v) ?\,)))
1176 (or (= (math-read-big-char (1- h) v) ?\))
1177 (math-read-big-error (1- h) v "Expected `)'"))
1187 (setq line (nth v math-read-big-lines))
1189 (math-read-big-error h v "Expected a number"))
1192 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t)
1193 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t)))
1199 (math-read-big-error math-rb-h1 v "Inconsistent baseline in formula"))
1203 (setq line (nth baseline math-read-big-lines)
1210 (if (math-read-big-emptyp h v widest math-rb-v2)
1211 (if (math-read-big-emptyp h math-rb-v1 widest v)
1213 (setq p (list '^ p (math-read-big-rec h math-rb-v1 widest v))
1215 (if (math-read-big-emptyp h math-rb-v1 widest v)
1217 (math-read-big-rec h v widest math-rb-v2))
1222 (if (setq widest (and (math-read-big-emptyp
1224 (math-read-big-emptyp
1237 (let ((y (math-read-big-rec h math-rb-v1 math-rb-h2
1239 (or (= (math-read-big-char math-read-big-h2 baseline) ?\:)
1240 (math-read-big-error math-read-big-h2 baseline "Expected `:'"))
1242 (math-read-big-rec
1243 (1+ math-read-big-h2) math-rb-v1 math-rb-h2 math-rb-v2
1245 h math-read-big-h2)))
1248 (math-read-big-rec h math-rb-v1 math-rb-h2 math-rb-v2
1250 h math-read-big-h2))))
1253 (setq math-read-big-baseline baseline
1254 math-read-big-h2 h)
1255 (or short (= math-read-big-h2 math-rb-h2)
1256 (math-read-big-error h baseline))
1259 (defun math-read-big-char (h v)
1264 (let ((line (nth v math-read-big-lines)))
1270 (defun math-read-big-emptyp (eh1 ev1 eh2 ev2 &optional what error)
1276 (let ((p (nthcdr ev1 math-read-big-lines))
1284 (math-read-big-error h ev1 (if (stringp error)
1292 ;; math-read-big-err-msg is local to math-read-big-expr in calc-ext.el,
1293 ;; but is used by math-read-big-error which is called (indirectly) by
1294 ;; math-read-big-expr.
1295 (defvar math-read-big-err-msg)
1297 (defun math-read-big-error (h v &optional msg)
1299 (p math-read-big-lines))
1305 math-read-big-err-msg (list 'error h (or msg "Syntax error")))
1308 (defun math-read-big-balance (h v what &optional commas)
1309 (let* ((line (nth v math-read-big-lines))
1315 (math-read-big-error nil v (format "Unmatched `%s'" what))