4.4BSD/usr/src/contrib/emacs-18.57/lisp/mlconvert.elc

(defun convert-mocklisp-buffer nil "\
Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." (interactive) (byte-code "ÀˆÁ ˆÂÃÄ !!ˆÅÆÇ\"ˆÈÉ!ˆebˆÊ ˆebˆËÌÍ�ˆebˆÎcˆÏcˆÐ ˆebˆÈÑ!‡" [nil emacs-lisp-mode set-syntax-table copy-sequence syntax-table modify-syntax-entry 124 "w" message "Converting mocklisp (ugh!)..." fix-mlisp-syntax ignore (byte-code "À…*`Ãp!
<…%
@Ä=?…%ÅcˆŠ	bˆÆÇ!ˆÈc)*ˆ‚‡" [t opt form read defun "))

(ml-foo)

" skip-chars-forward "
" "(defun (ml-foo 
 "] 4) ((end-of-file (byte-code "À‡" [nil] 1))) ";;; GNU Emacs code converted from Mocklisp
" "(require 'mlsupport)

" fix-mlisp-symbols "Converting mocklisp...done"] 10))

(defun fix-mlisp-syntax nil (byte-code "ÂÃÀÁ#…EhÄUƒÅÆ!ˆÇÈ!‚AÉÆ!ˆÊcˆgËU†(gÌUƒ1ÅÈ!‚9ÍÎ!…9ËcˆÅÈ!ˆÉÈ!ˆ‚‡" [nil t re-search-forward "['\"]" 34 forward-char -1 forward-sexp 1 delete-char "?" 92 94 looking-at "[^a-zA-Z]"] 10))

(defun fix-mlisp-symbols nil (byte-code "ÃÄ!ˆm?…[gÅU†gÆUƒÇÈ!‚WgÉUƒ'ÊÈ!‚W`ËÇÈ!ˆÌÍ	`\"!ÎN‰ˆ
?†V
;ƒNÏ	`\"ˆ
c‚VŠ	bˆÐ
!)*ˆ‚‡" [t start prop skip-chars-forward " 	
()" 63 34 forward-sexp 1 59 forward-line nil intern-soft buffer-substring mocklisp delete-region funcall] 10))

(defun ml-expansion (ml-name lisp-string) (byte-code "ÂÃ	#‡" [ml-name lisp-string put mocklisp] 4))

(ml-expansion (quote defun) "ml-defun")

(ml-expansion (quote if) "ml-if")

(ml-expansion (quote setq) (quote (lambda nil (if (looking-at "setq[ 	
]+buffer-modified-p") (replace-match "set-buffer-modified-p")))))

(ml-expansion (quote while) (quote (lambda nil (let ((end (progn (forward-sexp 2) (point-marker))) (start (progn (forward-sexp -1) (point)))) (let ((cond (buffer-substring start end))) (cond ((equal cond "1") (delete-region (point) end) (insert "t")) (t (insert "(not (zerop ") (goto-char end) (insert "))"))) (set-marker end nil) (goto-char start))))))

(ml-expansion (quote arg) "ml-arg")

(ml-expansion (quote nargs) "ml-nargs")

(ml-expansion (quote interactive) "ml-interactive")

(ml-expansion (quote message) "ml-message")

(ml-expansion (quote print) "ml-print")

(ml-expansion (quote set) "ml-set")

(ml-expansion (quote set-default) "ml-set-default")

(ml-expansion (quote provide-prefix-argument) "ml-provide-prefix-argument")

(ml-expansion (quote prefix-argument-loop) "ml-prefix-argument-loop")

(ml-expansion (quote prefix-argument) "ml-prefix-arg")

(ml-expansion (quote use-local-map) "ml-use-local-map")

(ml-expansion (quote use-global-map) "ml-use-global-map")

(ml-expansion (quote modify-syntax-entry) "ml-modify-syntax-entry")

(ml-expansion (quote error-message) "error")

(ml-expansion (quote dot) "point-marker")

(ml-expansion (quote mark) "mark-marker")

(ml-expansion (quote beginning-of-file) "beginning-of-buffer")

(ml-expansion (quote end-of-file) "end-of-buffer")

(ml-expansion (quote exchange-dot-and-mark) "exchange-point-and-mark")

(ml-expansion (quote set-mark) "set-mark-command")

(ml-expansion (quote argument-prefix) "universal-arg")

(ml-expansion (quote previous-page) "ml-previous-page")

(ml-expansion (quote next-page) "ml-next-page")

(ml-expansion (quote next-window) "ml-next-window")

(ml-expansion (quote previous-window) "ml-previous-window")

(ml-expansion (quote newline) "ml-newline")

(ml-expansion (quote next-line) "ml-next-line")

(ml-expansion (quote previous-line) "ml-previous-line")

(ml-expansion (quote self-insert) "self-insert-command")

(ml-expansion (quote meta-digit) "digit-argument")

(ml-expansion (quote meta-minus) "negative-argument")

(ml-expansion (quote newline-and-indent) "ml-newline-and-indent")

(ml-expansion (quote yank-from-killbuffer) "yank")

(ml-expansion (quote yank-buffer) "insert-buffer")

(ml-expansion (quote copy-region) "copy-region-as-kill")

(ml-expansion (quote delete-white-space) "delete-horizontal-space")

(ml-expansion (quote widen-region) "widen")

(ml-expansion (quote forward-word) (quote (lambda nil (if (looking-at "forward-word[ 	
]*)") (replace-match "forward-word 1)")))))

(ml-expansion (quote backward-word) (quote (lambda nil (if (looking-at "backward-word[ 	
]*)") (replace-match "backward-word 1)")))))

(ml-expansion (quote forward-paren) "forward-list")

(ml-expansion (quote backward-paren) "backward-list")

(ml-expansion (quote search-reverse) "ml-search-backward")

(ml-expansion (quote re-search-reverse) "ml-re-search-backward")

(ml-expansion (quote search-forward) "ml-search-forward")

(ml-expansion (quote re-search-forward) "ml-re-search-forward")

(ml-expansion (quote quote) "regexp-quote")

(ml-expansion (quote re-query-replace) "query-replace-regexp")

(ml-expansion (quote re-replace-string) "replace-regexp")

(ml-expansion (quote get-tty-character) "read-char")

(ml-expansion (quote get-tty-input) "read-input")

(ml-expansion (quote get-tty-string) "read-string")

(ml-expansion (quote get-tty-buffer) "read-buffer")

(ml-expansion (quote get-tty-command) "read-command")

(ml-expansion (quote get-tty-variable) "read-variable")

(ml-expansion (quote get-tty-no-blanks-input) "read-no-blanks-input")

(ml-expansion (quote get-tty-key) "read-key")

(ml-expansion (quote c=) "char-equal")

(ml-expansion (quote goto-character) "goto-char")

(ml-expansion (quote substr) "ml-substr")

(ml-expansion (quote variable-apropos) "apropos")

(ml-expansion (quote execute-mlisp-buffer) "eval-current-buffer")

(ml-expansion (quote execute-mlisp-file) "load")

(ml-expansion (quote visit-file) "find-file")

(ml-expansion (quote read-file) "find-file")

(ml-expansion (quote write-modified-files) "save-some-buffers")

(ml-expansion (quote backup-before-writing) "make-backup-files")

(ml-expansion (quote write-file-exit) "save-buffers-kill-emacs")

(ml-expansion (quote write-named-file) "write-file")

(ml-expansion (quote change-file-name) "set-visited-file-name")

(ml-expansion (quote change-buffer-name) "rename-buffer")

(ml-expansion (quote buffer-exists) "get-buffer")

(ml-expansion (quote delete-buffer) "kill-buffer")

(ml-expansion (quote unlink-file) "delete-file")

(ml-expansion (quote unlink-checkpoint-files) "delete-auto-save-files")

(ml-expansion (quote file-exists) "file-exists-p")

(ml-expansion (quote write-current-file) "save-buffer")

(ml-expansion (quote change-directory) "cd")

(ml-expansion (quote temp-use-buffer) "set-buffer")

(ml-expansion (quote fast-filter-region) "filter-region")

(ml-expansion (quote pending-input) "input-pending-p")

(ml-expansion (quote execute-keyboard-macro) "call-last-kbd-macro")

(ml-expansion (quote start-remembering) "start-kbd-macro")

(ml-expansion (quote end-remembering) "end-kbd-macro")

(ml-expansion (quote define-keyboard-macro) "name-last-kbd-macro")

(ml-expansion (quote define-string-macro) "ml-define-string-macro")

(ml-expansion (quote current-column) "ml-current-column")

(ml-expansion (quote current-indent) "ml-current-indent")

(ml-expansion (quote insert-character) "insert")

(ml-expansion (quote users-login-name) "user-login-name")

(ml-expansion (quote users-full-name) "user-full-name")

(ml-expansion (quote current-time) "current-time-string")

(ml-expansion (quote current-numeric-time) "current-numeric-time-you-lose")

(ml-expansion (quote current-buffer-name) "buffer-name")

(ml-expansion (quote current-file-name) "buffer-file-name")

(ml-expansion (quote local-binding-of) "local-key-binding")

(ml-expansion (quote global-binding-of) "global-key-binding")

(ml-expansion (quote remove-key-binding) "global-unset-key")

(ml-expansion (quote remove-binding) "global-unset-key")

(ml-expansion (quote remove-local-binding) "local-unset-key")

(ml-expansion (quote remove-all-local-bindings) "use-local-map nil")

(ml-expansion (quote autoload) "ml-autoload")

(ml-expansion (quote checkpoint-frequency) "auto-save-interval")

(ml-expansion (quote mode-string) "mode-name")

(ml-expansion (quote right-margin) "fill-column")

(ml-expansion (quote tab-size) "tab-width")

(ml-expansion (quote default-right-margin) "default-fill-column")

(ml-expansion (quote default-tab-size) "default-tab-width")

(ml-expansion (quote buffer-is-modified) "(buffer-modified-p)")

(ml-expansion (quote file-modified-time) "you-lose-on-file-modified-time")

(ml-expansion (quote needs-checkpointing) "you-lose-on-needs-checkpointing")

(ml-expansion (quote lines-on-screen) "set-screen-height")

(ml-expansion (quote columns-on-screen) "set-screen-width")

(ml-expansion (quote dumped-emacs) "t")

(ml-expansion (quote buffer-size) "ml-buffer-size")

(ml-expansion (quote dot-is-visible) "pos-visible-in-window-p")

(ml-expansion (quote track-eol-on-^N-^P) "track-eol")

(ml-expansion (quote ctlchar-with-^) "ctl-arrow")

(ml-expansion (quote help-on-command-completion-error) "completion-auto-help")

(ml-expansion (quote dump-stack-trace) "backtrace")

(ml-expansion (quote pause-emacs) "suspend-emacs")

(ml-expansion (quote compile-it) "compile")

(ml-expansion (quote !=) "/=")

(ml-expansion (quote &) "logand")

(ml-expansion (quote |) "logior")

(ml-expansion (quote ^) "logxor")

(ml-expansion (quote !) "ml-not")

(ml-expansion (quote <<) "lsh")