annotate lisp/progmodes/ps-mode.el @ 70148:a2348b30cc21

(restore_menu_items, save_menu_items): New functions from xmenu.c. (set_frame_menubar, digest_single_submenu): Apply 2006-04-18 changes for xmenu.c.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Fri, 21 Apr 2006 07:56:47 +0000
parents dc49655f57ae
children e3694f1cb928 4b3d39451150
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 33965
diff changeset
1 ;;; ps-mode.el --- PostScript mode for GNU Emacs
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
68773
dc49655f57ae Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents: 66963
diff changeset
3 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006
64699
629afbe74e61 Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents: 64085
diff changeset
4 ;; Free Software Foundation, Inc.
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
63574
545e1eb57222 Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents: 62402
diff changeset
6 ;; Author: Peter Kleiweg <p.c.j.kleiweg@rug.nl>
545e1eb57222 Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents: 62402
diff changeset
7 ;; Maintainer: Peter Kleiweg <p.c.j.kleiweg@rug.nl>
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 ;; Created: 20 Aug 1997
63574
545e1eb57222 Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents: 62402
diff changeset
9 ;; Version: 1.1h, 16 Jun 2005
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 ;; Keywords: PostScript, languages
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 ;; the Free Software Foundation; either version 2, or (at your option)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 ;; any later version.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63574
diff changeset
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63574
diff changeset
27 ;; Boston, MA 02110-1301, USA.
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29 ;;; Commentary:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 ;;; Code:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33
63574
545e1eb57222 Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents: 62402
diff changeset
34 (defconst ps-mode-version "1.1h, 16 Jun 2005")
545e1eb57222 Update version and maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents: 62402
diff changeset
35 (defconst ps-mode-maintainer-address "Peter Kleiweg <p.c.j.kleiweg@rug.nl>")
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
36
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 (require 'easymenu)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39 ;; Define core `PostScript' group.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 (defgroup PostScript nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 "PostScript mode for Emacs."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 :group 'languages)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 (defgroup PostScript-edit nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 "PostScript editing."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 65584
diff changeset
46 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 :prefix "ps-mode-"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 :group 'PostScript)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 (defgroup PostScript-interaction nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 "PostScript interaction."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 :prefix "ps-run-"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 :group 'PostScript)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 ;; User variables.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 (defcustom ps-mode-auto-indent t
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 "*Should we use autoindent?"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 :group 'PostScript-edit
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 :type 'boolean)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 (defcustom ps-mode-tab 4
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 "*Number of spaces to use when indenting."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 :group 'PostScript-edit
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 :type 'integer)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 (defcustom ps-mode-paper-size '(595 842)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 "*Default paper size.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 When inserting an EPSF template these values are used
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 to set the boundingbox to include the whole page.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 When the figure is finished these values should be replaced."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 :group 'PostScript-edit
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 :type '(choice
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 (const :tag "letter" (612 792))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 (const :tag "legal" (612 1008))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 (const :tag "a0" (2380 3368))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 (const :tag "a1" (1684 2380))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 (const :tag "a2" (1190 1684))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 (const :tag "a3" (842 1190))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 (const :tag "a4" (595 842))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 (const :tag "a5" (421 595))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 (const :tag "a6" (297 421))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 (const :tag "a7" (210 297))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 (const :tag "a8" (148 210))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 (const :tag "a9" (105 148))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 (const :tag "a10" (74 105))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 (const :tag "b0" (2836 4008))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 (const :tag "b1" (2004 2836))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 (const :tag "b2" (1418 2004))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 (const :tag "b3" (1002 1418))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 (const :tag "b4" (709 1002))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 (const :tag "b5" (501 709))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 (const :tag "archE" (2592 3456))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 (const :tag "archD" (1728 2592))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96 (const :tag "archC" (1296 1728))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 (const :tag "archB" (864 1296))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 (const :tag "archA" (648 864))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 (const :tag "flsa" (612 936))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 (const :tag "flse" (612 936))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 (const :tag "halfletter" (396 612))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 (const :tag "11x17" (792 1224))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 (const :tag "tabloid" (792 1224))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 (const :tag "ledger" (1224 792))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 (const :tag "csheet" (1224 1584))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 (const :tag "dsheet" (1584 2448))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 (const :tag "esheet" (2448 3168))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
109 (defcustom ps-mode-print-function
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
110 (lambda ()
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
111 (let ((lpr-switches nil)
26384
b23b59eb6a78 (ps-mode-print-function): Changed default
Gerd Moellmann <gerd@gnu.org>
parents: 26093
diff changeset
112 (lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix))
b23b59eb6a78 (ps-mode-print-function): Changed default
Gerd Moellmann <gerd@gnu.org>
parents: 26093
diff changeset
113 "lp" "lpr")))
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
114 (lpr-buffer)))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 "*Lisp function to print current buffer as PostScript."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116 :group 'PostScript-edit
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
117 :type 'function)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
118
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119 (defcustom ps-run-prompt "\\(GS\\(<[0-9]+\\)?>\\)+"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 "*Regexp to match prompt in interactive PostScript."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 :type 'regexp)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
124 (defcustom ps-run-font-lock-keywords-2
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
125 (append (unless (string= ps-run-prompt "")
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
126 (list (list (if (= ?^ (string-to-char ps-run-prompt))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
127 ps-run-prompt
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
128 (concat "^" ps-run-prompt))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
129 '(0 font-lock-function-name-face nil nil))))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
130 '((">>showpage, press <return> to continue<<"
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
131 (0 font-lock-keyword-face nil nil))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
132 ("^\\(Error\\|Can't\\).*"
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
133 (0 font-lock-warning-face nil nil))
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
134 ("^\\(Current file position is\\) \\([0-9]+\\)"
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
135 (1 font-lock-comment-face nil nil)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
136 (2 font-lock-warning-face nil nil))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
137 "*Medium level highlighting of messages from the PostScript interpreter.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
138
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
139 See documentation on font-lock for details."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
140 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
141 :type '(repeat (list :tag "Expression with one or more highlighters"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
142 :value ("" (0 default nil t))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
143 (regexp :tag "Expression")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
144 (repeat :tag "Highlighters"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
145 :inline regexp
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
146 (list :tag "Highlighter"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
147 (integer :tag "Subexp")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
148 face
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149 (boolean :tag "Override")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
150 (boolean :tag "Laxmatch" :value t))))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
151
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
152 (defcustom ps-run-x '("gs" "-r72" "-sPAPERSIZE=a4")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
153 "*Command as list to run PostScript with graphic display."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
154 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
155 :type '(repeat string))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
156
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
157 (defcustom ps-run-dumb '("gs" "-dNODISPLAY")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158 "*Command as list to run PostScript without graphic display."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
160 :type '(repeat string))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
161
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
162 (defcustom ps-run-init nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
163 "*String of commands to send to PostScript to start interactive.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
164
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
165 Example: \"executive\"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
166
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
167 You won't need to set this option for Ghostscript."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
168 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
169 :type '(choice (const nil) string))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
170
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
171 (defcustom ps-run-error-line-numbers nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
172 "*What values are used by the PostScript interpreter in error messages?"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174 :type '(choice (const :tag "line numbers" t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
175 (const :tag "byte counts" nil)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
176
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
177 (defcustom ps-run-tmp-dir nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
178 "*Name of directory to place temporary file.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
179
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
180 If nil, the following are tried in turn, until success:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
181 1. \"$TEMP\"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182 2. \"$TMP\"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
183 3. \"$HOME/tmp\"
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
184 4. \"/tmp\""
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
185 :group 'PostScript-interaction
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
186 :type '(choice (const nil) directory))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
187
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
188
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
189 ;; Constants used for font-lock.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
190
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
191 ;; Only a small set of the PostScript operators is selected for fontification.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
192 ;; Fontification is meant to clarify the document structure and process flow,
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
193 ;; fontifying all known PostScript operators would hinder that objective.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
194 (defconst ps-mode-operators
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
195 (let ((ops '("clear" "mark" "cleartomark" "counttomark"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
196 "forall"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
197 "dict" "begin" "end" "def"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
198 "true" "false"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
199 "exec" "if" "ifelse" "for" "repeat" "loop" "exit"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
200 "stop" "stopped" "countexecstack" "execstack"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
201 "quit" "start"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
202 "save" "restore"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
203 "bind" "null"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
204 "gsave" "grestore" "grestoreall"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
205 "showpage")))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
206 (concat "\\<" (regexp-opt ops t) "\\>"))
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
207 "Regexp of PostScript operators that will be fontified.")
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
208
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
209 ;; Level 1 font-lock:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
210 ;; - Special comments (reference face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
211 ;; - Strings and other comments
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
212 ;; - Partial strings (warning face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
213 ;; - 8bit characters (warning face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
214 ;; Multiline strings are not supported. Strings with nested brackets are.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
215 (defconst ps-mode-font-lock-keywords-1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
216 '(("\\`%!PS.*" . font-lock-reference-face)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
217 ("^%%BoundingBox:[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]+-?[0-9]+[ \t]*$"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
218 . font-lock-reference-face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
219 (ps-mode-match-string-or-comment
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
220 (1 font-lock-comment-face nil t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
221 (2 font-lock-string-face nil t))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
222 ("([^()\n%]*\\|[^()\n]*)" . font-lock-warning-face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
223 ("[\200-\377]+" (0 font-lock-warning-face prepend nil)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
224 "Subdued level highlighting for PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
225
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
226 ;; Level 2 font-lock:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
227 ;; - All from level 1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
228 ;; - PostScript operators (keyword face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
229 (defconst ps-mode-font-lock-keywords-2
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
230 (append
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
231 ps-mode-font-lock-keywords-1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
232 (list
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
233 (cons
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
234 ;; exclude names prepended by `/'
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
235 (concat "\\(^\\|[^/\n]\\)" ps-mode-operators)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
236 '(2 font-lock-keyword-face))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
237 "Medium level highlighting for PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
238
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
239 ;; Level 3 font-lock:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
240 ;; - All from level 2
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
241 ;; - Immediately evaluated names: those starting with `//' (type face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
242 ;; - Names that look like they are used for the definition of:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
243 ;; * a function
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
244 ;; * an array
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
245 ;; * a dictionary
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
246 ;; * a "global" variable
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
247 ;; (function name face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
248 ;; - Other names (variable name face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
249 ;; The rules used to determine what names fit in the first category are:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
250 ;; - Only names that are at the left margin, and one of these on the same line:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
251 ;; * Nothing after the name except possibly one or more `[' or a comment
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
252 ;; * A `{' or `<<' or `[0-9]+ dict' following the name
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
253 ;; * A `def' somewhere in the same line
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
254 ;; Names are fontified before PostScript operators, allowing the use of
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
255 ;; a more simple (efficient) regexp than the one used in level 2.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
256 (defconst ps-mode-font-lock-keywords-3
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
257 (append
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258 ps-mode-font-lock-keywords-1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 (list
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
260 '("//\\w+" . font-lock-type-face)
40901
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
261 `(,(concat
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
262 "^\\(/\\w+\\)\\>"
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
263 "\\([[ \t]*\\(%.*\\)?\r?$" ; Nothing but `[' or comment after the name.
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
264 "\\|[ \t]*\\({\\|<<\\)" ; `{' or `<<' following the name.
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
265 "\\|[ \t]+[0-9]+[ \t]+dict\\>" ; `[0-9]+ dict' following the name.
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
266 "\\|.*\\<def\\>\\)") ; `def' somewhere on the same line.
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
267 . (1 font-lock-function-name-face))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
268 '("/\\w+" . font-lock-variable-name-face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269 (cons ps-mode-operators 'font-lock-keyword-face)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270 "High level highliting for PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272 (defconst ps-mode-font-lock-keywords ps-mode-font-lock-keywords-1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 "Default expressions to highlight in PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
274
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275 ;; Level 1 font-lock for ps-run-mode
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
276 ;; - prompt (function name face)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
277 (defconst ps-run-font-lock-keywords-1
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
278 (unless (string= "" ps-run-prompt)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
279 (list (cons (if (= ?^ (string-to-char ps-run-prompt))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
280 ps-run-prompt
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
281 (concat "^" ps-run-prompt))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
282 'font-lock-function-name-face)))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 "Subdued level highlighting for PostScript run mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
284
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
285 (defconst ps-run-font-lock-keywords ps-run-font-lock-keywords-1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
286 "Default expressions to highlight in PostScript run mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 ;; Variables.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
291 (defvar ps-mode-map nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
292 "Local keymap to use in PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
293
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
294 (defvar ps-mode-syntax-table nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 "Syntax table used while in PostScript mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297 (defvar ps-run-mode-map nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298 "Local keymap to use in PostScript run mode.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300 (defvar ps-mode-tmp-file nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301 "Name of temporary file, set by `ps-run'.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
303 (defvar ps-run-mark nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
304 "Mark to start of region that was sent to PostScript interpreter.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
305
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
306 (defvar ps-run-parent nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
307 "Parent window of interactive PostScript.")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
308
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
309
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310 ;; Menu
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
312 (defconst ps-mode-menu-main
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
313 '("PostScript"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 ["EPSF Template, Sparse" ps-mode-epsf-sparse t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315 ["EPSF Template, Rich" ps-mode-epsf-rich t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 ("Cookbook"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318 ["RE" ps-mode-RE t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319 ["ISOLatin1Extended" ps-mode-latin-extended t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 ["center" ps-mode-center t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 ["right" ps-mode-right t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
322 ["Heapsort" ps-mode-heapsort t])
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323 ("Fonts (1)"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324 ["Times-Roman" (insert "/Times-Roman ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325 ["Times-Bold" (insert "/Times-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326 ["Times-Italic" (insert "/Times-Italic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327 ["Times-BoldItalic" (insert "/Times-BoldItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328 ["Helvetica" (insert "/Helvetica ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 ["Helvetica-Bold" (insert "/Helvetica-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330 ["Helvetica-Oblique" (insert "/Helvetica-Oblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 ["Helvetica-BoldOblique" (insert "/Helvetica-BoldOblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 ["Courier" (insert "/Courier ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 ["Courier-Bold" (insert "/Courier-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 ["Courier-Oblique" (insert "/Courier-Oblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335 ["Courier-BoldOblique" (insert "/Courier-BoldOblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
336 ["Symbol" (insert "/Symbol") t ])
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
337 ("Fonts (2)"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
338 ["AvantGarde-Book" (insert "/AvantGarde-Book ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
339 ["AvantGarde-Demi" (insert "/AvantGarde-Demi ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 ["AvantGarde-BookOblique" (insert "/AvantGarde-BookOblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341 ["AvantGarde-DemiOblique" (insert "/AvantGarde-DemiOblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 ["Bookman-Light" (insert "/Bookman-Light ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 ["Bookman-Demi" (insert "/Bookman-Demi ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 ["Bookman-LightItalic" (insert "/Bookman-LightItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345 ["Bookman-DemiItalic" (insert "/Bookman-DemiItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
346 ["Helvetica-Narrow" (insert "/Helvetica-Narrow ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
347 ["Helvetica-Narrow-Bold" (insert "/Helvetica-Narrow-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348 ["Helvetica-Narrow-Oblique" (insert "/Helvetica-Narrow-Oblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349 ["Helvetica-Narrow-BoldOblique" (insert "/Helvetica-Narrow-BoldOblique ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
350 ["NewCenturySchlbk-Roman" (insert "/NewCenturySchlbk-Roman ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351 ["NewCenturySchlbk-Bold" (insert "/NewCenturySchlbk-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 ["NewCenturySchlbk-Italic" (insert "/NewCenturySchlbk-Italic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 ["NewCenturySchlbk-BoldItalic" (insert "/NewCenturySchlbk-BoldItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354 ["Palatino-Roman" (insert "/Palatino-Roman ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355 ["Palatino-Bold" (insert "/Palatino-Bold ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
356 ["Palatino-Italic" (insert "/Palatino-Italic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357 ["Palatino-BoldItalic" (insert "/Palatino-BoldItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
358 ["ZapfChancery-MediumItalic" (insert "/ZapfChancery-MediumItalic ") t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
359 ["ZapfDingbats" (insert "/ZapfDingbats ") t])
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
360 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
361 ["Comment Out Region" ps-mode-comment-out-region (mark t)]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
362 ["Uncomment Region" ps-mode-uncomment-region (mark t)]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
363 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
364 ["8-bit to Octal Buffer" ps-mode-octal-buffer t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
365 ["8-bit to Octal Region" ps-mode-octal-region (mark t)]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
366 "---"
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
367 ["Auto Indent" (setq ps-mode-auto-indent (not ps-mode-auto-indent))
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
368 :style toggle :selected ps-mode-auto-indent]
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
369 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
370 ["Start PostScript"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
371 ps-run-start
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
372 t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
373 ["Quit PostScript" ps-run-quit (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
374 ["Kill PostScript" ps-run-kill (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
375 ["Send Buffer to Interpreter"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
376 ps-run-buffer
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
377 (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
378 ["Send Region to Interpreter"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
379 ps-run-region
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
380 (and (mark t) (process-status "ps-run"))]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
381 ["Send Newline to Interpreter"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
382 ps-mode-other-newline
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
383 (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
384 ["View BoundingBox"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
385 ps-run-boundingbox
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
386 (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
387 ["Clear/Reset PostScript Graphics"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
388 ps-run-clear
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
389 (process-status "ps-run")]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
390 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
391 ["Print Buffer as PostScript"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
392 ps-mode-print-buffer
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
393 t]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
394 ["Print Region as PostScript"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
395 ps-mode-print-region
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
396 (mark t)]
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
397 "---"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
398 ["Customize for PostScript"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
399 (customize-group "PostScript")
26402
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
400 t]
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
401 "---"
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
402 ["Submit Bug Report"
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
403 ps-mode-submit-bug-report
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404 t]))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 ;; Mode maps for PostScript edit mode and PostScript interaction mode.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
408
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
409 (unless ps-mode-map
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
410 (setq ps-mode-map (make-sparse-keymap))
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
411 (define-key ps-mode-map "\C-cv" 'ps-mode-show-version)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
412 (define-key ps-mode-map "\C-c\C-v" 'ps-run-boundingbox)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
413 (define-key ps-mode-map "\C-c\C-u" 'ps-mode-uncomment-region)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
414 (define-key ps-mode-map "\C-c\C-t" 'ps-mode-epsf-rich)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
415 (define-key ps-mode-map "\C-c\C-s" 'ps-run-start)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
416 (define-key ps-mode-map "\C-c\C-r" 'ps-run-region)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
417 (define-key ps-mode-map "\C-c\C-q" 'ps-run-quit)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
418 (define-key ps-mode-map "\C-c\C-p" 'ps-mode-print-buffer)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
419 (define-key ps-mode-map "\C-c\C-o" 'ps-mode-comment-out-region)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
420 (define-key ps-mode-map "\C-c\C-k" 'ps-run-kill)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
421 (define-key ps-mode-map "\C-c\C-j" 'ps-mode-other-newline)
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
422 (define-key ps-mode-map "\C-c\C-c" 'ps-run-clear)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
423 (define-key ps-mode-map "\C-c\C-b" 'ps-run-buffer)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
424 (define-key ps-mode-map ">" 'ps-mode-r-gt)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
425 (define-key ps-mode-map "]" 'ps-mode-r-angle)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
426 (define-key ps-mode-map "}" 'ps-mode-r-brace)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
427 (define-key ps-mode-map "\177" 'ps-mode-backward-delete-char)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
428 (define-key ps-mode-map "\t" 'ps-mode-tabkey)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
429 (define-key ps-mode-map "\r" 'ps-mode-newline)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
430 (define-key ps-mode-map [return] 'ps-mode-newline)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
431 (easy-menu-define ps-mode-main ps-mode-map "PostScript" ps-mode-menu-main))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
432
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
433 (unless ps-run-mode-map
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
434 (setq ps-run-mode-map (make-sparse-keymap))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
435 (define-key ps-run-mode-map "\C-c\C-q" 'ps-run-quit)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 (define-key ps-run-mode-map "\C-c\C-k" 'ps-run-kill)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437 (define-key ps-run-mode-map "\C-c\C-e" 'ps-run-goto-error)
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
438 (define-key ps-run-mode-map [mouse-2] 'ps-run-mouse-goto-error)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
439 (define-key ps-run-mode-map "\r" 'ps-run-newline)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
440 (define-key ps-run-mode-map [return] 'ps-run-newline))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
443 ;; Syntax table.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
444
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445 (unless ps-mode-syntax-table
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
446 (setq ps-mode-syntax-table (make-syntax-table))
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
447
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
448 (modify-syntax-entry ?\% "< " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
449 (modify-syntax-entry ?\n "> " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
450 (modify-syntax-entry ?\r "> " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
451 (modify-syntax-entry ?\f "> " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
452 (modify-syntax-entry ?\< "(>" ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
453 (modify-syntax-entry ?\> ")<" ps-mode-syntax-table)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
454
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
455 (modify-syntax-entry ?\! "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
456 (modify-syntax-entry ?\" "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
457 (modify-syntax-entry ?\# "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
458 (modify-syntax-entry ?\$ "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
459 (modify-syntax-entry ?\& "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
460 (modify-syntax-entry ?\' "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
461 (modify-syntax-entry ?\* "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
462 (modify-syntax-entry ?\+ "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
463 (modify-syntax-entry ?\, "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
464 (modify-syntax-entry ?\- "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
465 (modify-syntax-entry ?\. "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
466 (modify-syntax-entry ?\: "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
467 (modify-syntax-entry ?\; "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
468 (modify-syntax-entry ?\= "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
469 (modify-syntax-entry ?\? "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
470 (modify-syntax-entry ?\@ "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
471 (modify-syntax-entry ?\\ "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
472 (modify-syntax-entry ?^ "w " ps-mode-syntax-table) ; NOT: ?\^
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
473 (modify-syntax-entry ?\_ "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
474 (modify-syntax-entry ?\` "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
475 (modify-syntax-entry ?\| "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
476 (modify-syntax-entry ?\~ "w " ps-mode-syntax-table)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
477
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
478 (let ((i 128))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
479 (while (< i 256)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
480 (modify-syntax-entry i "w " ps-mode-syntax-table)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
481 (setq i (1+ i)))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
482
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
483
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
484 ;; PostScript mode.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
485
51417
0910a521766a (ps-mode): Use autoload cookie in the standard way.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 43684
diff changeset
486 ;;;###autoload
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
487 (define-derived-mode ps-mode fundamental-mode "PostScript"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
488 "Major mode for editing PostScript with GNU Emacs.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
489
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
490 Entry to this mode calls `ps-mode-hook'.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
491
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
492 The following variables hold user options, and can
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
493 be set through the `customize' command:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
494
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
495 `ps-mode-auto-indent'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
496 `ps-mode-tab'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
497 `ps-mode-paper-size'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
498 `ps-mode-print-function'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
499 `ps-run-prompt'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
500 `ps-run-font-lock-keywords-2'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
501 `ps-run-x'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
502 `ps-run-dumb'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
503 `ps-run-init'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
504 `ps-run-error-line-numbers'
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
505 `ps-run-tmp-dir'
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
506
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
507 Type \\[describe-variable] for documentation on these options.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
508
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
509
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
510 \\{ps-mode-map}
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
512
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
513 When starting an interactive PostScript process with \\[ps-run-start],
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
514 a second window will be displayed, and `ps-run-mode-hook' will be called.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
515 The keymap for this second window is:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
516
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
517 \\{ps-run-mode-map}
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
518
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
519
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
520 When Ghostscript encounters an error it displays an error message
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
521 with a file position. Clicking mouse-2 on this number will bring
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
522 point to the corresponding spot in the PostScript window, if input
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
523 to the interpreter was sent from that window.
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
524 Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect."
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
525 (set (make-local-variable 'font-lock-defaults)
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
526 '((ps-mode-font-lock-keywords
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
527 ps-mode-font-lock-keywords-1
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
528 ps-mode-font-lock-keywords-2
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
529 ps-mode-font-lock-keywords-3)
40901
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
530 t))
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
531 (set (make-local-variable 'comment-start) "%")
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
532 ;; NOTE: `\' has a special meaning in strings only
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
533 (set (make-local-variable 'comment-start-skip) "%+[ \t]*"))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
534
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
535 (defun ps-mode-show-version ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
536 "Show current version of PostScript mode."
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
537 (interactive)
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
538 (message " *** PostScript Mode (ps-mode) Version %s *** " ps-mode-version))
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
539
26402
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
540 (defun ps-mode-submit-bug-report ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
541 "Submit via mail a bug report on PostScript mode."
26402
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
542 (interactive)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
543 (when (y-or-n-p "Submit bug report on PostScript mode? ")
26421
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
544 (let ((reporter-prompt-for-summary-p nil)
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
545 (reporter-dont-compact-list '(ps-mode-print-function
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
546 ps-run-font-lock-keywords-2)))
26402
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
547 (reporter-submit-bug-report
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
548 ps-mode-maintainer-address
26421
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
549 (format "ps-mode.el %s [%s]" ps-mode-version system-type)
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
550 '(ps-mode-auto-indent
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
551 ps-mode-tab
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
552 ps-mode-paper-size
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
553 ps-mode-print-function
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
554 ps-run-prompt
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
555 ps-run-font-lock-keywords-2
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
556 ps-run-x
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
557 ps-run-dumb
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
558 ps-run-init
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
559 ps-run-error-line-numbers
a89f2624e1eb (ps-mode-submit-bug-report): Added list
Gerd Moellmann <gerd@gnu.org>
parents: 26402
diff changeset
560 ps-run-tmp-dir)))))
26402
541f35936e05 (ps-mode-maintainer-address): New constant.
Gerd Moellmann <gerd@gnu.org>
parents: 26384
diff changeset
561
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
562
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
563 ;; Helper functions for font-lock.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
564
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
565 ;; When this function is called, point is at an opening bracket.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
566 ;; This function should test if point is at the start of a string
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
567 ;; with nested brackets.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
568 ;; If true: move point to end of string
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
569 ;; set string to match data nr 2
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
570 ;; return new point
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
571 ;; If false: return nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
572 (defun ps-mode-looking-at-nested (limit)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
573 (let ((first (point))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
574 (level 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
575 pos)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
576 ;; Move past opening bracket.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
577 (forward-char 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
578 (setq pos (point))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
579 (while (and (> level 0) (< pos limit))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
580 ;; Search next bracket, stepping over escaped brackets.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
581 (if (not (looking-at "\\([^()\\\n]\\|\\\\.\\)*\\([()]\\)"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
582 (setq level -1)
40901
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
583 (setq level (+ level (if (string= "(" (match-string 2)) 1 -1)))
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
584 (goto-char (setq pos (match-end 0)))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
585 (if (not (= level 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
586 nil
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
587 ;; Found string with nested brackets, now set match data nr 2.
40901
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
588 (set-match-data (list first pos nil nil first pos))
f2a856e8a39c (ps-mode-font-lock-keywords-1): Merge two regular expressions into one.
Richard M. Stallman <rms@gnu.org>
parents: 40321
diff changeset
589 pos)))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
590
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
591 ;; This function should search for a string or comment
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
592 ;; If comment, return as match data nr 1
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
593 ;; If string, return as match data nr 2
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
594 (defun ps-mode-match-string-or-comment (limit)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
595 ;; Find the first potential match.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
596 (if (not (re-search-forward "[%(]" limit t))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
597 ;; Nothing found: return failure.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
598 nil
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
599 (let ((end (match-end 0)))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
600 (goto-char (match-beginning 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
601 (cond ((looking-at "\\(%.*\\)\\|\\((\\([^()\\\n]\\|\\\\.\\)*)\\)")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
602 ;; It's a comment or string without nested, unescaped brackets.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
603 (goto-char (match-end 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
604 (point))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
605 ((ps-mode-looking-at-nested limit)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
606 ;; It's a string with nested brackets.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
607 (point))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
608 (t
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
609 ;; Try next match.
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
610 (goto-char end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
611 (ps-mode-match-string-or-comment limit))))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
612
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
613
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
614 ;; Key-handlers.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
615
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
616 (defun ps-mode-target-column ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
617 "To what column should text on current line be indented?
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
618
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
619 Identation is increased if the last token on the current line
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
620 defines the beginning of a group. These tokens are: { [ <<"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
621 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
622 (beginning-of-line)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
623 (if (looking-at "[ \t]*\\(}\\|\\]\\|>>\\)")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
624 (condition-case err
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
625 (progn
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
626 (goto-char (match-end 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
627 (backward-sexp 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
628 (beginning-of-line)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
629 (if (looking-at "[ \t]+")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
630 (goto-char (match-end 0)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
631 (current-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
632 (error
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
633 (ding)
65584
6dbba0bd58df Message format fixes, commit no. 3
Deepak Goel <deego@gnufans.org>
parents: 64699
diff changeset
634 (message "%s" (error-message-string err))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
635 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
636 (let (target)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
637 (if (not (re-search-backward "[^ \t\n\r\f][ \t\n\r\f]*\\=" nil t))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
638 0
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
639 (goto-char (match-beginning 0))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
640 (beginning-of-line)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
641 (if (looking-at "[ \t]+")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
642 (goto-char (match-end 0)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
643 (setq target (current-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
644 (end-of-line)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
645 (if (re-search-backward "\\({\\|\\[\\|<<\\)[ \t]*\\(%[^\n]*\\)?\\=" nil t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
646 (setq target (+ target ps-mode-tab)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
647 target)))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
648
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
649 (defun ps-mode-newline ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
650 "Insert newline with proper indentation."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
651 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
652 (delete-horizontal-space)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
653 (insert "\n")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
654 (if ps-mode-auto-indent
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
655 (indent-to (ps-mode-target-column))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
656
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
657 (defun ps-mode-tabkey ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
658 "Indent/reindent current line, or insert tab."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
659 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
660 (let ((column (current-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
661 target)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
662 (if (or (not ps-mode-auto-indent)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
663 (< ps-mode-tab 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
664 (not (re-search-backward "^[ \t]*\\=" nil t)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
665 (insert "\t")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
666 (setq target (ps-mode-target-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
667 (while (<= target column)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
668 (setq target (+ target ps-mode-tab)))
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
669 (indent-line-to target))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
670
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
671 (defun ps-mode-backward-delete-char ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
672 "Delete backward indentation, or delete backward character."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
673 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
674 (let ((column (current-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
675 target)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
676 (if (or (not ps-mode-auto-indent)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
677 (< ps-mode-tab 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
678 (not (re-search-backward "^[ \t]+\\=" nil t)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
679 (delete-backward-char 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
680 (setq target (ps-mode-target-column))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
681 (while (> column target)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
682 (setq target (+ target ps-mode-tab)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
683 (while (>= target column)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
684 (setq target (- target ps-mode-tab)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
685 (if (< target 0)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
686 (setq target 0))
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
687 (indent-line-to target))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
688
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
689 (defun ps-mode-r-brace ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
690 "Insert `}' and perform balance."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
691 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
692 (insert "}")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
693 (ps-mode-r-balance "}"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
694
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
695 (defun ps-mode-r-angle ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
696 "Insert `]' and perform balance."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
697 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
698 (insert "]")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
699 (ps-mode-r-balance "]"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
700
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
701 (defun ps-mode-r-gt ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
702 "Insert `>' and perform balance."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
703 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
704 (insert ">")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
705 (ps-mode-r-balance ">>"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
706
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
707 (defun ps-mode-r-balance (right)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
708 "Adjust indentification if point after RIGHT."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
709 (if ps-mode-auto-indent
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
710 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
711 (when (re-search-backward (concat "^[ \t]*" (regexp-quote right) "\\=") nil t)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
712 (indent-line-to (ps-mode-target-column)))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
713 (blink-matching-open))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
714
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
715 (defun ps-mode-other-newline ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
716 "Perform newline in `*ps run*' buffer."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
717 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
718 (let ((buf (current-buffer)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
719 (set-buffer "*ps run*")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
720 (ps-run-newline)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
721 (set-buffer buf)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
722
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
723
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
724 ;; Print PostScript.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
725
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
726 (defun ps-mode-print-buffer ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
727 "Print buffer as PostScript."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
728 (interactive)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
729 (funcall ps-mode-print-function))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
730
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
731 (defun ps-mode-print-region (begin end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
732 "Print region as PostScript, adding minimal header and footer lines:
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
733
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
734 %!PS
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
735 <region>
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
736 showpage"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
737 (interactive "r")
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
738 (let ((buf (current-buffer)))
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
739 (with-temp-buffer
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
740 (insert "%!PS\n")
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
741 (insert-buffer-substring buf begin end)
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
742 (insert "\nshowpage\n")
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
743 (funcall ps-mode-print-function))))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
744
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
745
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
746 ;; Comment Out / Uncomment.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
747
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
748 (defun ps-mode-comment-out-region (begin end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
749 "Comment out region."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
750 (interactive "r")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
751 (let ((endm (make-marker)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
752 (set-marker endm end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
753 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
754 (goto-char begin)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
755 (if (= (current-column) 0)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
756 (insert "%"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
757 (while (and (= (forward-line) 0)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
758 (< (point) (marker-position endm)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
759 (insert "%")))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
760 (set-marker endm nil)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
761
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
762 (defun ps-mode-uncomment-region (begin end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
763 "Uncomment region.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
764
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
765 Only one `%' is removed, and it has to be in the first column."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
766 (interactive "r")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
767 (let ((endm (make-marker)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
768 (set-marker endm end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
769 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
770 (goto-char begin)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
771 (if (looking-at "^%")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
772 (delete-char 1))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
773 (while (and (= (forward-line) 0)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
774 (< (point) (marker-position endm)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
775 (if (looking-at "%")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
776 (delete-char 1))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
777 (set-marker endm nil)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
778
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
779
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
780 ;; Convert 8-bit to octal codes.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
781
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
782 (defun ps-mode-octal-buffer ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
783 "Change 8-bit characters to octal codes in buffer."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
784 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
785 (ps-mode-octal-region (point-min) (point-max)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
786
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
787 (defun ps-mode-octal-region (begin end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
788 "Change 8-bit characters to octal codes in region."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
789 (interactive "r")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
790 (if buffer-read-only
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
791 (progn
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
792 (ding)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
793 (message "Buffer is read only"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
794 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
795 (let (endm i)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
796 (setq endm (make-marker))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
797 (set-marker endm end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
798 (goto-char begin)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
799 (setq i 0)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
800 (while (re-search-forward "[\200-\377]" (marker-position endm) t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
801 (setq i (1+ i))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
802 (backward-char)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
803 (insert (format "\\%03o" (string-to-char (buffer-substring (point) (1+ (point))))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
804 (delete-char 1))
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
805 (message "%d change%s made" i (if (= i 1) "" "s"))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
806 (set-marker endm nil)))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
807
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
808
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
809 ;; Cookbook.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
810
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
811 (defun ps-mode-center ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
812 "Insert function /center."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
813 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
814 (insert "
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
815 /center {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
816 dup stringwidth
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
817 exch 2 div neg
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
818 exch 2 div neg
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
819 rmoveto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
820 } bind def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
821 "))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
822
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
823 (defun ps-mode-right ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
824 "Insert function /right."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
825 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
826 (insert "
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
827 /right {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
828 dup stringwidth
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
829 exch neg
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
830 exch neg
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
831 rmoveto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
832 } bind def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
833 "))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
834
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
835 (defun ps-mode-RE ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
836 "Insert function /RE."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
837 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
838 (insert "
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
839 % `new-font-name' `encoding-vector' `old-font-name' RE -
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
840 /RE {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
841 findfont
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
842 dup maxlength dict begin {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
843 1 index /FID ne { def } { pop pop } ifelse
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
844 } forall
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
845 /Encoding exch def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
846 dup /FontName exch def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
847 currentdict end definefont pop
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
848 } bind def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
849 "))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
850
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
851 (defun ps-mode-latin-extended ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
852 "Insert array /ISOLatin1Extended.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
853
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
854 This encoding vector contains all the entries from ISOLatin1Encoding
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
855 plus the usually uncoded characters inserted on positions 1 through 28."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
856 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
857 (insert "
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
858 % ISOLatin1Encoding, extended with remaining uncoded glyphs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
859 /ISOLatin1Extended [
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
860 /.notdef /Lslash /lslash /OE /oe /Scaron /scaron /Zcaron /zcaron
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
861 /Ydieresis /trademark /bullet /dagger /daggerdbl /ellipsis /emdash
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
862 /endash /fi /fl /florin /fraction /guilsinglleft /guilsinglright
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
863 /perthousand /quotedblbase /quotedblleft /quotedblright
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
864 /quotesinglbase /quotesingle /.notdef /.notdef /.notdef /space
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
865 /exclam /quotedbl /numbersign /dollar /percent /ampersand
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
866 /quoteright /parenleft /parenright /asterisk /plus /comma /minus
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
867 /period /slash /zero /one /two /three /four /five /six /seven /eight
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
868 /nine /colon /semicolon /less /equal /greater /question /at /A /B /C
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
869 /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
870 /bracketleft /backslash /bracketright /asciicircum /underscore
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
871 /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
872 /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
873 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
874 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
875 /.notdef /.notdef /.notdef /dotlessi /grave /acute /circumflex
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
876 /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
877 /.notdef /hungarumlaut /ogonek /caron /space /exclamdown /cent
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
878 /sterling /currency /yen /brokenbar /section /dieresis /copyright
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
879 /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
880 /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
881 /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
882 /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
883 /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
884 /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
885 /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
886 /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
887 /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
888 /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
889 /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
890 /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
891 /ucircumflex /udieresis /yacute /thorn /ydieresis
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
892 ] def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
893 "))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
894
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
895 (defun ps-mode-heapsort ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
896 "Insert function /Heapsort."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
897 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
898 (insert "
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
899 % `array-element' Heapsort-cvi-or-cvr-or-cvs `number-or-string'
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
900 /Heapsort-cvi-or-cvr-or-cvs {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
901 % 0 get
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
902 } bind def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
903 % `array' Heapsort `sorted-array'
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
904 /Heapsort {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
905 dup length /hsR exch def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
906 /hsL hsR 2 idiv 1 add def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
907 {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
908 hsR 2 lt { exit } if
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
909 hsL 1 gt {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
910 /hsL hsL 1 sub def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
911 } {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
912 /hsR hsR 1 sub def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
913 dup dup dup 0 get exch dup hsR get
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
914 0 exch put
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
915 hsR exch put
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
916 } ifelse
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
917 dup hsL 1 sub get /hsT exch def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
918 /hsJ hsL def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
919 {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
920 /hsS hsJ def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
921 /hsJ hsJ dup add def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
922 hsJ hsR gt { exit } if
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
923 hsJ hsR lt {
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
924 dup dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
925 exch hsJ get Heapsort-cvi-or-cvr-or-cvs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
926 lt { /hsJ hsJ 1 add def } if
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
927 } if
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
928 dup hsJ 1 sub get Heapsort-cvi-or-cvr-or-cvs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
929 hsT Heapsort-cvi-or-cvr-or-cvs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
930 le { exit } if
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
931 dup dup hsS 1 sub exch hsJ 1 sub get put
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
932 } loop
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
933 dup hsS 1 sub hsT put
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
934 } loop
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
935 } bind def
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
936 "))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
937
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
938
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
939 ;; EPSF document lay-out.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
940
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
941 (defun ps-mode-epsf-sparse ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
942 "Insert sparse EPSF template."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
943 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
944 (goto-char (point-max))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
945 (unless (re-search-backward "%%EOF[ \t\n]*\\'" nil t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
946 (goto-char (point-max))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
947 (insert "\n%%EOF\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
948 (goto-char (point-max))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
949 (unless (re-search-backward "\\bshowpage[ \t\n]+%%EOF[ \t\n]*\\'" nil t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
950 (re-search-backward "%%EOF")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
951 (insert "showpage\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
952 (goto-char (point-max))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
953 (unless (re-search-backward "\\bend[ \t\n]+\\bshowpage[ \t\n]+%%EOF[ \t\n]*\\'" nil t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
954 (re-search-backward "showpage")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
955 (insert "\nend\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
956 (goto-char (point-min))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
957 (insert "%!PS-Adobe-3.0 EPSF-3.0\n%%BoundingBox: 0 0 ")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
958 (insert (format "%d %d\n\n"
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
959 (car ps-mode-paper-size)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
960 (car (cdr ps-mode-paper-size))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
961 (insert "64 dict begin\n\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
962
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
963 (defun ps-mode-epsf-rich ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
964 "Insert rich EPSF template."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
965 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
966 (ps-mode-epsf-sparse)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
967 (forward-line -3)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
968 (when buffer-file-name
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
969 (insert "%%Title: " (file-name-nondirectory buffer-file-name) "\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
970 (insert "%%Creator: " (user-full-name) "\n")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
971 (insert "%%CreationDate: " (current-time-string) "\n")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
972 (insert "%%EndComments\n")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
973 (forward-line 3))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
974
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
975
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
976 ;; Interactive PostScript interpreter.
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
977
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
978 (define-derived-mode ps-run-mode fundamental-mode "Interactive PS"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
979 "Major mode in interactive PostScript window.
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
980 This mode is invoked from `ps-mode' and should not be called directly.
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
981
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
982 \\{ps-run-mode-map}"
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
983 (set (make-local-variable 'font-lock-defaults)
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
984 '((ps-run-font-lock-keywords
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
985 ps-run-font-lock-keywords-1
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
986 ps-run-font-lock-keywords-2)
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
987 t))
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
988 (setq mode-line-process '(":%s")))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
989
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
990 (defun ps-run-running ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
991 "Error if not in `ps-mode' or not running PostScript."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
992 (unless (equal major-mode 'ps-mode)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
993 (error "This function can only be called from PostScript mode"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
994 (unless (equal (process-status "ps-run") 'run)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
995 (error "No PostScript process running")))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
996
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
997 (defun ps-run-start ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
998 "Start interactive PostScript."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
999 (interactive)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1000 (let ((command (or (and window-system ps-run-x) ps-run-dumb))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1001 (init-file nil)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1002 (process-connection-type nil)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1003 (oldwin (selected-window)))
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1004 (unless command
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1005 (error "No command specified to run interactive PostScript"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1006 (unless (and ps-run-mark (markerp ps-run-mark))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1007 (setq ps-run-mark (make-marker)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1008 (when ps-run-init
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1009 (setq init-file (ps-run-make-tmp-filename))
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
1010 (write-region (concat ps-run-init "\n") 0 init-file)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1011 (setq init-file (list init-file)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1012 (pop-to-buffer "*ps run*")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1013 (ps-run-mode)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1014 (when (process-status "ps-run")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1015 (delete-process "ps-run"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1016 (erase-buffer)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1017 (setq command (append command init-file))
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1018 (insert (mapconcat 'identity command " ") "\n")
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1019 (apply 'start-process "ps-run" "*ps run*" command)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1020 (select-window oldwin)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1021
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1022 (defun ps-run-quit ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1023 "Quit interactive PostScript."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1024 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1025 (ps-run-send-string "quit" t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1026 (ps-run-cleanup))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1027
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1028 (defun ps-run-kill ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1029 "Kill interactive PostScript."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1030 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1031 (delete-process "ps-run")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1032 (ps-run-cleanup))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1033
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1034 (defun ps-run-clear ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1035 "Clear/reset PostScript graphics."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1036 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1037 (ps-run-send-string "showpage" t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1038 (sit-for 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1039 (ps-run-send-string "" t))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1040
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1041 (defun ps-run-buffer ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1042 "Send buffer to PostScript interpreter."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1043 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1044 (ps-run-region (point-min) (point-max)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1045
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1046 (defun ps-run-region (begin end)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1047 "Send region to PostScript interpreter."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1048 (interactive "r")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1049 (ps-run-running)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1050 (setq ps-run-parent (buffer-name))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1051 (let ((f (ps-run-make-tmp-filename)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1052 (set-marker ps-run-mark begin)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1053 (write-region begin end f)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1054 (ps-run-send-string (format "(%s) run" f) t)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1055
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1056 (defun ps-run-boundingbox ()
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1057 "View BoundingBox."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1058 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1059 (ps-run-running)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1060 (let (x1 y1 x2 y2 f
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1061 (buf (current-buffer)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1062 (save-excursion
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1063 (goto-char 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1064 (re-search-forward
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1065 "^%%BoundingBox:[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)[ \t]+\\(-?[0-9]+\\)")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1066 (setq x1 (match-string 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1067 y1 (match-string 2)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1068 x2 (match-string 3)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1069 y2 (match-string 4)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1070 (unless (< (string-to-number x1) (string-to-number x2))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1071 (error "x1 (%s) should be less than x2 (%s)" x1 x2))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1072 (unless (< (string-to-number y1) (string-to-number y2))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1073 (error "y1 (%s) should be less than y2 (%s)" y1 y2))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1074 (setq f (ps-run-make-tmp-filename))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1075 (write-region
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1076 (format
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1077 "gsave
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1078 initgraphics
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1079 2 setlinewidth
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1080 %s %s moveto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1081 %s %s lineto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1082 %s %s lineto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1083 %s %s lineto
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1084 closepath
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1085 gsave
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1086 [ 4 20 ] 0 setdash
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1087 1 0 0 setrgbcolor
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1088 stroke
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1089 grestore
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1090 gsave
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1091 [ 4 20 ] 8 setdash
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1092 0 1 0 setrgbcolor
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1093 stroke
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1094 grestore
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1095 [ 4 20 ] 16 setdash
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1096 0 0 1 setrgbcolor
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1097 stroke
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1098 grestore
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1099 " x1 y1 x2 y1 x2 y2 x1 y2)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1100 0
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1101 f)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1102 (ps-run-send-string (format "(%s) run" f) t)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1103 (set-buffer buf)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1104
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1105 (defun ps-run-send-string (string &optional echo)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1106 (let ((oldwin (selected-window)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1107 (pop-to-buffer "*ps run*")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1108 (goto-char (point-max))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1109 (when echo
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1110 (insert string "\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1111 (set-marker (process-mark (get-process "ps-run")) (point))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1112 (process-send-string "ps-run" (concat string "\n"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1113 (select-window oldwin)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1114
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1115 (defun ps-run-make-tmp-filename ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1116 (unless ps-mode-tmp-file
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1117 (cond (ps-run-tmp-dir)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1118 ((setq ps-run-tmp-dir (getenv "TEMP")))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1119 ((setq ps-run-tmp-dir (getenv "TMP")))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1120 ((setq ps-run-tmp-dir (getenv "HOME"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1121 (setq
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1122 ps-run-tmp-dir
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1123 (concat (file-name-as-directory ps-run-tmp-dir) "tmp"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1124 (unless (file-directory-p ps-run-tmp-dir)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1125 (setq ps-run-tmp-dir nil))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1126 (unless ps-run-tmp-dir
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1127 (setq ps-run-tmp-dir "/tmp"))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1128 (setq ps-mode-tmp-file
43684
4111d9e8065d (ps-run-make-tmp-filename): Use make-temp-file.
Richard M. Stallman <rms@gnu.org>
parents: 40901
diff changeset
1129 (make-temp-file
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1130 (concat
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1131 (if ps-run-tmp-dir
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1132 (file-name-as-directory ps-run-tmp-dir)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1133 "")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1134 "ps-run-"))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1135 ps-mode-tmp-file)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1136
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1137 ;; Remove temporary file
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1138 ;; This shouldn't fail twice, because it is called at kill-emacs
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1139 (defun ps-run-cleanup ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1140 (when ps-mode-tmp-file
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1141 (let ((i ps-mode-tmp-file))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1142 (setq ps-mode-tmp-file nil)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1143 (when (file-exists-p i)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1144 (delete-file i)))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1145
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1146 (defun ps-run-mouse-goto-error (event)
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1147 "Set point at mouse click, then call `ps-run-goto-error'."
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1148 (interactive "e")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1149 (mouse-set-point event)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1150 (ps-run-goto-error))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1151
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1152 (defun ps-run-newline ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1153 "Process newline in PostScript interpreter window."
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1154 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1155 (end-of-line)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1156 (insert "\n")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1157 (forward-line -1)
26093
6b9477637c7c (ps-mode-print-function): Fix default
Gerd Moellmann <gerd@gnu.org>
parents: 25990
diff changeset
1158 (when (looking-at ps-run-prompt)
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1159 (goto-char (match-end 0)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1160 (looking-at ".*")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1161 (goto-char (1+ (match-end 0)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1162 (ps-run-send-string (buffer-substring (match-beginning 0) (match-end 0))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1163
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1164 (defun ps-run-goto-error ()
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1165 "Jump to buffer position read as integer at point.
40321
bdb409454d22 (ps-mode-print-function): Remove quote for
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
1166 Use line numbers if `ps-run-error-line-numbers' is not nil"
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1167 (interactive)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1168 (let ((p (point)))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1169 (unless (looking-at "[0-9]")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1170 (goto-char (max 1 (1- (point)))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1171 (when (looking-at "[0-9]")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1172 (forward-char 1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1173 (forward-word -1)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1174 (when (looking-at "[0-9]+")
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1175 (let (i)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1176 (setq
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1177 i
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
1178 (string-to-number
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1179 (buffer-substring (match-beginning 0) (match-end 0))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1180 (goto-char p)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1181 (pop-to-buffer ps-run-parent)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1182 (if ps-run-error-line-numbers
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1183 (progn
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1184 (goto-char (marker-position ps-run-mark))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1185 (forward-line (1- i))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1186 (end-of-line))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1187 (goto-char (+ i (marker-position ps-run-mark)))))))))
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1188
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1189
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1190 ;;
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1191 (add-hook 'kill-emacs-hook 'ps-run-cleanup)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1192
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1193 (provide 'ps-mode)
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1194
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51417
diff changeset
1195 ;;; arch-tag: dce13d2d-69fb-4ec4-9d5d-6dd29c3f0e6e
25990
2b2b161bac67 New file. Major mode for editing PostScript.
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1196 ;;; ps-mode.el ends here