#include <stdio.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <curses.h>
#include "mfjterm.h"
#include "misc.h"
#include "inout.h"
#include "timefuncs.h"

void set_tnc_params(void)
{
char s[50];
int speed_mode;
int speed;

delta_inv=FALSE;
delta_shift=0;
speed=0;
speed_mode = FALSE;

strcpy(s,"");

if (last_opmode == PACTOR) {
write_tnc(0x03);
zleep(20);
send_string("EXIT",1);
zleep(20);
write_tnc(0x0A);
zleep(20);
} else {
write_tnc(0x03);
zleep(20);
write_tnc(0x03);
zleep(20);
write_tnc(0x0A);
zleep(20);
}

if (last_opmode == AMTOR){
send_string("ECHO OFF", 1);
zleep(20);
}

switch (opmode){
case AMTOR:
send_string("RADIO 1",1);
zleep(10);
send_string("ECHO ON",1);
zleep(20);
send_string("MODE AMTOR",1);
zleep(50);
while (! chk_incoming());
read_tnc();
send_string(a_rinv_str[amtor_inv], 1);
send_string(a_tinv_str[amtor_inv], 1);
delta_inv = amtor_inv;
last_opmode = AMTOR;
break;
case ASCII:
send_string("RADIO 1",1);
zleep(10);
send_string(b_rinv_str[ascii_inv],1);
send_string(b_tinv_str[ascii_inv],1);
zleep(10);
strcat(s,ascii_cmd_str[ascii_shift]);
strcat(s,speed_str[ascii_spd]);
send_string(s,1);
zleep(10);
send_string("CONV",1);
delta_inv=ascii_inv;
delta_shift=ascii_shift;
speed=ascii_spd;
speed_mode = TRUE;
last_opmode = ASCII;
break;
case RTTY:
send_string("RADIO 1",1);
zleep(10);
send_string(usos_str[usos],1);
zleep(10);
send_string(b_rinv_str[rtty_inv],1);
send_string(b_tinv_str[rtty_inv],1);
zleep(10);
strcat(s,rtty_cmd_str[rtty_shift]);
strcat(s,speed_str[rtty_spd]);
send_string(s,1);
zleep(10);
send_string("CONV",1);
delta_inv = rtty_inv;
delta_shift = rtty_shift;
speed=rtty_spd;
speed_mode = TRUE;
last_opmode = RTTY;
break;
case PACTOR:
send_string("RADIO 1",1);
zleep(10);
send_string("MODE PT",1);
speed_mode = TRUE;
last_opmode = PACTOR;
break;
case HPKT:
send_string("DEADTIME 12",1);
zleep(5);
send_string("ACKTIME 52",1);
zleep(5);
send_string("DWAIT 0",1);
zleep(5);
send_string("RESPTIME 0",1);
zleep(5);
send_string("MAXFRAME 1",1);
zleep(5);
send_string("FRACK 8",1);
zleep(5);
send_string("PACLEN 40",1);
zleep(5);
send_string("RADIO 1",1);
zleep(10);
send_string("MODE HP",1);
last_opmode = HPKT;
break;
case VPKT:
send_string("DEADTIME 33",1);
zleep(5);
send_string("ACKTIME 13",1);
zleep(5);
send_string("RESPTIME 0",1);
zleep(5);
send_string("DWAIT 0",1);
zleep(5);
send_string("MAXFRAME 4",1);
zleep(5);
send_string("FRACK 3",1);
zleep(5);
send_string("PACLEN 128",1);
zleep(5);
send_string("RADIO 2",1);
zleep(10);
send_string("MODE VP",1);
last_opmode = VPKT;
break;
}

if (delta_inv)
attrset(A_NORMAL);
else
attrset(A_REVERSE);

move(19, 75);
addch(modesign[opmode]);

if (! delta_shift)
attrset(A_REVERSE);

addch(shiftsign[delta_shift]);

attrset(A_REVERSE);
move(0, 52);
if (opmode == RTTY) {
sprintf(s, "%s", usos_str2[usos]);
} else
sprintf(s, " ");
addstr(s);

move(0, 65);

if (speed_mode) {
if (opmode == PACTOR)
sprintf(s, "Speed: %-3s", pactspeed_str[pactor_spd]);
else
sprintf(s, "Speed: %-3s", speed_str[speed]);
addstr(s);
} else
addstr(" ");

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

void change_opmode(void)
{
int k;

attrset(A_REVERSE);

curs_set(0);
move(19, 1);
addstr("Enter new opmode (A)MTOR A(S)CII (R)TTY (P)ACTOR (V)PKT (H)PKT");
nodelay(stdscr, FALSE);
k = getch();
nodelay(stdscr, TRUE);
move(19, 1);
addstr(" ");
move(tnc_y, tnc_x);
curs_set(1);

switch (k){
case 'a':
case 'A':
opmode = AMTOR;
break;
case 's':
case 'S':
opmode = ASCII;
break;
case 'r':
case 'R':
opmode = RTTY;
break;
case 'p':
case 'P':
opmode = PACTOR;
break;
case 'v':
case 'V':
opmode = VPKT;
break;
case 'h':
case 'H':
opmode = HPKT;
break;
default :
refresh();
goto abort;
}

set_tnc_params();
abort:
}