;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/morse.el
;;; in Emacs version 24.3.1
;;; 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" . "----.") ("Ä" . ".-.-") ("Æ" . ".-.-") ("Á" . ".--.-") ("Å" . ".--.-") ("ß" . ".../...") ("É" . "..-..") ("Ñ" . "--.--") ("Ö" . "---.") ("Ø" . "---.") ("Ü" . "..--") ("@" . ".--.-.")) (#$ . 553))
#@203 NATO phonetic alphabet.
See ''International Code of Signals'' (INTERCO), United States
Edition, 1969 Edition (Revised 2003) available from National
Geospatial-Intelligence Agency at 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")) (#$ . 1500))
#@51 Convert all text in a given region to morse code.
(defalias 'morse-region #[(beg end) "\250\203	\306!\212\307\310\211\fb\210`W\205N``T{\227\311\312!\203.\313\225b\210\307\202\314\n
\"\211\203F\315\316!\210	A\261\210\317\202\316u\210\307\202,\207" [end morse str sep beg morse-code copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "/"] 3 (#$ . 2497) "*r"])
#@60 Convert morse coded text in region to ordinary ASCII text.
(defalias 'unmorse-region #[(beg end) "\250\203	\306!\212\307\211\211\fb\210`W\205d\310\311!\204%\312u\210\202\313\224\313\225{\314
\"\211\204;\313\225b\210\202\315	@\316\230\203R\n?\211\203N\316\202T\317\202T	@\320\"\210\310\321!\203\322\312!\210\202,\207" [end morse paren str beg morse-code copy-marker nil looking-at "[-.]+" 1 0 rassoc replace-match "(" ")" t "/" delete-char] 3 (#$ . 2894) "*r"])
#@63 Convert all text in a given region to NATO phonetic alphabet.
(defalias 'nato-region #[(beg end) "\250\203	\306!\212\307\310\211\fb\210`W\205N``T{\227\311\312!\203.\313\225b\210\307\202\314\n
\"\211\203F\315\316!\210	A\261\210\317\202\316u\210\307\202,\207" [end nato str sep beg nato-alphabet copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "-"] 3 (#$ . 3388) "*r"])
#@66 Convert NATO phonetic alphabet in region to ordinary ASCII text.
(defalias 'denato-region #[(beg end) "\250\203	\306!\212\307\211\211\fb\210`W\205f\310\311!\204%\312u\210\202\313\224\313\225{\314\315!
\"\211\204=\313\225b\210\202\316	@\317\230\203T\n?\211\203P\317\202V\320\202V	@\321\"\210\310\322!\203\323\312!\210\202,\207" [end nato paren str beg nato-alphabet copy-marker nil looking-at "[a-z]+" 1 0 rassoc capitalize replace-match "(" ")" t "-" delete-char] 3 (#$ . 3798) "*r"])
(provide 'morse)