1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
# 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.1.1.1.2.1 2007/12/29 01:58:33 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, 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
|
