From: cascade <cascade@opencascade.com>
Date: Fri, 23 Jun 2006 21:48:53 +0000 (+0000)
Subject: FIP Improve OCCT Reference Documentation
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=bb204530b1445b7b12d9c1b49a27abb4257f4efb;p=occt-wok.git

FIP Improve OCCT Reference Documentation
---

diff --git a/src/WOKTclLib/DocGenerate.tcl b/src/WOKTclLib/DocGenerate.tcl
index 9dc7692..357b79b 100755
--- 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 deccdb5..9b5c02e 100755
--- 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 49c924e..a55ebe9 100755
--- 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