// File: /workspace/github_cpp_makefile_star2_O2/gersteinlab[P]MUSIC/src/ms_signal_enrichment_utils.cpp
// Function: get_modified_binomial_pvalue_per_region(double*, double*, double, int, int, double*, double, bool, int)
double get_modified_binomial_pvalue_per_region(double* signal_track_data, double* control_track_data, 
	double flip_prob, 
	int region_start, int region_end, 
	double* _log_factorials, 
	double scaling_factor,
	bool length_normalization, int l_norm_win)
{
	// Get the p-value for the current region.
	double total_profile_signal = 0;
	double total_control_signal = 0;
	for(int i = region_start; i <= region_end; i++)
	{
		total_profile_signal += floor(signal_track_data[i]);
		total_control_signal += floor(control_track_data[i]);	
	} // i loop.

	total_profile_signal /= scaling_factor;

	// Scale control signal.
	total_control_signal /= scaling_factor;

	// Normalize both signals with respect to normalization region, if they are larger than the region size.
	if(length_normalization && 
		(region_end - region_start+1) > l_norm_win)
	{
		total_profile_signal = total_profile_signal / ((double)(region_end - region_start+1) / l_norm_win);
		total_control_signal = total_control_signal / ((double)(region_end - region_start+1) / l_norm_win);

		if(floor(total_control_signal) == 0)
		{
			total_control_signal = 1.0;
		}

		// The total signal hit 0, return 1.
		if(floor(total_profile_signal) == 0)
		{
			//fprintf(stderr, "Hit 0.\n");
			// Return the most insignificant p-value.
			return(xlog(1.0));
		}
	}
	
	int grand_total_int = (int)(total_profile_signal + total_control_signal);

	// Setup the log factorials.
	double* log_factorials = NULL;
	if(_log_factorials == NULL)
	{
		log_factorials = buffer_log_factorials(grand_total_int+3);
	}
	else
	{
		log_factorials = _log_factorials;
	}

	// Compute the p-values.
	double log_flip = log(flip_prob);
	double cur_region_log_p_val = xlog(0.0);
	for(int i = 0; i <= total_control_signal; i++)
	{
		double log_cur_half_pow = log_flip * grand_total_int;
		double log_cur_perm = 0.0; // = xlog(1.0).

		// Compute the current permutation, using shortcuts, bypassing the function calls from xlog_math library.
		log_cur_perm = xlog_div(log_factorials[grand_total_int], xlog_mul(log_factorials[i], log_factorials[grand_total_int-i]));
		cur_region_log_p_val = xlog_sum(cur_region_log_p_val, xlog_mul(log_cur_perm, log_cur_half_pow));
	} // i loop.

	// Free memory if it is allocated in the function.
	if(_log_factorials == NULL)
	{
		delete [] log_factorials;
	}

	return(cur_region_log_p_val);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x78, %rsp
movl %r9d, 0x3c(%rsp)
movapd %xmm1, 0x60(%rsp)
movq %r8, 0x8(%rsp)
movl %ecx, %ebp
movl %edx, %r14d
movsd %xmm0, 0x58(%rsp)
movq %rsi, %r12
movq %rdi, %r13
movl 0xb0(%rsp), %eax
movl %eax, 0x38(%rsp)
movslq %edx, %rbx
movslq %ecx, %r15
xorpd %xmm2, %xmm2
cmpq %r15, %rbx
jg 0x1a247
movsd (%r13,%rbx,8), %xmm0
movsd %xmm0, 0x20(%rsp)
movsd (%r12,%rbx,8), %xmm0
movapd %xmm2, 0x10(%rsp)
callq 0x22b0
movaps %xmm0, 0x40(%rsp)
movsd 0x20(%rsp), %xmm0
callq 0x22b0
movapd 0x10(%rsp), %xmm2
unpcklpd 0x40(%rsp), %xmm0       # xmm0 = xmm0[0],mem[0]
addpd %xmm0, %xmm2
incq %rbx
jmp 0x1a1ff
movapd 0x60(%rsp), %xmm0
unpcklpd %xmm0, %xmm0            # xmm0 = xmm0[0,0]
divpd %xmm0, %xmm2
cmpb $0x0, 0x3c(%rsp)
je 0x1a2d6
subl %r14d, %ebp
movl 0x38(%rsp), %eax
cmpl %eax, %ebp
movq 0x8(%rsp), %r13
jl 0x1a2db
incl %ebp
cvtsi2sd %ebp, %xmm0
cvtsi2sd %eax, %xmm1
divsd %xmm1, %xmm0
unpcklpd %xmm0, %xmm0            # xmm0 = xmm0[0,0]
divpd %xmm0, %xmm2
movapd %xmm2, 0x10(%rsp)
movapd %xmm2, %xmm0
callq 0x22b0
movapd %xmm0, 0x20(%rsp)
movapd 0x10(%rsp), %xmm0
unpckhpd %xmm0, %xmm0            # xmm0 = xmm0[1,1]
movapd %xmm0, 0x40(%rsp)
callq 0x22b0
movapd 0x20(%rsp), %xmm1
unpcklpd %xmm0, %xmm1            # xmm1 = xmm1[0],xmm0[0]
xorpd %xmm0, %xmm0
cmpeqpd %xmm1, %xmm0
movmskpd %xmm0, %eax
testb $0x2, %al
jne 0x1a3c7
movapd 0x40(%rsp), %xmm0
jmp 0x1a3cf
movq 0x8(%rsp), %r13
movapd %xmm2, %xmm0
unpckhpd %xmm2, %xmm0            # xmm0 = xmm0[1],xmm2[1]
movapd %xmm0, 0x40(%rsp)
addsd %xmm0, %xmm2
cvttsd2si %xmm2, %ebx
movq %r13, %r14
testq %r13, %r13
jne 0x1a304
leal 0x3(%rbx), %edi
callq 0x1e201
movq %rax, %r14
movsd 0x58(%rsp), %xmm0
callq 0x2120
movsd %xmm0, 0x20(%rsp)
xorps %xmm0, %xmm0
callq 0x1f860
movsd %xmm0, 0x10(%rsp)
cvtsi2sd %ebx, %xmm0
mulsd 0x20(%rsp), %xmm0
movsd %xmm0, 0x8(%rsp)
movslq %ebx, %r15
xorl %r12d, %r12d
movq %r15, %rbx
cvtsi2sd %r12d, %xmm0
movapd 0x40(%rsp), %xmm1
ucomisd %xmm0, %xmm1
jb 0x1a3a0
movsd (%r14,%r15,8), %xmm0
movsd %xmm0, 0x20(%rsp)
movsd (%r14,%r12,8), %xmm0
movsd (%r14,%rbx,8), %xmm1
callq 0x1f994
movaps %xmm0, %xmm1
movsd 0x20(%rsp), %xmm0
callq 0x1f9cf
movsd 0x8(%rsp), %xmm1
callq 0x1f994
movapd %xmm0, %xmm1
movsd 0x10(%rsp), %xmm0
callq 0x1f8b2
movsd %xmm0, 0x10(%rsp)
incq %r12
decq %rbx
jmp 0x1a33c
testq %r13, %r13
jne 0x1a3b2
testq %r14, %r14
je 0x1a3b2
movq %r14, %rdi
callq 0x2210
movsd 0x10(%rsp), %xmm0
addq $0x78, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movsd 0x9c39(%rip), %xmm0     # 0x24008
testb $0x1, %al
movapd 0x10(%rsp), %xmm2
je 0x1a3f4
movsd 0x9c27(%rip), %xmm0     # 0x24008
addq $0x78, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1f860
unpcklpd %xmm0, %xmm2            # xmm2 = xmm2[0],xmm0[0]
jmp 0x1a2db