Scheme.Style
Copyright Ó 1987, 1990, 1991 by Xerox Corporation. All rights reserved.
Last Changed by Pavel on May 15, 1990 2:56 pm PDT
Michael Plass, January 6, 1988 9:38:54 am PST
Last tweaked by Mike Spreitzer on May 16, 1990 8:23:06 am PDT
BeginStyle
(Cedar) AttachStyle
(
nestIndent) 0 StyleParam
(NestIndent) {the nestIndent sp Magnified} .cvx .def
(DefaultNest) "for everything" {DoNest} StyleRule
(
AsciiFont) "This fixed-pitch font is available on the printers..." {
FixedPitchFont
} PrintRule
(
AsciiFont) "...and this one is available for the screen" {
"AMTeX" family
} ScreenRule
(
root) "our own special root format, overriding parts of cedarRoot" {
cedarRoot
BasicSize size
} StyleRule
(default) "most nodes" { scheme } StyleRule
(
schemer) "common to all Scheme nodes" {
standard
AsciiFont
Nest
8 sp tabStops
IF isComment THEN {look.c 0 sp restIndent} ELSE {6 sp restIndent} FI
} StyleRule
(
scheme) "normal Scheme nodes" {
scheme3
} StyleRule
(
scheme1) "indented by 1 space" {
1 nestIndent
schemer
} StyleRule
(
scheme2) "indented by 2 spaces" {
2 nestIndent
schemer
} StyleRule
(
scheme3) "indented by 3 spaces" {
3 nestIndent
schemer
} StyleRule
(
scheme4) "indented by 4 spaces" {
4 nestIndent
schemer
} StyleRule
(
scheme5) "indented by 5 spaces" {
5 nestIndent
schemer
} StyleRule
(
scheme6) "indented by 6 spaces" {
6 nestIndent
schemer
} StyleRule
(
scheme7) "indented by 7 spaces" {
7 nestIndent
schemer
} StyleRule
(
scheme8) "indented by 8 spaces" {
8 nestIndent
schemer
} StyleRule
(
scheme9) "indented by 9 spaces" {
9 nestIndent
schemer
} StyleRule
(
scheme10) "indented by 10 spaces" {
10 nestIndent
schemer
} StyleRule
(
scheme11) "indented by 11 spaces" {
11 nestIndent
schemer
} StyleRule
(
scheme12) "indented by 12 spaces" {
12 nestIndent
schemer
} StyleRule
(
scheme13) "indented by 13 spaces" {
13 nestIndent
schemer
} StyleRule
(
scheme14) "indented by 14 spaces" {
14 nestIndent
schemer
} StyleRule
(
scheme15) "indented by 15 spaces" {
15 nestIndent
schemer
} StyleRule
(
scheme16) "indented by 16 spaces" {
16 nestIndent
schemer
} StyleRule
(
scheme17) "indented by 17 spaces" {
17 nestIndent
schemer
} StyleRule
(
scheme18) "indented by 18 spaces" {
18 nestIndent
schemer
} StyleRule
(
scheme19) "indented by 19 spaces" {
19 nestIndent
schemer
} StyleRule
(
scheme20) "indented by 20 spaces" {
20 nestIndent
schemer
} StyleRule
(
look.c) "Scheme comments" {
look.i look.f
} StyleRule
(
look.k) "Scheme syntactic keywords" {
look.f look.i look.z
} StyleRule
(
look.n) "Scheme defined names" {
look.f look.b
} StyleRule
EndStyle