C.Style
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, March 2, 1988 9:54:09 am PST
Peter B. Kessler March 4, 1988 4:12:28 pm PST
BeginStyle
(
CodeFont) "code font" {
"Terminal" family
} StyleRule
(
FontFamily) "main font" {
"Classic" family
} StyleRule
(
AlternateFontFamily) "other font" {
"Modern" family
} StyleRule
(Nest) "nop for this style" {} StyleRule
(CodeIndent) {0} .cvx .def
(TabSize) {CodeFont 8 sp} .cvx .def
(
HalfTabSize) {CodeFont 4 sp} .cvx .def
(
root) "for root node" {
XeroxCharCodes
cedar.root
} StyleRule
(
code) "for code" {
standard
IF isComment THEN {1 sp restIndent} ELSE {HalfTabSize restIndent} FI
} StyleRule
(
codeExdent) "for exdented code nodes" {
code
IF nestingLevel 1 .eq .not THEN {TabSize smaller leftIndent} FI
} StyleRule
(
default) "style rule for nodes without explict formats" {
code
} StyleRule
(
standard) "shared" {
cedar.standard
TabSize tabStops IF nestingLevel 1 .eq .not THEN {TabSize bigger leftIndent} FI
FontFamily
IF isComment THEN {look.c} ELSE {regular face} FI
} StyleRule
(
look.c) "
comments" {
+italic face AlternateFontFamily 2 pt bigger size} StyleRule
(
look.t) "
used for placeholders" {
"xerox/tiogafonts/" fontPrefix "tioga" family regular face 10 bp size} StyleRule