Artifact c2b2652ec6c8dcee776ae99de225665aaec3dceca941a5d60e54acdb9f1af7d3:

• Executable file mttroot/mtt/bin/trans/p/mtt_getargs.p — part of check-in [d8c0229f7f] at 1999-08-29 06:46:05 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 350) [annotate] [blame] [check-ins using]

{ Substitute for p2c PASCAL_MAIN
   Copies pogramme arguments in to mtt_parameters array
   This c code is embedded in a pascal routine in a p2c compatible way
}

{EMBED
Static Void  PASCAL_MAIN(argc, argv)
int argc;
char *argv[];

\[
 int i;
 mtt_n_parameters = argc-1;
  for (i=1;i<argc;i++)\[
    mtt_parameters[i-1] = strtod(argv[i],0);
  \]
\]
}