Final push :-P

1 files changed, 48 insertions, 4 deletions

diff --git a/PE/compil.lex b/PE/compil.lex
index cda7fa0..bc6614d 100644
--- a/PE/compil.lex
+++ b/PE/compil.lex
@@ -2,10 +2,31 @@
  #define yputc(a) putc(a, yyout)
  #include "table.h"
 
- int oldpt = -1;
+ int oldpt = -1, nbpts = -1;
+ int curptr = 0, p, full = 0;
+ void putptr(void);
 
 %%
 
+"<NBPTS "[[:digit:]]+">\n" {
+    int i;
+    nbpts = atoi(yytext + 7);
+    fprintf(stderr, "nbpts = %i\n", nbpts);
+    unsigned short int z = 0;
+    
+    fwrite(&nbpts, 2, 1, yyout);
+    
+    for (i = 0; i < nbpts; i++) {
+	fwrite(&z, 2, 1, yyout);
+    }
+    
+    curptr = 1;
+    p = ftell(yyout);
+    fseek(yyout, 2, SEEK_SET);
+    fwrite(&p, 2, 1, yyout);
+    fseek(yyout, p, SEEK_SET);
+}
+
 "<PT"[[:digit:]]+">\n" {
     int d = atoi(yytext + 3);
     if (d != (oldpt + 1)) {
@@ -47,10 +68,11 @@
     yputc(d);
 }
 
-"\n<CLOSE>\n"	yputc(0xff);
-"<CLOSE>\n"	{ yputc(0xf7); yputc(0xff); }
+"<CLOSE>\n"	{ yputc(0xff); putptr(); }
+"\n<CLOSE>\n"	{ yputc(0xff); putptr(); }
 "<AYA>"		yputc(0xfa);
-"\n<TCLOSE>\n"	yputc(0xf9);
+"\n<TCLOSE>\n"	{ yputc(0xf9); putptr(); }
+"<EMPTYPTR>\n"  { putptr(); }
 "<PAUSE>\n"	yputc(0xf8);
 "\n"		yputc(0xf7);
 
@@ -78,9 +100,31 @@
 %%
 
 int yywrap(void) {
+    if ((nbpts != -1) && (!full)) {
+	fprintf(stderr, "Pas assez de pointeurs\n");
+    }
     exit(0);
 }
 
+void putptr(void) {
+    if (nbpts == -1)
+	return;
+    if (curptr == nbpts) {
+	full = 1;
+	curptr++;
+	return;
+    }
+    if (curptr > nbpts) {
+	fprintf(stderr, "Trop de pointeurs ligne %i\n", yylineno);
+	return;
+    }
+    p = ftell(yyout);
+    fseek(yyout, 2 * curptr + 2, SEEK_SET);
+    fwrite(&p, 2, 1, yyout);
+    fseek(yyout, 0, SEEK_END);
+    curptr++;
+}
+
 int main(int argc, char ** argv) {
     if ((argc < 2) || (argc > 3)) {
         fprintf(stderr, "Usage: %s <output> [input]\n", argv[0]);