Overview
Comment:Replaced obsolete split() with char(strsplit())
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 37e26b5d0b0128c7005f626c8a444c305e733c58fbab45314505edbfc9a8c357
User & Date: geraint@users.sourceforge.net on 2012-10-15 22:03:17.000
Other Links: branch diff | manifest | tags
Context
2012-10-15
22:21:30
debian/compat specifies the debhelper compatability level check-in: a4c5920eef user: geraint@users.sourceforge.net tags: origin/master, trunk
22:03:17
Replaced obsolete split() with char(strsplit()) check-in: 37e26b5d0b user: geraint@users.sourceforge.net tags: origin/master, trunk
21:30:00
Fixed URL to CVS server check-in: ec9a4785ac user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes
27
28
29
30
31
32
33



34
35
36
37
38
39
40
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43







+
+
+








  
  ## ###############################################################
  ## ### Version control history
  ## ###############################################################
  ## ### $Id$
  ## ### $Log$
  ## ### Revision 1.27  2005/03/21 10:34:47  gawthrop
  ## ### Tidied.
  ## ###
  ## ### Revision 1.26  2004/08/29 13:11:21  geraint
  ## ### Writes MTTyz vector in the same format as MTTx and MTTy: MTTyz($d,1)
  ## ##
  ## ### Revision 1.25  2003/01/07 18:09:21  geraint
  ## ### More informative error message.
  ## ##
  ## ### Revision 1.24  1999/10/22 02:20:32  peterg
125
126
127
128
129
130
131
132

133
134
135
136
137
138
139
128
129
130
131
132
133
134

135
136
137
138
139
140
141
142







-
+







  ## anything else is the name of a constant.
  ## Blank is taken to be external
  ## If its a numbered port:
  ##     cr contains 'MTT_port'
  ##     arg contains port number

  if (strcmp(cr,"SS"))		# Then its the standard file
    a = split(args,",")
    a = char(strsplit(args,","))
    [N,M]=size(a);
    if (N~=2)			# Must have 2 arguments
      mtt_error(sprintf("SS should have 2 args not %i", N));
    endif
    effort_attribute = deblank(a(1,:));
    flow_attribute   = deblank(a(2,:));
  else				# Old style file
8
9
10
11
12
13
14
15

16
17
18
19
20
21
22
8
9
10
11
12
13
14

15
16
17
18
19
20
21
22







-
+








  delim = "__";
  N = mtt_check_sigs (outsig,insigs);

  full_name = sprintf("%s%s%s", Name,delim,name);

  ## Get the special attibutes for SS
  attrib_name = split(arg,",");
  attrib_name = char(strsplit(arg,","));
  [N_a,M_a]=size(attrib_name);
  if (N_a~=2)		# Must have 2 arguments
    mtt_error(sprintf("SS should have 2 args not %i", N_a));
  end;

  effort_attribute = deblank(attrib_name(1,:));
  flow_attribute   = deblank(attrib_name(2,:));

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