WDL/swell/mac_resgen.php

   1 #!/usr/bin/php
   2 <?php
   3
   4 if (!function_exists('file_put_contents')) {
   5     function file_put_contents($filename, $data, $lockflag) {
   6         $f = @fopen($filename, 'w');
   7         if (!$f) {
   8             return false;
   9         } else {
  10             $bytes = fwrite($f, $data);
  11             fclose($f);
  12             return $bytes;
  13         }
  14     }
  15 }
  16
  17 function convertquotes($in)
  18 {
  19   $ret = "";
  20   $qs= 0;
  21   for ($x=0;$x<strlen($in); $x++)
  22   {
  23     if ($in[$x] == '"')
  24     {
  25       if (!$qs)
  26       {
  27         $qs=1;
  28       }
  29       else
  30       {
  31         $qs=0;
  32         if ($x < strlen($in) && $in[$x+1] == '"')
  33         {
  34           $ret .= "\\";
  35           continue;
  36         }
  37       }
  38     }
  39     $ret .= $in[$x];
  40   }
  41   return $ret;
  42 }
  43
  44 function utf_fgets($fp, &$state)
  45 {
  46   if ($state==0)
  47   {
  48     $state = -1;
  49     $s = fread($fp,2);
  50     if (ord($s[0])==0xff && ord($s[1]) == 0xfe) $state=1; // UTF-16LE
  51     else if (ord($s[0])==0xfe && ord($s[1]) == 0xff) $state=2; // UTF-16BE
  52     else if (ord($s[0])==0xef && ord($s[1]) == 0xbb)
  53     {
  54       $s2 = fread($fp,1);
  55       if (ord($s2[0]) != 0xbf) return $s . $s2 . fgets($fp,4096);
  56     }
  57   }
  58   if ($state < 0) return fgets($fp,4096);
  59
  60   $ret = "";
  61   while ($s = fread($fp,2))
  62   {
  63     if ($state == 1) $s = ord($s[0]) | (ord($s[1])<<8);
  64     else $s = ord($s[1]) | (ord($s[0])<<8);
  65     if ($s < 128)
  66     {
  67       $ret .= chr($s);
  68       if ($s == ord("\n")) break;
  69     }
  70     else if ($s <= 0x7ff) $ret .= chr(0xc0 | (($s>>6)&0x1f)) . chr(0x80 | ($s&0x3f));
  71     else $ret .= chr(0xe0 | (($s>>12)&0xf)) . chr(0x80 | (($s)>>6)&0x3f) . chr(0x80 | ($s&0x3f));
  72   }
  73
  74   return $ret;
  75 }
  76
  77 function swell_rc2cpp_dialog($fp) // returns array with ["data"] and optionally ["error"]
  78 {
  79   fseek($fp,0,SEEK_SET);
  80   $utf_state=0;
  81   $errstr="";
  82   $retstr = "";
  83
  84   $retstr .= '#ifndef SWELL_DLG_SCALE_AUTOGEN' . "\n";
  85   $retstr .= '#ifdef __APPLE__' . "\n";
  86   $retstr .= '  #define SWELL_DLG_SCALE_AUTOGEN 1.7' . "\n";
  87   $retstr .= '#else' . "\n";
  88   $retstr .= '  #define SWELL_DLG_SCALE_AUTOGEN 1.8' . "\n";
  89   $retstr .= '#endif' . "\n";
  90   $retstr .= '#endif' . "\n";
  91   $retstr .= '#ifndef SWELL_DLG_FLAGS_AUTOGEN' . "\n";
  92   $retstr .= '#define SWELL_DLG_FLAGS_AUTOGEN SWELL_DLG_WS_FLIPPED|SWELL_DLG_WS_NOAUTOSIZE' . "\n";
  93   $retstr .= "#endif\n";
  94   $retstr .= "\n";
  95
  96   $dlg_state=0; // 1 = before BEGIN, 2=after BEGIN
  97
  98   $dlg_name="";
  99   $dlg_size_w=0;
 100   $dlg_size_h=0;
 101   $dlg_title = "";
 102   $dlg_styles = "SWELL_DLG_FLAGS_AUTOGEN";
 103   $dlg_contents="";
 104
 105   $next_line="";
 106   for (;;)
 107   {
 108     if ($next_line != "") { $x=$next_line; $next_line =""; }
 109     else if (!($x=utf_fgets($fp,$utf_state))) break;
 110     $x = convertquotes($x);
 111
 112     $y=trim($x);
 113     if ($dlg_state>=2)
 114     {
 115       if (preg_match("/^LTEXT(.*), *WS_EX_RIGHT$/",$y,$match)) $y = "RTEXT" . $match[1];
 116       $dlg_contents .= $y . "\n";
 117       if ($y == "END")
 118       {
 119         if ($dlg_state==2) $dlg_styles.="|SWELL_DLG_WS_OPAQUE";
 120         $retstr .= "#ifndef SET_$dlg_name" . "_SCALE\n";
 121         $retstr .= "#define SET_$dlg_name" . "_SCALE SWELL_DLG_SCALE_AUTOGEN\n";
 122         $retstr .= "#endif\n";
 123         $retstr .= "#ifndef SET_$dlg_name" . "_STYLE\n";
 124         $retstr .= "#define SET_$dlg_name" . "_STYLE $dlg_styles\n";
 125         $retstr .= "#endif\n";
 126         $retstr .= "SWELL_DEFINE_DIALOG_RESOURCE_BEGIN($dlg_name,SET_$dlg_name" . "_STYLE,\"$dlg_title\",$dlg_size_w,$dlg_size_h,SET_$dlg_name" . "_SCALE)\n";
 127         $dlg_contents=str_replace("NOT WS_VISIBLE","SWELL_NOT_WS_VISIBLE",$dlg_contents);
 128         $dlg_contents=str_replace("NOT\nWS_VISIBLE","SWELL_NOT_WS_VISIBLE",$dlg_contents);
 129         $dlg_contents=str_replace("NOT \nWS_VISIBLE","SWELL_NOT_WS_VISIBLE",$dlg_contents);
 130         $retstr .= $dlg_contents;
 131         $retstr .= "SWELL_DEFINE_DIALOG_RESOURCE_END($dlg_name)\n\n\n";
 132         $dlg_state=0;
 133       }
 134       else if (strlen($y)>1) $dlg_state=3;
 135     }
 136     else
 137     {
 138       $parms = explode(" ", $y);
 139       if (count($parms) > 0)
 140       {
 141         if ($dlg_state == 0)
 142         {
 143           // if (substr($parms[0],0,8) == "IDD_PREF")
 144           if (count($parms)>4 && ($parms[1] == 'DIALOGEX'||$parms[1] == 'DIALOG'))
 145           {
 146             $dlg_name=$parms[0];
 147             $rdidx = 2;
 148             if ($parms[$rdidx] == 'DISCARDABLE') $rdidx++;
 149             while ($parms[$rdidx] == "" && $rdidx < count($parms)) $rdidx++;
 150             $rdidx  += 2;
 151             $dlg_size_w = str_replace(",","",$parms[$rdidx++]);
 152             $dlg_size_h = str_replace(",","",$parms[$rdidx++]);
 153             if (count($parms) >= $rdidx && $dlg_size_w != "" && $dlg_size_h != "")
 154             {
 155               $dlg_title="";
 156               $dlg_styles="SWELL_DLG_FLAGS_AUTOGEN";
 157               $dlg_contents="";
 158               $dlg_state=1;
 159             }
 160             else  $errstr .= "WARNING: corrupted $dlg_name resource\n";
 161           }
 162         }
 163         else if ($dlg_state == 1)
 164         {
 165           if ($parms[0] == "BEGIN")
 166           {
 167             $dlg_state=2;
 168             $dlg_contents = $y ."\n";
 169           }
 170           else
 171           {
 172             if ($parms[0] == "CAPTION")
 173             {
 174              $dlg_title = str_replace("\"","",trim(substr($y,8)));
 175             }
 176             else if ($parms[0] == "STYLE" || $parms[0] == "EXSTYLE")
 177             {
 178               $rep=0;
 179               for (;;)
 180               {
 181                 $next_line = utf_fgets($fp,$utf_state);
 182                 if (!($next_line )) { $next_line=""; break; }
 183                 if (substr($next_line,0,1)==" " || substr($next_line,0,1)=="\t")
 184                 {
 185                   $y .= " " . trim(convertquotes($next_line));
 186                   $rep++;
 187                   $next_line="";
 188                 }
 189                 else break;
 190               }
 191               if ($rep) $parms = explode(" ", $y);
 192               $opmode=0;
 193               $rdidx=1;
 194               while ($rdidx < count($parms))
 195               {
 196                 if ($parms[$rdidx] == '|') { $opmode=0; }
 197                 else if ($parms[$rdidx] == 'NOT') { $opmode=1; }
 198                 else if ($parms[$rdidx] == 'WS_CHILD')
 199                 {
 200                   if (!$opmode) $dlg_styles .= "|SWELL_DLG_WS_CHILD";
 201                 }
 202                 else if ($parms[$rdidx] == 'WS_THICKFRAME')
 203                 {
 204                   if (!$opmode) $dlg_styles .= "|SWELL_DLG_WS_RESIZABLE";
 205                 }
 206                 else if ($parms[$rdidx] == 'WS_EX_ACCEPTFILES')
 207                 {
 208                   if (!$opmode) $dlg_styles .= "|SWELL_DLG_WS_DROPTARGET";
 209                 }
 210                 else $opmode=0;
 211                 $rdidx++;
 212               }
 213             }
 214           }
 215         }
 216       }
 217     }
 218   }
 219   if ($dlg_state != 0)
 220      $errstr .= "WARNING: there may have been a truncated  dialog resource ($dlg_name)\n";
 221
 222   $retstr .= "\n//EOF\n\n";
 223   $rv = array();
 224   $rv["data"] = $retstr;
 225   $rv["error"] = $errstr;
 226   return $rv;
 227 }
 228
 229 function swell_rc2cpp_menu($fp) // returns array with ["data"] and optionally ["error"]
 230 {
 231   $retstr="";
 232   $errstr="";
 233
 234   fseek($fp,0,SEEK_SET);
 235   $utf_state=0;
 236
 237   $menu_symbol="";
 238   $menu_depth=0;
 239   while (($x=utf_fgets($fp,$utf_state)))
 240   {
 241     $x = convertquotes($x);
 242
 243     $y=trim($x);
 244     if ($menu_symbol == "")
 245     {
 246       $parms = explode(" ", $y);
 247       $tok = "MENU";
 248       if (count($parms) >= 2 && $parms[1] == $tok)
 249       {
 250         $menu_symbol = $parms[0];
 251         $menu_depth=0;
 252         $retstr .= "SWELL_DEFINE_MENU_RESOURCE_BEGIN($menu_symbol)\n";
 253       }
 254     }
 255     else
 256     {
 257       if ($y == "END")
 258       {
 259         $menu_depth-=1;
 260         if ($menu_depth == 0)
 261         {
 262           $retstr .= "SWELL_DEFINE_MENU_RESOURCE_END($menu_symbol)\n\n\n";
 263         }
 264         if ($menu_depth < 1) $menu_symbol="";
 265       }
 266       if ($menu_depth>0)
 267       {
 268         if (substr($y,-strlen(", HELP")) == ", HELP")
 269         {
 270           $x=substr(rtrim($x),0,-strlen(", HELP")) . "\n";
 271         }
 272         $retstr .= $x;
 273       }
 274       if ($y == "BEGIN") $menu_depth+=1;
 275     }
 276   }
 277
 278   $retstr .= "\n//EOF\n\n";
 279   $rv = array();
 280   $rv["data"] = $retstr;
 281   $rv["error"] = $errstr;
 282
 283   return $rv;
 284 }
 285
 286 if (count($argv)<2) die("usage: mac_resgen.php [--force] file.rc ...\n");
 287
 288 $x=1;
 289 $forcemode = 0;
 290 if ($argv[$x] == "--force") { $forcemode=1; $x++; }
 291
 292 $lp = dirname(__FILE__);
 293 $proc=0;
 294 $skipped=0;
 295 $err=0;
 296 $quiet=0;
 297 for (; $x < count($argv); $x ++)
 298 {
 299    $srcfn = $argv[$x];
 300    if ($srcfn == "--quiet")
 301    {
 302      $quiet = 1;
 303      continue;
 304    }
 305    if (!stristr($srcfn,".rc") || !($fp = @fopen($srcfn,"r")))
 306    {
 307       $err++;
 308       echo "$srcfn: not valid or not found!\n";
 309       continue;
 310    }
 311    $ofnmenu = $srcfn . "_mac_menu";
 312    $ofndlg = $srcfn . "_mac_dlg";
 313
 314    $res = swell_rc2cpp_dialog($fp);
 315    $res2 = swell_rc2cpp_menu($fp);
 316    fclose($fp);
 317    if ($res["error"] != "" || $res2["error"] != "")
 318    {
 319      $err++;
 320      echo "$srcfn: error";
 321      if ($res["error"] != "") echo " dialog: " . $res["error"];
 322      if ($res2["error"] != "") echo " menu: " . $res2["error"];
 323      echo "\n";
 324      continue;
 325    }
 326    $f="";
 327    if ($forcemode || !file_exists($ofndlg) || file_get_contents($ofndlg) != $res["data"])
 328    {
 329      $f .= "dlg updated";
 330      if (!file_put_contents($ofndlg,$res["data"],LOCK_EX)) { echo "error writing $ofndlg\n"; $err++; }
 331    }
 332    if ($forcemode || !file_exists($ofnmenu) || file_get_contents($ofnmenu) != $res2["data"])
 333    {
 334      if ($f != "") $f .= ", ";
 335      $f .= "menu updated";
 336      if (!file_put_contents($ofnmenu,$res2["data"],LOCK_EX)) { echo "error writing $ofnmenu\n"; $err++; }
 337    }
 338
 339    if ($f != "")
 340    {
 341      $proc++;
 342    }
 343    else
 344    {
 345      $skipped++;
 346      $f = "skipped";
 347    }
 348
 349    if (!$quiet) echo "$srcfn: $f\n";
 350 }
 351 if (!$quiet || $proc || $err) echo "processed $proc, skipped $skipped, error $err\n";
 352
 353 ?>