;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\301\302!\210\301\303!\210\304\305\306QM\210\307\310M\210\311\312M\210\313\314M\210\315\316M\210\317\320M\210\321\322M\210\323\324M\210\325\326M\210\327\330M\210\331\332M\210\333\334M\210\335\336M\210\337\340M\210\341\342M\210\343\344M\207" [data-directory require testcover ses ses-exercise-example "" "ses-example.ses
<10pses-center
p
		
 A9 B9


2
50
4\f(+ o-1o 
" ses-exercise-new "ses-test.ses
<\"%.8g\"
2
2\"Header
(sqrt 1
pses-center
	(+ A2 A3
(* B2 A3
2
B3
" ses-exercise-display "ses-test.ses
<:(revert-buffer t t)
\"Very long
w3
w3
(/ 1 0
234567
5w	1
234567
	345678
3w>
1
\"1234567-1234567-1234567
123
2\"1234567-1234567-1234567
123
w8
\"1234567
w5
" ses-exercise-formulas "ses-test.ses
<:(revert-buffer t t)
			(* B1 B2 D1
(* B2 B3
(apply '+ (ses-range B1 B3)
(apply 'ses+ (ses-range B1 B3)
(apply 'ses+ (ses-range A2 A3)
(mapconcat'number-to-string(ses-range B2 B4) \"-\"
(apply 'concat (reverse (ses-range A3 D3))
(* (+ A2 A3) (ses+ B2 B3)
25	(apply 'ses+ (ses-range E1 E2)
(apply 'ses+ (ses-range A5 B5)
(apply 'ses+ (ses-range E1 F1)
(apply 'ses+ (ses-range D1 E1)
	(ses-average (ses-range A2 A5)
(apply 'ses+ (ses-range A5 A6)
k23o2o3k(ses-average (ses-range B3 E3)
k12345678
" ses-exercise-recalc "ses-test.ses
<:(revert-buffer t t)
\f		(/ 1 0
\n\"%.6g\"
\f>nw>xdelete-region
\f8>xdelete-region
\fk\f\"Very long


o\"Very long2
o
C3

C2

C4

C2
xses-mode
<2k" ses-exercise-header-row "ses-test.ses
<:(revert-buffer t t)
<>6<>7<>8<2<>3w10<>2" ses-exercise-unsafe "ses-test.ses
<:(revert-buffer t t)
p(lambda (x) (delete-file x))
np(lambda (x) (delete-file \"ses-nothing\"))
yn(delete-file \"x\"
n(delete-file \"ses-nothing\"
yn(open-network-stream \"x\" nil \"localhost\" \"smtp\"
yn" ses-exercise-rows "ses-test.ses
<:(revert-buffer t t)
\"%s=\"
20p\"%s+\"
123456789
21\f(not B25
kjA3
19100" ses-exercise-columns "ses-test.ses
<:(revert-buffer t t)
\"%s@\"
ookw8
p\"%.7s*\"
o2o3k\"%.6g\"
26o26	26o0
26	40050kD" ses-exercise-editing "ses-test.ses
<:(revert-buffer t t)
1
('x


w9

.5

 10
w12


'



jA4
(+ A2 100
3
jB1
(not A1
\"Very long
hH>	2oh\"Also very long
H'
'Trial
'qwerty
(concat o<-1o
(apply '+ o<-1o
2-2-22H\"Another long one
H
<>" ses-exercise-sort-column "ses-test.ses
<:(revert-buffer t t)
\"Very long
99
o13
(+ A3 B3
7
8
(* A4 B4
A
B
C
oC
" ses-exercise-cell-printers "ses-test.ses
<:(revert-buffer t t)
\"4	76
\"4\n7
p\"{%S}\"
p(\"[%s]\")
p(\"<%s>\")
p
pnil
pses-dashfill
48
	p
p
pses-dashfill
pnil
5
pses-center
\"%s\"
w8
p
p\"%.7g@\"

\"%.6g#\"
\"%.6g.\"
\"%.6g.\"
pidentity
6
\"UPCASE
pdowncase
(* 3 4
p(lambda (x) '(\"Hi\"))
p(lambda (x) '(\"Bye\"))
" ses-exercise-spanning-printers "ses-test.ses
<:(revert-buffer t t)
p\"%.6g*\"
pses-dashfill-span
5
pses-tildefill-span
\"4
p\"$%s\"
p(\"$%s\")
8
p(\"!%s!\")
	\"12345678
pses-dashfill-span
\"23456789
	(not t
w6
\"5
okk	o2kk" ses-exercise-paste-1buf "ses-test.ses
<:(revert-buffer t t)
wo\"middle
ww2yyy>y>y<p\"<%s>\"
pses-dashfill
y
w
3(+ G2 H1
w>8(ses-average (ses-range G2 H2)
k7(ses-average (ses-range E7 E9)
(ses-average (ses-range E7 F7)
k(ses-average (ses-range D6 E6)
k
2\"Line A
pses-tildefill-span
\"Subline A(1)
pses-dashfill-span
w
w" ses-exercise-paste-2buf "ses-test.ses
<:(revert-buffer t t)
o\"middle
4bses-test.txt
 
\"xxxwoo\"woo123.45oo1 o>yo symboy2yo1	ow9\np\"<%s>\"\no\n2	\"3\nxxx	5\noy" ses-exercise-import-export "ses-test.ses
<:(revert-buffer t t)
xt4bses-test.txt
\n-1oxTo-1o'crunch
pses-center-span
xTo\n-1oyxty12345678
'bunch
xtxT"] 4)
#@40 Executes all SES coverage-test macros.
(defalias 'ses-exercise-macros #[0 "\300\211\205\211@\301\302\"\210\303
!\210
A\266\202\202
\207" [(ses-exercise-example ses-exercise-new ses-exercise-display ses-exercise-formulas ses-exercise-recalc ses-exercise-header-row ses-exercise-unsafe ses-exercise-rows ses-exercise-columns ses-exercise-editing ses-exercise-sort-column ses-exercise-cell-printers ses-exercise-spanning-printers ses-exercise-paste-1buf ses-exercise-paste-2buf ses-exercise-import-export) message "<Testing %s>" execute-kbd-macro] 5 (#$ . 4484)])
#@113 Exercise code paths that lead to error signals, other than those for
spreadsheet files with invalid formatting.
(defalias 'ses-exercise-signals #[0 "\302\303!\210\304\305!\210\306 \210\307\310!\210\311 \210\312\211\203A\211@\31319\3141/\315
!\210\316\317\320\"00\210\202:0\210\321\322\"\210\202:\210
A\266\202\202\210\323\211\3241e\3251\\\326\327!\210\316\317\320\"00\210\202f0\210\321\330!\210\202f\210\320\211)\207" [inhibit-quit quit-flag message "<Checking for expected errors>" switch-to-buffer "ses-test.ses" deactivate-mark ses-jump A1 ses-set-curcell ((ses-column-widths 14) (ses-column-printers "%s") (ses-column-printers ["%s" "%s" "%s"]) (ses-column-widths [14]) (ses-delete-column -99) (ses-delete-column 2) (ses-delete-row -1) (ses-goto-data 'hogwash) (ses-header-row -56) (ses-header-row 99) (ses-insert-column -14) (ses-insert-row 0) (ses-jump 'B8) (ses-printer-validate '("%s" t)) (ses-printer-validate '([47])) (ses-read-header-row -1) (ses-read-header-row 32767) (ses-relocate-all 0 0 -1 1) (ses-relocate-all 0 0 1 -1) (ses-select (ses-range A1 A2) 'x (ses-range B1 B1)) (ses-set-cell 0 0 'hogwash nil) (ses-set-column-width 0 0) (ses-yank-cells #("a\nb" 0 1 (ses (A1 nil nil)) 2 3 (ses (A3 nil nil))) nil) (ses-yank-cells #("ab" 0 1 (ses (A1 nil nil)) 1 2 (ses (A2 nil nil))) nil) (ses-yank-pop nil) (ses-yank-tsf "1	2\n3" nil) (let ((curcell nil)) (ses-check-curcell)) (let ((curcell 'A1)) (ses-check-curcell 'needrange)) (let ((curcell '(A1 . A2))) (ses-check-curcell 'end)) (let ((curcell '(A1 . A2))) (ses-sort-column "B")) (let ((curcell '(C1 . D2))) (ses-sort-column "B")) (execute-kbd-macro "jB10\n2") (execute-kbd-macro [106 66 57 10 0 6 6 cut]) (progn (kill-new "x") (execute-kbd-macro ">n")) (execute-kbd-macro "w")) (error) (singularity-error) eval signal singularity-error nil error "No error from %s?" t (error) (singularity-error) ses-update-cells (A1) "Quit failure in ses-update-cells"] 6 (#$ . 5056)])
#@59 Execute code paths that detect invalid spreadsheet files.
(defalias 'ses-exercise-invalid-spreadsheets #[0 "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327P\257\211\205]\211@\3301U\3311K\332\333\334\"r\211q\210\335\336\"\216
c\210\337 \210\340\341\342\"*\262
00\210\202V0\210\343\344\"\210\202V\210
A\266\202\202\207" [ses-initial-global-parameters "(1)" "(x 2 3)" "(1 x 3)" "(1 -1 0)" "(1 2 x)" "(1 2 -1)" "(3 1 1)" "\n\n\f(2 1 1)" "\n\n\f\n(ses-cell)(2 1 1)" "\n\n\f\n(x)\n(2 1 1)" "\n\n\n\f\n(ses-cell A2)\n(2 2 2)" "\n\n\n\f\n(ses-cell B1)\n(2 2 2)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(x)\n(x)\n(x)\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths)(x)\n(x)\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(x)\n(x)\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers)(x)\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(x)\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(ses-default-printer)(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(ses-default-printer \"%.7g\")\n(x)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(ses-default-printer \"%.7g\")\n(ses-header-row)(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(ses-default-printer \"%.7g\")\n(ses-header-row 0)\n(2 1 1)" "\n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [ses-center])\n(ses-default-printer \"%.7g\")\n\n(ses-header-row 0)\n" (error) (singularity-error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] ses-load signal singularity-error nil error "%S is an invalid spreadsheet!"] 25 (#$ . 7022)])
#@29 Prepare for coverage tests.
(defalias 'ses-exercise-startup #[0 "\3031\f\304\305!0\210\202
\210\3061\304\307!0\210\202\210\3101&\311\307!0\210\202'\210\312 \210\313\314\315!\210\316\317	\"\316\320\n\"\321\315\322\"\210*\323\324!\207" [ses-mode-map testcover-1value-functions testcover-constants (error) kill-buffer "ses-example.ses" (error) "ses-test.ses" (file-error) delete-file delete-other-windows nil testcover-unmark-all "ses.el" append (forward-line remove-text-properties ses-recalculate-cell ses-dorange ses-dotimes-msg) (ses-mode-map ses-mode-print-map ses-mode-edit-map) testcover-start t require unsafep] 4 (#$ . 9169)])
#@59 Executes all SES coverage tests and displays the results.
(defalias 'ses-exercise #[0 "\306 \210\307\310\311\312\313\307\314 \210\315 \210\316 \210\317\320\321\"r\211q\210\322\323\"\216\324c\210\325 \210*\210\326\327\330\331\211#\210)4?4\332\311!\210\333 \210)\334\307\335\331\211\336#\210\337\331\211\321#\210.\321\307\340\341!\210\342\343!\210\344\343!\210*\307\345\211\203\231\211@\346
8
A@@\317\320\321\"r\211q\210\322\347\"\216\350\321!\210\351 \210*\210+
A\266\202\202j\210)\3075\352 \210)\353\354!\210\352 \210\340\355!\210\356\357!\210\360 \210\361 \210\342\362!\210\340\363!\207" [ses-mode-hook ses-after-entry-functions ses-initial-default-printer ses-initial-column-width ses-initial-size safe-functions ses-exercise-startup nil (1 . 1) 7 "%.7g" (forward-char) ses-exercise-macros ses-exercise-signals ses-exercise-invalid-spreadsheets generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] "       \n\n\f\n(ses-cell A1 nil nil nil nil)\n\n(ses-column-widths [7])\n(ses-column-printers [nil])\n(ses-default-printer \"%.7g\")\n\n( ;Global parameters (these are read first)\n 1 ;SES file-format\n 1 ;numrows\n 1 ;numcols\n)\n\n" ses-load [1 2 3] ses-vector-delete tcover-ses--x 0 scroll-left ses-create-header-string (forward-line) ses-read-cell 1 ses-read-symbol message "<Checking safe-functions = t>" kill-buffer "ses-example.ses" find-file (("%.6g" 8 (2 . 2)) ("%.8g" 6 (3 . 3))) 2 #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-modified-p ses-mode ses-command-hook switch-to-buffer "*scratch*" "<Marking source code>" testcover-mark-all "ses.el" testcover-next-mark delete-other-windows "ses-test.txt" "Done" window-system ses--curcell-overlay] 6 (#$ . 9819) nil])