FIP Improve OCCT Reference Documentation

diff --git a/src/WOKTclLib/DocGenerate.tcl b/src/WOKTclLib/DocGenerate.tcl
index 9dc76920d1699324dc0439d7f47a0b33381d0ad1..357b79b5221a2e97fbd70c90ea44983019108703 100755 (executable)
--- a/src/WOKTclLib/DocGenerate.tcl
+++ b/src/WOKTclLib/DocGenerate.tcl
@@ -34,19 +34,33 @@ proc DocGenerate {theModule outDir} {
 # } 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)\\"
+## 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 TempDirName "/tmp/"
+         set admDir "adm"
      }
+ } else {
+     mkdir $outDir/adm
+     set admDir "adm"
  }
- set filename ""
- append filename $TempDirName
- append filename $FileName
+ 
+ set filename "$outDir/$admDir/$theModule"
  set fileid [open $filename "w"]
  set failed 0
 
@@ -102,6 +116,6 @@ proc DocGenerate {theModule outDir} {
  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
+## exec rm $filename
  return $failed
 }

diff --git a/src/WOKTclLib/FILES b/src/WOKTclLib/FILES
index deccdb5f3ffce8336aa9d6198ae14047eff77d10..9b5c02ed49e0d31f2f987aa099755b918063e172 100755 (executable)
--- a/src/WOKTclLib/FILES
+++ b/src/WOKTclLib/FILES
@@ -155,3 +155,4 @@ srcinc:::config.h
 srcinc:::opencascade.gif
 srcinc:::woksh.el
 srcinc:::DocGenerate.tcl
+srcinc:::OCCTDocumentation.tcl

diff --git a/src/WOKTclLib/config.h b/src/WOKTclLib/config.h
index 49c924e92995dbc469d64b567b756d1c98144d63..a55ebe93f65c983031dcf8bfa8884b10c6250184 100755 (executable)
--- a/src/WOKTclLib/config.h
+++ b/src/WOKTclLib/config.h
@@ -97,7 +97,7 @@
 /* #undef HAVE_LIBINKS */
 
 /* Define to 1 if you have the <limits> header file. */
-#define HAVE_LIMITS 1
+#define HAVE_LIMITS_H 1
 
 /* Define if we have a function called "mallinfo" in -lmalloc. */
 /* #undef HAVE_MALLINFO */
@@ -711,7 +711,7 @@
 #define HAVE_FINITE 
 
 /* Define if you have the <floatingpoint.h> header file. */
-#undef HAVE_FLOATINGPOINT_H 1
+/*#undef HAVE_FLOATINGPOINT_H */
 
 /* Define if you have the <float.h> header file. */
 #define HAVE_FLOAT_H 1