;;; generic-pilrc.el -- An Emacs mode for editing PILRC resource files.
;;;
;;; Copyright (c) 1997 by Matthew Cravit.

;; Author: Matthew Cravit <mcravit@best.com>
;; Maintainer: Matthew Cravit <mcravit@best.com>
;; Created: Wed Jul 30 10:46:58 1997
;; Version: 0.1

;; This file contains a generic mode (which requires generic-mode.el) for
;; editing PILRC files. PILRC is the resource compiler for applications to
;; run on the USR PalmPilot PDA. I've used generic-mode here primarily to
;; (somewhat) simplify the font-lock stuff; eventually, I'll rewrite this
;; as a proper major mode and eliminate the dependancies on generic-mode.
;; Meanwhile, generic-mode.el can be downloaded from:
;;
;; http://www.cs.washington.edu/homes/voelker/ntemacs/contrib/generic-mode.el

;; This mode also provides some functions for inserting resource templates
;; which can be edited as needed.

;; Bugs:
;; * Lines with have an ID or MENUID and then an identifier name and then a
;;   newline, such as:
;;
;;        FORM ID frm_Main
;;
;;   with nothing between the identifier and the newline, don't get fontified
;;   properly. This is no doubt a regexp problem, and I'm working on figuring
;;   out why it's not working. Lines like
;;
;;        FORM ID frm_Main USABLE
;;
;;   do get fontified correctly.

(require 'generic-mode)
(require 'font-lock)

(defun pilrc-setup nil
	(font-lock-mode 1)
	(font-lock-fontify-buffer))

(define-generic-mode 'pilrc-generic-mode
	(list "//")
	nil
	'(("\\<\\(AUTO\\|CENTER\\|PREVLEFT\\|PREVTOP\\|PREVRIGHT\\|PREVBOTTOM\\|PREVWIDTH\\|PREVHEIGHT\\)\\>" 1 'font-lock-reference-face)
	  ("\\<\\(BEGIN\\|END\\|FRAME\\|NOFRAME\\|USABLE\\|MODAL\\|SAVEBEHIND\\|DISABLED\\|NONUSABLE\\|LEFTANCHOR\\|RIGHTANCHOR\\|BOLDFRAME\\|FONT\\|GROUP\\|CHECKED\\|EDITABLE\\|NONEDITABLE\\|UNDERLINED\\|SINGLELINE\\|MULTIPLELINES\\|MAXCHARS\\|VISIBLEITEMS\\|ROWS\\|COLUMNS\\|COLUMNWIDTHS\\|INFORMATION\\|CONFIRMATION\\|WARNING\\|ERROR\\|MESSAGE\\|BUTTONS\\|AT\\)\\>" 1 'font-lock-keyword-face)
	  ("\\<\\(FORM\\|BUTTON\\|PUSHBUTTON\\|CHECKBOX\\|POPUPTRIGGER\\|SELECTORTRIGGER\\|REPEATBUTTON\\|LABEL\\|FIELD\\|POPUPLIST\\|LIST\\|FORMBITMAP\\|GADGET\\|TABLE\\|GRAFFITISTATEINDICATOR\\|MENUITEM\\|PULLDOWN\\|MENU\\|ALERT\\|VERSION\\|STRING\\|APPLICATIONICONNAME\\|APPLICATION\\|TITLE\\|TRANSLATION\\)\\>" 1 'font-lock-type-face)
	  ("\\b\\(MENUID\\|ID\\|HELPID\\|DEFAULTBTNID\\)\\b\\s +?\\b\\(\\S *?\\)\\b"
	   (1 'font-lock-keyword-face)
	   (2 'font-lock-variable-name-face)
	  ))
	(list "\\.rcp$")
	(list 'pilrc-setup)
	"Generic mode for pilrc files.")

(defun pilrc-insert-form nil
  (interactive)
  (insert "FORM ID identifier AT ( left top width height )\n"
	  "MENUID identifier\n"
	  "HELPID identifier\n"
	  "BEGIN\n"
	  "\tTITLE \"Title\"\n"
	  "<objects>\n"
	  "END\n\n"))

(defun pilrc-insert-menu nil
  (interactive)
  (insert "MENU ID identifier\n"
	  "BEGIN\n"
	  "\tPULLDOWN \"Title\"\n"
	  "\tBEGIN\n"
	  "\t\tMENUITEM \"Title\" identifier \"hotkey\"\n"
	  "\tEND\n"
	  "END\n\n"))

(defun pilrc-insert-alert nil
  (interactive)
  (insert "ALERT ID identifier\n"
	  "type\n"
	  "HELPID identifier\n"
	  "BEGIN\n"
	  "\tTITLE \"title\"\n"
	  "\tMESSAGE \"message\"\n"
	  "\tBUTTONS \"btntext\"\n"
	  "END\n\n"))

(defun pilrc-insert-version nil
  (interactive)
  (insert "VERSION ID identifier \"version\"\n\n"))

(defun pilrc-insert-string nil
  (interactive)
  (insert "STRING ID identifier \"string\"\n\n"))

(defun pilrc-insert-icontitle nil
  (interactive)
  (insert "APPLICATIONICONNAME ID identifier \"title\"\n\n"))

(defun pilrc-insert-application nil
  (interactive)
  (insert "APPLICATION ID identifier \"appcode\"\n\n"))

(defun pilrc-insert-icon nil
  (interactive)
  (insert "ICON \"filename\"\n\n"))

(defun pilrc-insert-bitmap nil
  (interactive)
  (insert "BITMAP ID identifier \"filename\"\n\n"))

(defun pilrc-insert-translation nil
  (interactive)
  (insert "TRANSLATION \"language\"\n"
	  "BEGIN\n"
	  "\t\"original\" = \"translated\"\n"
	  "END\n\n"))

(provide 'generic-pilrc)