lib/lexer.tes


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

!* Lexer configuration and styles (ED hook) *!

!* Match Q-Reg "_" against beginning of current doc's first line *!
@[lexer.checkheader]{
  [: 0,(1ESPOSITIONFROMLINE:)::S ]:
}

!*
 * The monospaced font for source code and
 * figures in woman-pages.
 *!
[lexer.font]Monospace
1200U[lexer.font]

@[lexer.auto]{
  -
  0EJ-1">
    32ESSTYLESETFONTQ[lexer.font]
    Q[lexer.font],32ESSTYLESETSIZEFRACTIONAL
  '
  :M[color.init]
  :Q*"=  '
  [_
}

!* Automatically mung all the lexers and add them to "lexer.auto" *!
[*
  EQ.[lexers]
  [_ 1ENQ[$SCITECOPATH]/lexers/*.tes ]_ J
  <:L;R
    0X.[filename] 4R .U.p <-A-^^/"= 1; ':R;> .,Q.pX.[name]
    EIQ.[filename]
    :@EU[lexer.auto]{
      :M[lexer.test.Q.[name]]"S :M[lexer.set.Q.[name]] ]_ '
    }
  L>
]*

:@[lexer.auto]{
  ]_
}