|
Server IP : 111.118.215.189 / Your IP : 18.224.51.27 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/emacs-lisp/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:05 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/tcover-ses.el
;;; in Emacs version 24.3.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 \260 M\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 \260 M\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\\ \260 M\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 (#$ . 8279)])
#@113 Exercise code paths that lead to error signals, other than those for
spreadsheet files with invalid formatting.
(defalias 'ses-exercise-signals #[nil "\306\307!\210\310\311!\210\312 \204 \205\203 \n\313=\203 \242\313=\202 \n\203X \314 \203X \315 \203X \203; \316\317 \"\210\312\202X \320 \321 U\204X \322\317!\204O \323\317!\204X \316\317\320 \321 {\"\210\204t \324=\204n \242\313=\203t A\204t \312\211\202\203 \242\313=\203~ A\312\325\326!)\210\327\330!\210\331 \210\332\312 \211 \203\247 @\312\333\334\217\210 A\211 \204\225 *\335\211 !\"\312\336\337\217\210\312\211\")\207" [force transient-mark-mode select-active-regions saved-region-selection mark-active x message "<Checking for expected errors>" switch-to-buffer "ses-test.ses" nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook 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")) (byte-code "\301!\210\302\303\304\"\207" [x eval signal singularity-error nil] 3) ((singularity-error (error "No error from %s?" x)) (error)) t (byte-code "\300\301!\210\302\303\304\"\207" [ses-update-cells (A1) signal singularity-error nil] 3) ((singularity-error (error "Quit failure in ses-update-cells")) (error)) --dolist-tail-- inhibit-quit quit-flag] 5 (#$ . 8881)])
#@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 '\211 (\205\216 (@'\342\343\344\217\210(A\211(\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 (byte-code "\302\303!rq\210\304\216 c\210\305 \210\306\307\310\"\210+\310\207" [#1=#:temp-buffer x generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ses-load signal singularity-error nil] 3) ((singularity-error (error "%S is an invalid spreadsheet!" x)) (error)) cw p&d x --dolist-tail--] 30 (#$ . 11422)])
#@28 Prepare for coverage tests
(defalias 'ses-exercise-startup #[nil "\303\304\305\217\210\303\306\307\217\210\303\310\311\217\210\312 \210\303\313\314!\210\315\316 \"\315\317\n\"\320\314\321\"\210*\322\323!\207" [ses-mode-map testcover-1value-functions testcover-constants nil (kill-buffer "ses-example.ses") ((error)) (kill-buffer "ses-test.ses") ((error)) (delete-file "ses-test.ses") ((file-error)) delete-other-windows 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 (#$ . 12888)])
#@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 \211 5\203\242 5@\3458A@@ \317\320! 6r6q\210\346\216\347\336!\210\350 \210.5A\2115\204q +\307 7\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*" ((byte-code "\301!\203\n \302!\210\301\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 ((byte-code "\301!\203\n \302!\210\301\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 (#$ . 13545) nil])