dox/occdoc.tcl

   1 # -----------------------------------------------------------------------
   2 #  Script name: CompileDocs.tcl
   3 #  This script compiles OCCT documents from *.md files to HTML pages
   4 #  Author: omy
   5 # -----------------------------------------------------------------------
   6
   7 # Generates Doxygen configuration file for Overview documentation
   8 proc OverviewDoc_MakeDoxyfile {casDir outDir tagFileDir {doxyFileName} {generatorMode ""} DocFilesList verboseMode} {
   9
  10     if {$verboseMode == "YES"} {
  11         puts "INFO: Doxygen is now generating Doxyfile..."
  12     }
  13
  14     set doxyFile [open $doxyFileName "w"]
  15     set casroot  $casDir
  16     set inputDir $casDir/dox
  17
  18     # Common configs
  19     puts $doxyFile "DOXYFILE_ENCODING      = UTF-8"
  20     puts $doxyFile "PROJECT_NAME           = \"Open CASCADE Technology\""
  21     puts $doxyFile "PROJECT_NUMBER         = 6.6.0"
  22     puts $doxyFile "PROJECT_BRIEF          = "
  23     puts $doxyFile "PROJECT_LOGO           = $inputDir/resources/occt_logo.png"
  24
  25     puts $doxyFile "OUTPUT_DIRECTORY       = $outDir"
  26     puts $doxyFile "CREATE_SUBDIRS         = NO"
  27     puts $doxyFile "OUTPUT_LANGUAGE        = English"
  28     puts $doxyFile "ABBREVIATE_BRIEF       = \"The \$name class\" \
  29                                              \"The \$name widget\" \
  30                                              \"The \$name file\" \
  31                                              is \
  32                                              provides \
  33                                              specifies \
  34                                              contains \
  35                                              represents \
  36                                              a \
  37                                              an \
  38                                              the"
  39
  40     puts $doxyFile "FULL_PATH_NAMES        = YES"
  41     puts $doxyFile "INHERIT_DOCS           = YES"
  42     puts $doxyFile "TAB_SIZE               = 4"
  43     puts $doxyFile "MARKDOWN_SUPPORT       = YES"
  44     puts $doxyFile "EXTRACT_ALL            = YES"
  45     puts $doxyFile "CASE_SENSE_NAMES       = NO"
  46     puts $doxyFile "INLINE_INFO            = YES"
  47     puts $doxyFile "SORT_MEMBER_DOCS       = YES"
  48     puts $doxyFile "WARNINGS               = YES"
  49     puts $doxyFile "WARN_IF_UNDOCUMENTED   = YES"
  50     puts $doxyFile "WARN_IF_DOC_ERROR      = YES"
  51     puts $doxyFile "WARN_NO_PARAMDOC       = NO"
  52     puts $doxyFile "WARN_FORMAT            = \"\$file:\$line: \$text\""
  53     puts $doxyFile "INPUT_ENCODING         = UTF-8"
  54     puts $doxyFile "FILE_PATTERNS          = *.md *.dox "
  55     puts $doxyFile "RECURSIVE              = YES"
  56     puts $doxyFile "SOURCE_BROWSER         = NO"
  57     puts $doxyFile "INLINE_SOURCES         = YES"
  58     puts $doxyFile "COLS_IN_ALPHA_INDEX    = 5"
  59
  60     # Generation options
  61     puts $doxyFile "GENERATE_DOCSET        = NO"
  62     puts $doxyFile "GENERATE_HTMLHELP      = NO"
  63     puts $doxyFile "GENERATE_CHI           = NO"
  64     puts $doxyFile "GENERATE_QHP           = NO"
  65     puts $doxyFile "GENERATE_ECLIPSEHELP   = NO"
  66     puts $doxyFile "GENERATE_RTF           = NO"
  67     puts $doxyFile "GENERATE_MAN           = NO"
  68     puts $doxyFile "GENERATE_XML           = NO"
  69     puts $doxyFile "GENERATE_DOCBOOK       = NO"
  70     puts $doxyFile "GENERATE_AUTOGEN_DEF   = NO"
  71     puts $doxyFile "GENERATE_PERLMOD       = NO"
  72
  73     set PARAM_INPUT "INPUT                  = "
  74     set PARAM_IMAGEPATH "IMAGE_PATH         = $inputDir/resources/ "
  75
  76     foreach docFile $DocFilesList {
  77         set NEW_IMG_PATH [file normalize [file dirname "$inputDir/$docFile"]]
  78         if { [string compare $NEW_IMG_PATH $casroot] != 0 } {
  79           if {[file isdirectory "$NEW_IMG_PATH/images"]} {
  80             append PARAM_IMAGEPATH " " "$NEW_IMG_PATH/images"
  81           }
  82         }
  83         append PARAM_INPUT " " $inputDir/$docFile
  84     }
  85     puts $doxyFile $PARAM_INPUT
  86     puts $doxyFile $PARAM_IMAGEPATH
  87
  88     if { $generatorMode == "PDF_ONLY"} {
  89         set PARAM_LATEX_EF "LATEX_EXTRA_FILES      ="
  90         foreach docFile $DocFilesList {
  91             set NEW_LEF_PATH [file normalize [file dirname "$inputDir/$docFile"]]
  92             if { [string compare $NEW_LEF_PATH $casroot] != 0 } {
  93                 append PARAM_LATEX_EF " " "$NEW_LEF_PATH/images"
  94             }
  95         }
  96         puts $doxyFile $PARAM_LATEX_EF
  97     }
  98
  99     if { $generatorMode == "HTML_ONLY"} {
 100         # Set a reference to a TAGFILE
 101         if { $tagFileDir != "" } {
 102             if {[file exists $tagFileDir/OCCT.tag] == 1} {
 103                 set tagPath [OverviewDoc_GetRelPath $tagFileDir $outDir/html]
 104                 puts $doxyFile "TAGFILES               = $tagFileDir/OCCT.tag=$tagPath/html"
 105             }
 106         }
 107
 108         # HTML Output
 109         puts $doxyFile "GENERATE_LATEX         = NO"
 110         puts $doxyFile "GENERATE_HTML          = YES"
 111         puts $doxyFile "HTML_COLORSTYLE_HUE    = 220"
 112         puts $doxyFile "HTML_COLORSTYLE_SAT    = 100"
 113         puts $doxyFile "HTML_COLORSTYLE_GAMMA  = 80"
 114         puts $doxyFile "HTML_TIMESTAMP         = YES"
 115         puts $doxyFile "HTML_DYNAMIC_SECTIONS  = YES"
 116         puts $doxyFile "HTML_INDEX_NUM_ENTRIES = 100"
 117         puts $doxyFile "DISABLE_INDEX          = YES"
 118         puts $doxyFile "GENERATE_TREEVIEW      = YES"
 119         puts $doxyFile "ENUM_VALUES_PER_LINE   = 8"
 120         puts $doxyFile "TREEVIEW_WIDTH         = 250"
 121         puts $doxyFile "EXTERNAL_PAGES         = NO"
 122         puts $doxyFile "SEARCHENGINE           = YES"
 123         puts $doxyFile "SERVER_BASED_SEARCH    = NO"
 124         puts $doxyFile "EXTERNAL_SEARCH        = NO"
 125         puts $doxyFile "SEARCHDATA_FILE        = searchdata.xml"
 126         puts $doxyFile "SKIP_FUNCTION_MACROS   = YES"
 127         # Formula options
 128         puts $doxyFile "FORMULA_FONTSIZE       = 12"
 129         puts $doxyFile "FORMULA_TRANSPARENT    = YES"
 130         puts $doxyFile "USE_MATHJAX            = YES"
 131         puts $doxyFile "MATHJAX_FORMAT         = HTML-CSS"
 132         puts $doxyFile "MATHJAX_RELPATH        = http://cdn.mathjax.org/mathjax/latest"
 133
 134     } elseif { $generatorMode == "PDF_ONLY"} {
 135
 136         puts $doxyFile "GENERATE_HTML          = NO"
 137         puts $doxyFile "DISABLE_INDEX          = YES"
 138         puts $doxyFile "GENERATE_TREEVIEW      = NO"
 139         puts $doxyFile "PREDEFINED             = PDF_ONLY"
 140         puts $doxyFile "GENERATE_LATEX         = YES"
 141         puts $doxyFile "COMPACT_LATEX          = YES"
 142         puts $doxyFile "PDF_HYPERLINKS         = YES"
 143         puts $doxyFile "USE_PDFLATEX           = YES"
 144         puts $doxyFile "LATEX_BATCHMODE        = YES"
 145         puts $doxyFile "LATEX_OUTPUT           = latex"
 146         puts $doxyFile "LATEX_CMD_NAME         = latex"
 147         puts $doxyFile "MAKEINDEX_CMD_NAME     = makeindex"
 148     }
 149
 150     close $doxyFile
 151 }
 152
 153 # Returns the relative path between two directories
 154 proc OverviewDoc_GetRelPath {targetFile currentpath} {
 155   set cc [file split [file normalize $currentpath]]
 156   set tt [file split [file normalize $targetFile]]
 157
 158   if {![string equal [lindex $cc 0] [lindex $tt 0]]} {
 159       # not on *n*x then
 160       return -code error "$targetFile not on same volume as $currentpath"
 161   }
 162   while {[string equal [lindex $cc 0] [lindex $tt 0]] && [llength $cc] > 0} {
 163       # discard matching components from the front
 164       set cc [lreplace $cc 0 0]
 165       set tt [lreplace $tt 0 0]
 166   }
 167   set prefix ""
 168   if {[llength $cc] == 0} {
 169       # just the file name, so targetFile is lower down (or in same place)
 170       set prefix "."
 171   }
 172   # step up the tree
 173   for {set i 0} {$i < [llength $cc]} {incr i} {
 174       append prefix " .."
 175   }
 176   # stick it all together (the eval is to flatten the targetFile list)
 177   return [eval file join $prefix $tt]
 178 }
 179
 180 # Prints Help message
 181 proc OverviewDoc_PrintHelpMessage {} {
 182     puts "\nUsage : occdoc \[-h\] \[-html\] \[-pdf\] \[-m=<list of files>\] \[-l=<document name>\] \[-v\]"
 183     puts ""
 184     puts " Options are : "
 185     puts "    -html                : To generate HTML files"
 186     puts "                           (cannot be used with -pdf)"
 187     puts "    -pdf                 : To generate PDF files"
 188     puts "                           (cannot be used with -html)"
 189     puts "    -m=<modules_list>    : Specifies list of documents to generate."
 190     puts "                           If it is not specified, all files, "
 191     puts "                           mentioned in FILES.txt are processed."
 192     puts "    -l=<document_name>   : Specifies the document caption "
 193     puts "                           for a single document"
 194     puts "    -h                   : Prints help message"
 195     puts "    -v                   : Specifies the Verbose mode"
 196     puts "                           (info on all script actions is shown)"
 197 }
 198
 199 # Parses command line arguments
 200 proc OverviewDoc_ParseArguments {arguments} {
 201     global args_names
 202     global args_values
 203     set args_names {}
 204     array set args_values {}
 205
 206     foreach arg $arguments {
 207         if {[regexp {^(-)[a-z]+$} $arg] == 1} {
 208             set name [string range $arg 1 [string length $arg]-1]
 209             lappend args_names $name
 210             set args_values($name) "NULL"
 211             continue
 212         } elseif {[regexp {^(-)[a-z]+=.+$} $arg] == 1} {
 213             set equal_symbol_position [string first "=" $arg]
 214             set name [string range $arg 1 $equal_symbol_position-1]
 215             lappend args_names $name
 216             set value [string range $arg $equal_symbol_position+1 [string length $arguments]-1]
 217
 218             # To parse a list of values for -m parameter
 219             if { [string first "," $value] != -1 } {
 220                 set value [split $value ","];
 221             }
 222             set args_values($name) $value
 223         } else {
 224             puts "Error in argument $arg"
 225             return 1
 226         }
 227     }
 228     return 0
 229 }
 230
 231 # Loads a list of docfiles from file FILES.txt
 232 proc OverviewDoc_LoadFilesList {} {
 233
 234     set INPUTDIR [file normalize [file dirname [info script]]]
 235
 236     global available_docfiles
 237     set available_docfiles {}
 238
 239     # Read data from file
 240     if { [file exists "$INPUTDIR/FILES.txt"] == 1 } {
 241         set FILE [open "$INPUTDIR/FILES.txt" r]
 242         while {1} {
 243             set line [gets $FILE]
 244             if {$line != ""} {
 245               lappend available_docfiles $line
 246             }
 247
 248             if {[eof $FILE]} {
 249                 close $FILE
 250                 break
 251             }
 252         }
 253     } else {
 254         return -1
 255     }
 256     return 0
 257 }
 258
 259 # Writes new tex file for conversion from tex to pdf for a specific doc
 260 proc OverviewDoc_MakeRefmanTex {fileName latexDir docLabel verboseMode} {
 261
 262     if {$verboseMode == "YES"} {
 263         puts "INFO: Making refman.tex file for $fileName"
 264     }
 265     set DOCNAME "$latexDir/refman.tex"
 266     if {[file exists $DOCNAME] == 1} {
 267         file delete -force $DOCNAME
 268     }
 269     set texfile [open $DOCNAME w]
 270
 271     puts $texfile "\\batchmode"
 272     puts $texfile "\\nonstopmode"
 273     puts $texfile "\\documentclass\[oneside\]{article}"
 274     puts $texfile "\n% Packages required by doxygen"
 275     puts $texfile "\\usepackage{calc}"
 276     puts $texfile "\\usepackage{doxygen}"
 277     puts $texfile "\\usepackage{graphicx}"
 278     puts $texfile "\\usepackage\[utf8\]{inputenc}"
 279     puts $texfile "\\usepackage{makeidx}"
 280     puts $texfile "\\usepackage{multicol}"
 281     puts $texfile "\\usepackage{multirow}"
 282     puts $texfile "\\usepackage{textcomp}"
 283     puts $texfile "\\usepackage{amsmath}"
 284     puts $texfile "\\usepackage\[table\]{xcolor}"
 285     puts $texfile "\\usepackage{indentfirst}"
 286     puts $texfile ""
 287     puts $texfile "% Font selection"
 288     puts $texfile "\\usepackage\[T1\]{fontenc}"
 289     puts $texfile "\\usepackage{mathptmx}"
 290     puts $texfile "\\usepackage\[scaled=.90\]{helvet}"
 291     puts $texfile "\\usepackage{courier}"
 292     puts $texfile "\\usepackage{amssymb}"
 293     puts $texfile "\\usepackage{sectsty}"
 294     puts $texfile "\\renewcommand{\\familydefault}{\\sfdefault}"
 295     puts $texfile "\\allsectionsfont{%"
 296     puts $texfile "  \\fontseries{bc}\\selectfont%"
 297     puts $texfile "  \\color{darkgray}%"
 298     puts $texfile "}"
 299     puts $texfile "\\renewcommand{\\DoxyLabelFont}{%"
 300     puts $texfile "  \\fontseries{bc}\\selectfont%"
 301     puts $texfile "  \\color{darkgray}%"
 302     puts $texfile "}"
 303     puts $texfile ""
 304     puts $texfile "% Page & text layout"
 305     puts $texfile "\\usepackage{geometry}"
 306     puts $texfile "\\geometry{%"
 307     puts $texfile "  a4paper,%"
 308     puts $texfile "  top=2.5cm,%"
 309     puts $texfile "  bottom=2.5cm,%"
 310     puts $texfile "  left=2.5cm,%"
 311     puts $texfile "  right=2.5cm%"
 312     puts $texfile "}"
 313     puts $texfile "\\tolerance=750"
 314     puts $texfile "\\hfuzz=15pt"
 315     puts $texfile "\\hbadness=750"
 316     puts $texfile "\\setlength{\\emergencystretch}{15pt}"
 317     puts $texfile "\\setlength{\\parindent}{0.75cm}"
 318     puts $texfile "\\setlength{\\parskip}{0.2cm}"
 319     puts $texfile "\\makeatletter"
 320     puts $texfile "\\renewcommand{\\paragraph}{%"
 321     puts $texfile "  \@startsection{paragraph}{4}{0ex}{-1.0ex}{1.0ex}{%"
 322     puts $texfile "\\normalfont\\normalsize\\bfseries\\SS@parafont%"
 323     puts $texfile "  }%"
 324     puts $texfile "}"
 325     puts $texfile "\\renewcommand{\\subparagraph}{%"
 326     puts $texfile "  \\@startsection{subparagraph}{5}{0ex}{-1.0ex}{1.0ex}{%"
 327     puts $texfile "\\normalfont\\normalsize\\bfseries\\SS@subparafont%"
 328     puts $texfile "  }%"
 329     puts $texfile "}"
 330     puts $texfile "\\makeatother"
 331     puts $texfile ""
 332     puts $texfile "% Headers & footers"
 333     puts $texfile "\\usepackage{fancyhdr}"
 334     puts $texfile "\\pagestyle{fancyplain}"
 335     puts $texfile "\\fancyhead\[LE\]{\\fancyplain{}{\\bfseries\\thepage}}"
 336     puts $texfile "\\fancyhead\[CE\]{\\fancyplain{}{}}"
 337     puts $texfile "\\fancyhead\[RE\]{\\fancyplain{}{\\bfseries\\leftmark}}"
 338     puts $texfile "\\fancyhead\[LO\]{\\fancyplain{}{\\bfseries\\rightmark}}"
 339     puts $texfile "\\fancyhead\[CO\]{\\fancyplain{}{}}"
 340     puts $texfile "\\fancyhead\[RO\]{\\fancyplain{}{\\bfseries\\thepage}}"
 341     puts $texfile "\\fancyfoot\[LE\]{\\fancyplain{}{}}"
 342     puts $texfile "\\fancyfoot\[CE\]{\\fancyplain{}{}}"
 343     puts $texfile "\\fancyfoot\[RE\]{\\fancyplain{}{\\bfseries\\scriptsize (c) Open CASCADE Technology 2001\-2013}}"
 344     puts $texfile "\\fancyfoot\[LO\]{\\fancyplain{}{\\bfseries\\scriptsize (c) Open CASCADE Technology 2001\-2013}}"
 345     puts $texfile "\\fancyfoot\[CO\]{\\fancyplain{}{}}"
 346     puts $texfile "\\fancyfoot\[RO\]{\\fancyplain{}{}}"
 347     puts $texfile "\\renewcommand{\\footrulewidth}{0.4pt}"
 348     puts $texfile "\\renewcommand{\\sectionmark}\[1\]{%"
 349     puts $texfile "  \\markright{\\thesection\\ #1}%"
 350     puts $texfile "}"
 351     puts $texfile ""
 352     puts $texfile "% Indices & bibliography"
 353     puts $texfile "\\usepackage{natbib}"
 354     puts $texfile "\\usepackage\[titles\]{tocloft}"
 355     puts $texfile "\\renewcommand{\\cftsecleader}{\\cftdotfill{\\cftdotsep}}"
 356     puts $texfile "\\setcounter{tocdepth}{3}"
 357     puts $texfile "\\setcounter{secnumdepth}{5}"
 358     puts $texfile "\\makeindex"
 359     puts $texfile ""
 360     puts $texfile "% Hyperlinks (required, but should be loaded last)"
 361     puts $texfile "\\usepackage{ifpdf}"
 362     puts $texfile "\\ifpdf"
 363     puts $texfile "  \\usepackage\[pdftex,pagebackref=true\]{hyperref}"
 364     puts $texfile "\\else"
 365     puts $texfile "  \\usepackage\[ps2pdf,pagebackref=true\]{hyperref}"
 366     puts $texfile "\\fi"
 367     puts $texfile "\\hypersetup{%"
 368     puts $texfile "  colorlinks=true,%"
 369     puts $texfile "  linkcolor=black,%"
 370     puts $texfile "  citecolor=black,%"
 371     puts $texfile "  urlcolor=blue,%"
 372     puts $texfile "  unicode%"
 373     puts $texfile "}"
 374     puts $texfile ""
 375     puts $texfile "% Custom commands"
 376     puts $texfile "\\newcommand{\\clearemptydoublepage}{%"
 377     puts $texfile "  \\newpage{\\pagestyle{empty}\\cleardoublepage}%"
 378     puts $texfile "}"
 379     puts $texfile "\n"
 380     puts $texfile "%===== C O N T E N T S =====\n"
 381 #    puts $texfile "\\DeclareUnicodeCharacter{00A0}{ }"
 382     puts $texfile "\\begin{document}"
 383     puts $texfile ""
 384     puts $texfile "% Titlepage & ToC"
 385     puts $texfile "\\hypersetup{pageanchor=false}"
 386     puts $texfile "\\pagenumbering{roman}"
 387     puts $texfile "\\begin{titlepage}"
 388     puts $texfile "\\vspace*{7cm}"
 389     puts $texfile "\\begin{center}%"
 390     puts $texfile "\\includegraphics\[width=0.75\\textwidth, height=0.2\\textheight\]{overview_occttransparent.png}\\\\\\\\"
 391     puts $texfile "{\\Large Open C\\-A\\-S\\-C\\-A\\-D\\-E Technology \\\\\[1ex\]\\Large 6.\\-6.\\-0 }\\\\"
 392     puts $texfile "\\vspace*{1cm}"
 393     puts $texfile "{\\Large $docLabel}\\\\"
 394     puts $texfile "\\vspace*{1cm}"
 395     puts $texfile "{\\large Generated by Doxygen 1.8.4}\\\\"
 396     puts $texfile "\\vspace*{0.5cm}"
 397     puts $texfile "{\\small \\today}\\"
 398     puts $texfile "\\end{center}"
 399     puts $texfile "\\end{titlepage}"
 400     puts $texfile "\\clearpage"
 401     puts $texfile "\\pagenumbering{roman}"
 402     puts $texfile "\\tableofcontents"
 403     puts $texfile "\\newpage"
 404     puts $texfile "\\pagenumbering{arabic}"
 405     puts $texfile "\\hypersetup{pageanchor=true}"
 406     puts $texfile ""
 407     puts $texfile "\\hypertarget{$fileName}{}"
 408     puts $texfile "\\input{$fileName}"
 409     puts $texfile ""
 410     puts $texfile "% Index"
 411     puts $texfile "\\newpage"
 412     puts $texfile "\\phantomsection"
 413     puts $texfile "\\addcontentsline{toc}{part}{Index}"
 414     puts $texfile "\\printindex\n"
 415     puts $texfile "\\end{document}"
 416
 417     close $texfile
 418 }
 419
 420 # Postprocesses generated TeX files
 421 proc OverviewDoc_ProcessTex {{texFiles {}} {latexDir} verboseMode} {
 422
 423     foreach TEX $texFiles {
 424         if {$verboseMode == "YES"} {
 425             puts "INFO: Preprocessing file $TEX"
 426         }
 427
 428          if {![file exists $TEX]} {
 429           puts "file $TEX doesn't exist"
 430           return
 431         }
 432
 433         set IN_F  [open "$TEX" r]
 434         set TMPFILENAME "$latexDir/temp.tex"
 435
 436         set OUT_F [open $TMPFILENAME w]
 437
 438         while {1} {
 439             set line [gets $IN_F]
 440             if { [string first "\\includegraphics" $line] != -1 } {
 441                 # Center images in TeX files
 442                 set line "\\begin{center}\n $line\n\\end{center}"
 443             } elseif { [string first "\\subsection" $line] != -1 } {
 444                 # Replace \subsection with \section tag
 445                 regsub -all "\\\\subsection" $line "\\\\section" line
 446             } elseif { [string first "\\subsubsection" $line] != -1 } {
 447                 # Replace \subsubsection with \subsection tag
 448                 regsub -all "\\\\subsubsection" $line "\\\\subsection" line
 449             } elseif { [string first "\\paragraph" $line] != -1 } {
 450                 # Replace \paragraph with \subsubsection tag
 451                 regsub -all "\\\\paragraph" $line "\\\\subsubsection" line
 452             }
 453             puts $OUT_F $line
 454
 455             if {[eof $IN_F]} {
 456                 close $IN_F
 457                 close $OUT_F
 458                 break
 459             }
 460         }
 461         file delete -force $TEX
 462         file rename $TMPFILENAME $TEX
 463     }
 464 }
 465
 466 # Main procedure for documents compilation
 467 proc OverviewDoc_Main { {docfiles {}} generatorMode docLabel verboseMode} {
 468
 469     set INDIR      [file normalize [file dirname [info script]]]
 470     set CASROOT    [file normalize [file dirname "$INDIR/../../"]]
 471     set OUTDIR     $CASROOT/doc
 472     set PDFDIR     $OUTDIR/overview/pdf
 473     set HTMLDIR    $OUTDIR/overview/html
 474     set LATEXDIR   $OUTDIR/overview/latex
 475     set TAGFILEDIR $OUTDIR/refman
 476     set DOXYFILE   $OUTDIR/OCCT.cfg
 477
 478     # Create or clean the output folders
 479     if {[file exists $OUTDIR] == 0} {
 480         file mkdir $OUTDIR
 481     }
 482     if {[file exists $HTMLDIR] == 0} {
 483         file mkdir $HTMLDIR
 484     }
 485     if {[file exists $LATEXDIR] == 0} {
 486         file mkdir $LATEXDIR
 487     }
 488     if {[file exists $PDFDIR] == 0} {
 489         file mkdir $PDFDIR
 490     }
 491
 492     # Run tools to compile documents
 493     puts ""
 494     puts " [clock format [clock seconds] -format {%Y.%m.%d %H:%M}] Generation process started..."
 495     puts ""
 496     puts " Please, wait while Doxygen finishes it\'s work"
 497     OverviewDoc_MakeDoxyfile $CASROOT "$OUTDIR/overview" $TAGFILEDIR $DOXYFILE $generatorMode $docfiles $verboseMode
 498
 499     # Run doxygen tool
 500     if { $generatorMode == "HTML_ONLY"} {
 501         puts " [clock format [clock seconds] -format {%Y.%m.%d %H:%M}] Doxygen is now generating HTML files...\n"
 502     }
 503     set RESULT [catch {exec doxygen $DOXYFILE > $OUTDIR/doxygen_out.log} DOX_ERROR]
 504     if {$RESULT != 0} {
 505         if {[llength [split $DOX_ERROR "\n"]] > 1} {
 506             if {$verboseMode == "YES"} {
 507                 puts "INFO: See Doxygen messages in $OUTDIR/doxygen_warnings_and_errors.log"
 508             }
 509             set DOX_ERROR_FILE [open "$OUTDIR/doxygen_warnings_and_errors.log" "w"]
 510             puts $DOX_ERROR_FILE $DOX_ERROR
 511             close $DOX_ERROR_FILE
 512         } else {
 513             puts $DOX_ERROR
 514         }
 515     }
 516     # Close the Doxygen application
 517     after 300
 518
 519     # Start PDF generation routine
 520     if { $generatorMode == "PDF_ONLY" } {
 521         puts ""
 522         puts " [clock format [clock seconds] -format {%Y.%m.%d %H:%M}] Doxygen is now generating PDF files...\n"
 523
 524         set OS $::tcl_platform(platform)
 525         if { $OS == "unix" } {
 526             set PREFIX ".sh"
 527         } elseif { $OS == "windows" } {
 528             set PREFIX ".bat"
 529         }
 530
 531         # Prepare a list of TeX files, generated by Doxygen
 532         puts "go to $LATEXDIR"
 533         cd $LATEXDIR
 534
 535         set TEXFILES [glob $LATEXDIR -type f -directory $LATEXDIR -tails "*.tex" ]
 536         set REFMAN_IDX [lsearch $TEXFILES "refman.tex"]
 537         set TEXFILES [lreplace $TEXFILES $REFMAN_IDX $REFMAN_IDX]
 538
 539
 540         set IDX [lsearch $TEXFILES "$LATEXDIR"]
 541         while { $IDX != -1} {
 542             set TEXFILES [lreplace $TEXFILES $IDX $IDX]
 543             set IDX [lsearch $TEXFILES "$LATEXDIR"]
 544         }
 545
 546         puts "Preprocess generated TeX files"
 547         OverviewDoc_ProcessTex $TEXFILES $LATEXDIR $verboseMode
 548
 549         puts "Generate PDF files from"
 550         foreach TEX $TEXFILES {
 551             # Rewrite existing REFMAN.tex file...
 552             set TEX [string range $TEX 0 [ expr "[string length $TEX] - 5"]]
 553             OverviewDoc_MakeRefmanTex $TEX $LATEXDIR $docLabel $verboseMode
 554
 555             if {$verboseMode == "YES"} {
 556                 puts "INFO: Generating PDF file from $TEX"
 557             }
 558             # ...and use it to generate PDF from TeX...
 559             puts "execute $LATEXDIR/make$PREFIX"
 560             set RESULT [catch {eval exec [auto_execok $LATEXDIR/make$PREFIX] > "$OUTDIR/pdflatex_out.log"} LaTeX_ERROR]
 561             if {$RESULT != 0} {
 562                 if {[llength [split $LaTeX_ERROR "\n"]] > 1} {
 563                     set LaTeX_ERROR_FILE [open "$OUTDIR/pdflatex_warnings_and_errors.log" "w"]
 564                     puts $LaTeX_ERROR_FILE $LaTeX_ERROR
 565                     close $LaTeX_ERROR_FILE
 566                 } else {
 567                     puts $DOX_ERROR
 568                 }
 569             }
 570
 571             # ...and place it to the specific folder
 572             if { [file exists $PDFDIR/$TEX.pdf] == 1 } {
 573                 file delete -force $PDFDIR/$TEX.pdf
 574             }
 575
 576             if {![file exists "$LATEXDIR/refman.pdf"]} {
 577               puts "file $LATEXDIR/refman.pdf doesn't exist"
 578               return
 579             }
 580
 581             file rename $LATEXDIR/refman.pdf "$PDFDIR/$TEX.pdf"
 582         }
 583         if {$verboseMode == "YES"} {
 584             puts "INFO: See LaTeX messages in $OUTDIR/pdflatex_warnings_and_errors.log"
 585         }
 586     }
 587
 588     cd $INDIR
 589     puts " [clock format [clock seconds] -format {%Y.%m.%d %H:%M}] Generation process finished..."
 590     puts ""
 591     puts "--------------------------------------------------------------------"
 592     if { $generatorMode == "HTML_ONLY" } {
 593         puts " You can look at generated HTML pages by opening: "
 594         set RESFILE $OUTDIR/overview/html/index.html
 595         puts " $RESFILE"
 596     }
 597     if { $generatorMode == "PDF_ONLY" } {
 598         puts " You can look at generated PDF files in: "
 599         puts " $OUTDIR/overview/pdf folder"
 600     }
 601     puts ""
 602     puts " Copyright \u00a9 Open CASCADE Technology 2001-2013"
 603     puts "--------------------------------------------------------------------\n"
 604 }
 605
 606 # A command for User Documentation compilation
 607 proc occdoc {args} {
 608     # Programm options
 609     set GEN_HTML  "NO"
 610     set GEN_PDF   "NO"
 611     set DOCFILES  {}
 612     set DOCLABEL  "Default OCCT Document"
 613     set VERB_MODE "NO"
 614     set GEN_MODE  "DEFAULT"
 615     global available_docfiles
 616     global args_names
 617     global args_values
 618
 619     # Load list of docfiles
 620     if { [OverviewDoc_LoadFilesList] != 0 } {
 621         puts "ERROR: File FILES.txt was not found"
 622         return
 623     }
 624
 625     # Parse CL arguments
 626     if {[OverviewDoc_ParseArguments $args] == 1} {
 627         return
 628     }
 629     if {$args_names == {}} {
 630         set GEN_HTML "YES"
 631         set VERB_MODE "YES"
 632     } else {
 633         foreach arg_n $args_names {
 634             if {$arg_n == "h"} {
 635               OverviewDoc_PrintHelpMessage
 636               return
 637             } elseif {$arg_n == "html"} {
 638                 set GEN_HTML "YES"
 639             } elseif {$arg_n == "pdf"} {
 640                 set GEN_PDF "YES"
 641             } elseif {$arg_n == "v"} {
 642                 set VERB_MODE "YES"
 643             } elseif {$arg_n == "m"} {
 644                 if {$args_values(m) != "NULL"} {
 645                     set DOCFILES $args_values(m)
 646                 } else {
 647                     puts "Error in argument m"
 648                     return
 649                 }
 650                 # Check if all chosen docfiles are correct
 651                 foreach docfile $DOCFILES {
 652                     if { [lsearch $available_docfiles $docfile] == -1 } {
 653                         puts "File \"$docfile\" is not presented in the list of available docfiles"
 654                         puts "Please, specify the correct docfile name"
 655                         return
 656                     } else {
 657                         puts "File $docfile is presented in FILES.TXT"
 658                     }
 659                 }
 660             } elseif {$arg_n == "l"} {
 661                 if { [llength $DOCFILES] <= 1 } {
 662                     if {$args_values(l) != "NULL"} {
 663                         set DOCLABEL $args_values(l)
 664                     } else {
 665                         puts "Error in argument l"
 666                         return
 667                     }
 668                 }
 669             } else {
 670                 puts "\nWrong argument: $arg_n"
 671                 OverviewDoc_PrintHelpMessage
 672                 return
 673             }
 674         }
 675     }
 676
 677     # Specify generation mode
 678     if {$GEN_HTML == "YES" && $GEN_PDF == "NO"} {
 679         set GEN_MODE "HTML_ONLY"
 680     } elseif {$GEN_PDF == "YES"} {
 681         set GEN_MODE "PDF_ONLY"
 682     }
 683     # Check if -v is the only option
 684     if {$GEN_MODE == "DEFAULT"} {
 685         if { $VERB_MODE == "YES" } {
 686             puts "\nArgument -v can't be used without -pdf or -html argument"
 687             OverviewDoc_PrintHelpMessage
 688         }
 689         return
 690     }
 691
 692     # Specify verbose mode
 693     if { $GEN_PDF != "YES" && [llength $DOCFILES] > 1 } {
 694         set DOCLABEL ""
 695     }
 696
 697     # If we don't specify list for docfiles with -m argument,
 698     # we assume that we have to generate all docfiles
 699     if { [llength $DOCFILES] == 0 } {
 700         set DOCFILES $available_docfiles
 701     }
 702
 703     # Start main activities
 704     OverviewDoc_Main $DOCFILES $GEN_MODE $DOCLABEL $VERB_MODE
 705 }