#!/bin/sh
#] 
#] *********************
#] $ bash "$d_bin""symbols check POI.sh"  - non-compliances of POIx expressions wrt variable reference frames
# www.BillHowell.ca  26Jul2018 initial based on "symbols compliance POI.sh"
# 26Jul2018  - later I will check NEW (corrected) tran[List,Expr]s (output text files from QNial)

 
FORGET IT! -  use QNial!!


dater=$(date +"%y%m%d %kh%Mm")

d_Luca="/media/bill/SWAPPER/Lucas - Universal Force/"

if [[  "$HOWELL_computer" = "RaspPi"  ]]; then
   d_temp="/media/bill/RaspPi_ext4_32Gb/temp/"
else
   d_temp="/media/bill/ramdisk/"
fi



# [REBF][op][cd][vsh]
# A     [op][cd]


#] varR_trans()  - 

	varR_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1o\1\2(POIo)/g"			>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1o\1\2(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1p\1\2(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1p\1\2(POIp)/g"			>"$d_temp""f_trans4.txt"  
}  


#] varA_trans()  - 

	varA_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)(POIo\(.\{0,5\}\))/$1o\1(POIo)/g"				>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)(POIp\(.\{0,5\}\))/$1o\1(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)(POIo\(.\{0,5\}\))/$1p\1(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)(POIp\(.\{0,5\}\))/$1p\1(POIp)/g"				>"$d_temp""f_trans4.txt"  
}  


#] varAO_E0DIFF()  - 

	varAO_E0DIFF()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)(POIo\(.\{0,5\}\))/$1o\1(POIo,∂(t))/g"		>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)(POIp\(.\{0,5\}\))/$1o\1(POIp(t),∂(t)))/g"	>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)(POIo\(.\{0,5\}\))/$1p\1(POIo(t),∂(t)))/g"	>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)(POIp\(.\{0,5\}\))/$1p\1(POIp,∂(t))/g"		>"$d_temp""f_trans4.txt"  
}  

#] chochra()  - 

	chochra()
{  
 cat  "$f_checker"  |   grep  --only-matching  "$1[op][cd](POI[op]{{0,5\}\))"

}  

#] varBE_trans()  - 

	varBE_trans()
{  
cat "$d_temp""f_trans4.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1o\1\2(POIo,t)/g"			>"$d_temp""f_trans1.txt"  
cat "$d_temp""f_trans1.txt"	|  sed  "s/$1o\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1o\1\2(POIp(t),t))/g"		>"$d_temp""f_trans2.txt"  
cat "$d_temp""f_trans2.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIo\(.\{0,5\}\))/$1p\1\2(POIo(t),t))/g"		>"$d_temp""f_trans3.txt"  
cat "$d_temp""f_trans3.txt"	|  sed  "s/$1p\([cd]\)\([vsh]\)(POIp\(.\{0,5\}\))/$1p\1\2(POIp,t)/g"			>"$d_temp""f_trans4.txt"  
}  



#] checker()  - 

	checker()
{  
echo ""
echo "+-----+"
echo "POI check file : $f_checker"

varR_trans	"R"
varR_trans	"Rθ0"
varR_trans	"Rφ"
varR_trans	"RθPI2"

varA_trans	"Aθ"
varA_trans	"Aφ"

varA_DIFF	"Aθ_E0DIFF"

varBE_trans "E0"
varBE_trans "EI"
varBE_trans "EI_LENZ"
varBE_trans "EI_BARN"
varBE_trans "ET"
varBE_trans "ET_LENZ"
varBE_trans "ET_BARN"

varBE_trans "B0"
varBE_trans "BI"
varBE_trans "BI_LENZ"
varBE_trans "BI_BARN"
varBE_trans "BT"
varBE_trans "BT_LENZ"
varBE_trans "BT_BARN"
}  





echo ""
echo "symbols check POI.sh, $dater"

 f_checker="$d_Luca""symList good HFLN.txt"	;  chochra  
#f_checker="$d_Luca""symList good Lucas.txt"	;  checker 
#f_checker="$d_temp""classed good HFLN.txt"	;  checker 




# to run $ bash	"/media/bill/SWAPPER/Qnial/MY_NDFS/symbols check POI.sh"  



# enddoc