Overview
Comment:Changed access method for Octave_map, operator[] method no longer works.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: b3c9364a2b6aa7859d90b004634c7af722897acba6e3114122ca57c5cfb9edef
User & Date: geraint@users.sourceforge.net on 2004-06-20 21:13:53.000
Other Links: branch diff | manifest | tags
Context
2004-06-21
16:05:58
Zapped comment that causes check-in: be8cd0c1cf user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2004-06-20
21:13:53
Changed access method for Octave_map, operator[] method no longer works. check-in: b3c9364a2b user: geraint@users.sourceforge.net tags: origin/master, trunk
13:53:06
Initialise for numpar as well check-in: 657d7472ea user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified mttroot/mtt/lib/cc/mtt_simpar.hh from [eda52e87c8] to [867584b9ac]. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


#include <octave/oct.h>
#include <octave/ov-struct.h>

static ColumnVector
mtt_simpar (Octave_map simpar)
{
  static ColumnVector retval (8);

  retval (0) = simpar ["first"     ](0).double_value ();
  retval (1) = simpar ["last"      ](0).double_value ();
  retval (2) = simpar ["dt"        ](0).double_value ();
  retval (3) = simpar ["stepfactor"](0).double_value ();
  retval (4) = simpar ["wmin"      ](0).double_value ();
  retval (5) = simpar ["wmax"      ](0).double_value ();
  retval (6) = simpar ["wsteps"    ](0).double_value ();
  retval (7) = simpar ["input"     ](0).double_value ();

  return retval;
}

static Octave_map
mtt_simpar (ColumnVector simpar)
{
  static Octave_map retval;

  retval ["first"     ](0) = simpar (0);
  retval ["last"      ](0) = simpar (1);
  retval ["dt"        ](0) = simpar (2);
  retval ["stepfactor"](0) = simpar (3);
  retval ["wmin"      ](0) = simpar (4);
  retval ["wmax"      ](0) = simpar (5);
  retval ["wsteps"    ](0) = simpar (6);
  retval ["input"     ](0) = simpar (7);

  return retval;
}



|






|
|
|
|
|
|
|
|









|
|
|
|
|
|
|
|




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


#include <octave/oct.h>
#include <octave/oct-map.h>

static ColumnVector
mtt_simpar (Octave_map simpar)
{
  static ColumnVector retval (8);

  retval (0) = simpar.contents (simpar.seek ("first"     ))(0).double_value ();
  retval (1) = simpar.contents (simpar.seek ("last"      ))(0).double_value ();
  retval (2) = simpar.contents (simpar.seek ("dt"        ))(0).double_value ();
  retval (3) = simpar.contents (simpar.seek ("stepfactor"))(0).double_value ();
  retval (4) = simpar.contents (simpar.seek ("wmin"      ))(0).double_value ();
  retval (5) = simpar.contents (simpar.seek ("wmax"      ))(0).double_value ();
  retval (6) = simpar.contents (simpar.seek ("wsteps"    ))(0).double_value ();
  retval (7) = simpar.contents (simpar.seek ("input"     ))(0).double_value ();

  return retval;
}

static Octave_map
mtt_simpar (ColumnVector simpar)
{
  static Octave_map retval;

  retval.assign ("first"     , simpar (0));
  retval.assign ("last"      , simpar (1));
  retval.assign ("dt"        , simpar (2));
  retval.assign ("stepfactor", simpar (3));
  retval.assign ("wmin"      , simpar (4));
  retval.assign ("wmax"      , simpar (5));
  retval.assign ("wsteps"    , simpar (6));
  retval.assign ("input"     , simpar (7));

  return retval;
}
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]