Integration of OCCT 6.5.0 from SVN

src/OS/ApplicationFramework.tcl

@@ -0,0 +1,118 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc ApplicationFramework:toolkits { } {
+    return [list \
+		PTKernel \
+		TKPShape \
+		TKCDF \
+		TKLCAF \
+                TKCAF \
+                TKBinL \
+                TKXmlL \
+		TKShapeSchema \
+                TKPLCAF \
+                TKBin \
+                TKXml \
+		TKPCAF \
+		FWOSPlugin \
+		TKStdLSchema \
+                TKStdSchema \
+                TKTObj \
+                TKBinTObj \
+                TKXmlTObj \
+           ]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc ApplicationFramework:ressources { } {
+    return [list  \
+		[list both r StdResource {}] \
+                [list both r XmlOcafResource {}] \
+	       ]
+}
+;#
+;# Nom du module 
+;#
+proc ApplicationFramework:name { } {
+    return ApplicationFramework
+}
+;#
+;# Short Nom du module  ( 3 lettres )
+;#
+proc ApplicationFramework:alias { } {
+    return CAF
+}
+proc ApplicationFramework:depends { } {
+    return [list Visualization]
+}
+;#
+;# Pre-requis pour la compilation ( -I ... )
+;# Returns a list of directory that should be used in -I directives
+;# while compiling c or c++ files.
+;#
+proc ApplicationFramework:CompileWith { } {
+
+
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+           lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+
+	IRIX {
+	    lappend l "/usr/include/CC"
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc ApplicationFramework:LinksoWith { } {
+
+
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l /usr/X11R6/lib
+	}
+	SunOS {
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltk"
+	}
+	IRIX  {
+	    lappend l /usr/lib32 
+	}
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc ApplicationFramework:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/DataExchange.tcl

@@ -0,0 +1,106 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc DataExchange:toolkits { } {
+    return [list TKXSBase TKSTEPBase TKSTEPAttr TKSTEP209 TKSTEP TKIGES \
+		TKXCAF TKXCAFSchema TKXDEIGES TKXDESTEP \
+		TKSTL TKVRML TKXmlXCAF TKBinXCAF]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc DataExchange:ressources { } {
+    return [list  \
+	    [list both r XSMessage {} ] \
+	    [list both r SHMessage {} ] \
+	    [list both r XSTEPResource {} ] \
+	    ]
+}
+;#
+;# retourne une liste de triplets {type <full path1> <target directory>/name}
+;# permet de faire : cp <full path> $CASROOT/<target directory>/name
+;# On peut ainsi embarquer des fichiers d'un peu partout et les dispatcher sous 
+;# la racine d'arrivee et ce avec un autre nom.
+;# rien n'empeche de CALCULER automatiquement des paths dans cette proc.
+;# type = source/runtime/both pour dire si le fichier va dans l'archive en question.
+;# une deux (ou les deux) type d'archive fabriquees. 
+;#
+proc DataExchange:freefiles { } {
+    return {}
+}
+;#
+;# Nom du module 
+;#
+proc DataExchange:name { } {
+    return DataExchange
+}
+proc DataExchange:alias { } {
+    return DXE
+}
+proc DataExchange:depends { } {
+    return [list ApplicationFramework]
+}
+;#
+;# Liste des includes utilises qui ne sont pas ceux des Wb.
+;#
+proc DataExchange:CompileWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+           lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+
+	IRIX {
+	   lappend l "/usr/include/CC" 
+	}
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc DataExchange:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	}
+	SunOS {
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltk"
+	}
+	IRIX {
+	    lappend l "/usr/lib32"
+	}
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc DataExchange:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/Draw.tcl

@@ -0,0 +1,108 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc Draw:toolkits { } {
+    return [list TKDraw TKTopTest TKViewerTest TKXSDRAW TKDCAF TKXDEDRAW TKTObjDRAW]
+}
+;#
+;# Autres UDs a prendre. Listes de triplets
+;# { ar typ UD str } Tous les types de UD vont dans un sous directory nomme root/str
+;# Ils seront dans CAS3.0/str de l'archive de type ar (source/runtime)
+;# { ar typ UD {}  } Tous les types de UD vont dans root/UD/src => CAS3.0/src
+;#
+proc Draw:ressources { } {
+    return [list \
+	    [list both r DrawResources {}] \
+	    [list both x DRAWEXE {}] \
+	    ]
+}
+proc Draw:freefiles { } {
+    return {}
+}
+;#
+;# Nom du module 
+;#
+proc Draw:name { } {
+    return Draw
+}
+proc Draw:alias { } {
+    return DWT
+}
+proc Draw:depends { } {
+    return [list DataExchange]
+}
+
+
+;#
+;# Pre-requis pour la compilation ( -I ... )
+;# Returns a list of directory that should be used in -I directives
+;# while compiling c or c++ files.
+;#
+proc Draw:CompileWith {} {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+            lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l [lindex [wokparam -v %CSF_CXX_INCLUDE] 0]
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include" 
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l /usr/include/CC
+	    lappend l /usr/tcltk/include/itcl
+	    lappend l /opt/Orbix_2.2/include
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc Draw:LinksoWith {} {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l -L/usr/X11R6/lib
+            lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib"
+            lappend l "-L[wokparam -v %STLPortHome]/lib"
+	}
+	SunOS {
+	    lappend l /usr/openwin/lib
+	    lappend l "[wokparam -v %CSF_TCL_HOME]/lib"
+	    lappend l /opt/DEV5_1/SUNWspro/SC4.2/include/CC
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	    lappend l /usr/tcltk.64/lib/itcl
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc Draw:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/FILES

@@ -0,0 +1,8 @@
+srcinc:::Modules.tcl
+srcinc:::Draw.tcl
+srcinc:::FoundationClasses.tcl
+srcinc:::ModelingAlgorithms.tcl
+srcinc:::ModelingData.tcl
+srcinc:::Visualization.tcl
+srcinc:::ApplicationFramework.tcl
+srcinc:::DataExchange.tcl

src/OS/FoundationClasses.tcl

@@ -0,0 +1,97 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc FoundationClasses:toolkits { } {
+    return [list TKernel TKMath TKAdvTools]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc FoundationClasses:ressources { } {
+        return [list    [list both r OS {} ]] \
+}
+;
+;#
+;# retourne une liste de triplets {type <full path1> <target directory>/name}
+;# permet de faire : cp <full path> $CASROOT/<target directory>/name
+;# On peut ainsi embarquer des fichiers d'un peu partout et les dispatcher sous 
+;# la racine d'arrivee et ce avec un autre nom.
+;# rien n'empeche de CALCULER automatiquement des paths dans cette proc.
+;# type = source/runtime/both pour dire si le fichier va dans l'archive en question.
+;# une deux (ou les deux) type d'archive fabriquees. 
+;#
+proc FoundationClasses:freefiles { } {}
+;#
+;# Nom du module 
+;#
+proc FoundationClasses:name { } {
+    return FoundationClasses
+}
+proc FoundationClasses:alias { } {
+    return FOC
+}
+proc FoundationClasses:depends { } {
+    return {}
+}
+;#
+;# Liste des includes utilises qui ne sont pas ceux des Wb.
+;#
+proc FoundationClasses:CompileWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/inclide/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+            lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]"
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/inclide/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l "/usr/include/CC"
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc FoundationClasses:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	}
+	SunOS {
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc FoundationClasses:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/ModelingAlgorithms.tcl

@@ -0,0 +1,103 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc ModelingAlgorithms:toolkits { } {
+    return [list TKGeomAlgo \
+		TKTopAlgo \
+		TKPrim \
+		TKBO \
+		TKBool \
+		TKHLR \
+		TKFillet \
+		TKOffset \
+		TKFeat \
+		TKMesh \
+		TKXMesh \
+		TKShHealing \
+	       ]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc ModelingAlgorithms:ressources { } {
+    
+}
+;#
+;# Nom du module 
+;#
+proc ModelingAlgorithms:name { } {
+    return ModelingAlgorithms
+}
+proc ModelingAlgorithms:alias { } {
+    return MLG
+}
+proc ModelingAlgorithms:depends { } {
+    return [list ModelingData]
+}
+;#
+;# Pre-requis pour la compilation ( -I ... )
+;# Returns a list of directory that should be used in -I directives
+;# while compiling c or c++ files.
+;#
+proc ModelingAlgorithms:CompileWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+           lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l "/usr/include/CC"
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc ModelingAlgorithms:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	}
+	SunOS {
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltk"
+	    lappend l /usr/openwin/lib
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc ModelingAlgorithms:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/ModelingData.tcl

@@ -0,0 +1,94 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc ModelingData:toolkits { } {
+    return [list TKG2d \
+	    TKG3d \
+	    TKGeomBase \
+	    TKBRep \
+	    ]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc ModelingData:ressources { } {
+    
+}
+;#
+;# Nom du module 
+;#
+proc ModelingData:name { } {
+    return ModelingData
+}
+proc ModelingData:alias { } {
+    return MDT
+}
+proc ModelingData:depends { } {
+    return [list FoundationClasses]
+}
+;#
+;# Pre-requis pour la compilation ( -I ... )
+;# Returns a list of directory that should be used in -I directives
+;# while compiling c or c++ files.
+;#
+proc ModelingData:CompileWith { } {
+
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+           lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l "/usr/include/CC"
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc ModelingData:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	}
+	SunOS {
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc ModelingData:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/Modules.tcl

@@ -0,0 +1,14 @@
+;#
+;# Retourne la liste ordonnee des noms de Modules
+;# 
+proc OS:Modules { {plat ""} } {
+    set ret [list FoundationClasses \
+	   ModelingData \
+	   ModelingAlgorithms \
+	   Visualization \
+	   ApplicationFramework \
+	   DataExchange \
+	   Draw \
+	   ]
+    return $ret
+}

src/OS/Visualization.tcl

@@ -0,0 +1,104 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc Visualization:toolkits { } {
+    return [list TKService \
+		 TKV2d \
+		 TKV3d \
+		 TKOpenGl \
+                 TKMeshVS \
+                 TKNIS \
+                 TKVoxel \
+	    ]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc Visualization:ressources { } {
+    return [list \
+	   [list both r FontMFT {}] \
+	   [list both r Textures {}] \
+	   [list both n VoxelClient {}] \
+	    ]
+}
+;#
+;# Nom du module 
+;#
+proc Visualization:name { } {
+    return Visualization
+}
+proc Visualization:alias { } {
+    return VIS
+}
+proc Visualization:depends { } {
+    return [list ModelingAlgorithms]
+}
+;#
+;# Pre-requis pour la compilation ( -I ... )
+;# Returns a list of directory that should be used in -I directives
+;# while compiling c or c++ files.
+;#
+proc Visualization:CompileWith {} {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+           lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]" 
+	}
+	SunOS {
+	    lappend l "\$OPENWINHOME/include"
+	    lappend l "/usr/openwin/include/X11"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l /usr/include/CC
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc Visualization:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l /usr/X11R6/lib
+	}
+	SunOS {
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltcl"
+	    lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib -R[wokparam -v %CSF_TCL_HOME]/lib -ltk"
+	    lappend l /usr/openwin/lib
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc Visualization:Export { } {
+    return [list source runtime wokadm api]
+}

src/OS/Wrappers.tcl

@@ -0,0 +1,97 @@
+;#
+;# Liste des toolkits WOK sous forme de full path
+;# 
+proc Wrappers:toolkits { } {
+    return [list TKjcas]
+}
+;#
+;# Autres UDs a prendre.
+;#
+proc Wrappers:ressources { } {
+    return {} \
+}
+;
+;#
+;# retourne une liste de triplets {type <full path1> <target directory>/name}
+;# permet de faire : cp <full path> $CASROOT/<target directory>/name
+;# On peut ainsi embarquer des fichiers d'un peu partout et les dispatcher sous 
+;# la racine d'arrivee et ce avec un autre nom.
+;# rien n'empeche de CALCULER automatiquement des paths dans cette proc.
+;# type = source/runtime/both pour dire si le fichier va dans l'archive en question.
+;# une deux (ou les deux) type d'archive fabriquees. 
+;#
+proc Wrappers:freefiles { } {}
+;#
+;# Nom du module 
+;#
+proc Wrappers:name { } {
+    return Wrappers
+}
+proc Wrappers:alias { } {
+    return FOC
+}
+proc Wrappers:depends { } {
+    return {}
+}
+;#
+;# Liste des includes utilises qui ne sont pas ceux des Wb.
+;#
+proc Wrappers:CompileWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/inclide/linux"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+            lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]"
+	}
+	SunOS {
+	    lappend l "/usr/openwin/include"
+	    lappend l "/usr/dt/include"
+	    lappend l "[lindex [wokparam -v %CSF_CXX_INCLUDE] 0]"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
+	    lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/inclide/solaris"
+	    lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
+	}
+	IRIX {
+	    lappend l "/usr/include/CC"
+	}
+
+    }
+    return $l
+}
+;#
+;# Pre-requis pour la compilation ( -L ... )
+;# Returns a list of directory that should be used in -L directives
+;# while creating shareable.
+;#
+proc Wrappers:LinksoWith { } {
+    
+    set l {}
+    switch -- [OS:os] {
+	HP-UX {
+	}
+	Linux {
+	}
+	SunOS {
+	}
+	IRIX {
+	    lappend l /usr/lib32 
+	}
+
+    }
+    return $l
+}
+;#
+;# Returns a list of exported features.
+;# source : Source files
+;# runtime: Shareables
+;# wokadm : WOK admin files
+;# api    : Public include files
+;#
+proc Wrappers:Export { } {
+    return [list source runtime wokadm api]
+}