home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / convtools.tcl < prev    next >
Encoding:
Text File  |  1996-06-03  |  8.1 KB  |  266 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Short routines used in converted reports. Put here
  8. #            so they can be customized.
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. proc m4_convert {varname} {
  15.     switch -exact $varname {
  16.     M4_corporate {
  17.         return [$Corporate name]
  18.     }
  19.  
  20.     M4_project {
  21.         return [expr { [$Project isNil] ? "" : [$Project name] }]
  22.     }
  23.  
  24.     M4_projvers {
  25.         return [expr {
  26.         [$ConfigVersion isNil] ? "" : [$ConfigVersion versionNumber] }]
  27.     }
  28.     }
  29.  
  30.     return "UNKNOWN"
  31. }
  32.  
  33.  
  34. proc short2longname {short} {
  35.     if ![info exists s2l(data_proc)] {
  36.     set s2l(data_proc)        "Data Process"
  37.     set s2l(data_store)        "Data Store"
  38.     set s2l(dfd_actor)        "DFD Actor"
  39.     set s2l(dfd_anchor)        "DFD Anchor"
  40.     set s2l(data_flow)        "Data Flow"
  41.     set s2l(ctrl_flow)        "Control Flow"
  42.     set s2l(update_flow)        "Update Flow"
  43.     set s2l(result_flow)        "Result Flow"
  44.     set s2l(data_vertex)        "Data Vertex"
  45.     set s2l(ctrl_vertex)        "Control Vertex"
  46.     set s2l(update_vertex)        "Update Vertex"
  47.     set s2l(result_vertex)        "Result Vertex"
  48.     set s2l(state_action)        "State Action"
  49.     set s2l(internal_event)        "Internal Event"
  50.     set s2l(internal_condition)    "Internal Condition"
  51.     set s2l(internal_action)    "Internal Action"
  52.     set s2l(activity)        "Activity"
  53.     set s2l(state)            "State"
  54.     set s2l(start_state)        "Start State"
  55.     set s2l(final_state)        "Final State"
  56.     set s2l(std_class)        "STD Class"
  57.     set s2l(super_state)        "Super State"
  58.     set s2l(transition)        "Transition"
  59.     set s2l(external_event)        "External Event"
  60.     set s2l(external_condition)    "External Condition"
  61.     set s2l(external_action)    "External Action"
  62.     set s2l(event_msg)        "Event Message"
  63.     set s2l(cad_class)        "CAD Class"
  64.     set s2l(cad_container)        "CAD Container Class"
  65.     set s2l(link_attr_box)        "Link Attribute Box"
  66.     set s2l(nary_assoc)        "n-ary Association"
  67.     set s2l(generalization)        "Generalization"
  68.     set s2l(overlap_gen)        "Overlapping Generalization"
  69.     set s2l(more_classes)        "More Classes"
  70.     set s2l(link_attrib)        "Link Attribute"
  71.     set s2l(association)        "Association"
  72.     set s2l(qualif_assoc)        "Qualified Association"
  73.     set s2l(nary_assoc_conn)    "n-ary Association Connector"
  74.     set s2l(generalization_conn)    "Generalization Connector"
  75.     set s2l(overlap_gen_conn)    "Overlapping Generalization Connector"
  76.     set s2l(aggregation)        "Aggregation"
  77.     set s2l(qualif_aggr)        "Qualified Aggregation"
  78.     set s2l(constraint)        "Constraint"
  79.     set s2l(loop)            "Loop"
  80.     set s2l(propagation)        "Propagation"
  81.     set s2l(attribute)        "Attribute"
  82.     set s2l(method)            "Method"
  83.     set s2l(parameter)        "Parameter"
  84.     set s2l(ccd_class)        "CCD Class"
  85.     set s2l(ccd_class_ref)        "CCD Class Reference"
  86.     set s2l(ccd_container)        "CCD Container Class"
  87.     set s2l(subject)        "Subject"
  88.     set s2l(ccd_actor)        "CCD Actor"
  89.     set s2l(com_message)        "Communication Message"
  90.     set s2l(message_def)        "Message Definition"
  91.     set s2l(message_gen)        "Message Generalization"
  92.     set s2l(message_gen_conn)    "Message Generalization Connector"
  93.     set s2l(etd_object)        "ETD Object"
  94.     set s2l(etd_initiator)        "ETD Initiator"
  95.     set s2l(etd_event)        "ETD Event"
  96.     set s2l(row)            "Row"
  97.     set s2l(section_name)        "Section Name"
  98.  
  99.     set s2l(name)            "Name"
  100.     set s2l(type)            "Type"
  101.     set s2l(modifiers)        "Modifiers"
  102.     set s2l(colon)            "Colon"
  103.     set s2l(comma)            "Comma"
  104.     set s2l(init_value)        "Initial Value"
  105.     set s2l(left_parenth)        "Left Parenthesis"
  106.     set s2l(right_parenth)        "Right Parenthesis"
  107.     set s2l(qualifier)        "Qualifier"
  108.     set s2l(constraint_end)        "Constraint At End"
  109.     set s2l(constraint_start)    "Constraint At Start"
  110.     set s2l(role_start)        "Role At Start"
  111.     set s2l(role_end)        "Role At End"
  112.     set s2l(role)            "Role"
  113.     set s2l(constraint)        "Constraint"
  114.     set s2l(action)            "Action"
  115.     set s2l(condition)        "Condition"
  116.     set s2l(do)            "Do"
  117.     set s2l(event)            "Event"
  118.     set s2l(mod_part)        "Module Part"
  119.     set s2l(data_part)        "Data Part"
  120.     set s2l(editor_only)        "Editor Only"
  121.     set s2l(attributes)        "Attributes"
  122.     set s2l(methods)        "Methods"
  123.  
  124.  
  125.     set s2l(cl)            "Class"
  126.     set s2l(de)            "Data Element"
  127.     set s2l(pe)            "Process Element"
  128.     set s2l(et)            "Event Trace Element"
  129.     set s2l(st)            "State"
  130.     set s2l(rs)            "Reserved"
  131.  
  132.     set s2l(cardinal)        "Cardinality"
  133.     set s2l(iter_bound)        "Iteration Boundary"
  134.     set s2l(array_desc)        "Array Description"
  135.     set s2l(pointer)        "Pointer"
  136.     set s2l(key)            "Key"
  137.     set s2l(reference)        "Reference"
  138.     set s2l(read_only)        "Read Only"
  139.     set s2l(fold_level)        "Fold Level"
  140.     set s2l(select_type)        "Selection Type"
  141.     set s2l(iter_type)        "Iteration Type"
  142.     set s2l(ins_policy)        "Insert Policy"
  143.     set s2l(upd_policy)        "Update Policy"
  144.     set s2l(del_policy)        "Delete Policy"
  145.     set s2l(ri)            "Referential Integrity"
  146.     set s2l(mult_kind_start)    "Multiplicity Kind At Start"
  147.     set s2l(mult_kind_end)        "Multiplicity Kind At End"
  148.     set s2l(mult_spec_start)    "Multiplicity Spec At Start"
  149.     set s2l(mult_spec_end)        "Multiplicity Spec At End"
  150.     set s2l(is_class_feature)    "Is Class Feature"
  151.     set s2l(is_derived)        "Is Derived"
  152.     set s2l(initial_value)        "Initial Value"
  153.     set s2l(is_abstract)        "Is Abstract"
  154.     set s2l(has_parmlist)        "Has Parameterlist"
  155.     set s2l(is_folded)        "Is Folded"
  156.     set s2l(inspol_start)        "Insert Policy At Start"
  157.     set s2l(updpol_start)        "Update Policy At Start"
  158.     set s2l(delpol_start)        "Delete Policy At Start"
  159.     set s2l(ri_start)        "Referential Integrity At Start"
  160.     set s2l(inspol_end)        "Insert Policy At End"
  161.     set s2l(updpol_end)        "Update Policy At End"
  162.     set s2l(delpol_end)        "Delete Policy At End"
  163.     set s2l(ri_end)            "Referential Integrity At End"
  164.     set s2l(data_type)        "Data Type"
  165.     set s2l(constraint)        "Constraint"
  166.     set s2l(error_msg)        "Error Message"
  167.     set s2l(external)        "External Name"
  168.     set s2l(abbrev)            "Abbreviation"
  169.     set s2l(storage)        "Storage"
  170.     set s2l(return)            "Return Type"
  171.     set s2l(view)            "View"
  172.     set s2l(type_4gl)        "4GL Data Type"
  173.     set s2l(type_3gl)        "3GL Data Type"
  174.     set s2l(imp_from)        "Imported from"
  175.     set s2l(nullable)        "Nullable"
  176.     set s2l(sql_postfix)        "SQL postfix"
  177.     set s2l(persistent)        "Persistent"
  178.  
  179.     set s2l(freeText)        "Free Text"
  180.     }
  181.  
  182.     if ![info exists s2l($short)] {
  183.     return "unknown"
  184.     } else {
  185.     return $s2l($short)
  186.     }
  187. }
  188.  
  189.  
  190. proc comptype2itemtype {comptype} {
  191.     global ct2it
  192.     if ![info exists ct2it(cad_class)] {
  193.     set ct2it(cad_class)        cl
  194.     set ct2it(cad_container)    cl
  195.     set ct2it(nary_assoc)        cl
  196.     set ct2it(link_attr_box)    ""
  197.     set ct2it(more_classes)        ""
  198.     set ct2it(generalization)    de
  199.     set ct2it(overlap_gen)        de
  200.     set ct2it(association)        cl
  201.     set ct2it(aggregation)        cl
  202.     set ct2it(qualif_assoc)        cl
  203.     set ct2it(qualif_aggr)        cl
  204.     set ct2it(nary_assoc_conn)    de
  205.     set ct2it(generalization_conn)    ""
  206.     set ct2it(overlap_gen_conn)    ""
  207.     set ct2it(loop)            ""
  208.     set ct2it(constraint)        ""
  209.     set ct2it(propagation)        pe
  210.     set ct2it(link_attrib)        de
  211.     set ct2it(attribute)        de
  212.     set ct2it(method)        pe
  213.     set ct2it(parameter)        de
  214.     set ct2it(ccd_class)        cl
  215.     set ct2it(ccd_class_ref)    cl
  216.     set ct2it(ccd_container)    cl
  217.     set ct2it(subject)        cl
  218.     set ct2it(ccd_actor)        cl
  219.     set ct2it(com_message)        pe
  220.     set ct2it(data_proc)        pe
  221.     set ct2it(data_store)        de
  222.     set ct2it(dfd_actor)        cl
  223.     set ct2it(dfd_anchor)        ""
  224.     set ct2it(data_vertex)        ""
  225.     set ct2it(ctrl_vertex)        ""
  226.     set ct2it(update_vertex)    ""
  227.     set ct2it(result_vertex)    ""
  228.     set ct2it(data_flow)        de
  229.     set ct2it(update_flow)        de
  230.     set ct2it(result_flow)        ""
  231.     set ct2it(ctrl_flow)        pe
  232.     set ct2it(etd_object)        cl
  233.     set ct2it(etd_initiator)    cl
  234.     set ct2it(etd_event)        pe
  235.     set ct2it(message_def)        pe
  236.     set ct2it(message_gen)        ""
  237.     set ct2it(message_gen_conn)    ""
  238.     set ct2it(state)        st
  239.     set ct2it(super_state)        st
  240.     set ct2it(std_class)        cl
  241.     set ct2it(start_state)        st
  242.     set ct2it(final_state)        pe
  243.     set ct2it(transition)        pe
  244.     set ct2it(event_msg)        pe
  245.     set ct2it(state_action)        pe
  246.     set ct2it(activity)        pe
  247.     }
  248.     if ![info exists ct2it($comptype)] {
  249.     return "$comptype"
  250.     } else {
  251.     return $ct2it($comptype)
  252.     }
  253. }
  254.  
  255.  
  256. proc old2newscope {scope} {
  257.     switch $scope {
  258.     scopePhaseRef    { return Phase }
  259.     scopePhaseDef    { return Phase }
  260.     scopeSystem    { return System }
  261.     scopeFile    { return Diagram }
  262.     }
  263.  
  264.     return unknown
  265. }
  266.