#!/usr/bin/perl -w
use lib qq{$ENV{GENESIS_DIR}/e$ENV{GENESIS_VER}/all/perl};
use strict;
use warnings;

my $DTM_PATH = "$ENV{GENESIS_DIR}/sys/hooks";

my $BD_THK = "$ARGV[0]";
my $FIN_SZ = "$ARGV[1]";
my $H_TYPE = "$ARGV[2]";
my $MN_TOL = "$ARGV[3]";
my $MX_TOL = "$ARGV[4]";
my $USER_P = "$ARGV[5]";
my $OUTPUT = "$ARGV[6]";
my $TL_NUM = "$ARGV[7]";
my $DRL_DS = "$ARGV[8]";
my $TYPE_2 = "$ARGV[9]";
my $SHAPE  = "$ARGV[10]";
my $SL_LEN = "$ARGV[11]";

my $ENLARGE = 0;

if ($USER_P eq "sz_hasl" || $USER_P eq "jx_hasl" ) {
	if ($MX_TOL eq "1.968504" and $MN_TOL eq "1.968504") {
		$ENLARGE = 4;
	} 
	else {
		$ENLARGE = 5;
	}
}elsif ($USER_P eq "sz_imm_au" || $USER_P eq "jx_imm_au") {
	if ($MX_TOL eq "1.968504" and $MN_TOL eq "1.968504") {
		$ENLARGE = 3;
	} 
	else {
		$ENLARGE = 4;
	}
}

my $slot_len = 0;
my $isSlotL = 0;
if ($SHAPE eq "SLOT") {
    $slot_len = sprintf("%.3f",($SL_LEN * 25.4 + $FIN_SZ * 25.4) / 1000.0);
	$isSlotL = sprintf("%.3f",$slot_len / ($FIN_SZ * 25.4 / 1000.0));
}

my $PRS_FIT = 0;
my $SIZE = 0;
my $JQ =  0;

if ($H_TYPE eq "NPLATE") {
	$SIZE = $FIN_SZ + ((($MX_TOL - $MN_TOL) / 2 + 0.05/0.0254));
}
else {
	if ($USER_P eq "sz_hasl" || $USER_P eq "jx_hasl" ) {
		$SIZE = $FIN_SZ + $ENLARGE + (($MX_TOL - $MN_TOL)/2);
		$SIZE = sprintf("%.2f",$SIZE*0.0254);
		$JQ = substr($SIZE,length($SIZE)-1,1);
		if ($JQ >=2 and $JQ < 5) {
		$SIZE = $SIZE = sprintf("%.1f",$SIZE) + 0.05
		} 
		elsif ($JQ > 6 and $JQ <= 9) {
		$SIZE = $SIZE = sprintf("%.1f",$SIZE)
		}
		$SIZE = $SIZE/0.0254;

		if ($USER_P eq "jx_hasl" && $SHAPE eq "SLOT" && $isSlotL != 0 && $isSlotL <= 2.0 && $ENLARGE == 5) {	
			$SIZE = $SIZE - 1.968504;
		}
	}
	elsif ($USER_P eq "sz_imm_au" || $USER_P eq "jx_imm_au") {
		$SIZE = $FIN_SZ + $ENLARGE + (($MX_TOL - $MN_TOL)/2);
	}
}


my $RESP = readpipe ("grep -v # $DTM_PATH/drill_sizeqd.tab | awk95 -v DRILL=$SIZE -v PFT=$PRS_FIT -f $DTM_PATH/drill_sizeqd.awk");

open FILE,">>",$OUTPUT or die "can't open $OUTPUT $!\n";
print FILE  "$RESP";
close FILE;