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.52 2000/08/24 08:30:45 peterg
## *** empty log message ***
##
## Revision 1.51 2000/08/01 12:25:24 peterg
## Some changes to include files
##
## Revision 1.50 2000/05/19 17:46:41 peterg
## New version of state with par argument
##
## Revision 1.49 2000/05/18 09:45:45 peterg
|
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
|
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
|
-
+
+
|
if (kk==width){printf("\n"); kk=0}
}
}
BEGIN{
comment_regexp = "{"
doing_header = 0
doing_globals = 0
Nt = 9
No = 500;
Ns = 10;
inc ="$I"
}
{
if ($1=="global")
doing_globals = 1
else{
if (doing_globals==1){
|
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
|
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
|
-
+
+
|
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);
printvar("_t",Nt);
printvar("_s",Ns);
printvar("_o",No);
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"){
|