home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / creproj.tcl < prev    next >
Text File  |  1997-09-04  |  1KB  |  50 lines
  1.  
  2. global phaseList
  3. set phaseList {
  4.     {{Analysis}        {Analysis}}
  5.     {{SystemDesign}        {SystemDesign}}
  6.     {{ObjectDesign}        {ObjectDesign}}
  7.     {{Implementation}    {Implementation}}
  8. }
  9.  
  10. proc created {obj} {
  11.     puts "[$obj text] created!"
  12. }
  13.  
  14. proc createPhasesIn {configv} {
  15.     global phaseList
  16.  
  17.     set prev [ORB::nil]
  18.     foreach phaseDescr $phaseList {
  19.     set phName [lindex $phaseDescr 0]
  20.     set phType [lindex $phaseDescr 1]
  21.     if [$prev isNil] {
  22.         set phaseV [$configv createPhaseVersion $phName $phType]
  23.     } else {
  24.         set phaseV [$configv createPhaseVersionBehind $phName $phType $prev]
  25.     }
  26.     created $phaseV
  27.     set prev [$phaseV phase]
  28.     }
  29. }
  30.  
  31.  
  32. if [catch {
  33.     if [lempty $argv] {
  34.         puts stderr "Need project name"
  35.         exit 1
  36.     }
  37.     
  38.     set projName $argv
  39.     set cc [ClientContext::global]
  40.     set corp [$cc currentCorporate]
  41.     puts "Creating project $projName..."
  42.     set proj [$corp createProject $projName]
  43.     created $proj
  44.     set conf1 [$proj createConfigVersion "default"]
  45.     created $conf1
  46.     createPhasesIn $conf1
  47. }] {
  48.     puts $errorInfo
  49. }
  50.