15dfecf96Smrg;;
25dfecf96Smrg;; Copyright (c) 2003 by The XFree86 Project, Inc.
35dfecf96Smrg;;
45dfecf96Smrg;; Permission is hereby granted, free of charge, to any person obtaining a
55dfecf96Smrg;; copy of this software and associated documentation files (the "Software"),
65dfecf96Smrg;; to deal in the Software without restriction, including without limitation
75dfecf96Smrg;; the rights to use, copy, modify, merge, publish, distribute, sublicense,
85dfecf96Smrg;; and/or sell copies of the Software, and to permit persons to whom the
95dfecf96Smrg;; Software is furnished to do so, subject to the following conditions:
105dfecf96Smrg;;
115dfecf96Smrg;; The above copyright notice and this permission notice shall be included in
125dfecf96Smrg;; all copies or substantial portions of the Software.
135dfecf96Smrg;;
145dfecf96Smrg;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
155dfecf96Smrg;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
165dfecf96Smrg;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
175dfecf96Smrg;; THE XFREE86 PROJECT BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
185dfecf96Smrg;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF
195dfecf96Smrg;; OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
205dfecf96Smrg;; SOFTWARE.
215dfecf96Smrg;;
225dfecf96Smrg;; Except as contained in this notice, the name of the XFree86 Project shall
235dfecf96Smrg;; not be used in advertising or otherwise to promote the sale, use or other
245dfecf96Smrg;; dealings in this Software without prior written authorization from the
255dfecf96Smrg;; XFree86 Project.
265dfecf96Smrg;;
275dfecf96Smrg;; Author: Paulo César Pereira de Andrade
285dfecf96Smrg;;
295dfecf96Smrg;;
305dfecf96Smrg;; $XFree86$
315dfecf96Smrg;;
325dfecf96Smrg
335dfecf96Smrg(require "syntax")
345dfecf96Smrg(require "indent")
355dfecf96Smrg(in-package "XEDIT")
365dfecf96Smrg
375dfecf96Smrg(defsyntax *patch-mode* :main nil #'default-indent nil
385dfecf96Smrg  ;; "normal" diff
395dfecf96Smrg  (syntoken "^(\\d+d\\d+|\\d+a\\d+,\\d+)$" :property *prop-keyword*)
405dfecf96Smrg  (syntoken "^<.*" :property *prop-constant*)
415dfecf96Smrg  (syntoken "^>.*" :property *prop-preprocessor*)
425dfecf96Smrg
435dfecf96Smrg  ;; context diff
445dfecf96Smrg  (syntoken "^\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*"
455dfecf96Smrg    :property *prop-string*)
465dfecf96Smrg  (syntoken "^\\*\\*\\* \\d+,\\d+ \\*\\*\\*\\*" :property *prop-comment*)
475dfecf96Smrg  (syntoken "^--- \\d+,\\d+ ----" :property *prop-comment*)
485dfecf96Smrg
495dfecf96Smrg  ;; headers
505dfecf96Smrg  (syntoken "^(---|\\+\\+\\+|\\*\\*\\*).*" :property *prop-keyword*)
515dfecf96Smrg
525dfecf96Smrg  (syntoken "^@@ .*" :property *prop-comment*)
535dfecf96Smrg  (syntoken "^-.*" :property *prop-constant*)
545dfecf96Smrg  (syntoken "^\\+.*" :property *prop-preprocessor*)
555dfecf96Smrg)
56