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
|
#! /bin/sh
sys=$1
Sys=$(capitalise_initial $sys)
RTXI_H="${Sys}_rtxi.h"
RTXI_CC="${Sys}_rtxi.cc"
program=$(basename $0)
date=$(date)
cat <<EOF > ${RTXI_CC}
// -*-c++-*- Put Emacs into c++-mode
// Generated from $sympar and $struc by MTT
// using $program
// at $date
#include <${RTXI_H}>
extern "C" Plugin::Object *createRTXIPlugin(void) {
return new ${Sys}();
}
static DefaultGUIModel::variable_t vars[] = {
EOF
gawk '
($1=="input") {
|
<
|
|
|
|
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
|
#! /bin/sh
sys=$1
struc=${sys}_struc.txt
sympar=${sys}_sympar.txt
RTXI_H="${sys}_rtxi.h"
RTXI_CC="${sys}_rtxi.cc"
program=$(basename $0)
date=$(date)
cat <<EOF > ${RTXI_CC}
// -*-c++-*- Put Emacs into c++-mode
// Generated from $sympar and $struc by MTT
// using $program
// at $date
#include <${RTXI_H}>
extern "C" Plugin::Object *createRTXIPlugin(void) {
return new ${sys}();
}
static DefaultGUIModel::variable_t vars[] = {
EOF
gawk '
($1=="input") {
|
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
{ printf(" %s=0.0,\n", $1); }
END {printf(" ;\n"); }
' $sympar >> ${RTXI_CC}
cat <<EOF >> ${RTXI_CC}
static long i_count = 0;
${Sys}::~${Sys}(void) {}
void ${Sys}::execute(void) {
// TODO: call ode2odes functions
}
Sys}::update(DefaultGUIModel::update_flags_t flag) {
|
|
|
<
|
<
|
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
{ printf(" %s=0.0,\n", $1); }
END {printf(" ;\n"); }
' $sympar >> ${RTXI_CC}
cat <<EOF >> ${RTXI_CC}
static long i_count = 0;
${sys}::~${sys}(void) {}
// ${sys}::execute(void) is defined in ${sys}_ode2odes.cc
void ${sys}::update(DefaultGUIModel::update_flags_t flag) {
setCaption("${sys}");
switch(flag) {
case INIT:
EOF
gawk '
{
|