version update, tweak opencv_build rm lapack
[goodguy/cinelerra.git] / cinelerra-5.1 / po / xlat.C
1 #include <stdio.h>
2 #include <stdint.h>
3 #include <stdlib.h>
4 #include <string.h>
5 #include <unistd.h>
6
7 #include <string>
8 #include <map>
9
10 #define MX_STR 8192
11
12 // test csv    ./a.out csv < data.csv
13 // test po     ./a.out  po < data.po
14 // get strings ./a.out key  < xgettext.po
15 // gen xlation ./a.out xlat < xgettext.po xlat.csv
16 // gen xlation ./a.out xlat < xgettext.po text,xlat ...
17 // gen xupdate ./a.out xlat < xgettext.po xlat.csv newer.csv ... newest.csv
18
19 unsigned int wnext(uint8_t *&bp)
20 {
21   unsigned int ch = *bp++;
22   if( ch >= 0x80 ) {
23     static const unsigned char byts[] = {
24       1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 5,
25     };
26     int i = ch - 0xc0;
27     int n = i<0 ? 0 : byts[i/4];
28     for( i=n; --i>=0 && *bp>=0x80; ch+=*bp++ ) ch <<= 6;
29     static const unsigned int ofs[6] = {
30       0x00000000U, 0x00003080U, 0x000E2080U,
31       0x03C82080U, 0xFA082080U, 0x82082080U
32     };
33     ch = i<0 ?  ch-ofs[n] : '?';
34   }
35   return ch;
36 }
37
38 int wnext(uint8_t *&bp, unsigned int ch)
39 {
40   if( ch < 0x00000080 ) { *bp++ = ch;  return 1; }
41   int n = ch < 0x00000800 ? 2 : ch < 0x00010000 ? 3 :
42           ch < 0x00200000 ? 4 : ch < 0x04000000 ? 5 : 6;
43   int m = (0xff00 >> n), i = n-1;
44   *bp++ = (ch>>(6*i)) | m;
45   while( --i >= 0 ) *bp++ = ((ch>>(6*i)) & 0x3f) | 0x80;
46   return n;
47 }
48
49 using namespace std;
50
51 //csv = comma seperated value file
52 #define SEP ','
53 static bool is_sep(int ch) { return ch == SEP; }
54
55 static bool is_opnr(int ch)
56 {
57   if( ch ==  '\"'  ) return true;
58   if( ch == 0xab ) return true;
59   if( ch == 0xbb ) return true;
60   if( ch == 0x300c ) return true;
61   if( ch == 0x300d ) return true;
62   return 0;
63 }
64
65 // converts libreoffice csv stuttered quoted string (with quotes attached)
66 //  quote marks only
67 static void xlat1(uint8_t *&in, uint8_t *out)
68 {
69   uint8_t *ibp = in, *obp = out;
70   unsigned ch, lch = 0;
71   if( (ch=wnext(in)) == '\"' ) { 
72     bool is_nested = in[0] == '\"' && in[1] == '\"';
73     while( (ch=wnext(in)) != 0 ) {
74       if( ch == '\"' && lch != '\\' ) {
75         uint8_t *bp = in;
76         unsigned nch = wnext(in);
77         if( nch != '\"' ) { in = bp;  break; }
78       }
79       wnext(out, lch = ch);
80     }
81     if( is_nested && ch == '"' ) {
82       while( out > obp && *(out-1) == ' ' ) --out;
83     }
84   }
85   if( ch != '"' ) {
86     in = ibp;  out = obp;
87     while( (ch=wnext(in)) && !is_sep(ch) ) wnext(out,ch);
88   }
89   *out = 0;
90 }
91
92 static inline unsigned gch(uint8_t *&in) {
93   unsigned ch = wnext(in);
94   if( ch == '\\' ) {
95     switch( (ch=*in++) ) {
96     case 'a':  ch = '\a';  break;
97     case 'b':  ch = '\b';  break;
98     case 'f':  ch = '\f';  break;
99     case 'n':  ch = '\n';  break;
100     case 'r':  ch = '\r';  break;
101     case 't':  ch = '\t';  break;
102     case 'v':  ch = '\v';  break;
103     }
104   }
105   return ch;
106 }
107
108 // converts string (with opn/cls attached) to c string
109 static void xlat2(uint8_t *in, uint8_t *out)
110 {
111   unsigned lch = gch(in), sep = 0, rch = 0, ch;
112   if( lch ) {
113     if( is_opnr(lch) ) {
114       for( uint8_t *ip=in; (ch=gch(ip))!=0; rch=ch );
115       if( lch == rch ) { sep = lch;  lch = gch(in); }
116     }
117     while( (ch=gch(in)) != 0 ) {
118       wnext(out, lch);  lch = ch;
119     }
120     if( !sep ) wnext(out, lch);
121   }
122   *out = 0;
123 }
124
125 int brkput = 0;
126
127 // converts c++ string to c string text
128 static void xlat3(const char *cp, uint8_t *out)
129 {
130   wnext(out, '\"');
131   unsigned ch;
132   uint8_t *bp = (uint8_t*)cp;
133   while( (ch=wnext(bp)) != 0 ) {
134     switch( ch ) {
135     case '"':   ch = '\"'; break;
136     case '\a':  ch = 'a';  break;
137     case '\b':  ch = 'b';  break;
138     case '\f':  ch = 'f';  break;
139     case '\n':  ch = 'n';  break;
140     case '\r':  ch = 'r';  break;
141     case '\t':  ch = 't';  break;
142     case '\v':  ch = 'v';  break;
143     default: wnext(out,ch);  continue;
144     }
145     wnext(out,'\\');
146     wnext(out, ch);
147     if( brkput && ch == 'n' && *bp ) {
148       wnext(out, '\"');
149       wnext(out, '\n');
150       wnext(out, '\"');
151     }
152   }
153   wnext(out, '\"');
154   wnext(out, 0);
155 }
156
157 // converts c++ string to csv string text
158 static void xlat4(const char *cp, uint8_t *out)
159 {
160   wnext(out, '\"');
161   unsigned ch;
162   uint8_t *bp = (uint8_t*)cp;
163   while( (ch=wnext(bp)) != 0 ) {
164     switch( ch ) {
165     case '\a':  ch = 'a';  break;
166     case '\b':  ch = 'b';  break;
167     case '\f':  ch = 'f';  break;
168     case '\n':  ch = 'n';  break;
169     case '\r':  ch = 'r';  break;
170     case '\t':  ch = 't';  break;
171     case '\v':  ch = 'v';  break;
172     case '\"': break;
173     default: wnext(out,ch);  continue;
174     }
175     wnext(out,'\\');
176     wnext(out,ch);
177   }
178   wnext(out, '\"');
179   wnext(out, 0);
180 }
181
182 // parses input to c++ string
183 static string xlat(uint8_t *&in)
184 {
185   uint8_t bfr[MX_STR];  bfr[0] = 0;  xlat1(in, bfr);
186   uint8_t str[MX_STR];  str[0] = 0;  xlat2(bfr, str);
187   return string((const char*)str);
188 }
189
190 class tstring : public string {
191 public:
192   bool ok;
193   tstring(const char *sp, bool k) { string::assign(sp); ok = k; }
194 };
195
196 typedef map<string,tstring> Trans;
197 static Trans trans;
198
199 static inline bool prefix_is(uint8_t *bp, const char *cp)
200 {
201   return !strncmp((const char *)bp, cp, strlen(cp));
202 }
203 static inline uint8_t *bgets(uint8_t *bp, int len, FILE *fp)
204 {
205   uint8_t *ret = (uint8_t*)fgets((char*)bp, len, fp);
206   if( ret ) {
207     int len = strlen((char *)bp);
208     if( len > 0 && bp[len-1] == '\n' ) bp[len-1] = 0;
209   }
210   return ret;
211 }
212 static inline int bputs(uint8_t *bp, FILE *fp)
213 {
214   if( !fp ) return 0;
215   fputs((const char*)bp, fp);
216   fputc('\n',fp);
217   int n = 1;
218   while( *bp ) if( *bp++ == '\n' ) ++n;
219   return n;
220 }
221 static inline int bput(uint8_t *bp, FILE *fp)
222 {
223   if( !fp ) return 0;
224   fputs((const char*)bp, fp);
225   return 1;
226 }
227
228 static bool goog = false;
229 static bool nocmts = false;
230
231 static inline bool is_nlin(unsigned ch, uint8_t *bp)
232 {
233   return ch == ' ' && bp[0] == '\\' && bp[1] == ' ' && ( bp[2] == 'n' || bp[2] == 'N' );
234 }
235
236 static inline bool is_ccln(unsigned ch, uint8_t *bp)
237 {
238   return ch == ' ' && bp[0] == ':' && bp[1] == ':' && bp[2] == ' ';
239 }
240
241 static inline bool is_quot(unsigned ch, uint8_t *bp)
242 {
243   return ch == ' ' && bp[0] == '\\' && bp[1] == ' ' && bp[2] == '"';
244 }
245
246 static inline bool is_colon(unsigned ch)
247 {
248   return ch == 0xff1a;
249 }
250
251 static inline bool is_per(unsigned ch)
252 {
253   if( ch == '%' ) return true;
254   if( ch == 0xff05 ) return true;
255   return false;
256 }
257
258 static unsigned fmt_flds = 0;
259
260 enum { fmt_flg=1, fmt_wid=2, fmt_prc=4, fmt_len=8, fmt_cnv=16, };
261
262 static int is_flags(uint8_t *fp)
263 {
264   if( (fmt_flds & fmt_flg) != 0 ) return 0;
265   if( !strchr("#0-+ I", *fp) ) return 0;
266   fmt_flds |= fmt_flg;
267   return 1;
268 }
269
270 static int is_width(uint8_t *fp)
271 {
272   if( (fmt_flds & fmt_wid) != 0 ) return 0;
273   if( *fp != '*' && *fp < '0' && *fp > '9' ) return 0;
274   fmt_flds |= fmt_wid;
275   uint8_t *bp = fp;
276   bool argno = *fp++ == '*';
277   while( *fp >= '0' && *fp <= '9' ) ++fp;
278   if( argno && *fp++ != '$' ) return 1;
279   return fp - bp;
280 }
281
282 static int is_prec(uint8_t *fp)
283 {
284   if( (fmt_flds & fmt_prc) != 0 ) return 0;
285   if( *fp != '.' ) return 0;
286   fmt_flds |= fmt_prc;
287   if( *fp != '*' && *fp < '0' && *fp > '9' ) return 0;
288   uint8_t *bp = fp;
289   bool argno = *fp++ == '*';
290   while( *fp >= '0' && *fp <= '9' ) ++fp;
291   if( argno && *fp++ != '$' ) return 1;
292   return fp - bp;
293 }
294
295 static int is_len(uint8_t *fp)
296 {
297   if( (fmt_flds & fmt_len) != 0 ) return 0;
298   if( !strchr("hlLqjzt", *fp) ) return 0;
299   fmt_flds |= fmt_len;
300   if( fp[0] == 'h' && fp[1] == 'h' ) return 2;
301   if( fp[0] == 'l' && fp[1] == 'l' ) return 2;
302   return 1;
303 }
304
305 static int is_conv(uint8_t *fp)
306 {
307   if( !strchr("diouxXeEfFgGaAscCSpnm", *fp) ) return 0;
308   return 1;
309 }
310
311
312 static inline int fmt_spec(uint8_t *fp)
313 {
314   if( !*fp ) return 0;
315   if( is_per(*fp) ) return 1;
316   fmt_flds = 0;
317   uint8_t *bp = fp;
318   while( !is_conv(fp) ) {
319     int len;
320     if( !(len=is_flags(fp)) && !(len=is_width(fp)) &&
321         !(len=is_prec(fp))  && !(len=is_len(fp)) ) return 0;
322     fp += len;
323   }
324   return fp - bp + 1;
325 }
326
327 static bool chkfmt(int no, uint8_t *ap, uint8_t *bp, uint8_t *cp)
328 {
329   bool ret = true;
330   uint8_t *asp = ap, *bsp = bp;
331   int n = 0;
332   uint8_t *bep = bp;
333   unsigned bpr = 0, bch = wnext(bp);
334   for( ; bch!=0; bch=wnext(bp) ) {
335     if( goog && is_opnr(bch) ) ++n;
336     bep = bp;  bpr = bch;
337   }
338
339   // trim solitary opnrs on ends b
340   if( goog && ( n != 1 || !is_opnr(bpr) ) ) bep = bp;
341   bp = bsp;  bch = wnext(bp);
342   if( goog && ( n == 1 && is_opnr(bch) ) ) bch = wnext(bp);
343
344   unsigned apr = 0, ach = wnext(ap);
345   apr = bpr = 0;
346   while( ach != 0 && bch != 0 ) {
347     // move to % on a
348     while( ach != 0 && !is_per(ach) ) {
349       apr = ach;  ach = wnext(ap);
350     }
351     // move to % on b
352     while( bch != 0 && !is_per(bch) ) {
353       if( goog ) { // google xlat recoginizers
354         if( is_nlin(bch, bp) ) {
355           bch = '\n';  bp += 3;
356         }
357         else if( is_ccln(bch, bp) ) {
358           wnext(cp, bch=':');  bp += 3;
359         }
360         else if( is_quot(bch, bp) ) {
361           bch = '\"';  bp += 3;
362         }
363         else if( is_colon(bch) ) {
364           bch = ':';
365         }
366       }
367       wnext(cp,bch);  bpr = bch;
368       bch = bp >= bep ? 0 : wnext(bp);
369     }
370     if( !ach || !bch ) break;
371     if( !*ap && !*bp ) break;
372     // if % on a and % on b and is fmt_spec
373     if( is_per(ach) && is_per(bch) && (n=fmt_spec(ap)) > 0 ) {
374       if( apr && apr != bpr ) wnext(cp,apr);
375       wnext(cp,ach);  apr = ach;  ach = wnext(ap);
376       // copy format data from a
377       while( ach != 0 && --n >= 0 ) {
378         wnext(cp, ach);  apr = ach;  ach = wnext(ap);
379       }
380       bpr = bch;  bch = bp >= bep ? 0 : wnext(bp);
381       if( apr == '%' && bch == '%' ) {
382         // copy %% format data from b
383         bpr = bch;
384         bch = bp >= bep ? 0 : wnext(bp);
385       }
386       else {
387         // skip format data from b (ignore case)
388         while( bch != 0 && ((bpr ^ apr) & ~('a'-'A')) ) {
389           bpr = bch;
390           bch = bp >= bep ? 0 : wnext(bp);
391         }
392         // hit eol and didn't find end of spec on b
393         if( !bch && ((bpr ^ apr) & ~('a'-'A')) != 0 ) {
394           fprintf(stderr, "line %d: missed spec: %s\n", no, (char*)asp);
395           ret = false;
396         }
397       }
398     }
399     else {
400       fprintf(stderr, "line %d: missed fmt: %s\n", no, (char*)asp);
401       wnext(cp, bch);
402       apr = ach;  ach = wnext(ap);
403       bpr = bch;  bch = bp >= bep ? 0 : wnext(bp);
404       ret = false;
405     }
406   }
407   while( bch != 0 ) {
408     wnext(cp, bch);  bpr = bch;
409     bch = bp >= bep ? 0 : wnext(bp);
410   }
411   if( apr == '\n' && bpr != '\n' ) wnext(cp,'\n');
412   wnext(cp, 0);
413   return ret;
414 }
415
416 void load(FILE *afp, FILE *bfp)
417 {
418   int no = 0;
419   int ins = 0, rep = 0;
420   uint8_t inp[MX_STR];
421
422   while( bgets(inp, sizeof(inp), afp) ) {
423     ++no;
424     uint8_t *bp = inp;
425     string key = xlat(bp);
426     if( bfp ) {
427       if( !bgets(inp, sizeof(inp), bfp) ) {
428         fprintf(stderr,"xlat file ended early\n");
429         exit(1);
430       }
431       bp = inp;
432     }
433     else if( !is_sep(*bp++) ) {
434       fprintf(stderr, "missing sep at line %d: %s", no, inp);
435       exit(1);
436     }
437     string txt = xlat(bp);
438     const char *val = (const char *)bp;
439     uint8_t str[MX_STR];
440     bool ok = chkfmt(no, (uint8_t*)key.c_str(), (uint8_t*)txt.c_str(), str);
441       val = (const char*)str;
442     Trans::iterator it = trans.lower_bound(key);
443     if( it == trans.end() || it->first.compare(key) ) {
444       trans.insert(it, Trans::value_type(key, tstring(val, ok)));
445       ++ins;
446     }
447     else {
448       it->second.assign(val);
449       it->second.ok = ok;
450       ++rep;
451     }
452   }
453   fprintf(stderr,"***     ins %d, rep %d\n", ins, rep);
454 }
455
456 void scan_po(FILE *ifp, FILE *ofp)
457 {
458   int no = 0;
459   uint8_t ibfr[MX_STR], tbfr[MX_STR];
460
461   while( bgets(ibfr, sizeof(ibfr), ifp) ) {
462     if( !prefix_is(ibfr, "msgid ") ) {
463       if( nocmts && ibfr[0] == '#' ) continue;
464       no += bputs(ibfr, ofp);
465       continue;
466     }
467     uint8_t str[MX_STR]; xlat2(&ibfr[6], str);
468     string key((const char*)str);
469     if( !bgets(tbfr, sizeof(tbfr), ifp) ) {
470       fprintf(stderr, "file truncated line %d: %s", no, ibfr);
471       exit(1);
472     }
473     no += bputs(ibfr, ofp);
474    
475     while( tbfr[0] == '"' ) {
476       no += bputs(tbfr, ofp);
477       xlat2(&tbfr[0], str);  key.append((const char*)str);
478       if( !bgets(tbfr, sizeof(tbfr), ifp) ) {
479         fprintf(stderr, "file truncated line %d: %s", no, ibfr);
480         exit(1);
481       }
482     }
483     if( !prefix_is(tbfr, "msgstr ") ) {
484       fprintf(stderr, "file truncated line %d: %s", no, ibfr);
485       exit(1);
486     }
487
488     if( !ofp ) {
489       if( !key.size() ) continue;
490       xlat3(key.c_str(), str);
491       printf("%s\n", (char *)str);
492       continue;
493     }
494
495     Trans::iterator it = trans.lower_bound(key);
496     if( it == trans.end() || it->first.compare(key) ) {
497       fprintf(stderr, "no trans line %d: %s\n", no, ibfr);
498       xlat3(key.c_str(), &tbfr[7]);
499       //no += bputs(tbfr, ofp);
500       no += bputs((uint8_t*)"msgstr \"\"", ofp);
501     }
502     else if( 0 && !it->second.ok ) {
503       fprintf(stderr, "bad fmt line %d: %s\n", no, ibfr);
504       xlat3(it->first.c_str(), &tbfr[7]);
505       no += bputs(tbfr, ofp);
506       xlat3(it->second.c_str(), str);
507       bput((uint8_t*)"#msgstr ", ofp);
508       no += bputs(str, ofp);
509     }
510     else {
511       xlat3(it->second.c_str(), &tbfr[7]);
512       no += bputs(tbfr, ofp);
513     }
514   }
515   if( ifp != stdin ) fclose(ifp);
516 }
517
518 void list_po(FILE *ifp, FILE *ofp, int xeqx = 0, int nnul = 0)
519 {
520   int no = 0;
521   int dup = 0, nul = 0;
522   uint8_t ibfr[MX_STR], tbfr[MX_STR];
523
524   while( bgets(ibfr, sizeof(ibfr), ifp) ) {
525     ++no;
526     if( !prefix_is(ibfr, "msgid ") ) continue;
527     uint8_t str[MX_STR]; xlat2(&ibfr[6], str);
528     string key((const char*)str);
529     if( !bgets(tbfr, sizeof(tbfr), ifp) ) {
530       fprintf(stderr, "file truncated line %d: %s", no, ibfr);
531       exit(1);
532     }
533     ++no;
534    
535     while( tbfr[0] == '"' ) {
536       xlat2(&tbfr[0], str);  key.append((const char*)str);
537       if( !bgets(tbfr, sizeof(tbfr), ifp) ) {
538         fprintf(stderr, "file truncated line %d: %s", no, ibfr);
539         exit(1);
540       }
541       ++no;
542     }
543     if( !prefix_is(tbfr, "msgstr ") ) {
544       fprintf(stderr, "file truncated line %d: %s", no, ibfr);
545       exit(1);
546     }
547
548     xlat2(&tbfr[7], str);
549     string txt((const char*)str);
550    
551     while( bgets(tbfr, sizeof(tbfr), ifp) && tbfr[0] == '"' ) {
552       xlat2(&tbfr[0], str);  txt.append((const char*)str);
553       ++no;
554     }
555     if( nnul && !txt.size() ) {
556       ++nul;
557       if( nnul > 0 ) continue;
558     }
559     else if( xeqx && !key.compare(txt) ) {
560        ++dup;
561        if( xeqx > 0 ) continue;
562     }
563     else if( nnul < 0 || xeqx < 0 ) continue;
564     xlat4(key.c_str(), str);
565     fprintf(ofp, "%s,", (char *)str);
566     xlat4(txt.c_str(), str);
567     fprintf(ofp, "%s\n", (char *)str);
568   }
569   fprintf(stderr, "*** dup %d, nul %d\n", dup, nul);
570 }
571
572 static void usage(const char *av0)
573 {
574   printf("list csv    %s csv < data.csv > data.po\n",av0);
575   printf("list po     %s po < data.po > data.csv\n",av0);
576   printf("list po     %s dups < data.po\n",av0);
577   printf("list po     %s nodups < data.po\n",av0);
578   printf("get strings %s key  < xgettext.po\n",av0);
579   printf("gen xlation %s xlat   xgettext.po xlat.csv\n",av0);
580   printf("gen xlation %s xlat - text,xlat ... < xgettext.po\n",av0);
581   exit(1);
582 }
583
584 int main(int ac, char **av)
585 {
586   if( ac == 1 ) usage(av[0]);
587
588   // if to rework google xlat output
589   if( getenv("GOOG") ) goog = true;
590   if( getenv("NOCMTS") ) nocmts = true;
591
592   if( !strcmp(av[1],"csv") ) {  // test csv
593     load(stdin, 0);
594     for( Trans::iterator it = trans.begin(); it!=trans.end(); ++it ) {
595       uint8_t str1[MX_STR];  xlat3(it->first.c_str(), str1);
596       printf("msgid %s\n", (char *)str1);
597       uint8_t str2[MX_STR];  xlat3(it->second.c_str(), str2);
598       printf("msgstr %s\n\n", (char *)str2);
599     }
600     return 0;
601   }
602
603   if( !strcmp(av[1],"dups") ) {  // test po
604     list_po(stdin, stdout, -1, -1);
605     return 0;
606   }
607
608   if( !strcmp(av[1],"nodups") ) {  // test po
609     list_po(stdin, stdout, 1, 1);
610     return 0;
611   }
612
613   if( !strcmp(av[1],"po") ) {  // test po
614     list_po(stdin, stdout);
615     return 0;
616   }
617
618   if( !strcmp(av[1],"key") ) {
619     scan_po(stdin, 0);
620     return 0;
621   }
622
623   if( ac < 3 ) usage(av[0]);
624
625   FILE *ifp = !strcmp(av[2],"-") ? stdin : fopen(av[2], "r");
626   if( !ifp ) { perror(av[2]);  exit(1); }
627  
628 //  if( ac < 4 ) usage(av[0]);
629
630   if( strcmp(av[1],"xlat") ) {
631     fprintf(stderr,"unkn cmd: %s\n", av[1]);
632     return 1;
633   }
634
635   brkput = 1;
636   for( int i=3; i<ac; ++i ) {  // create trans mapping
637     fprintf(stderr,"*** load %s\n", av[i]);
638     char fn[MX_STR*2];
639     strncpy(fn, av[i], sizeof(fn));
640     int k = 0;
641     FILE *bfp = 0;
642     // look for <filename> or <filename>,<filename>
643     while( k<(int)sizeof(fn) && fn[k]!=0 && fn[k]!=',' ) ++k;
644     if( k<(int)sizeof(fn) && fn[k]==',' ) {
645       fn[k++] = 0;
646       bfp = fopen(&fn[k], "r");
647       if( !bfp ) { perror(&fn[k]);  exit(1); }
648     }
649     FILE *afp = fopen(&fn[0], "r");
650     if( !afp ) { perror(&fn[0]);  exit(1); }
651     load(afp, bfp);
652     fclose(afp);
653     if( bfp ) fclose(bfp);
654   }
655
656   scan_po(ifp, stdout);
657   return 0;
658 }
659