Overview
Comment:Mods for dm rep - no globals ...
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 9856ba297f8d2267eec3f5530edc8f05f72a67a2d014f7ee995f4c214044b0a7
User & Date: gawthrop@users.sourceforge.net on 1998-07-27 20:30:39
Other Links: branch diff | manifest | tags
Context
1998-07-27
20:31:05
Allow 2D arrays check-in: f7ad33ddfb user: gawthrop@users.sourceforge.net tags: origin/master, trunk
20:30:39
Mods for dm rep - no globals ... check-in: 9856ba297f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
20:30:12
*** empty log message *** check-in: 91db786a12 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/lang_header from [87f9bbae08] to [7f1f1540c3].

1
2
3
4
5
6
7
8
9
10



11
12
13
14
15
16
17
#!/bin/sh

# Generates function header for a computer language
# PJ Gawthrop May 1998

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



## Revision 1.4  1998/07/25 10:43:10  peterg
## No assignments of x or u if sm rep.
##
## Revision 1.3  1998/07/19 15:52:15  peterg
## Don't call the _input function - make it external from now on ...
##
## Revision 1.2  1998/05/24 12:47:39  peterg










>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/bin/sh

# Generates function header for a computer language
# PJ Gawthrop May 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5  1998/07/25 20:42:30  peterg
## No assignements for switch either
##
## Revision 1.4  1998/07/25 10:43:10  peterg
## No assignments of x or u if sm rep.
##
## Revision 1.3  1998/07/19 15:52:15  peterg
## Don't call the _input function - make it external from now on ...
##
## Revision 1.2  1998/05/24 12:47:39  peterg
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
EOF
fi

# Globals
sympar2global_txt2lang $1 $language

if [ "$language" = "c" ] || [ "$language" = "m" ]; then
  if [ "$rep" != "sm" ]&&[ "$rep" != "switch" ]; then
  # Common part - ode (c and m)
  # Use octave for this bit - needs the definition file
  $MATRIX -q  <<EOF 
    %System structure
    [nx,ny,nu,nz,nyz] = $1_def;

  printf("$Lc====== Set up the state variables ======$Rc\n");







|







147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
EOF
fi

# Globals
sympar2global_txt2lang $1 $language

if [ "$language" = "c" ] || [ "$language" = "m" ]; then
  if [ "$rep" != "sm" ]&&[ "$rep" != "dm" ]&&[ "$rep" != "switch" ]; then
  # Common part - ode (c and m)
  # Use octave for this bit - needs the definition file
  $MATRIX -q  <<EOF 
    %System structure
    [nx,ny,nu,nz,nyz] = $1_def;

  printf("$Lc====== Set up the state variables ======$Rc\n");


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