;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Mon Jun 10 17:38:13 1996 ;;; from file /home/fsf/rms/e19/lisp/dos-fns.el ;;; emacs version 19.31.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dos-fns.el' was compiled for Emacs 19.29 or later")) (byte-code " !\nAB)\nÇ" [" %[(" mode-line-format tail purecopy "%t:" ";" path-separator "NUL" grep-null-device (("^\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)[:( ]+\\([0-9]+\\)[:) ]" 1 3)) grep-regexp-alist] 4) #@263 Convert a standard file's name to something suitable for the current OS. This function's standard definition is trivial; it just returns the argument. However, on some systems, the function is redefined with a definition that really does change some file names. (defalias 'convert-standard-filename #[(filename) "  ; !Ý ! !!GSH\n HU;I\"\nP\nI;\"k#\nk\nI\"vGVOOQ\"GS G \\V \\O T# T#\n\nIךGSI P-" [msdos-long-file-names filename file-name-nondirectory ("" "." "..") file-name-directory dir copy-sequence string lastchar nil i firstdot 0 46 95 string-match "[^-a-zA-Z0-9_.%~^$!#&{}@`'()-]" "\\." "[-_]" 1 8 "." 4 126] 6 (#$ . 695)]) #@187 *Alist for distinguishing text files from binary files. Each element has the form (REGEXP . TYPE), where REGEXP is matched against the file name, and TYPE is nil for text, t for binary. (defvar file-name-buffer-file-type-alist (quote (("[:/].*config.sys$") ("\\.elc$" . t) ("\\.\\(obj\\|exe\\|com\\|lib\\|sys\\|chk\\|out\\|bin\\|ico\\|pif\\)$" . t) ("\\.\\(arc\\|zip\\|pak\\|lzh\\|zoo\\)$" . t) ("\\.\\(a\\|o\\|tar\\|z\\|gz\\|taz\\)$" . t) ("\\.tp[ulpw]$" . t) ("[:/]tags$" . t))) (#$ . -1492)) (defalias 'find-buffer-file-type #[(filename) "! -\f-\f@@\"'\f@A\fA) N\n><\nP\n9P\n!P\n!P\f+" [file-name-buffer-file-type-alist nil code found alist t case-fold-search file-name-sans-versions filename string-match (nil t) fboundp default-buffer-file-type] 3]) #@45 Visit file FILENAME and treat it as binary. (defalias 'find-file-binary #[(filename) " !)" [(("" . t)) file-name-buffer-file-type-alist find-file filename] 2 (#$ . 2301) "FFind file binary: "]) #@50 Visit file FILENAME and treat it as a text file. (defalias 'find-file-text #[(filename) " !)" [(("")) file-name-buffer-file-type-alist find-file filename] 2 (#$ . 2505) "FFind file text: "]) (defalias 'find-file-not-found-set-buffer-file-type #[nil "pq !)Ç" [find-buffer-file-type buffer-file-name buffer-file-type nil] 2]) (add-hook (quote find-file-not-found-hooks) (quote find-file-not-found-set-buffer-file-type)) #@74 *List of shells that use `/c' instead of `-c' and a backslashed command. (defvar msdos-shells (quote ("command.com" "4dos.com" "ndos.com")) (#$ . -2939)) (byte-code "\nB" [((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7) (al 0 . 0) (bl 1 . 0) (cl 2 . 0) (dl 3 . 0) (ah 0 . 1) (bh 1 . 1) (ch 2 . 1) (dh 3 . 1)) register-name-alist current-load-list] 2) (defalias 'make-register #[nil "\"" [make-vector 8 0] 3]) (defalias 'register-value #[(regs name) " \n\"A:$\f @H AU Ǧ ǥ)0 /\f H0)" [assoc name register-name-alist where regs tem 0 256 nil] 4]) (defalias 'set-register-value #[(regs name value) "XYX \f\"A:I @H\"  @ AU8 \"\"C \"\"\"I*W W \"I)" [value 0 assoc name register-name-alist where regs logand 255 tem logior 65280 lsh 8 65535] 8]) (defalias 'intdos #[(regs) "\n\"" [int86 33 regs] 3]) (put (quote intdos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@428 *The name of a local MS-DOS device to which data is sent for printing. (Note that PostScript files are sent to `dos-ps-printer', which see.) Typical non-default settings would be "LPT1" to "LPT3" for parallel printers, or "COM1" to "COM4" or "AUX" for serial printers. You can also set it to a name of a file, in which case the output gets appended to that file. If you want to discard the printed output, set this to "NUL". (defvar dos-printer "PRN" (#$ . -3940)) #@192 MS-DOS-specific function to print the region on a printer. Writes the region to the device or file which is a value of `dos-printer' (which see). Ignores any arguments beyond START and END. (defalias 'dos-print-region-function #[(start end &optional lpr-prog delete-text buf display rest) " \n %\nSf\"? %" [write-region start end dos-printer t 0 char-equal 12 "\f" nil] 6 (#$ . 4414)]) (byte-code "" [dos-print-region-function print-region-function "(page headers are not supported)" lpr-headers-switches] 1) #@828 *Method for printing PostScript files under MS-DOS. If the value is a string, then it is taken as the name of the device to which PostScript files are written. By default it is the default printer device; typical non-default settings would be "LPT1" to "LPT3" for parallel printers, or "COM1" to "COM4" or "AUX" for serial printers. You can also set it to a name of a file, in which case the output gets appended to that file. (Note that `ps-print' package already has facilities for printing to a file, so you might as well use them instead of changing the setting of this variable.) If you want to silently discard the printed output, set this to "NUL". If the value is anything but a string, PostScript files will be piped to the program given by `ps-lpr-command', with switches given by `ps-lpr-switches', which see. (defvar dos-ps-printer "PRN" (#$ . -4952)) (byte-code "ć" ["gs" ps-lpr-command ("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60" "-sOutputFile=LPT1" "-") ps-lpr-switches nil] 1) #@42 Changes the number of screen rows to 25. (defalias 'mode25 #[nil " #" [set-frame-size selected-frame 80 25] 4 (#$ . 5964) nil]) #@227 Changes the number of rows to 43 or 50. Emacs always tries to set the screen height to 50 rows first. If this fails, it will try to set it to 43 rows, on the assumption that your video hardware might not support 50-line mode. (defalias 'mode4350 #[nil " # !=? #" [set-frame-size selected-frame 80 50 frame-height 43] 4 (#$ . 6104) nil]) (provide (quote dos-fns))