;;;
;;; kix-mode.el
;;;
;;; A major mode for GNU Emacs for KiXtart
;;;
;;; Jeremy Pastin
;;; 1-27-09
;;;
;;; Version 1.0
;;;
;;;
;;; This mode is freely distributable, under GPL
;;; Please send me any bug reports, bug fixes, or extensions, so that I can
;;; merge them into the Master Version
;;;
;;; jpastin@evilpc.com
;;;
;;;
;;; Code:


;;; Define Kix Commands
(defvar kix-commands
'("AND" "BEEP" "BIG" "BREAK" "CALL" "CASE" "CD" "CLS" "COLOR" "COOKIE1" "COPY" "DEBUG" "DEL" "DIM" "DISPLAY" "DO" "EACH" "ELSE" "ENDFUNCTION" "ENDIF" "ENDSELECT" "EXIT" "FLUSHKB" "FOR" "FUNCTION" "GET" "GETS" "GLOBAL" "GO" "GOSUB" "GOTO" "IF" "INCLUDE" "LOOP" "MD" "MOVE" "NEXT" "NOT" "OR" "PASSWORD" "PLAY" "QUIT" "RD" "REDIM" "RETURN" "RUN" "PRESERVE" "SELECT" "SET" "SETL" "SETM" "SETTIME" "SHELL" "SLEEP" "SMALL" "TO" "UNTIL" "USE" "WHILE")
"Kix Commands.")

;;; Define Kix Functions
(defvar kix-functions
'("ABS" "ADDKEY" "ADDPRINTERCONNECTION" "ADDPROGRAMGROUP" "ADDPROGRAMITEM" "ASC" "ASCAN" "AT" "BACKUPEVENTLOG" "BOX" "CDBL" "CHR" "CINT" "CLEAREVENTLOG" "CLOSE" "COMPAREFILETIMES" "CREATEOBJECT" "CSTR" "DECTOHEX" "DELKEY" "DELPRINTERCONNECTION" "DELPROGRAMGROUP" "DELPROGRAMITEM" "DELTREE" "DELVALUE" "DIR" "ENUMGROUP" "ENUMIPINFO" "ENUMKEY" "ENUMLOCALGROUP" "ENUMVALUE" "EXECUTE" "EXIST" "EXISTKEY" "EXPANDENVIRONMENTVARS" "FIX" "FORMATNUMBER" "FREEFILEHANDLE" "GETDISKSPACE" "GETFILEATTR" "GETFILESIZE" "GETFILETIME" "GETFILEVERSION" "GETOBJECT" "IIF" "INGROUP" "INSTR" "INSTRREV" "INT" "ISDECLARED" "JOIN" "KBHIT" "KEYEXIST" "LCASE" "LEFT" "LEN" "LOADHIVE" "LOADKEY" "LOGEVENT" "LOGOFF" "LTRIM" "MEMORYSIZE" "MESSAGEBOX" "OPEN" "READLINE" "READPROFILESTRING" "READTYPE" "READVALUE" "REDIRECTOUTPUT" "RIGHT" "RND" "ROUND" "RTRIM" "SAVEKEY" "SENDKEYS" "SENDMESSAGE" "SETASCII" "SETCONSOLE" "SETDEFAULTPRINTER" "SETFILEATTR" "SETFOCUS" "SETOPTION" "SETSYSTEMSTATE" "SETTITLE" "SETWALLPAPER" "SHOWPROGRAMGROUP" "SHUTDOWN" "SIDTONAME" "SPLIT" "SRND" "SUBSTR" "TRIM" "UBOUND" "UCASE" "UNLOADHIVE" "VAL" "VARTYPE" "VARTYPENAME" "WRITELINE" "WRITEPROFILESTRING" "WRITEVALUE")
"Kix Functions.")

;;; Define Kix Macros
(defvar kix-macros
'("ADDRESS" "BUILD" "COLOR" "COMMENT" "CPU" "CRLF" "CSD" "CURDIR" "DATE" "DAY" "DOMAIN" "DOS" "ERROR" "FULLNAME" "HOMEDIR" "HOMEDRIVE" "HOMESHARE" "HOSTNAME" "INWIN" "IPADDRESS0" "IPADDRESS1" "IPADDRESS2" "IPADDRESS3" "IPADDRESS" "KIX" "LANROOT" "LDOMAIN" "LDRIVE" "LM" "LOGONMODE" "LONGHOMEDIR" "LSERVER" "MAXPWAGE" "MDAYNO" "MHZ" "MONTHNO" "MONTH" "MSECS" "ONWOW64" "PID" "PRIMARYGROUP" "PRIV" "PRODUCTSUITE" "PRODUCTTYPE" "PWAGE" "RAS" "RESULT" "RSERVER" "SCRIPTDIR" "SCRIPTEXE" "SCRIPTNAME" "SERROR" "SID" "SITE" "STARTDIR" "SYSLANG" "TICKS" "TIME" "TSESSION" "USERID" "USERLANG" "WDAYNO" "WKSTA" "WUSERID" "YDAYNO" "YEAR")
"Kix Macros.")

;;; Create variables containing regexps for each type
(defvar kix-commands-regexp (regexp-opt kix-commands 'words))
(defvar kix-functions-regexp (concat (regexp-opt kix-functions 'words) ""))
(defvar kix-macros-regexp (concat "@" (regexp-opt kix-macros 'words)))
(defvar kix-variables-regexp "\$[a-z|1-9|A-Z|\.|\_]*")

;;; Set up commenting
(defun kix-comment-dwim (arg)
(interactive "*P")
(require 'newcomment)
(let ((deactivate-mark nil) (comment-start ";") (comment-end ""))
(comment-dwim arg)))

;;; Override the default syntax table
(defvar kix-syntax-table
(let ((table (make-syntax-table)))

;;; To Fix '\' escaping things
(modify-syntax-entry ?\\ ". 14")

;;; For single line comments that start with ';'
(modify-syntax-entry ?\; "< b")
(modify-syntax-entry ?\n "> b")

;;; For block comments /*...*/
(modify-syntax-entry ?\/ ". 14")
(modify-syntax-entry ?* ". 23")
table))

;;; Assign the various faces
;;; Order matters here
(setq kix-font-lock-keywords
`(
(,kix-variables-regexp . font-lock-variable-name-face)
(,kix-commands-regexp . font-lock-keyword-face)
(,kix-functions-regexp . font-lock-function-name-face)
(,kix-macros-regexp . font-lock-constant-face)
))


;;; Define the mode
(define-derived-mode kix-mode fundamental-mode
"Kix Mode"
"A Major mode for editing KiXtart"

;;; Commit all of the font-lock changes
;;; The 'nil t' is required for case insensitivity in highlighting
(setq font-lock-defaults '((kix-font-lock-keywords) nil t))

;;; Commit the syntax table changes
(set-syntax-table kix-syntax-table)

;;; Set up commenting
(define-key kix-mode-map [remap comment-dwim] 'kix-comment-dwim)

;;; Set up basic indenting
(setq-default tab-width 4)
(setq-default tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80))
(setq-default indent-tabs-mode nil)





)

;;;
;;; kix-mode.el
;;;
;;; A major mode for GNU Emacs for KiXtart
;;;
;;; Jeremy Pastin
;;; 1-27-09
;;;
;;; Version 1.1
;;;
;;;
;;; Changelog
;;;
;;; 1.0 - Initial write
;;; 1.1 - Fixed regexp for variables to include '0', added "IN" to keywords,
;;; modified syntax table to use ' as a string quote character.
;;;
;;;
;;; This mode is freely distributable, under GPL
;;; Please send me any bug reports, bug fixes, or extensions, so that I can
;;; merge them into the Master Version
;;;
;;; jpastin@evilpc.com
;;;
;;;
;;; Code:


;;; Define Kix Commands
(defvar kix-commands
'("AND" "BEEP" "BIG" "BREAK" "CALL" "CASE" "CD" "CLS" "COLOR" "COOKIE1" "COPY" "DEBUG" "DEL" "DIM" "DISPLAY" "DO" "EACH" "ELSE" "ENDFUNCTION" "ENDIF" "ENDSELECT" "EXIT" "FLUSHKB" "FOR" "FUNCTION" "GET" "GETS" "GLOBAL" "GO" "GOSUB" "GOTO" "IF" "IN" "INCLUDE" "LOOP" "MD" "MOVE" "NEXT" "NOT" "OR" "PASSWORD" "PLAY" "QUIT" "RD" "REDIM" "RETURN" "RUN" "PRESERVE" "SELECT" "SET" "SETL" "SETM" "SETTIME" "SHELL" "SLEEP" "SMALL" "TO" "UNTIL" "USE" "WHILE")
"Kix Commands.")

;;; Define Kix Functions
(defvar kix-functions
'("ABS" "ADDKEY" "ADDPRINTERCONNECTION" "ADDPROGRAMGROUP" "ADDPROGRAMITEM" "ASC" "ASCAN" "AT" "BACKUPEVENTLOG" "BOX" "CDBL" "CHR" "CINT" "CLEAREVENTLOG" "CLOSE" "COMPAREFILETIMES" "CREATEOBJECT" "CSTR" "DECTOHEX" "DELKEY" "DELPRINTERCONNECTION" "DELPROGRAMGROUP" "DELPROGRAMITEM" "DELTREE" "DELVALUE" "DIR" "ENUMGROUP" "ENUMIPINFO" "ENUMKEY" "ENUMLOCALGROUP" "ENUMVALUE" "EXECUTE" "EXIST" "EXISTKEY" "EXPANDENVIRONMENTVARS" "FIX" "FORMATNUMBER" "FREEFILEHANDLE" "GETDISKSPACE" "GETFILEATTR" "GETFILESIZE" "GETFILETIME" "GETFILEVERSION" "GETOBJECT" "IIF" "INGROUP" "INSTR" "INSTRREV" "INT" "ISDECLARED" "JOIN" "KBHIT" "KEYEXIST" "LCASE" "LEFT" "LEN" "LOADHIVE" "LOADKEY" "LOGEVENT" "LOGOFF" "LTRIM" "MEMORYSIZE" "MESSAGEBOX" "OPEN" "READLINE" "READPROFILESTRING" "READTYPE" "READVALUE" "REDIRECTOUTPUT" "RIGHT" "RND" "ROUND" "RTRIM" "SAVEKEY" "SENDKEYS" "SENDMESSAGE" "SETASCII" "SETCONSOLE" "SETDEFAULTPRINTER" "SETFILEATTR" "SETFOCUS" "SETOPTION" "SETSYSTEMSTATE" "SETTITLE" "SETWALLPAPER" "SHOWPROGRAMGROUP" "SHUTDOWN" "SIDTONAME" "SPLIT" "SRND" "SUBSTR" "TRIM" "UBOUND" "UCASE" "UNLOADHIVE" "VAL" "VARTYPE" "VARTYPENAME" "WRITELINE" "WRITEPROFILESTRING" "WRITEVALUE")
"Kix Functions.")

;;; Define Kix Macros
(defvar kix-macros
'("ADDRESS" "BUILD" "COLOR" "COMMENT" "CPU" "CRLF" "CSD" "CURDIR" "DATE" "DAY" "DOMAIN" "DOS" "ERROR" "FULLNAME" "HOMEDIR" "HOMEDRIVE" "HOMESHARE" "HOSTNAME" "INWIN" "IPADDRESS0" "IPADDRESS1" "IPADDRESS2" "IPADDRESS3" "IPADDRESS" "KIX" "LANROOT" "LDOMAIN" "LDRIVE" "LM" "LOGONMODE" "LONGHOMEDIR" "LSERVER" "MAXPWAGE" "MDAYNO" "MHZ" "MONTHNO" "MONTH" "MSECS" "ONWOW64" "PID" "PRIMARYGROUP" "PRIV" "PRODUCTSUITE" "PRODUCTTYPE" "PWAGE" "RAS" "RESULT" "RSERVER" "SCRIPTDIR" "SCRIPTEXE" "SCRIPTNAME" "SERROR" "SID" "SITE" "STARTDIR" "SYSLANG" "TICKS" "TIME" "TSESSION" "USERID" "USERLANG" "WDAYNO" "WKSTA" "WUSERID" "YDAYNO" "YEAR")
"Kix Macros.")

;;; Create variables containing regexps for each type
(defvar kix-commands-regexp (regexp-opt kix-commands 'words))
(defvar kix-functions-regexp (concat (regexp-opt kix-functions 'words) ""))
(defvar kix-macros-regexp (concat "@" (regexp-opt kix-macros 'words)))
(defvar kix-variables-regexp "\$[a-z|0-9|A-Z|\.|\_]*")

;;; Set up commenting
(defun kix-comment-dwim (arg)
(interactive "*P")
(require 'newcomment)
(let ((deactivate-mark nil) (comment-start ";") (comment-end ""))
(comment-dwim arg)))

;;; Override the default syntax table
(defvar kix-syntax-table
(let ((table (make-syntax-table)))

;;; Use ' as a string quote character
(modify-syntax-entry ?\' "\"")

;;; To Fix '\' escaping things
(modify-syntax-entry ?\\ ". 14")

;;; For single line comments that start with ';'
(modify-syntax-entry ?\; "< b")
(modify-syntax-entry ?\n "> b")

;;; For block comments /*...*/
(modify-syntax-entry ?\/ ". 14")
(modify-syntax-entry ?* ". 23")
table))

;;; Assign the various faces
;;; Order matters here
(setq kix-font-lock-keywords
`(
(,kix-variables-regexp . font-lock-variable-name-face)
(,kix-commands-regexp . font-lock-keyword-face)
(,kix-functions-regexp . font-lock-function-name-face)
(,kix-macros-regexp . font-lock-constant-face)
))


;;; Define the mode
(define-derived-mode kix-mode fundamental-mode
"Kix Mode"
"A Major mode for editing KiXtart"

;;; Commit all of the font-lock changes
;;; The 'nil t' is required for case insensitivity in highlighting
(setq font-lock-defaults '((kix-font-lock-keywords) nil t))

;;; Commit the syntax table changes
(set-syntax-table kix-syntax-table)

;;; Set up commenting
(define-key kix-mode-map [remap comment-dwim] 'kix-comment-dwim)

;;; Set up basic indenting
(setq-default tab-width 4)
(setq-default tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80))
(setq-default indent-tabs-mode nil)





)

(load-library "kix-mode")
(add-to-list 'auto-mode-alist '("\\.kix\\'" . kix-mode))