-;;; Initialization functions. These are not interactive.
-
-(defun array-init-local-variables ()
- "Initialize the variables associated with the array in this buffer."
- (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 ""))
-
-(defun array-init-max-row (&optional arg)
- "Initialize the value of `array-max-row'."
- (setq array-max-row
- (or arg (string-to-int (read-input "Number of array rows: ")))))
-
-(defun array-init-max-column (&optional arg)
- "Initialize the value of `array-max-column'."
- (setq array-max-column
- (or arg (string-to-int (read-input "Number of array columns: ")))))
-
-(defun array-init-columns-per-line (&optional arg)
- "Initialize the value of `array-columns-per-line'."
- (setq array-columns-per-line
- (or arg (string-to-int (read-input "Array columns per line: ")))))
-
-(defun array-init-field-width (&optional arg)
- "Initialize the value of `array-field-width'."
- (setq array-field-width
- (or arg (string-to-int (read-input "Field width: ")))))
-
-(defun array-init-rows-numbered (&optional arg)
- "Initialize the value of `array-rows-numbered'."
- (setq array-rows-numbered
- (or arg (y-or-n-p "Rows numbered? "))))
-
-(defun array-init-line-length (&optional arg)
- "Initialize the value of `array-line-length'."
- (setq array-line-length
- (or arg
- (* array-field-width array-columns-per-line))))
-
-(defun array-init-lines-per-row (&optional arg)
- "Initialize the value of `array-lines-per-row'."
- (setq array-lines-per-row
- (or arg
- (+ (floor (1- array-max-column) array-columns-per-line)
- (if array-rows-numbered 2 1)))))
-