#!/usr/bin/ksh

filein=$1
fileout=$1".madx"
length="6911.5038"

awk -vF="'" '
     BEGIN {}
     { gsub("RCOLL,","RCOLLIMATOR,");
       gsub("ECOLL,","ECOLLIMATOR,");
       gsub("SBEN,","SBEND,");
       gsub(": QUAD,",": QUADRUPOLE,");
       gsub("L:=",",L:=");
       gsub("K1:=",",K1:=");
       gsub("aperture:=",",aperture:=");

       gsub("!",";!");
       gsub("+-","-");
       gsub(F,"_");
       gsub("RETURN","");}
     /SEQUENCE/ && $0!~/ENDSEQ/ {$0=$0", l='$length'"}
     /[/ && /]/ {gsub("\\[","->"); gsub("\\]","");}
     /MULTIPOLE/ && /K3L/{ gsub("K3L=","");  $0=$1" "$2"  KNL:={0,0,0,"$3"}"}
     /MULTIPOLE/ && /K2L/{ gsub("K2L=","");  $0=$1" "$2"  KNL:={0,0,"$3"}"}
     /MULTIPOLE/ && /K4L/{ gsub("K4L=","");  $0=$1" "$2"  KNL:={0,0,0,0,"$3"}"}
     $0 !~ /:=/ && $0 !~/SEQUEN/{gsub("=",":=");}
                   {gsub("TYPE:","TYPE");}
     $0!~/&/{print $0";"}
     $0~/&/{gsub("&","");   print $0}' $filein > $fileout