blob: 0a006b238b7b6b87bc5537bc1ccb83033df384d3 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 32 37 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:27.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 62 2d 63 61	luke/.emacs.d/org-7.4/lisp/ob-ca
0080	6c 63 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20 32 33 2e 31 2e	lc.el.;;;.in.Emacs.version.23.1.
00a0	31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b	1.;;;.with.all.optimizations...;
00c0	3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72	;;.This.file.uses.dynamic.docstr
00e0	69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39	ings,.first.added.in.Emacs.19.29
0100	2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f	..(if.(and.(boundp.'emacs-versio
0120	6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20	n)...(<.(aref.emacs-version.(1-.
0140	28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 09 20 28	(length.emacs-version))).?A)...(
0160	6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29	or.(and.(boundp.'epoch::version)
0180	20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	.epoch::version).......(string-l
01a0	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32 39 22 29 29 29 0a 20 20	essp.emacs-version."19.29")))...
01c0	20 20 28 65 72 72 6f 72 20 22 60 6f 62 2d 63 61 6c 63 2e 65 6c 27 20 77 61 73 20 63 6f 6d 70 69	..(error."`ob-calc.el'.was.compi
01e0	6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29 29 0a	led.for.Emacs.19.29.or.later")).
0200	0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0220	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30	;;;;...(byte-code."\300\301!\210
0260	5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c 33 30 33 21 5c 32 30 37 22 20 5b 72 65 71	\300\302!\210\300\303!\207".[req
0280	75 69 72 65 20 6f 62 20 63 61 6c 63 20 63 61 6c 63 2d 74 72 61 69 6c 5d 20 32 29 0a 23 40 35 36	uire.ob.calc.calc-trail].2).#@56
02a0	20 44 65 66 61 75 6c 74 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6e	.Default.arguments.for.evaluatin
02c0	67 20 61 6e 20 63 61 6c 63 20 73 6f 75 72 63 65 20 62 6c 6f 63 6b 2e 1f 0a 28 64 65 66 76 61 72	g.an.calc.source.block...(defvar
02e0	20 6f 72 67 2d 62 61 62 65 6c 2d 64 65 66 61 75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 63	.org-babel-default-header-args:c
0300	61 6c 63 20 6e 69 6c 20 28 23 24 20 2e 20 36 37 33 29 29 0a 23 40 36 30 20 45 78 70 61 6e 64 20	alc.nil.(#$...673)).#@60.Expand.
0320	42 4f 44 59 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 50 41 52 41 4d 53 2c 20 72 65 74 75 72 6e	BODY.according.to.PARAMS,.return
0340	20 74 68 65 20 65 78 70 61 6e 64 65 64 20 62 6f 64 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.the.expanded.body...(defalias.'
0360	6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 63 61 6c 63 20 23 5b 28 62 6f	org-babel-expand-body:calc.#[(bo
0380	64 79 20 70 61 72 61 6d 73 29 20 22 08 5c 32 30 37 22 20 5b 62 6f 64 79 5d 20 31 20 28 23 24 20	dy.params).".\207".[body].1.(#$.
03a0	2e 20 37 39 33 29 5d 29 0a 23 40 34 32 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66	..793)]).#@42.Execute.a.block.of
03c0	20 63 61 6c 63 20 63 6f 64 65 20 77 69 74 68 20 42 61 62 65 6c 2e 1f 0a 28 64 65 66 61 6c 69 61	.calc.code.with.Babel...(defalia
03e0	73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 63 61 6c 63 20 23 5b 28 62 6f 64	s.'org-babel-execute:calc.#[(bod
0400	79 20 70 61 72 61 6d 73 29 20 22 5c 33 30 35 5c 33 30 36 21 5c 32 30 34 09 00 5c 33 30 37 5c 32	y.params)."\305\306!\204..\307\2
0420	31 33 5c 32 31 30 5c 33 31 30 5c 33 31 31 5c 33 31 32 08 5c 33 31 33 5c 22 5c 22 19 5c 33 31 30	13\210\310\311\312.\313\"\".\310
0440	5c 33 31 34 09 5c 22 1a 5c 33 31 30 5c 33 31 35 5c 6e 5c 22 1b 5c 33 31 36 5c 33 31 37 09 5c 22	\314.\".\310\315\n\".\316\317.\"
0460	5c 32 31 30 5c 33 31 36 5c 33 32 30 5c 33 31 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 66 08 5c	\210\316\320\310\321\322\323\f.\
0480	22 5c 33 32 34 5c 22 5c 22 5c 22 5c 32 31 30 2b 5c 32 31 32 72 5c 33 30 35 5c 33 30 36 21 71 5c	"\324\"\"\"\210+\212r\305\306!q\
04a0	32 31 30 5c 33 32 35 5c 33 32 36 5c 33 32 37 21 21 2a 5c 32 30 37 22 20 5b 70 61 72 61 6d 73 20	210\325\326\327!!*\207".[params.
04c0	76 61 72 73 20 76 61 72 2d 73 79 6d 73 20 76 61 72 2d 6e 61 6d 65 73 20 62 6f 64 79 20 67 65 74	vars.var-syms.var-names.body.get
04e0	2d 62 75 66 66 65 72 20 22 2a 43 61 6c 63 75 6c 61 74 6f 72 2a 22 20 28 28 62 79 74 65 2d 63 6f	-buffer."*Calculator*".((byte-co
0500	64 65 20 22 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 20 5c 32 30 37 22 20 5b 63 61 6c 63 20 63 61	de."\300.\210\301.\207".[calc.ca
0520	6c 63 2d 71 75 69 74 5d 20 31 29 29 20 6d 61 70 63 61 72 20 63 64 72 20 6f 72 67 2d 62 61 62 65	lc-quit].1)).mapcar.cdr.org-babe
0540	6c 2d 67 65 74 2d 68 65 61 64 65 72 20 3a 76 61 72 20 63 61 72 20 73 79 6d 62 6f 6c 2d 6e 61 6d	l-get-header.:var.car.symbol-nam
0560	65 20 6d 61 70 63 20 23 5b 28 70 61 69 72 29 20 22 5c 33 30 31 08 41 43 21 5c 32 31 30 5c 33 30	e.mapc.#[(pair)."\301.AC!\210\30
0580	32 08 40 21 5c 32 30 37 22 20 5b 70 61 69 72 20 63 61 6c 63 2d 70 75 73 68 2d 6c 69 73 74 20 63	2.@!\207".[pair.calc-push-list.c
05a0	61 6c 63 2d 73 74 6f 72 65 2d 69 6e 74 6f 5d 20 32 5d 20 23 5b 28 6c 69 6e 65 29 20 22 08 47 5c	alc-store-into].2].#[(line).".G\
05c0	33 30 35 56 5c 32 30 35 60 00 08 09 5c 32 33 35 5c 32 30 33 13 00 5c 33 30 36 5c 33 30 37 08 21	305V\205`...\235\203..\306\307.!
05e0	21 5c 32 30 37 08 5c 33 30 35 5c 33 31 30 4f 5c 33 31 31 5c 32 33 30 5c 32 30 33 26 00 5c 33 31	!\207.\305\310O\311\230\203&.\31
0600	32 5c 6e 08 5c 33 31 30 5c 33 31 33 4f 5c 22 5c 33 31 33 21 5c 32 30 37 5c 33 31 34 5c 33 31 35	2\n.\310\313O\"\313!\207\314\315
0620	08 21 5c 32 31 31 1b 5c 32 34 37 5c 32 30 33 34 00 0b 5c 32 30 32 5d 00 5c 33 31 36 0b 21 5c 32	.!\211.\247\2034..\202].\316.!\2
0640	30 33 40 00 5c 33 31 36 0b 21 5c 32 30 32 5d 00 0b 3c 5c 32 30 33 52 00 5c 33 31 37 5c 33 32 30	03@.\316.!\202]..<\203R.\317\320
0660	0b 5c 32 31 31 1c 41 40 29 08 23 5c 32 30 32 5d 00 5c 33 31 35 5c 33 32 31 5c 33 32 32 5c 33 32	.\211.A@).#\202].\315\321\322\32
0680	33 5c 33 32 34 08 21 40 5c 22 21 21 29 43 21 5c 32 30 37 22 20 5b 6c 69 6e 65 20 76 61 72 2d 6e	3\324.!@\"!!)C!\207".[line.var-n
06a0	61 6d 65 73 20 63 61 6c 63 2d 6d 6f 64 65 2d 6d 61 70 20 72 65 73 20 78 20 30 20 63 61 6c 63 2d	ames.calc-mode-map.res.x.0.calc-
06c0	72 65 63 61 6c 6c 20 69 6e 74 65 72 6e 20 31 20 22 27 22 20 6c 6f 6f 6b 75 70 2d 6b 65 79 20 6e	recall.intern.1."'".lookup-key.n
06e0	69 6c 20 63 61 6c 63 2d 70 75 73 68 2d 6c 69 73 74 20 63 61 6c 63 2d 65 76 61 6c 20 6d 61 74 68	il.calc-push-list.calc-eval.math
0700	2d 72 65 61 64 2d 6e 75 6d 62 65 72 20 65 72 72 6f 72 20 22 63 61 6c 63 20 65 72 72 6f 72 20 5c	-read-number.error."calc.error.\
0720	22 25 73 5c 22 20 6f 6e 20 69 6e 70 75 74 20 5c 22 25 73 5c 22 22 20 6d 61 74 68 2d 65 76 61 6c	"%s\".on.input.\"%s\"".math-eval
0740	75 61 74 65 2d 65 78 70 72 20 6d 61 70 63 61 72 20 23 5b 28 65 6c 29 20 22 08 3a 5c 32 30 33 28	uate-expr.mapcar.#[(el).".:\203(
0760	00 08 40 5c 33 30 33 5c 32 33 32 5c 32 30 33 28 00 08 5c 32 31 31 19 41 40 29 5c 6e 5c 32 33 35	..@\303\232\203(..\211.A@)\n\235
0780	5c 32 30 33 28 00 5c 33 30 34 08 5c 32 31 31 19 41 40 29 21 5c 32 31 30 5c 33 30 35 5c 33 30 36	\203(.\304.\211.A@)!\210\305\306
07a0	21 5c 33 30 37 5c 33 30 36 21 5c 32 31 30 5c 32 30 37 08 5c 32 30 37 22 20 5b 65 6c 20 78 20 76	!\307\306!\210\207.\207".[el.x.v
07c0	61 72 2d 73 79 6d 73 20 76 61 72 20 63 61 6c 63 2d 72 65 63 61 6c 6c 20 63 61 6c 63 2d 74 6f 70	ar-syms.var.calc-recall.calc-top
07e0	20 31 20 63 61 6c 63 2d 70 6f 70 5d 20 34 5d 20 6d 61 74 68 2d 72 65 61 64 2d 65 78 70 72 73 5d	.1.calc-pop].4].math-read-exprs]
0800	20 38 5d 20 6f 72 67 2d 62 61 62 65 6c 2d 74 72 69 6d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20	.8].org-babel-trim.split-string.
0820	6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 63 61 6c 63 20 22 5b 5c 6e 0d	org-babel-expand-body:calc."[\n.
0840	5d 22 20 63 61 6c 63 2d 65 76 61 6c 20 63 61 6c 63 2d 74 6f 70 20 31 5d 20 38 20 28 23 24 20 2e	]".calc-eval.calc-top.1].8.(#$..
0860	20 39 34 32 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 62 2d 63 61 6c 63 29 0a	.942)]).(provide.'ob-calc).