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)
Add special case for missing `call` ffc71221bf4cf297759d36f57d45bb9f20434b4f lep 2021-04-09 21:42:24
Fixes for OpenBSD 4edafbf95d75a98fc4b1469f32bb4e52ed200314 lep 2021-03-27 09:37:24
Don't use strncat. 332fecc88884fe33da77036a41188b9cfc73e4f2 lep 2021-02-19 22:25:35
Allow assignment to local variable in constant function 0920290c0af1fe76066aa9520729b2afaa41fbd7 lep 2020-08-04 16:18:16
Add hexadecimal form with uppercase X 43d20a0f74e86cb2c89021b893b923d2efb4070a lep 2020-08-04 16:17:13
Use flag in test. df89d16a43ce0b5c2f7ca0a079818361dee02908 lep 2020-08-04 16:15:24
Small readme fixes eeddac84a092c2cb3105510626cb674729c4f09f lep 2020-08-03 09:49:49
Warn when using native as code 1b14ec57777560df0982a08f3a2bc8eb27a1df75 lep 2020-08-03 09:32:38
Use the strhash hashfunc for our hashtables. d6f0de51cb54921b529799b9939cfe2dcdf7b4d0 lep 2020-07-29 11:13:13
Document installation methods 814075ef77bc8981684971bfc2a5c626f2e34035 lep 2020-07-18 08:11:43
Improved Readme c8d57e3c1953d5e67ca12f75f5685f7786eacaf2 lep 2020-07-18 07:43:09
Added some tests for the new StringHash check. 1f613e7c5b078cc3ce3a04a957291ca070856528 lep 2020-07-18 07:17:26
Added check for bad StringHash usage 3abbed6aa1cd87e202a0b038e8af2246e9ceadeb lep 2020-07-17 22:13:39
Fix release target 6eca932b6210f1ac93b3bc030c15797d88d529b6 lep 2019-10-17 12:58:24
Better error message for `type` as a name 665dc1efab9a5a8706bb0fcb95a13eabe3358436 lep 2019-10-17 12:53:35
Added reserved keyword 'alias' 7589b241e1179f85bf19b82696d97d8365034376 lep 2019-05-31 21:57:10
More newline stuff 3e57cdb92c766375430c701034db56e81dcc27e2 lep 2019-05-18 09:44:12
Report natives after function defintions eb58451c6e2df142a51e85e68ee11efa45c3215c lep 2019-04-01 12:49:24
Specify minimum bison version in readme 44b75417a7d01e2639a4b4acda031e95eca8ffb2 lep 2019-02-18 23:41:48
Support Apple by defining _aligned_malloc 596488eafa1e09c1120d2488c78959a8c63c5a5d Jesse Rogers 2019-01-03 17:08:49
Commit ffc71221bf4cf297759d36f57d45bb9f20434b4f - Add special case for missing `call`
Author: lep
Author date (UTC): 2021-04-09 21:42
Committer name: lep
Committer date (UTC): 2021-04-09 21:54
Parent(s): ecc95d1392c1e42e961d25573edfadf53fb9d471
Signer:
Signing key:
Signing status: N
Tree: c64f6cb5a19361b8755600d67d8931a7d540b4e8
File Lines added Lines deleted
grammar.y 106 98
tests/should-fail/no-call.j 3 2
File grammar.y changed (mode: 100644) (index 3c0c7a1..8c657ae)
... ... codeblock: /* empty */ { $$.ty = gEmpty; }
440 440 } }
441 441 ; ;
442 442
443 statement: newline { $$.ty = gEmpty; }
444 | CALL funccall newline{ $$.ty = gAny;}
445 /*1 2 3 4 5 6 7 8 9 */
446 | ifstart expr THEN newline codeblock elsifseq elseseq ifend newline {
447 canconvert($2.ty, gBoolean, -1);
448 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
449 }
450 | SET rid EQUALS expr newline {
451 const struct typeandname *tan = getVariable($2.str);
452 checkwrongshadowing(tan, -1);
453 if (tan->isarray) {
454 char ebuf[1024];
455 snprintf(ebuf, 1024, "Index missing for array variable %s", $2.str);
456 yyerrorline(semanticerror, lineno - 1, ebuf);
457 }
458 canconvert($4.ty, tan->ty, -1);
459 $$.ty = gAny;
460 if (tan->isconst) {
461 char ebuf[1024];
462 snprintf(ebuf, 1024, "Cannot assign to constant %s", $2.str);
463 yyerrorline(semanticerror, lineno - 1, ebuf);
464 }
465 if (inconstant)
466 validateGlobalAssignment($2.str);
467 if(infunction && !ht_lookup(&initialized, $2.str)){
468 ht_put(&initialized, $2.str, (void*)1);
469 }
470
471 }
472 | SET rid rid EQUALS expr newline {
443 statement:
444 newline { $$.ty = gEmpty; }
445 | CALL funccall newline { $$.ty = gAny; }
446 /*1 2 3 4 5 6 7 8 9 */
447 | ifstart expr THEN newline codeblock elsifseq elseseq ifend newline {
448 canconvert($2.ty, gBoolean, -1);
449 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
450 }
451 | SET rid EQUALS expr newline {
452 const struct typeandname *tan = getVariable($2.str);
453 checkwrongshadowing(tan, -1);
454 if (tan->isarray) {
473 455 char ebuf[1024]; char ebuf[1024];
474 if(ht_lookup(&types, $2.str)){
475 snprintf(ebuf, 1024, ">%s< %s is an error here. The type only needs to be stated at declartion time", $2.str, $3.str);
476 }else if(ht_lookup(&types, $3.str)){
477 snprintf(ebuf, 1024, "%s >%s< is an error here. The type only needs to be stated at declartion time", $2.str, $3.str);
478 }else{
479 snprintf(ebuf, 1024, "Unexpected '%s'", $3.str);
480 }
481 yyerrorline(syntaxerror, lineno -1, ebuf);
482 }
483 | SET rid LBRACKET expr RBRACKET EQUALS expr newline{
484 const struct typeandname *tan = getVariable($2.str);
485 $$.ty = gAny;
486 if (tan->ty != gAny) {
487 checkarrayindex(tan->name, $4.ty, lineno -1);
488 if (!tan->isarray) {
489 char ebuf[1024];
490 snprintf(ebuf, 1024, "%s is not an array", $2.str);
491 yyerrorline(semanticerror, lineno - 1, ebuf);
492 }
493 canconvert($7.ty, tan->ty, -1);
494 if (inconstant)
495 validateGlobalAssignment($2.str);
496 }
497 }
498 | loopstart newline codeblock loopend newline {$$.ty = $3.ty;}
499 | loopstart newline codeblock {
500 $$.ty = $3.ty;
501
502 char msg[1024];
503 block_missing_error(msg, 1024);
504 yyerrorex(syntaxerror, msg);
505
506 }
507 | EXITWHEN expr newline {
508 canconvert($2.ty, gBoolean, -1);
509 if (!inloop)
510 yyerrorline(syntaxerror, lineno - 1, "Exitwhen outside of loop");
511 $$.ty = gAny;
456 snprintf(ebuf, 1024, "Index missing for array variable %s", $2.str);
457 yyerrorline(semanticerror, lineno - 1, ebuf);
512 458 } }
513 | RETURN expr newline {
514 $$.ty = mkretty($2.ty, 1);
515 if(retval == gNothing)
516 yyerrorline(semanticerror, lineno - 1, "Cannot return value from function that returns nothing");
517 else if (! flagenabled(flag_rb) )
518 canconvertreturn($2.ty, retval, 0);
519 }
520 | RETURN newline {
521 if (retval != gNothing)
522 yyerrorline(semanticerror, lineno - 1, "Return nothing in function that should return value");
523 $$.ty = mkretty(gAny, 1);
524 }
525 | DEBUG statement {$$.ty = gAny;}
526 /*1 2 3 4 5 6 7 */
527 | ifstart expr THEN newline codeblock elsifseq elseseq {
528 canconvert($2.ty, gBoolean, -1);
529 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
530
531 char msg[1024];
532 block_missing_error(msg, 1024);
533 yyerrorex(syntaxerror, msg);
459 canconvert($4.ty, tan->ty, -1);
460 $$.ty = gAny;
461 if (tan->isconst) {
462 char ebuf[1024];
463 snprintf(ebuf, 1024, "Cannot assign to constant %s", $2.str);
464 yyerrorline(semanticerror, lineno - 1, ebuf);
534 465 } }
535 | ifstart expr newline {
536 canconvert($2.ty, gBoolean, -1);
537 $$.ty = gAny;
538 yyerrorex(syntaxerror, "Missing then or non valid expression");
466 if (inconstant)
467 validateGlobalAssignment($2.str);
468 if(infunction && !ht_lookup(&initialized, $2.str)){
469 ht_put(&initialized, $2.str, (void*)1);
539 470 } }
540 | SET funccall newline{ $$.ty = gAny; yyerrorline(semanticerror, lineno - 1, "Call expected instead of set");}
541 | lvardecl {
542 $$.ty = gAny;
543 yyerrorex(semanticerror, "Local declaration after first statement");
471 $$.ty = gAny;
472 }
473 | SET rid rid EQUALS expr newline {
474 char ebuf[1024];
475 if(ht_lookup(&types, $2.str)){
476 snprintf(ebuf, 1024, ">%s< %s is an error here. The type only needs to be stated at declartion time", $2.str, $3.str);
477 }else if(ht_lookup(&types, $3.str)){
478 snprintf(ebuf, 1024, "%s >%s< is an error here. The type only needs to be stated at declartion time", $2.str, $3.str);
479 }else{
480 snprintf(ebuf, 1024, "Unexpected '%s'", $3.str);
544 481 } }
545 | error {$$.ty = gAny; }
482 yyerrorline(syntaxerror, lineno -1, ebuf);
483 $$.ty = gAny;
484 }
485 | SET rid LBRACKET expr RBRACKET EQUALS expr newline{
486 const struct typeandname *tan = getVariable($2.str);
487 $$.ty = gAny;
488 if (tan->ty != gAny) {
489 checkarrayindex(tan->name, $4.ty, lineno -1);
490 if (!tan->isarray) {
491 char ebuf[1024];
492 snprintf(ebuf, 1024, "%s is not an array", $2.str);
493 yyerrorline(semanticerror, lineno - 1, ebuf);
494 }
495 canconvert($7.ty, tan->ty, -1);
496 if (inconstant)
497 validateGlobalAssignment($2.str);
498 }
499 $$.ty = gAny;
500 }
501 | loopstart newline codeblock loopend newline { $$.ty = $3.ty; }
502 | loopstart newline codeblock {
503 char msg[1024];
504 block_missing_error(msg, 1024);
505 yyerrorex(syntaxerror, msg);
506 $$.ty = $3.ty;
507 }
508 | EXITWHEN expr newline {
509 canconvert($2.ty, gBoolean, -1);
510 if (!inloop)
511 yyerrorline(syntaxerror, lineno - 1, "Exitwhen outside of loop");
512 $$.ty = gAny;
513 }
514 | RETURN expr newline {
515 if(retval == gNothing)
516 yyerrorline(semanticerror, lineno - 1, "Cannot return value from function that returns nothing");
517 else if (! flagenabled(flag_rb) )
518 canconvertreturn($2.ty, retval, 0);
519 $$.ty = mkretty($2.ty, 1);
520 }
521 | RETURN newline {
522 if (retval != gNothing)
523 yyerrorline(semanticerror, lineno - 1, "Return nothing in function that should return value");
524 $$.ty = mkretty(gAny, 1);
525 }
526 | DEBUG statement { $$.ty = gAny; }
527 /*1 2 3 4 5 6 7 */
528 | ifstart expr THEN newline codeblock elsifseq elseseq {
529 canconvert($2.ty, gBoolean, -1);
530 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
531
532 char msg[1024];
533 block_missing_error(msg, 1024);
534 yyerrorex(syntaxerror, msg);
535 }
536 | ifstart expr newline {
537 canconvert($2.ty, gBoolean, -1);
538 $$.ty = gAny;
539 yyerrorex(syntaxerror, "Missing then or non valid expression");
540 }
541 | SET funccall newline {
542 $$.ty = gAny;
543 yyerrorline(semanticerror, lineno - 1, "Call expected instead of set");
544 }
545 | lvardecl {
546 $$.ty = gAny;
547 yyerrorex(semanticerror, "Local declaration after first statement");
548 }
549 | funccall newline {
550 yyerrorline(syntaxerror, lineno-1, "Missing 'call'");
551 $$.ty = gAny;
552 }
553 | error { $$.ty = gAny; }
546 554 ; ;
547 555
548 556 loopstart: LOOP { loopstart: LOOP {
File tests/should-fail/no-call.j copied from file tests/should-fail/native-after-function.j (similarity 57%) (mode: 100644) (index 9d0cb47..d8b7764)
1 1 function foo takes nothing returns nothing function foo takes nothing returns nothing
2 return
3 foo()
4 call foo()
2 5 endfunction endfunction
3
4 native bar takes nothing returns nothing
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