From fa8cddfd0e84199bfeb3859a85b6853324bc9fd9 Mon Sep 17 00:00:00 2001 From: inv Date: Wed, 30 Jun 2010 10:38:11 +0000 Subject: [PATCH] OCC21674 Improve generator of reference documentation --- src/WOKTclLib/DocGenerate.tcl | 125 ---------------------------------- 1 file changed, 125 deletions(-) delete mode 100755 src/WOKTclLib/DocGenerate.tcl diff --git a/src/WOKTclLib/DocGenerate.tcl b/src/WOKTclLib/DocGenerate.tcl deleted file mode 100755 index bdc2594..0000000 --- a/src/WOKTclLib/DocGenerate.tcl +++ /dev/null @@ -1,125 +0,0 @@ - - -proc DocGenerate {theModule outDir isSearch} { - - global tcl_platform - global env - source [woklocate -p OS:source:OS.tcl] - set filelist {} - lappend filelist $outDir/../work/Standard_DefineHandle.hxx - if {[lsearch [OS -lm] $theModule] != -1 } { - set entity "module" - foreach tk [$theModule:toolkits] { - foreach pk [osutils:tk:units $tk] { - lappend filelist [uinfo -p -T pubinclude $pk] - } - } - } else { - if {[lsearch [w_info -l] $theModule] != -1} { - if {[uinfo -c $theModule] == "p"} { - set entity "package" - lappend filelist [uinfo -p -T pubinclude $theModule] - } elseif {[uinfo -c $theModule] == "t"} { - set entity "toolkit" - foreach pk [osutils:tk:units $theModule] { - lappend filelist [uinfo -p -T pubinclude $pk] - } - } - } else { - msgprint -e -c "WOKStep_DocGenerate:Execute" "Entity $theModule is unknown or unsupported. Choose among [OS -lm] or [w_info -l]" - return 0 - } - } -# if {$tcl_platform(platform) == "windows"} { -# set filename "$env(TMP)/Doxybuffer" -# } else { -# set filename "/tmp/Doxybuffer" -# } -## set FileName [ clock seconds ] -## set TempDirName "" -## set CatchValue [ catch { set TempDirName $env(TMP) } ] -## if { $CatchValue == 1 } { -## if { $tcl_platform(platform) == "windows" } { -## set TempDirName "$env(SYSTEMDRIVE)\\" -## } else { -## set TempDirName "/tmp/" -## } -## } -## set filename "" -## append filename $TempDirName -## append filename $FileName - - set admDir "" - if {[file exists $outDir/adm] == 1} { - if {[file isdirectory $outDir/adm] == 0} { - set admDir "." - } else { - set admDir "adm" - } - } else { - mkdir $outDir/adm - set admDir "adm" - } - - set filename "$outDir/$admDir/$theModule" - set fileid [open $filename "w"] - set failed 0 - - puts $fileid "PROJECT_NAME = Open CASCADE" - puts $fileid "OUTPUT_DIRECTORY = $outDir/${theModule}" - puts $fileid "CREATE_SUBDIRS = NO" - puts $fileid "OUTPUT_LANGUAGE = English" - puts $fileid "DETAILS_AT_TOP = NO" - puts $fileid "MULTILINE_CPP_IS_BRIEF = YES" - puts $fileid "INHERIT_DOCS = YES" - puts $fileid "REPEAT_BRIEF = NO" - puts $fileid "ALWAYS_DETAILED_SEC = NO" - puts $fileid "INLINE_INHERITED_MEMB = NO" - puts $fileid "FULL_PATH_NAMES = NO" - puts $fileid "OPTIMIZE_OUTPUT_FOR_C = YES" - puts $fileid "SUBGROUPING = YES" - puts $fileid "DISTRIBUTE_GROUP_DOC = YES" - puts $fileid "EXTRACT_ALL = YES" - puts $fileid "EXTRACT_PRIVATE = YES" - puts $fileid "EXTRACT_LOCAL_CLASSES = NO" - puts $fileid "EXTRACT_LOCAL_METHODS = NO" - puts $fileid "HIDE_FRIEND_COMPOUNDS = YES" - puts $fileid "HIDE_UNDOC_MEMBERS = NO" - puts $fileid "BRIEF_MEMBER_DESCR = NO" - puts $fileid "INLINE_INFO = YES" - puts $fileid "SHOW_DIRECTORIES = NO" - puts $fileid "VERBATIM_HEADERS = NO" - puts $fileid "QUIET = YES" - puts $fileid "WARNINGS = NO" - puts $fileid "ENABLE_PREPROCESSING = YES" - puts $fileid "GENERATE_HTML = YES" - puts $fileid "GENERATE_LATEX = NO" - puts $fileid "SEARCH_INCLUDES = YES" -# puts $fileid "GENERATE_TAGFILE = $outDir/${theModule}.tag" - if {[string compare $isSearch "TRUE"] == 0} { - puts $fileid "SEARCHENGINE = YES" - } - puts $fileid "HAVE_DOT = YES" - puts $fileid "DOT_PATH = [wokparam -v %CSF_GRAPHVIZ_HOME]" - puts $fileid "COLLABORATION_GRAPH = NO" - puts $fileid "ENABLE_PREPROCESSING = YES" - puts $fileid "INCLUDE_FILE_PATTERNS = *.hxx *.pxx" - puts $fileid "EXCLUDE_PATTERNS = Handle_*.hxx" - puts $fileid "SKIP_FUNCTION_MACROS = YES" - puts $fileid "INCLUDE_GRAPH = NO" - puts $fileid "INCLUDED_BY_GRAPH = NO" - puts $fileid "GROUP_GRAPH = YES" - puts $fileid "DOT_MULTI_TARGETS = YES" - puts $fileid "DOT_IMAGE_FORMAT = png" - puts $fileid "INLINE_SOURCES = NO" - puts $fileid "INPUT = $outDir/../work [wokparam -v %[wokinfo -n [wokinfo -w]]_Home]/inc" - puts $fileid "FILE_PATTERNS = \\" - foreach ID $filelist { - puts $fileid " $ID \\" - } - close $fileid - msgprint -i -c "WOKStep_DocGenerate:Execute" "Processing $entity : $theModule. Writting to $outDir " - catch {eval exec [lindex [wokparam -v %CSF_DOXIGEN] 0] $filename} -## exec rm $filename - return $failed -} -- 2.39.5