%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/play/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/play/morse.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@27 Morse code character set.
(defvar morse-code '(("a" . ".-") ("b" . "-...") ("c" . "-.-.") ("d" . "-..") ("e" . ".") ("f" . "..-.") ("g" . "--.") ("h" . "....") ("i" . "..") ("j" . ".---") ("k" . "-.-") ("l" . ".-..") ("m" . "--") ("n" . "-.") ("o" . "---") ("p" . ".--.") ("q" . "--.-") ("r" . ".-.") ("s" . "...") ("t" . "-") ("u" . "..-") ("v" . "...-") ("w" . ".--") ("x" . "-..-") ("y" . "-.--") ("z" . "--..") ("=" . "-...-") ("?" . "..--..") ("/" . "-..-.") ("," . "--..--") ("." . ".-.-.-") (":" . "---...") ("'" . ".----.") ("-" . "-....-") ("(" . "-.--.-") (")" . "-.--.-") ("0" . "-----") ("1" . ".----") ("2" . "..---") ("3" . "...--") ("4" . "....-") ("5" . ".....") ("6" . "-....") ("7" . "--...") ("8" . "---..") ("9" . "----.") ("Ä" . ".-.-") ("Æ" . ".-.-") ("Á" . ".--.-") ("Å" . ".--.-") ("ß" . ".../...") ("É" . "..-..") ("Ñ" . "--.--") ("Ö" . "---.") ("Ø" . "---.") ("Ü" . "..--") ("@" . ".--.-.")) (#$ . 408))
#@211 NATO phonetic alphabet.
See “International Code of Signals” (INTERCO), United States
Edition, 1969 Edition (Revised 2003) available from National
Geospatial-Intelligence Agency at URL `http://www.nga.mil/'
(defvar nato-alphabet '(("a" . "Alfa") ("b" . "Bravo") ("c" . "Charlie") ("d" . "Delta") ("e" . "Echo") ("f" . "Foxtrot") ("g" . "Golf") ("h" . "Hotel") ("i" . "India") ("j" . "Juliett") ("k" . "Kilo") ("l" . "Lima") ("m" . "Mike") ("n" . "November") ("o" . "Oscar") ("p" . "Papa") ("q" . "Quebec") ("r" . "Romeo") ("s" . "Sierra") ("t" . "Tango") ("u" . "Uniform") ("v" . "Victor") ("w" . "Whiskey") ("x" . "Xray") ("y" . "Yankee") ("z" . "Zulu") ("0" . "Zero") ("1" . "One") ("2" . "Two") ("3" . "Three") ("4" . "Four") ("5" . "Five") ("6" . "Six") ("7" . "Seven") ("8" . "Eight") ("9" . "Niner") ("=" . "Equals") ("?" . "Query") ("/" . "Slash") ("," . "Comma") ("." . "Stop") (":" . "Colon") ("'" . "Apostrophe") ("-" . "Dash") ("(" . "Open") (")" . "Close") ("@" . "At")) (#$ . 1355))
#@65 Convert all text in a given region to morse code.

(fn BEG END)
(defalias 'morse-region #[514 "\211\250\203\n\301!\262\212\302\303\211b\210`W\205Q``T{\227\262\304\305!\203.\306\225b\210\302\262\202\307\"\211\262\203H\310\311!\210A\261\210\312\262\202\311u\210\302\262\202\266\203)\207" [morse-code copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "/"] 8 (#$ . 2360) "*r"])
#@74 Convert morse coded text in region to ordinary ASCII text.

(fn BEG END)
(defalias 'unmorse-region #[514 "\211\250\203\n\301!\262\212\302\211\211b\210`W\205e\303\304!\204#\305u\210\202\306\224\306\225{\262\307\"\211\262\204;\306\225b\210\202\310@\311\230\203S?\211\262\203O\311\202U\312\202U@\313\"\210\303\314!\203\315\305!\210\202\266\203)\207" [morse-code copy-marker nil looking-at "[-.]+" 1 0 rassoc replace-match "(" ")" t "/" delete-char] 8 (#$ . 2774) "*r"])
#@77 Convert all text in a given region to NATO phonetic alphabet.

(fn BEG END)
(defalias 'nato-region #[514 "\211\250\203\n\301!\262\212\302\303\211b\210`W\205Q``T{\227\262\304\305!\203.\306\225b\210\302\262\202\307\"\211\262\203H\310\311!\210A\261\210\312\262\202\311u\210\302\262\202\266\203)\207" [nato-alphabet copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "-"] 8 (#$ . 3275) "*r"])
#@80 Convert NATO phonetic alphabet in region to ordinary ASCII text.

(fn BEG END)
(defalias 'denato-region #[514 "\211\250\203\n\301!\262\212\302\211\211b\210`W\205g\303\304!\204#\305u\210\202\306\224\306\225{\262\307\310!\"\211\262\204=\306\225b\210\202\311@\312\230\203U?\211\262\203Q\312\202W\313\202W@\314\"\210\303\315!\203\316\305!\210\202\266\203)\207" [nato-alphabet copy-marker nil looking-at "[a-z]+" 1 0 rassoc capitalize replace-match "(" ")" t "-" delete-char] 8 (#$ . 3703) "*r"])
(provide 'morse)

Zerion Mini Shell 1.0