Overview
Comment:Included logic rep
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 1af7bb600f728db4bf310ce849e6184a2995c09cc0ca053ba1c2a3d5b294a5e7
User & Date: gawthrop@users.sourceforge.net on 2000-10-17 08:37:23
Other Links: branch diff | manifest | tags
Context
2000-10-17
09:04:12
*** empty log message *** check-in: 9f264ac69e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:37:23
Included logic rep check-in: 1af7bb600f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:36:56
Included logic rep. check-in: c29b7adc22 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/mtt_header from [768dfbfc37] to [12b2b249cc].

︙︙
8
9
10
11
12
13
14



15
16
17
18
19
20
21

# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## Revision 1.4  2000/10/14 06:49:31  peterg
## Make parameter listing representation dependent
##
## Revision 1.3  2000/10/11 08:59:15  peterg
## Added csex rep
##
## Revision 1.2  2000/10/11 08:01:42  peterg








>
>
>








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

# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5  2000/10/14 09:12:14  peterg
## No dies arguments and output itself
##
## Revision 1.4  2000/10/14 06:49:31  peterg
## Make parameter listing representation dependent
##
## Revision 1.3  2000/10/11 08:59:15  peterg
## Added csex rep
##
## Revision 1.2  2000/10/11 08:01:42  peterg
︙︙
41
42
43
44
45
46
47

48
49
50
51
52
53
54

Ny=`mtt_getsize $system y` # Outputs 
Nyz=`mtt_getsize $system yz` # Zero outputs
Npar=`wc -l $system\_sympar.txt | awk '{print $1}'`

# Representation-specific stuff

eqnargs='mttx,mttu,mttt,mttpar'

case $rep in
    cse)
	states=yes;
        inputs=yes;
	parameters=yes;
        output='mttedx,mtte'
        args=$eqnargs








>








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

Ny=`mtt_getsize $system y` # Outputs 
Nyz=`mtt_getsize $system yz` # Zero outputs
Npar=`wc -l $system\_sympar.txt | awk '{print $1}'`

# Representation-specific stuff

eqnargs='mttx,mttu,mttt,mttpar'
inputeqnargs='mttx,mtty,mttt,mttpar'
case $rep in
    cse)
	states=yes;
        inputs=yes;
	parameters=yes;
        output='mttedx,mtte'
        args=$eqnargs
︙︙
68
69
70
71
72
73
74
75







76
77
78
79
80
81
82
83
84
85
86
87
88
89

        args=$eqnargs
	;;
    input)
	states=no;
	inputs=no;
	parameters=no;
        output=mttu
        args='x,y,t,par'







	;;
    numpar)
	states=no;
	inputs=no;
	parameters=no;
        output='mttpar'

	;;
    ode)
	states=yes;
        inputs=yes;
	parameters=yes;
        output='mttdx'
        args=$eqnargs








|
>
>
>
>
>
>
>






<








72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

93
94
95
96
97
98
99

        args=$eqnargs
	;;
    input)
	states=no;
	inputs=no;
	parameters=no;
        output=mttu
        args=$inputeqnargs
	;;
    logic)
	states=yes;
	inputs=no;
	parameters=yes;
        output=mttu
        args=$inputeqnargs
	;;
    numpar)
	states=no;
	inputs=no;
	parameters=no;
        output='mttpar'

	;;
    ode)
	states=yes;
        inputs=yes;
	parameters=yes;
        output='mttdx'
        args=$eqnargs
︙︙
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143












144
145
146
147
148
149
150
151

152
153
154
155
156
157
158
159
160
161
162

    Output="[$output] = "
fi


# Lanuage specific stuff
case $language in
    m)
	modeline='## -*-octave-*- Put Emacs into octave-mode ##';
	ext='m';
	Lc='##';
	Rc='';
	Lb='(';
	Rb=')';
	function="function"
	declaration="$Output$1_$rep$Args;"
	noglobals=true; # Fudge to make mtt_m2p work
        start='## BEGIN Code'












	;;
    *)
	echo Language $language not supported - sorry; exit 1
esac


# Header information
cat<<EOF

$function $declaration
$Lc $declaration
$Lc System $system, representation $rep, language $language; $Rc
$Lc File $1_$rep.$ext; $Rc
$Lc Generated by MTT on `date`; $Rc
EOF

if [ -n "$noglobals" ]; then
cat<<EOF

## Horrible fudge to make mtt_m2p work








<
<








>
>
>
>
>
>
>
>
>
>
>
>








>



|








137
138
139
140
141
142
143


144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183

    Output="[$output] = "
fi


# Lanuage specific stuff
case $language in
    m)


	Lc='##';
	Rc='';
	Lb='(';
	Rb=')';
	function="function"
	declaration="$Output$1_$rep$Args;"
	noglobals=true; # Fudge to make mtt_m2p work
        start='## BEGIN Code'
        finish='## END Code'
	;;
    txt)
	modeline='## -*-octave-*- Put Emacs into octave-mode ##';
	Lc='##';
	Rc='';
	Lb='(';
	Rb=')';
	function=""
	declaration=""
        start=''
        parameters='no'
	;;
    *)
	echo Language $language not supported - sorry; exit 1
esac


# Header information
cat<<EOF
$modeline
$function $declaration
$Lc $declaration
$Lc System $system, representation $rep, language $language; $Rc
$Lc File $1_$rep.$language; $Rc
$Lc Generated by MTT on `date`; $Rc
EOF

if [ -n "$noglobals" ]; then
cat<<EOF

## Horrible fudge to make mtt_m2p work
︙︙

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