blob: dde721707d4497552780edcbbf8ad81455897d0d (
plain)
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]
}
|
