开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
parser.dlg
资源名称：pccts133.zip　[点击查看]
上传用户：itx_2006
上传日期：2007-01-06
资源大小：493k
文件大小：18k
源码类别：

编译器/解释器

开发平台：

Others

parser.dlg：源码内容
  1. <<
  2. /* parser.dlg -- DLG Description of scanner
  3.  *
  4.  * Generated from: antlr.g
  5.  *
  6.  * Terence Parr, Will Cohen, and Hank Dietz: 1989-1998
  7.  * Purdue University Electrical Engineering
  8.  * With AHPCRC, University of Minnesota
  9.  * ANTLR Version 1.33MR14
  10.  */
  12. #define ANTLR_VERSION 13314
  13. #include "pcctscfg.h"
  14. #include PCCTS_STDIO_H
  16. #include "set.h"
  17. #include <ctype.h>
  18. #include "syn.h"
  19. #include "hash.h"
  20. #include "generic.h"
  21. #define zzcr_attr(attr,tok,t)
  22. #include "antlr.h"
  23. #include "tokens.h"
  24. #include "dlgdef.h"
  25. LOOKAHEAD
  26. void zzerraction()
  27. {
  28. (*zzerr)("invalid token");
  29. zzadvance();
  30. zzskip();
  31. }
  32. >>
  34. <<%%lexaction
  36. /* maintained, but not used for now */
  37. set AST_nodes_refd_in_actions = set_init;
  38. int inAlt = 0;
  39. set attribsRefdFromAction;
  40. int UsedOldStyleAttrib = 0;
  41. int UsedNewStyleLabel = 0;
  42. #ifdef __USE_PROTOS
  43. char *inline_set(char *);
  44. #else
  45. char *inline_set();
  46. #endif
  48. /* MR1 10-Apr-97  MR1  Previously unable to put right shift operator     */
  49. /* MR1 in DLG action                     */
  51. int tokenActionActive=0;                                            /* MR1 */
  53.   
  54. >>
  56. <<%%lexaction
  59. static char *
  60. #ifdef __USE_PROTOS
  61. getFileNameFromTheLineInfo(char *toStr, char *fromStr)
  62. #else
  63. getFileNameFromTheLineInfo(toStr, fromStr)
  64. char *toStr, *fromStr;
  65. #endif
  66. {
  67. int i, j, k;
  69.   if (!fromStr || !toStr) return toStr;
  71.   /* find the first " */
  73.   for (i=0;
  74. (i<MaxFileName) &&
  75. (fromStr[i] != 'n') &&
  76. (fromStr[i] != 'r') &&
  77. (fromStr[i] != '"');
  78. i++) /* nothing */ ;
  80.   if ( (i == MaxFileName) ||
  81. (fromStr[i] == 'n') ||
  82. (fromStr[i] == 'r') ) {
  83. return toStr;
  84. }
  86.   /* find the second " */
  88.   for (j=i+1;
  89. (j<MaxFileName) &&
  90. (fromStr[j] != 'n') &&
  91. (fromStr[j] != 'r') &&
  92. (fromStr[j] != '"');
  93. j++) /* nothing */ ;
  95.   if ((j == MaxFileName) ||
  96. (fromStr[j] == 'n') ||
  97. (fromStr[j] == 'r') ) {
  98. return toStr;
  99. }
  101.   /* go back until the last / or  */
  103.   for (k=j-1;
  104. (fromStr[k] != '"') &&
  105. (fromStr[k] != '/') &&
  106. (fromStr[k] != '\');
  107. k--) /* nothing */ ;
  109.   /* copy the string after " / or  into toStr */
  111.   for (i=k+1; fromStr[i] != '"'; i++) {
  112. toStr[i-k-1] = fromStr[i];
  113. }
  115.   toStr[i-k-1] = '';
  117.   return toStr;
  118. }
  120. /* MR14 end of a block to support #line in antlr source code */
  122.   
  123. >>
  125. <<%%lexaction
  127. #ifdef __USE_PROTOS
  128. void mark_label_used_in_sem_pred(LabelEntry *le)              /* MR10 */
  129. #else
  130. void mark_label_used_in_sem_pred(le)                          /* MR10 */
  131. LabelEntry    *le;
  132. #endif
  133. {
  134. TokNode   *tn;
  135. require (le->elem->ntype == nToken,"mark_label_used... ntype != nToken");
  136. tn=(TokNode *)le->elem;
  137. require (tn->label != 0,"mark_label_used... TokNode has no label");
  138. tn->label_used_in_semantic_pred=1;
  139. }
  140. >>
  143. %%START
  145. @
  146. <<
  147. NLA = Eof;
  148. /* L o o k  F o r  A n o t h e r  F i l e */
  149. {
  150. FILE *new_input;
  151. new_input = NextFile();
  152. if ( new_input == NULL ) { NLA=Eof; return; }
  153. fclose( input );
  154. input = new_input;
  155. zzrdstream( input );
  156. zzskip(); /* Skip the Eof (@) char i.e continue */
  157. }
  158. >>
  160. [t ]+
  161. <<
  162. NLA = 76;
  163. zzskip();   
  164. >>
  166. n|r|rn
  167. <<
  168. NLA = 77;
  169. zzline++; zzskip();   
  170. >>
  172. [
  173. <<
  174. NLA = 78;
  175. zzmode(ACTIONS); zzmore();
  176. istackreset();
  177. pushint(']');   
  178. >>
  180. <<
  181. <<
  182. NLA = 79;
  183. action_file=CurFile; action_line=zzline;
  184. zzmode(ACTIONS); zzmore();
  185. list_free(&CurActionLabels,0);       /* MR10 */
  186. numericActionLabel=0;                /* MR10 */
  187. istackreset();
  188. pushint('>');   
  189. >>
  191. "
  192. <<
  193. NLA = 80;
  194. zzmode(STRINGS); zzmore();   
  195. >>
  197. /*
  198. <<
  199. NLA = 81;
  200. zzmode(COMMENTS); zzskip();   
  201. >>
  203. */
  204. <<
  205. NLA = 82;
  206. warn("Missing /*; found dangling */"); zzskip();   
  207. >>
  209. //
  210. <<
  211. NLA = 83;
  212. zzmode(CPP_COMMENTS); zzskip();   
  213. >>
  215. #line[ t]* [0-9]+ {[ t]* "~["]+" ([ t]* [0-9]*)* } (n|r|rn)
  216. <<
  217. NLA = 84;
  219. zzline = atoi(zzbegexpr+5) - 1; zzline++; zzmore();
  220. getFileNameFromTheLineInfo(FileStr[CurFile], zzbegexpr);
  221. >>
  223. #line ~[nr]* (n|r|rn)
  224. <<
  225. NLA = 85;
  227. zzline++; zzmore();
  228. >>
  230. >>
  231. <<
  232. NLA = 86;
  233. warn("Missing <<; found dangling >>"); zzskip();   
  234. >>
  236. .
  237. <<
  238. NLA = WildCard;
  239. >>
  241. @
  242. <<
  243. NLA = 88;
  244. FoundException = 1; /* MR6 */
  245. FoundAtOperator = 1;  
  246. >>
  248. {\}#header
  249. <<
  250. NLA = 92;
  251. >>
  253. {\}#first
  254. <<
  255. NLA = 93;
  256. >>
  258. {\}#parser
  259. <<
  260. NLA = 94;
  261. >>
  263. {\}#tokdefs
  264. <<
  265. NLA = 95;
  266. >>
  268. }
  269. <<
  270. NLA = 96;
  271. >>
  273. class
  274. <<
  275. NLA = 97;
  276. >>
  278. {
  279. <<
  280. NLA = 100;
  281. >>
  283. !
  284. <<
  285. NLA = 101;
  286. >>
  288. <
  289. <<
  290. NLA = 102;
  291. >>
  293. >
  294. <<
  295. NLA = 103;
  296. >>
  298. :
  299. <<
  300. NLA = 104;
  301. >>
  303. ;
  304. <<
  305. NLA = 105;
  306. >>
  308. {\}#lexaction
  309. <<
  310. NLA = 106;
  311. >>
  313. {\}#lexmember
  314. <<
  315. NLA = 107;
  316. >>
  318. {\}#lexprefix
  319. <<
  320. NLA = 108;
  321. >>
  323. {\}#pred
  324. <<
  325. NLA = 109;
  326. >>
  328. ||
  329. <<
  330. NLA = 110;
  331. >>
  333. &&
  334. <<
  335. NLA = 111;
  336. >>
  338. (
  339. <<
  340. NLA = 112;
  341. >>
  343. )
  344. <<
  345. NLA = 113;
  346. >>
  348. {\}#lexclass
  349. <<
  350. NLA = 114;
  351. >>
  353. {\}#errclass
  354. <<
  355. NLA = 115;
  356. >>
  358. {\}#tokclass
  359. <<
  360. NLA = 116;
  361. >>
  363. ..
  364. <<
  365. NLA = 117;
  366. >>
  368. {\}#token
  369. <<
  370. NLA = 118;
  371. >>
  373. =
  374. <<
  375. NLA = 119;
  376. >>
  378. [0-9]+
  379. <<
  380. NLA = 120;
  381. >>
  383. |
  384. <<
  385. NLA = 121;
  386. >>
  388. ~
  389. <<
  390. NLA = 122;
  391. >>
  393. ^
  394. <<
  395. NLA = 123;
  396. >>
  398. {\}#pragma
  399. <<
  400. NLA = 124;
  401. >>
  403. approx
  404. <<
  405. NLA = 125;
  406. >>
  408. LL(1)
  409. <<
  410. NLA = 126;
  411. >>
  413. LL(2)
  414. <<
  415. NLA = 127;
  416. >>
  418. *
  419. <<
  420. NLA = 128;
  421. >>
  423. +
  424. <<
  425. NLA = 129;
  426. >>
  428. ?
  429. <<
  430. NLA = 130;
  431. >>
  433. =>
  434. <<
  435. NLA = 131;
  436. >>
  438. exception
  439. <<
  440. NLA = 132;
  441. >>
  443. default
  444. <<
  445. NLA = 133;
  446. >>
  448. catch
  449. <<
  450. NLA = 134;
  451. >>
  453. [a-z] [A-Za-z0-9_]*
  454. <<
  455. NLA = NonTerminal;
  457. while ( zzchar==' ' || zzchar=='t' ) {
  458. zzadvance();
  459. }
  460. if ( zzchar == ':' && inAlt ) NLA = LABEL;
  461. >>
  463. [A-Z] [A-Za-z0-9_]*
  464. <<
  465. NLA = TokenTerm;
  467. while ( zzchar==' ' || zzchar=='t' ) {
  468. zzadvance();
  469. }
  470. if ( zzchar == ':' && inAlt ) NLA = LABEL;
  471. >>
  473. {\}#[A-Za-z0-9_]*
  474. <<
  475. NLA = 135;
  476. warn(eMsg1("unknown meta-op: %s",LATEXT(1))); zzskip();   
  477. >>
  480. %%STRINGS
  482. @
  483. <<
  484. NLA = Eof;
  485. >>
  487. "
  488. <<
  489. NLA = QuotedTerm;
  490. zzmode(START);   
  491. >>
  493. n|r|rn
  494. <<
  495. NLA = 3;
  497. zzline++;
  498. warn("eoln found in string");
  499. zzskip();
  500. >>
  502. \(n|r|rn)
  503. <<
  504. NLA = 4;
  505. zzline++; zzmore();   
  506. >>
  508. \~[]
  509. <<
  510. NLA = 5;
  511. zzmore();   
  512. >>
  514. ~[nr"\]+
  515. <<
  516. NLA = 6;
  517. zzmore();   
  518. >>
  521. %%ACTION_STRINGS
  523. @
  524. <<
  525. NLA = Eof;
  526. >>
  528. "
  529. <<
  530. NLA = 7;
  531. zzmode(ACTIONS); zzmore();   
  532. >>
  534. n|r|rn
  535. <<
  536. NLA = 8;
  538. zzline++;
  539. warn("eoln found in string (in user action)");
  540. zzskip();
  541. >>
  543. \(n|r|rn)
  544. <<
  545. NLA = 9;
  546. zzline++; zzmore();   
  547. >>
  549. \~[]
  550. <<
  551. NLA = 10;
  552. zzmore();   
  553. >>
  555. ~[nr"\]+
  556. <<
  557. NLA = 11;
  558. zzmore();   
  559. >>
  562. %%ACTION_CHARS
  564. @
  565. <<
  566. NLA = Eof;
  567. >>
  569. '
  570. <<
  571. NLA = 12;
  572. zzmode(ACTIONS); zzmore();   
  573. >>
  575. n|r|rn
  576. <<
  577. NLA = 13;
  579. zzline++;
  580. warn("eoln found in char literal (in user action)");
  581. zzskip();
  582. >>
  584. \~[]
  585. <<
  586. NLA = 14;
  587. zzmore();   
  588. >>
  590. ~[nr'\]+
  591. <<
  592. NLA = 15;
  593. zzmore();   
  594. >>
  597. %%ACTION_COMMENTS
  599. @
  600. <<
  601. NLA = Eof;
  602. >>
  604. */
  605. <<
  606. NLA = 16;
  607. zzmode(ACTIONS); zzmore();   
  608. >>
  610. *
  611. <<
  612. NLA = 17;
  613. zzmore();   
  614. >>
  616. n|r|rn
  617. <<
  618. NLA = 18;
  619. zzline++; zzmore(); DAWDLE;   
  620. >>
  622. ~[nr*]+
  623. <<
  624. NLA = 19;
  625. zzmore();   
  626. >>
  629. %%TOK_DEF_COMMENTS
  631. @
  632. <<
  633. NLA = Eof;
  634. >>
  636. */
  637. <<
  638. NLA = 20;
  639. zzmode(PARSE_ENUM_FILE);
  640. zzmore();   
  641. >>
  643. *
  644. <<
  645. NLA = 21;
  646. zzmore();   
  647. >>
  649. n|r|rn
  650. <<
  651. NLA = 22;
  652. zzline++; zzmore(); DAWDLE;   
  653. >>
  655. ~[nr*]+
  656. <<
  657. NLA = 23;
  658. zzmore();   
  659. >>
  662. %%TOK_DEF_CPP_COMMENTS
  664. @
  665. <<
  666. NLA = Eof;
  667. >>
  669. n|r|rn
  670. <<
  671. NLA = 24;
  672. zzline++; zzmode(PARSE_ENUM_FILE); zzskip(); DAWDLE;   
  673. >>
  675. ~[nr]+
  676. <<
  677. NLA = 25;
  678. zzskip();   
  679. >>
  682. %%ACTION_CPP_COMMENTS
  684. @
  685. <<
  686. NLA = Eof;
  687. >>
  689. n|r|rn
  690. <<
  691. NLA = 26;
  692. zzline++; zzmode(ACTIONS); zzmore(); DAWDLE;   
  693. >>
  695. ~[nr]+
  696. <<
  697. NLA = 27;
  698. zzmore();   
  699. >>
  702. %%CPP_COMMENTS
  704. @
  705. <<
  706. NLA = Eof;
  707. >>
  709. n|r|rn
  710. <<
  711. NLA = 28;
  712. zzline++; zzmode(START); zzskip(); DAWDLE;   
  713. >>
  715. ~[nr]+
  716. <<
  717. NLA = 29;
  718. zzskip();   
  719. >>
  722. %%COMMENTS
  724. @
  725. <<
  726. NLA = Eof;
  727. >>
  729. */
  730. <<
  731. NLA = 30;
  732. zzmode(START); zzskip();   
  733. >>
  735. *
  736. <<
  737. NLA = 31;
  738. zzskip();   
  739. >>
  741. n|r|rn
  742. <<
  743. NLA = 32;
  744. zzline++; zzskip(); DAWDLE;   
  745. >>
  747. ~[nr*]+
  748. <<
  749. NLA = 33;
  750. zzskip();   
  751. >>
  754. %%ACTIONS
  756. @
  757. <<
  758. NLA = Eof;
  759. >>
  761. >>
  762. <<
  763. NLA = Action;
  764. /* these do not nest */
  765. zzmode(START);
  766. NLATEXT[0] = ' ';
  767. NLATEXT[1] = ' ';
  768. zzbegexpr[0] = ' ';
  769. zzbegexpr[1] = ' ';
  770. if ( zzbufovf ) {
  771. err( eMsgd("action buffer overflow; size %d",ZZLEXBUFSIZE));
  772. }
  774. /* MR1 10-Apr-97  MR1  Previously unable to put right shift operator */
  775. /* MR1 in DLG action */
  776. /* MR1 Doesn't matter what kind of action it is - reset*/
  778.       tokenActionActive=0;  /* MR1 */
  779. >>
  781. >>?
  782. <<
  783. NLA = Pred;
  784. /* these do not nest */
  785. zzmode(START);
  786. NLATEXT[0] = ' ';
  787. NLATEXT[1] = ' ';
  788. zzbegexpr[0] = '';
  789. if ( zzbufovf ) {
  790. err( eMsgd("predicate buffer overflow; size %d",ZZLEXBUFSIZE));
  791. };
  792. #ifdef __cplusplus__
  793. /* MR10 */                    list_apply(CurActionLabels, (void (*)(void *))mark_label_used_in_sem_pred);
  794. #else
  795. #ifdef __STDC__
  796. /* MR10 */                    list_apply(CurActionLabels, (void (*)(void *))mark_label_used_in_sem_pred);
  797. #else
  798. /* MR10 */                    list_apply(CurActionLabels,mark_label_used_in_sem_pred);
  799. #endif
  800. #endif
  801. >>
  803. ]
  804. <<
  805. NLA = PassAction;
  806. if ( topint() == ']' ) {
  807. popint();
  808. if ( istackempty() ) /* terminate action */
  809. {
  810. zzmode(START);
  811. NLATEXT[0] = ' ';
  812. zzbegexpr[0] = ' ';
  813. if ( zzbufovf ) {
  814. err( eMsgd("parameter buffer overflow; size %d",ZZLEXBUFSIZE));
  815. }
  816. }
  817. else {
  818. /* terminate $[..] and #[..] */
  819. if ( GenCC ) zzreplstr("))");
  820. else zzreplstr(")");
  821. zzmore();
  822. }
  823. }
  824. else if ( topint() == '|' ) { /* end of simple [...] */
  825. popint();
  826. zzmore();
  827. }
  828. else zzmore();
  829. >>
  831. consumeUntil( [ t]* {~[}]+} [ t]* )
  832. <<
  833. NLA = 37;
  835. zzmore();
  836. zzreplstr(inline_set(zzbegexpr+
  837. strlen("consumeUntil(")));
  838. >>
  840. consumeUntil( ~[)]+ )
  841. <<
  842. NLA = 38;
  843. zzmore();   
  844. >>
  846. n|r|rn
  847. <<
  848. NLA = 39;
  849. zzline++; zzmore(); DAWDLE;   
  850. >>
  852. >
  853. <<
  854. NLA = 40;
  855. zzmore();   
  856. >>
  858. $
  859. <<
  860. NLA = 41;
  861. zzmore();   
  862. >>
  864. $$
  865. <<
  866. NLA = 42;
  867. if ( !GenCC ) {zzreplstr("zzaRet"); zzmore();}
  868. else err("$$ use invalid in C++ mode");   
  869. >>
  871. $[]
  872. <<
  873. NLA = 43;
  874. if ( !GenCC ) {zzreplstr("zzempty_attr"); zzmore();}
  875. else err("$[] use invalid in C++ mode");   
  876. >>
  878. $[
  879. <<
  880. NLA = 44;
  882. pushint(']');
  883. if ( !GenCC ) zzreplstr("zzconstr_attr(");
  884. else err("$[..] use invalid in C++ mode");
  885. zzmore();
  886. >>
  888. $[0-9]+
  889. <<
  890. NLA = 45;
  891. {
  892. static char buf[100];
  893. numericActionLabel=1;       /* MR10 */
  894. if ( strlen(zzbegexpr)>(size_t)85 )
  895. fatal("$i attrib ref too big");
  896. set_orel(atoi(zzbegexpr+1), &attribsRefdFromAction);
  897. if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%d,%s)",
  898. BlkLevel-1,zzbegexpr+1);
  899. else sprintf(buf,"_t%d%s",
  900. BlkLevel-1,zzbegexpr+1);
  901. zzreplstr(buf);
  902. zzmore();
  903. UsedOldStyleAttrib = 1;
  904. if ( UsedNewStyleLabel )
  905. err("cannot mix old-style $i with new-style labels");
  906. }
  907. >>
  909. $[0-9]+.
  910. <<
  911. NLA = 46;
  912. {
  913. static char buf[100];
  914. numericActionLabel=1;       /* MR10 */
  915. if ( strlen(zzbegexpr)>(size_t)85 )
  916. fatal("$i.field attrib ref too big");
  917. zzbegexpr[strlen(zzbegexpr)-1] = ' ';
  918. set_orel(atoi(zzbegexpr+1), &attribsRefdFromAction);
  919. if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%d,%s).",
  920. BlkLevel-1,zzbegexpr+1);
  921. else sprintf(buf,"_t%d%s.",
  922. BlkLevel-1,zzbegexpr+1);
  923. zzreplstr(buf);
  924. zzmore();
  925. UsedOldStyleAttrib = 1;
  926. if ( UsedNewStyleLabel )
  927. err("cannot mix old-style $i with new-style labels");
  928. }
  929. >>
  931. $[0-9]+.[0-9]+
  932. <<
  933. NLA = 47;
  934. {
  935. static char buf[100];
  936. static char i[20], j[20];
  937. char *p,*q;
  938. numericActionLabel=1;       /* MR10 */
  939. if (strlen(zzbegexpr)>(size_t)85) fatal("$i.j attrib ref too big");
  940. for (p=zzbegexpr+1,q= &i[0]; *p!='.'; p++) {
  941. if ( q == &i[20] )
  942. fatalFL("i of $i.j attrib ref too big",
  943. FileStr[CurFile], zzline );
  944. *q++ = *p;
  945. }
  946. *q = '';
  947. for (p++, q= &j[0]; *p!=''; p++) {
  948. if ( q == &j[20] )
  949. fatalFL("j of $i.j attrib ref too big",
  950. FileStr[CurFile], zzline );
  951. *q++ = *p;
  952. }
  953. *q = '';
  954. if ( !GenCC ) sprintf(buf,"zzaArg(zztasp%s,%s)",i,j);
  955. else sprintf(buf,"_t%s%s",i,j);
  956. zzreplstr(buf);
  957. zzmore();
  958. UsedOldStyleAttrib = 1;
  959. if ( UsedNewStyleLabel )
  960. err("cannot mix old-style $i with new-style labels");
  961. }
  962. >>
  964. $[_a-zA-Z][_a-zA-Z0-9]*
  965. <<
  966. NLA = 48;
  967. { static char buf[300]; LabelEntry *el;
  968. zzbegexpr[0] = ' ';
  969. if ( CurRule != NULL &&
  970. strcmp(CurRule, &zzbegexpr[1])==0 ) {
  971. if ( !GenCC ) zzreplstr("zzaRet");
  972. }
  973. else if ( CurRetDef != NULL &&
  974. strmember(CurRetDef, &zzbegexpr[1])) {
  975. if ( HasComma( CurRetDef ) ) {
  976. require (strlen(zzbegexpr)<=(size_t)285,
  977. "$retval attrib ref too big");
  978. sprintf(buf,"_retv.%s",&zzbegexpr[1]);
  979. zzreplstr(buf);
  980. }
  981. else zzreplstr("_retv");
  982. }
  983. else if ( CurParmDef != NULL &&
  984. strmember(CurParmDef, &zzbegexpr[1])) {
  985. ;
  986. }
  987. else if ( Elabel==NULL ) {
  988. { err("$-variables in actions outside of rules are not allowed"); }
  989. } else if ( (el=(LabelEntry *)hash_get(Elabel, &zzbegexpr[1]))!=NULL ) {
  990. /* MR10 */
  991. /* MR10 */                      /* element labels might exist without an elem when */
  992. /* MR10 */                      /*  it is a forward reference (to a rule)          */
  993. /* MR10 */
  994. /* MR10 */ if ( GenCC && (el->elem == NULL || el->elem->ntype==nRuleRef) )
  995. /* MR10 */ { err(eMsg1("There are no token ptrs for rule references: '$%s'",&zzbegexpr[1])); }
  996. /* MR10 */
  997. /* MR10 */ if ( !GenCC && (el->elem == NULL || el->elem->ntype==nRuleRef) && GenAST) {
  998. /* MR10 */                          err("You can no longer use attributes returned by rules when also using ASTs");
  999. /* MR10 */                          err("   Use upward inheritance ("rule >[Attrib a] : ... <<$a=...>>")");
  1000. /* MR10 */                      };
  1001. /* MR10 */
  1002. /* MR10 */                      /* keep track of <<... $label ...>> for semantic predicates in guess mode */
  1003. /* MR10 */                      /* element labels contain pointer to the owners node                      */
  1004. /* MR10 */
  1005. /* MR10 */                      if (el->elem != NULL && el->elem->ntype == nToken) {
  1006. /* MR10 */                        list_add(&CurActionLabels,el);
  1007. /* MR10 */                      };
  1008. }
  1009. else
  1010. warn(eMsg1("$%s not parameter, return value, (defined) element label",&zzbegexpr[1]));
  1011. }
  1012. zzmore();
  1013. >>
  1015. #0
  1016. <<
  1017. NLA = 49;
  1018. zzreplstr("(*_root)"); zzmore(); chkGTFlag();   
  1019. >>
  1021. #[]
  1022. <<
  1023. NLA = 50;
  1024. if ( GenCC ) {
  1025. if (NewAST) zzreplstr("(newAST)");
  1026. else zzreplstr("(new AST)");}
  1027. else {zzreplstr("zzastnew()");} zzmore();
  1028. chkGTFlag();
  1029. >>
  1031. #()
  1032. <<
  1033. NLA = 51;
  1034. zzreplstr("NULL"); zzmore(); chkGTFlag();   
  1035. >>
  1037. #[0-9]+
  1038. <<
  1039. NLA = 52;
  1040. {
  1041. static char buf[100];
  1042. if ( strlen(zzbegexpr)>(size_t)85 )
  1043. fatal("#i AST ref too big");
  1044. if ( GenCC ) sprintf(buf,"_ast%d%s",BlkLevel-1,zzbegexpr+1);
  1045. else sprintf(buf,"zzastArg(%s)",zzbegexpr+1);
  1046. zzreplstr(buf);
  1047. zzmore();
  1048. set_orel(atoi(zzbegexpr+1), &AST_nodes_refd_in_actions);
  1049. chkGTFlag();
  1050. }
  1051. >>
  1053. #line[ t]* [0-9]+ {[ t]* "~["]+" ([ t]* [0-9]*)* } (n|r|rn)
  1054. <<
  1055. NLA = 53;
  1057. zzline = atoi(zzbegexpr+5) - 1; zzline++; zzmore();
  1058. getFileNameFromTheLineInfo(FileStr[CurFile], zzbegexpr);
  1059. >>
  1061. #line ~[nr]* (n|r|rn)
  1062. <<
  1063. NLA = 54;
  1065. zzline++; zzmore();
  1066. >>
  1068. #[_a-zA-Z][_a-zA-Z0-9]*
  1069. <<
  1070. NLA = 55;
  1072. if ( !(strcmp(zzbegexpr, "#ifdef")==0 ||
  1073. strcmp(zzbegexpr, "#if")==0 ||
  1074. strcmp(zzbegexpr, "#else")==0 ||
  1075. strcmp(zzbegexpr, "#endif")==0 ||
  1076. strcmp(zzbegexpr, "#ifndef")==0 ||
  1077. strcmp(zzbegexpr, "#define")==0 ||
  1078. strcmp(zzbegexpr, "#pragma")==0 ||
  1079. strcmp(zzbegexpr, "#undef")==0 ||
  1080. strcmp(zzbegexpr, "#import")==0 ||
  1081. strcmp(zzbegexpr, "#line")==0 ||
  1082. strcmp(zzbegexpr, "#include")==0 ||
  1083. strcmp(zzbegexpr, "#error")==0) )
  1084. {
  1085. static char buf[100];
  1086. sprintf(buf, "%s_ast", zzbegexpr+1);
  1087. zzreplstr(buf);
  1088. chkGTFlag();
  1089. }
  1090. zzmore();
  1091. >>
  1093. #[
  1094. <<
  1095. NLA = 56;
  1097. pushint(']');
  1098. if ( GenCC ) {
  1099. if (NewAST) zzreplstr("(newAST(");
  1100. else zzreplstr("(new AST("); }
  1101. else zzreplstr("zzmk_ast(zzastnew(),");
  1102. zzmore();
  1103. chkGTFlag();
  1104. >>
  1106. #(
  1107. <<
  1108. NLA = 57;
  1110. pushint('}');
  1111. if ( GenCC )
  1112. zzreplstr("ASTBase::tmake(");
  1113. else zzreplstr("zztmake(");
  1114. zzmore();
  1115. chkGTFlag();
  1116. >>
  1118. #
  1119. <<
  1120. NLA = 58;
  1121. zzmore();   
  1122. >>
  1124. )
  1125. <<
  1126. NLA = 59;
  1128. if ( istackempty() )
  1129. zzmore();
  1130. else if ( topint()==')' ) {
  1131. popint();
  1132. }
  1133. else if ( topint()=='}' ) {
  1134. popint();
  1135. /* terminate #(..) */
  1136. zzreplstr(", NULL)");
  1137. }
  1138. zzmore();
  1139. >>
  1141. [
  1142. <<
  1143. NLA = 60;
  1145. pushint('|'); /* look for '|' to terminate simple [...] */
  1146. zzmore();
  1147. >>
  1149. (
  1150. <<
  1151. NLA = 61;
  1153. pushint(')');
  1154. zzmore();
  1155. >>
  1157. \]
  1158. <<
  1159. NLA = 62;
  1160. zzreplstr("]");  zzmore();   
  1161. >>
  1163. \)
  1164. <<
  1165. NLA = 63;
  1166. zzreplstr(")");  zzmore();   
  1167. >>
  1169. \>
  1170. <<
  1171. NLA = 64;
  1172. if (! tokenActionActive) zzreplstr(">");  /* MR1 */
  1173. zzmore();          /* MR1 */
  1174. >>
  1176. '
  1177. <<
  1178. NLA = 65;
  1179. zzmode(ACTION_CHARS); zzmore();  
  1180. >>
  1182. "
  1183. <<
  1184. NLA = 66;
  1185. zzmode(ACTION_STRINGS); zzmore();  
  1186. >>
  1188. \$
  1189. <<
  1190. NLA = 67;
  1191. zzreplstr("$");  zzmore();   
  1192. >>
  1194. \#
  1195. <<
  1196. NLA = 68;
  1197. zzreplstr("#");  zzmore();   
  1198. >>
  1200. \(n|r|rn)
  1201. <<
  1202. NLA = 69;
  1203. zzline++; zzmore();   
  1204. >>
  1206. \~[])>$#]
  1207. <<
  1208. NLA = 70;
  1209. zzmore();   
  1210. >>
  1212. /
  1213. <<
  1214. NLA = 71;
  1215. zzmore();   
  1216. >>
  1218. /*
  1219. <<
  1220. NLA = 72;
  1221. zzmode(ACTION_COMMENTS); zzmore();   
  1222. >>
  1224. */
  1225. <<
  1226. NLA = 73;
  1227. warn("Missing /*; found dangling */ in action"); zzmore();   
  1228. >>
  1230. //
  1231. <<
  1232. NLA = 74;
  1233. zzmode(ACTION_CPP_COMMENTS); zzmore();   
  1234. >>
  1236. ~[nr)(\$#>]["'/]+
  1237. <<
  1238. NLA = 75;
  1239. zzmore();   
  1240. >>
  1243. %%PARSE_ENUM_FILE
  1245. @
  1246. <<
  1247. NLA = Eof;
  1248. ;   
  1249. >>
  1251. [t ]+
  1252. <<
  1253. NLA = 136;
  1254. zzskip();   
  1255. >>
  1257. n|r|rn
  1258. <<
  1259. NLA = 137;
  1260. zzline++; zzskip();   
  1261. >>
  1263. //
  1264. <<
  1265. NLA = 138;
  1266. zzmode(TOK_DEF_CPP_COMMENTS); zzmore();   
  1267. >>
  1269. /*
  1270. <<
  1271. NLA = 139;
  1272. zzmode(TOK_DEF_COMMENTS); zzskip();   
  1273. >>
  1275. #ifdef
  1276. <<
  1277. NLA = 140;
  1278. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1279. >>
  1281. #if
  1282. <<
  1283. NLA = 141;
  1284. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1285. >>
  1287. #ifndef
  1288. <<
  1289. NLA = 142;
  1290. ;   
  1291. >>
  1293. #else
  1294. <<
  1295. NLA = 143;
  1296. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1297. >>
  1299. #endif
  1300. <<
  1301. NLA = 144;
  1302. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1303. >>
  1305. #undef
  1306. <<
  1307. NLA = 145;
  1308. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1309. >>
  1311. #import
  1312. <<
  1313. NLA = 146;
  1314. zzmode(TOK_DEF_CPP_COMMENTS); zzskip();   
  1315. >>
  1317. #define
  1318. <<
  1319. NLA = 148;
  1320. >>
  1322. enum
  1323. <<
  1324. NLA = 150;
  1325. >>
  1327. {
  1328. <<
  1329. NLA = 151;
  1330. >>
  1332. =
  1333. <<
  1334. NLA = 152;
  1335. >>
  1337. ,
  1338. <<
  1339. NLA = 153;
  1340. >>
  1342. }
  1343. <<
  1344. NLA = 154;
  1345. >>
  1347. ;
  1348. <<
  1349. NLA = 155;
  1350. >>
  1352. [0-9]+
  1353. <<
  1354. NLA = INT;
  1355. >>
  1357. [a-zA-Z_][_a-zA-Z0-9]*
  1358. <<
  1359. NLA = ID;
  1360. >>
  1362. %%