#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <time.h>
#include <sys/types.h>
#include <sys/time.h>
#include <curses.h>
#include <keycodes.h>
#include "mfjterm.h"
#include "init.h"
#include "fkeys.h"
#include "scrollback.h"
#include "yapp.h"
#include "inout.h"
#include "rs232.h"
#include "misc.h"
#include "opmode.h"
#include "cq.h"
#include "qso.h"
#include "file.h"
#include "timefuncs.h"
#define TAB 9
#define ESC 27
extern char nofifo;
unsigned char pc2latin[128] =
{
199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 0, 0,
225, 237, 243, 250, 241, 209, 170, 186, 191, 0, 172, 189, 188, 161, 171, 187,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 223, 0, 0, 0, 0, 181, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 177, 0, 0, 0, 0, 247, 0, 176, 0, 183, 0, 0, 178, 0, 160
};
unsigned char latin2pc[128] =
{
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
255, 173, 155, 156, 254, 157, 124, 21, 254, 254, 166, 174, 170, 45, 254, 254,
248, 241, 253, 254, 254, 230, 20, 249, 254, 254, 167, 175, 172, 171, 254, 168,
254, 254, 254, 254, 142, 143, 146, 128, 254, 144, 254, 254, 254, 254, 254, 254,
254, 165, 254, 254, 254, 254, 153, 254, 232, 254, 254, 254, 154, 254, 254, 225,
133, 160, 131, 254, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139,
254, 164, 149, 162, 147, 254, 148, 246, 237, 151, 163, 150, 129, 254, 254, 152
};
char tab_move[80] = {
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
8,7,6,5,4,3,2,1,
7,6,5,4,3,2,1,0
};
void toggle_translate(void)
{
static char *translate_state[2] = {"Off", "On"};
char tmp[80];
pc_translate ^= 1;
curs_set(0);
attrset(A_REVERSE);
move(19, 1);
sprintf(tmp, "PC <-> Latin1 character translation now %s", translate_state[pc_translate]);
addstr(tmp);
refresh();
sleep(1);
move(19, 1);
addstr(" ");
move(tnc_y, tnc_x);
curs_set(1);
refresh();
}
void toggle_bell(void)
{
static char *translate_state[2] = {"Off", "On"};
char tmp[80];
bell ^= 1;
curs_set(0);
attrset(A_REVERSE);
move(19, 1);
sprintf(tmp, "Bell now %s", translate_state[bell]);
addstr(tmp);
refresh();
sleep(1);
move(19, 1);
addstr(" ");
move(tnc_y, tnc_x);
curs_set(1);
refresh();
}
void read_key(void)
{
int key;
key = getch();
if (key < KEY_MIN) {
if (key == ESC) {
key = getch();
switch (key) {
case 'a':
set_bps();
break;
case 'b':
scrollback();
break;
case 'c':
conn();
break;
case 'd':
send_daytime();
break;
case 'e':
invoke_editor();
break;
case 'f':
if ((opmode == AMTOR) != (opmode == PACTOR))
switch_fec(fec ^= 1);
break;
case 'g':
grab_callsign();
break;
case 'h':
show_help();
break;
case 'k':
set_my_callsign();
break;
case 'o':
change_opmode();
break;
case 'p':
toggle_translate();
break;
case 'q':
send_cq();
break;
case 'r':
send_ry();
break;
case 's':
save_settings();
break;
case 't':
turn_it_over();
break;
case 'u':
if (opmode == RTTY)
set_usos(usos ^= 1);
break;
case 'w':
save_sb_buf();
break;
case 'x':
quit(0);
break;
case 'y':
set_scancrit();
break;
case 'z':
get_call();
break;
default:
curs_set(0);
move(19, 1);
attrset(A_REVERSE);
addstr("Illegal command");
refresh();
sleep(2);
move(19, 1);
addstr(" ");
attrset(A_NORMAL);
move(tnc_y, tnc_x);
curs_set(1);
refresh();
}
} else {
switch(key) {
case K_CTL_B:
toggle_bell();
break;
case K_CTL_X:
quit(1);
break;
case K_CTL_Y:
nodelay(stdscr, FALSE);
key = getch();
nodelay(stdscr, TRUE);
switch(key) {
case KEY_PPAGE:
yapp(YAPP_UL);
break;
case KEY_NPAGE:
yapp(YAPP_DL);
break;
}
break;
case K_CTL_F:
fkeys();
break;
case K_CTL_G:
bbs_capture();
break;
default:
write_tnc((unsigned char)key);
}
}
} else {
if ((key >= KEY_F(1)) && key <= KEY_F(10))
out_fk(key - KEY_F(1));
else {
switch(key) {
case KEY_BACKSPACE:
write_tnc(K_BACKSPACE);
break;
case KEY_PPAGE:
send_file();
break;
case KEY_NPAGE:
capture();
break;
case KEY_IC:
insert_call_sequence(1);
break;
case KEY_LEFT:
case KEY_RIGHT:
set_spd(key);
break;
case KEY_DOWN:
set_inv();
break;
case KEY_UP:
set_shift();
break;
case KEY_END:
end_qso();
break;
}
}
}
}
int chk_incoming(void)
{
struct timeval timeout;
FD_ZERO(&io_set);
FD_SET(tnc, &io_set);
timeout.tv_sec = 0;
timeout.tv_usec = 0;
return select(tnc + 1, &io_set, NULL, NULL, &timeout);
}
void send_string(unsigned char *s, int lfeed)
{
int i;
for (i = 0; i < strlen(s); i++) {
if (chk_incoming())
read_tnc();
write_tnc(s[i]);
zleep(1);
}
if (lfeed) {
if (chk_incoming())
read_tnc();
write_tnc(10);
}
}
void waitfor_string(unsigned char *s)
{
fd_set io_set;
struct timeval timeout;
w_cmpstr = (s[0] << 24) + (s[1] << 16) + (s[2] << 8) + (s[3]);
w_instr = 0;
w_found = FALSE;
wait_string = TRUE;
while (! w_found) {
FD_ZERO(&io_set);
FD_SET(0, &io_set);
FD_SET(tnc, &io_set);
timeout.tv_sec = 0;
timeout.tv_usec = 400000;
if (select(tnc+1, &io_set, NULL, NULL, &timeout) > 0) {
if (FD_ISSET(tnc, &io_set))
read_tnc();
if (FD_ISSET(0, &io_set))
break;
}
}
}
void write_tnc(unsigned char c)
{
setscrreg(20, 24);
attrset(A_NORMAL);
move(console_y, console_x);
if (c < 0x20) {
switch(c) {
case K_CTL_C:
case K_CTL_T:
case K_CTL_R:
case K_CTL_Y:
goto tnc_only;
}
}
if (c == 13) c = K_LINEFEED;
addch(c);
switch(c) {
case K_LINEFEED:
console_x = 0;
console_y++;
c = 13;
break;
case K_BACKSPACE:
if (console_x > 0) {
console_x--;
move(console_y, console_x);
addch(' ');
}
break;
case K_TAB:
console_x += tab_move[console_x];
break;
default:
if ((++console_x) == 80) {
addch(K_LINEFEED);
console_x = 0;
console_y++;
}
}
if (console_y > 24)
console_y = 24;
move(console_y, console_x);
tnc_only:
if ((c >= 128) && (pc_translate)) {
c = latin2pc[c - 128];
if (c == 0)
c = ' ';
}
write(tnc, &c, 1);
refresh();
}
void new_bufline(void)
{
sb_bufstr[strno][strptr] = 0;
if (++strno > 808)
strno = 0;
strptr = 0;
memset(sb_bufstr[strno], 0, 81);
if (lines_in_buffer < 808)
lines_in_buffer++;
}
void newline(void)
{
addch(K_LINEFEED);
new_bufline();
tnc_x = 0;
tnc_y++;
}
void read_tnc(void)
{
static unsigned char cbuf[128];
unsigned char c;
static char old_c = 0xff, cmdflag = FALSE;
int i, n;
n = read(tnc, cbuf, 128);
setscrreg(1, 18);
attrset(A_NORMAL);
move(tnc_y, tnc_x);
for (i = 0; i < n; i++) {
if (cmdflag) {
cmdflag = FALSE;
newline();
if (tnc_y > 18) tnc_y = 18;
}
c = cbuf[i];
if ((c >= 128) && (pc_translate)) {
c = pc2latin[c - 128];
if (c == 0)
c = ' ';
}
if (cap)
fputc((char)c, capf);
if (bbs_cap && bbs_capf_open) {
fputc((char)c, bbs_capf);
if ((c == 10) && (old_c == 10)) {
close_bbs_capf();
old_c = 0xff;
} else
old_c = c;
}
if (c >= 0x20) {
if ((c != 127) && (c != 128+27)) {
addch(c);
sb_bufstr[strno][strptr++] = c;
if ((++tnc_x) == 80)
newline();
}
} else {
switch(c) {
case K_CTL_G: /* Ctrl-G, Bell */
if(bell) beep();
break;
case K_LINEFEED:
newline();
break;
case K_TAB:
/* addch(c); */ /* buggy */
tnc_x += tab_move[tnc_x];
memset(&sb_bufstr[strno][strptr], 0x20,
tab_move[strptr]);
strptr += tab_move[strptr];
break;
case K_BACKSPACE:
if (tnc_x > 0) {
tnc_x--;
move(tnc_y, tnc_x);
addch(' ');
}
if (--strptr == -1)
strptr = 0;
break;
}
}
if (tnc_y > 18)
tnc_y = 18;
move(tnc_y, tnc_x);
cmdstr <<= 8;
cmdstr += (int)c;
if (cmdstr == 0x636D643A) /* Check for 'cmd:' string */
cmdflag = TRUE;
if (scan || cs_grab || bbs_cap) {
strcpy(scanstr,&scanstr[1]);
scanstr[29] = c;
if (! cs_grab) {
if (scan) {
if (strstr(scanstr,scancrit))
sound_alarm();
} else if (! bbs_capf_open) {
char *p;
if ((p = strstr(scanstr, HOME_BBS">FBB")) &&
(strrchr(scanstr, '\012') ==
scanstr + strlen(scanstr) - 1))
open_bbs_capf(FBB);
else if ((p = strstr(scanstr, HOME_BBS">MAIL")) &&
(strrchr(scanstr, '\012') ==
scanstr + strlen(scanstr) - 1))
open_bbs_capf(MAIL);
}
}
}
if (wait_string) {
w_instr <<= 8;
w_instr += c;
if (w_instr == w_cmpstr) {
w_found = TRUE;
wait_string = FALSE;
}
}
refresh();
}
}
