Overview
Comment:Fixed input.oct for compatibility with input.m.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 8fcb8ac6a0974e4feca3b102384f4688ed28dede6bb000173d261374ee3a3847
User & Date: geraint@users.sourceforge.net on 2001-04-11 02:13:29
Other Links: branch diff | manifest | tags
Context
2001-04-11
07:36:10
Now uses system_cr.h in place of system.h in .c rep -
compatible with older code check-in: 3d83aec7ca user: gawthrop@users.sourceforge.net tags: origin/master, trunk
02:13:29
Fixed input.oct for compatibility with input.m. check-in: 8fcb8ac6a0 user: geraint@users.sourceforge.net tags: origin/master, trunk
2001-04-10
13:57:33
Fixed bash/sh compatibility bug check-in: 07cafda43d user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/make_stdin from [4dcdc2fa84] to [d0411ef94d].

︙
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81


82
83
84
85
86
87
88

61
62
63
64
65
66
67







68
69
70
71
72


73
74
75
76
77
78
79
80
81








-
-
-
-
-
-
-





-
-
+
+








endfunction
EOF

}


make_cc() {
## Check octave version
case `$MATRIX --version | awk -F\. '{print $2}'` in
    0) vector_value="vector_value";;       	# stable 
    1) vector_value="column_vector_value";;	# development
    *) vector_value="column_vector_value";;
esac

cat > $outfile <<EOF
// -*-c++-*- Put emacs into c++-mode

// 
// System ${Sys}, representation input, language oct; 
// File $Sys_input.oct; 
// Generated by MTT on Thu Apr  5 21:05:08 EDT 2001; 
// File ${Sys}_input.oct; 
// Generated by MTT on `date`; 

#ifdef STANDALONE
#include <octave/oct.h>
#include "${Sys}_def.h"

void strip_comments (istream &str)
{
︙
122
123
124
125
126
127
128



129












130
131
132
133
134
135
136

115
116
117
118
119
120
121
122
123
124

125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143








+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+








  octave_value_list retval;
#endif // ! STANDALONE

  ColumnVector	mttu	(MTTNU);

  // Set up the mttu vector
#ifndef STANDALONE
  static int MTT_input_row;
  static int MTT_input_last;

  mttu	= get_global_value ("MTT_input").${vector_value}();
  Matrix MTT_input = get_global_value ("MTT_input").matrix_value();
  mttu = MTT_input.row (MTT_input_row);

  if (0 == MTT_input_row)
    {
      MTT_input_last = (MTT_input.length() / mttu.length()) - 1;
    }
  if (MTT_input_row < MTT_input_last)
    {
      MTT_input_row++;
    }
  
#else
  double t, u;
  strip_comments (cin);
  cin >> t;
  for (register int i = 0; i < MTTNU; i++)
    {      
      cin >> u;
︙

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