Overview
Comment:Make a dummy function when no parameters (MTTNVar=0).
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 48861643d3006853d267c210926e145cc3f6cf40fd70d4ddff3ecfb37989f7d5
User & Date: gawthrop@users.sourceforge.net on 1996-08-16 14:27:25.000
Other Links: branch diff | manifest | tags
Context
1996-08-16
14:28:45
Some debugging lines removed. check-in: 428cd92a4a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
14:27:25
Make a dummy function when no parameters (MTTNVar=0). check-in: 48861643d3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
14:26:37
Check and fix size of u0. check-in: 153cb373e2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/sympar2numpar_r2m from [ec9f22fd41] to [187b2808c4].
︙︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

# Copyright (c) P.J.Gawthrop 1996

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



## Revision 1.3  1996/08/12 20:20:59  peter
## Explicit parameters via out put list.
## Parameter conversion stuff deleted.
##
## Revision 1.2  1996/08/11 10:41:52  peter
## Fixed various bugs.
##








>
>
>








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

# Copyright (c) P.J.Gawthrop 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4  1996/08/15 12:46:59  peter
## Removed a spuriuos echo.
##
## Revision 1.3  1996/08/12 20:20:59  peter
## Explicit parameters via out put list.
## Parameter conversion stuff deleted.
##
## Revision 1.2  1996/08/11 10:41:52  peter
## Fixed various bugs.
##
︙︙
46
47
48
49
50
51
52
53
54
55




56
57
58
59
60
61
62
63
64
65
66



67
68
69
70


IF MTTNvar>0 THEN
BEGIN
  write "function [ ...;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
                  ELSE write MTTVar(i,1), "] = $1_numpar;;"
  END;
END;





write "% function [par_list] = $1_numpar;";
write "% Created by MTT";

IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
  BEGIN
    write MTTVar(i,1), "  = 1;	% Default value";
  END;
END;





SHUT "$1_numpar.m";









|
|
|
>
>
>
>











>
>
>





49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80


IF MTTNvar>0 THEN
BEGIN
  write "function [ ...;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
                  ELSE write MTTVar(i,1), "] = $1_numpar;;";
  END
END; 

if MTTNVar=0 THEN
  write "function foo=$1_numpar;;";


write "% function [par_list] = $1_numpar;";
write "% Created by MTT";

IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
  BEGIN
    write MTTVar(i,1), "  = 1;	% Default value";
  END;
END;

if MTTNVar=0 THEN
  write "foo=0";


SHUT "$1_numpar.m";
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]