net.sourceforge.phpeclipse.help/docbook-src/guide/parse.php

   1 <?php\r
   2 \r
   3   if (function_exists ("DebugBreak")) {\r
   4     global $DBGSESSID;\r
   5     $DBGSESSID = "1@clienthost:7869";\r
   6     DebugBreak ();\r
   7   }\r
   8 \r
   9   var_dump ($argv);\r
  10 \r
  11   echo getcwd(). "\n";\r
  12 \r
  13   $recode_it    = false;\r
  14 \r
  15   $lang         = $argv[1];                   // the language\r
  16   $doc          = $argv[2];                   // the document name (xd-001 etc.)\r
  17   $encoding_in  = $argv[3];\r
  18   $encoding_out = $argv[4];\r
  19 \r
  20   echo "input encoding = $encoding_in \n";\r
  21 \r
  22   if ($encoding_in != $encoding_out) {\r
  23     $recode_it = true;\r
  24   }\r
  25 \r
  26   $fencoding = 'UTF-8';                       // This is the standard encoding of our XML source files\r
  27 \r
  28   $dirlist   = glob ("*.html");               // get the list of html files within the doc main directory\r
  29 \r
  30   $idlist    = array ();                      // initiate the id list array\r
  31   $fidlist   = array ();                      // make a id list for every file\r
  32   $bilist    = array ();                      // make a book info list\r
  33 \r
  34   BuildIDList ($lang, $doc, $idlist, $bilist);// build the ID List for the use of comments in xdocman\r
  35 \r
  36   foreach ($dirlist as $key => $file) {       // for every html file\r
  37     ParseXHTML ($file, $lang, $doc, $fidlist, $idlist);\r
  38   }\r
  39 \r
  40   WriteBookInfoList ($fidlist, $bilist);\r
  41 /*\r
  42   var_dump ($fidlist);\r
  43 */\r
  44   copy ("style.css", "tmp/style.css");        // copy the style file to the temporary directory\r
  45 \r
  46 /***** ParseXHTML ()                         **********************************/\r
  47 /* Parse the XHTML files\r
  48  *\r
  49  */\r
  50 \r
  51   function ParseXHTML (&$file, $lang, $doc, &$fidlist, &$idlist) {\r
  52     global $fencoding;\r
  53     $data     = file_get_contents ($file);                        // get the xhtml-file content\r
  54     $parser   = xml_parser_create ($fencoding);\r
  55     $imglist  = array ();                                         // initiate the image list array\r
  56 \r
  57     xml_parser_set_option ($parser, XML_OPTION_CASE_FOLDING, 0);\r
  58     // xml_parser_set_option ($parser, XML_OPTION_SKIP_WHITE, 1);\r
  59 \r
  60     xml_parse_into_struct ($parser, $data, $values, $tags);       // parse the xhtml file\r
  61     xml_parser_free ($parser);\r
  62 \r
  63     MakePictureList ($values, $tags, $imglist, $lang, $doc);      // build the list with the used images\r
  64     CopyImages ($imglist);                                        // copy the used images into the temp folder\r
  65     ChangeLinks ($values, $tags, $lang, $doc);                    // changed the links, so we can use the files with xdocman\r
  66     MakeFileIDList ($file, $values, $tags, $fidlist, $idlist);\r
  67 \r
  68 /*\r
  69     echo "array: tags\n";\r
  70     var_dump ($tags);\r
  71     echo "array: values\n";\r
  72     var_dump ($values);\r
  73     echo "array: imglist\n";\r
  74     var_dump ($imglist);\r
  75 \r
  76     echo "array:".$file." generate output\n";\r
  77 */\r
  78     OutputXHTML ($file, $values, $tags, 0);\r
  79   }\r
  80 \r
  81 /***** MakeFileIDList (...)                  **********************************/\r
  82 /*\r
  83  */\r
  84   function MakeFileIDList ($file, &$values, &$tags, &$fidlist, &$idlist) {\r
  85     echo "file = $file\n";\r
  86 \r
  87     $fidlist[$file] = array ();\r
  88 \r
  89     foreach ($tags['a'] as $key => $val) {\r
  90       if (isset ($values[$val]['attributes'])) {\r
  91         foreach ($values[$val]['attributes'] as $tkey => $tval) {\r
  92           if ($tkey == 'id') {\r
  93             // $idList[$tval] = $tval;\r
  94 \r
  95             // echo "id =  $tval \n";\r
  96 \r
  97             if (isset ($idlist[$tval])) {\r
  98               echo "setzen $file: $tval = $idlist[$tval]  \n";\r
  99               $fidlist[$file][$tval]['title']   = $idlist[$tval]['title'];\r
 100               $fidlist[$file][$tval]['element'] = $idlist[$tval]['element'];\r
 101             }\r
 102           }\r
 103         }\r
 104       }\r
 105     }\r
 106   }\r
 107 \r
 108 /***** ChangeLinks (...)                     **********************************/\r
 109 /*\r
 110  * changes href in <a href="..."> if href is sort of chxxx.html or index.html or ixxx.html\r
 111  * to ?lang=en&doc=xd-999&file=chxxx.html\r
 112  */\r
 113   function ChangeLinks (&$values, &$tags, $lang, $doc) {\r
 114     foreach ($tags['a'] as $key => $val) {\r
 115       if (($values[$val]['type'] == 'open') || ($values[$val]['type'] == 'complete')) {\r
 116         if (isset ($values[$val]['attributes']['href'])) {\r
 117           $olddest = $values[$val]['attributes']['href'];\r
 118 \r
 119           echo "string = " . $olddest;\r
 120           preg_match ("/([ch|index|ix|pr|co|ar]).*\.html.*/i", $olddest, $linkval);\r
 121           // preg_match ("/#.*/i", $olddest, $idval);\r
 122 \r
 123           $newdest = "";\r
 124           if (isset ($linkval[0])) {\r
 125             // $newdest .= "manual.php?lang=$lang&amp;doc=$doc&amp;file=".$linkval[0];\r
 126             // echo "                 link = " . $linkval[0];\r
 127 \r
 128             preg_match ("/#.*/i", $olddest, $lidval);\r
 129             if (isset ($lidval[0])) {\r
 130               echo " id = ". $lidval[0];\r
 131               $newdest .= "manual.php?lang=$lang&amp;doc=$doc&amp;id=".str_replace ('#', "", $lidval[0])."&amp;file=".$linkval[0];\r
 132             }\r
 133             else {\r
 134               $newdest .= "manual.php?lang=$lang&amp;doc=$doc&amp;file=".$linkval[0];\r
 135             }\r
 136           }\r
 137 /*\r
 138           else if (isset ($idval[0])) {\r
 139             echo " id = ".$idval[0];\r
 140 \r
 141             $newdest = $olddest;\r
 142           }\r
 143 */\r
 144           else {\r
 145             $newdest = $olddest;\r
 146           }\r
 147 \r
 148           echo "\n";\r
 149           $values[$val]['attributes']['href'] = $newdest;\r
 150         }\r
 151       }\r
 152     }\r
 153   }\r
 154 \r
 155 /***** CopyImages (...)                      **********************************/\r
 156 /*\r
 157  */\r
 158   function CopyImages (&$imglist) {\r
 159     CreateDirectory ('tmp/img');\r
 160     CreateDirectory ('tmp/img/callouts');\r
 161     CreateDirectory ('tmp/img/nav');\r
 162     CreateDirectory ('tmp/img/admon');\r
 163 \r
 164     foreach ($imglist as $key => $img) {\r
 165       $path    = explode ('/', $img);\r
 166 \r
 167       if (($path[1] != 'callouts') && ($path[1] != 'nav') && ($path[1] != 'admon')) {\r
 168         $dest = "tmp/".$path[0].'/'.$path[3];\r
 169       }\r
 170       else {\r
 171         $dest = "tmp/".$img;\r
 172       }\r
 173 \r
 174       copy ($img, $dest);\r
 175     }\r
 176   }\r
 177 \r
 178 /***** MakePictureList (...)                 **********************************/\r
 179 /*\r
 180  */\r
 181   function MakePictureList (&$values, &$tags, &$imglist, &$lang, &$doc) {\r
 182     //** scan every <a> tag for the onmouseover and onmouseout attribute\r
 183     foreach ($tags['a'] as $key => $val) {\r
 184       if (isset ($values[$val]['attributes'])) {\r
 185         foreach ($values[$val]['attributes'] as $tkey => $tval) {\r
 186           if (($tkey == 'onmouseover') || ($tkey == 'onmouseout')) {\r
 187             //** strip everthing before the '='\r
 188             $ta  = explode ('=', $tval);\r
 189             $img = str_replace ("'", "", $ta[1]);\r
 190 \r
 191             if (!in_array ($img, $imglist)) {\r
 192               array_push ($imglist, $img);\r
 193             }\r
 194 \r
 195             $values[$val]['attributes'][$tkey] = $ta[0]."='docs/".$lang."/".$doc."/".$img."'";\r
 196           }\r
 197         }\r
 198       }\r
 199     }\r
 200 \r
 201     //** scan every <img> tag for the src attribute\r
 202     foreach ($tags['img'] as $key => $val) {\r
 203       if (isset ($values[$val]['attributes'])) {\r
 204         foreach ($values[$val]['attributes'] as $tkey => $tval) {\r
 205           if ($tkey == 'src') {\r
 206             if (!in_array ($tval, $imglist)) {\r
 207               array_push ($imglist, $tval);\r
 208             }\r
 209 \r
 210             //** now change the image path from img/en/xxxx/xxx.png to img/xxx.png\r
 211             $path    = explode ('/', $tval);\r
 212 \r
 213             if (($path[1] != 'callouts') && ($path[1] != 'nav') && ($path[1] != 'admon')) {\r
 214               $newpath = $path[0].'/'.$path[3];\r
 215 \r
 216               $img = "docs/".$lang."/".$doc."/".$newpath;\r
 217 \r
 218               $values[$val]['attributes'][$tkey] = $img;\r
 219             }\r
 220             else {\r
 221               $values[$val]['attributes'][$tkey] = "docs/".$lang."/".$doc."/".$tval;\r
 222             }\r
 223           }\r
 224         }\r
 225       }\r
 226     }\r
 227   }\r
 228 \r
 229 /***** OutputXHTML (...)                     **********************************/\r
 230 /*\r
 231  */\r
 232   function OutputXHTML (&$file, &$values, &$tags, $all) {\r
 233     global $fencoding;\r
 234     global $recode_it;\r
 235     global $encoding_in;\r
 236     global $encoding_out;\r
 237     $fp      = fopen ("tmp/".$file, "w");\r
 238     $i       = count ($values);\r
 239 \r
 240     //** get start and end\r
 241 \r
 242     if ($all) {\r
 243       $start = 0;\r
 244       $end   = $i;\r
 245     }\r
 246     else {\r
 247       $start = $tags['body'][0] + 1;\r
 248       $end   = $tags['body'][1] - 1;\r
 249     }\r
 250 \r
 251     if ($all) {\r
 252       $text    = '<?xml version="1.0" encoding="'.$fencoding.'" standalone="no"?>'."\n";\r
 253       $text   .= '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'."\n";\r
 254       fwrite ($fp, $text);\r
 255     }\r
 256 \r
 257 \r
 258     if ($fp) {\r
 259       foreach ($values as $key => $tag) {\r
 260         if (($key < $start) || ($key > $end)) {\r
 261           continue;\r
 262         }\r
 263 \r
 264         $cdata = 0;\r
 265         $open  = 0;\r
 266 \r
 267         if ($tag['type'] == 'open') {\r
 268           $text  = "<";\r
 269           $close = "\n>";\r
 270           $open  = 1;\r
 271         }\r
 272         else if ($tag['type'] == 'close') {\r
 273           $text  = "</";\r
 274           $close = "\n>";\r
 275         }\r
 276         else if ($tag['type'] == 'cdata') {\r
 277           $cdata = 1;\r
 278         }\r
 279         else {      //** it's complete\r
 280           $text  = "<";\r
 281           $close = " /\n>";\r
 282         }\r
 283 \r
 284         if ($cdata) {\r
 285           $text = htmlspecialchars ($tag['value']);\r
 286         }\r
 287         else {\r
 288           $text .= $tag['tag'];\r
 289 \r
 290           if (isset ($tag['attributes'])) {\r
 291             foreach ($tag['attributes'] as $key => $att) {\r
 292               $text .= ' '.$key. '="' . $att . '"';\r
 293             }\r
 294           }\r
 295 \r
 296           if (isset ($tag['value'])) {\r
 297             if ($open) {\r
 298               $text .= ">".htmlspecialchars ($tag['value']);\r
 299             }\r
 300             else {\r
 301               $text .= ">".htmlspecialchars ($tag['value'])."</" . $tag['tag'] . ">";\r
 302             }\r
 303           }\r
 304           else {\r
 305             if (($tag['tag'] == 'a') && ($tag['type'] == 'complete')) {\r
 306               $text .= "></a>";\r
 307             }\r
 308             else {\r
 309               $text .= $close;\r
 310             }\r
 311           }\r
 312         }\r
 313 \r
 314         if ($recode_it) {\r
 315           $text = mb_convert_encoding ($text, 'HTML-ENTITIES', $encoding_in);\r
 316         }\r
 317 \r
 318         fwrite ($fp, $text);\r
 319       }\r
 320     }\r
 321   }\r
 322 \r
 323 /***** CreateDirectory (...)                 **********************************/\r
 324 \r
 325   function CreateDirectory ($dirname) {\r
 326     $path = "";\r
 327     $dir  = split ('[/|\\]', $dirname);\r
 328 \r
 329     for ($i = 0; $i < count ($dir); $i++) {\r
 330       $path .= $dir[$i]."/";\r
 331 \r
 332       if (!is_dir ($path)) {\r
 333         @mkdir ($path, 0777);\r
 334         @chmod ($path, 0777);\r
 335       }\r
 336     }\r
 337 \r
 338     if (is_dir ($dirname)) {\r
 339       return 1;\r
 340     }\r
 341 \r
 342     return 0;\r
 343   }\r
 344 \r
 345 /***** BuildIDList (...)                     **********************************/\r
 346 \r
 347   function BuildIDList ($lang, $doc, &$idlist, &$bilist) {\r
 348     global $fencoding;\r
 349     $data     = file_get_contents ($lang."_".$doc.".xml");        // get the xml-file content\r
 350     $parser   = xml_parser_create ($fencoding);\r
 351 \r
 352     xml_parser_set_option ($parser, XML_OPTION_CASE_FOLDING, 0);\r
 353     xml_parser_set_option ($parser, XML_OPTION_SKIP_WHITE, 1);\r
 354 \r
 355     xml_parse_into_struct ($parser, $data, $values, $tags);       // parse the xml file\r
 356     xml_parser_free ($parser);\r
 357 \r
 358     MakeIDList ($values, $tags, $idlist);                         // build the list with the used ids\r
 359     MakeBIList ($values, $tags, $bilist);                         // build the Book Info list\r
 360 \r
 361     echo "array: bilist\n";\r
 362     var_dump ($bilist);\r
 363     echo "array: tags\n";\r
 364     var_dump ($tags);\r
 365     echo "array: values\n";\r
 366     var_dump ($values);\r
 367 \r
 368   }\r
 369 \r
 370 /***** MakeIDList (...)                      **********************************/\r
 371 \r
 372   function MakeIDList (&$values, &$tags, &$idlist) {\r
 373     $taglist      = array ("chapter", "sect1", "sect2", "sect3", "sect4", "figure");\r
 374 \r
 375     foreach ($taglist as $tlkey => $tag) {                        // for every tag with a possible id\r
 376 \r
 377       if (isset ($tags[$tag])) {\r
 378         foreach ($tags[$tag] as $key => $val) {\r
 379           if (isset ($values[$val]['attributes'])) {\r
 380             foreach ($values[$val]['attributes'] as $tkey => $tval) {\r
 381               if ($tkey == 'id') {                                  // we have an id, so look for the title\r
 382                 if ($values[$val + 1]['tag'] == 'title') {          // if the next tag is a title\r
 383                   // $idlist[$tval]          = $values[$val + 1]['value'];\r
 384                   $idlist[$tval]['title']   = $values[$val + 1]['value'];\r
 385                   $idlist[$tval]['element'] = $tag;                 // the element\r
 386                 }\r
 387               }\r
 388             }\r
 389           }\r
 390         }\r
 391       }\r
 392     }\r
 393   }\r
 394 \r
 395 /***** MakeBIList (...)                      **********************************/\r
 396 \r
 397   function MakeBIList (&$values, &$tags, &$bilist) {\r
 398     $start = 0;\r
 399     $end   = 0;\r
 400 \r
 401     if (isset ($tags['book'])) {\r
 402       // $count = count ($tags['book']);\r
 403       $start = $tags['bookinfo'][0] + 1;\r
 404       $end   = $tags['bookinfo'][1] - 1;\r
 405       $state = 0;\r
 406     }\r
 407     else if (isset ($tags['article'])) {\r
 408       $start = $tags['articleinfo'][0] + 1;\r
 409       $end   = $tags['articleinfo'][1] - 1;\r
 410       $state = 0;\r
 411     }\r
 412 \r
 413     // get the status attribute from book or article\r
 414 \r
 415     if (isset ($values[0]['attributes']['status'])) {\r
 416       $status = explode ('_', $values[0]['attributes']['status']);\r
 417 \r
 418       if (($status[0] == 'progress') && (isset ($status[1]))) {\r
 419         $bilist['status'] = $status[1];\r
 420       }\r
 421       else {\r
 422         $bilist['status'] = $status[0];\r
 423       }\r
 424     }\r
 425 \r
 426     // search for the title\r
 427 \r
 428     for ($index = $start; $index <= $end; $index++) {\r
 429       switch ($state) {\r
 430         case 0:             // search the title tag\r
 431           if ($values[$index]['tag'] == 'title') {\r
 432             if (isset ($values[$index]['value'])) {\r
 433               $bilist['title'] = $values[$index]['value'];\r
 434             }\r
 435 \r
 436             if ($values[$index]['type'] == 'open') {\r
 437               $state = 1;   // title is not complete, so append the other tags (i.e. from quote or emphasis)\r
 438             }\r
 439             else {\r
 440               $state = 2;   // title is complete\r
 441             }\r
 442           }\r
 443           break;\r
 444 \r
 445         case 1:             // append the values of every tag until the closing title tag\r
 446           if ($values[$index]['tag'] == 'title') {\r
 447             if (isset ($values[$index]['value'])) {\r
 448               $bilist['title'] .= $values[$index]['value'];\r
 449             }\r
 450 \r
 451             if ($values[$index]['type'] == 'close') {\r
 452               $state = 2;     // title is complete\r
 453             }\r
 454           }\r
 455           else {\r
 456             if (isset ($values[$index]['value'])) {\r
 457               $bilist['title'] .= $values[$index]['value'];\r
 458             }\r
 459           }\r
 460           break;\r
 461 \r
 462         default:\r
 463           break;\r
 464       }\r
 465 \r
 466       if ($state == 2) {    // if we have the title leave the loop\r
 467         break;\r
 468       }\r
 469     }\r
 470 \r
 471     // search for the revnumber and revdate within the last revision within revhistory\r
 472 \r
 473     if (isset ($tags['revision'])) { // ok we have a revision\r
 474       $count = count ($tags['revision']);\r
 475 \r
 476       $start = $tags['revision'][$count - 2];\r
 477       $end   = $tags['revision'][$count - 1];\r
 478     }\r
 479 \r
 480     if (isset ($tags['revnumber'])) {\r
 481       $count = count ($tags['revnumber']);\r
 482 \r
 483       for ($index = 0; $index < $count; $index++) {\r
 484         $val_index = $tags['revnumber'][$index];\r
 485 \r
 486         if (($val_index > $start) && ($val_index < $end)) {\r
 487           $bilist['revnumber'] = $values[$val_index]['value'];\r
 488         }\r
 489       }\r
 490     }\r
 491 \r
 492     if (isset ($tags['date'])) {\r
 493       $count = count ($tags['date']);\r
 494 \r
 495       for ($index = 0; $index < $count; $index++) {\r
 496         $val_index = $tags['date'][$index];\r
 497 \r
 498         if (($val_index > $start) && ($val_index < $end)) {\r
 499           $bilist['revdate'] = $values[$val_index]['value'];\r
 500         }\r
 501       }\r
 502     }\r
 503   }\r
 504 \r
 505 /***** WriteBookInfoList (...)               **********************************/\r
 506 \r
 507   function WriteBookInfoList (&$fidlist, &$bilist) {\r
 508     global $fencoding;\r
 509     global $recode_it;\r
 510     global $encoding_in;\r
 511 \r
 512     $fp      = fopen ("tmp/docinfo.xml", "w");\r
 513 \r
 514     if ($fp) {\r
 515       $text = "<?xml version=\"1.0\" ?>" . "\n";\r
 516       fwrite ($fp, $text);\r
 517 \r
 518       $text = "<docinfo>\n";\r
 519       fwrite ($fp, $text);\r
 520 \r
 521       foreach ($bilist as $tag => $value) {\r
 522         $text = "  <$tag>$value</$tag>\n";\r
 523         fwrite ($fp, $text);\r
 524       }\r
 525 \r
 526       foreach ($fidlist as $filename => $file) {\r
 527         $text = "  <file>\n    <name>$filename</name>\n";\r
 528         fwrite ($fp, $text);\r
 529 \r
 530         foreach ($file as $id => $idvalue) {\r
 531           $text = "    <entry>\n      <id>".$id."</id>\n";\r
 532           fwrite ($fp, $text);\r
 533 \r
 534           $text = "      <element>".$idvalue['element']."</element>\n";\r
 535           fwrite ($fp, $text);\r
 536 \r
 537           $text = "      <text>".$idvalue['title']."</text>\n    </entry>\n";\r
 538 \r
 539           if ($recode_it) {\r
 540             $text = mb_convert_encoding ($text, 'HTML-ENTITIES', $encoding_in);\r
 541           }\r
 542 \r
 543           fwrite ($fp, $text);\r
 544         }\r
 545 \r
 546         $text = "  </file>\n";\r
 547         fwrite ($fp, $text);\r
 548       }\r
 549 \r
 550       $text = "</docinfo>";\r
 551       fwrite ($fp, $text);\r
 552 \r
 553       fclose ($fp);\r
 554     }\r
 555   }\r
 556 \r
 557 /******************************************************************************/\r
 558 \r
 559 ?>\r