# Style sheet for PostScript
# Copyright (c) 1988-1993 Miguel Santana
# Copyright (c) 1995-1999 Akim Demaille, Miguel Santana
# $Id: ps.ssh,v 1.1.1.1.2.1 2007/12/29 01:58:32 mhatta Exp $
#

#
# This file is part of a2ps.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; see the file COPYING.  If not, see
# <https://www.gnu.org/licenses/gpl-3.0.html>.
#

## 1.3 Akim Demaille
# Define Comment_strong after comments.

style PostScript is
written by "Akim Demaille <akim@freefriends.org>"
requires a2ps version 4.12a
version is 1.4

documentation is
  "Only some keywords are highlighted, because otherwise listings are quickly"
  "becoming a big bold spot."
end documentation

alphabets are
   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_\\-"
case sensitive

keywords in Keyword_strong are
   add, arc, array, begin, bind, clip, charpath, closepath, copy,
   currentdict, currentfont, curveto, def, definefont, dict, div, dup,
   "end", eq, exch, fill, for, forall, findfont, get, ge, grestore,
   gsave, gt, if, ifelse, index, known, length, le, lineto, lt,
   moveto, mul, neg, newpath, pop, put, restore, rlineto, rmoveto,
   roll, rotate, save, scale, scalefont, setcachedevice, setfont,
   setgray, setlinewidth, show, showpage, stringwidth, stroke, sub,
   translate, where, xor
end keywords

operators in Label_strong are
    # We make the bet that '\name {' is a function declaration
    (/^(\/[-a-z_A-Z]*)([ \t]*\\{)/ \1, \2 Plain)
end operators

keywords in Keyword are
   true, false
end keywords

optional keywords are
   le \leq,
   ge \geq,
   eq \equiv,
   ne \neq
end keywords

sequences are
    % Comment,
    "(" Plain String ")" Plain
       exceptions are
          "\\\\", "\\(", "\\)"
       end exceptions,
    %! Comment_strong,
    %% Comment_strong
end sequences
end style
