From: cascade Date: Fri, 23 Jun 2006 21:48:54 +0000 (+0000) Subject: Initial revision X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=58ddb26a3b7685adbcace850e44d81fde493146e;p=occt-wok.git Initial revision --- diff --git a/src/WOKTclLib/OCCTDocumentation.tcl b/src/WOKTclLib/OCCTDocumentation.tcl new file mode 100755 index 0000000..e5dc205 --- /dev/null +++ b/src/WOKTclLib/OCCTDocumentation.tcl @@ -0,0 +1,722 @@ +set OCCTDoc_DocLocation $env(OCCTDoc_Location) + +set OCCTDoc_DescriptionUnit "OS" + +proc OCCTDoc_UpdateDoxygenDocumentation {} { + global OCCTDoc_RWorkbench + global OCCTDoc_DescriptionUnit + + set path_RWorkbench [pwd] + + # verify is file Modules.tcl present in specific location + if {[file exists $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/Modules.tcl] != 1} { + puts "File $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/Modules.tcl is absent." + puts " It is impossible to continue the scripts." + return + } + + # get the list of modules + set modulesList {} + source $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/Modules.tcl + set modulesList [$OCCTDoc_DescriptionUnit:Modules] + + # processing the list of modules and prepare the list of toolkits + set toolkitsListOfList {} + foreach moduleName $modulesList { + set toolkitsList {} + if {[file exists $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/$moduleName.tcl]==1} { + source $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/$moduleName.tcl + set toolkitsList [$moduleName:toolkits] + } else { + puts "File $path_RWorkbench/src/$OCCTDoc_DescriptionUnit/$moduleName.tcl is absent." + puts " It is impossible to get information about toolkits in the module $moduleName." + } + lappend toolkitsListOfList $toolkitsList + } + + # processing the list of toolkits and prepare the list of packages + set packagesListOfListOfList {} + foreach toolkitsListList $toolkitsListOfList { + set packagesListOfList {} + foreach toolkitName $toolkitsListList { + set packagesList {} + if {[file exists $path_RWorkbench/src/$toolkitName/PACKAGES] == 1} { + set file_PACKAGES [open $path_RWorkbench/src/$toolkitName/PACKAGES RDONLY] + while {[eof $file_PACKAGES] == 0} { + set packageName [string trim [gets $file_PACKAGES]] + if {[string length $packageName]!=0} { + lappend packagesList $packageName + } + } + close $file_PACKAGES + } else { + puts "File $path_RWorkbench/src/$toolkitName/PACKAGES is absent." + puts " It is impossible to get information about packages in the toolkit $toolkitName." + } + lappend packagesListOfList $packagesList + } + lappend packagesListOfListOfList $packagesListOfList + } + + # creating of main HTML page + set retValue [OCCTDoc_CreateMainDoc $modulesList $toolkitsListOfList $packagesListOfListOfList] + if {$retValue == 1} { + puts "It is impossible to update documentation created by doxygen." + return + } +} + +proc OCCTDoc_CreateMainDoc {modulesList toolkitsListOfList packagesListOfListOfList} { + global OCCTDoc_DocLocation + set file_modulesHTML [open $OCCTDoc_DocLocation/index.html {CREAT TRUNC RDWR}] + puts $file_modulesHTML "" + puts $file_modulesHTML "" + puts $file_modulesHTML "OpenCASCADE Modules" + puts $file_modulesHTML "" + puts $file_modulesHTML "" +# puts $file_modulesHTML "
OCC Main Page | OCC Modules
" + puts $file_modulesHTML "

OpenCASCADE
Modules

" + puts $file_modulesHTML "
" + puts $file_modulesHTML "" + puts $file_modulesHTML "
" + puts $file_modulesHTML "" + puts $file_modulesHTML "" + close $file_modulesHTML + if {$isPrepared == 0} { + exec rm $OCCTDoc_DocLocation/index.html + exec rm $OCCTDoc_DocLocation/doxygen.css + return 1 + } + return 0 +} + +proc OCCTDoc_UpdateModuleIndex {moduleName} { + global OCCTDoc_DocLocation + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/$moduleName\_index.html] == 1} { + set file_newModuleIndex [open $OCCTDoc_DocLocation/$moduleName/html/$moduleName\_index.html {TRUNC RDWR}] + set file_oldModuleIndex [open $OCCTDoc_DocLocation/$moduleName/html/index.html RDONLY] + while {[eof $file_oldModuleIndex] == 0} { + set isLineWrited 0 + set line_OfFile [string trim [gets $file_oldModuleIndex]] + if {[string compare [string range $line_OfFile 0 6] ""] == 0} { + puts $file_newModuleIndex "<title>OpenCASCADE: $moduleName" + set isLineWrited 1 + } + if {[string compare [string range $line_OfFile 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } + if {[string compare [string range $line_OfFile 0 3] "

"] == 0} { + puts $file_newModuleIndex "

$moduleName Documentation

" + set isLineWrited 1 + } + if {$isLineWrited == 0} { + puts $file_newModuleIndex $line_OfFile + } + } + close $file_oldModuleIndex + close $file_newModuleIndex + OCCTDoc_UpdateModuleHTMLFiles $moduleName + } else { + puts "File $OCCTDoc_DocLocation/$moduleName/html/$moduleName\_index.html is absent." + puts " Documentation for $moduleName is not updated." + } +} + +proc OCCTDoc_UpdateModuleHTMLFiles {moduleName} { + global OCCTDoc_DocLocation + # Processing the file annotated.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/annotated.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/annotated.html $OCCTDoc_DocLocation/$moduleName/html/annotated.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/annotated.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/annotated.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file files.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/files.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/files.html $OCCTDoc_DocLocation/$moduleName/html/files.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/files.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/files.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions.html $OCCTDoc_DocLocation/$moduleName/html/functions.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions_enum.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions_enum.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions_enum.html $OCCTDoc_DocLocation/$moduleName/html/functions_enum.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions_enum.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions_enum.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions_eval.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions_eval.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions_eval.html $OCCTDoc_DocLocation/$moduleName/html/functions_eval.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions_eval.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions_eval.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions_func.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions_func.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions_func.html $OCCTDoc_DocLocation/$moduleName/html/functions_func.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions_func.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions_func.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions_rela.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions_rela.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions_rela.html $OCCTDoc_DocLocation/$moduleName/html/functions_rela.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions_rela.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions_rela.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file functions_vars.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/functions_vars.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/functions_vars.html $OCCTDoc_DocLocation/$moduleName/html/functions_vars.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/functions_vars.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/functions_vars.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals.html $OCCTDoc_DocLocation/$moduleName/html/globals.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_defs.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_defs.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_defs.html $OCCTDoc_DocLocation/$moduleName/html/globals_defs.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_defs.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_defs.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_enum.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_enum.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_enum.html $OCCTDoc_DocLocation/$moduleName/html/globals_enum.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_enum.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_enum.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_eval.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_eval.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_eval.html $OCCTDoc_DocLocation/$moduleName/html/globals_eval.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_eval.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_eval.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_func.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_func.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_func.html $OCCTDoc_DocLocation/$moduleName/html/globals_func.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_func.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_func.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_type.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_type.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_type.html $OCCTDoc_DocLocation/$moduleName/html/globals_type.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_type.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_type.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file globals_vars.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/globals_vars.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/globals_vars.html $OCCTDoc_DocLocation/$moduleName/html/globals_vars.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/globals_vars.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/globals_vars.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file graph_legend.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/graph_legend.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/graph_legend.html $OCCTDoc_DocLocation/$moduleName/html/graph_legend.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/graph_legend.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/graph_legend.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file hierarchy.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/hierarchy.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/hierarchy.html $OCCTDoc_DocLocation/$moduleName/html/hierarchy.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/hierarchy.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/hierarchy.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } + # Processing the file inherits.html + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/inherits.html] == 1} { + exec cp $OCCTDoc_DocLocation/$moduleName/html/inherits.html $OCCTDoc_DocLocation/$moduleName/html/inherits.html.old + set isLineWrited 0 + set file_new [open $OCCTDoc_DocLocation/$moduleName/html/inherits.html {RDWR TRUNC}] + set file_old [open $OCCTDoc_DocLocation/$moduleName/html/inherits.html.old RDONLY] + while {[eof $file_old] == 0} { + set fileLine [string trim [gets $file_old]] + if {[string compare [string range $fileLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + set isLineWrited 1 + } else { + puts $file_new $fileLine + } + } else { + puts $file_new $fileLine + } + } + close $file_old + close $file_new + } +} + +proc OCCTDoc_CreateToolkitHTML {moduleName toolkitsList packagesListOfList} { + global OCCTDoc_DocLocation + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/toolkits] == 0} { + exec mkdir $OCCTDoc_DocLocation/$moduleName/html/toolkits + } + set file_toolkitsHTML [open $OCCTDoc_DocLocation/$moduleName/html/toolkits.html {CREAT TRUNC RDWR}] + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "$moduleName: Toolkits" + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_toolkitsHTML "

$moduleName
Toolkits

" + puts $file_toolkitsHTML "
" + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "
" + puts $file_toolkitsHTML "" + puts $file_toolkitsHTML "" + close $file_toolkitsHTML +} + +proc OCCTDoc_CreatePackageHTML {moduleName toolkitsList packagesListOfList} { + global OCCTDoc_DocLocation + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/packages] == 0} { + exec mkdir $OCCTDoc_DocLocation/$moduleName/html/packages + } + set file_packagesHTML [open $OCCTDoc_DocLocation/$moduleName/html/packages.html {CREAT TRUNC RDWR}] + puts $file_packagesHTML "" + puts $file_packagesHTML "" + puts $file_packagesHTML "$moduleName: Packages" + puts $file_packagesHTML "" + puts $file_packagesHTML "" + puts $file_packagesHTML "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_packagesHTML "

$moduleName
Packages

" + puts $file_packagesHTML "
" + puts $file_packagesHTML "" + puts $file_packagesHTML "
" + puts $file_packagesHTML "" + puts $file_packagesHTML "" + close $file_packagesHTML +} + +proc OCCTDoc_ProcessToolkitsHTML {moduleName toolkitName packagesList} { + global OCCTDoc_DocLocation + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/toolkits] == 0} { + exec mkdir $OCCTDoc_DocLocation/$moduleName/html/toolkits + } + set file_toolkitHTML [open $OCCTDoc_DocLocation/$moduleName/html/toolkits/$toolkitName.html {CREAT TRUNC RDWR}] + puts $file_toolkitHTML "" + puts $file_toolkitHTML "" + puts $file_toolkitHTML "$moduleName: $toolkitName: Packages" + puts $file_toolkitHTML "" + puts $file_toolkitHTML "" + puts $file_toolkitHTML "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_toolkitHTML "

$moduleName
$toolkitName
Packages

" + puts $file_toolkitHTML "
" + puts $file_toolkitHTML "" + puts $file_toolkitHTML "
" + puts $file_toolkitHTML "" + puts $file_toolkitHTML "" + close $file_toolkitHTML +} + +proc OCCTDoc_ProcessPackagesHTML {moduleName toolkitName packageName} { + global OCCTDoc_DocLocation + if {[file exists $OCCTDoc_DocLocation/$moduleName/html/packages] == 0} { + exec mkdir $OCCTDoc_DocLocation/$moduleName/html/packages + } + set file_packageHTML [open $OCCTDoc_DocLocation/$moduleName/html/packages/$packageName.html {CREAT TRUNC RDWR}] + puts $file_packageHTML "" + puts $file_packageHTML "" + puts $file_packageHTML "$moduleName: $toolkitName: $packageName: Classes" + puts $file_packageHTML "" + puts $file_packageHTML "" + puts $file_packageHTML "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_packageHTML "

$moduleName
$toolkitName
$packageName
Classes

" + puts $file_packageHTML "
" + puts $file_packageHTML "" + puts $file_packageHTML "" + puts $file_packageHTML "
" + puts $file_packageHTML "" + puts $file_packageHTML "" + close $file_packageHTML +} + +proc OCCTDoc_UpdateClassDescriptionFile {pathToFile moduleName toolkitName packageName} { + global OCCTDoc_DocLocation + set updatedPath [string trim $pathToFile] + set backPath "" + set empty 0 + while {$empty == 0} { + set positionNumber [string first / $updatedPath] + if {$positionNumber == -1} { + break + } else { + append backPath "../" + set updatedPath [string trim [string range $updatedPath [expr {$positionNumber + 1}] [string length $updatedPath]]] + } + } + set file_ClassHTML_old "$OCCTDoc_DocLocation/$moduleName/html/$pathToFile.old" + set file_ClassHTML_new "$OCCTDoc_DocLocation/$moduleName/html/$pathToFile" + if {[file exists $file_ClassHTML_new] == 1} { + exec cp $file_ClassHTML_new $file_ClassHTML_old + set isLineWrited 0 + set file_classHTML_new [open $file_ClassHTML_new {RDWR TRUNC}] + set file_classHTML_old [open $file_ClassHTML_old RDONLY] + while {[eof $file_classHTML_old] == 0} { + set classLine [string trim [gets $file_classHTML_old]] + if {[string compare [string range $classLine 0 6] "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_classHTML_new "
OCC Main Page | $moduleName | Toolkits | Packages | Class Hierarchy | Data Structures | File List | Data Fields | Globals
" + puts $file_classHTML_new "

$moduleName
$toolkitName
$packageName

" + puts $file_classHTML_new "
" + set isLineWrited 1 + } else { + puts $file_classHTML_new $classLine + } + } else { + puts $file_classHTML_new $classLine + } + } + close $file_classHTML_old + close $file_classHTML_new + } else { + puts "$file_ClassHTML_new is absent" + } +}