vrtc / pjass (public) (License: BSD) (since 2023-08-03) (hash sha1)
pjass is a free Jass scripting language parser. This repository is a fork of lep/pjass. The goal is to add Debian packaging. As of the time of this writing, it works for current stable, that is Debian 12 (bookworm).
Clone URLs: https://rocketgit.com/user/vrtc/pjass ssh://rocketgit@ssh.rocketgit.com/user/vrtc/pjass git://git.rocketgit.com/user/vrtc/pjass
master upstream
List of commits:
Subject Hash Author Date (UTC)
Directive to suppress warnings. f1538a555e3009cfd8cbd900347d523abdd11953 lep 2015-10-04 12:17:08
More Makefile enhancements. 94c97f7c5f943f09ee575e96e388e9e2c947385c lep 2015-10-04 11:34:36
Makefile enhancements 8bc7132422db4a3b90a82da4a63f7cfa9fdbe2f5 lep 2015-06-09 09:30:42
Changed canconvertreturn behaviour. a1ba7f1d59cc40f56d0b3e4855c31b3d66019d9d lep 2015-04-15 16:35:52
Rewrote string handling to better handle newlines. 434a8fe566783969cb69eb73b2792cd74dac71d3 lep 2015-02-12 15:13:54
Rewrote rawcode handling for somewhat better error messages. 1e687d921b09149e244d16d7abca398c0639ad6d lep 2015-02-08 20:08:22
Undefined variables are not suggested for other undefined variables. c5561c56dde18bbcf1d05bdec7b50804757c5ef8 lep 2015-02-08 15:39:10
Also changed gNone to gAny in else and elesif cases. 485e75aaa14eb8ae10058305f7b75c1abd19eb82 lep 2015-02-06 15:20:15
Changed statement default return type from gNone to gAny. 7a054ad7b62d77ae4a17ac97d913a19675dad111 lep 2015-02-06 15:12:31
Propagate returncheck through statements. b8977b07e11f8fd335851e3a2d69cb473492f85b lep 2015-02-06 15:07:36
Small changes. Removed some unused symbols. 83c8b2b0e6811380bddf6e92e3b2f843370d5e05 lep 2015-02-05 12:43:24
Only put locals into the initialized table. db20d22434506716774fa4e8577f98073f17d6c2 lep 2015-02-04 11:57:00
Changed min function to min makro. b5b6c824896935232743633ae57d060e5c6a046f lep 2015-02-04 11:33:14
Rewrote the hashtable. 55c0f9ae7d284df88c48e7c2ac1c547cda1d802a lep 2015-02-04 11:24:53
Fixed some memory violations. 26a99d799804d8154c4ee1aa0850cdaad909d1ae lep 2015-02-03 23:27:32
Reverted smth. dbd5c217795cf5cd014ed7370655e62591d4d0fe lep 2015-02-03 22:12:49
Changed sprintf to snprintf. 02d6efe2aed9186b2e6189b36a5fa50d2e0c2221 lep 2015-02-03 21:33:05
Wrapped typenode member accesses in getTypePtr. 372c1f9da68a65de9e14dff3881e1758d5e7114b lep 2015-02-03 21:05:11
Added ifdefs for memalign functionality. f005f5e8067994ebd76265e3289e6ab67283b96f lep 2015-02-03 20:06:20
Missing-return check in elseifs should work now. 4274d6166e2c92a4591c1e46a0d71f1579a57c7d lep 2015-02-03 19:35:39
Commit f1538a555e3009cfd8cbd900347d523abdd11953 - Directive to suppress warnings.
Author: lep
Author date (UTC): 2015-10-04 12:17
Committer name: lep
Committer date (UTC): 2015-10-04 12:17
Parent(s): 94c97f7c5f943f09ee575e96e388e9e2c947385c
Signer:
Signing key:
Signing status: N
Tree: 6f246b175f6074976306d995efc046258dce369a
File Lines added Lines deleted
grammar.y 38 29
token.l 7 3
File grammar.y changed (mode: 100644) (index a3277eb..b8c3220)
... ... int main(int argc, char **argv)
130 130 %token INTLIT %token INTLIT
131 131 %token REALLIT %token REALLIT
132 132 %token UNITTYPEINT %token UNITTYPEINT
133 %token DERECTIVE
133 134
134 135 %right EQUALS %right EQUALS
135 136 %left AND %left AND
 
... ... int main(int argc, char **argv)
141 142
142 143 %% %%
143 144
145
146
144 147 program: topscopes globdefs topscopes funcdefns program: topscopes globdefs topscopes funcdefns
145 148 ; ;
146 149
 
... ... funcdefns: /* empty */
157 160 ; ;
158 161
159 162 globdefs: /* empty */ globdefs: /* empty */
160 | GLOBALS NEWLINE vardecls ENDGLOBALS endglobalsmarker
163 | GLOBALS newline vardecls ENDGLOBALS endglobalsmarker
161 164 | GLOBALS vardecls ENDGLOBALS endglobalsmarker {yyerrorline(0, lineno - 1, "Missing linebreak before global declaration");} | GLOBALS vardecls ENDGLOBALS endglobalsmarker {yyerrorline(0, lineno - 1, "Missing linebreak before global declaration");}
162 165 ; ;
163 166
 
... ... vardecls: /* empty */
168 171 | vd vardecls | vd vardecls
169 172 ; ;
170 173
171 vd: NEWLINE
174 vd: newline
172 175 | vardecl | vardecl
173 176 ; ;
174 177
 
... ... funcdecls: /* empty */
176 179 | fd funcdecls | fd funcdecls
177 180 ; ;
178 181
179 fd: NEWLINE
182 fd: newline
180 183 | funcdecl | funcdecl
181 184 ; ;
182 185
 
... ... typedefs: /* empty */
184 187 | td typedefs | td typedefs
185 188 ; ;
186 189
187 td: NEWLINE
190 td: newline
188 191 | typedef | typedef
189 192 ; ;
190 193
 
... ... funccall: rid LPAREN exprlistcompl RPAREN {
302 305 $$.ty = fd->ret; $$.ty = fd->ret;
303 306 } }
304 307 } }
305 | rid LPAREN exprlistcompl NEWLINE {
308 | rid LPAREN exprlistcompl newline {
306 309 yyerrorex(0, "Missing ')'"); yyerrorex(0, "Missing ')'");
307 310 struct funcdecl *fd = lookup(&functions, $1.str); struct funcdecl *fd = lookup(&functions, $1.str);
308 311 if (fd == NULL) { if (fd == NULL) {
 
... ... nativefuncdecl: NATIVE rid TAKES optparam_list RETURNS opttype
379 382 } }
380 383 ; ;
381 384
382 funcdefn: NEWLINE
385 funcdefn: newline
383 386 | funcdefncore | funcdefncore
384 387 | statement { yyerrorex(0, "Statement outside of function"); } | statement { yyerrorex(0, "Statement outside of function"); }
385 388 ; ;
386 389
387 funcdefncore: funcbegin localblock codeblock funcend {
390 derectives: /* empty */
391 | DERECTIVE derectives
392 ;
393
394 funcdefncore: derectives funcbegin localblock codeblock funcend {
388 395 if(retval != gNothing) { if(retval != gNothing) {
389 //if ($3.ty == gAny || $3.ty == gNone)
390 if(!getTypeTag($3.ty))
396 if(!getTypeTag($4.ty))
391 397 yyerrorline(1, lineno - 1, "Missing return"); yyerrorline(1, lineno - 1, "Missing return");
392 398 else if (returnbug) else if (returnbug)
393 canconvertreturn($3.ty, retval, -1);
399 canconvertreturn($4.ty, retval, -1);
394 400 } }
395 401 } }
396 | funcbegin localblock codeblock {yyerrorex(0, "Missing endfunction"); clear(&params); clear(&locals); clear(&initialized); curtab = &globals;}
402 | derectives funcbegin localblock codeblock {yyerrorex(0, "Missing endfunction"); clear(&params); clear(&locals); clear(&initialized); curtab = &globals;}
397 403 ; ;
398 404
399 405 funcend: ENDFUNCTION { clear(&params); clear(&locals); clear(&initialized); curtab = &globals; inblock = 0; inconstant = 0; infunction = 0; } funcend: ENDFUNCTION { clear(&params); clear(&locals); clear(&initialized); curtab = &globals; inblock = 0; inconstant = 0; infunction = 0; }
 
... ... codeblock: /* empty */ { $$.ty = gEmpty; }
492 498 } }
493 499 ; ;
494 500
495 statement: NEWLINE { $$.ty = gEmpty; }
496 | CALL funccall NEWLINE{ $$.ty = gAny;}
501 statement: newline { $$.ty = gEmpty; }
502 | CALL funccall newline{ $$.ty = gAny;}
497 503 /*1 2 3 4 5 6 7 8 9 */ /*1 2 3 4 5 6 7 8 9 */
498 | IF expr THEN NEWLINE codeblock elsifseq elseseq ENDIF NEWLINE {
504 | IF expr THEN newline codeblock elsifseq elseseq ENDIF newline {
499 505 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
500 506 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty)); $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
501 507 } }
502 | SET rid EQUALS expr NEWLINE { if (getVariable($2.str)->isarray) {
508 | SET rid EQUALS expr newline { if (getVariable($2.str)->isarray) {
503 509 char ebuf[1024]; char ebuf[1024];
504 510 snprintf(ebuf, 1024, "Index missing for array variable %s", $2.str); snprintf(ebuf, 1024, "Index missing for array variable %s", $2.str);
505 511 yyerrorline(3, lineno - 1, ebuf); yyerrorline(3, lineno - 1, ebuf);
 
... ... statement: NEWLINE { $$.ty = gEmpty; }
517 523 put(&initialized, $2.str, (void*)1); put(&initialized, $2.str, (void*)1);
518 524 } }
519 525 } }
520 | SET rid LBRACKET expr RBRACKET EQUALS expr NEWLINE{
526 | SET rid LBRACKET expr RBRACKET EQUALS expr newline{
521 527 const struct typeandname *tan = getVariable($2.str); const struct typeandname *tan = getVariable($2.str);
522 528 $$.ty = gAny; $$.ty = gAny;
523 529 if (tan->ty != gAny) { if (tan->ty != gAny) {
 
... ... statement: NEWLINE { $$.ty = gEmpty; }
532 538 validateGlobalAssignment($2.str); validateGlobalAssignment($2.str);
533 539 } }
534 540 } }
535 | loopstart NEWLINE codeblock loopend NEWLINE {$$.ty = $3.ty;}
536 | loopstart NEWLINE codeblock {$$.ty = $3.ty; yyerrorex(0, "Missing endloop");}
537 | EXITWHEN expr NEWLINE { canconvert($2.ty, gBoolean, -1); if (!inloop) yyerrorline(0, lineno - 1, "Exitwhen outside of loop"); $$.ty = gAny;}
538 | RETURN expr NEWLINE {
541 | loopstart newline codeblock loopend newline {$$.ty = $3.ty;}
542 | loopstart newline codeblock {$$.ty = $3.ty; yyerrorex(0, "Missing endloop");}
543 | EXITWHEN expr newline { canconvert($2.ty, gBoolean, -1); if (!inloop) yyerrorline(0, lineno - 1, "Exitwhen outside of loop"); $$.ty = gAny;}
544 | RETURN expr newline {
539 545 $$.ty = mkretty($2.ty, 1); $$.ty = mkretty($2.ty, 1);
540 546 if(retval == gNothing) if(retval == gNothing)
541 547 yyerrorline(1, lineno - 1, "Cannot return value from function that returns nothing"); yyerrorline(1, lineno - 1, "Cannot return value from function that returns nothing");
542 548 else if (!returnbug) else if (!returnbug)
543 549 canconvertreturn($2.ty, retval, 0); canconvertreturn($2.ty, retval, 0);
544 550 } }
545 | RETURN NEWLINE {
551 | RETURN newline {
546 552 if (retval != gNothing) if (retval != gNothing)
547 553 yyerrorline(1, lineno - 1, "Return nothing in function that should return value"); yyerrorline(1, lineno - 1, "Return nothing in function that should return value");
548 554 $$.ty = mkretty(gAny, 1); $$.ty = mkretty(gAny, 1);
549 555 } }
550 556 | DEBUG statement {$$.ty = gAny;} | DEBUG statement {$$.ty = gAny;}
551 557 /*1 2 3 4 5 6 7 */ /*1 2 3 4 5 6 7 */
552 | IF expr THEN NEWLINE codeblock elsifseq elseseq {
558 | IF expr THEN newline codeblock elsifseq elseseq {
553 559 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
554 560 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty)); $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
555 561 yyerrorex(0, "Missing endif"); yyerrorex(0, "Missing endif");
556 562 } }
557 | IF expr NEWLINE {
563 | IF expr newline {
558 564 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
559 565 $$.ty = gAny; $$.ty = gAny;
560 566 yyerrorex(0, "Missing then or non valid expression"); yyerrorex(0, "Missing then or non valid expression");
561 567 } }
562 | SET funccall NEWLINE{$$.ty = gAny; yyerrorline(0, lineno - 1, "Call expected instead of set");}
568 | SET funccall newline{$$.ty = gAny; yyerrorline(0, lineno - 1, "Call expected instead of set");}
563 569 | lvardecl {yyerrorex(0, "Local declaration after first statement");} | lvardecl {yyerrorex(0, "Local declaration after first statement");}
564 570 | error {$$.ty = gAny; } | error {$$.ty = gAny; }
565 571 ; ;
 
... ... loopend: ENDLOOP {inloop--;}
571 577 ; ;
572 578
573 579 elseseq: /* empty */ { $$.ty = gAny; } elseseq: /* empty */ { $$.ty = gAny; }
574 | ELSE NEWLINE codeblock {
580 | ELSE newline codeblock {
575 581 $$.ty = $3.ty; $$.ty = $3.ty;
576 582 } }
577 583 ; ;
578 584
579 585 elsifseq: /* empty */ { $$.ty = mkretty(gEmpty, 1); } elsifseq: /* empty */ { $$.ty = mkretty(gEmpty, 1); }
580 586 /* 1 2 3 4 5 6 */ /* 1 2 3 4 5 6 */
581 | ELSEIF expr THEN NEWLINE codeblock elsifseq {
587 | ELSEIF expr THEN newline codeblock elsifseq {
582 588 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
583 589
584 590 if(typeeq($6.ty, gEmpty)){ if(typeeq($6.ty, gEmpty)){
 
... ... vartypedecl: type rid {
769 775
770 776 localblock: endlocalsmarker localblock: endlocalsmarker
771 777 | lvardecl localblock | lvardecl localblock
772 | NEWLINE localblock
778 | newline localblock
773 779 ; ;
774 780
775 781 endlocalsmarker: /* empty */ { fCurrent = 0; } endlocalsmarker: /* empty */ { fCurrent = 0; }
 
... ... lvardecl: LOCAL vardecl { }
780 786 | typedef { yyerrorex(3,"Types can not be extended inside functions"); } | typedef { yyerrorex(3,"Types can not be extended inside functions"); }
781 787 ; ;
782 788
783 vardecl: vartypedecl NEWLINE {
789 vardecl: vartypedecl newline {
784 790 const struct typeandname *tan = getVariable($1.str); const struct typeandname *tan = getVariable($1.str);
785 791 if (tan->isconst) { if (tan->isconst) {
786 792 yyerrorline(3, lineno - 1, "Constants must be initialized"); yyerrorline(3, lineno - 1, "Constants must be initialized");
787 793 } }
788 794 $$.ty = gNothing; $$.ty = gNothing;
789 795 } }
790 | vartypedecl EQUALS expr NEWLINE {
796 | vartypedecl EQUALS expr newline {
791 797 const struct typeandname *tan = getVariable($1.str); const struct typeandname *tan = getVariable($1.str);
792 798 if (tan->isarray) { if (tan->isarray) {
793 799 yyerrorex(3, "Arrays cannot be directly initialized"); yyerrorex(3, "Arrays cannot be directly initialized");
 
... ... primtype: HANDLE { $$.ty = lookup(&types, yytext); }
841 847 | CODE { $$.ty = lookup(&types, yytext); } | CODE { $$.ty = lookup(&types, yytext); }
842 848 ; ;
843 849
850 newline: NEWLINE
851 | DERECTIVE
852 ;
File token.l changed (mode: 100644) (index 768c4e9..68744e6)
... ... TABS [\x01-\x09\x0B\x0C\x0E-\x1F]
38 38 %% %%
39 39
40 40 {COMMENTSTART} { {COMMENTSTART} {
41 int c;
42 for(c = input(); !(c == '\n' || c == EOF); c = input()) ;
41 int c = input();
42 for(; !(c == '\n' || c == EOF); c = input()) ;
43 43 lineno++; lineno++;
44 44 islinebreak = 1; islinebreak = 1;
45 45 isconstant = 0; isconstant = 0;
46 return NEWLINE;
46
47 if(c == '#')
48 return DERECTIVE;
49 else
50 return NEWLINE;
47 51 } }
48 52
49 53 [']\\[btrnf\\]['] { return UNITTYPEINT; } [']\\[btrnf\\]['] { return UNITTYPEINT; }
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/vrtc/pjass

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/vrtc/pjass

Clone this repository using git:
git clone git://git.rocketgit.com/user/vrtc/pjass

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main