zconf.y 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706
  1. %{
  2. /*
  3. * Copyright (C) 2002 Roman Zippel <zippel@linux-m68k.org>
  4. * Released under the terms of the GNU GPL v2.0.
  5. */
  6. #include <ctype.h>
  7. #include <stdarg.h>
  8. #include <stdio.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <stdbool.h>
  12. #define LKC_DIRECT_LINK
  13. #include "lkc.h"
  14. #include "zconf.hash.c"
  15. #define printd(mask, fmt...) if (cdebug & (mask)) printf(fmt)
  16. #define PRINTD 0x0001
  17. #define DEBUG_PARSE 0x0002
  18. int cdebug = PRINTD;
  19. extern int zconflex(void);
  20. static void zconfprint(const char *err, ...);
  21. static void zconf_error(const char *err, ...);
  22. static void zconferror(const char *err);
  23. static bool zconf_endtoken(struct kconf_id *id, int starttoken, int endtoken);
  24. struct symbol *symbol_hash[257];
  25. static struct menu *current_menu, *current_entry;
  26. #define YYDEBUG 0
  27. #if YYDEBUG
  28. #define YYERROR_VERBOSE
  29. #endif
  30. %}
  31. %expect 26
  32. %union
  33. {
  34. char *string;
  35. struct file *file;
  36. struct symbol *symbol;
  37. struct expr *expr;
  38. struct menu *menu;
  39. struct kconf_id *id;
  40. }
  41. %token <id>T_MAINMENU
  42. %token <id>T_MENU
  43. %token <id>T_ENDMENU
  44. %token <id>T_SOURCE
  45. %token <id>T_CHOICE
  46. %token <id>T_ENDCHOICE
  47. %token <id>T_COMMENT
  48. %token <id>T_CONFIG
  49. %token <id>T_MENUCONFIG
  50. %token <id>T_HELP
  51. %token <string> T_HELPTEXT
  52. %token <id>T_IF
  53. %token <id>T_ENDIF
  54. %token <id>T_DEPENDS
  55. %token <id>T_OPTIONAL
  56. %token <id>T_PROMPT
  57. %token <id>T_TYPE
  58. %token <id>T_DEFAULT
  59. %token <id>T_SELECT
  60. %token <id>T_RANGE
  61. %token <id>T_OPTION
  62. %token <id>T_ON
  63. %token <string> T_WORD
  64. %token <string> T_WORD_QUOTE
  65. %token T_UNEQUAL
  66. %token T_CLOSE_PAREN
  67. %token T_OPEN_PAREN
  68. %token T_EOL
  69. %left T_OR
  70. %left T_AND
  71. %left T_EQUAL T_UNEQUAL
  72. %nonassoc T_NOT
  73. %type <string> prompt
  74. %type <symbol> symbol
  75. %type <expr> expr
  76. %type <expr> if_expr
  77. %type <id> end
  78. %type <id> option_name
  79. %type <menu> if_entry menu_entry choice_entry
  80. %type <string> symbol_option_arg word_opt
  81. %destructor {
  82. fprintf(stderr, "%s:%d: missing end statement for this entry\n",
  83. $$->file->name, $$->lineno);
  84. if (current_menu == $$)
  85. menu_end_menu();
  86. } if_entry menu_entry choice_entry
  87. %%
  88. input: stmt_list;
  89. stmt_list:
  90. /* empty */
  91. | stmt_list common_stmt
  92. | stmt_list choice_stmt
  93. | stmt_list menu_stmt
  94. | stmt_list T_MAINMENU prompt nl
  95. | stmt_list end { zconf_error("unexpected end statement"); }
  96. | stmt_list T_WORD error T_EOL { zconf_error("unknown statement \"%s\"", $2); }
  97. | stmt_list option_name error T_EOL
  98. {
  99. zconf_error("unexpected option \"%s\"", kconf_id_strings + $2->name);
  100. }
  101. | stmt_list error T_EOL { zconf_error("invalid statement"); }
  102. ;
  103. option_name:
  104. T_DEPENDS | T_PROMPT | T_TYPE | T_SELECT | T_OPTIONAL | T_RANGE | T_DEFAULT
  105. ;
  106. common_stmt:
  107. T_EOL
  108. | if_stmt
  109. | comment_stmt
  110. | config_stmt
  111. | menuconfig_stmt
  112. | source_stmt
  113. ;
  114. option_error:
  115. T_WORD error T_EOL { zconf_error("unknown option \"%s\"", $1); }
  116. | error T_EOL { zconf_error("invalid option"); }
  117. ;
  118. /* config/menuconfig entry */
  119. config_entry_start: T_CONFIG T_WORD T_EOL
  120. {
  121. struct symbol *sym = sym_lookup($2, 0);
  122. sym->flags |= SYMBOL_OPTIONAL;
  123. menu_add_entry(sym);
  124. printd(DEBUG_PARSE, "%s:%d:config %s\n", zconf_curname(), zconf_lineno(), $2);
  125. };
  126. config_stmt: config_entry_start config_option_list
  127. {
  128. menu_end_entry();
  129. printd(DEBUG_PARSE, "%s:%d:endconfig\n", zconf_curname(), zconf_lineno());
  130. };
  131. menuconfig_entry_start: T_MENUCONFIG T_WORD T_EOL
  132. {
  133. struct symbol *sym = sym_lookup($2, 0);
  134. sym->flags |= SYMBOL_OPTIONAL;
  135. menu_add_entry(sym);
  136. printd(DEBUG_PARSE, "%s:%d:menuconfig %s\n", zconf_curname(), zconf_lineno(), $2);
  137. };
  138. menuconfig_stmt: menuconfig_entry_start config_option_list
  139. {
  140. if (current_entry->prompt)
  141. current_entry->prompt->type = P_MENU;
  142. else
  143. zconfprint("warning: menuconfig statement without prompt");
  144. menu_end_entry();
  145. printd(DEBUG_PARSE, "%s:%d:endconfig\n", zconf_curname(), zconf_lineno());
  146. };
  147. config_option_list:
  148. /* empty */
  149. | config_option_list config_option
  150. | config_option_list symbol_option
  151. | config_option_list depends
  152. | config_option_list help
  153. | config_option_list option_error
  154. | config_option_list T_EOL
  155. ;
  156. config_option: T_TYPE prompt_stmt_opt T_EOL
  157. {
  158. menu_set_type($1->stype);
  159. printd(DEBUG_PARSE, "%s:%d:type(%u)\n",
  160. zconf_curname(), zconf_lineno(),
  161. $1->stype);
  162. };
  163. config_option: T_PROMPT prompt if_expr T_EOL
  164. {
  165. menu_add_prompt(P_PROMPT, $2, $3);
  166. printd(DEBUG_PARSE, "%s:%d:prompt\n", zconf_curname(), zconf_lineno());
  167. };
  168. config_option: T_DEFAULT expr if_expr T_EOL
  169. {
  170. menu_add_expr(P_DEFAULT, $2, $3);
  171. if ($1->stype != S_UNKNOWN)
  172. menu_set_type($1->stype);
  173. printd(DEBUG_PARSE, "%s:%d:default(%u)\n",
  174. zconf_curname(), zconf_lineno(),
  175. $1->stype);
  176. };
  177. config_option: T_SELECT T_WORD if_expr T_EOL
  178. {
  179. menu_add_symbol(P_SELECT, sym_lookup($2, 0), $3);
  180. printd(DEBUG_PARSE, "%s:%d:select\n", zconf_curname(), zconf_lineno());
  181. };
  182. config_option: T_RANGE symbol symbol if_expr T_EOL
  183. {
  184. menu_add_expr(P_RANGE, expr_alloc_comp(E_RANGE,$2, $3), $4);
  185. printd(DEBUG_PARSE, "%s:%d:range\n", zconf_curname(), zconf_lineno());
  186. };
  187. symbol_option: T_OPTION symbol_option_list T_EOL
  188. ;
  189. symbol_option_list:
  190. /* empty */
  191. | symbol_option_list T_WORD symbol_option_arg
  192. {
  193. struct kconf_id *id = kconf_id_lookup($2, strlen($2));
  194. if (id && id->flags & TF_OPTION)
  195. menu_add_option(id->token, $3);
  196. else
  197. zconfprint("warning: ignoring unknown option %s", $2);
  198. free($2);
  199. };
  200. symbol_option_arg:
  201. /* empty */ { $$ = NULL; }
  202. | T_EQUAL prompt { $$ = $2; }
  203. ;
  204. /* choice entry */
  205. choice: T_CHOICE word_opt T_EOL
  206. {
  207. struct symbol *sym = sym_lookup($2, SYMBOL_CHOICE);
  208. sym->flags |= SYMBOL_AUTO;
  209. menu_add_entry(sym);
  210. menu_add_expr(P_CHOICE, NULL, NULL);
  211. printd(DEBUG_PARSE, "%s:%d:choice\n", zconf_curname(), zconf_lineno());
  212. };
  213. choice_entry: choice choice_option_list
  214. {
  215. $$ = menu_add_menu();
  216. };
  217. choice_end: end
  218. {
  219. if (zconf_endtoken($1, T_CHOICE, T_ENDCHOICE)) {
  220. menu_end_menu();
  221. printd(DEBUG_PARSE, "%s:%d:endchoice\n", zconf_curname(), zconf_lineno());
  222. }
  223. };
  224. choice_stmt: choice_entry choice_block choice_end
  225. ;
  226. choice_option_list:
  227. /* empty */
  228. | choice_option_list choice_option
  229. | choice_option_list depends
  230. | choice_option_list help
  231. | choice_option_list T_EOL
  232. | choice_option_list option_error
  233. ;
  234. choice_option: T_PROMPT prompt if_expr T_EOL
  235. {
  236. menu_add_prompt(P_PROMPT, $2, $3);
  237. printd(DEBUG_PARSE, "%s:%d:prompt\n", zconf_curname(), zconf_lineno());
  238. };
  239. choice_option: T_TYPE prompt_stmt_opt T_EOL
  240. {
  241. if ($1->stype == S_BOOLEAN || $1->stype == S_TRISTATE) {
  242. menu_set_type($1->stype);
  243. printd(DEBUG_PARSE, "%s:%d:type(%u)\n",
  244. zconf_curname(), zconf_lineno(),
  245. $1->stype);
  246. } else
  247. YYERROR;
  248. };
  249. choice_option: T_OPTIONAL T_EOL
  250. {
  251. current_entry->sym->flags |= SYMBOL_OPTIONAL;
  252. printd(DEBUG_PARSE, "%s:%d:optional\n", zconf_curname(), zconf_lineno());
  253. };
  254. choice_option: T_DEFAULT T_WORD if_expr T_EOL
  255. {
  256. if ($1->stype == S_UNKNOWN) {
  257. menu_add_symbol(P_DEFAULT, sym_lookup($2, 0), $3);
  258. printd(DEBUG_PARSE, "%s:%d:default\n",
  259. zconf_curname(), zconf_lineno());
  260. } else
  261. YYERROR;
  262. };
  263. choice_block:
  264. /* empty */
  265. | choice_block common_stmt
  266. ;
  267. /* if entry */
  268. if_entry: T_IF expr nl
  269. {
  270. printd(DEBUG_PARSE, "%s:%d:if\n", zconf_curname(), zconf_lineno());
  271. menu_add_entry(NULL);
  272. menu_add_dep($2);
  273. $$ = menu_add_menu();
  274. };
  275. if_end: end
  276. {
  277. if (zconf_endtoken($1, T_IF, T_ENDIF)) {
  278. menu_end_menu();
  279. printd(DEBUG_PARSE, "%s:%d:endif\n", zconf_curname(), zconf_lineno());
  280. }
  281. };
  282. if_stmt: if_entry if_block if_end
  283. ;
  284. if_block:
  285. /* empty */
  286. | if_block common_stmt
  287. | if_block menu_stmt
  288. | if_block choice_stmt
  289. ;
  290. /* menu entry */
  291. menu: T_MENU prompt T_EOL
  292. {
  293. menu_add_entry(NULL);
  294. menu_add_prompt(P_MENU, $2, NULL);
  295. printd(DEBUG_PARSE, "%s:%d:menu\n", zconf_curname(), zconf_lineno());
  296. };
  297. menu_entry: menu depends_list
  298. {
  299. $$ = menu_add_menu();
  300. };
  301. menu_end: end
  302. {
  303. if (zconf_endtoken($1, T_MENU, T_ENDMENU)) {
  304. menu_end_menu();
  305. printd(DEBUG_PARSE, "%s:%d:endmenu\n", zconf_curname(), zconf_lineno());
  306. }
  307. };
  308. menu_stmt: menu_entry menu_block menu_end
  309. ;
  310. menu_block:
  311. /* empty */
  312. | menu_block common_stmt
  313. | menu_block menu_stmt
  314. | menu_block choice_stmt
  315. ;
  316. source_stmt: T_SOURCE prompt T_EOL
  317. {
  318. printd(DEBUG_PARSE, "%s:%d:source %s\n", zconf_curname(), zconf_lineno(), $2);
  319. zconf_nextfile($2);
  320. };
  321. /* comment entry */
  322. comment: T_COMMENT prompt T_EOL
  323. {
  324. menu_add_entry(NULL);
  325. menu_add_prompt(P_COMMENT, $2, NULL);
  326. printd(DEBUG_PARSE, "%s:%d:comment\n", zconf_curname(), zconf_lineno());
  327. };
  328. comment_stmt: comment depends_list
  329. {
  330. menu_end_entry();
  331. };
  332. /* help option */
  333. help_start: T_HELP T_EOL
  334. {
  335. printd(DEBUG_PARSE, "%s:%d:help\n", zconf_curname(), zconf_lineno());
  336. zconf_starthelp();
  337. };
  338. help: help_start T_HELPTEXT
  339. {
  340. current_entry->help = $2;
  341. };
  342. /* depends option */
  343. depends_list:
  344. /* empty */
  345. | depends_list depends
  346. | depends_list T_EOL
  347. | depends_list option_error
  348. ;
  349. depends: T_DEPENDS T_ON expr T_EOL
  350. {
  351. menu_add_dep($3);
  352. printd(DEBUG_PARSE, "%s:%d:depends on\n", zconf_curname(), zconf_lineno());
  353. };
  354. /* prompt statement */
  355. prompt_stmt_opt:
  356. /* empty */
  357. | prompt if_expr
  358. {
  359. menu_add_prompt(P_PROMPT, $1, $2);
  360. };
  361. prompt: T_WORD
  362. | T_WORD_QUOTE
  363. ;
  364. end: T_ENDMENU T_EOL { $$ = $1; }
  365. | T_ENDCHOICE T_EOL { $$ = $1; }
  366. | T_ENDIF T_EOL { $$ = $1; }
  367. ;
  368. nl:
  369. T_EOL
  370. | nl T_EOL
  371. ;
  372. if_expr: /* empty */ { $$ = NULL; }
  373. | T_IF expr { $$ = $2; }
  374. ;
  375. expr: symbol { $$ = expr_alloc_symbol($1); }
  376. | symbol T_EQUAL symbol { $$ = expr_alloc_comp(E_EQUAL, $1, $3); }
  377. | symbol T_UNEQUAL symbol { $$ = expr_alloc_comp(E_UNEQUAL, $1, $3); }
  378. | T_OPEN_PAREN expr T_CLOSE_PAREN { $$ = $2; }
  379. | T_NOT expr { $$ = expr_alloc_one(E_NOT, $2); }
  380. | expr T_OR expr { $$ = expr_alloc_two(E_OR, $1, $3); }
  381. | expr T_AND expr { $$ = expr_alloc_two(E_AND, $1, $3); }
  382. ;
  383. symbol: T_WORD { $$ = sym_lookup($1, 0); free($1); }
  384. | T_WORD_QUOTE { $$ = sym_lookup($1, SYMBOL_CONST); free($1); }
  385. ;
  386. word_opt: /* empty */ { $$ = NULL; }
  387. | T_WORD
  388. %%
  389. void conf_parse(const char *name)
  390. {
  391. struct symbol *sym;
  392. int i;
  393. zconf_initscan(name);
  394. sym_init();
  395. menu_init();
  396. modules_sym = sym_lookup(NULL, 0);
  397. modules_sym->type = S_BOOLEAN;
  398. modules_sym->flags |= SYMBOL_AUTO;
  399. rootmenu.prompt = menu_add_prompt(P_MENU, "Linux Kernel Configuration", NULL);
  400. #if YYDEBUG
  401. if (getenv("ZCONF_DEBUG"))
  402. zconfdebug = 1;
  403. #endif
  404. zconfparse();
  405. if (zconfnerrs)
  406. exit(1);
  407. if (!modules_sym->prop) {
  408. struct property *prop;
  409. prop = prop_alloc(P_DEFAULT, modules_sym);
  410. prop->expr = expr_alloc_symbol(sym_lookup("MODULES", 0));
  411. }
  412. menu_finalize(&rootmenu);
  413. for_all_symbols(i, sym) {
  414. if (sym_check_deps(sym))
  415. zconfnerrs++;
  416. }
  417. if (zconfnerrs)
  418. exit(1);
  419. sym_set_change_count(1);
  420. }
  421. const char *zconf_tokenname(int token)
  422. {
  423. switch (token) {
  424. case T_MENU: return "menu";
  425. case T_ENDMENU: return "endmenu";
  426. case T_CHOICE: return "choice";
  427. case T_ENDCHOICE: return "endchoice";
  428. case T_IF: return "if";
  429. case T_ENDIF: return "endif";
  430. case T_DEPENDS: return "depends";
  431. }
  432. return "<token>";
  433. }
  434. static bool zconf_endtoken(struct kconf_id *id, int starttoken, int endtoken)
  435. {
  436. if (id->token != endtoken) {
  437. zconf_error("unexpected '%s' within %s block",
  438. kconf_id_strings + id->name, zconf_tokenname(starttoken));
  439. zconfnerrs++;
  440. return false;
  441. }
  442. if (current_menu->file != current_file) {
  443. zconf_error("'%s' in different file than '%s'",
  444. kconf_id_strings + id->name, zconf_tokenname(starttoken));
  445. fprintf(stderr, "%s:%d: location of the '%s'\n",
  446. current_menu->file->name, current_menu->lineno,
  447. zconf_tokenname(starttoken));
  448. zconfnerrs++;
  449. return false;
  450. }
  451. return true;
  452. }
  453. static void zconfprint(const char *err, ...)
  454. {
  455. va_list ap;
  456. fprintf(stderr, "%s:%d: ", zconf_curname(), zconf_lineno());
  457. va_start(ap, err);
  458. vfprintf(stderr, err, ap);
  459. va_end(ap);
  460. fprintf(stderr, "\n");
  461. }
  462. static void zconf_error(const char *err, ...)
  463. {
  464. va_list ap;
  465. zconfnerrs++;
  466. fprintf(stderr, "%s:%d: ", zconf_curname(), zconf_lineno());
  467. va_start(ap, err);
  468. vfprintf(stderr, err, ap);
  469. va_end(ap);
  470. fprintf(stderr, "\n");
  471. }
  472. static void zconferror(const char *err)
  473. {
  474. #if YYDEBUG
  475. fprintf(stderr, "%s:%d: %s\n", zconf_curname(), zconf_lineno() + 1, err);
  476. #endif
  477. }
  478. void print_quoted_string(FILE *out, const char *str)
  479. {
  480. const char *p;
  481. int len;
  482. putc('"', out);
  483. while ((p = strchr(str, '"'))) {
  484. len = p - str;
  485. if (len)
  486. fprintf(out, "%.*s", len, str);
  487. fputs("\\\"", out);
  488. str = p + 1;
  489. }
  490. fputs(str, out);
  491. putc('"', out);
  492. }
  493. void print_symbol(FILE *out, struct menu *menu)
  494. {
  495. struct symbol *sym = menu->sym;
  496. struct property *prop;
  497. if (sym_is_choice(sym))
  498. fprintf(out, "choice\n");
  499. else
  500. fprintf(out, "config %s\n", sym->name);
  501. switch (sym->type) {
  502. case S_BOOLEAN:
  503. fputs(" boolean\n", out);
  504. break;
  505. case S_TRISTATE:
  506. fputs(" tristate\n", out);
  507. break;
  508. case S_STRING:
  509. fputs(" string\n", out);
  510. break;
  511. case S_INT:
  512. fputs(" integer\n", out);
  513. break;
  514. case S_HEX:
  515. fputs(" hex\n", out);
  516. break;
  517. default:
  518. fputs(" ???\n", out);
  519. break;
  520. }
  521. for (prop = sym->prop; prop; prop = prop->next) {
  522. if (prop->menu != menu)
  523. continue;
  524. switch (prop->type) {
  525. case P_PROMPT:
  526. fputs(" prompt ", out);
  527. print_quoted_string(out, prop->text);
  528. if (!expr_is_yes(prop->visible.expr)) {
  529. fputs(" if ", out);
  530. expr_fprint(prop->visible.expr, out);
  531. }
  532. fputc('\n', out);
  533. break;
  534. case P_DEFAULT:
  535. fputs( " default ", out);
  536. expr_fprint(prop->expr, out);
  537. if (!expr_is_yes(prop->visible.expr)) {
  538. fputs(" if ", out);
  539. expr_fprint(prop->visible.expr, out);
  540. }
  541. fputc('\n', out);
  542. break;
  543. case P_CHOICE:
  544. fputs(" #choice value\n", out);
  545. break;
  546. default:
  547. fprintf(out, " unknown prop %d!\n", prop->type);
  548. break;
  549. }
  550. }
  551. if (menu->help) {
  552. int len = strlen(menu->help);
  553. while (menu->help[--len] == '\n')
  554. menu->help[len] = 0;
  555. fprintf(out, " help\n%s\n", menu->help);
  556. }
  557. fputc('\n', out);
  558. }
  559. void zconfdump(FILE *out)
  560. {
  561. struct property *prop;
  562. struct symbol *sym;
  563. struct menu *menu;
  564. menu = rootmenu.list;
  565. while (menu) {
  566. if ((sym = menu->sym))
  567. print_symbol(out, menu);
  568. else if ((prop = menu->prompt)) {
  569. switch (prop->type) {
  570. case P_COMMENT:
  571. fputs("\ncomment ", out);
  572. print_quoted_string(out, prop->text);
  573. fputs("\n", out);
  574. break;
  575. case P_MENU:
  576. fputs("\nmenu ", out);
  577. print_quoted_string(out, prop->text);
  578. fputs("\n", out);
  579. break;
  580. default:
  581. ;
  582. }
  583. if (!expr_is_yes(prop->visible.expr)) {
  584. fputs(" depends ", out);
  585. expr_fprint(prop->visible.expr, out);
  586. fputc('\n', out);
  587. }
  588. fputs("\n", out);
  589. }
  590. if (menu->list)
  591. menu = menu->list;
  592. else if (menu->next)
  593. menu = menu->next;
  594. else while ((menu = menu->parent)) {
  595. if (menu->prompt && menu->prompt->type == P_MENU)
  596. fputs("\nendmenu\n", out);
  597. if (menu->next) {
  598. menu = menu->next;
  599. break;
  600. }
  601. }
  602. }
  603. }
  604. #include "lex.zconf.c"
  605. #include "util.c"
  606. #include "confdata.c"
  607. #include "expr.c"
  608. #include "symbol.c"
  609. #include "menu.c"