#!/bin/sh
#] 
#] *********************
#] "$d_bin"'review form copy.sh'  - fill-in Howell's peer review forms for scientific reviews
# www.BillHowell.ca  27Jan2018 initial
#	This script is to set up a peer review, by making review forms adapted to paper
#		edit, then run "$d_bin"'review header.sh' which sources this file
#	to load exisiting review, you DON'T use this file!! : 
#		edit "$d_bin"'neural_review.sh' with info for targeted review 
#		$ start  then select :
#		16  -  neural_review.sh            edit, peer review already set up, ongoing work
#		AFTER setting up paper in "$d_bin"'review header.sh'


# many have to manually clean up references (`b file) then example : 
# d_revw="$d_PROJECTS"'My Reviews/'
# fRefrnc='NEUNET-D-23-00010_R1 b Kong,Zhu,Karimi- Fixed-time periodic stabilization of discontinuous reaction-diffusion Cohen-Grossberg NNs.txt'
# pSelfCite="$d_temp"'self-cite list.txt'
# $ echo 'Kong,Zhu,Karimi'  |  sed 's#,#\\|#g' 
# Kong\|Zhu\|Karimi
# >> OK
# $ grep  "Kong\|Zhu\|Karimi"  "$d_revw$fRefrnc" >"$pSelfCite"  
# >> OK results
# 24*************************24





# 24*************************24
# Setup - header file

# NYET - backwards!  data (header) file drives function files
# provided by header file [confNmY, d_revw, p_form, process_it] : 
# source "$d_bin""review header.sh"

# 05Aug2023 - to protect existing review: 
#      MANUALLY open all files if review already set up
#      process_it() doesn't proceed if review already set up


# 24*************************24


#] extract_references  - 

	extract_references()
{  
in_refs="no"
while  read -u 9 line; do 
	if 	[ "no" == "$in_refs" ]; then 
		if [[ "$line" == "References" || "$line" == "REFERENCES" || "$line" == "R EFERENCES" ]]; then 
			echo ''  >>"$refncs" 
			echo ''  >>"$refncs" 
			echo 'REFERENCES'  >>"$refncs" 
			in_refs="yes"
		fi
	else
			echo "$line" >>"$refncs" 
	fi
done 9< "$pdftxt"  
}  


# $1 = date assigned
# $2 = date due
# $3 = paper#
# $4 = authorLastNameL
# $5 = paper title


#] process_it()  - 
	process_it()
{  
dateAccpt="$1"
date__due="$2"
paper_Num="$3"
authorNms="$4"
paperTitl="$5"

pdfraw="$d_revw$confNmY$paper_Num p $authorNms $paperTitl.pdf"  
pdftxt="$d_revw$confNmY$paper_Num t $authorNms $paperTitl.txt"
review="$d_revw$confNmY$paper_Num r $authorNms $paperTitl.txt"  
refncs="$d_revw$confNmY$paper_Num b $authorNms $paperTitl.txt"

p_temp="$d_temp$confNmY$paper_Num b $authorNms $paperTitl.txt"
p_tem2="$d_temp$confNmY$paper_Num b $authorNms $paperTitl refncs one-line.txt"
p_tem3="$d_temp$confNmY$paper_Num b $authorNms $paperTitl self-refs.txt"

	echo  "pdfraw=  $pdfraw"
	echo  "pdftxt=  $pdftxt"
	echo  "review=  $review"
	echo  "refncs=  $refncs"
#	echo  "p_temp=  $p_temp"
#	echo  "p_tem2=  $p_tem2"
#	echo  "p_tem3=  $p_tem3"

authorsRegExpr=$( echo "$authorNms" |  sed 's#,#\\|#g' )
	echo "authorsRegExpr = $authorsRegExpr"


if		! [  -f  "$review"  ]; then 
	sedExpr1="s|1_Paper_Review_form.txt|$review|;s|Paper    :  |Paper    : $review   |;s|Assigned :  |Assigned :  $dateAccpt|;s|Due      :  |Due      :  $date__due|"  
	#	echo  "$sedExpr1"
	cat  "$p_form"  |  sed  "$sedExpr1"   >"$review"
	
	pdftotext  "$pdfraw"  "$pdftxt"
	
	echo  >"$refncs"	"$refncs"  
	echo >>"$refncs"	""
	extract_references   # 09Feb2023 delete "$pdftxt"  "$refncs"  
	
	sedExpr2='s/\f\([^[]\)/ \1/g;s/\f\[/\f\f\[/g'  
	#	echo  "$sedExpr2"
	cat	 "$refncs"  | tr '\n' '\f' |  sed "$sedExpr2"  | tr '\f' '\n' >"$p_temp"
	
	echo >>"$p_temp"	""
	echo >>"$p_temp"	"24************************24"
	echo >>"$p_temp"	"References to authors own papers (check this!)"
	grep  >"$p_tem2"	"$authorsRegExpr"  "$p_temp"   
	echo >>"$p_tem2"	""
	cat	 "$p_tem2"  | tr '\n' '\f' |  sed 's/\(\f[^[].*\f\)/\f/g;s/\f\[/\f\f[/g;s/\f\f/\f>> \f\f/g'  | tr '\f' '\n' >"$p_tem3"
	cat	>"$refncs"	"$p_temp"  "$p_tem3"  
else  
	echo 'review form copy.sh error, review form copy already exists : '
	echo "$review"
fi 
}  





# don't run direct!! run this from "$d_bin"'review header.sh', or via start menu

# enddoc