ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/dos-fns.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@302 Convert a standard file's name to something suitable for MS-DOS.
This means to guarantee valid names and perhaps to canonicalize
certain patterns.
This function is called by `convert-standard-filename'.
On Windows and DOS, replace invalid characters. On DOS, make
sure to obey the 8.3 limitations.
(defalias 'dos-convert-standard-filename #[(filename) ";\203\f \306\307\"\203 \207G SH\310>\203& \311\312 SO!\313P\202=\314\315 W\203D \315H\316=\203D \306\317\"\204D \312\320O\202G \321!\211GS \322\323!!\211 \211GSH #\314\211 $ %\324 \203w \306\325
\"\211$\203
$\326I\210\202d
\327\235\204
\312H\330U\203\212
\312\331I\210\306\332
\"\204\251
G\333V\203\251 \306\334
\335#\211$\203\251
$\330I\210\306\336
\"\211$\203\274
$\331I\210\202\251 \306\332
\"\206\305
G\333V\203\325
\312\333O\337
\333\314OQ\306\332
\"\206\337
GS%
G%\340\\V\203\363
\312%\340\\O\306\332
%T#\203\306\332
%T#$
$\331I\210\202\363 #\341>\203
\211GS#I\210 ;\2036 \fH\342>\2036\311 \312\fO!\313P\2029\311 !
P.)\207" [filename flen file-name-handler-alist dir dlen-m-1 string string-match "\\`\\([a-zA-Z]:\\)?[/\\]?\\'" (47 92) dos-convert-standard-filename 0 "/" nil 1 58 "[/\\]" 2 file-name-directory copy-sequence file-name-nondirectory msdos-long-file-names "[?*:<>|\" - ]" 33 ("" "." "..") 46 95 "\\." 8 "[-_]" 5 "[^-a-zA-Z0-9_.%~^$!#&{}@`'()\200-\376]" "." 4 (126 35) (47 92) lastchar i firstdot] 6 (#$ . 409)])
#@38 Truncate FILENAME to DOS 8+3 limits.
(defalias 'dos-8+3-filename #[(filename) ";\203\f G\306W\203 \207G SH\307>\203& \310\311 SO!\312P\202\315 \313\314 W\203D \314H\315=\203D \316\317\"\204D \311\320O\202G \321!\211GS \322\323!!\211 G
SH \313 \316\324
\"\211 \203\223 \325\\V\203|
\311 \325\\O \326V\203\237
\311\326O\327
T\313OQ\202\237 \326V\203\237
\311\326O\330\232\203\256
\211GSI\210 ;\203\306 \fH\331>\203\306 \310 \311\fO!\312P\202\311 \310 !
P.)\207" [filename flen file-name-handler-alist dir dlen-m-1 string 5 (47 92) dos-8+3-filename 0 "/" nil 1 58 string-match "[/\\]" 2 file-name-directory copy-sequence file-name-nondirectory "\\." 4 8 "." 126 (47 92) strlen lastchar firstdot] 6 (#$ . 1856)])
#@371 Return a variant of FILE-NAME that is valid on MS-DOS filesystems.
This function is for those rare cases where `dos-convert-standard-filename'
does not do a job that is good enough, e.g. if you need to preserve the
file-name extension. It recognizes only certain specific file names
that are used in Emacs Lisp sources; any other file name will be
returned unaltered.
(defalias 'dosified-file-name #[(file-name) "\301\230\203 \302\207\207" [file-name ".dir-locals" "_dir-locals"] 2 (#$ . 2617)])
(defalias 'dos-set-default-process-coding-system #[nil "\301\302!\203\n \303\202 \304\211\207" [default-process-coding-system default-value enable-multibyte-characters (undecided-dos . undecided-dos) (raw-text-dos . raw-text-dos)] 2])
(add-hook 'before-init-hook 'dos-set-default-process-coding-system)
(defalias 'dos-reevaluate-defcustoms #[nil "\300\207" [nil] 1])
(byte-code "\302\303\304\"\210\305\306\307\310#\210\311\310\211\2031 @\306N\203* \307N\204* \312\307\306N#\210 A\211\204 *\313\306\307\314#\207" [prop --dolist-tail-- add-hook before-init-hook dos-reevaluate-defcustoms defvaralias register-name-alist dos-register-name-alist nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1"] 6)
(defvar dos-register-name-alist '((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)))
(defalias 'dos-make-register #[nil "\300\301\302\"\207" [make-vector 8 0] 3])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias make-register dos-make-register nil make-obsolete "24.1"] 4)
(defalias 'dos-register-value #[(regs name) "\305 \"A\211:\203$ \n@H \nA\306U\203 \f\307\246\202 \f\307\245)\2020 \n\247\203/ \nH\2020 \310)\207" [name dos-register-name-alist where regs tem assoc 0 256 nil] 4])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias register-value dos-register-value nil make-obsolete "24.1"] 4)
(defalias 'dos-set-register-value #[(regs name value) "\247\203R \306Y\203R \307 \n\"A\211:\203D \f @H\310\311\" \f @ A\306U\2034 \312\310
\313\"\"\202> \312\310
\311\"\314\315\"\"I\210*\202Q \247\203Q \f \310\316\"I\210)\f\207" [value name dos-register-name-alist where regs tem 0 assoc logand 255 logior 65280 lsh 8 65535] 8])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias set-register-value dos-set-register-value nil make-obsolete "24.1"] 4)
#@142 Issue the DOS Int 21h with registers REGS.
REGS should be a vector produced by `dos-make-register'
and `dos-set-register-value', which see.
(defalias 'dos-intdos #[(regs) "\301\302\"\207" [regs int86 33] 3 (#$ . 5087)])
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\305\301\310#\207" [put dos-intdos byte-optimizer byte-compile-inline-expand defalias intdos nil make-obsolete "24.1"] 4)
#@42 Changes the number of screen rows to 25.
(defalias 'dos-mode25 #[nil "\300\301 \302\303#\207" [set-frame-size selected-frame 80 25] 4 (#$ . 5495) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mode25 dos-mode25 nil make-obsolete "24.1"] 4)
#@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 'dos-mode4350 #[nil "\300\301 \302\303#\210\304\301 !\303=?\205 \300\301 \302\305#\207" [set-frame-size selected-frame 80 50 frame-height 43] 4 (#$ . 5767) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias mode4350 dos-mode4350 nil make-obsolete "24.1" provide dos-fns] 4)
Kontol Shell Bypass