/usr/share/oce-0.8.0/src/OS/Draw.tcl is in liboce-foundation1 0.8.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 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]
}
|