# Style sheet for tcl
# Copyright (c) 1988, 89, 90, 91, 92, 93 Miguel Santana
# Copyright (c) 1995, 96, 97, 98 Akim Demaille, Miguel Santana
# $Id: tcl.ssh,v 1.8 1998/01/15 15:02:50 demaille 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 2, 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, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#

## 1.1 Akim Demaille <akim@freefriends.org>
# Cleaned up, and made it a base for tk.

## 1.2 Larry W. Virden <lvirden@cas.org>
# Cleaned up, included Tcl 8.0 keywords

style "Tool Command Language" is

written by "Akim Demaille <akim@freefriends.org>, Larry W. Virden <lvirden@cas.org>"
version is 1.2

documentation is
  "Since everything, or almost, is a string, what is printed is not"
  "always what you would like."
end documentation

first alphabet is
   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-._#$%"
second alphabet is
   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-._#$%"

case sensitive

keywords in Keyword_strong are
   after, append, array, auto_execok, auto_load, auto_mkindex, auto_reset,
   bgerror, binary, break,
   "case", catch, cd, clock, close, concat, continue, default,
   else, elseif, eof, error, eval, exec, exit, expr,
   fblocked, fconfigure, fcopy, file, fileevent, filename, flush,
   for, foreach, format,
   gets, glob, global, history, http,
   if, incr, info, interp, join,
   lappend, lindex, linsert, llength, lrange, lreplace, lsearch, lsort,
   library, list, load,
   memory, namespace, open, optproc, 
   package, parray, pid, pkg_mkIndex, proc, puts, pwd,
   read, regexp, registry, regsub, rename, resource, return,
   safe, scan, seek, set, socket, source, split, string, subst, switch,
   tell, then, time, trace,
   unknown, unset, update, uplevel, upvar, variable, vwait, while
end keywords

optional keywords are
	argc, argv, arg0,
	env, errorCode, errorInfo, tcl_library, tcl_patchLevel,
        tcl_pkgPath, tcl_platform, tcl_precision, tcl_rcFileName,
        tcl_rcRsrcName, tcl_traceCompile, tcl_traceExec, tcl_version
end keywords

optional operators are
   :: ,
   && \wedge,
   || \vee,
   != \neq,
   == \equiv,
   <= \leq,
   >= \geq,
   ! \not
end operators

sequences are
    "#" Comment,
    C-string
end sequences
end style
