Overview
Comment:Tidied up some ifs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 40f6806b3882a3a23953893d12d8fdad43df93b365422f6a5727bfc4e817366b
User & Date: gawthrop@users.sourceforge.net on 2003-03-14 14:30:39
Other Links: branch diff | manifest | tags
Context
2003-03-14
15:23:24
Avoid problems when ginsh command contains $1 etc
Avoid error when null string returned check-in: 84a526bf4f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
14:30:39
Tidied up some ifs check-in: 40f6806b38 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
14:19:04
Initial aliasing code - but need to pass cbg via arg list check-in: 50b3a5acb6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/mtt_component_eqn.m from [8798014c1c] to [8895bdc5a2].

︙︙
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69


  if length(known)<2		# Invalid
    known = "  ";
  endif

  if length(Name)>0
    cbg = mtt_cbg(Name);		# Structure for this subsystem
  endif
  
  if struct_contains (cbg, "ports")
    ## Combine ports with the other subsystems
    for [component_structure, component] = cbg.ports
      eval(sprintf("cbg.subsystems.%s=cbg.ports.%s;",component,component));
    endfor
  endif


  ## Aliasing  
  if length(name)>0
    eval(sprintf("ARG=cbg.subsystems.%s.arg;", name)); # Arguments
    ARG = mtt_alias (Name,ARG,arg_default); # Alias them
    eval(sprintf("cbg.subsystems.%s.arg=ARG;", name)); # and copy
  endif
  

  ## Call to a subsystem (represented by name="")
  if strcmp(name,"")
    if !struct_contains(cbg,"portlist")
      N_ports = 0;
    else
      [N_ports,M_ports] = size(cbg.portlist);
    endif
    
    if port>N_ports








<
<
|
|
|
|
|
|
>

|
|



<
<
<
|
<








37
38
39
40
41
42
43


44
45
46
47
48
49
50
51
52
53
54
55
56



57

58
59
60
61
62
63
64


  if length(known)<2		# Invalid
    known = "  ";
  endif

  if length(Name)>0
    cbg = mtt_cbg(Name);		# Structure for this subsystem


    if struct_contains (cbg, "ports")
      ## Combine ports with the other subsystems
      for [component_structure, component] = cbg.ports
	eval(sprintf("cbg.subsystems.%s=cbg.ports.%s;",component,component));
      endfor
    endif
  endif


  if length(name)>0 		# Alias
    eval(sprintf("ARG=cbg.subsystems.%s.arg;", name)); # Arguments
    ARG = mtt_alias (Name,ARG,arg_default); # Alias them
    eval(sprintf("cbg.subsystems.%s.arg=ARG;", name)); # and copy



  else			  # Call to a subsystem (represented by name="")

    if !struct_contains(cbg,"portlist")
      N_ports = 0;
    else
      [N_ports,M_ports] = size(cbg.portlist);
    endif
    
    if port>N_ports
︙︙

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]