X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/77ab81d0545e980c57c0a35510ade29a9e43b4cd..1a0778b078b9ffaa68e1ae0d4b26de147872b421:/lisp/progmodes/mixal-mode.el diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el index 8df4bde335..f8b497ef8f 100644 --- a/lisp/progmodes/mixal-mode.el +++ b/lisp/progmodes/mixal-mode.el @@ -1,7 +1,6 @@ ;;; mixal-mode.el --- Major mode for the mix asm language. -;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 -;; Free Software Foundation, Inc. +;; Copyright (C) 2003-2014 Free Software Foundation, Inc. ;; Author: Pieter E.J. Pareit ;; Maintainer: Pieter E.J. Pareit @@ -33,7 +32,7 @@ ;; GNU MDK from `https://savannah.gnu.org/projects/mdk/' and ;; `ftp://ftp.gnu.org/pub/gnu/mdk'. ;; -;; To use this mode, place the following in your .emacs file: +;; To use this mode, place the following in your init file: ;; `(load-file "/PATH-TO-FILE/mixal-mode.el")'. ;; When you load a file with the extension .mixal the mode will be started ;; automatic. If you want to start the mode manual, use `M-x mixal-mode'. @@ -146,43 +145,43 @@ zeros to make a word." (LD1 loading "load I1" 9 field "Put in rI1 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LD2 loading "load I2" 10 field "Put in rI2 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LD3 loading "load I3" 11 field "Put in rI3 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LD4 loading "load I4" 12 field "Put in rI4 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LD5 loading "load I5" 13 field "Put in rI5 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LD6 loading "load I6" 14 field "Put in rI6 the contents of cell no. M. Uses a + when there is no sign in subfield. Subfield is left padded with -zeros to make a word. Index registers only have 2 bytes and a sign, Trying -to set anything more that that will result in undefined behavior." +zeros to make a word. Index registers only have 2 bytes and a sign; trying +to set anything more than that will result in undefined behavior." 2) (LDAN loading "load A negative" 16 field @@ -201,7 +200,7 @@ Subfield is left padded with zeros to make a word." "Put in rI1 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -209,7 +208,7 @@ in undefined behavior." "Put in rI2 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -217,7 +216,7 @@ in undefined behavior." "Put in rI3 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -225,7 +224,7 @@ in undefined behavior." "Put in rI4 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -233,7 +232,7 @@ in undefined behavior." "Put in rI5 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -241,7 +240,7 @@ in undefined behavior." "Put in rI6 the contents of cell no. M, with opposite sign. Uses a + when there is no sign in subfield, otherwise use the opposite sign. Subfield is left padded with zeros to make a word. Index registers only -have 2 bytes and a sign, Trying to set anything more that that will result +have 2 bytes and a sign; trying to set anything more than that will result in undefined behavior." 2) @@ -1059,9 +1058,8 @@ EXECUTION-TIME holds info about the time it takes, number or string.") (list (let* ((completion-ignore-case t) ;; we already have a list, but it is not in the right format - ;; transform it to a valid table so completition can use it - (table (mapcar '(lambda (elm) - (cons (symbol-name (car elm)) nil)) + ;; transform it to a valid table so completion can use it + (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil)) mixal-operation-codes-alist)) ;; prompt is different depending on we are close to a valid op-code (have-default (assq (intern-soft (current-word)) @@ -1105,7 +1103,7 @@ Assumes that file has been compiled with debugging support." (error "mixvm.el needs to be loaded to run `mixvm'"))) ;;;###autoload -(define-derived-mode mixal-mode fundamental-mode "mixal" +(define-derived-mode mixal-mode prog-mode "mixal" "Major mode for the mixal asm language." (set (make-local-variable 'comment-start) "*") (set (make-local-variable 'comment-start-skip) "^\\*[ \t]*") @@ -1115,10 +1113,11 @@ Assumes that file has been compiled with debugging support." mixal-syntax-propertize-function) ;; might add an indent function in the future ;; (set (make-local-variable 'indent-line-function) 'mixal-indent-line) - (set (make-local-variable 'compile-command) (concat "mixasm " - buffer-file-name))) + (set (make-local-variable 'compile-command) + (concat "mixasm " + (if buffer-file-name + (shell-quote-argument buffer-file-name))))) (provide 'mixal-mode) -;; arch-tag: be7c128a-bf61-4951-a90e-9398267ce3f3 ;;; mixal-mode.el ends here