;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Apr 19 23:54:14 1998 ;;; from file /gd/gnu/emacs/lisp/array.el ;;; in Emacs version 20.2.91.4 ;;; with bytecomp version 2.40 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`array.el' was compiled for Emacs 19.29 or later")) #@86 Returns t if the cursor is in a valid array cell. Its ok to be on a row number line. (defalias 'array-cursor-in-array-range #[nil " \246 \fY\206+ _Y\206+ T\246\306U\205+\n\306U?\205+ \n _Y)?\207" [max-column columns-per-line columns-last-line buffer-column line-length buffer-line 0 lines-per-row max-row field-width] 3 (#$ . 525)]) #@67 Return the array row of the field in which the cursor is located. (defalias 'array-current-row #[nil "\302 \205\n\303 \"T\207" [buffer-line lines-per-row array-cursor-in-array-range floor] 3 (#$ . 877)]) #@70 Return the array column of the field in which the cursor is located. (defalias 'array-current-column #[nil "\306 \205(\205 \n\246\307U?\205( \203 \n\246S\202! \n\246_\310\f \"T\\\207" [rows-numbered buffer-line lines-per-row columns-per-line buffer-column field-width array-cursor-in-array-range 0 floor] 4 (#$ . 1089)]) #@109 Set `array-row' and `array-column' to their current values or to the optional arguments A-ROW and A-COLUMN. (defalias 'array-update-array-position #[(&optional a-row a-column) "\206\304 \n\206 \305 \211\207" [a-row array-row a-column array-column array-current-row array-current-column] 2 (#$ . 1426)]) #@60 Set buffer-line and buffer-column to their current values. (defalias 'array-update-buffer-position #[nil "\302 i\211\207" [buffer-line buffer-column current-line] 2 (#$ . 1741)]) #@63 Display the row and column in which the cursor is positioned. (defalias 'array-what-position #[nil "\302 i\303\304\305\306 !\305\307 !#*\207" [buffer-column buffer-line current-line message "Array row: %s Array column: %s" prin1-to-string array-current-row array-current-column] 5 (#$ . 1928) nil]) #@69 Display the current state of the local variables in the minibuffer. (defalias 'array-display-local-variables #[nil "\306p!\307\220\310 !\210\311 \210\312\313\314\"!\210\312\313\315\316\n!\"!\210\312\313\317\316 !\"!\210\312\313\320\316\f!\"!\210\312\313\321\316 !\"!\210\312\313\322\316!\"!\210\312\313\323\316!\"!\210\312\313\324\316!\"!\221)\207" [buf standard-output max-row max-column columns-per-line field-width buffer-name "*Local Variables*" buffer-disable-undo terpri princ format " Buffer: %s\n\n" " max-row: %s\n" prin1-to-string " max-column: %s\n" " columns-per-line: %s\n" " field-width: %s\n" " rows-numbered: %s\n" " lines-per-row: %s\n" " line-length: %s\n" rows-numbered lines-per-row line-length] 6 (#$ . 2236) nil]) #@118 Return the column of the beginning of the current field. Optional argument GO-THERE, if non-nil, means go there too. (defalias 'array-beginning-of-field #[(&optional go-there) "\211 \246Z \203\304\n!\202\n)\207" [buffer-column field-width goal-column go-there move-to-column-untabify] 3 (#$ . 3044)]) #@114 Return the column of the end of the current array field. If optional argument GO-THERE is non-nil, go there too. (defalias 'array-end-of-field #[(&optional go-there) "\211 \246Z \\ \203\304\n!\202\n)\207" [buffer-column field-width goal-column go-there move-to-column-untabify] 3 (#$ . 3358)]) #@130 Move to array row A-ROW and array column A-COLUMN. Leave point at the beginning of the field and return the new buffer column. (defalias 'array-move-to-cell #[(a-row a-column) " S_\n\203\f\306\202 \307\\\310 S\f\"\\ S\f\246_\n eb\210 y\210\311\n!*\207" [lines-per-row a-row rows-numbered a-column columns-per-line field-width 1 0 floor move-to-column-untabify goal-column goal-line] 4 (#$ . 3665)]) #@134 Move to array row A-ROW preserving the current array column. Leave point at the beginning of the field and return the new array row. (defalias 'array-move-to-row #[(a-row) " S_\n\246\\ \211\f\246Z\211\nZy\210\306 !\210 *\207" [lines-per-row a-row buffer-line buffer-column field-width goal-column move-to-column-untabify goal-line] 5 (#$ . 4081)]) #@140 Move to array column A-COLUMN preserving the current array row. Leave point at the beginning of the field and return the new array column. (defalias 'array-move-to-column #[(a-column) "\211 \246Z\n\203 \306\202\307\\\310 S\f\"\\ S\f\246_\n\211 Zy\210\311\n!\210 *\207" [buffer-line lines-per-row rows-numbered a-column columns-per-line field-width 1 0 floor move-to-column-untabify goal-column goal-line] 5 (#$ . 4441)]) #@184 Move one array row in direction SIGN (1 or -1). Leave point at the beginning of the field and return the new array row. If requested to move beyond the array bounds, signal an error. (defalias 'array-move-one-row #[(sign) "\305 \306 \206\n\307\310!\nU\203 \311U\203\307\312!\202<\311U\2030 \313U\2030\307\314!\202< \f_y\210\315 !\210 \\*\207" [array-row goal-column max-row sign lines-per-row array-beginning-of-field array-current-row error "Cursor is not in a valid array cell." 1 "End of array." -1 "Beginning of array." move-to-column-untabify] 3 (#$ . 4878)]) #@190 Move one array column in direction SIGN (1 or -1). Leave point at the beginning of the field and return the new array column. If requested to move beyond the array bounds, signal an error. (defalias 'array-move-one-column #[(sign) "\305 \206\306\307!\211 U\203\n\310U\203\306\311!\202h\310U\203-\n\312U\203-\306\313!\202h\n\312U\203H \246\310U\203H\312y\210\314\f S_!\210\202e\n\310U\203\\ \246\315U\203\\\310y\210\202e\314\316 \f\n_\\!\210\n\\)\207" [array-column max-column sign columns-per-line field-width array-current-column error "Cursor is not in a valid array cell." 1 "End of array." -1 "Beginning of array." move-to-column-untabify 0 array-beginning-of-field] 5 (#$ . 5464)]) #@135 Move the cursor to the first non-whitespace character in the field and, if necessary, scroll horizontally to keep the cursor in view. (defalias 'array-normalize-cursor #[nil "i\301\212\302\303!\210`)Sw\210\304 )\207" [buffer-column " " array-end-of-field t array-maybe-scroll-horizontally] 3 (#$ . 6179)]) #@63 If necessary, scroll horizontally to keep the cursor in view. (defalias 'array-maybe-scroll-horizontally #[nil "\303 \304 \n Y\203\n \\X\203\305\2025\n \\V\203,\306\n Z\307\245Z!\2025\310 \nZ\307\245\\!*\207" [w-width w-hscroll buffer-column window-hscroll window-width nil scroll-left 2 scroll-right] 4 (#$ . 6493)]) #@115 Move down one array row, staying in the current array column. If optional ARG is given, move down ARG array rows. (defalias 'array-next-row #[(&optional arg) "\304 i\305\n!\306U\203\307\n!\210\202$\310\311\312 \206\313\314!\n\\ \"!\210*\315 \207" [buffer-column buffer-line arg max-row current-line abs 1 array-move-one-row array-move-to-row limit-index array-current-row error "Cursor is not in an array cell." array-normalize-cursor] 4 (#$ . 6831) "p"]) #@111 Move up one array row, staying in the current array column. If optional ARG is given, move up ARG array rows. (defalias 'array-previous-row #[(&optional arg) "\301[!\207" [arg array-next-row] 2 (#$ . 7301) "p"]) #@189 Move forward one field, staying in the current array row. If optional ARG is given, move forward ARG array columns. If necessary, keep the cursor in the window by scrolling right or left. (defalias 'array-forward-column #[(&optional arg) "\304 i\305\n!\306U\203\307\n!\210\202$\310\311\312 \206\313\314!\n\\ \"!\210*\315 \207" [buffer-column buffer-line arg max-column current-line abs 1 array-move-one-column array-move-to-column limit-index array-current-column error "Cursor is not in an array cell." array-normalize-cursor] 4 (#$ . 7521) "p"]) #@191 Move backward one field, staying in the current array row. If optional ARG is given, move backward ARG array columns. If necessary, keep the cursor in the window by scrolling right or left. (defalias 'array-backward-column #[(&optional arg) "\301[!\207" [arg array-forward-column] 2 (#$ . 8083) "p"]) #@50 Go to array row A-ROW and array column A-COLUMN. (defalias 'array-goto-cell #[(a-row a-column) "\304\305 \"\305\n \"\"\210\306 \207" [a-row max-row a-column max-column array-move-to-cell limit-index array-normalize-cursor] 5 (#$ . 8391) "nArray row: \nnArray column: "]) #@57 Return the field string at the current cursor location. (defalias 'array-field-string #[nil "\212\300\301!\210`)\212\302\301!\210`){\207" [array-beginning-of-field t array-end-of-field] 3 (#$ . 8669)]) #@207 Copy the current field into one array row in direction SIGN (1 or -1). Leave point at the beginning of the field and return the new array row. If requested to move beyond the array bounds, signal an error. (defalias 'array-copy-once-vertically #[(sign) "\305!\306`\212\307\306!\210`)|\210 c\210)\310\f!\210 )\207" [sign a-row inhibit-quit copy-string buffer-column array-move-one-row t array-end-of-field move-to-column] 3 (#$ . 8878)]) #@213 Copy the current field into one array column in direction SIGN (1 or -1). Leave point at the beginning of the field and return the new array column. If requested to move beyond the array bounds, signal an error. (defalias 'array-copy-once-horizontally #[(sign) "\305!\306 \210\307`\212\310\307!\210`)|\210 c\210)\311\f!\210 )\207" [sign a-column inhibit-quit copy-string buffer-column array-move-one-column array-update-buffer-position t array-end-of-field move-to-column] 3 (#$ . 9325)]) #@121 Copy the current field vertically into every cell up to and including A-ROW. Leave point at the beginning of the field. (defalias 'array-copy-to-row #[(a-row) " Z\306\n!\211\307U?\205\n \245 \307V\205=\310\f!\210\311 \210\312`\212\313\312!\210`)|\210 c\210)\314!\210 S\211\202+\207" [a-row array-row num count sign inhibit-quit abs 0 array-move-one-row array-update-buffer-position t array-end-of-field move-to-column copy-string buffer-column] 4 (#$ . 9824)]) #@127 Copy the current field horizontally into every cell up to and including A-COLUMN. Leave point at the beginning of the field. (defalias 'array-copy-to-column #[(a-column) " Z\306\n!\211\307U?\205\n \245 \307V\205=\310\f!\210\311 \210\312`\212\313\312!\210`)|\210 c\210)\314!\210 S\211\202+\207" [a-column array-column num count sign inhibit-quit abs 0 array-move-one-column array-update-buffer-position t array-end-of-field move-to-column copy-string buffer-column] 4 (#$ . 10306)]) #@101 Copy the current field into the cell at A-ROW, A-COLUMN. Leave point at the beginning of the field. (defalias 'array-copy-to-cell #[(a-row a-column) "\304 \"\210\305 \210`\212\306\307!\210`)|\210\nc\210\310 !\207" [a-row a-column copy-string buffer-column array-move-to-cell array-update-buffer-position array-end-of-field t move-to-column] 3 (#$ . 10810)]) #@104 Copy the current field one array row down. If optional ARG is given, copy down through ARG array rows. (defalias 'array-copy-down #[(&optional arg) "\306 i\307 \206 \310\311!\312 \313\f!\314U\203 \315\f!\210\202)\316\317\n\f\\ \"!\210,\320 \207" [buffer-line buffer-column array-row copy-string arg max-row current-line array-current-row error "Cursor is not in a valid array cell." array-field-string abs 1 array-copy-once-vertically array-copy-to-row limit-index array-normalize-cursor] 4 (#$ . 11176) "p"]) #@100 Copy the current field one array row up. If optional ARG is given, copy up through ARG array rows. (defalias 'array-copy-up #[(&optional arg) "\301[!\207" [arg array-copy-down] 2 (#$ . 11700) "p"]) #@126 Copy the current field one array column to the right. If optional ARG is given, copy through ARG array columns to the right. (defalias 'array-copy-forward #[(&optional arg) "\306 i\307 \206 \310\311!\312 \313\f!\314U\203 \315\f!\210\202)\316\317\n\f\\ \"!\210,\320 \207" [buffer-line buffer-column array-column copy-string arg max-column current-line array-current-column error "Cursor is not in a valid array cell." array-field-string abs 1 array-copy-once-horizontally array-copy-to-column limit-index array-normalize-cursor] 4 (#$ . 11906) "p"]) #@124 Copy the current field one array column to the left. If optional ARG is given, copy through ARG array columns to the left. (defalias 'array-copy-backward #[(&optional arg) "\301[!\207" [arg array-copy-forward] 2 (#$ . 12469) "p"]) #@134 Copy the entire current column in to the column to the right. If optional ARG is given, copy through ARG array columns to the right. (defalias 'array-copy-column-forward #[(&optional arg) "\306 \210\307 \210\204\310\311!\210\312\313!\210\314 \nW\203D T\315 \"\210\306 \210\316 \317\f!\320U\2037\321\f!\210\202@\322\323\f\\ \"!\210)\202)\312\324!\210\325!\210\326 \207" [array-column this-row max-row copy-string arg max-column array-update-buffer-position array-update-array-position error "Cursor is not in a valid array cell." message "Working..." 0 array-move-to-cell array-field-string abs 1 array-copy-once-horizontally array-copy-to-column limit-index "Working...done" array-move-to-row array-normalize-cursor array-row] 4 (#$ . 12708) "p"]) #@120 Copy the entire current column one column to the left. If optional ARG is given, copy through ARG columns to the left. (defalias 'array-copy-column-backward #[(&optional arg) "\301[!\207" [arg array-copy-column-forward] 2 (#$ . 13478) "p"]) #@97 Copy the entire current row one row down. If optional ARG is given, copy through ARG rows down. (defalias 'array-copy-row-down #[(&optional arg) "\306 \210\307 \210\204\310\311!\210\312U\203! \313U\203!\310\314!\210\202\250\nU\2034 \312U\2034\310\315!\210\202\250\212\316\312\"\210`)\212\316 \"\210\312y\210`){\317 \\\n\"\211 Z\320!\211\321U?\205j\245\321V\203\233 \\\316 \312\"\210\322`\212\316 \"\210\312y\210`)|\210\fc\210)S\211\202n\316\206\244\312\"\210.\323 \207" [array-row arg max-row max-column copy-string this-row array-update-buffer-position array-update-array-position error "Cursor is not in a valid array cell." 1 -1 "Beginning of array." "End of array." array-move-to-cell limit-index abs 0 t array-normalize-cursor goal-row num count sign inhibit-quit array-column] 5 (#$ . 13726) "p"]) #@107 Copy the entire current array row into the row above. If optional ARG is given, copy through ARG rows up. (defalias 'array-copy-row-up #[(&optional arg) "\301[!\207" [arg array-copy-row-down] 2 (#$ . 14589) "p"]) #@64 Copy the field at mark into every cell between mark and point. (defalias 'array-fill-rectangle #[nil "\306 \210\307 \206 \310\311!\312 \206\310\311!\212\313 \210\306 \210\307 \206\"\310\314!)\212\313 \210\306 \210\312 \2062\310\314!)\315\316!\210 ^ ]\n^\n]\212\317 \"\210\306 \210\320 )\321 \"\210\322 \"\210\306 \210\323\f!\210)\317 \"\210`\212\317\f\"\210i\324\325!\210`){U\204\276T\317 \"\210\325`\212\317\f\"\210i\324\325!\210`)|\210c\210)\202\215.\315\326!\210\327 \n\",\207" [m-column m-row p-column p-row right-column left-column array-update-buffer-position array-current-row error "Cursor is not in a valid array cell." array-current-column exchange-point-and-mark "Mark is not in a valid array cell." message "Working..." array-move-to-cell array-field-string array-copy-to-cell array-update-array-position array-copy-to-column array-end-of-field t "Working...done" array-goto-cell bottom-row top-row copy-string buffer-column this-row inhibit-quit] 5 (#$ . 14809) nil]) #@34 Create the template of an array. (defalias 'array-make-template #[nil "\306\307 \203,\310\311!\211G\211 U\204&\312\313\314\"!\203\307\211\202\307\211\204*eb\210\315\316!\210\317\f X\203|\203G\313\320\f\"c\210\317\317X\203r\nc\210\246\321U\203iU\204i\322 \210T\211\202K)\fT\322 \210\2026)\315\323!\210\324\317\211\"\207" [len check init-field field-width this-row max-row t nil read-input "Initial field value: " y-or-n-p format "Change field width to %d? " message "Working..." 1 "%d:\n" 0 newline "Working...done" array-goto-cell rows-numbered this-column max-column columns-per-line] 5 (#$ . 15855) nil]) #@222 Reconfigure the state of `rows-numbered' and `columns-per-line'. NEW-COLUMNS-PER-LINE is the desired value of `columns-per-line' and NEW-ROWS-NUMBERED (a character, either ?y or ?n) is the desired value of rows-numbered. (defalias 'array-reconfigure-rows #[(new-columns-per-line new-rows-numbered) "\306\203$ \307Y\203 \nX\203\310\211\202\311\312\313\314\n\"!!\202) \315=\2030\306\202? \316=\203;\310\202?\317\320!\321\322!\210\323 \210\324p!\325\326!&'\n()*+,-./012\3073\327 \210\330 ed#\210 q\210eb\2103'X\203&*\203\214 \204\255*\204\225 \203\255*\203\245 \204\245\331\307!\210\202\255\332\313\3333\"!\210, U\203\306.*\203\277\307\202\300\334Zy\210\202\335(S,\"\334\335(S \"\334456767W\203\373\3366T2_!\210\331\307!\2106T\2116\202\337\334y\21045W\203\3360 _!\210\337 \2104T\2114\202\307y\210,3T\2113\202}\3068\fq\210\340 \210\341 !\210 + )0 _1\335(S \" \203M\342\202N\307\\-\3439\206X\307:\206^\307\"\210)\344 !\210.\n\321\345!\207" [check new-columns-per-line max-column new-rows-numbered main-buffer temp-buffer t 1 nil string-to-int read-input format "Columns per line (1 - %d): " 121 110 y-or-n-p "Rows numbered? " message "Working..." array-update-buffer-position buffer-name make-temp-name "Array" array-update-array-position copy-to-buffer kill-line insert-string "%d:\n" 0 floor move-to-column-untabify newline erase-buffer insert-buffer 2 array-goto-cell kill-buffer "Working...done" max-row temp-max-row temp-max-column rows-numbered old-rows-numbered columns-per-line old-columns-per-line lines-per-row old-lines-per-row field-width old-field-width line-length old-line-length this-row newlines-added newlines-to-be-added newlines-removed newlines-to-be-removed inhibit-quit array-row array-column] 6 (#$ . 16513) "nColumns per line: \ncRows numbered? (y or n) "]) #@66 Expand the rows so each fits on one line and remove row numbers. (defalias 'array-expand-rows #[nil "\301\302\"\207" [max-column array-reconfigure-rows 110] 3 (#$ . 18395) nil]) (defalias 'limit-index #[(index limit) "\302W\203\302\207 V\203 \207\207" [index limit 1] 2]) #@65 Returns the logical exclusive or of predicates PRED1 and PRED2. (defalias 'xor #[(pred1 pred2) "\204 \205\205 ?\207" [pred1 pred2] 1 (#$ . 18681)]) #@64 Return the current buffer line at point. The first line is 0. (defalias 'current-line #[nil "\212\300y\210\301e`\")\207" [0 count-lines] 3 (#$ . 18843)]) #@78 Move to COLUMN on the current line, untabifying if necessary. Return COLUMN. (defalias 'move-to-column-untabify #[(column) "\302!U\203\f\206 \203\303\304!\207\305 \210\302!\207" [column respect-tabs move-to-column error "There is a TAB character in the way." untabify-backward] 3 (#$ . 19004)]) #@29 Untabify the preceding tab. (defalias 'untabify-backward #[nil "\212`\301\302!\210\303`\"*\207" [start backward-char 1 untabify] 3 (#$ . 19314)]) #@28 Keymap used in array mode. (defvar array-mode-map nil (#$ . 19468)) (byte-code "\204y\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\351\352\353\354#\207" [array-mode-map make-keymap define-key "\341d" array-display-local-variables "\341m" array-make-template "\341e" array-expand-rows "\341r" array-reconfigure-rows "\341=" array-what-position "\341g" array-goto-cell "\341f" array-fill-rectangle "" array-next-row "" array-previous-row "" array-forward-column "" array-backward-column "\356" array-copy-down "\360" array-copy-up "\346" array-copy-forward "\342" array-copy-backward "\216" array-copy-row-down "\220" array-copy-row-up "\206" array-copy-column-forward "\202" array-copy-column-backward put array-mode mode-class special] 4) #@2974 Major mode for editing arrays. Array mode is a specialized mode for editing arrays. An array is considered to be a two-dimensional set of strings. The strings are NOT recognized as integers or real numbers. The array MUST reside at the top of the buffer. TABs are not respected, and may be converted into spaces at any time. Setting the variable 'respect-tabs to non-nil will prevent TAB conversion, but will cause many functions to give errors if they encounter one. Upon entering array mode, you will be prompted for the values of several variables. Others will be calculated based on the values you supply. These variables are all local the the buffer. Other buffer in array mode may have different values assigned to the variables. The variables are: Variables you assign: max-row: The number of rows in the array. max-column: The number of columns in the array. columns-per-line: The number of columns in the array per line of buffer. field-width: The width of each field, in characters. rows-numbered: A logical variable describing whether to ignore row numbers in the buffer. Variables which are calculated: line-length: The number of characters in a buffer line. lines-per-row: The number of buffer lines used to display each row. The following commands are available (an asterisk indicates it may take a numeric prefix argument): * \\[array-forward-column] Move forward one column. * \[array-backward-column] Move backward one column. * \[array-next-row] Move down one row. * \[array-previous-row] Move up one row. * \[array-copy-forward] Copy the current field into the column to the right. * \[array-copy-backward] Copy the current field into the column to the left. * \[array-copy-down] Copy the current field into the row below. * \[array-copy-up] Copy the current field into the row above. * \[array-copy-column-forward] Copy the current column into the column to the right. * \[array-copy-column-backward] Copy the current column into the column to the left. * \[array-copy-row-down] Copy the current row into the row below. * \[array-copy-row-up] Copy the current row into the row above. \[array-fill-rectangle] Copy the field at mark into every cell with row and column between that of point and mark. \[array-what-position] Display the current array row and column. \[array-goto-cell] Go to a particular array cell. \[array-make-template] Make a template for a new array. \[array-reconfigure-rows] Reconfigure the array. \[array-expand-rows] Expand the array (remove row numbers and newlines inside rows) \[array-display-local-variables] Display the current values of local variables. Entering array mode calls the function `array-mode-hook'. (defalias 'array-mode #[nil "\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\306\316!\210\306\317!\210\306\320!\210\306\321!\210\306\322!\210\306\300!\210\323\324 \210\325\326\327 \210\330\303!\210\331\332\333 !\210\334\335!\207" [respect-tabs major-mode mode-name truncate-lines overwrite-mode array-mode-map make-local-variable max-row max-column columns-per-line field-width rows-numbered line-length lines-per-row buffer-line buffer-column array-row array-column copy-string nil array-init-local-variables array-mode "Array" force-mode-line-update make-variable-buffer-local t overwrite-mode-textual use-local-map run-hooks array-mode-hook] 2 (#$ . 20524) nil]) #@68 Initialize the variables associated with the array in this buffer. (defalias 'array-init-local-variables #[nil "\300 \210\301 \210\302 \210\303 \210\304 \210\305 \210\306 \210\307\310!\207" [array-init-max-row array-init-max-column array-init-columns-per-line array-init-field-width array-init-rows-numbered array-init-line-length array-init-lines-per-row message ""] 2 (#$ . 24218)]) #@34 Initialize the value of max-row. (defalias 'array-init-max-row #[(&optional arg) "\206 \302\303\304!!\211\207" [arg max-row string-to-int read-input "Number of array rows: "] 3 (#$ . 24609)]) #@37 Initialize the value of max-column. (defalias 'array-init-max-column #[(&optional arg) "\206 \302\303\304!!\211\207" [arg max-column string-to-int read-input "Number of array columns: "] 3 (#$ . 24810)]) #@43 Initialize the value of columns-per-line. (defalias 'array-init-columns-per-line #[(&optional arg) "\206 \302\303\304!!\211\207" [arg columns-per-line string-to-int read-input "Array columns per line: "] 3 (#$ . 25023)]) #@38 Initialize the value of field-width. (defalias 'array-init-field-width #[(&optional arg) "\206 \302\303\304!!\211\207" [arg field-width string-to-int read-input "Field width: "] 3 (#$ . 25253)]) #@40 Initialize the value of rows-numbered. (defalias 'array-init-rows-numbered #[(&optional arg) "\206\302\303!\211\207" [arg rows-numbered y-or-n-p "Rows numbered? "] 2 (#$ . 25457)]) #@38 Initialize the value of line-length. (defalias 'array-init-line-length #[(&optional arg) "\206 \n_\211\207" [arg field-width columns-per-line line-length] 2 (#$ . 25648)]) #@40 Initialize the value of lines-per-row. (defalias 'array-init-lines-per-row #[(&optional arg) "\206\305 S\n\" \203\306\202\307\\\211\207" [arg max-column columns-per-line rows-numbered lines-per-row floor 2 1] 3 (#$ . 25830)])