#!/bin/bash
#

 PROG=`basename $0`
 echo Start $PROG
 file=Solenoid_ColdOutline_20090701_1_a.prn
 type=0


# ==========   Help routine start
 help_dis () {
  cat <<help_doc
 $PROG - a script to convert the solenoid spreadsheet to the POISSON format
 Call parameters:
 $PROG [-f filename] [-t type] 
    where:
           -f the name of the input table                      default: [file]
           -t type=0 - coils, =1 - iron                        default: [type]
 Example: $PROG -f Solenoid_ColdOutline_20090701_1_a.prn -t 0
help_doc
 }
# ==========   Help routine end

  if [ "$1" = "?" -o "$1" = "-?" ]; then
    help_dis
    exit
  fi

  set -- `getopt f:t: $*`
  if [ $? != 0 ] ; then
    echo *** Error in getopt . Usage:
    help_dis
    exit 2
  fi
  for i in $* ; do
     case $i in
      -f)  file=$2 ; shift 2;;
      -t)  type=$2 ; shift 2;;
      --)  shift ; break;;
     esac
  done



 if [ $type -eq 0 ]; then
    cat $file | awk ' $1 ~ "[1234]" {printf "\n";printf "&reg mat=1, cur=%9.1f & ; Coil %s \n",$11,$1;
            printf "&po y=%8.3f, x=%8.3f &\n",$7,$9;printf "&po y=%8.3f, x=%8.3f &\n",$8,$9;
            printf "&po y=%8.3f, x=%8.3f &\n",$8,$10;printf "&po y=%8.3f, x=%8.3f &\n",$7,$10;
            printf "&po y=%8.3f, x=%8.3f &\n",$7,$9}'
 elif [ $type -eq 1 ]; then
   tail --lines=+2 $file | awk '{if(NF > 4){printf"&reg mat=2 &                ; "; print $1" "$2};
                                 if(NF >= 4)printf"&po y=%8.3f, x=%8.3f &\n",$(NF-1),$NF;}'
   
 fi