2
;; Copyright (c) 2002 by The XFree86 Project, Inc.
4
;; Permission is hereby granted, free of charge, to any person obtaining a
5
;; copy of this software and associated documentation files (the "Software"),
6
;; to deal in the Software without restriction, including without limitation
7
;; the rights to use, copy, modify, merge, publish, distribute, sublicense,
8
;; and/or sell copies of the Software, and to permit persons to whom the
9
;; Software is furnished to do so, subject to the following conditions:
11
;; The above copyright notice and this permission notice shall be included in
12
;; all copies or substantial portions of the Software.
14
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
17
;; THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
18
;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
19
;; OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22
;; Except as contained in this notice, the name of the XFree86 Project shall
23
;; not be used in advertising or otherwise to promote the sale, use or other
24
;; dealings in this Software without prior written authorization from the
27
;; Author: Paulo César Pereira de Andrade
30
;; $XFree86: xc/programs/xedit/lisp/modules/progmodes/make.lsp,v 1.2 2002/10/06 17:11:48 paulo Exp $
36
(defsynprop *prop-shell*
38
:font "*courier-bold-r*-12-*"
42
(defsynprop *prop-variable*
44
:font "*courier-medium-r*-12-*"
48
;; The syntax-highlight definition does not try to flag errors, just show
49
;; tabs in the start of lines for better visualization.
50
(defsynprop *prop-tabulation*
52
:font "*courier-medium-r*-12-*"
57
(defsyntax *make-mode* :main nil nil nil
58
(syntoken "^\\t+" :property *prop-tabulation*)
60
(syntoken "^\\.\\w+" :property *prop-keyword*)
65
:property *prop-shell*)
67
(syntoken "[][(){};$<=>&@/\\,.:~!|*?'`+-]"
68
:property *prop-shell*)
70
;; Preprocessor start rule.
72
:property *prop-comment*)
80
;; Quoted string start rule.
86
(syntable :shell *prop-variable* nil
89
:property *prop-shell*
94
(syntable :string *prop-string* nil
96
;; Ignore escaped characters, this includes \".
99
;; Ignore continuation in the next line.
102
;; Rule to finish a string.
107
;; Don't allow strings continuing in the next line.
112
;; Rules for quoted strings.
113
(syntable :quoted-string *prop-constant* nil
115
;; Rule to finish the quoted string.
120
;; Ignore escaped characters
123
;; Ignore continuation in the next line.
126
;; Don't allow strings continuing in the next line.
131
(syntable :error *prop-error* nil