Savannah Git Hosting - enscript.git/blob

1 /*

2 * C preprocessor line handling. This is shared between C, C++, and

3 * Objective-C highlighting rules.

4 */

6 state c_ppline extends CHighlight

7 {

8 BEGIN {

9 require_state (c);

10 }

11 /* Comments within a pre-processor line. */

12 /\/\*/ {

13 comment_face (true);

14 language_print ($0);

15 call (c_comment);

16 comment_face (false);

17 }

18 /* Include line. */

19 /(include)([ \t]+)/ {

20 reference_face (true);

21 language_print ($1);

22 reference_face (false);

23 language_print ($2);

24 call (c_ppline_include);

25 return;

26 }

27 /* Define line. */

28 /(define)([ \t]+)/ {

29 reference_face (true);

30 language_print ($1);

31 reference_face (false);

32 language_print ($2);

33 call (c_ppline_define);

34 return;

35 }

36 /* Simple directives:

37 (build-re '(undef if ifdef ifndef endif elif else line error pragma))

38 */

39 /\b(e(l(if|se)|ndif|rror)|if(|def|ndef)|line|pragma|undef)\b/ {

40 reference_face (true);

41 language_print ($0);

42 reference_face (false);

43 call (c_ppline_tokensequence);

44 return;

45 }

46 /* An unknown pre-processor directive. */

47 /[a-zA-Z_][^ \t\n]*/ {

48 reference_face (true);

49 language_print ($0);

50 reference_face (false);

51 call (c_ppline_tokensequence);

52 return;

53 }

54 /\n/ {

55 language_print ($0);

56 return;

57 }

58 }

60 state c_ppline_include extends CHighlight

61 {

62 /\"/ {

63 string_face (true);

64 language_print ($0);

65 call (c_string);

66 string_face (false);

67 call (c_ppline_comments_strings_chars);

68 return;

69 }

70 /<[^<>]+>/ {

71 string_face (true);

72 language_print ($0);

73 string_face (false);

74 call (c_ppline_comments_strings_chars);

75 return;

76 }

77 /[a-zA-Z_][a-zA-Z_0-9]*/ {

78 variable_name_face (true);

79 print ($0);

80 variable_name_face (false);

81 call (c_ppline_comments_strings_chars);

82 return;

83 }

84 /\n/ {

85 language_print ($0);

86 return;

87 }

88 }

90 state c_ppline_define extends CHighlight

91 {

92 /([a-zA-Z_][a-zA-Z_0-9]*)($[^$]*\))?/ {

93 if (strcmp ($2, "") != 0)

94 {

95 function_name_face (true);

96 language_print ($1);

97 function_name_face (false);

98 language_print ($2);

99 }

100 else

101 {

102 variable_name_face (true);

103 language_print ($1);

104 variable_name_face (false);

105 }

106 call (c_ppline_comments_strings_chars);

107 return;

108 }

109 /\n/ {

110 language_print ($0);

111 return;

112 }

113 }

114

115 state c_ppline_comments_strings_chars extends CHighlight

116 {

117 /* Comments. */

118 /\/\*/ {

119 comment_face (true);

120 language_print ($0);

121 call (c_comment);

122 comment_face (false);

123 }

124 /* String constants. */

125 /\"/ {

126 string_face (true);

127 language_print ($0);

128 call (c_string);

129 string_face (false);

130 }

131 /* Character constants. */

132 /'.'|'\\\\.'/ {

133 string_face (true);

134 language_print ($0);

135 string_face (false);

136 }

137 /\n/ {

138 language_print ($0);

139 return;

140 }

141 }

142

143 state c_ppline_tokensequence extends CHighlight

144 {

145 /* Comments. */

146 /\/\*/ {

147 comment_face (true);

148 language_print ($0);

149 call (c_comment);

150 comment_face (false);

151 }

152 /* String constants. */

153 /\"/ {

154 string_face (true);

155 language_print ($0);

156 call (c_string);

157 string_face (false);

158 }

159 /* Character constants. */

160 /'.'|'\\\\.'/ {

161 string_face (true);

162 language_print ($0);

163 string_face (false);

164 }

165 /* defined() operators. */

166 /(defined)($)([^$]+)(\))/ {

167 reference_face (true);

168 language_print ($1);

169 reference_face (false);

170 language_print ($2);

171

172 variable_name_face (true);

173 language_print ($3);

174 variable_name_face (false);

175

176 language_print ($4);

177 }

178 /* Variable references. */

179 /\b[a-zA-Z_][a-zA-Z_0-9]*\b/ {

180 variable_name_face (true);

181 language_print ($0);

182 variable_name_face (false);

183 }

184 /\n/ {

185 language_print ($0);

186 return;

187 }

188 }

189

190 \f

191 /*

192 Local variables:

193 mode: c

194 End:

195 */