Artifact bf7ae14172b9c2f778e683ebe3e7a8782d5580c524b74cb266b67aeb71658f5e:

• Executable file mttroot/mtt/bin/trans/switch_txt2m — part of check-in [d0d26321ed] at 1998-07-26 11:11:32 on branch origin/master — i --> MTTi (user: gawthrop@users.sourceforge.net, size: 857) [annotate] [blame] [check-ins using]

#! /bin/sh

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

# Bourne shell script: switch_txt2m

# Convert switch file from txt to m
# P.J.Gawthrop May 1997
# Copyright (c) P.J.Gawthrop, 1997.


echo Creating  $1_switch.m

# Find system constants
Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`

#Write some file headers
lang_header $1 switch m mttx '[mttxs]' > $1_switch.m

# This is the main transformation using gawk
awk '{
  if ($1=="#"){
    printf("for MTTi=1:%s\n", Nx)
    printf("  mttxs(MTTi) = mttx(MTTi);\n")
    printf("end;\n\n")
  }
  else{
  printf("if (%s==0.0)\n  mttxs(%s)=0.0;\nend;\n\n", $1,$2)
  printf("if (%s<0.0)\n  if (mttx(%s)<0.0)\n    mttxs(%s)=0.0;\n  end;\nend;\n", $1,$2,$2)
  }
}' Nx=$Nx < $1_switch.txt >> $1_switch.m