HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/emacs-lisp/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/emacs-lisp/tcover-ses.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\304\305!\210\306\307\310\311\312\313	\314	\315	\316	\317	\320	\321	\322	\323	\324	\325	\326	\327	\330	\316	\331	\332	\316	\260&M\210\333\n	\334	\335	\336	\337	\340	\341	\342	\343	\344	\345	\346	\347	\350	\351	\260M\210\352\n\353	\354	\355	\356	\356	\357	\360	\361	\362	\363	\364	\365	\363	\366	\367	\370	\371	\372	\354	\373	\354	\374	\371	\375	\376	\354	\377	\201@	\340	\201A	\201@	\201B	\201C	\201D	\260EM\210\201E\n\353	\201F	\344	\201G	\201H	\201I	\201J	\201K	\201L	\201M	\201N	\201O	\340	\201P	\201Q	\201R	\201S	\201T	\344	\201U	\201V	\201W	\201X	\201Y	\201Z	\201[	\201\\	\201]	\201^	\201_	\201`	\201a	\260AM\210\201b\n\353	\330	\201F	\371	\357	\371	\201c	\371	\201d	\330	\201e	\201f	\330	\201g	\201f	\330	\201h	\201i	\201j	\201k	\201l	\201m	\201n	\201o	\201p	\201q	\201r	\201s	\201t	\201u	\201v	\201w	\201x	\201y	\371	\201z	\201{	\201|	\260MM\210\201}\n\353	\201~	\201	\201\200	\201	\201\201	\201	\201\202	\201\203	\201	\201\204	\201\205	\201	\201\206	\260M\210\201\207\n\353	\201\210	\201\211	\201\212	\201\213	\201\214	\201\212	\201\215	\201\212	\260M\210\201\216\n\353	\201\217	\201\220	\201\221	\201\222	\201\223	\201\224	\201\225	\371	\201\226	\201\227	\201\230	\201\231	\201\232	\201\233	\201\234	\260!M\210\201\235\n\353	\201\236	\201\237	\336	\201\237	\315	\201\240	\201\241	\201\242	\201\237	\201\243	\201\244	\201\245	\201d	\201\246	\201\247	\201\246	\201\250	\201\251	\201\252	\201\253	\201\254	\260-M\210\201\255\n\353	\201\256	\201\257	\201\260	\316	\201\261	\201\262	\201\263	\201\264	\201\265	\201\266	\201\267	\201\270	\201\271	\201\272	\201\273	\201\274	\201\275	\371	\201\276	\201\277	\371	\201\300	\201\301	\201\302	\201\303	\201\304	\201\237	\201\276	\201\305	\201\306	\201\307	\201\310	\201\311	\201\312	\201\313	\201\314	\201\315	\201\316	\201\317	\201\320	\201\321	\201\322	\201\307	\201\323	\201\324	\201\325	\201\326	\201\327	\201\330	\201\331	\201\332	\260iM\210\201\333\n\353	\201\334	\201\335	\201\336	\201\337	\201\340	\201\341	\201\342	\201\343	\201\344	\201\345	\260M\210\201\346\n\353	\201\347	\201\350	\201\351	\201\352	\201\353	\201\354	\201\355	\201\356	\201\357	\201\360	\344	\201\361	\320	\201\357	\201\362	\201\363	\201\364	\201\365	\201\241	\201\366	\201\367	\201\370	\201\371	\201\372	\201\372	\201\373	\201\374	\201\375	\201\376	\201\377	\201	\201	\260CM\210\201\n\353	\201	\201	\201\363	\201	\201	\201	\201	\201		\201\n	\201	\201	\201\f	\344	\201
	\201	\201	\201	\201\240	\201\240	\344	\201	\201\237	\201	\201W	\2603M\210\201\n\353	\201	\201	\201	\201	\201	\201	\201	\201	\201	\201	\201	\201	\201	\201 	\201!	\201\"	\201#	\201$	\201%	\201&	\201'	\316	\201(	\201)	\201*	\201+	\201,	\201-	\201	\201.	\201/	\2010	\201	\2011	\2012	\2013	\2014	\201/	\2015	\2016	\201/	\2015	\2017	\2018	\201	\2019	\201	\201:	\201;	\201	\201<	\2015	\260kM\210\201=\n\353	\201>	\201'	\201?	\201@	\201A	\201B	\316	\201	\201C	\201D	\201E	\201F	\201G	\201F	\201\"	\201H	\201I	\201J	\201K	\201L	\201M	\201N	\260/M\210\201O\n\353	\201P	\201?	\201Q	\201R	\201S	\201T	\201U	\201V	\201W	\201X	\201Y	\201Z	\201[	\201\\	\260M\210+\306\207" [pause x y data-directory require testcover nil "" "ses-test.ses
<" ses-exercise-example "" "ses-example.ses
<" "10" "" "" "pses-center
" "p
" "		" "
 A9 B9
" "" "
2
" "" "50
" "4" "\f" "(+ o" "-1o 
" ses-exercise-new "\"%.8g\"
" "2
" "" "" "2" "\"Header
" "(sqrt 1
" "pses-center
" "	" "(+ A2 A3
" "(* B2 A3
" "2" "
B3
" "" ses-exercise-display ":(revert-buffer t t)
" "" "\"Very long
" "w3
" "(/ 1 0
" "234567
" "5w" "	1
" "" "234567
" "	" "345678
" "3w" ">" "" "" "" "" "1
" "" "\"1234567-1234567-1234567
" "123
" "\"1234567-1234567-1234567
" "w8
" "\"1234567
" "w5
" ses-exercise-formulas "		" "(* 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)
" "" "5	" "(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)
" "k" "" "" "2" "3" "o" "2o" "3k" "(ses-average (ses-range B3 E3)
" "k" "12345678
" ses-exercise-recalc "\n" "\"%.6g\"
" ">nw" ">xdelete-region
" "8" "" "k" "\f" "\"Very long
" "" "

" "" "o" "" "\"Very long2
" "o" "" "
C3
" "
C2
" "" "
C4
" "
C2
" "" "xses-mode
" "<" "2k" ses-exercise-header-row "<" ">" "6<" "7<" "8<" "2<" "3w" "10<" "2" ses-exercise-unsafe "p(lambda (x) (delete-file x))
n" "p(lambda (x) (delete-file \"ses-nothing\"))
y" "n" "(delete-file \"x\"
n" "(delete-file \"ses-nothing\"
y" "(open-network-stream \"x\" nil \"localhost\" \"smtp\"
y" ses-exercise-rows "" "\"%s=\"
" "20" "p\"%s+\"
" "" "123456789
" "21" "\f" "(not B25
" "k" "jA3
" "19" "" "100" ses-exercise-columns "\"%s@\"
" "o" "k" "w8
" "p\"%.7s*\"
" "" "2o" "3k" "26o" "26	" "0
" "26	" "400" "50k" "D" ses-exercise-editing "1
" "('x
" "" "

" "w9
" "
.5
" "
 10
" "w12
" "
'
" "

" "jA4
" "(+ A2 100
" "3
" "jB1
" "(not A1
" "\"Very long
" "h" "H" ">	" "" "" "2" "" "" "\"Also very long
" "H" "'
" "'Trial
" "'qwerty
" "(concat o<" "-1o
" "(apply '+ o<-1o
" "2" "-2" "-2" "2" "" "" "\"Another long one
" "H" "" "<" "" ">" "" ses-exercise-sort-column "\"Very long
" "99
" "o13
" "(+ A3 B3
" "7
8
(* A4 B4
" "A
" "B
" "C
" "o" "C
" ses-exercise-cell-printers "\"4	76
" "\"4\n7
" "p\"{%S}\"
" "p(\"[%s]\")
" "p(\"<%s>\")
" "" "p
" "pnil
" "pses-dashfill
" "48
" "p
" "pnil
" "5
" "pses-center
" "\"%s\"
" "p
" "p\"%.7g@\"
" "
" "\"%.6g#\"
" "\"%.6g.\"
" "pidentity
" "6
" "\"UPCASE
" "pdowncase
" "(* 3 4
" "p(lambda (x) '(\"Hi\"))
" "p(lambda (x) '(\"Bye\"))
" ses-exercise-spanning-printers "p\"%.6g*\"
" "pses-dashfill-span
" "pses-tildefill-span
" "\"4
" "p\"$%s\"
" "p(\"$%s\")
" "8
" "p(\"!%s!\")
" "	\"12345678
" "\"23456789
" "(not t
" "w6
" "\"5
" "o" "" "2k" ses-exercise-paste-1buf "w" "" "o" "\"middle
" "" "w" "" "" "" "2y" "y" "y" ">" "y" ">y" "<" "p\"<%s>\"
" "pses-dashfill
" "" "" "y" "
w" "
" "3(+ G2 H1
" "w" ">" "8(ses-average (ses-range G2 H2)
" "k" "7" "(ses-average (ses-range E7 E9)
" "" "" "(ses-average (ses-range E7 F7)
" "" "(ses-average (ses-range D6 E6)
" "2" "\"Line A
" "\"Subline A(1)
" "w" "" "w" ses-exercise-paste-2buf "o\"middle
" "4bses-test.txt
" " " "\"xxx" "wo" "o\"" "wo" "o123.45" "o" "o1 " "o symb" "oy2y" "o1	" "o" "w9\np\"<%s>\"\n" "o\n2	\"3\nxxx	5\n" "oy" ses-exercise-import-export "xt" "\n-1o" "xTo-1o" "'crunch
" "pses-center-span
" "xT" "o\n-1o" "y" "xt" "y" "12345678
" "'bunch
" "xtxT"] 108)
#@40 Executes all SES coverage-test macros.
(defalias 'ses-exercise-macros #[nil "\302\303\211\205	@\304\305\"\210\306!\210	A\211\204\303*\207" [x --dolist-tail-- (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) nil message "<Testing %s>" execute-kbd-macro] 4 (#$ . 8123)])
#@113 Exercise code paths that lead to error signals, other than those for
spreadsheet files with invalid formatting.
(defalias 'ses-exercise-signals #[nil "\304\305!\210\306\307!\210\310 \210\311\312!\210\313 \210\314\315\211\203G	@\3161;\31712\320!\210\321\322\315\"00\202?0\210\323\324\"\202?\210\202@\210	A\211\204*\325\211\3261i\3271a\330\331!\210\321\322\315\"00\202m0\210\323\332!\202m\210\202n\210\315\211)\207" [x --dolist-tail-- 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")) nil (error) (singularity-error) eval signal singularity-error error "No error from %s?" t (error) (singularity-error) ses-update-cells (A1) "Quit failure in ses-update-cells"] 4 (#$ . 8725)])
#@59 Execute code paths that detect invalid spreadsheet files.
(defalias 'ses-exercise-invalid-spreadsheets #[nil "\306\307\310\311\312\313-.\314\315\316\317\320\321\322\323\324\325\326\327\330.\331\nQ.\332\nQ.-\333Q.-\334\nR.-
\335\n\260.-
\336\n\260.-
\f\337\n\260.-
\f\340\n\260.-
\f\n\260.-
\f\341	\260\257\342/\2110\205\2750@/\3431\256\3441\244\345\346!1r1q\210\347\216/c\210\350 \210\351\352\342\"+00\202\2620\210\353\354/\"\202\262\210\202\263\2100A\2110\204z\342.	\207" [ses-initial-global-parameters igp p11 hr dp cp "\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)" "(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)" "(x)\n(x)\n(x)\n(x)\n" "(ses-column-widths)(x)\n(x)\n(x)\n" "(x)\n(x)\n(x)\n(2 1 1)" "(ses-column-printers)(x)\n(x)\n" "(x)\n(x)\n" "(ses-default-printer)(x)\n" "(x)\n" "(ses-header-row)" "\n" nil (error) (singularity-error) generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] ses-load signal singularity-error error "%S is an invalid spreadsheet!" cw p&d x --dolist-tail-- #1#] 30 (#$ . 10712)])
#@28 Prepare for coverage tests
(defalias 'ses-exercise-startup #[nil "\3031\304\305!0\202\210\202\210\3061\304\307!0\202\210\202 \210\3101+\311\307!0\202/\210\2020\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 (#$ . 12176)])
#@59 Executes all SES coverage tests and displays the results.
(defalias 'ses-exercise #[nil "\306 \210\307\310\311\312\313\307\314 \210\315 \210\316 \210\317\320!3r3q\210\321\216\322c\210\323 \210+\324\325\326\327\211#\210)4?4\330\311!\210\331 \210)\332\307\333\327\211\334#\210\335\327\211\336#\210.\336\307\337\340!\210\341\342!\210\343\342!\210*\307\344\307\2115\203\2425@\3458A@@\317\320!6r6q\210\346\216\347\336!\210\350 \210.5A\2115\204q+\3077\351 \210)\352\353!\210\351 \210\337\354!\210\355\356!\210\357 \210\360 \210\341\361!\210\337\362!\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*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer 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 x 0 scroll-left ses-create-header-string (forward-line) ses-read-cell 1 ses-read-symbol t message "<Checking safe-functions = t>" kill-buffer "ses-example.ses" find-file (("%.6g" 8 (2 . 2)) ("%.8g" 6 (3 . 3))) 2 #[nil "\301!\205	\302!\207" [#2=#:temp-buffer 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" #1# window-system --dolist-tail-- #2# curcell-overlay] 7 (#$ . 12845) nil])