Artifact a651c6c513b879bb8352d515142ff801161b8b1fb612196866c6f2a663344c8b:

• Executable file mttroot/mtt/bin/trans/make_stdin — part of check-in [20b687a8b5] at 2000-05-12 07:31:55 on branch origin/master — Declare t local (user: gawthrop@users.sourceforge.net, size: 796) [annotate] [blame] [check-ins using]

#! /bin/sh

     ###################################### 
     ##### Model Transformation Tools #####
     ######################################

## 	$Id$	

# Copyright (C) 1999 by Peter J. Gawthrop

# Tell user
Sys=$1
lang=$2
date=`date`
Nu=`grep "MTTNu " <$Sys\_def.r | awk '{print $3}' | sed 's/;//'`
echo  "Creating $1_input.$2 for standard input"

cat <<EOF > $1_input.$2 
PROCEDURE $1_input(VAR mttu : InputVector;
                       mttt : REAL;
                       mttx : StateVector;
                       mtty : OutputVector);

{Created by MTT on $date for standard input to simulation}

VAR t : REAL;

BEGIN{$1_input}
  read(t); { Read, and discard, first column (time) }
  FOR mtti:=1 TO $Nu DO {Read the inputs}
     read(mttu[mtti]);
  readln; {Next line}
END{$1_input};
EOF