home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-macs.elc < prev    next >
Encoding:
Text File  |  1996-10-12  |  4.6 KB  |  73 lines
  1.  
  2. (provide (quote calc-macs))
  3.  
  4. (defun calc-need-macros nil (byte-code "À‡" [nil] 1))
  5.  
  6. (defmacro calc-record-compilation-date-macro nil (byte-code "ÀÁ ÃÄ QE‡" [setq calc-installed-date current-time-string " by " user-full-name] 7))
  7.  
  8. (defmacro calc-wrapper (&rest body) (byte-code "ÂÃÄÅÀD    \"DD‡" [nil body calc-do function append lambda] 5))
  9.  
  10. (defmacro calc-slow-wrapper (&rest body) (byte-code "ÂÃÄÅÀD    \"D`E‡" [nil body calc-do function append lambda] 5))
  11.  
  12. (defmacro math-showing-full-precision (body) (byte-code "ÁÂE‡" [body let ((calc-float-format calc-full-float-format))] 3))
  13.  
  14. (defmacro math-with-extra-prec (delta &rest body) (byte-code "ÂÃÄÅÆÅEDCD    \"D‡" [delta body math-normalize append let calc-internal-prec +] 7))
  15.  
  16. (defmacro Math-zerop (a) (byte-code "ÁÂDÃÄÅÆDÇEDÁÈÆDÉEÈÊËEÌEÍDFEÈÌEF‡" [a if consp and not memq car (quote (bigpos bigneg)) eq (quote float) nth 1 0 math-zerop] 10))
  17.  
  18. (defmacro Math-integer-negp (a) (byte-code "ÁÂDÃÄDÅEÆÇEF‡" [a if consp eq car (quote bigneg) < 0] 6))
  19.  
  20. (defmacro Math-integer-posp (a) (byte-code "ÁÂDÃÄDÅEÆÇEF‡" [a if consp eq car (quote bigpos) > 0] 6))
  21.  
  22. (defmacro Math-negp (a) (byte-code "ÁÂDÃÄÅDÆEÇÈÄÅDÉEDÁÊÅDËEÌÍÎEDÏDFEEÐÑEF‡" [a if consp or eq car (quote bigneg) and not (quote bigpos) memq (quote (frac float)) Math-integer-negp nth 1 math-negp < 0] 12))
  23.  
  24. (defmacro Math-looks-negp (a) (byte-code "ÁÂDÃÄDÁÅÆDÇEÃÈÆDÉEÁÊËÌEDÊËÍEDEEEEE‡" [a or Math-negp and consp eq car (quote neg) memq (quote (* /)) math-looks-negp nth 1 2] 14))
  25.  
  26. (defmacro Math-posp (a) (byte-code "ÁÂDÃÄÅDÆEÇÈÄÅDÉEDÁÊÅDËEÌÍÎEDÏDFEEÐÑEF‡" [a if consp or eq car (quote bigpos) and not (quote bigneg) memq (quote (frac float)) Math-integer-posp nth 1 math-posp > 0] 12))
  27.  
  28. (defmacro Math-integerp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg))] 5))
  29.  
  30. (defmacro Math-natnump (a) (byte-code "ÁÂDÃÄDÅEÆÇEF‡" [a if consp eq car (quote bigpos) >= 0] 6))
  31.  
  32. (defmacro Math-ratp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac))] 5))
  33.  
  34. (defmacro Math-realp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float))] 5))
  35.  
  36. (defmacro Math-anglep (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float hms))] 5))
  37.  
  38. (defmacro Math-numberp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float cplx polar))] 5))
  39.  
  40. (defmacro Math-scalarp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float cplx polar hms))] 5))
  41.  
  42. (defmacro Math-vectorp (a) (byte-code "ÁÂDÃÄDÅEE‡" [a and consp eq car (quote vec)] 5))
  43.  
  44. (defmacro Math-messy-integerp (a) (byte-code "ÁÂDÃÄDÅEÆÇÈEÉEF‡" [a and consp eq car (quote float) >= nth 2 0] 7))
  45.  
  46. (defmacro Math-objectp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float cplx polar hms date sdev intv mod))] 5))
  47.  
  48. (defmacro Math-objvecp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float cplx polar hms date sdev intv mod vec))] 5))
  49.  
  50. (defmacro Math-integer-neg (a) (byte-code "ÁÂDÁÃÄDÅEÆÇÈDEÆÉÈDEFÊDF‡" [a if consp eq car (quote bigpos) cons (quote bigneg) cdr (quote bigpos) -] 9))
  51.  
  52. (defmacro Math-equal (a b) (byte-code "Âà   EÄE‡" [a b = math-compare 0] 4))
  53.  
  54. (defmacro Math-lessp (a b) (byte-code "Âà   EÄE‡" [a b = math-compare -1] 4))
  55.  
  56. (defmacro math-working (msg arg) (byte-code "ÂÃÄ    EE‡" [msg arg if (eq calc-display-working-message (quote lots)) math-do-working] 5))
  57.  
  58. (defmacro calc-with-default-simplification (body) (byte-code "ÁÂE‡" [body let ((calc-simplify-mode (and (not (memq calc-simplify-mode (quote (none num)))) calc-simplify-mode)))] 3))
  59.  
  60. (defmacro Math-primp (a) (byte-code "ÁÂÃDDÄÅDÆEE‡" [a or not consp memq car (quote (bigpos bigneg frac float cplx polar hms date mod var))] 5))
  61.  
  62. (defmacro calc-with-trail-buffer (&rest body) (byte-code "ÁÂÃÄÅ\"ÆEE‡" [body let ((save-buf (current-buffer)) (calc-command-flags nil)) unwind-protect append (progn (set-buffer (calc-trail-display t)) (goto-char calc-trail-pointer)) (set-buffer save-buf)] 6))
  63.  
  64. (defmacro Math-num-integerp (a) (byte-code "ÁÂÃDDÄÅDÆEÇÈÅDÉEÊËÌEÍEEF‡" [a or not consp memq car (quote (bigpos bigneg)) and eq (quote float) >= nth 2 0] 9))
  65.  
  66. (defmacro Math-bignum-test (a) (byte-code "ÁÂDÃDF‡" [a if consp math-bignum] 5))
  67.  
  68. (defmacro Math-equal-int (a b) (byte-code "Âà   EÄÅÆDÃÇDÈEÃÉÊE    EËÉÌEÍE%E‡" [a b or eq list and consp car (quote float) nth 1 = 2 0] 11))
  69.  
  70. (defmacro Math-natnum-lessp (a b) (byte-code "ÂÃDÄà   DÅÆÇDÇ    DEÈEEÉà   DÊ    EEF‡" [a b if consp and = math-compare-bignum cdr -1 or <] 9))
  71.  
  72. (defmacro math-format-radix-digit (a) (byte-code "ÁÂE‡" [a aref math-radix-digits] 3))
  73.