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)
Track opening/closing blocks. 49b23df64b209106cce92e417ee13ecebb0bc009 lep 2018-07-09 09:37:01
Replace strncat with str_append. ad968e040f315ed3cf6580e46587342897839529 lep 2018-03-21 13:53:11
Do not report arrays as uninitialized when the index is missing. 72e93bd234743a438fb0a5c105514bf732c22b89 lep 2017-12-20 14:59:10
Better error messages. ad8342582ac3617280f471d889b1766be272858b lep 2017-11-15 17:52:08
Handle wrong shadowing. 0500a60ef11f39c4f33044e26c29798f6d8445b5 lep 2017-02-19 14:37:21
Added checks for natives which behave bad in a globals block. 3e6ac270dda9ad695723d3bc2aac4d69a2fdf87a lep 2017-02-19 10:57:33
Update readme.md 2c9177dd5482ed8c4c1464a4ade37c301205fe6b lep 2017-02-01 17:42:49
Public git release. 2da78f3665ac4f53f5833c6a48ebbeaabea0cd49 lep 2017-02-01 16:42:21
Better ifdef-handling for aligned malloc. d95ebafa7204e49d84a9fed8cdeb01713dd0bc82 lep 2017-02-01 16:41:07
Makefile changes. 0458bb26764aad1caec71ccf721e84a28c699ee0 lep 2017-02-01 15:48:25
Can now compile on freebsd and linux from one branch. 0772c4bd17dcfc389ca0e887b4bbceda8e46fa8e lep 2017-01-07 21:05:10
More descriptive check for assignment. 474462b44fe20e958e8c6a3b51ba2da9c4a46451 lep 2016-11-24 16:47:15
Actually add all the sources to the release zipball 151ae88aac4c3ac8aae432a4a240239f652fa8f4 lep 2016-11-10 15:30:38
Don't treat ``.'' as a valid real value. 72e5087e22af66de0765c6d4f9ceae154725e2c2 lep 2016-10-24 14:55:02
Also split on \r in flag parser. 519d685ab24864716e3a1ecfd797790a327868ca lep 2016-08-28 12:41:08
Improved errors for function-calls. 5a50178a03c5aa3d153e8699070942327fde0b7b lep 2016-08-27 18:44:01
A very strange error with newlines and comments. d822cacbd889fe723102102c8a09d578d90f013e lep 2016-08-21 09:15:00
Added +nosyntaxerror and +nosemanticerror e755e12b3cab1d5069574e34d22633dd420bb230 lep 2016-05-07 13:42:57
MinGW fixes. f579fad932039f1bca43e7612154f5b7dc4aea4f lep 2016-03-13 19:29:36
Added +shadow description to -h 6a62b1ecf773175992a2a430a178fffb5532e467 lep 2016-03-13 19:35:20
Commit 49b23df64b209106cce92e417ee13ecebb0bc009 - Track opening/closing blocks.
Author: lep
Author date (UTC): 2018-07-09 09:37
Committer name: lep
Committer date (UTC): 2018-07-09 09:37
Parent(s): ad968e040f315ed3cf6580e46587342897839529
Signer:
Signing key:
Signing status: N
Tree: 0879cce92fad20894574f5c837c50918df8a969a
File Lines added Lines deleted
Makefile 1 1
blocks.c 61 0
blocks.h 16 0
grammar.y 52 10
misc.c 1 1
misc.h 2 0
File Makefile changed (mode: 100644) (index a6b2e5c..94e9b16)
... ... pjass-git-$(VERSION)-src.zip: | test
14 14 endif endif
15 15 endif endif
16 16
17 SRC := misc.c hashtable.c paramlist.c funcdecl.c typeandname.c
17 SRC := misc.c hashtable.c paramlist.c funcdecl.c typeandname.c blocks.c
18 18
19 19 OBJS := $(SRC:.c=.o) OBJS := $(SRC:.c=.o)
20 20 OBJS += main.o token.yy.o grammar.tab.o OBJS += main.o token.yy.o grammar.tab.o
File blocks.c added (mode: 100644) (index 0000000..960f22c)
1 #include <stdint.h>
2 #include <stdio.h>
3
4 #include "blocks.h"
5 #include "misc.h"
6
7
8 static struct block_start {
9 int lineno;
10 enum block_type type;
11
12 };
13
14 static struct block_start *blocks = NULL;
15 static size_t size = 0;
16 static size_t capacity;
17
18 static char* names[] = { "function", "loop", "if" };
19
20
21 void block_push(int lineno, enum block_type type){
22 if(! blocks){
23 capacity = 7;
24 blocks = malloc(sizeof(struct block_start) * capacity);
25 }else if(size >= capacity){
26 capacity *= 2;
27 realloc(blocks, capacity * sizeof(struct block_start));
28 }
29
30 blocks[size].type = type;
31 blocks[size].lineno = lineno;
32
33 size++;
34 }
35
36 bool block_pop(enum block_type type, char *buf, size_t len){
37 if(size == 0){
38 // Standalone end* found
39 snprintf(buf, len, "[1] Standalone %s (no corresponding opening block)", names[type]);
40 return false;
41 }
42
43
44 if(blocks[size-1].type != type){
45 // Missing end* for blocks[size-1].type
46 snprintf(buf, len, "[2] Missing end%s for block openend in line %d", names[blocks[size-1].type], blocks[size-1].lineno);
47 return false;
48 }
49
50 size--;
51 return true;
52 }
53
54
55 void block_missing_error(int x, char *msg, size_t len){
56 if(size == 0){
57 return;
58 }
59 snprintf(msg, len, "[%d] [3] Missing end%s for block opened in line %d.", x, names[blocks[size-1].type], blocks[size-1].lineno);
60 size--;
61 }
File blocks.h added (mode: 100644) (index 0000000..3cfddca)
1 #ifndef BLOCKS_H
2 #define BLOCKS_H
3
4 #include <stdbool.h>
5
6
7 enum block_type {
8 Function = 0,
9 Loop,
10 If
11 };
12 void block_push(int lineno, enum block_type type);
13 bool block_pop(enum block_type type, char *buf, size_t len);
14 void block_missing_error(int x, char *msg, size_t len);
15
16 #endif
File grammar.y changed (mode: 100644) (index 939157c..e47aacf)
9 9 #include <string.h> #include <string.h>
10 10 #include "token.yy.h" #include "token.yy.h"
11 11 #include "misc.h" #include "misc.h"
12 #include "blocks.h"
12 13
13 14
14 15 #define YYSTYPE union node #define YYSTYPE union node
 
... ... funcdefncore: funcbegin localblock codeblock funcend {
338 339 fnannotations = pjass_flags; fnannotations = pjass_flags;
339 340 } }
340 341 | funcbegin localblock codeblock { | funcbegin localblock codeblock {
341 yyerrorex(syntaxerror, "Missing endfunction");
342
343 char msg[1024];
344 block_missing_error(2, msg, 1024);
345 yyerrorex(syntaxerror, msg);
346
342 347 ht_clear(&params); ht_clear(&params);
343 348 ht_clear(&locals); ht_clear(&locals);
344 349 ht_clear(&initialized); ht_clear(&initialized);
 
... ... funcend: ENDFUNCTION {
355 360 inblock = 0; inblock = 0;
356 361 inconstant = 0; inconstant = 0;
357 362 infunction = 0; infunction = 0;
363
364 char msg[1024];
365
366 if(! block_pop(Function, msg, 1024)){
367 yyerrorex(syntaxerror, msg);
368 }
358 369 } }
359 370 ; ;
360 371
 
... ... funcbegin: FUNCTION rid TAKES optparam_list returnorreturns opttype {
367 378 infunction = 1; infunction = 1;
368 379 $$ = checkfunctionheader($2.str, $4.pl, $6.ty); $$ = checkfunctionheader($2.str, $4.pl, $6.ty);
369 380 $$.fd->isconst = 0; $$.fd->isconst = 0;
381 block_push(lineno, Function);
370 382 } }
371 383 | CONSTANT FUNCTION rid TAKES optparam_list returnorreturns opttype { | CONSTANT FUNCTION rid TAKES optparam_list returnorreturns opttype {
372 384 inconstant = 1; inconstant = 1;
373 385 infunction = 1; infunction = 1;
374 386 $$ = checkfunctionheader($3.str, $5.pl, $7.ty); $$ = checkfunctionheader($3.str, $5.pl, $7.ty);
375 387 $$.fd->isconst = 1; $$.fd->isconst = 1;
388 block_push(lineno, Function);
376 389 } }
377 390 ; ;
378 391
 
... ... codeblock: /* empty */ { $$.ty = gEmpty; }
388 401 statement: newline { $$.ty = gEmpty; } statement: newline { $$.ty = gEmpty; }
389 402 | CALL funccall newline{ $$.ty = gAny;} | CALL funccall newline{ $$.ty = gAny;}
390 403 /*1 2 3 4 5 6 7 8 9 */ /*1 2 3 4 5 6 7 8 9 */
391 | IF expr THEN newline codeblock elsifseq elseseq ENDIF newline {
404 | ifstart expr THEN newline codeblock elsifseq elseseq ifend newline {
392 405 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
393 406 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty)); $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
394 407 } }
 
... ... statement: newline { $$.ty = gEmpty; }
440 453 } }
441 454 } }
442 455 | loopstart newline codeblock loopend newline {$$.ty = $3.ty;} | loopstart newline codeblock loopend newline {$$.ty = $3.ty;}
443 | loopstart newline codeblock {$$.ty = $3.ty; yyerrorex(syntaxerror, "Missing endloop");}
456 | loopstart newline codeblock {
457 $$.ty = $3.ty;
458
459 char msg[1024];
460 block_missing_error(0, msg, 1024);
461 yyerrorex(syntaxerror, msg);
462
463 }
444 464 | EXITWHEN expr newline { canconvert($2.ty, gBoolean, -1); if (!inloop) yyerrorline(syntaxerror, lineno - 1, "Exitwhen outside of loop"); $$.ty = gAny;} | EXITWHEN expr newline { canconvert($2.ty, gBoolean, -1); if (!inloop) yyerrorline(syntaxerror, lineno - 1, "Exitwhen outside of loop"); $$.ty = gAny;}
445 465 | RETURN expr newline { | RETURN expr newline {
446 466 $$.ty = mkretty($2.ty, 1); $$.ty = mkretty($2.ty, 1);
 
... ... statement: newline { $$.ty = gEmpty; }
456 476 } }
457 477 | DEBUG statement {$$.ty = gAny;} | DEBUG statement {$$.ty = gAny;}
458 478 /*1 2 3 4 5 6 7 */ /*1 2 3 4 5 6 7 */
459 | IF expr THEN newline codeblock elsifseq elseseq {
479 | ifstart expr THEN newline codeblock elsifseq elseseq {
460 480 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
461 481 $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty)); $$.ty = combinetype($5.ty, combinetype($6.ty, $7.ty));
462 yyerrorex(syntaxerror, "Missing endif");
482
483 char msg[1024];
484 block_missing_error(1, msg, 1024);
485 yyerrorex(syntaxerror, msg);
463 486 } }
464 | IF expr newline {
487 | ifstart expr newline {
465 488 canconvert($2.ty, gBoolean, -1); canconvert($2.ty, gBoolean, -1);
466 489 $$.ty = gAny; $$.ty = gAny;
467 490 yyerrorex(syntaxerror, "Missing then or non valid expression"); yyerrorex(syntaxerror, "Missing then or non valid expression");
 
... ... statement: newline { $$.ty = gEmpty; }
474 497 | error {$$.ty = gAny; } | error {$$.ty = gAny; }
475 498 ; ;
476 499
477 loopstart: LOOP {inloop++;}
478 ;
500 loopstart: LOOP {
501 inloop++;
502 block_push(lineno, Loop);
503 };
479 504
480 loopend: ENDLOOP {inloop--;}
481 ;
505 loopend: ENDLOOP {
506 inloop--;
507
508 char msg[1024];
509 if(! block_pop(Loop, msg, 1024)){
510 yyerrorex(syntaxerror, msg);
511 }
512 };
513
514 ifstart: IF {
515 block_push(lineno, If);
516 };
517
518 ifend: ENDIF {
519 char msg[1024];
520 if(! block_pop(If, msg, 1024)){
521 yyerrorex(syntaxerror, msg);
522 }
523 };
482 524
483 525 elseseq: /* empty */ { $$.ty = gAny; } elseseq: /* empty */ { $$.ty = gAny; }
484 526 | ELSE newline codeblock { | ELSE newline codeblock {
File misc.c changed (mode: 100644) (index 64ca79a..59725fc)
... ... int abs(int i){
104 104 return i; return i;
105 105 } }
106 106
107 static void str_append(char *buf, const char *str, size_t buf_size){
107 void str_append(char *buf, const char *str, size_t buf_size){
108 108 size_t str_len = strlen(str); size_t str_len = strlen(str);
109 109 size_t buf_len = strlen(buf); size_t buf_len = strlen(buf);
110 110 size_t buf_freespace = buf_size - (buf_len+1); // +1 for zero byte at the end size_t buf_freespace = buf_size - (buf_len+1); // +1 for zero byte at the end
File misc.h changed (mode: 100644) (index 7aa19be..9e4f9dd)
... ... union node checkarraydecl(struct typeandname *tan);
114 114 union node checkvartypedecl(struct typeandname *tan); union node checkvartypedecl(struct typeandname *tan);
115 115 void checkwrongshadowing(const struct typeandname *tan, int linemod); void checkwrongshadowing(const struct typeandname *tan, int linemod);
116 116
117 void str_append(char *buf, const char *str, size_t buf_size);
118
117 119
118 120 #endif #endif
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