;;; obj-mode.el --- Major mode for editing X-Plane scenery files

;; Copyright (C) 2004-2012 Jonathan Harris

;; Author: Jonathan Harris <x-plane at marginal.org.uk>

;;; Add following lines (un-commented) to your `.emacs' or
;;; `.xemacs/init.el' file and put obj-mode.el somewhere on your
;;; load-path to take advantage of obj-mode.
;;; (autoload 'obj-mode "obj-mode"
;;;   "Major mode for editing X-Plane OBJ files" t)
;;; (add-to-list 'auto-mode-alist '("\\.obj\\'"  . obj-mode))

;;; You may also want to byte-compile obj-mode.el to improve performance.
;;; Try evaluating the following form:
;;; (byte-compile-file (locate-library "obj-mode.el"))

(require 'font-lock)

(provide 'obj-mode)

(defconst obj-comment-regexp "\\(//\\|^\\s-*#\\).*"
  "X-Plane OBJ comment REGEXP")
(defconst obj-keyword-regexp
  (concat "^\\(OBJ\\|700\\|800\\|99\\|-?[1-8]\\|\\s-*\\("
	  (mapconcat
	   'identity
	   '(
	     "end"
	     "light"
	     "line"
	     "tri"
	     "quad"
	     "quad_hard"
	     "smoke_black"
	     "smoke_white"
	     "quad_movie"
	     "polygon"
	     "quad_strip"
	     "quad_cockpit"
	     "tri_strip"
	     "tri_fan"
	     "ATTR_shade_flat"
	     "ATTR_shade_smooth"
	     "ATTR_ambient_rgb"
	     "ATTR_difuse_rgb"
	     "ATTR_diffuse_rgb"
	     "ATTR_specular_rgb"
	     "ATTR_emission_rgb"
	     "ATTR_shiny_rat"
	     "ATTR_no_depth"
	     "ATTR_depth"
	     "ATTR_LOD"
	     "ATTR_no_cull"
	     "ATTR_cull"
	     "ATTR_poly_os"
	     "ATTR_reset"
	     ; v8
	     "TEXTURE"
	     "TEXTURE_LIT"
	     "POINT_COUNTS"
	     "slung_load_weight"
	     "VT"
	     "VLINE"
	     "VLIGHT"
	     "IDX"
	     "IDX10"
	     "TRIS"
	     "LINES"
	     "LIGHTS"
	     "ATTR_hard"
	     "ATTR_no_hard"
	     "ATTR_cockpit"
	     "ATTR_no_cockpit"
	     "ATTR_blend"
	     "ATTR_no_blend"
	     "ANIM_begin"
	     "ANIM_end"
	     "ANIM_rotate"
	     "ANIM_trans"
	     ; v8.5
	     "LIGHT_NAMED"
	     "LIGHT_CUSTOM"
	     "ATTR_layer_group"
	     "ANIM_show"
	     "ANIM_hide"
	     ; v9
	     "ANIM_trans_begin"
	     "ANIM_trans_key"
	     "ANIM_trans_end"
	     "ANIM_rotate_begin"
	     "ANIM_rotate_key"
	     "ANIM_rotate_end"
	     "ANIM_keyframe_loop"
	     "ATTR_cockpit_region"
	     "ATTR_hard_deck"
	     "ATTR_manip_none"
	     "ATTR_manip_drag_xy"
	     "ATTR_manip_drag_axis"
	     "ATTR_manip_command"
	     "ATTR_manip_command_axis"
	     "ATTR_manip_noop"
	     "ATTR_light_level"
	     "ATTR_light_level_reset"
	     "ATTR_draw_enable"
	     "ATTR_draw_disable"
	     "ATTR_solid_camera"
	     "ATTR_no_solid_camera"
	     "ATTR_manip_push"
	     "ATTR_manip_radio"
	     "ATTR_manip_toggle"
	     "ATTR_manip_delta"
	     "ATTR_manip_wrap"
	     "COCKPIT_REGION"
	     "TEXTURE_NORMAL"
	     "LIGHT_PARAM"
	     ; v10
	     "ATTR_draped"
	     "ATTR_no_draped"
	     "ATTR_layer_group_draped"
	     "ATTR_LOD_draped"
	     "TEXTURE_DRAPED"
	     "TEXTURE_DRAPED_NORMAL"
	     ) "\\|")
  	  "\\)\\)\\( \\|\t\\|$\\)+")
  "internal use")

(defconst obj-font-lock-keywords
;;;  (purecopy
  (list
   (cons obj-comment-regexp 'font-lock-comment-face)
   (cons obj-keyword-regexp 'font-lock-keyword-face)
   )
;;;)
  "Major mode for editing X-Plane OBJ files.")

;###autoload
;(defun obj-mode ()
;  (interactive)
;  "Major mode for editing X-Plane OBJ files."
;  )

;;;###autoload
(define-derived-mode obj-mode text-mode "Object"
  "Major mode for editing X-Plane OBJ files.\nDerived from text-mode."
  (delete ".obj" completion-ignored-extensions)
  (set (make-local-variable 'comment-start) "\(//|#\) ")
  (set (make-local-variable 'comment-end) "")
  (set (make-local-variable 'comment-start-skip) "^\\(\\s-*\\)//\\s-*")
  (setq font-lock-keywords obj-font-lock-keywords)	; XEmacs
  (setq font-lock-defaults `(obj-font-lock-keywords))	; Emacs
  ;(setq font-lock-keywords-case-fold-search nil)
  (if (and (boundp 'font-lock-auto-fontify)		; XEmacs
	   font-lock-auto-fontify)
      (font-lock-mode 1))
  (run-hooks 'obj-mode-hook)
  )

;;; obj-mode.el ends here