-;#
-;# Open source Tcl utilities. This contains material to automatically create
-;# MS project or automake builders from the OpenCascade modules definition.
-;# This file requires:
-;# 1. Tcl utilities of Wok.
-;# 2. Wok commands and workbench environment.
-;#
-;# Author: yolanda_forbes@hotmail.com
-;#
-;# (((((((((((((((((((((((( MS PROJECT )))))))))))))))))))))))
-;#
-;# the full path of a MS project template file.
-;# Should be overwritten
-;#
-proc osutils:vcproj:readtemplate { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vcproj]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:vcproj:readtemplatex { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vcprojx]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:dsp:readtemplate { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.dsp ]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:dsp:readtemplatex { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.dspx]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:mak:readtemplate { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.mak ]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:mak:readtemplatex { } {
- puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.makx]]"
- return [wokUtils:FILES:FileToString $loc]
-}
-proc osutils:am:readtemplate { } {
- puts stderr "Info : readtemplate : Template for Makefile.am from [set loc [woklocate -p WOKTclLib:source:template.mam]]"
- return [wokUtils:FILES:FileToString $loc]
-
-}
-proc osutils:am:readtemplatex { } {
- puts stderr "Info : readtemplatex : Template for Makefile.am from [set loc [woklocate -p WOKTclLib:source:template.mamx]]"
- return [wokUtils:FILES:FileToString $loc]
-
-}
-proc osutils:in:readtemplate { } {
- puts stderr "Info : readtemplate : Template for Makefile.in from [set loc [woklocate -p WOKTclLib:source:template.min]]"
- return [wokUtils:FILES:FileToString $loc]
-
-}
-proc osutils:in:readtemplatex { } {
- puts stderr "Info : readtemplatex : Template for Makefile.in from [set loc [woklocate -p WOKTclLib:source:template.minx]]"
- return [wokUtils:FILES:FileToString $loc]
-
-}
-;#
-;#
-;#
-proc osutils:dsw:header { } {
- append var \
- "Microsoft Developer Studio Workspace File, Format Version 6.00" "\n" \
- "# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!" "\n" \
- "\n" \
- "###############################################################################" "\n" \
- "\n"
- return $var
-}
-proc osutils:sln:header { } {
- append var \
- "Microsoft Visual Studio Solution File, Format Version 8.00\n"
- return $var
-}
-;#
-;# the leaf of a workspace file
-;#
-proc osutils:dsw:projectleaf { TK } {
- append var \
- "Project: \"$TK\"=.\\$TK.dsp - Package Owner=<4>" "\n" \
- "\n" \
- "Package=<5>" "\n" \
- "\{\{\{" "\n" \
- "\}\}\}" "\n" \
- "\n" \
- "Package=<4>" "\n" \
- "\{\{\{" "\n" \
- "\}\}\}" "\n" \
- "\n" \
- "###############################################################################" "\n" \
- "\n"
- return $var
-}
-;#
-;# an item of a workspace file
-;#
-proc osutils:dsw:projectby2 { TK Dep_Name } {
- append var \
- "Project: \"$TK\"=.\\$TK.dsp - Package Owner=<4>" "\n" \
- "\n" \
- "Package=<5>" "\n" \
- "\{\{\{" "\n" \
- "\}\}\}" "\n" \
- "\n" \
- "Package=<4>" "\n" \
- "\{\{\{" "\n"
- if {[wokinfo -x $TK] != "0"} {
- if {[uinfo -t $TK] == "toolkit"} {
- set deplist [LibToLink $TK]
- } else {
- set deplist [LibToLinkX $TK $TK]
- ;#puts $deplist
- }
- foreach deplib $deplist {
- if {$deplib != $TK} {
- append var " Begin Project Dependency" "\n" \
- " Project_Dep_Name $deplib" "\n" \
- " End Project Dependency" "\n"
- }
- }
- }
-
- append var "\}\}\}" "\n" \
- "\n" \
- "###############################################################################" "\n" \
- "\n"
- return $var
-}
-;#
-;#
-;#
-proc osutils:dsw:footer { } {
- append var \
- "Global:" "\n" \
- "\n" \
- "Package=<5>" "\n" \
- "{{{" "\n" \
- "}}}" "\n" \
- "\n" \
- "Package=<3>" "\n" \
- "{{{" "\n" \
- "}}}" "\n" \
- "\n" \
- "###############################################################################" "\n"
- return $var
-}
-;#
-;# An item for compiling a c++ class
-;#
-proc osutils:dsp:fmtcpp { } {
- return {# ADD CPP /I ..\..\inc /I ..\..\drv\%s /I ..\..\src\%s /D "__%s_DLL"}
-}
-proc osutils:mak:fmtcpp { } {
- return {CPP_SWITCHES=$(CPP_PROJ) /I ..\..\inc /I ..\..\drv\%s /I ..\..\src\%s /D "__%s_DLL"}
-}
-;#
-;# An item for compiling a c++ main
-;#
-proc osutils:dsp:fmtcppx { } {
- return {# ADD CPP /I ..\..\inc /I ..\..\drv\%s /I ..\..\src\%s /D "__%s_DLL"}
-}
-proc osutils:vcproj:fmtcpp { } {
- return {AdditionalIncludeDirectories="..\..\inc,..\..\drv\%s,..\..\src\%s"
- PreprocessorDefinitions="__%s_DLL;"}
-}
-proc osutils:vcproj:fmtcppx { } {
- return {AdditionalIncludeDirectories="..\..\inc,..\..\drv\%s,..\..\src\%s"
- PreprocessorDefinitions="__%s_DLL;$(NoInherit)"}
-}
-proc osutils:mak:fmtcppx { } {
- return {CPP_SWITCHES=$(CPP_PROJ) /I ..\..\inc /I ..\..\drv\%s /I ..\..\src\%s /D "__%s_DLL"}
-}
-;#
-;# List extensions of files devoted to be eaten by cl.exe compiler.
-;#
-proc osutils:dsp:compilable { } {
- return [list .c .cxx .cpp]
-}
-proc osutils:vcproj:compilable { } {
- return [list .c .cxx .cpp]
-}
-;#
-;# remove from listloc OpenCascade units indesirables on NT
-;#
-proc osutils:juststation {goaway listloc} {
- set lret {}
- foreach u $listloc {
- if {
- (
- [woklocate -u $u] != ""
- &&
- [lsearch $goaway [wokinfo -n [woklocate -u $u]]] == -1
- )
- ||
- (
- [woklocate -u $u] == ""
- &&
- [lsearch $goaway [wokinfo -n $u]] == -1
- )
-
- } {
- lappend lret $u
- }
- }
- return $lret
-}
-
-proc osutils:justwnt { listloc } {
- set goaway [list Xdps Xw ImageUtility WOKUnix]
- return [osutils:juststation $goaway $listloc]
-}
-;#
-;# remove from listloc OpenCascade units indesirables on Unix
-;#
-proc osutils:justunix { listloc } {
- set goaway [list WNT WOKNT]
- return [osutils:juststation $goaway $listloc]
-}
-;#
-;# Define libraries to link
-proc LibToLink {tkit} {
- if {[uinfo -t $tkit] == "toolkit"} {
- set l {}
- set LibList [woklocate -p [wokinfo -n $tkit]:stadmfile:[wokinfo -n $tkit]_lib_tks.Out]
- if ![ catch { set id [ open $LibList r ] } status ] {
- while {[gets $id x] >= 0 } {
- if [regexp -- {(-E[^ ]*)} $x] {
- set endnameid [expr { [string wordend $x 4] -1 }]
- set fx [string range $x 3 $endnameid]
- if {[uinfo -t [woklocate -u [file rootname $fx]]] == "toolkit"} {
- lappend l $fx
- }
- }
- #if [regexp -- {(-VE[^ ]*)} $x] {
- # set startid [string first CSF $x]
- # set endid [ expr { [string wordend $x $startid] -1 } ]
- # set fx [string range $x $startid $endid]
- # lappend l $fx
- #}
-
- }
- close $id
- } else {
- puts $status
- }
- return $l
- }
-}
-
-proc LibToLinkX {tkit name} {
- if {[uinfo -t $tkit] == "executable"} {
- set l {}
- set LibList [woklocate -p [wokinfo -n $tkit]:stadmfile:[wokinfo -n $tkit]_exec_tks_${name}.Out]
- if ![ catch { set id [ open $LibList r ] } status ] {
- while {[gets $id x] >= 0 } {
- if [regexp -- {(-E[^ ]*)} $x] {
- if {[regexp -- {library} $x]} {
- set endnameid [expr { [string wordend $x 4] -1 }]
- set fx [string range $x 3 $endnameid]
- lappend l $fx
- }
- }
- #if [regexp -- {(-VE[^ ]*)} $x] {
- # set startid [string first CSF $x]
- # set endid [ expr { [string wordend $x $startid] -1 } ]
- # set CSF_fx [string range $x $startid $endid]
- # if { $CSF_fx != "-"} {
- # puts $CSF_fx
- # set fx [file tail [lindex [wokparam -v \%$CSF_fx $tkit] 0]]
- # lappend l $fx
- # }
- #}
-
- }
- close $id
- } else {
- puts $status
- }
- return $l
- }
-}
-
-
-;#
-;# ((((((((WOK toolkits manipulations))))))))
-;#
-;# close dependencies of ltk. (full wok pathes of toolkits)
-;# The CURRENT WOK LOCATION MUST contains ALL TOOLKITS required.
-;# (locate not performed.)
-proc osutils:tk:close { ltk } {
- set result {}
- set recurse {}
- foreach dir $ltk {
- #set ids [woklocate -p [wokinfo -n [wokinfo -u $dir]]:source:EXTERNLIB [wokinfo -w $dir]]
- set ids [LibToLink $dir]
- set eated [osutils:tk:eatpk $ids]
- set result [concat $result $eated]
- set ids [LibToLink $dir]
- set result [concat $result $ids]
- #puts "EXTERNLIB dir = $dir ids = $ids result = $result eated = $eated"
- foreach file $eated {
- set kds [woklocate -p [wokinfo -n [wokinfo -u $file]]:source:EXTERNLIB [wokinfo -w $file]]
- if { [osutils:tk:eatpk $kds] != {} } {
- lappend recurse $file
- }
- }
- }
- ;# if ![lempty $recurse] {
- ;# set result [concat $result [osutils:tk:close $recurse]]
- ;# }
- if { $recurse != {} } {
- set result [concat $result [osutils:tk:close $recurse]]
- }
- #puts $result
- return $result
-}
-;#
-;# Topological sort of toolkits in tklm
-;#
-proc osutils:tk:sort { tklm } {
- set tkby2 {}
- foreach tkloc $tklm {
- set lprg [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- foreach tkx $lprg {
- if { [lsearch $tklm $tkx] != -1 } {
- lappend tkby2 [list $tkx $tkloc]
- } else {
- lappend tkby2 [list $tkloc {}]
- }
- }
- }
- set lret {}
- foreach e [wokUtils:EASY:tsort $tkby2] {
- if { $e != {} } {
- lappend lret $e
- }
- }
- return $lret
-}
-
-;#
-;# Returns liste of UD in a toolkit. tkloc is a full path wok.
-;#
-proc osutils:tk:units { tkloc {typed 0} } {
- set l {}
- set PACKAGES [woklocate -p [wokinfo -n [wokinfo -u $tkloc]]:source:PACKAGES [wokinfo -w $tkloc]]
- foreach u [wokUtils:FILES:FileToList $PACKAGES] {
- set fu [woklocate -u $u]
- if { [set fu [woklocate -u $u]] != {} } {
- if { $typed == 0 } {
- lappend l $fu
- }
- if { $typed == 1 } {
- lappend l [list [uinfo -c $fu] [wokinfo -n $fu]]
- }
- if { $typed == 2 } {
- lappend l [list [uinfo -c $fu] $fu]
- }
- if { $typed == 3 } {
- lappend l [list [uinfo -t $fu] [wokinfo -n $fu]]
- }
- if { $typed == 4 } {
- lappend l [list [uinfo -t $fu] $fu]
- }
- } else {
- puts stderr "Unit inconnue $u"
- }
- }
- if { $l == {} } {
- ;#puts stderr "Warning. No devunit included in $tkloc"
- }
- return $l
-}
-;#
-;# for a unit returns a map containing all its file in the current
-;# workbench
-;# local = 1 only local files
-;#
-proc osutils:tk:loadunit { loc map {local 0}} {
- upvar $map TLOC
- catch { unset TLOC }
- if { $local == 1 } {
- set lfiles [uinfo -Fpl $loc]
- } else {
- set lfiles [uinfo -Fp $loc]
- }
- foreach f $lfiles {
- #puts $f
- set t [lindex $f 0]
- set p [lindex $f 2]
- if [info exists TLOC($t)] {
- set l $TLOC($t)
- lappend l $p
- set TLOC($t) $l
- } else {
- set TLOC($t) $p
- }
- }
- return
-}
-;#
-;# Returns the list of all compilable files name in a toolkit, or devunit of any type
-;# Call unit filter on units name to accept or reject a unit
-;# Tfiles lists for each unit the type of file that can be compiled.
-;#
-proc osutils:tk:files { tkloc {l_compilable {} } {justail 1} {unitfilter {}} } {
- set Tfiles(source,package) {source derivated privinclude pubinclude drvfile}
- set Tfiles(source,nocdlpack) {source pubinclude drvfile}
- set Tfiles(source,schema) {source derivated privinclude pubinclude drvfile}
- set Tfiles(source,toolkit) {}
- set Tfiles(source,executable) {source pubinclude drvfile}
- set listloc [concat [osutils:tk:units [woklocate -u $tkloc]] [woklocate -u $tkloc]]
- #puts " listloc = $listloc"
- if { $l_compilable == {} } {
- set l_comp [list .c .cxx .cpp]
- } else {
- set l_comp [$l_compilable]
- }
- if { $unitfilter == {} } {
- set resultloc $listloc
- } else {
- set resultloc [$unitfilter $listloc]
- }
- set lret {}
- foreach loc $resultloc {
- set utyp [uinfo -t $loc]
- if [array exists map] { unset map }
- osutils:tk:loadunit $loc map
- #puts " loc = $loc === > [array names map]"
- set LType $Tfiles(source,${utyp})
- foreach typ [array names map] {
- if { [lsearch $LType $typ] == -1 } {
- unset map($typ)
- }
- }
- foreach type [array names map] {
- #puts $type
- foreach f $map($type) {
- #puts $f
- if { [lsearch $l_comp [file extension $f]] != -1 } {
- if { $justail == 1 } {
- if {$type == "source"} {
- if {[lsearch $lret "@top_srcdir@/drv/[wokinfo -n $loc]/[file tail $f]"] == -1} {
- lappend lret @top_srcdir@/src/[wokinfo -n $loc]/[file tail $f]
- }
- } elseif {$type == "derivated" || $type == "drvfile"} {
- if {[lsearch $lret "@top_srcdir@/src/[wokinfo -n $loc]/[file tail $f]"] == -1} {
- lappend lret @top_srcdir@/drv/[wokinfo -n $loc]/[file tail $f]
- }
- }
- } else {
- lappend lret $f
- }
- }
- }
- }
- }
- return $lret
-}
-;#
-;#
-;#
-proc osutils:tk:eatpk { EXTERNLIB } {
- set l [wokUtils:FILES:FileToList $EXTERNLIB]
- set lret {}
- foreach str $l {
- if ![regexp -- {(CSF_[^ ]*)} $str csf] {
- lappend lret $str
- }
- }
- return $lret
-}
-;#
-;# Return the list of name *CSF_ in a EXTERNLIB description of a toolkit
-;#
-proc osutils:tk:hascsf { EXTERNLIB } {
- set l [wokUtils:FILES:FileToList $EXTERNLIB]
- set lret {STLPort}
- foreach str $l {
- if [regexp -- {(CSF_[^ ]*)} $str csf] {
- lappend lret $csf
- }
- }
- return $lret
-}
-;#
-;# Create file tkloc.dsp for a shareable library (dll).
-;# in dir return the full path of the created file
-;#
-proc osutils:mkdsp { dir tkloc {tmplat {} } {fmtcpp {} } } {
- if { $tmplat == {} } {set tmplat [osutils:dsp:readtemplate]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:dsp:fmtcpp]}
- set fp [open [set fdsp [file join $dir ${tkloc}.dsp]] w]
- fconfigure $fp -translation crlf
- set l_compilable [osutils:dsp:compilable]
- regsub -all -- {__TKNAM__} $tmplat $tkloc temp0
- set tkused ""
- foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {
- append tkused "${tkx}.lib "
- }
- foreach tk [lappend [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] $tkloc] {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[wokparam -t %$element] != 0} {
- set felem [file tail [lindex [wokparam -v "%$element"] 0]]
- if {[lsearch $tkused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- set tkused [concat $tkused $felem]
- }
- }
- }
- }
- }
-
- #puts "alternative [LibToLink $tkloc]"
- puts "$tkloc requires $tkused"
- regsub -all -- {__TKDEP__} $temp0 $tkused temp1
- set files ""
- ;#set listloc [concat [osutils:tk:units [woklocate -u $tkloc]] [woklocate -u $tkloc]]
- set listloc [osutils:tk:units [woklocate -u $tkloc]]
- set resultloc [osutils:justwnt $listloc]
- ;#puts "result = $resultloc"
- ;#set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justwnt]]
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- append files "# Begin Group \"${xlo}\"" "\n"
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- set fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]
- set fxloparam "$fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]"
- set needparam ""
- foreach partopt $fxloparam {
- if { "-I[lindex [wokparam -v %CSF_TCL_INCLUDE] 0]" != "$partopt "} {
- if { "-I[lindex [wokparam -v %CSF_JAVA_INCLUDE] 0]" != "$partopt "} {
- set needparam "$needparam $partopt"
- }
- }
- }
- foreach f $lsrc {
- ;#puts " f = $f"
- if { ![info exists written([file tail $f])] } {
- set written([file tail $f]) 1
- append files "# Begin Source File" "\n"
- append files "SOURCE=..\\..\\" [wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]] "\n"
- append files [format $fmtcpp $xlo $xlo $xlo] "$needparam" "\n"
- append files "# End Source File" "\n"
- } else {
- puts "Warning : in dsp more than one occurences for [file tail $f]"
- }
- }
- append files "# End Group" "\n"
- }
-
- regsub -all -- {__FILES__} $temp1 $files temp2
- puts $fp $temp2
- close $fp
- return $fdsp
-}
-proc osutils:vcproj { dir tkloc {tmplat {} } {fmtcpp {} } } {
- if { $tmplat == {} } {set tmplat [osutils:vcproj:readtemplate]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:vcproj:fmtcpp]}
- set fp [open [set fvcproj [file join $dir ${tkloc}.vcproj]] w]
- fconfigure $fp -translation crlf
- set l_compilable [osutils:dsp:compilable]
- regsub -all -- {__TKNAM__} $tmplat $tkloc temp0
- set tkused ""
- foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {
- append tkused "${tkx}.lib "
- }
- foreach tk [lappend [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] $tkloc] {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[wokparam -t %$element] != 0} {
- set felem [file tail [lindex [wokparam -v "%$element"] 0]]
- if {[lsearch $tkused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- set tkused [concat $tkused $felem]
- }
- }
- }
- }
- }
-
- puts "$tkloc requires $tkused"
- regsub -all -- {__TKDEP__} $temp0 $tkused temp1
- set files ""
- set listloc [osutils:tk:units [woklocate -u $tkloc]]
- set resultloc [osutils:justwnt $listloc]
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- append files " <Filter\n"
- append files " Name=\"${xlo}\"\n"
- append files " Filter=\"\">\n"
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- set fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]
- set fxloparam "$fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]"
- set needparam ""
- foreach partopt $fxloparam {
- if { "-I[lindex [wokparam -v %CSF_TCL_INCLUDE] 0]" != "$partopt "} {
- if { "-I[lindex [wokparam -v %CSF_JAVA_INCLUDE] 0]" != "$partopt "} {
- set needparam "$needparam $partopt"
- }
- }
- }
- foreach f $lsrc {
- #puts " f = $f"
- if { ![info exists written([file tail $f])] } {
- set written([file tail $f]) 1
- append files "\t\t\t\t<File\n"
- append files "\t\t\t\t\tRelativePath=\"..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"
- append files "\t\t\t\t\t<FileConfiguration\n"
- append files "\t\t\t\t\t\tName=\"Debug\|Win32\">\n"
- append files "\t\t\t\t\t\t<Tool\n"
- append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"
- if {$needparam != ""} {
- append files "\t\t\t\t\t\t\tAdditionalOptions=\""
- foreach paramm $needparam {
- append files "$paramm "
- }
- append files "\"\n"
- }
- append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"
- append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"
- append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"
- append files "\t\t\t\t\t</FileConfiguration>\n"
- append files "\t\t\t\t\t<FileConfiguration\n"
- append files "\t\t\t\t\t\tName=\"Release\|Win32\">\n"
- append files "\t\t\t\t\t\t<Tool\n"
- append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"
- if {$needparam != ""} {
- append files "\t\t\t\t\t\t\tAdditionalOptions=\""
- foreach paramm $needparam {
- append files "$paramm "
- }
- append files "\"\n"
- }
- append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"
- append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"
- append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"
- append files "\t\t\t\t\t</FileConfiguration>\n"
- append files "\t\t\t\t</File>\n"
- } else {
- puts "Warning : in vcproj more than one occurences for [file tail $f]"
- }
- }
- append files "\t\t\t</Filter>"
- }
-
- regsub -all -- {__FILES__} $temp1 $files temp2
- puts $fp $temp2
- close $fp
- return $fvcproj
-}
-;#
-;# Create file tkloc.dsp for a executable "console" application
-;# in dir return the full path of the created file
-;#
-proc osutils:mkdspx { dir tkloc {tmplat {} } {fmtcpp {} } } {
- if { $tmplat == {} } {set tmplat [osutils:dsp:readtemplatex]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:dsp:fmtcppx]}
- foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {
- set tf [file rootname [file tail $f]]
- set fp [open [set fdsp [file join $dir ${tf}.dsp]] w]
- puts $fdsp
- fconfigure $fp -translation crlf
- set l_compilable [osutils:dsp:compilable]
- regsub -all -- {__XQTNAM__} $tmplat $tf temp0
- set tkused ""
- puts [LibToLinkX [woklocate -u $tkloc] $tf]
- foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {
- if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {
- append tkused "${tkx}.lib "
- }
-# if {[lsearch [w_info -l] [woklocate -u $tkx]] == "-1"} {
-# append tkused "${tkx}.lib "
-# }
- if {[woklocate -u $tkx] == "" } {
- append tkused "${tkx}.lib "
- }
- }
- foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokinfo -N [woklocate -u $tk]]]] {
- if {[wokparam -t %$element] != 0} {
- set elemlist [wokparam -v "%$element"]
- set felem [file tail [lindex $elemlist 0]]
- if {[lsearch $tkused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- #puts "was found $element $felem"
- set tkused [concat $tkused $felem]
- }
- }
- }
- }
- }
- if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)"} {
- set tkused [concat $tkused "\/dll"]
- }
- regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1
- regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2
- puts "$tf requires $tkused"
- regsub -all -- {__TKDEP__} $temp2 $tkused temp3
- set files ""
- ;#set lsrc [osutils:tk:files $tkloc osutils:am:compilable 0]
- ;#foreach f $lsrc {
- if { ![info exists written([file tail $f])] } {
- set written([file tail $f]) 1
- append files "# Begin Group \"" $tkloc "\" \n"
- append files "# Begin Source File" "\n"
- append files "SOURCE=..\\..\\" [wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]] "\n"
- append files [format $fmtcpp $tkloc $tkloc $tkloc] "\n"
- append files "# End Source File" "\n"
- append files "# End Group" "\n"
- } else {
- puts "Warning : in dsp more than one occurences for [file tail $f]"
- }
- ;#}
-
- regsub -all -- {__FILES__} $temp3 $files temp4
- puts $fp $temp4
- close $fp
- set fout [lappend fout $fdsp]
- }
- return $fout
-}
-proc osutils:vcprojx { dir tkloc {tmplat {} } {fmtcpp {} } } {
- if { $tmplat == {} } {set tmplat [osutils:vcproj:readtemplatex]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:vcproj:fmtcppx]}
- set fout {}
- foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {
- puts "1"
- set tf [file rootname [file tail $f]]
- set l_compilable [osutils:dsp:compilable]
- regsub -all -- {__XQTNAM__} $tmplat $tf temp0
- set tkused ""
- foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {
- if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {
- append tkused "${tkx}.lib "
- }
- if {[lsearch [w_info -l] $tkx] == "-1"} {
- append tkused "${tkx}.lib "
- }
- }
- foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[wokparam -t %$element] != 0} {
- set elemlist [wokparam -v "%$element"]
- set felem [file tail [lindex $elemlist 0]]
- if {[lsearch $tkused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- #puts "was found $element $felem"
- set tkused [concat $tkused $felem]
- }
- }
- }
- }
- }
- if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)"} {
- set tkused [concat $tkused "\/dll"]
- set binext 2
- } else {
- set binext 1
- }
- #puts "$tf requires $tkused"
- regsub -all -- {__TKDEP__} $temp0 $tkused temp3
- set files ""
- ;#set lsrc [osutils:tk:files $tkloc osutils:am:compilable 0]
- ;#foreach f $lsrc {
- if { ![info exists written([file tail $f])] } {
- set written([file tail $f]) 1
- append files "\t\t\t<Filter\n"
- append files "\t\t\t\tName=\"$tkloc\"\n"
- append files "\t\t\t\tFilter=\"\">\n"
- append files "\t\t\t\t<File\n"
- append files "\t\t\t\t\tRelativePath=\"..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"
- append files "\t\t\t\t\t<FileConfiguration\n"
- append files "\t\t\t\t\t\tName=\"Debug|Win32\">\n"
- append files "\t\t\t\t\t\t<Tool\n"
- append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"
- append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"
- append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"
- append files "\t\t\t\t\t\t\tBasicRuntimeChecks=\"3\"\n"
- append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"
- append files "\t\t\t\t\t</FileConfiguration>\n"
- append files "\t\t\t\t\t<FileConfiguration\n"
- append files "\t\t\t\t\t\tName=\"Release|Win32\">\n"
- append files "\t\t\t\t\t\t<Tool\n"
- append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"
- append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"
- append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"
- append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"
- append files "\t\t\t\t\t</FileConfiguration>\n"
- append files "\t\t\t\t</File>\n"
- append files "\t\t\t</Filter>\n"
- } else {
- puts "Warning : in dsp more than one occurences for [file tail $f]"
- }
- ;#}
- #puts "$temp3 $files"
- regsub -all -- {__FILES__} $temp3 $files temp4
- regsub -all -- {__CONF__} $temp4 $binext temp5
- set fp [open [set fdsp [file join $dir ${tf}.vcproj]] w]
- fconfigure $fp -translation crlf
-
- puts $fp $temp5
- set fout [lappend fout $fdsp]
- close $fp
- }
- return $fout
-}
-
-;#
-;# Create file tkloc.mak for a shareable library (dll).
-;# in dir return the full path of the created file
-;#
-proc osutils:mkmak { dir tkloc {tmplat {} } {fmtcpp {} } } {
- puts $tkloc
- if { $tmplat == {} } {set tmplat [osutils:mak:readtemplate]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:mak:fmtcpp]}
- set fp [open [set fdsp [file join $dir ${tkloc}.mak]] w]
- fconfigure $fp -translation crlf
- set l_compilable [osutils:dsp:compilable]
- set tkused [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- set listloc [osutils:tk:units [woklocate -u $tkloc]]
- set resultloc [osutils:justwnt $listloc]
- regsub -all -- {__TKNAM__} $tmplat $tkloc temp0
- set area1 ""
- append area1 "\!IF \"\$(RECURSE)\" == \"0\" \n"
- append area1 "ALL : \"\$(OUTDIR)\\${tkloc}.dll\"\n"
- append area1 "\!ELSE\n"
- append area1 "ALL : "
- if {$tkused != ""} {
- foreach tkproj $tkused {
- append area1 "\"$tkproj - Win32 Release\" "
- }
- }
- append area1 " \"\$(OUTDIR)\\$tkloc.dll\"\n"
- append area1 "\!ENDIF \n"
- append area1 "\!IF \"\$(RECURSE)\" == \"1\"\n"
- append area1 "CLEAN :"
- if {$tkused != ""} {
- foreach tkproj $tkused {
- append area1 "\"$tkproj - Win32 ReleaseCLEAN\" "
- }
- }
- append area1 "\n"
- append area1 "\!ELSE\n"
- append area1 "CLEAN :\n"
- append area1 "\!ENDIF\n"
- set tclused 0
- set javaused 0
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- set fxlocxxparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]
- set fxlocparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]
- if {[lsearch [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_TCL_INCLUDE] 0] 0 end]"] != -1} {
- set tclused 1
- }
- if {[lsearch [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_JavaHome]/include 0] 0 end]"] != -1} {
- set javaused 1
- }
- if {[lsearch [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_TCL_INCLUDE] 0] 0 end]"] != -1} {
- set tclused 1
- }
- if {[lsearch [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_JavaHome]/include 0] 0 end]"] != -1} {
- set javaused 1
- }
-
- foreach srcfile $lsrc {
- if { ![info exists written([file tail $srcfile])] } {
- set written([file tail $srcfile]) 1
- append area1 "\t-@erase \"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\"\n"
- }
- }
- }
- regsub -all -- {__FIELD1__} $temp0 $area1 temp1
-
- set area2 "LINK32_FLAGS=-nologo -subsystem:windows -dll -incremental:no -machine:IX86 -libpath:\"\$(LIBDIR)\" -implib:\$(LIBDIR)\\$tkloc.lib -out:\$(OUTDIR)\\$tkloc.dll "
- set libused ""
- foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {
- append libused "${tkx}.lib "
- }
- set ltk [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- set ltk [lappend ltk $tkloc]
- foreach tk $ltk {
- foreach element [osutils:tk:hascsf [woklocate -p $tk:source:EXTERNLIB [wokcd]]] {
- if {[wokparam -t %$element] != 0} {
- set felem [file tail [lindex [wokparam -v "%$element"] 0]]
- if {[lsearch $libused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- set libused [concat $libused $felem]
- }
- }
- }
- }
- }
- if {$tclused == 1} {
- append area2 "-libpath:\"\$(TCLHOME)\\lib\" "
- }
-
- foreach tk $libused {
- append area2 "$tk "
- }
- append area2 "\n"
- append area2 "LINK32_OBJS= \\\n"
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- foreach srcfile $lsrc {
- if { ![info exists written([file tail $srcfile])] } {
- set written([file tail $srcfile]) 1
- append area2 "\t\"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\" \\\n"
- }
- }
- }
-
- regsub -all -- {__FIELD2__} $temp1 $area2 temp2
-
- set area3 ""
- append area3 "\!IF \"\$(RECURSE)\" == \"0\" \n"
- append area3 "ALL : \"\$(OUTDIR)\\${tkloc}.dll\"\n"
- append area3 "\!ELSE\n"
- append area3 "ALL : "
- if {$tkused != ""} {
- foreach tkproj $tkused {
- append area3 "\"$tkproj - Win32 Debug\" "
- }
- }
- append area3 " \"\$(OUTDIR)\\$tkloc.dll\"\n"
- append area3 "\!ENDIF \n"
- append area3 "\!IF \"\$(RECURSE)\" == \"1\"\n"
- append area3 "CLEAN :"
- if {$tkused != ""} {
- foreach tkproj $tkused {
- append area3 "\"$tkproj - Win32 DebugCLEAN\""
- }
- }
- append area3 "\n"
- append area3 "\!ELSE\n"
- append area3 "CLEAN :\n"
- append area3 "\!ENDIF\n"
- if [array exists written] { unset written }
-
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
-
- foreach srcfile $lsrc {
- if { ![info exists written([file tail $srcfile])] } {
- set written([file tail $srcfile]) 1
- append area3 "\t-@erase \"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\"\n"
- }
- }
- }
- regsub -all -- {__FIELD3__} $temp2 $area3 temp3
-
- set area4 "LINK32_FLAGS=-nologo -subsystem:windows -dll -incremental:no -machine:IX86 -debug -libpath:\"\$(LIBDIR)\" -implib:\$(LIBDIR)\\$tkloc.lib -out:\$(OUTDIR)\\$tkloc.dll -pdb:\$(OUTDIR)\\$tkloc.pdb "
- foreach tk $libused {
- append area4 "$tk "
- }
- if {$tclused == 1} {
- append area4 "-libpath:\"\$(TCLHOME)\\lib\" "
- }
-
- append area4 "\n"
- append area4 "LINK32_OBJS= \\\n"
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- foreach srcfile $lsrc {
- if { ![info exists written([file tail $srcfile])] } {
- set written([file tail $srcfile]) 1
- append area4 "\t\"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\" \\\n"
- }
- }
- }
-
- regsub -all -- {__FIELD4__} $temp3 $area4 temp4
-
- set area5 ""
- if [array exists written] { unset written }
- foreach fxlo $resultloc {
- set xlo [wokinfo -n $fxlo]
- set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]
- set fxlocxxparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]
- set fxlocparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]
- if {$tclused == 1} {
- set fxlocxxparam "-I\$(TCLHOME)\\include"
- }
- if {$javaused == 1} {
- set fxlocxxparam "-I\$(JAVAHOME)\\include -I\$(JAVAHOME)\\include\\win32"
- }
- set fxloparam "$fxlocparam $fxlocxxparam"
- #puts $fxloparam
- foreach srcfile $lsrc {
- if { ![info exists written([file tail $srcfile])] } {
- set written([file tail $srcfile]) 1
- set pkname [wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]]
-
- append area5 "SOURCE=..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $srcfile 3]]\n"
- append area5 "\!IF \"\$(CFG)\" == \"$tkloc - Win32 Release\"\n"
- append area5 "CPP_SWITCHES=\/nologo \/MD \/W3 \/GX \/O2 $fxloparam \/I \"..\\..\\inc\" \/I \"..\\..\\drv\\$xlo\" \/I \"..\\..\\src\\$xlo\" \/D \"WIN32\" \/D \"NDEBUG\" \/D \"_WINDOWS\" \/D \"WNT\" \/D \"No_Exception\" \/D \"__${xlo}_DLL\" \/Fo\"\$(INTDIR)\\\\\\\" \/Fd\"\$(INTDIR)\\\\\\\" \/FD \/D \"CSFDB\" \/c\n"
- append area5 "\"\$(INTDIR)\\$pkname.obj\" : \$(SOURCE) \"\$(INTDIR)\"\n"
- append area5 "\t\t\$(CPP) \$(CPP_SWITCHES) \$(SOURCE)\n"
- append area5 "\n"
- append area5 "\!ELSEIF \"\$(CFG)\" == \"$tkloc - Win32 Debug\"\n"
- append area5 "CPP_SWITCHES=\/nologo \/MDd \/W3 \/GX \/Zi \/Od $fxloparam \/I \"..\\..\\inc\" \/I \"..\\..\\drv\\$xlo\" \/I \"..\\..\\src\\$xlo\" \/D \"WIN32\" \/D \"DEB\" \/D \"_DEBUG\" \/D \"_WINDOWS\" \/D \"WNT\" \/D \"CSFDB\" \/D \"__${xlo}_DLL\" \/Fo\"\$(INTDIR)\\\\\\\" \/Fd\"\$(INTDIR)\\\\\\\" \/FD \/c \n"
- append area5 "\"\$(INTDIR)\\$pkname.obj\" : \$(SOURCE) \"\$(INTDIR)\"\n"
- append area5 "\t\t\$(CPP) \$(CPP_SWITCHES) \$(SOURCE)\n"
- append area5 "\n"
- append area5 "\!ENDIF \n"
- }
- }
- }
- regsub -all -- {__FIELD5__} $temp4 $area5 temp5
-
- set area6 ""
- foreach tk $tkused {
- append area6 "\!IF \"\$(CFG)\" == \"$tkloc - Win32 Release\"\n"
- append area6 "\"$tk - Win32 Release\" \: \n"
- append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" \n"
- append area6 "\"$tk - Win32 ReleaseCLEAN\" \: \n"
- append area6 " \$(MAKE)\/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" RECURSE=1 CLEAN\n"
- append area6 "\!ELSEIF \"\$(CFG)\" == \"$tkloc - Win32 Debug\"\n"
- append area6 "\"$tk - Win32 Debug\" \: \n"
- append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" \n"
- append area6 "\"$tk - Win32 DebugCLEAN\" \: \n"
- append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" RECURSE=1 CLEAN\n"
- append area6 "\!ENDIF\n"
- }
- regsub -all -- {__FIELD6__} $temp5 $area6 temp6
-
- if {$tclused == 1} {
- set tclwarning "\!IFNDEF TCLHOME \n\!MESSAGE Compilation of this toolkit requires tcl. Set TCLHOME environment variable for proper compilation\n\!ENDIF"
- } else {
- set tclwarning ""
- }
- regsub -all -- {__TCLUSED__} $temp6 $tclwarning temp7
-
- if {$javaused == 1} {
- set javawarning "\!IFNDEF JAVAHOME \n\!MESSAGE Compilation of this toolkit requires java. Set JAVAHOME environment variable for proper compilation\n\!ENDIF"
- } else {
- set javawarning ""
- }
- regsub -all -- {__JAVAUSED__} $temp7 $javawarning temp8
- puts $fp $temp8
- close $fp
- return $fdsp
-}
-
-proc osutils:mkmakx { dir tkloc {tmplat {} } {fmtcpp {} } } {
- if { $tmplat == {} } {set tmplat [osutils:mak:readtemplatex]}
- if { $fmtcpp == {} } {set fmtcpp [osutils:mak:fmtcppx]}
- foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {
- set tf [file rootname [file tail $f]]
- set fp [open [set fdsp [file join $dir ${tf}.mak]] w]
- puts $fdsp
- set tclused 0
- fconfigure $fp -translation crlf
- set l_compilable [osutils:dsp:compilable]
- regsub -all -- {__XQTNAM__} $tmplat $tf temp0
- set tkused ""
- puts [LibToLinkX [woklocate -u $tkloc] $tf]
- foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {
- if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {
- append tkused "${tkx}.lib "
- }
- if {[woklocate -u $tkx] == "" } {
- append tkused "${tkx}.lib "
- }
- }
- foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[wokparam -t %$element] != 0} {
- set elemlist [wokparam -v "%$element"]
- set felem [file tail [lindex $elemlist 0]]
- if {[lsearch $tkused $felem] == "-1"} {
- if {$felem != "\{\}"} {
- #puts "was found $element $felem"
- if {$element == "CSF_TclLibs"} { set tclused 1}
- set tkused [concat $tkused $felem]
- }
- }
- }
- }
- }
-
- if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)" } {
- set tkused [concat $tkused "\/dll"]
- if {$tclused != 1} {
- regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1
- regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2
- } else {
- regsub -all -- {__COMPOPT__} $temp0 "\/MD \/I \"\$(TCLHOME)\\include\"" temp1
- regsub -all -- {__COMPOPTD__} $temp1 "\/MDd \/I \"\$(TCLHOME)\\include\"" temp2
- }
- regsub -all -- {__XQTNAMEX__} $temp2 "$tf.dll" temp3
- } else {
- if {$tclused != 1} {
- regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1
- regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2
- } else {
- regsub -all -- {__COMPOPT__} $temp0 "\/MD \/I \"\$(TCLHOME)\\include\"" temp1
- regsub -all -- {__COMPOPTD__} $temp1 "\/MDd \/I \"\$(TCLHOME)\\include\"" temp2
- }
- regsub -all -- {__XQTNAMEX__} $temp2 "$tf.exe" temp3
- }
- #puts "$tf requires $tkused"
- if {$tclused == 1} {
- append tkused " -libpath:\"\$(TCLHOME)\\lib\" "
- }
- regsub -all -- {__TKDEP__} $temp3 $tkused temp4
- set files ""
- set field1 ""
- set field2 ""
- set field3 ""
- set field4 ""
- foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {
-
- append files "\!IF \"\$(CFG)\" == \"$tf - Win32 Release\"\n"
- append files "\"$tk - Win32 Release\" \: \n"
- append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" \n"
- append files "\"$tk - Win32 ReleaseCLEAN\" \: \n"
- append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" RECURSE=1 CLEAN\n"
- append files "\!ELSEIF \"\$(CFG)\" == \"$tf - Win32 Debug\"\n"
- append files "\"$tk - Win32 Debug\" \: \n"
- append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" \n"
- append files "\"$tk - Win32 DebugCLEAN\" \: \n"
- append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" RECURSE=1 CLEAN\n"
- append files "\!ENDIF\n"
-
- append field1 "\"$tk - Win32 Release\" "
- append field2 "\"$tk - Win32 ReleaseCLEAN\" "
- append field3 "\"$tk - Debug\" "
- append field4 "\"$tk - Win32 DebugCLEAN\" "
-
- }
- regsub -all -- {__FILES__} $temp4 $files temp5
- regsub -all -- {__FIELD1__} $temp5 $field1 temp6
- regsub -all -- {__FIELD2__} $temp6 $field2 temp7
- regsub -all -- {__FIELD3__} $temp7 $field3 temp8
- regsub -all -- {__FIELD4__} $temp8 $field4 temp9
- regsub -all -- {__XNAM__} $temp9 $tkloc temp10
- puts $fp $temp10
- close $fp
- set fout [lappend fout $fdsp]
- }
- return $fout
-}
-
-
-;#
-;# (((((((((((((((((((((((( AUTOMAKE/ PROJECTs )))))))))))))))))))))))
-;#
-;# Create in dir the Makefile.am associated with toolkit tkloc.
-;# Returns the full path of the created file.
-;#
-proc osutils:tk:mkam { dir tkloc } {
- set pkgs [woklocate -p ${tkloc}:PACKAGES]
- if { $pkgs == {} } {
- puts stderr "osutils:tk:mkam : Error. File PACKAGES not found for toolkit $tkloc."
- return {}
- }
-
- set tmplat [osutils:am:readtemplate]
- set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]
- set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]
- set lobj [wokUtils:LIST:sanspoint $lsrc]
-
- set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]
-
- set final 0
- set externinc ""
- set externlib ""
- if { $lcsf != {} } {
- set final 1
- set fmtinc "\$(%s_INCLUDES) "
- set fmtlib "\$(%s_LIB) "
- set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]
- set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]
- }
-
- regsub -all -- {__TKNAM__} "$tmplat" "$tkloc" temp0
- set vpath [osutils:am:__VPATH__ $lpkgs]
- regsub -all -- {__VPATH__} "$temp0" "$vpath" temp1
- set inclu [osutils:am:__INCLUDES__ $lpkgs]
- regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2
- if { $close != {} } {
- set libadd [osutils:am:__LIBADD__ $close $final]
- } else {
- set libadd ""
- }
- regsub -all -- {__LIBADD__} "$temp2" "$libadd" temp3
- set source [osutils:am:__SOURCES__ $lsrc]
- regsub -all -- {__SOURCES__} "$temp3" "$source" temp4
- regsub -all -- {__EXTERNINC__} "$temp4" "$externinc" temp5
- set CXXFl [osutils:am:__CXXFLAG__ $lpkgs]
- regsub -all -- {__CXXFLAG__} "$temp5" "$CXXFl" temp6
- set CFl [osutils:am:__CFLAG__ $lpkgs]
- regsub -all -- {__CFLAG__} "$temp6" "$CFl" temp7
-
- regsub -all -- {__EXTERNLIB__} "$temp7" "$externlib" MakeFile_am
-
- wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]
-
- catch { unset temp0 temp1 temp2 temp3 temp4 temp5 temp6 temp7}
-
- #set tmplat [osutils:in:readtemplate]
-
- #regsub -all -- {__TKNAM__} "$tmplat" "$tkloc" temp0
- #if { $close != {} } {
- #set dpncies [osutils:in:__DEPENDENCIES__ $close]
- #} else {
- #set dpncies ""
- #}
- #regsub -all -- {__DEPENDENCIES__} "$temp0" "$dpncies" temp1
-
- #set objects [osutils:in:__OBJECTS__ $lobj]
- #regsub -all -- {__OBJECTS__} "$temp1" "$objects" temp2
- #set amdep [osutils:in:__AMPDEP__ $lobj]
- #regsub -all -- {__AMPDEP__} "$temp2" "$amdep" temp3
- #set amdeptrue [osutils:in:__AMDEPTRUE__ $lobj]
- #regsub -all -- {__AMDEPTRUE__} "$temp3" "$amdeptrue" temp4
-;# so easy..
- #regsub -all -- {__MAKEFILEIN__} "$temp4" "$MakeFile_am" MakeFile_in
-
- #wokUtils:FILES:StringToFile "$MakeFile_in" [set fmin [file join $dir Makefile.in]]
-
- return [list $fmam]
- #return [list $fmam $fmin]
-}
-;#
-;# Create in dir the Makefile.am associated with toolkit tkloc.
-;# Returns the full path of the created file.
-;#
-proc osutils:tk:mkamx { dir tkloc } {
- if { [lsearch [uinfo -f -T source [woklocate -u $tkloc]] ${tkloc}_WOKSteps.edl] != "-1"} {
- set pkgs [woklocate -p ${tkloc}:EXTERNLIB]
- if { $pkgs == {} } {
- puts stderr "osutils:tk:mkamx : Error. File EXTERNLIB not found for executable $tkloc."
- #return {}
- }
- set tmplat [osutils:am:readtemplatex]
- set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]
- set lobj [wokUtils:LIST:sanspoint $lsrc]
- set CXXList {}
- foreach SourceFile [uinfo -f -T source [woklocate -u $tkloc]] {
- if {[file extension $SourceFile] == ".cxx"} {
- lappend CXXList [file rootname $SourceFile]
- }
- }
- set pkgs [LibToLinkX [woklocate -u $tkloc] [lindex $CXXList 0]]
- set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]
- puts "pkgs $pkgs"
- #set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]
-
- set lcsf {}
- foreach tk $pkgs {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[lsearch $lcsf $element] == "-1"} {
- set lcsf [concat $lcsf $element]
- }
- }
- }
- set final 0
- set externinc ""
- set externlib ""
- if { $lcsf != {} } {
- set final 1
- set fmtinc "\$(%s_INCLUDES) "
- set fmtlib "\$(%s_LIB) "
- set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]
- set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]
- }
- regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0
- set temp1 "$temp0 \nlib_LTLIBRARIES="
- foreach entity $CXXList {
- set temp1 "${temp1} lib${entity}.la"
- }
- set temp1 "${temp1}\n"
- set inclu [osutils:am:__INCLUDES__ $lpkgs]
- regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2
- if { $pkgs != {} } {
- set libadd [osutils:am:__LIBADD__ $pkgs $final]
- } else {
- set libadd ""
- }
- regsub -all -- {__LIBADD__} "$temp2" "$libadd" temp3
- set source [osutils:am:__SOURCES__ $CXXList]
- regsub -all -- {__SOURCES__} "$temp3" "$source" temp4
- regsub -all -- {__EXTERNINC__} "$temp4" "$externinc" MakeFile_am
- foreach entity $CXXList {
- set MakeFile_am "$MakeFile_am lib${entity}_la_SOURCES = @top_srcdir@/src/${tkloc}/${entity}.cxx \n"
- }
- foreach entity $CXXList {
- set MakeFile_am "$MakeFile_am lib${entity}_la_LIBADD = $libadd $externlib \n"
- }
- wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]
-
- catch { unset temp0 temp1 temp2 temp3 temp4 temp5}
- return [list $fmam]
-
- } else {
- set pkgs [woklocate -p ${tkloc}:EXTERNLIB]
- if { $pkgs == {} } {
- puts stderr "osutils:tk:mkamx : Error. File EXTERNLIB not found for executable $tkloc."
- #return {}
- }
- set tmplat [osutils:am:readtemplatex]
- set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]
- set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]
- set lobj [wokUtils:LIST:sanspoint $lsrc]
- set CXXList {}
- foreach SourceFile [uinfo -f -T source [woklocate -u $tkloc]] {
- if {[file extension $SourceFile] == ".cxx"} {
- lappend CXXList [file rootname $SourceFile]
- }
- }
- set pkgs [LibToLinkX [woklocate -u $tkloc] [lindex $CXXList 0]]
- set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]
- set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]
-
- set lcsf {}
- foreach tk $pkgs {
- foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {
- if {[lsearch $lcsf $element] == "-1"} {
- set lcsf [concat $lcsf $element]
- }
- }
- }
- set final 0
- set externinc ""
- set externlib ""
- if { $lcsf != {} } {
- set final 1
- set fmtinc "\$(%s_INCLUDES) "
- set fmtlib "\$(%s_LIB) "
- set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]
- set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]
- }
- regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0
- set temp1 "$temp0 \nbin_PROGRAMS="
- foreach entity $CXXList {
- set temp1 "${temp1} ${entity}"
- }
-
- set temp1 "${temp1}\n"
- set inclu [osutils:am:__INCLUDES__ $lpkgs]
- regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2
- if { $pkgs != {} } {
- set libadd [osutils:am:__LIBADD__ $pkgs $final]
- } else {
- set libadd ""
- }
- set source [osutils:am:__SOURCES__ $CXXList]
- regsub -all -- {__SOURCES__} "$temp2" "$source" temp3
- regsub -all -- {__EXTERNINC__} "$temp3" "$externinc" MakeFile_am
- foreach entity $CXXList {
- set MakeFile_am "$MakeFile_am ${entity}_SOURCES = @top_srcdir@/src/${tkloc}/${entity}.cxx \n"
- }
- foreach entity $CXXList {
- set MakeFile_am "$MakeFile_am ${entity}_LDADD = $libadd $externlib \n"
- }
- wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]
-
- catch { unset temp0 temp1 temp2 temp3 temp4 temp5}
-
- # set tmplat [osutils:in:readtemplatex]
-
- # regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0
- # if { $close != {} } {
- #set dpncies [osutils:in:__DEPENDENCIES__ $close]
- # } else {
- #set dpncies ""
- # }
- # regsub -all -- {__DEPENDENCIES__} "$temp0" "$dpncies" temp1
-
- # set objects [osutils:in:__OBJECTS__ $lobj]
- # regsub -all -- {__OBJECTS__} "$temp1" "$objects" temp2
- # #set temp2 $temp1
- # set amdep [osutils:in:__AMPDEP__ $lobj]
- # regsub -all -- {__AMPDEP__} "$temp2" "$amdep" temp3
- #set temp3 $temp2
- # set amdeptrue [osutils:in:__AMDEPTRUE__ $lobj]
- # regsub -all -- {__AMDEPTRUE__} "$temp3" "$amdeptrue" temp4
- #set temp4 $temp3
-;# so easy..
- # regsub -all -- {__MAKEFILEIN__} "$temp4" "$MakeFile_am" MakeFile_in
-
- #wokUtils:FILES:StringToFile "$MakeFile_in" [set fmin [file join $dir Makefile.in]]
- return [list $fmam]
- #return [list $fmam $fmin]
- }
-}
-
-;#
-;# ((((((((((((( Formats in Makefile.am )))))))))))))
-;#
-;# List extensions of files compilable in automake
-;#
-proc osutils:am:compilable { } {
- return [list .c .cxx .cpp]
-}
-;#
-;# Used to replace the string __VPATH__ in Makefile.am
-;# l is the list of the units in a toolkit.
-;#
-proc osutils:am:__VPATH__ { l } {
- set fmt "@top_srcdir@/drv/%s : @top_srcdir@/src/%s:"
- return [wokUtils:EASY:FmtString2 $fmt $l 0 osutils:am:__VPATH__lastoccur]
-}
-;#
-;# remove ":" from last item of dependencies list in target VPATH of Makefile.am
-;#
-proc osutils:am:__VPATH__lastoccur { str } {
- if { [regsub {:$} $str "" u] != 0 } {
- return $u
- }
-}
-proc osutils:am:PkCXXOption ppk {
- set CXXCOMMON [lindex [wokparam -e %CMPLRS_CXX_Options [wokcd]] 0]
- set FoundFlag ""
- foreach pk $ppk {
- if {[lsearch [uinfo -f -T source [woklocate -u $pk]] ${pk}_CMPLRS.edl] != "-1"} {
- set CXXStr [lindex [wokparam -e %CMPLRS_CXX_Options [woklocate -u $pk]] 0]
- set LastIndex [expr {[string length $CXXCOMMON ] - 1}]
- if {[string equal $CXXCOMMON [string range $CXXStr 0 $LastIndex]]} {
- set CXXOption " "
- } else {
- set CXXOption [string range $CXXStr 0 [expr {[string last $CXXCOMMON $CXXStr] - 1}]]
- }
- if {$CXXOption != " " && $CXXOption != "" && $CXXOption != " " && $CXXOption != " "} {
- set FoundList [split $CXXOption " "]
- foreach elem $FoundList {
- if {$elem != ""} {
- if {[string first "-I" $elem] == "-1" } {
- if {[string first $elem $FoundFlag] == "-1"} {
- set FoundFlag "$FoundFlag $elem"
- }
- }
- }
- }
- }
- }
- }
- return $FoundFlag
-}
-
-proc osutils:am:PkCOption ppk {
- set CCOMMON [lindex [wokparam -e %CMPLRS_C_Options [wokcd]] 0]
- set FoundFlag ""
- foreach pk $ppk {
- if {[lsearch [uinfo -f -T source [woklocate -u $pk]] ${pk}_CMPLRS.edl] != "-1"} {
- set CStr [lindex [wokparam -e %CMPLRS_C_Options [woklocate -u $pk]] 0]
- set LastIndex [expr {[string length $CCOMMON ] - 1}]
- if {[string equal $CCOMMON [string range $CStr 0 $LastIndex]]} {
- set COption [string range $CStr $LastIndex end ]
- } else {
- set COption [string range $CStr 0 [expr {[string last $CCOMMON $CStr] - 1}]]
- }
- if {$COption != " " && $COption != "" && $COption != " " && $COption != " "} {
- set FoundList [split $COption " "]
- foreach elem $FoundList {
- if {$elem != ""} {
- if {[string first "-I" $elem] == "-1" } {
- if {[string first $elem $FoundFlag] == "-1"} {
- set FoundFlag "$FoundFlag $elem"
- }
- }
- }
- }
- }
- }
- }
-return $FoundFlag
-}
-
-proc osutils:am:__CXXFLAG__ { l } {
- set fmt "%s"
- #puts "l is: $l"
- return [wokUtils:EASY:FmtString1 $fmt [osutils:am:PkCXXOption $l]]
-}
-;#
-;# Used to replace the string __CFLAG__ in Makefile.am
-;# l is the list of all compilable files in a toolkit.
-;#
-proc osutils:am:__CFLAG__ { l } {
- set fmt "%s"
- return [wokUtils:EASY:FmtString1 $fmt [osutils:am:PkCOption $l]]
-}
-
-;#
-;# Used to replace the string __INCLUDES__ in Makefile.am
-;# l is the list of packages in a toolkit.
-;#
-proc osutils:am:__INCLUDES__ { l } {
- set fmt "-I@top_srcdir@/drv/%s -I@top_srcdir@/src/%s"
- return [wokUtils:EASY:FmtString2 $fmt $l]
-}
-;#
-;# Used to replace the string __LIBADD__ in Makefile.am
-;# l is the toolkit closure list of a toolkit.
-;#
-proc osutils:am:__LIBADD__ { l {final 0} } {
- set fmt "../%s/lib%s.la"
- return [wokUtils:EASY:FmtString2 $fmt $l $final]
-}
-;#
-;# Used to replace the string __SOURCES__ in Makefile.am
-;# l is the list of all compilable files in a toolkit.
-;#
-proc osutils:am:__SOURCES__ { l } {
- set fmt "%s"
- return [wokUtils:EASY:FmtString1 $fmt $l]
-}
-;#
-;# ((((((((((((( Formats in Makefile.in )))))))))))))
-;#
-;#
-;# Used to replace the string __DEPENDENCIES__ in Makefile.in
-;# l is the toolkit closure list of a toolkit.
-;#
-proc osutils:in:__DEPENDENCIES__ { l } {
- set fmt1 "../%s/lib%s.la"
- set fmt2 "\t../%s/lib%s.la"
- return [wokUtils:EASY:FmtFmtString2 $fmt1 $fmt2 $l]
-}
-;#
-;# Used to replace the string __OBJECTS__ in Makefile.in
-;# l is the list of objects files in toolkit.
-;#
-proc osutils:in:__OBJECTS__ { l } {
- set fmt1 "%s.lo"
- set fmt2 "\t%s.lo"
- return [wokUtils:EASY:FmtFmtString1 $fmt1 $fmt2 $l]
-}
-;#
-;# Used to replace the string __AMDEP__ in Makefile.in
-;# l is the list of objects files in toolkit.
-;#
-proc osutils:in:__AMPDEP__ { l } {
- set fmt1 "\$(DEPDIR)/%s.Plo"
- set fmt2 "@AMDEP_TRUE@\t\$(DEPDIR)/%s.Plo"
- return [wokUtils:EASY:FmtFmtString1 $fmt1 $fmt2 $l]
-}
-;#
-;# Used to replace the string __AMDEPTRUE__ in Makefile.in
-;# l is the list of objects files in toolkit.
-;#
-proc osutils:in:__AMDEPTRUE__ { l } {
- set fmt "@AMDEP_TRUE@@_am_include@ @_am_quote@\$(DEPDIR)/%s.Plo@_am_quote@"
- return [wokUtils:EASY:FmtSimple1 $fmt $l]
-}
-
-
-;#############################################################
-;#
-proc TESTAM { {root} {ll {}} } {
-# source [woklocate -p OS:source:OS.tcl]
-# source [woklocate -p WOKTclLib:source:osutils.tcl]
- set lesmodules [OS -lm]
- if { $ll != {} } { set lesmodules $ll }
- foreach theModule $lesmodules {
- foreach unit [$theModule:toolkits] {
- puts " toolkit: $unit ==> [woklocate -p ${unit}:source:EXTERNLIB]"
- wokUtils:FILES:rmdir $root/$unit
- wokUtils:FILES:mkdir $root/$unit
- osutils:tk:mkam $root/$unit $unit
- }
- foreach unit [OS:executable $theModule] {
- wokUtils:FILES:rmdir $root/$unit
- wokUtils:FILES:mkdir $root/$unit
- osutils:tk:mkamx $root/$unit $unit
- }
- }
-}
+;#\r
+;# Open source Tcl utilities. This contains material to automatically create\r
+;# MS project or automake builders from the OpenCascade modules definition.\r
+;# This file requires:\r
+;# 1. Tcl utilities of Wok.\r
+;# 2. Wok commands and workbench environment.\r
+;#\r
+;# Author: yolanda_forbes@hotmail.com\r
+;# \r
+;# (((((((((((((((((((((((( MS PROJECT )))))))))))))))))))))))\r
+;#\r
+;# the full path of a MS project template file.\r
+;# Should be overwritten\r
+;#\r
+proc osutils:vc8:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc8]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:vc8:readtemplatex { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc8x]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:vc7:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc7]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:vc7:readtemplatex { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc7x]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:vc6:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc6 ]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:vc6:readtemplatex { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.vc6x]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:mak:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.mak ]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:mak:readtemplatex { } {\r
+ puts stderr "Info : readtemplate : Template for MS project from [set loc [woklocate -p WOKTclLib:source:template.makx]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+}\r
+proc osutils:am:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for Makefile.am from [set loc [woklocate -p WOKTclLib:source:template.mam]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+\r
+}\r
+proc osutils:am:readtemplatex { } {\r
+ puts stderr "Info : readtemplatex : Template for Makefile.am from [set loc [woklocate -p WOKTclLib:source:template.mamx]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+\r
+}\r
+proc osutils:in:readtemplate { } {\r
+ puts stderr "Info : readtemplate : Template for Makefile.in from [set loc [woklocate -p WOKTclLib:source:template.min]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+\r
+}\r
+proc osutils:in:readtemplatex { } {\r
+ puts stderr "Info : readtemplatex : Template for Makefile.in from [set loc [woklocate -p WOKTclLib:source:template.minx]]"\r
+ return [wokUtils:FILES:FileToString $loc]\r
+\r
+}\r
+;#\r
+;# \r
+;#\r
+proc osutils:vc6proj:header { } {\r
+ append var \\r
+ "Microsoft Developer Studio Workspace File, Format Version 6.00" "\n" \\r
+ "# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!" "\n" \\r
+ "\n" \\r
+ "###############################################################################" "\n" \\r
+ "\n"\r
+ return $var\r
+}\r
+proc osutils:vc7proj:header { } {\r
+ append var \\r
+ "Microsoft Visual Studio Solution File, Format Version 8.00\n" \r
+ return $var\r
+}\r
+proc osutils:vc8proj:header { } {\r
+ append var \\r
+ "Microsoft Visual Studio Solution File, Format Version 9.00\n" \\r
+ "# Visual Studio 2005\n"\r
+ return $var\r
+}\r
+;#\r
+;# the leaf of a workspace file\r
+;#\r
+proc osutils:vc6proj:projectleaf { TK } {\r
+ append var \\r
+ "Project: \"$TK\"=.\\$TK.dsp - Package Owner=<4>" "\n" \\r
+ "\n" \\r
+ "Package=<5>" "\n" \\r
+ "\{\{\{" "\n" \\r
+ "\}\}\}" "\n" \\r
+ "\n" \\r
+ "Package=<4>" "\n" \\r
+ "\{\{\{" "\n" \\r
+ "\}\}\}" "\n" \\r
+ "\n" \\r
+ "###############################################################################" "\n" \\r
+ "\n"\r
+ return $var\r
+}\r
+;#\r
+;# an item of a workspace file\r
+;#\r
+proc osutils:vc6proj:projectby2 { TK Dep_Name } {\r
+ append var \\r
+ "Project: \"$TK\"=.\\$TK.dsp - Package Owner=<4>" "\n" \\r
+ "\n" \\r
+ "Package=<5>" "\n" \\r
+ "\{\{\{" "\n" \\r
+ "\}\}\}" "\n" \\r
+ "\n" \\r
+ "Package=<4>" "\n" \\r
+ "\{\{\{" "\n" \r
+ if {[wokinfo -x $TK] != "0"} {\r
+ if {[uinfo -t $TK] == "toolkit"} {\r
+ set deplist [LibToLink $TK]\r
+ } else {\r
+ set deplist [LibToLinkX $TK $TK]\r
+ ;#puts $deplist\r
+ }\r
+ foreach deplib $deplist {\r
+ if {$deplib != $TK} {\r
+ append var " Begin Project Dependency" "\n" \\r
+ " Project_Dep_Name $deplib" "\n" \\r
+ " End Project Dependency" "\n" \r
+ }\r
+ }\r
+ }\r
+ \r
+ append var "\}\}\}" "\n" \\r
+ "\n" \\r
+ "###############################################################################" "\n" \\r
+ "\n" \r
+ return $var\r
+}\r
+;#\r
+;#\r
+;#\r
+proc osutils:vc6proj:footer { } {\r
+ append var \\r
+ "Global:" "\n" \\r
+ "\n" \\r
+ "Package=<5>" "\n" \\r
+ "{{{" "\n" \\r
+ "}}}" "\n" \\r
+ "\n" \\r
+ "Package=<3>" "\n" \\r
+ "{{{" "\n" \\r
+ "}}}" "\n" \\r
+ "\n" \\r
+ "###############################################################################" "\n" \r
+ return $var\r
+}\r
+;#\r
+;# An item for compiling a c++ class\r
+;#\r
+proc osutils:vc6:fmtcpp { } {\r
+ return {# ADD CPP /I ..\..\..\inc /I ..\..\..\drv\%s /I ..\..\..\src\%s /D "__%s_DLL"}\r
+}\r
+proc osutils:mak:fmtcpp { } {\r
+ return {CPP_SWITCHES=$(CPP_PROJ) /I ..\..\..\inc /I ..\..\..\drv\%s /I ..\..\..\src\%s /D "__%s_DLL"}\r
+}\r
+;#\r
+;# An item for compiling a c++ main\r
+;#\r
+proc osutils:vc6:fmtcppx { } {\r
+ return {# ADD CPP /I ..\..\..\inc /I ..\..\..\drv\%s /I ..\..\..\src\%s /D "__%s_DLL"}\r
+}\r
+proc osutils:vc7:fmtcpp { } {\r
+ return {AdditionalIncludeDirectories="..\..\..\inc,..\..\..\drv\%s,..\..\..\src\%s"\r
+ PreprocessorDefinitions="__%s_DLL;"}\r
+}\r
+proc osutils:vc7:fmtcppx { } {\r
+ return {AdditionalIncludeDirectories="..\..\..\inc,..\..\..\drv\%s,..\..\..\src\%s"\r
+ PreprocessorDefinitions="__%s_DLL;$(NoInherit)"}\r
+}\r
+proc osutils:vc8:fmtcpp { } {\r
+ return {AdditionalIncludeDirectories="..\..\..\inc,..\..\..\drv\%s,..\..\..\src\%s"\r
+ PreprocessorDefinitions="__%s_DLL;"}\r
+}\r
+proc osutils:vc8:fmtcppx { } {\r
+ return {AdditionalIncludeDirectories="..\..\..\inc,..\..\..\drv\%s,..\..\..\src\%s"\r
+ PreprocessorDefinitions="__%s_DLL;$(NoInherit)"}\r
+}\r
+proc osutils:mak:fmtcppx { } {\r
+ return {CPP_SWITCHES=$(CPP_PROJ) /I ..\..\..\inc /I ..\..\..\drv\%s /I ..\..\..\src\%s /D "__%s_DLL"}\r
+}\r
+;#\r
+;# List extensions of files devoted to be eaten by cl.exe compiler.\r
+;#\r
+proc osutils:vc6:compilable { } {\r
+ return [list .c .cxx .cpp]\r
+}\r
+proc osutils:vc7:compilable { } {\r
+ return [list .c .cxx .cpp]\r
+}\r
+proc osutils:vc8:compilable { } {\r
+ return [list .c .cxx .cpp]\r
+}\r
+;#\r
+;# remove from listloc OpenCascade units indesirables on NT\r
+;#\r
+proc osutils:juststation {goaway listloc} {\r
+ set lret {}\r
+ foreach u $listloc {\r
+ if { \r
+ (\r
+ [woklocate -u $u] != ""\r
+ &&\r
+ [lsearch $goaway [wokinfo -n [woklocate -u $u]]] == -1\r
+ )\r
+ ||\r
+ (\r
+ [woklocate -u $u] == ""\r
+ &&\r
+ [lsearch $goaway [wokinfo -n $u]] == -1\r
+ )\r
+ \r
+ } {\r
+ lappend lret $u\r
+ }\r
+ }\r
+ return $lret \r
+}\r
+\r
+proc osutils:justwnt { listloc } {\r
+ set goaway [list Xdps Xw ImageUtility WOKUnix]\r
+ return [osutils:juststation $goaway $listloc]\r
+}\r
+;#\r
+;# remove from listloc OpenCascade units indesirables on Unix\r
+;#\r
+proc osutils:justunix { listloc } {\r
+ set goaway [list WNT WOKNT]\r
+ return [osutils:juststation $goaway $listloc]\r
+}\r
+;#\r
+;# Define libraries to link\r
+proc LibToLink {tkit} {\r
+ if {[uinfo -t $tkit] == "toolkit"} {\r
+ set l {}\r
+ set LibList [woklocate -p [wokinfo -n $tkit]:stadmfile:[wokinfo -n $tkit]_lib_tks.Out]\r
+ if ![ catch { set id [ open $LibList r ] } status ] {\r
+ while {[gets $id x] >= 0 } {\r
+ if [regexp -- {(-E[^ ]*)} $x] {\r
+ set endnameid [expr { [string wordend $x 4] -1 }]\r
+ set fx [string range $x 3 $endnameid]\r
+ if {[uinfo -t [woklocate -u [file rootname $fx]]] == "toolkit"} { \r
+ lappend l $fx\r
+ }\r
+ }\r
+ #if [regexp -- {(-VE[^ ]*)} $x] {\r
+ # set startid [string first CSF $x]\r
+ # set endid [ expr { [string wordend $x $startid] -1 } ]\r
+ # set fx [string range $x $startid $endid]\r
+ # lappend l $fx\r
+ #}\r
+\r
+ }\r
+ close $id\r
+ } else {\r
+ puts $status\r
+ }\r
+ return $l\r
+ }\r
+}\r
+\r
+proc LibToLinkX {tkit name} {\r
+ if {[uinfo -t $tkit] == "executable"} {\r
+ set l {}\r
+ set LibList [woklocate -p [wokinfo -n $tkit]:stadmfile:[wokinfo -n $tkit]_exec_tks_${name}.Out]\r
+ if ![ catch { set id [ open $LibList r ] } status ] {\r
+ while {[gets $id x] >= 0 } {\r
+ if [regexp -- {(-E[^ ]*)} $x] {\r
+ if {[regexp -- {library} $x]} {\r
+ set endnameid [expr { [string wordend $x 4] -1 }]\r
+ set fx [string range $x 3 $endnameid]\r
+ lappend l $fx\r
+ }\r
+ }\r
+ #if [regexp -- {(-VE[^ ]*)} $x] {\r
+ # set startid [string first CSF $x]\r
+ # set endid [ expr { [string wordend $x $startid] -1 } ]\r
+ # set CSF_fx [string range $x $startid $endid]\r
+ # if { $CSF_fx != "-"} {\r
+ # puts $CSF_fx\r
+ # set fx [file tail [lindex [wokparam -v \%$CSF_fx $tkit] 0]]\r
+ # lappend l $fx\r
+ # }\r
+ #}\r
+\r
+ }\r
+ close $id\r
+ } else {\r
+ puts $status\r
+ }\r
+ return $l\r
+ }\r
+}\r
+\r
+\r
+;#\r
+;# ((((((((WOK toolkits manipulations))))))))\r
+;#\r
+;# close dependencies of ltk. (full wok pathes of toolkits)\r
+;# The CURRENT WOK LOCATION MUST contains ALL TOOLKITS required. \r
+;# (locate not performed.)\r
+proc osutils:tk:close { ltk } {\r
+ set result {}\r
+ set recurse {}\r
+ foreach dir $ltk {\r
+ #set ids [woklocate -p [wokinfo -n [wokinfo -u $dir]]:source:EXTERNLIB [wokinfo -w $dir]]\r
+ set ids [LibToLink $dir]\r
+ set eated [osutils:tk:eatpk $ids]\r
+ set result [concat $result $eated]\r
+ set ids [LibToLink $dir]\r
+ set result [concat $result $ids]\r
+ #puts "EXTERNLIB dir = $dir ids = $ids result = $result eated = $eated"\r
+ foreach file $eated {\r
+ set kds [woklocate -p [wokinfo -n [wokinfo -u $file]]:source:EXTERNLIB [wokinfo -w $file]]\r
+ if { [osutils:tk:eatpk $kds] != {} } {\r
+ lappend recurse $file\r
+ }\r
+ }\r
+ }\r
+ ;# if ![lempty $recurse] {\r
+ ;# set result [concat $result [osutils:tk:close $recurse]]\r
+ ;# }\r
+ if { $recurse != {} } {\r
+ set result [concat $result [osutils:tk:close $recurse]]\r
+ }\r
+ #puts $result\r
+ return $result\r
+}\r
+;#\r
+;# Topological sort of toolkits in tklm\r
+;#\r
+proc osutils:tk:sort { tklm } {\r
+ set tkby2 {}\r
+ foreach tkloc $tklm {\r
+ set lprg [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ foreach tkx $lprg {\r
+ if { [lsearch $tklm $tkx] != -1 } {\r
+ lappend tkby2 [list $tkx $tkloc]\r
+ } else {\r
+ lappend tkby2 [list $tkloc {}]\r
+ }\r
+ }\r
+ }\r
+ set lret {}\r
+ foreach e [wokUtils:EASY:tsort $tkby2] {\r
+ if { $e != {} } {\r
+ lappend lret $e\r
+ }\r
+ }\r
+ return $lret\r
+}\r
+\r
+;#\r
+;# Returns liste of UD in a toolkit. tkloc is a full path wok.\r
+;# \r
+proc osutils:tk:units { tkloc {typed 0} } {\r
+ set l {}\r
+ set PACKAGES [woklocate -p [wokinfo -n [wokinfo -u $tkloc]]:source:PACKAGES [wokinfo -w $tkloc]]\r
+ foreach u [wokUtils:FILES:FileToList $PACKAGES] {\r
+ set fu [woklocate -u $u]\r
+ if { [set fu [woklocate -u $u]] != {} } {\r
+ if { $typed == 0 } {\r
+ lappend l $fu\r
+ } \r
+ if { $typed == 1 } {\r
+ lappend l [list [uinfo -c $fu] [wokinfo -n $fu]]\r
+ }\r
+ if { $typed == 2 } {\r
+ lappend l [list [uinfo -c $fu] $fu]\r
+ }\r
+ if { $typed == 3 } {\r
+ lappend l [list [uinfo -t $fu] [wokinfo -n $fu]]\r
+ }\r
+ if { $typed == 4 } {\r
+ lappend l [list [uinfo -t $fu] $fu]\r
+ }\r
+ } else {\r
+ puts stderr "Unit inconnue $u"\r
+ }\r
+ }\r
+ if { $l == {} } {\r
+ ;#puts stderr "Warning. No devunit included in $tkloc"\r
+ }\r
+ return $l\r
+}\r
+;#\r
+;# for a unit returns a map containing all its file in the current\r
+;# workbench\r
+;# local = 1 only local files\r
+;#\r
+proc osutils:tk:loadunit { loc map {local 0}} {\r
+ upvar $map TLOC\r
+ catch { unset TLOC }\r
+ if { $local == 1 } {\r
+ set lfiles [uinfo -Fpl $loc]\r
+ } else {\r
+ set lfiles [uinfo -Fp $loc]\r
+ }\r
+ foreach f $lfiles { \r
+ #puts $f\r
+ set t [lindex $f 0]\r
+ set p [lindex $f 2]\r
+ if [info exists TLOC($t)] {\r
+ set l $TLOC($t)\r
+ lappend l $p\r
+ set TLOC($t) $l\r
+ } else {\r
+ set TLOC($t) $p\r
+ }\r
+ }\r
+ return\r
+}\r
+;#\r
+;# Returns the list of all compilable files name in a toolkit, or devunit of any type\r
+;# Call unit filter on units name to accept or reject a unit\r
+;# Tfiles lists for each unit the type of file that can be compiled.\r
+;#\r
+proc osutils:tk:files { tkloc {l_compilable {} } {justail 1} {unitfilter {}} } {\r
+ set Tfiles(source,package) {source derivated privinclude pubinclude drvfile}\r
+ set Tfiles(source,nocdlpack) {source pubinclude drvfile}\r
+ set Tfiles(source,schema) {source derivated privinclude pubinclude drvfile}\r
+ set Tfiles(source,toolkit) {}\r
+ set Tfiles(source,executable) {source pubinclude drvfile}\r
+ set listloc [concat [osutils:tk:units [woklocate -u $tkloc]] [woklocate -u $tkloc]]\r
+ #puts " listloc = $listloc"\r
+ if { $l_compilable == {} } {\r
+ set l_comp [list .c .cxx .cpp]\r
+ } else {\r
+ set l_comp [$l_compilable]\r
+ }\r
+ if { $unitfilter == {} } {\r
+ set resultloc $listloc\r
+ } else {\r
+ set resultloc [$unitfilter $listloc]\r
+ }\r
+ set lret {}\r
+ foreach loc $resultloc {\r
+ set utyp [uinfo -t $loc]\r
+ if [array exists map] { unset map } \r
+ osutils:tk:loadunit $loc map\r
+ #puts " loc = $loc === > [array names map]"\r
+ set LType $Tfiles(source,${utyp})\r
+ foreach typ [array names map] {\r
+ if { [lsearch $LType $typ] == -1 } {\r
+ unset map($typ)\r
+ }\r
+ }\r
+ foreach type [array names map] {\r
+ #puts $type\r
+ foreach f $map($type) {\r
+ #puts $f\r
+ if { [lsearch $l_comp [file extension $f]] != -1 } {\r
+ if { $justail == 1 } {\r
+ if {$type == "source"} {\r
+ if {[lsearch $lret "@top_srcdir@/drv/[wokinfo -n $loc]/[file tail $f]"] == -1} {\r
+ lappend lret @top_srcdir@/src/[wokinfo -n $loc]/[file tail $f]\r
+ }\r
+ } elseif {$type == "derivated" || $type == "drvfile"} {\r
+ if {[lsearch $lret "@top_srcdir@/src/[wokinfo -n $loc]/[file tail $f]"] == -1} {\r
+ lappend lret @top_srcdir@/drv/[wokinfo -n $loc]/[file tail $f]\r
+ }\r
+ }\r
+ } else {\r
+ lappend lret $f\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ return $lret\r
+}\r
+;#\r
+;# \r
+;#\r
+proc osutils:tk:eatpk { EXTERNLIB } {\r
+ set l [wokUtils:FILES:FileToList $EXTERNLIB]\r
+ set lret {}\r
+ foreach str $l {\r
+ if ![regexp -- {(CSF_[^ ]*)} $str csf] {\r
+ lappend lret $str\r
+ }\r
+ }\r
+ return $lret\r
+}\r
+;#\r
+;# Return the list of name *CSF_ in a EXTERNLIB description of a toolkit\r
+;#\r
+proc osutils:tk:hascsf { EXTERNLIB } {\r
+ set l [wokUtils:FILES:FileToList $EXTERNLIB]\r
+ set lret {STLPort}\r
+ foreach str $l {\r
+ if [regexp -- {(CSF_[^ ]*)} $str csf] {\r
+ lappend lret $csf\r
+ }\r
+ }\r
+ return $lret\r
+}\r
+;#\r
+;# Create file tkloc.dsp for a shareable library (dll).\r
+;# in dir return the full path of the created file\r
+;#\r
+proc osutils:vc6 { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc6:readtemplate]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc6:fmtcpp]}\r
+ set fp [open [set fdsp [file join $dir ${tkloc}.dsp]] w]\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc6:compilable]\r
+ regsub -all -- {__TKNAM__} $tmplat $tkloc temp0\r
+ set tkused ""\r
+ foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ foreach tk [lappend [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] $tkloc] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set felem [file tail [lindex [wokparam -v "%$element"] 0]]\r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+\r
+ #puts "alternative [LibToLink $tkloc]"\r
+ puts "$tkloc requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp0 $tkused temp1\r
+ set files ""\r
+ ;#set listloc [concat [osutils:tk:units [woklocate -u $tkloc]] [woklocate -u $tkloc]]\r
+ set listloc [osutils:tk:units [woklocate -u $tkloc]]\r
+ set resultloc [osutils:justwnt $listloc]\r
+ ;#puts "result = $resultloc"\r
+ ;#set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justwnt]]\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ append files "# Begin Group \"${xlo}\"" "\n" \r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ set fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]\r
+ set fxloparam "$fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]"\r
+ set needparam ""\r
+ foreach partopt $fxloparam {\r
+ if { "-I[lindex [wokparam -v %CSF_TCL_INCLUDE] 0]" != "$partopt "} {\r
+ if { "-I[lindex [wokparam -v %CSF_JAVA_INCLUDE] 0]" != "$partopt "} {\r
+ set needparam "$needparam $partopt"\r
+ }\r
+ }\r
+ }\r
+ foreach f $lsrc {\r
+ ;#puts " f = $f"\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "# Begin Source File" "\n"\r
+ append files "SOURCE=..\\..\\..\\" [wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]] "\n"\r
+ append files [format $fmtcpp $xlo $xlo $xlo] "$needparam" "\n"\r
+ append files "# End Source File" "\n"\r
+ } else {\r
+ puts "Warning : in dsp more than one occurences for [file tail $f]"\r
+ }\r
+ }\r
+ append files "# End Group" "\n"\r
+ }\r
+ \r
+ regsub -all -- {__FILES__} $temp1 $files temp2\r
+ puts $fp $temp2\r
+ close $fp\r
+ return $fdsp\r
+}\r
+proc osutils:vc7 { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc7:readtemplate]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc7:fmtcpp]}\r
+ set fp [open [set fvcproj [file join $dir ${tkloc}.vcproj]] w]\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc7:compilable]\r
+ regsub -all -- {__TKNAM__} $tmplat $tkloc temp0\r
+ set tkused ""\r
+ foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ foreach tk [lappend [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] $tkloc] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set felem [file tail [lindex [wokparam -v "%$element"] 0]]\r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+\r
+ puts "$tkloc requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp0 $tkused temp1\r
+ set files ""\r
+ set listloc [osutils:tk:units [woklocate -u $tkloc]]\r
+ set resultloc [osutils:justwnt $listloc]\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo] \r
+ append files " <Filter\n"\r
+ append files " Name=\"${xlo}\"\n"\r
+ append files " Filter=\"\">\n"\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ set fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]\r
+ set fxloparam "$fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]"\r
+ set needparam ""\r
+ foreach partopt $fxloparam {\r
+ if { "-I[lindex [wokparam -v %CSF_TCL_INCLUDE] 0]" != "$partopt "} {\r
+ if { "-I[lindex [wokparam -v %CSF_JAVA_INCLUDE] 0]" != "$partopt "} {\r
+ set needparam "$needparam $partopt"\r
+ }\r
+ }\r
+ }\r
+ foreach f $lsrc {\r
+ #puts " f = $f"\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "\t\t\t\t<File\n"\r
+ append files "\t\t\t\t\tRelativePath=\"..\\..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Debug\|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ if {$needparam != ""} {\r
+ append files "\t\t\t\t\t\t\tAdditionalOptions=\""\r
+ foreach paramm $needparam {\r
+ append files "$paramm "\r
+ }\r
+ append files "\"\n"\r
+ }\r
+ append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Release\|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ if {$needparam != ""} {\r
+ append files "\t\t\t\t\t\t\tAdditionalOptions=\""\r
+ foreach paramm $needparam {\r
+ append files "$paramm "\r
+ }\r
+ append files "\"\n"\r
+ }\r
+ append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t</File>\n"\r
+ } else {\r
+ puts "Warning : in vcproj more than one occurences for [file tail $f]"\r
+ }\r
+ }\r
+ append files "\t\t\t</Filter>"\r
+ }\r
+ \r
+ regsub -all -- {__FILES__} $temp1 $files temp2\r
+ puts $fp $temp2\r
+ close $fp\r
+ return $fvcproj\r
+}\r
+proc osutils:vc8 { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc8:readtemplate]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc8:fmtcpp]}\r
+ set fp [open [set fvcproj [file join $dir ${tkloc}.vcproj]] w]\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc8:compilable]\r
+ regsub -all -- {__TKNAM__} $tmplat $tkloc temp0\r
+ set tkused ""\r
+ foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ foreach tk [lappend [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] $tkloc] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set felem [file tail [lindex [wokparam -v "%$element"] 0]]\r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+\r
+ puts "$tkloc requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp0 $tkused temp1\r
+ set files ""\r
+ set listloc [osutils:tk:units [woklocate -u $tkloc]]\r
+ set resultloc [osutils:justwnt $listloc]\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo] \r
+ append files " <Filter\n"\r
+ append files " Name=\"${xlo}\"\n"\r
+ append files " Filter=\"\">\n"\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ set fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]\r
+ set fxloparam "$fxloparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]"\r
+ set needparam ""\r
+ foreach partopt $fxloparam {\r
+ if { "-I[lindex [wokparam -v %CSF_TCL_INCLUDE] 0]" != "$partopt "} {\r
+ if { "-I[lindex [wokparam -v %CSF_JAVA_INCLUDE] 0]" != "$partopt "} {\r
+ set needparam "$needparam $partopt"\r
+ }\r
+ }\r
+ }\r
+ foreach f $lsrc {\r
+ #puts " f = $f"\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "\t\t\t\t<File\n"\r
+ append files "\t\t\t\t\tRelativePath=\"..\\..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Debug\|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ if {$needparam != ""} {\r
+ append files "\t\t\t\t\t\t\tAdditionalOptions=\""\r
+ foreach paramm $needparam {\r
+ append files "$paramm "\r
+ }\r
+ append files "\"\n"\r
+ }\r
+ append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Release\|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ if {$needparam != ""} {\r
+ append files "\t\t\t\t\t\t\tAdditionalOptions=\""\r
+ foreach paramm $needparam {\r
+ append files "$paramm "\r
+ }\r
+ append files "\"\n"\r
+ }\r
+ append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $xlo $xlo $xlo]\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t</File>\n"\r
+ } else {\r
+ puts "Warning : in vcproj more than one occurences for [file tail $f]"\r
+ }\r
+ }\r
+ append files "\t\t\t</Filter>"\r
+ }\r
+ \r
+ regsub -all -- {__FILES__} $temp1 $files temp2\r
+ puts $fp $temp2\r
+ close $fp\r
+ return $fvcproj\r
+}\r
+;#\r
+;# Create file tkloc.dsp for a executable "console" application\r
+;# in dir return the full path of the created file\r
+;#\r
+proc osutils:vc6x { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc6:readtemplatex]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc6:fmtcppx]}\r
+ foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {\r
+ set tf [file rootname [file tail $f]] \r
+ set fp [open [set fdsp [file join $dir ${tf}.dsp]] w]\r
+ puts $fdsp\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc6:compilable]\r
+ regsub -all -- {__XQTNAM__} $tmplat $tf temp0\r
+ set tkused ""\r
+ puts [LibToLinkX [woklocate -u $tkloc] $tf]\r
+ foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+# if {[lsearch [w_info -l] [woklocate -u $tkx]] == "-1"} {\r
+# append tkused "${tkx}.lib "\r
+# }\r
+ if {[woklocate -u $tkx] == "" } {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ }\r
+ foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokinfo -N [woklocate -u $tk]]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set elemlist [wokparam -v "%$element"]\r
+ set felem [file tail [lindex $elemlist 0]] \r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ #puts "was found $element $felem" \r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+ if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)"} { \r
+ set tkused [concat $tkused "\/dll"]\r
+ }\r
+ regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1 \r
+ regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2 \r
+ puts "$tf requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp2 $tkused temp3\r
+ set files ""\r
+ ;#set lsrc [osutils:tk:files $tkloc osutils:am:compilable 0]\r
+ ;#foreach f $lsrc {\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "# Begin Group \"" $tkloc "\" \n"\r
+ append files "# Begin Source File" "\n"\r
+ append files "SOURCE=..\\..\\..\\" [wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]] "\n"\r
+ append files [format $fmtcpp $tkloc $tkloc $tkloc] "\n"\r
+ append files "# End Source File" "\n"\r
+ append files "# End Group" "\n"\r
+ } else {\r
+ puts "Warning : in dsp more than one occurences for [file tail $f]"\r
+ }\r
+ ;#}\r
+ \r
+ regsub -all -- {__FILES__} $temp3 $files temp4\r
+ puts $fp $temp4\r
+ close $fp\r
+ set fout [lappend fout $fdsp]\r
+ }\r
+ return $fout\r
+}\r
+proc osutils:vc7x { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc7:readtemplatex]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc7:fmtcppx]}\r
+ set fout {}\r
+ foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {\r
+ puts "1"\r
+ set tf [file rootname [file tail $f]] \r
+ set l_compilable [osutils:vc7:compilable]\r
+ regsub -all -- {__XQTNAM__} $tmplat $tf temp0\r
+ set tkused ""\r
+ foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ if {[lsearch [w_info -l] $tkx] == "-1"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ }\r
+ foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set elemlist [wokparam -v "%$element"]\r
+ set felem [file tail [lindex $elemlist 0]] \r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ #puts "was found $element $felem" \r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+ if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)"} { \r
+ set tkused [concat $tkused "\/dll"]\r
+ set binext 2\r
+ } else {\r
+ set binext 1\r
+ }\r
+ #puts "$tf requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp0 $tkused temp3\r
+ set files ""\r
+ ;#set lsrc [osutils:tk:files $tkloc osutils:am:compilable 0]\r
+ ;#foreach f $lsrc {\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "\t\t\t<Filter\n"\r
+ append files "\t\t\t\tName=\"$tkloc\"\n"\r
+ append files "\t\t\t\tFilter=\"\">\n"\r
+ append files "\t\t\t\t<File\n"\r
+ append files "\t\t\t\t\tRelativePath=\"..\\..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Debug|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"\r
+ append files "\t\t\t\t\t\t\tBasicRuntimeChecks=\"3\"\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Release|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t</File>\n"\r
+ append files "\t\t\t</Filter>\n"\r
+ } else {\r
+ puts "Warning : in dsp more than one occurences for [file tail $f]"\r
+ }\r
+ ;#}\r
+ #puts "$temp3 $files"\r
+ regsub -all -- {__FILES__} $temp3 $files temp4\r
+ regsub -all -- {__CONF__} $temp4 $binext temp5\r
+ set fp [open [set fdsp [file join $dir ${tf}.vcproj]] w]\r
+ fconfigure $fp -translation crlf\r
+ \r
+ puts $fp $temp5\r
+ set fout [lappend fout $fdsp]\r
+ close $fp\r
+ }\r
+ return $fout\r
+}\r
+\r
+proc osutils:vc8x { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:vc8:readtemplatex]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:vc8:fmtcppx]}\r
+ set fout {}\r
+ foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {\r
+ puts "1"\r
+ set tf [file rootname [file tail $f]] \r
+ set l_compilable [osutils:vc8:compilable]\r
+ regsub -all -- {__XQTNAM__} $tmplat $tf temp0\r
+ set tkused ""\r
+ foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ if {[lsearch [w_info -l] $tkx] == "-1"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ }\r
+ foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set elemlist [wokparam -v "%$element"]\r
+ set felem [file tail [lindex $elemlist 0]] \r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ #puts "was found $element $felem" \r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+ if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)"} { \r
+ set tkused [concat $tkused "\/dll"]\r
+ set binext 2\r
+ } else {\r
+ set binext 1\r
+ }\r
+ #puts "$tf requires $tkused"\r
+ regsub -all -- {__TKDEP__} $temp0 $tkused temp3\r
+ set files ""\r
+ ;#set lsrc [osutils:tk:files $tkloc osutils:am:compilable 0]\r
+ ;#foreach f $lsrc {\r
+ if { ![info exists written([file tail $f])] } {\r
+ set written([file tail $f]) 1\r
+ append files "\t\t\t<Filter\n"\r
+ append files "\t\t\t\tName=\"$tkloc\"\n"\r
+ append files "\t\t\t\tFilter=\"\">\n"\r
+ append files "\t\t\t\t<File\n"\r
+ append files "\t\t\t\t\tRelativePath=\"..\\..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $f 3]]\">\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Debug|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ append files "\t\t\t\t\t\t\tOptimization=\"0\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"\r
+ append files "\t\t\t\t\t\t\tBasicRuntimeChecks=\"3\"\n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t\t<FileConfiguration\n"\r
+ append files "\t\t\t\t\t\tName=\"Release|Win32\">\n"\r
+ append files "\t\t\t\t\t\t<Tool\n"\r
+ append files "\t\t\t\t\t\t\tName=\"VCCLCompilerTool\"\n"\r
+ append files "\t\t\t\t\t\t\tOptimization=\"2\"\n"\r
+ append files "\t\t\t\t\t\t\t[format $fmtcpp $tkloc $tkloc $tkloc] \n"\r
+ append files "\t\t\t\t\t\t\tCompileAs=\"0\"/>\n"\r
+ append files "\t\t\t\t\t</FileConfiguration>\n"\r
+ append files "\t\t\t\t</File>\n"\r
+ append files "\t\t\t</Filter>\n"\r
+ } else {\r
+ puts "Warning : in dsp more than one occurences for [file tail $f]"\r
+ }\r
+ ;#}\r
+ #puts "$temp3 $files"\r
+ regsub -all -- {__FILES__} $temp3 $files temp4\r
+ regsub -all -- {__CONF__} $temp4 $binext temp5\r
+ set fp [open [set fdsp [file join $dir ${tf}.vcproj]] w]\r
+ fconfigure $fp -translation crlf\r
+ \r
+ puts $fp $temp5\r
+ set fout [lappend fout $fdsp]\r
+ close $fp\r
+ }\r
+ return $fout\r
+}\r
+\r
+;#\r
+;# Create file tkloc.mak for a shareable library (dll).\r
+;# in dir return the full path of the created file\r
+;#\r
+proc osutils:mkmak { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ puts $tkloc\r
+ if { $tmplat == {} } {set tmplat [osutils:mak:readtemplate]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:mak:fmtcpp]}\r
+ set fp [open [set fdsp [file join $dir ${tkloc}.mak]] w]\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc6:compilable]\r
+ set tkused [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ set listloc [osutils:tk:units [woklocate -u $tkloc]]\r
+ set resultloc [osutils:justwnt $listloc]\r
+ regsub -all -- {__TKNAM__} $tmplat $tkloc temp0\r
+ set area1 ""\r
+ append area1 "\!IF \"\$(RECURSE)\" == \"0\" \n"\r
+ append area1 "ALL : \"\$(OUTDIR)\\${tkloc}.dll\"\n"\r
+ append area1 "\!ELSE\n"\r
+ append area1 "ALL : "\r
+ if {$tkused != ""} {\r
+ foreach tkproj $tkused {\r
+ append area1 "\"$tkproj - Win32 Release\" " \r
+ }\r
+ }\r
+ append area1 " \"\$(OUTDIR)\\$tkloc.dll\"\n"\r
+ append area1 "\!ENDIF \n"\r
+ append area1 "\!IF \"\$(RECURSE)\" == \"1\"\n" \r
+ append area1 "CLEAN :"\r
+ if {$tkused != ""} {\r
+ foreach tkproj $tkused {\r
+ append area1 "\"$tkproj - Win32 ReleaseCLEAN\" " \r
+ }\r
+ }\r
+ append area1 "\n" \r
+ append area1 "\!ELSE\n" \r
+ append area1 "CLEAN :\n"\r
+ append area1 "\!ENDIF\n"\r
+ set tclused 0\r
+ set javaused 0\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ set fxlocxxparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]\r
+ set fxlocparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]\r
+ if {[lsearch [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_TCL_INCLUDE] 0] 0 end]"] != -1} {\r
+ set tclused 1\r
+ }\r
+ if {[lsearch [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_JavaHome]/include 0] 0 end]"] != -1} {\r
+ set javaused 1\r
+ }\r
+ if {[lsearch [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_TCL_INCLUDE] 0] 0 end]"] != -1} {\r
+ set tclused 1\r
+ }\r
+ if {[lsearch [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0] "-I[lrange [lindex [wokparam -v %CSF_JavaHome]/include 0] 0 end]"] != -1} {\r
+ set javaused 1\r
+ }\r
+\r
+ foreach srcfile $lsrc {\r
+ if { ![info exists written([file tail $srcfile])] } {\r
+ set written([file tail $srcfile]) 1\r
+ append area1 "\t-@erase \"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\"\n"\r
+ }\r
+ }\r
+ } \r
+ regsub -all -- {__FIELD1__} $temp0 $area1 temp1\r
+\r
+ set area2 "LINK32_FLAGS=-nologo -subsystem:windows -dll -incremental:no -machine:IX86 -libpath:\"\$(LIBDIR)\" -implib:\$(LIBDIR)\\$tkloc.lib -out:\$(OUTDIR)\\$tkloc.dll "\r
+ set libused ""\r
+ foreach tkx [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]] {\r
+ append libused "${tkx}.lib "\r
+ }\r
+ set ltk [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ set ltk [lappend ltk $tkloc]\r
+ foreach tk $ltk {\r
+ foreach element [osutils:tk:hascsf [woklocate -p $tk:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set felem [file tail [lindex [wokparam -v "%$element"] 0]]\r
+ if {[lsearch $libused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ set libused [concat $libused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+ if {$tclused == 1} {\r
+ append area2 "-libpath:\"\$(TCLHOME)\\lib\" "\r
+ }\r
+ \r
+ foreach tk $libused {\r
+ append area2 "$tk "\r
+ }\r
+ append area2 "\n"\r
+ append area2 "LINK32_OBJS= \\\n"\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ foreach srcfile $lsrc {\r
+ if { ![info exists written([file tail $srcfile])] } {\r
+ set written([file tail $srcfile]) 1\r
+ append area2 "\t\"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\" \\\n"\r
+ }\r
+ }\r
+ } \r
+ \r
+ regsub -all -- {__FIELD2__} $temp1 $area2 temp2\r
+ \r
+ set area3 ""\r
+ append area3 "\!IF \"\$(RECURSE)\" == \"0\" \n"\r
+ append area3 "ALL : \"\$(OUTDIR)\\${tkloc}.dll\"\n"\r
+ append area3 "\!ELSE\n"\r
+ append area3 "ALL : "\r
+ if {$tkused != ""} {\r
+ foreach tkproj $tkused {\r
+ append area3 "\"$tkproj - Win32 Debug\" " \r
+ }\r
+ }\r
+ append area3 " \"\$(OUTDIR)\\$tkloc.dll\"\n"\r
+ append area3 "\!ENDIF \n"\r
+ append area3 "\!IF \"\$(RECURSE)\" == \"1\"\n" \r
+ append area3 "CLEAN :"\r
+ if {$tkused != ""} {\r
+ foreach tkproj $tkused {\r
+ append area3 "\"$tkproj - Win32 DebugCLEAN\"" \r
+ }\r
+ }\r
+ append area3 "\n" \r
+ append area3 "\!ELSE\n" \r
+ append area3 "CLEAN :\n"\r
+ append area3 "\!ENDIF\n"\r
+ if [array exists written] { unset written }\r
+ \r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+\r
+ foreach srcfile $lsrc {\r
+ if { ![info exists written([file tail $srcfile])] } {\r
+ set written([file tail $srcfile]) 1\r
+ append area3 "\t-@erase \"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\"\n"\r
+ }\r
+ }\r
+ } \r
+ regsub -all -- {__FIELD3__} $temp2 $area3 temp3\r
+\r
+ set area4 "LINK32_FLAGS=-nologo -subsystem:windows -dll -incremental:no -machine:IX86 -debug -libpath:\"\$(LIBDIR)\" -implib:\$(LIBDIR)\\$tkloc.lib -out:\$(OUTDIR)\\$tkloc.dll -pdb:\$(OUTDIR)\\$tkloc.pdb "\r
+ foreach tk $libused {\r
+ append area4 "$tk "\r
+ }\r
+ if {$tclused == 1} {\r
+ append area4 "-libpath:\"\$(TCLHOME)\\lib\" "\r
+ }\r
+\r
+ append area4 "\n"\r
+ append area4 "LINK32_OBJS= \\\n"\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ foreach srcfile $lsrc {\r
+ if { ![info exists written([file tail $srcfile])] } {\r
+ set written([file tail $srcfile]) 1\r
+ append area4 "\t\"\$(INTDIR)\\[wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]].obj\" \\\n"\r
+ }\r
+ }\r
+ } \r
+ \r
+ regsub -all -- {__FIELD4__} $temp3 $area4 temp4\r
+\r
+ set area5 ""\r
+ if [array exists written] { unset written }\r
+ foreach fxlo $resultloc {\r
+ set xlo [wokinfo -n $fxlo]\r
+ set lsrc [osutils:tk:files $xlo osutils:am:compilable 0]\r
+ set fxlocxxparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_CXX_Options] 0]] [split [lindex [wokparam -v %CMPLRS_CXX_Options $fxlo] 0]] ] 2]\r
+ set fxlocparam [lindex [intersect3 [split [lindex [wokparam -v %CMPLRS_C_Options] 0]] [split [lindex [wokparam -v %CMPLRS_C_Options $fxlo] 0]] ] 2]\r
+ if {$tclused == 1} {\r
+ set fxlocxxparam "-I\$(TCLHOME)\\include"\r
+ }\r
+ if {$javaused == 1} {\r
+ set fxlocxxparam "-I\$(JAVAHOME)\\include -I\$(JAVAHOME)\\include\\win32"\r
+ }\r
+ set fxloparam "$fxlocparam $fxlocxxparam"\r
+ #puts $fxloparam\r
+ foreach srcfile $lsrc {\r
+ if { ![info exists written([file tail $srcfile])] } {\r
+ set written([file tail $srcfile]) 1\r
+ set pkname [wokUtils:EASY:bs1 [file root [wokUtils:FILES:wtail $srcfile 1]]]\r
+ \r
+ append area5 "SOURCE=..\\..\\..\\[wokUtils:EASY:bs1 [wokUtils:FILES:wtail $srcfile 3]]\n"\r
+ append area5 "\!IF \"\$(CFG)\" == \"$tkloc - Win32 Release\"\n"\r
+ append area5 "CPP_SWITCHES=\/nologo \/MD \/W3 \/GX \/O2 $fxloparam \/I \"..\\..\\..\\inc\" \/I \"..\\..\\..\\drv\\$xlo\" \/I \"..\\..\\..\\src\\$xlo\" \/D \"WIN32\" \/D \"NDEBUG\" \/D \"_WINDOWS\" \/D \"WNT\" \/D \"No_Exception\" \/D \"__${xlo}_DLL\" \/Fo\"\$(INTDIR)\\\\\\\" \/Fd\"\$(INTDIR)\\\\\\\" \/FD \/D \"CSFDB\" \/c\n"\r
+ append area5 "\"\$(INTDIR)\\$pkname.obj\" : \$(SOURCE) \"\$(INTDIR)\"\n"\r
+ append area5 "\t\t\$(CPP) \$(CPP_SWITCHES) \$(SOURCE)\n"\r
+ append area5 "\n"\r
+ append area5 "\!ELSEIF \"\$(CFG)\" == \"$tkloc - Win32 Debug\"\n"\r
+ append area5 "CPP_SWITCHES=\/nologo \/MDd \/W3 \/GX \/Zi \/Od $fxloparam \/I \"..\\..\\..\\inc\" \/I \"..\\..\\..\\drv\\$xlo\" \/I \"..\\..\\..\\src\\$xlo\" \/D \"WIN32\" \/D \"DEB\" \/D \"_DEBUG\" \/D \"_WINDOWS\" \/D \"WNT\" \/D \"CSFDB\" \/D \"__${xlo}_DLL\" \/Fo\"\$(INTDIR)\\\\\\\" \/Fd\"\$(INTDIR)\\\\\\\" \/FD \/c \n"\r
+ append area5 "\"\$(INTDIR)\\$pkname.obj\" : \$(SOURCE) \"\$(INTDIR)\"\n"\r
+ append area5 "\t\t\$(CPP) \$(CPP_SWITCHES) \$(SOURCE)\n"\r
+ append area5 "\n"\r
+ append area5 "\!ENDIF \n"\r
+ }\r
+ }\r
+ } \r
+ regsub -all -- {__FIELD5__} $temp4 $area5 temp5\r
+\r
+ set area6 ""\r
+ foreach tk $tkused {\r
+ append area6 "\!IF \"\$(CFG)\" == \"$tkloc - Win32 Release\"\n"\r
+ append area6 "\"$tk - Win32 Release\" \: \n"\r
+ append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" \n"\r
+ append area6 "\"$tk - Win32 ReleaseCLEAN\" \: \n"\r
+ append area6 " \$(MAKE)\/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" RECURSE=1 CLEAN\n"\r
+ append area6 "\!ELSEIF \"\$(CFG)\" == \"$tkloc - Win32 Debug\"\n"\r
+ append area6 "\"$tk - Win32 Debug\" \: \n"\r
+ append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" \n"\r
+ append area6 "\"$tk - Win32 DebugCLEAN\" \: \n"\r
+ append area6 " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" RECURSE=1 CLEAN\n"\r
+ append area6 "\!ENDIF\n"\r
+ }\r
+ regsub -all -- {__FIELD6__} $temp5 $area6 temp6\r
+ \r
+ if {$tclused == 1} {\r
+ set tclwarning "\!IFNDEF TCLHOME \n\!MESSAGE Compilation of this toolkit requires tcl. Set TCLHOME environment variable for proper compilation\n\!ENDIF"\r
+ } else {\r
+ set tclwarning ""\r
+ }\r
+ regsub -all -- {__TCLUSED__} $temp6 $tclwarning temp7\r
+\r
+ if {$javaused == 1} {\r
+ set javawarning "\!IFNDEF JAVAHOME \n\!MESSAGE Compilation of this toolkit requires java. Set JAVAHOME environment variable for proper compilation\n\!ENDIF"\r
+ } else {\r
+ set javawarning ""\r
+ }\r
+ regsub -all -- {__JAVAUSED__} $temp7 $javawarning temp8\r
+ puts $fp $temp8\r
+ close $fp\r
+ return $fdsp\r
+}\r
+\r
+proc osutils:mkmakx { dir tkloc {tmplat {} } {fmtcpp {} } } {\r
+ if { $tmplat == {} } {set tmplat [osutils:mak:readtemplatex]}\r
+ if { $fmtcpp == {} } {set fmtcpp [osutils:mak:fmtcppx]}\r
+ foreach f [osutils:tk:files $tkloc osutils:am:compilable 0] {\r
+ set tf [file rootname [file tail $f]] \r
+ set fp [open [set fdsp [file join $dir ${tf}.mak]] w]\r
+ puts $fdsp\r
+ set tclused 0\r
+ fconfigure $fp -translation crlf\r
+ set l_compilable [osutils:vc6:compilable]\r
+ regsub -all -- {__XQTNAM__} $tmplat $tf temp0\r
+ set tkused ""\r
+ puts [LibToLinkX [woklocate -u $tkloc] $tf]\r
+ foreach tkx [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ if {[uinfo -t [woklocate -u $tkx]] == "toolkit"} {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ if {[woklocate -u $tkx] == "" } {\r
+ append tkused "${tkx}.lib "\r
+ }\r
+ }\r
+ foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[wokparam -t %$element] != 0} {\r
+ set elemlist [wokparam -v "%$element"]\r
+ set felem [file tail [lindex $elemlist 0]] \r
+ if {[lsearch $tkused $felem] == "-1"} {\r
+ if {$felem != "\{\}"} {\r
+ #puts "was found $element $felem" \r
+ if {$element == "CSF_TclLibs"} { set tclused 1} \r
+ set tkused [concat $tkused $felem]\r
+ }\r
+ } \r
+ }\r
+ }\r
+ }\r
+ \r
+ if {[wokparam -v %WOKSteps_exec_link [woklocate -u $tkloc]] == "#WOKStep_DLLink(exec.tks)" } { \r
+ set tkused [concat $tkused "\/dll"]\r
+ if {$tclused != 1} {\r
+ regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1 \r
+ regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2 \r
+ } else {\r
+ regsub -all -- {__COMPOPT__} $temp0 "\/MD \/I \"\$(TCLHOME)\\include\"" temp1 \r
+ regsub -all -- {__COMPOPTD__} $temp1 "\/MDd \/I \"\$(TCLHOME)\\include\"" temp2 \r
+ } \r
+ regsub -all -- {__XQTNAMEX__} $temp2 "$tf.dll" temp3\r
+ } else {\r
+ if {$tclused != 1} {\r
+ regsub -all -- {__COMPOPT__} $temp0 "\/MD" temp1\r
+ regsub -all -- {__COMPOPTD__} $temp1 "\/MDd" temp2 \r
+ } else {\r
+ regsub -all -- {__COMPOPT__} $temp0 "\/MD \/I \"\$(TCLHOME)\\include\"" temp1\r
+ regsub -all -- {__COMPOPTD__} $temp1 "\/MDd \/I \"\$(TCLHOME)\\include\"" temp2 \r
+ }\r
+ regsub -all -- {__XQTNAMEX__} $temp2 "$tf.exe" temp3\r
+ }\r
+ #puts "$tf requires $tkused"\r
+ if {$tclused == 1} {\r
+ append tkused " -libpath:\"\$(TCLHOME)\\lib\" "\r
+ }\r
+ regsub -all -- {__TKDEP__} $temp3 $tkused temp4\r
+ set files ""\r
+ set field1 ""\r
+ set field2 ""\r
+ set field3 ""\r
+ set field4 ""\r
+ foreach tk [LibToLinkX [woklocate -u $tkloc] $tf] {\r
+\r
+ append files "\!IF \"\$(CFG)\" == \"$tf - Win32 Release\"\n"\r
+ append files "\"$tk - Win32 Release\" \: \n"\r
+ append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" \n"\r
+ append files "\"$tk - Win32 ReleaseCLEAN\" \: \n"\r
+ append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Release\" RECURSE=1 CLEAN\n"\r
+ append files "\!ELSEIF \"\$(CFG)\" == \"$tf - Win32 Debug\"\n"\r
+ append files "\"$tk - Win32 Debug\" \: \n"\r
+ append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" \n"\r
+ append files "\"$tk - Win32 DebugCLEAN\" \: \n"\r
+ append files " \$(MAKE) \/NOLOGO \/\$(MAKEFLAGS) \/F .\\$tk.mak CFG=\"$tk - Win32 Debug\" RECURSE=1 CLEAN\n"\r
+ append files "\!ENDIF\n"\r
+ \r
+ append field1 "\"$tk - Win32 Release\" "\r
+ append field2 "\"$tk - Win32 ReleaseCLEAN\" "\r
+ append field3 "\"$tk - Debug\" "\r
+ append field4 "\"$tk - Win32 DebugCLEAN\" "\r
+ \r
+ }\r
+ regsub -all -- {__FILES__} $temp4 $files temp5\r
+ regsub -all -- {__FIELD1__} $temp5 $field1 temp6\r
+ regsub -all -- {__FIELD2__} $temp6 $field2 temp7\r
+ regsub -all -- {__FIELD3__} $temp7 $field3 temp8\r
+ regsub -all -- {__FIELD4__} $temp8 $field4 temp9\r
+ regsub -all -- {__XNAM__} $temp9 $tkloc temp10\r
+ puts $fp $temp10\r
+ close $fp\r
+ set fout [lappend fout $fdsp]\r
+ }\r
+ return $fout\r
+}\r
+\r
+\r
+;# \r
+;# (((((((((((((((((((((((( AUTOMAKE/ PROJECTs )))))))))))))))))))))))\r
+;#\r
+;# Create in dir the Makefile.am associated with toolkit tkloc.\r
+;# Returns the full path of the created file.\r
+;#\r
+proc osutils:tk:mkam { dir tkloc } {\r
+ set pkgs [woklocate -p ${tkloc}:PACKAGES]\r
+ if { $pkgs == {} } {\r
+ puts stderr "osutils:tk:mkam : Error. File PACKAGES not found for toolkit $tkloc."\r
+ return {}\r
+ }\r
+\r
+ set tmplat [osutils:am:readtemplate]\r
+ set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]\r
+ set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]\r
+ set lobj [wokUtils:LIST:sanspoint $lsrc]\r
+\r
+ set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]\r
+\r
+ set final 0\r
+ set externinc ""\r
+ set externlib ""\r
+ if { $lcsf != {} } {\r
+ set final 1\r
+ set fmtinc "\$(%s_INCLUDES) "\r
+ set fmtlib "\$(%s_LIB) "\r
+ set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]\r
+ set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]\r
+ }\r
+\r
+ regsub -all -- {__TKNAM__} "$tmplat" "$tkloc" temp0\r
+ set vpath [osutils:am:__VPATH__ $lpkgs]\r
+ regsub -all -- {__VPATH__} "$temp0" "$vpath" temp1\r
+ set inclu [osutils:am:__INCLUDES__ $lpkgs]\r
+ regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2\r
+ if { $close != {} } {\r
+ set libadd [osutils:am:__LIBADD__ $close $final]\r
+ } else {\r
+ set libadd ""\r
+ }\r
+ regsub -all -- {__LIBADD__} "$temp2" "$libadd" temp3\r
+ set source [osutils:am:__SOURCES__ $lsrc]\r
+ regsub -all -- {__SOURCES__} "$temp3" "$source" temp4\r
+ regsub -all -- {__EXTERNINC__} "$temp4" "$externinc" temp5\r
+ set CXXFl [osutils:am:__CXXFLAG__ $lpkgs]\r
+ regsub -all -- {__CXXFLAG__} "$temp5" "$CXXFl" temp6\r
+ set CFl [osutils:am:__CFLAG__ $lpkgs]\r
+ regsub -all -- {__CFLAG__} "$temp6" "$CFl" temp7\r
+\r
+ regsub -all -- {__EXTERNLIB__} "$temp7" "$externlib" MakeFile_am\r
+\r
+ wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]\r
+\r
+ catch { unset temp0 temp1 temp2 temp3 temp4 temp5 temp6 temp7}\r
+\r
+ #set tmplat [osutils:in:readtemplate]\r
+ \r
+ #regsub -all -- {__TKNAM__} "$tmplat" "$tkloc" temp0\r
+ #if { $close != {} } {\r
+ #set dpncies [osutils:in:__DEPENDENCIES__ $close]\r
+ #} else {\r
+ #set dpncies ""\r
+ #}\r
+ #regsub -all -- {__DEPENDENCIES__} "$temp0" "$dpncies" temp1\r
+\r
+ #set objects [osutils:in:__OBJECTS__ $lobj]\r
+ #regsub -all -- {__OBJECTS__} "$temp1" "$objects" temp2\r
+ #set amdep [osutils:in:__AMPDEP__ $lobj]\r
+ #regsub -all -- {__AMPDEP__} "$temp2" "$amdep" temp3\r
+ #set amdeptrue [osutils:in:__AMDEPTRUE__ $lobj]\r
+ #regsub -all -- {__AMDEPTRUE__} "$temp3" "$amdeptrue" temp4\r
+;# so easy.. \r
+ #regsub -all -- {__MAKEFILEIN__} "$temp4" "$MakeFile_am" MakeFile_in\r
+\r
+ #wokUtils:FILES:StringToFile "$MakeFile_in" [set fmin [file join $dir Makefile.in]]\r
+\r
+ return [list $fmam]\r
+ #return [list $fmam $fmin]\r
+}\r
+;#\r
+;# Create in dir the Makefile.am associated with toolkit tkloc.\r
+;# Returns the full path of the created file.\r
+;#\r
+proc osutils:tk:mkamx { dir tkloc } {\r
+ if { [lsearch [uinfo -f -T source [woklocate -u $tkloc]] ${tkloc}_WOKSteps.edl] != "-1"} {\r
+ set pkgs [woklocate -p ${tkloc}:EXTERNLIB]\r
+ if { $pkgs == {} } {\r
+ puts stderr "osutils:tk:mkamx : Error. File EXTERNLIB not found for executable $tkloc."\r
+ #return {}\r
+ }\r
+ set tmplat [osutils:am:readtemplatex]\r
+ set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]\r
+ set lobj [wokUtils:LIST:sanspoint $lsrc]\r
+ set CXXList {}\r
+ foreach SourceFile [uinfo -f -T source [woklocate -u $tkloc]] { \r
+ if {[file extension $SourceFile] == ".cxx"} { \r
+ lappend CXXList [file rootname $SourceFile]\r
+ }\r
+ }\r
+ set pkgs [LibToLinkX [woklocate -u $tkloc] [lindex $CXXList 0]]\r
+ set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]\r
+ puts "pkgs $pkgs"\r
+ #set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]\r
+\r
+ set lcsf {}\r
+ foreach tk $pkgs {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[lsearch $lcsf $element] == "-1"} { \r
+ set lcsf [concat $lcsf $element]\r
+ }\r
+ }\r
+ }\r
+ set final 0\r
+ set externinc ""\r
+ set externlib ""\r
+ if { $lcsf != {} } {\r
+ set final 1\r
+ set fmtinc "\$(%s_INCLUDES) "\r
+ set fmtlib "\$(%s_LIB) "\r
+ set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]\r
+ set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]\r
+ }\r
+ regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0\r
+ set temp1 "$temp0 \nlib_LTLIBRARIES="\r
+ foreach entity $CXXList {\r
+ set temp1 "${temp1} lib${entity}.la"\r
+ }\r
+ set temp1 "${temp1}\n"\r
+ set inclu [osutils:am:__INCLUDES__ $lpkgs]\r
+ regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2\r
+ if { $pkgs != {} } {\r
+ set libadd [osutils:am:__LIBADD__ $pkgs $final]\r
+ } else {\r
+ set libadd ""\r
+ }\r
+ regsub -all -- {__LIBADD__} "$temp2" "$libadd" temp3\r
+ set source [osutils:am:__SOURCES__ $CXXList]\r
+ regsub -all -- {__SOURCES__} "$temp3" "$source" temp4\r
+ regsub -all -- {__EXTERNINC__} "$temp4" "$externinc" MakeFile_am\r
+ foreach entity $CXXList {\r
+ set MakeFile_am "$MakeFile_am lib${entity}_la_SOURCES = @top_srcdir@/src/${tkloc}/${entity}.cxx \n"\r
+ }\r
+ foreach entity $CXXList {\r
+ set MakeFile_am "$MakeFile_am lib${entity}_la_LIBADD = $libadd $externlib \n"\r
+ }\r
+ wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]\r
+\r
+ catch { unset temp0 temp1 temp2 temp3 temp4 temp5}\r
+ return [list $fmam]\r
+\r
+ } else {\r
+ set pkgs [woklocate -p ${tkloc}:EXTERNLIB]\r
+ if { $pkgs == {} } {\r
+ puts stderr "osutils:tk:mkamx : Error. File EXTERNLIB not found for executable $tkloc."\r
+ #return {}\r
+ }\r
+ set tmplat [osutils:am:readtemplatex]\r
+ set close [wokUtils:LIST:Purge [osutils:tk:close [woklocate -u $tkloc]]]\r
+ set lsrc [lsort [osutils:tk:files $tkloc osutils:am:compilable 1 osutils:justunix]]\r
+ set lobj [wokUtils:LIST:sanspoint $lsrc]\r
+ set CXXList {}\r
+ foreach SourceFile [uinfo -f -T source [woklocate -u $tkloc]] { \r
+ if {[file extension $SourceFile] == ".cxx"} { \r
+ lappend CXXList [file rootname $SourceFile]\r
+ }\r
+ }\r
+ set pkgs [LibToLinkX [woklocate -u $tkloc] [lindex $CXXList 0]]\r
+ set lpkgs [osutils:justunix [wokUtils:FILES:FileToList $pkgs]]\r
+ set lcsf [osutils:tk:hascsf [woklocate -p ${tkloc}:source:EXTERNLIB [wokcd]]]\r
+\r
+ set lcsf {}\r
+ foreach tk $pkgs {\r
+ foreach element [osutils:tk:hascsf [woklocate -p ${tk}:source:EXTERNLIB [wokcd]]] {\r
+ if {[lsearch $lcsf $element] == "-1"} { \r
+ set lcsf [concat $lcsf $element]\r
+ }\r
+ }\r
+ }\r
+ set final 0\r
+ set externinc ""\r
+ set externlib ""\r
+ if { $lcsf != {} } {\r
+ set final 1\r
+ set fmtinc "\$(%s_INCLUDES) "\r
+ set fmtlib "\$(%s_LIB) "\r
+ set externinc [wokUtils:EASY:FmtSimple1 $fmtinc $lcsf 0]\r
+ set externlib [wokUtils:EASY:FmtSimple1 $fmtlib $lcsf 0]\r
+ }\r
+ regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0\r
+ set temp1 "$temp0 \nbin_PROGRAMS="\r
+ foreach entity $CXXList {\r
+ set temp1 "${temp1} ${entity}"\r
+ }\r
+ \r
+ set temp1 "${temp1}\n"\r
+ set inclu [osutils:am:__INCLUDES__ $lpkgs]\r
+ regsub -all -- {__INCLUDES__} "$temp1" "$inclu" temp2\r
+ if { $pkgs != {} } {\r
+ set libadd [osutils:am:__LIBADD__ $pkgs $final]\r
+ } else {\r
+ set libadd ""\r
+ }\r
+ set source [osutils:am:__SOURCES__ $CXXList]\r
+ regsub -all -- {__SOURCES__} "$temp2" "$source" temp3\r
+ regsub -all -- {__EXTERNINC__} "$temp3" "$externinc" MakeFile_am\r
+ foreach entity $CXXList {\r
+ set MakeFile_am "$MakeFile_am ${entity}_SOURCES = @top_srcdir@/src/${tkloc}/${entity}.cxx \n"\r
+ }\r
+ foreach entity $CXXList {\r
+ set MakeFile_am "$MakeFile_am ${entity}_LDADD = $libadd $externlib \n"\r
+ }\r
+ wokUtils:FILES:StringToFile "$MakeFile_am" [set fmam [file join $dir Makefile.am]]\r
+\r
+ catch { unset temp0 temp1 temp2 temp3 temp4 temp5}\r
+\r
+ # set tmplat [osutils:in:readtemplatex]\r
+ \r
+ # regsub -all -- {__XQTNAM__} "$tmplat" "$tkloc" temp0\r
+ # if { $close != {} } {\r
+ #set dpncies [osutils:in:__DEPENDENCIES__ $close]\r
+ # } else {\r
+ #set dpncies ""\r
+ # }\r
+ # regsub -all -- {__DEPENDENCIES__} "$temp0" "$dpncies" temp1\r
+\r
+ # set objects [osutils:in:__OBJECTS__ $lobj]\r
+ # regsub -all -- {__OBJECTS__} "$temp1" "$objects" temp2\r
+ # #set temp2 $temp1\r
+ # set amdep [osutils:in:__AMPDEP__ $lobj]\r
+ # regsub -all -- {__AMPDEP__} "$temp2" "$amdep" temp3\r
+ #set temp3 $temp2\r
+ # set amdeptrue [osutils:in:__AMDEPTRUE__ $lobj]\r
+ # regsub -all -- {__AMDEPTRUE__} "$temp3" "$amdeptrue" temp4\r
+ #set temp4 $temp3\r
+;# so easy.. \r
+ # regsub -all -- {__MAKEFILEIN__} "$temp4" "$MakeFile_am" MakeFile_in\r
+\r
+ #wokUtils:FILES:StringToFile "$MakeFile_in" [set fmin [file join $dir Makefile.in]]\r
+ return [list $fmam]\r
+ #return [list $fmam $fmin]\r
+ }\r
+}\r
+\r
+;#\r
+;# ((((((((((((( Formats in Makefile.am )))))))))))))\r
+;#\r
+;# List extensions of files compilable in automake\r
+;#\r
+proc osutils:am:compilable { } {\r
+ return [list .c .cxx .cpp]\r
+}\r
+;#\r
+;# Used to replace the string __VPATH__ in Makefile.am\r
+;# l is the list of the units in a toolkit.\r
+;#\r
+proc osutils:am:__VPATH__ { l } {\r
+ set fmt "@top_srcdir@/drv/%s : @top_srcdir@/src/%s:"\r
+ return [wokUtils:EASY:FmtString2 $fmt $l 0 osutils:am:__VPATH__lastoccur]\r
+}\r
+;#\r
+;# remove ":" from last item of dependencies list in target VPATH of Makefile.am\r
+;#\r
+proc osutils:am:__VPATH__lastoccur { str } {\r
+ if { [regsub {:$} $str "" u] != 0 } {\r
+ return $u\r
+ }\r
+}\r
+proc osutils:am:PkCXXOption ppk {\r
+ set CXXCOMMON [lindex [wokparam -e %CMPLRS_CXX_Options [wokcd]] 0]\r
+ set FoundFlag ""\r
+ foreach pk $ppk {\r
+ if {[lsearch [uinfo -f -T source [woklocate -u $pk]] ${pk}_CMPLRS.edl] != "-1"} {\r
+ set CXXStr [lindex [wokparam -e %CMPLRS_CXX_Options [woklocate -u $pk]] 0]\r
+ set LastIndex [expr {[string length $CXXCOMMON ] - 1}]\r
+ if {[string equal $CXXCOMMON [string range $CXXStr 0 $LastIndex]]} {\r
+ set CXXOption " "\r
+ } else {\r
+ set CXXOption [string range $CXXStr 0 [expr {[string last $CXXCOMMON $CXXStr] - 1}]]\r
+ }\r
+ if {$CXXOption != " " && $CXXOption != "" && $CXXOption != " " && $CXXOption != " "} {\r
+ set FoundList [split $CXXOption " "]\r
+ foreach elem $FoundList {\r
+ if {$elem != ""} {\r
+ if {[string first "-I" $elem] == "-1" } {\r
+ if {[string first $elem $FoundFlag] == "-1"} {\r
+ set FoundFlag "$FoundFlag $elem"\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ return $FoundFlag\r
+}\r
+\r
+proc osutils:am:PkCOption ppk {\r
+ set CCOMMON [lindex [wokparam -e %CMPLRS_C_Options [wokcd]] 0]\r
+ set FoundFlag ""\r
+ foreach pk $ppk {\r
+ if {[lsearch [uinfo -f -T source [woklocate -u $pk]] ${pk}_CMPLRS.edl] != "-1"} {\r
+ set CStr [lindex [wokparam -e %CMPLRS_C_Options [woklocate -u $pk]] 0]\r
+ set LastIndex [expr {[string length $CCOMMON ] - 1}]\r
+ if {[string equal $CCOMMON [string range $CStr 0 $LastIndex]]} {\r
+ set COption [string range $CStr $LastIndex end ]\r
+ } else {\r
+ set COption [string range $CStr 0 [expr {[string last $CCOMMON $CStr] - 1}]]\r
+ }\r
+ if {$COption != " " && $COption != "" && $COption != " " && $COption != " "} {\r
+ set FoundList [split $COption " "]\r
+ foreach elem $FoundList {\r
+ if {$elem != ""} {\r
+ if {[string first "-I" $elem] == "-1" } {\r
+ if {[string first $elem $FoundFlag] == "-1"} {\r
+ set FoundFlag "$FoundFlag $elem"\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ } \r
+return $FoundFlag\r
+}\r
+\r
+proc osutils:am:__CXXFLAG__ { l } {\r
+ set fmt "%s"\r
+ #puts "l is: $l"\r
+ return [wokUtils:EASY:FmtString1 $fmt [osutils:am:PkCXXOption $l]]\r
+}\r
+;#\r
+;# Used to replace the string __CFLAG__ in Makefile.am\r
+;# l is the list of all compilable files in a toolkit.\r
+;#\r
+proc osutils:am:__CFLAG__ { l } {\r
+ set fmt "%s"\r
+ return [wokUtils:EASY:FmtString1 $fmt [osutils:am:PkCOption $l]]\r
+}\r
+\r
+;#\r
+;# Used to replace the string __INCLUDES__ in Makefile.am\r
+;# l is the list of packages in a toolkit.\r
+;#\r
+proc osutils:am:__INCLUDES__ { l } {\r
+ set fmt "-I@top_srcdir@/drv/%s -I@top_srcdir@/src/%s"\r
+ return [wokUtils:EASY:FmtString2 $fmt $l] \r
+}\r
+;#\r
+;# Used to replace the string __LIBADD__ in Makefile.am\r
+;# l is the toolkit closure list of a toolkit.\r
+;#\r
+proc osutils:am:__LIBADD__ { l {final 0} } {\r
+ set fmt "../%s/lib%s.la"\r
+ return [wokUtils:EASY:FmtString2 $fmt $l $final]\r
+}\r
+;#\r
+;# Used to replace the string __SOURCES__ in Makefile.am\r
+;# l is the list of all compilable files in a toolkit.\r
+;#\r
+proc osutils:am:__SOURCES__ { l } {\r
+ set fmt "%s"\r
+ return [wokUtils:EASY:FmtString1 $fmt $l]\r
+}\r
+;#\r
+;# ((((((((((((( Formats in Makefile.in )))))))))))))\r
+;#\r
+;#\r
+;# Used to replace the string __DEPENDENCIES__ in Makefile.in\r
+;# l is the toolkit closure list of a toolkit.\r
+;# \r
+proc osutils:in:__DEPENDENCIES__ { l } {\r
+ set fmt1 "../%s/lib%s.la"\r
+ set fmt2 "\t../%s/lib%s.la"\r
+ return [wokUtils:EASY:FmtFmtString2 $fmt1 $fmt2 $l]\r
+}\r
+;#\r
+;# Used to replace the string __OBJECTS__ in Makefile.in\r
+;# l is the list of objects files in toolkit.\r
+;#\r
+proc osutils:in:__OBJECTS__ { l } {\r
+ set fmt1 "%s.lo"\r
+ set fmt2 "\t%s.lo"\r
+ return [wokUtils:EASY:FmtFmtString1 $fmt1 $fmt2 $l]\r
+}\r
+;#\r
+;# Used to replace the string __AMDEP__ in Makefile.in\r
+;# l is the list of objects files in toolkit.\r
+;#\r
+proc osutils:in:__AMPDEP__ { l } {\r
+ set fmt1 "\$(DEPDIR)/%s.Plo"\r
+ set fmt2 "@AMDEP_TRUE@\t\$(DEPDIR)/%s.Plo"\r
+ return [wokUtils:EASY:FmtFmtString1 $fmt1 $fmt2 $l]\r
+}\r
+;#\r
+;# Used to replace the string __AMDEPTRUE__ in Makefile.in\r
+;# l is the list of objects files in toolkit.\r
+;#\r
+proc osutils:in:__AMDEPTRUE__ { l } {\r
+ set fmt "@AMDEP_TRUE@@_am_include@ @_am_quote@\$(DEPDIR)/%s.Plo@_am_quote@"\r
+ return [wokUtils:EASY:FmtSimple1 $fmt $l]\r
+}\r
+\r
+\r
+;#############################################################\r
+;#\r
+proc TESTAM { {root} {ll {}} } {\r
+# source [woklocate -p OS:source:OS.tcl]\r
+# source [woklocate -p WOKTclLib:source:osutils.tcl]\r
+ set lesmodules [OS -lm]\r
+ if { $ll != {} } { set lesmodules $ll }\r
+ foreach theModule $lesmodules {\r
+ foreach unit [$theModule:toolkits] {\r
+ puts " toolkit: $unit ==> [woklocate -p ${unit}:source:EXTERNLIB]"\r
+ wokUtils:FILES:rmdir $root/$unit\r
+ wokUtils:FILES:mkdir $root/$unit\r
+ osutils:tk:mkam $root/$unit $unit\r
+ }\r
+ foreach unit [OS:executable $theModule] {\r
+ wokUtils:FILES:rmdir $root/$unit\r
+ wokUtils:FILES:mkdir $root/$unit\r
+ osutils:tk:mkamx $root/$unit $unit\r
+ }\r
+ }\r
+}\r
projects / occt-wok.git / commitdiff