src/OS/Draw.tcl

   1 ;#
   2 ;# Liste des toolkits WOK sous forme de full path
   3 ;#
   4 proc Draw:toolkits { } {
   5     return [list TKDraw TKTopTest TKViewerTest TKXSDRAW TKDCAF TKXDEDRAW TKTObjDRAW]
   6 }
   7 ;#
   8 ;# Autres UDs a prendre. Listes de triplets
   9 ;# { ar typ UD str } Tous les types de UD vont dans un sous directory nomme root/str
  10 ;# Ils seront dans CAS3.0/str de l'archive de type ar (source/runtime)
  11 ;# { ar typ UD {}  } Tous les types de UD vont dans root/UD/src => CAS3.0/src
  12 ;#
  13 proc Draw:ressources { } {
  14     return [list \
  15             [list both r DrawResources {}] \
  16             [list both x DRAWEXE {}] \
  17             ]
  18 }
  19 proc Draw:freefiles { } {
  20     return {}
  21 }
  22 ;#
  23 ;# Nom du module
  24 ;#
  25 proc Draw:name { } {
  26     return Draw
  27 }
  28 proc Draw:alias { } {
  29     return DWT
  30 }
  31 proc Draw:depends { } {
  32     return [list DataExchange]
  33 }
  34
  35
  36 ;#
  37 ;# Pre-requis pour la compilation ( -I ... )
  38 ;# Returns a list of directory that should be used in -I directives
  39 ;# while compiling c or c++ files.
  40 ;#
  41 proc Draw:CompileWith {} {
  42
  43     set l {}
  44     switch -- [OS:os] {
  45         HP-UX {
  46         }
  47         Linux {
  48             lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
  49             lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/linux"
  50             lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
  51             lappend l "[lindex [lindex [wokparam -v %STLPortInclude] 0] 0]"
  52         }
  53         SunOS {
  54             lappend l "/usr/openwin/include"
  55             lappend l "/usr/dt/include"
  56             lappend l [lindex [wokparam -v %CSF_CXX_INCLUDE] 0]
  57             lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include"
  58             lappend l "-I[lindex [wokparam -v %CSF_JavaHome] 0]/include/solaris"
  59             lappend l "[lindex [wokparam -v %CSF_TCL_HOME] 0]/include"
  60         }
  61         IRIX {
  62             lappend l /usr/include/CC
  63             lappend l /usr/tcltk/include/itcl
  64             lappend l /opt/Orbix_2.2/include
  65         }
  66
  67     }
  68     return $l
  69 }
  70 ;#
  71 ;# Pre-requis pour la compilation ( -L ... )
  72 ;# Returns a list of directory that should be used in -L directives
  73 ;# while creating shareable.
  74 ;#
  75 proc Draw:LinksoWith {} {
  76
  77     set l {}
  78     switch -- [OS:os] {
  79         HP-UX {
  80         }
  81         Linux {
  82             lappend l -L/usr/X11R6/lib
  83             lappend l "-L[wokparam -v %CSF_TCL_HOME]/lib"
  84             lappend l "-L[wokparam -v %STLPortHome]/lib"
  85         }
  86         SunOS {
  87             lappend l /usr/openwin/lib
  88             lappend l "[wokparam -v %CSF_TCL_HOME]/lib"
  89             lappend l /opt/DEV5_1/SUNWspro/SC4.2/include/CC
  90         }
  91         IRIX {
  92             lappend l /usr/lib32
  93             lappend l /usr/tcltk.64/lib/itcl
  94         }
  95
  96     }
  97     return $l
  98 }
  99 ;#
 100 ;# Returns a list of exported features.
 101 ;# source : Source files
 102 ;# runtime: Shareables
 103 ;# wokadm : WOK admin files
 104 ;# api    : Public include files
 105 ;#
 106 proc Draw:Export { } {
 107     return [list source runtime wokadm api]
 108 }