Overview
Comment:Geraint's temp. variable patch applied
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: e3bc8fa1fef54dfe117c4e021cc23917df585fc51dfef17f450b4c4410b16d24
User & Date: gawthrop@users.sourceforge.net on 2001-02-03 14:00:01.000
Other Links: branch diff | manifest | tags
Context
2001-02-05
01:50:29
No unit type comparison at ports if either is "none". check-in: 52a4af0e45 user: geraint@users.sourceforge.net tags: origin/master, trunk
2001-02-03
14:00:01
Geraint's temp. variable patch applied check-in: e3bc8fa1fe user: gawthrop@users.sourceforge.net tags: origin/master, trunk
13:54:02
Geraint's broken number patch applied check-in: fa13010cdd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
11
12
13
14
15
16
17



18
19
20
21
22
23
24
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27







+
+
+







# Copyright (c) P.J.Gawthrop 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.63  2000/12/04 08:24:29  peterg
## Added swithc logic declarations
##
## Revision 1.62  2000/12/03 17:15:18  peterg
## *** empty log message ***
##
## Revision 1.61  2000/11/10 14:46:53  peterg
## More fixes to avoid interpering variables as funs - basicly all
## functions now have at least ()
##
496
497
498
499
500
501
502

503
504



505
506
507
508
509
510
511
499
500
501
502
503
504
505
506


507
508
509
510
511
512
513
514
515
516







+
-
-
+
+
+







          printf("\n")
          printf("VAR \n");
          for (k=1;k<i;k++) printf("  %s,\n",global[k])
          printf("%s : REAL;\n", global[i])
          printvar("x",Nx);
          printvar("u",Nu);
          printvar("y",Ny);
	  if ((rep=="ode")||(rep=="odeo")||(rep=="csex")||(rep=="cseo")||(rep=="smx")||(rep=="smxa")||(rep=="smxax")){
          printvar("_tmp",N_tmp);
          printvar("_s",N_tmp);
	    printvar("_tmp",N_tmp);
	    printvar("_s",N_tmp);
	  }
          printf("VAR mtt_i, mtt_j : INTEGER;\n");
          #if ( (rep=="smxa")||(rep=="smxax") ) {
          #  printvar("_t",Nt);
          #}
          printf("\nBEGIN{%s}\n", Sys_rep)
          if (rep=="smxa"){
            printf("FOR mtt_i:= 1 to %i DO\n\tFOR mtt_j:= 1 to %i DO\n\tmtta[mtt_i,mtt_j] := 0;\n", Nx,Nx);

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