git@sv
/
enscript.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add highlighting for Fortran 90
[enscript.git]
/
states
/
hl
/
lang_overstrike.st
1
2
state lang_overstrike
3
{
4
BEGIN {
5
sub map_color (r, g, b)
6
{
7
return "";
8
}
9
10
LANGUAGE_SPECIALS = /./;
11
12
sub language_print (str)
13
{
14
if (italic_flag)
15
print (regsuball (str, /[A-Za-z0-9]/, "_\010$0"));
16
else if (bold_flag)
17
print (regsuball (str, /[^\n]/, "$0\010$0"));
18
else
19
print (str);
20
}
21
22
sub language_symbol (symbol)
23
{
24
return false;
25
}
26
27
sub header ()
28
{
29
bold_flag = 0;
30
italic_flag = 0;
31
}
32
33
sub trailer ()
34
{
35
}
36
37
sub face_on (face)
38
{
39
if (face[boldp])
40
bold_flag = 1;
41
if (face[italicp])
42
italic_flag = 1;
43
}
44
45
sub face_off (face)
46
{
47
if (face[boldp])
48
bold_flag = 0;
49
if (face[italicp])
50
italic_flag = 0;
51
}
52
53
return;
54
}
55
}
56
57
\f
58
/*
59
Local variables:
60
mode: c
61
End:
62
*/