#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <curses.h>
#include <keycodes.h>
#include <ncinput.h>
#include "mfjterm.h"
#include "misc.h"
#include "inout.h"
#include "qso.h"
#include "timefuncs.h"


char* mk_sc(char *dc)
{
	static char sc[5];
	int numlet, i, first, pos = 0;

	sc[0] = 0;
	numlet = 0;

	first = 0;
	if(dc[0] < 'A')
		first = 1;

	for (i = first; i < strlen(dc); i++)
		if (dc[i] >= 'A')
			numlet++;
		else
			pos = i;

	switch (numlet){
		case 3 :
			sc[0] = dc[first];
			sc[1] = dc[first];
			if ((strlen(dc)-1)-pos > 1) {
				sc[2] = dc[++pos];
				sc[3] = dc[++pos];
			}
			else {
				sc[2] = dc[++first];
				sc[3] = dc[++pos];
			}
			break;
		case 4 :
			if ((strlen(dc)-1)-pos > 2)
				goto case5;

			sc[0] = dc[first++];
			sc[1] = dc[first];
			sc[2] = dc[++pos];
			sc[3] = dc[++pos];
			break;
case5:
		case 5 :
			sc[0] = dc[first];
			sc[1] = dc[++pos];
			sc[2] = dc[++pos];
			sc[3] = dc[++pos];
	}

	sc[4] = 0;
	return sc;
}


void set_my_callsign(void)
{
	int i;

	attrset(A_REVERSE);
	move(19, 1);
	addstr("My Call: ");
	edgets(stdscr, callsign, 10, TRUE);
	move(19, 1);
	addstr("                              "); 
	refresh();

	for (i = 0; i < strlen(callsign); i++)
		callsign[i] = toupper(callsign[i]);

	if (strlen(callsign))
		strcpy(my_selcall, mk_sc(callsign));
	else
		strcpy(my_selcall,"");

	attrset(A_REVERSE);
	move(19, 1);
	addstr("My SelCall: ");
	edgets(stdscr, my_selcall, 4, TRUE);
	move(19, 1);
	addstr("                 "); 

	move(tnc_y, tnc_x);
	refresh();
}


void get_call(void)
{
	int i;

	attrset(A_REVERSE);
	move(19, 1);
	addstr("Call: ");
	edgets(stdscr, destcall, 10, TRUE);
	move(19, 1);
	addstr("                              "); 
	refresh();

	for (i = 0; i < strlen(destcall); i++)
		destcall[i] = toupper(destcall[i]);

	if (opmode == AMTOR) {
		move(19, 1);
		addstr("SelCall: "); 
		if (strlen(destcall))
			strcpy(selcall, mk_sc(destcall));
		else
			strcpy(selcall,"");
		edgets(stdscr, selcall, 4, TRUE);
		move(19, 1);
		addstr("                              "); 
		refresh();
	}
	move(tnc_y, tnc_x);
	refresh();
}

/*
void lookup_call(void)
{

	return;
}
*/


void grab_callsign(void)
{
	char *p, *p2;
	int cs_len, i;

	cs_grab ^= 1;

	curs_set(0);
	attrset(A_REVERSE);
	move(19, 1);

	if (cs_grab)
		addstr("GRABBING CALLSIGN...");
	else {
		for (i = 0; i < strlen(scanstr); i++)
			scanstr[i] = toupper(scanstr[i]);

		if ((p = strstr(scanstr, "DE "))) {
			p += 3;

			while (*p == ' ')
				p++;

			if ((p2 = strpbrk(p, " \r\n"))) {
				if ((cs_len = p2 - p) <= 10) {
					strncpy(destcall, p, cs_len);
					destcall[cs_len] = 0;
				}
			}
		}
		strcpy(scanstr,"                              ");
		addstr("                    ");
	}
	move(tnc_y, tnc_x);
	curs_set(1);
	refresh();
}




void conn(void)
{
	int i;
	char s[80];

	strcpy(s,"");

	switch (opmode) {
		case AMTOR :
			strcat(s,"ARQ ");
			strcat(s,selcall);
			send_string(s,1);
			break;
		case ASCII  :
		case RTTY :
			write_tnc(K_CTL_T);
			write_tnc(0x0A);
			send_ry();
			for (i = 0; i < 3; i++) {
				strcat(s,destcall);
				strcat(s, " ");
			}
			strcat(s,"DE ");
			for (i = 0; i < 3; i++) {
				strcat(s, callsign);
				strcat(s, " ");
			}
			strcat(s, "PSE KN KN");
			send_string(s,1);
			break;
		default   :
			strcat(s,"C ");
			strcat(s,destcall);
			send_string(s,1);
			break;
	}
}


void send_ry(void)
{
	if ((opmode == RTTY) || (opmode == ASCII))
		send_string("RYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRY", 1);
}



void insert_call_sequence(int spc)
{
	char s[80];

	strcpy(s, "");
	strcat(s, destcall);
	strcat(s, " DE ");
	strcat(s, callsign);
	if (spc)
		strcat(s," ");
	send_string(s,0);
}


void turn_it_over(void)
{
	int type;

	insert_call_sequence(0);

	switch (opmode) {
		case AMTOR:
			type = 0;
			break;
		case PACTOR:
			type = 1;
			break;
		default:
			type = 2;
	}

	send_string(over_str[type],1);

	if ((opmode != AMTOR) && (opmode != PACTOR))
		write_tnc(K_CTL_R);
}


void end_qso(void)
{
	insert_call_sequence(0);

	switch (opmode){
		case AMTOR:
			send_string(" I AM NOW BREAKING THE LINK...", 1);
			waitfor_string("...\012");
			transmit = FALSE;
			write_tnc(0x03);
			zleep(20);
			send_string("R", 1);
			break;
		case ASCII:
		case RTTY:
			send_string(" AR SK SK",1);
			break;
		case PACTOR:
			send_string(" AR SK", 1);
			waitfor_string(" SK\012");
			transmit = FALSE;
			write_tnc(0x03);
			zleep(20);
			send_string("DISC", 1);
			break;
		default:
			send_string(" AR SK", 1);
			write_tnc(0x03);
			zleep(20);
			send_string("DISC", 1);
	}
}
.