Apple-2gs-SW
/
marlene
mirror of https://github.com/ksherlock/marlene.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

rewrite vt100 and telnet.

This commit is contained in:
Kelvin Sherlock 2018-04-21 15:30:26 -04:00
parent 9285503c5f
commit 9cc53483ad
10 changed files with 3395 additions and 3359 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
GNUmakefile Normal file
View File

@ -0,0 +1,32 @@
PROG = fctelnet
OBJS = o/fctelnet.a o/vt100.a o/telnet.a o/ansi.a o/chars.a o/marinetti.a o/display.a
OPTIMIZE ?= 79
CFLAGS = -w-1 -O $(OPTIMIZE)
CC = occ --gno
$(PROG): $(OBJS)
$(RM) o/ansi.root
$(RM) o/chars.root
$(CC) $(OBJS) -o $@
fctelnet.o: fctelnet.c marinetti.h
vt100.o: vt100.c CLAGS+=-r
ansi.o: ansi.asm
chars.o: chars.asm
marinetti.o: marinetti.c CLAGS+=-r
telnet.o: telnet.c CLAGS+=-r
o/%.a : %.c
$(CC) -c $(CFLAGS) -o $@ $^
o/%.a : %.asm
$(CC) -c $(CFLAGS) -o $@ $^
clean:
$(RM) -f *.o *.root *.a *.r
clobber: clean
$(RM) -f $(PROG)

1539
ansi.asm
View File

File diff suppressed because it is too large Load Diff

2002
chars.asm
View File

File diff suppressed because it is too large Load Diff

464
display.c
View File

@ -1,408 +1,56 @@
#pragma noroot #pragma noroot
#pragma lint -1
#include <string.h>
#include <types.h> #include "Marinetti.h"
#include <string.h>
#include <ctype.h>
#include <Event.h> struct errlist {
#include "Marinetti.h" Word Error;
Word MsgLen;
#define ESC "\x1b" const char *Msg;
};
extern void ScrollRegion(word,word);
extern void ScrollDown(void); #define ESC "\x1b"
extern void PrintChar(int the_char, unsigned int andMask); #define _ERR(n,msg) { n, sizeof(msg) - 1, msg }
extern void ClearScreen(void);
extern void ClearScreenFrom(int Y); extern void vt100_process(const unsigned char *buffer, unsigned buffer_size);
extern void ClearLine(int Y);
extern void ClearLineFrom(int Y, int X); static struct errlist errors[] = {
_ERR(1,"tcperrDeafDestPort"),
void handle_ansi(word code, char *buffer, word cnt); _ERR(2,"tcperrHostReset"),
_ERR(3,"tcperrConExists"),
extern void GrafOn(void) inline(0x0a04, 0xe10000); _ERR(4,"tcperrConIllegal"),
extern void GrafOff(void) inline(0x0b04, 0xe10000); _ERR(5,"tcperrNoResources"),
extern pascal void SetColorTable(Word, ColorTable) inline(0x0E04,dispatcher); _ERR(6,"tcperrNoSocket"),
extern pascal void SysBeep2(Word) inline(0x3803,dispatcher); _ERR(7,"tcperrBadPrec"),
extern pascal void SetAllSCBs(Word) inline(0x1404,dispatcher); _ERR(8,"tcperrBadSec"),
extern pascal void SetMasterSCB(Word) inline(0x1604,dispatcher); _ERR(9,"tcperrBadConnection"),
extern pascal void InitColorTable(ColorTable) inline(0x0D04,dispatcher); _ERR(0x0a,"tcperrConClosing"),
_ERR(0x0b,"tcperrClosing"),
_ERR(0x0c,"tcperrConReset"),
_ERR(0x0d,"tcperrUserTimeout"),
extern word Xpos; _ERR(0x0e,"tcperrConRefused"),
extern word Ypos; };
extern word __scroll[2];
extern word and_mask; void display_err(Word err) {
extern word xor_mask;
if (err == 0 || err >= 0x0f) return;
word esc; --err;
char esc_buffer[256]; vt100_process("\r\n" ESC "[1m", 6); // bold on
vt100_process(errors[err].Msg, errors[err].MsgLen);
struct errlist vt100_process(ESC "[0m", 4); // bold off
{ }
Word Error;
Word MsgLen; void display_cstr(const char *cstr) {
const char *Msg; if (cstr && *cstr)
}; vt100_process(cstr, strlen(cstr));
}
#define _ERR(n,msg) { n, sizeof(msg), msg }
void display_pstr(const char *pstr) {
struct errlist errors[] = if (pstr && *pstr)
{ vt100_process(pstr + 1, *pstr);
_ERR(1,"tcperrDeafDestPort"), }
_ERR(2,"tcperrHostReset"),
_ERR(3,"tcperrConExists"),
_ERR(4,"tcperrConIllegal"),
_ERR(5,"tcperrNoResources"),
_ERR(6,"tcperrNoSocket"),
_ERR(7,"tcperrBadPrec"),
_ERR(8,"tcperrBadSec"),
_ERR(9,"tcperrBadConnection"),
_ERR(0x0a,"tcperrConClosing"),
_ERR(0x0b,"tcperrClosing"),
_ERR(0x0c,"tcperrConReset"),
_ERR(0x0d,"tcperrUserTimeout"),
_ERR(0x0e,"tcperrConRefused"),
{0,0,NULL}
};
void display_str(const char *buffer, word cnt);
void display_err(Word err)
{
struct errlist *l;
for (l = &errors[0]; l->Error; l++)
if (l->Error == err) break;
if (l->Error != err) return;
display_str("\r\n" "\x1b" "[1m", 6); // bold on
display_str(l->Msg, l->MsgLen); // show the string
display_str("\x1b" "[0m", 4); // bold off
}
void display_cstr(const char *cstr)
{
if (cstr && *cstr)
display_str(cstr, strlen(cstr));
}
void display_pstr(const char *pstr)
{
if (pstr && *pstr)
display_str(pstr + 1, *pstr);
}
void display_char(char c)
{
switch(c)
{
case 0x07:
SysBeep2(0);
break;
//backspace
case 0x08:
if (Xpos) Xpos--;
break;
//tab
case 0x09:
// 1, 9, 17, 25, ...
// not sure this is right
Xpos = Xpos & 0xf8;
Xpos += 8;
//TODO - wrapping
break;
// line feed
case 0x0A:
if (++Ypos > 23)
{
ScrollRegion(__scroll[0], __scroll[1]);
Ypos = 23;
}
break;
case 0x0D: //carriage return
Xpos = 0;
break;
default:
if (isprint(c));
{
// check the wrapping flag ...
if (Xpos > 80)
{
Xpos = 0;
if (++Ypos > 23)
{
ScrollRegion(__scroll[0],
__scroll[1]);
Ypos = 23;
}
}
PrintChar(c, and_mask);
Xpos++;
}
}
}
/*
* this reads text & has it drawn on the shr screen
*
*/
// todo - and_mask + xor_mask
void display_str(const char *buffer, word cnt)
{
word i;
asm
{
phk
plb
}
for ( i = 0; i < cnt; i++)
{
if (esc)
{
esc_buffer[esc++] = buffer[i];
if (isalpha(buffer[i])
|| buffer[i] == '~'
|| buffer[i] == '='
|| buffer[i] == '>'
)
{
handle_ansi(buffer[i],
esc_buffer, esc);
esc = 0;
}
}
else switch (buffer[i])
{
// bell
case 0x07:
SysBeep2(0);
break;
//backspace
case 0x08:
if (Xpos) Xpos--;
break;
//tab
case 0x09:
// 1, 9, 17, 25, ...
// not sure this is right
Xpos = Xpos & 0xf8;
Xpos += 8;
//TODO - wrapping
break;
// line feed
case 0x0A:
if (++Ypos > 23)
{
ScrollRegion(__scroll[0],
__scroll[1]);
Ypos = 23;
}
break;
case 0x0D: //carriage return
Xpos = 0;
break;
case 0x1b: //start of escape sequence
esc = 1;
esc_buffer[0] = 0x1b;
break;
default:
if (isprint(buffer[i]))
{
// check the wrapping flag ...
if (Xpos > 80)
{
Xpos = 0;
if (++Ypos > 23)
{
ScrollRegion(__scroll[0],
__scroll[1]);
Ypos = 23;
}
}
PrintChar(buffer[i], and_mask);
Xpos++;
}
}
}
}
//
// remap the iigs key to a vt100 code (if necessary) and send it out.
void send_event(EventRecord *event, Word ipid)
{
char *cp;
int len = 0;
word key;
word mods;
key = event->message;
mods = event->modifiers;
if (mods & keyPad)
{
switch (key)
{
case 0x72: // insert
cp = ESC "[2~";
len = 4;
break;
case 0x75: // delete
cp = ESC "[3~";
len = 4;
break;
case 0x73: // home
cp = ESC "[1~";
len = 4;
break;
case 0x77: // end
cp = ESC "[4~";
len = 4;
break;
case 0x74: // page up
cp = ESC "[5~";
len = 4;
break;
case 0x79: // page down
cp = ESC "[6~";
len = 4;
break;
case 0x7a: // f1
cp = mods & shiftKey ? ESC "[23~" : ESC "[11~";
len = 5;
break;
case 0x78: // f2
cp = mods & shiftKey ? ESC "[24~" : ESC "[12~";
len = 5;
break;
case 0x63: // f3
cp = mods & shiftKey ? ESC "[25~" : ESC "[13~";
len = 5;
break;
case 0x76: // f4
cp = mods & shiftKey ? ESC "[26~" : ESC "[14~";
len = 5;
break;
case 0x60: // f5
cp = mods & shiftKey ? ESC "[28~" : ESC "[15~";
len = 5;
break;
case 0x61: // f6
cp = mods & shiftKey ? ESC "[29~" : ESC "[17~";
len = 5;
break;
case 0x62: // f7
cp = mods & shiftKey ? ESC "[31~" : ESC "[18~";
len = 5;
break;
case 0x64: // f8
cp = mods & shiftKey ? ESC "[32~" : ESC "[19~";
len = 5;
break;
case 0x65: // f9
cp = mods & shiftKey ? ESC "[33~" : ESC "[20~";
len = 5;
break;
case 0x6d: // f10
cp = mods & shiftKey ? ESC "[34~" : ESC "[21~";
len = 5;
break;
case 0x67: // f11
cp = ESC "[23~";
len = 5;
break;
case 0x6f: // f12
cp = ESC "[24~";
len = 5;
break;
default: len = 0; cp = NULL;
}
}
else if (mods & controlKey)
{
cp = (char *)&event->message;
len = 1;
}
else
{
switch(key)
{
case 0x0d:
cp = "\r\n";
len = 2;
break;
case 0x08: // <--- arrow
cp = ESC "[D";
len = 3;
break;
case 0x0A: // down arrow
cp = ESC "[B";
len = 3;
break;
case 0x0B: // up arrow
cp = ESC "[A";
len = 3;
break;
case 0x15: // ---> arrow
cp = ESC "[C";
len = 3;
break;
// backspace to delete char
case 0x7f:
cp = "\x08";
len = 1;
break;
default:
cp = (char *)&event->message;
len = 1;
}
}
if (len) TCPIPWriteTCP(ipid, cp, len, false, false);
}

897
fctelnet.c
View File

@ -1,515 +1,382 @@
#include "Marinetti.h" #include <tcpip.h>
#include <Locator.h> #include <Locator.h>
#include <Memory.h> #include <Memory.h>
#include <texttool.h> #include <texttool.h>
#include <gsos.h> #include <gsos.h>
#include <Event.h> #include <Event.h>
#include <fcntl.h> #include <fcntl.h>
#include <sgtty.h> #include <sgtty.h>
#include <errno.h> #include <errno.h>
#include <gno/gno.h> #include <gno/gno.h>
#include <gno/kerntool.h> #include <gno/kerntool.h>
#include <unistd.h> #include <unistd.h>
#include <sys/fcntl.h> #include <sys/fcntl.h>
#include <signal.h> #include <signal.h>
#include <sys/ioctl.h> #include <sys/ioctl.h>
#include <sys/ioctl.compat.h> #include <sys/ioctl.compat.h>
#include <stdlib.h> #include <stdlib.h>
#include <ctype.h> #include <ctype.h>
#include <string.h> #include <string.h>
#include "telnet.h" #include "telnet.h"
extern void ScrollRegion(word,word); extern void ClearScreen(void);
extern void ScrollDown(void);
extern void PrintChar(int the_char, unsigned int andMask); extern pascal void GrafOn(void) inline(0x0a04, dispatcher);
extern void ClearScreen(void); extern pascal void GrafOff(void) inline(0x0b04, dispatcher);
extern void ClearScreenFrom(int Y);
extern void ClearLine(int Y); extern pascal void SetColorTable(Word, ColorTable) inline(0x0E04,dispatcher);
extern void ClearLineFrom(int Y, int X); extern pascal void SysBeep2(Word) inline(0x3803,dispatcher);
extern pascal void SetAllSCBs(Word) inline(0x1404,dispatcher);
extern void GrafOn(void) inline(0x0a04, 0xe10000); extern pascal void SetMasterSCB(Word) inline(0x1604,dispatcher);
extern void GrafOff(void) inline(0x0b04, 0xe10000); extern pascal void InitColorTable(ColorTable) inline(0x0D04,dispatcher);
extern pascal void SetColorTable(Word, ColorTable) inline(0x0E04,dispatcher);
extern pascal void SysBeep2(Word) inline(0x3803,dispatcher);
extern pascal void SetAllSCBs(Word) inline(0x1404,dispatcher); Word ResolveHost(const char *name, cvtRecPtr cvt);
extern pascal void SetMasterSCB(Word) inline(0x1604,dispatcher); int WaitForStatus(word ipid, word status);
extern pascal void InitColorTable(ColorTable) inline(0x0D04,dispatcher);
void display_pstr(const char *);
Word MyID; void display_cstr(const char *);
Word __gno; void display_err(Word);
Word modeTelnet = 1; extern void telnet_init(void);
Word flagEcho = 1; // if *I* echo extern void telnet_process(void);
extern void vt100_init(void);
void init_ansi(void); extern void vt100_process(const unsigned char *buffer, unsigned buffer_size);
extern void vt100_event(EventRecord *event);
Word ResolveHost(const char *name, cvtRecPtr cvt);
Word GetChar(word ipid, unsigned char *c);
Word UngetChar(char c);
Word MyID;
void display_str(const char *txt, word cnt); Word __gno;
void display_pstr(const char *);
void display_cstr(const char *);
void display_err(Word); #define ESC "\x1b"
void send_event(EventRecord *, Word);
#pragma databank 1
#pragma databank 1
/*
/* * called to print connect/disconnect messages from
* called to print connect/disconnect messages from * Marinetti. msg is a pstring.
* Marinetti. msg is a pstring. */
*/ void printCallBack(const char *msg) {
void printCallBack(const char *msg) if (msg && *msg) {
{ display_cstr(ESC "\n\r[1m"); // bold on
word i; display_pstr(msg); // show the string
i = *msg; display_cstr(ESC "[0m\n\r"); // bold off
if (i) }
{ }
display_str("\x1b" "[1m", 4); // bold on #pragma databank 0
display_str(msg + 1, i); // show the string
display_str("\x1b" "[0m\n\r", 6); // bold off
} static void screen_init(void) {
} #define WHITE 0x0fff
#pragma databank 0 #define YELLOW 0x0ff0
#define BLACK 0x0000
extern word esc; #define BLUE 0x000f
extern word Xpos; #define GREEN 0x00f0
extern word Ypos; #define RED 0x0f00
void init_screen(void) static ColorTable ct =
{ {
#define WHITE 0x0fff BLACK, // background
#define YELLOW 0x0ff0 RED, // underline / blink
#define BLACK 0x0000 BLUE, // bold
#define BLUE 0x000f GREEN, // foreground
#define GREEN 0x00f0
#define RED 0x0f00 BLACK,
RED,
static ColorTable ct = BLUE,
{ GREEN,
BLACK, // background
RED, // underline / blink BLACK,
BLUE, // bold RED,
GREEN, // foreground BLUE,
GREEN,
BLACK,
RED, BLACK,
BLUE, RED,
GREEN, BLUE,
GREEN,
BLACK, };
RED,
BLUE, unsigned i;
GREEN,
// linearize memory, disable shadowing.
BLACK, asm
RED, {
BLUE, lda #0x00C1
GREEN, sep #0x20
}; ora >0xe0c029
int i; sta >0xe0c029
rep #0x20
// linearize memory, disable shadowing. lda #0x0008
asm sep #0x20
{ ora >0xe0c035
lda #0x00C1 sta >0xe0c035
sep #0x20 rep #0x20
ora >0xe0c029
sta >0xe0c029 }
rep #0x20
SetMasterSCB(0xc080);
lda #0x0008 SetAllSCBs(0xc080);
sep #0x20 //InitColorTable(ct);
ora >0xe0c035 for (i = 0; i < 16; i++)
sta >0xe0c035 SetColorTable(i, ct);
rep #0x20
ClearScreen();
} GrafOn();
}
SetMasterSCB(0xc080);
SetAllSCBs(0xc080); static char out_buffer[1024];
//InitColorTable(ct); static char out_buffer_size = 0;
for (i = 0; i < 15; i++)
SetColorTable(i, ct); static word ipid = -1;
ClearScreen(); static void flush(void) {
GrafOn(); if (out_buffer_size) {
} TCPIPWriteTCP(ipid, out_buffer, out_buffer_size, true, false);
out_buffer_size = 0;
}
/* }
* this is (more or less) a state machine.
* old state (and character) are passed in
* new state is returned.
* void send(char *data, unsigned size) {
* 0 = starting state.
*/ if (out_buffer_size + size > sizeof(out_buffer)) {
#define SB_IAC 0xfaff flush();
Word do_iac(Word state, char c, Word ipid) }
{ if (size > sizeof(out_buffer) / 2) {
static char buffer[64]; TCPIPWriteTCP(ipid, data, size, true, false);
static int cnt; return;
}
if (state == 0) return c == IAC ? IAC : 0; memcpy(out_buffer + out_buffer_size, data, size);
// FF must be escaped as FF FF within SB. out_buffer_size += size;
// SB_IAC means the first FF has been processed. }
if (state == SB)
{
if (c == IAC) return SB_IAC; unsigned buffer_size;
buffer[cnt++] = c; unsigned char buffer[2048]; // 1500 is normal MTU size?
return SB;
}
int main(int argc, char **argv) {
if (state == SB_IAC)
{ static EventRecord event;
// it was an escaped FF static rrBuff rr;
if (c == IAC) static char str[16];
{ static cvtRec cvt;
buffer[cnt++] = IAC; static QuitRecGS qDCB = {2, 0, 0x4000};
return SB;
}
else state = IAC; // process below... Word iLoaded;
} Word iConnected;
if (state == IAC) Word iStarted;
switch (c) Handle dp;
{
case DONT: Word err;
case DO: int ok;
case WONT:
case WILL:
return c; iLoaded = iStarted = iConnected = false;
case SB: __gno = false;
cnt = 0; ipid = -1;
return c;
case SE: MyID = MMStartUp();
// buffer is the data between
// IAC SB <...> IAC SE kernStatus();
if (buffer[0] == TELOPT_TTYPE if (!_toolErr) __gno = true;
&& buffer[1] == TELQUAL_SEND)
{ TextStartUp();
static char msg[] = SetOutputDevice(1,3);
{ SetOutGlobals(0x7f, 0);
IAC, SB, TELOPT_TTYPE, TELQUAL_IS,
'V', 'T', '1', '0', '0',
IAC, SE dp = NewHandle(0x0100, MyID,
}; attrBank | attrPage |attrNoCross | attrFixed | attrLocked,
TCPIPWriteTCP(ipid, msg, 0x000000);
sizeof(msg), true, false); EMStartUp((Word)*dp, 0x14, 0, 0, 0, 0, MyID);
}
else if (buffer[0] == TELOPT_NAWS
&& buffer[1] == TELQUAL_SEND) // todo: -vt52 -> start in vt52 mode (DECANM = 0)
{ // todo:keypad flag of some sort?
static char msg[] =
{ if (argc != 2) {
IAC, SB, TELOPT_NAWS, ErrWriteCString("Usage: marlene host[:port]\r\n");
0, 80, 0, 24, goto _exit;
IAC, SE }
};
TCPIPWriteTCP(ipid, msg, screen_init();
sizeof(msg), true, false);
} vt100_init();
else if (buffer[0] == TELOPT_TSPEED
&& buffer[1] == TELQUAL_SEND)
{ TCPIPStatus();
static char msg[] = if (_toolErr) {
{ display_cstr("Loading Marinetti...\n\r");
IAC, SB, TELOPT_TSPEED, LoadOneTool(0x36, 0x200); //load Marinetti
'9', '6', '0', '0', ',', '9', '6', '0', '0', if (_toolErr) {
IAC, SE display_cstr("Unable to load Marinetti.\r\n");
}; goto _exit;
TCPIPWriteTCP(ipid, msg, }
sizeof(msg), true, false); iLoaded = true;
} }
cnt = 0;
return 0; // Marinetti now loaded
default: if (!TCPIPStatus()) {
return 0; display_cstr("Starting Marinetti...\n\r");
} TCPIPStartUp();
if (state == DO) iStarted = true;
{ }
buffer[0] = IAC;
buffer[1] = WONT; if (!TCPIPGetConnectStatus()) {
buffer[2] = c; display_cstr("Connecting Marinetti...\n\r");
if (c == TELOPT_TTYPE TCPIPConnect(printCallBack);
|| c == TELOPT_SGA if (_toolErr) {
|| c == TELOPT_NAWS display_cstr("Unable to establish network connection.\r\n");
|| c == TELOPT_TSPEED) goto _exit;
{ }
buffer[1] = WILL; iConnected = true;
} }
TCPIPWriteTCP(ipid, buffer, 3, true, false); // marinetti is now connected
} if (!ResolveHost(argv[1], &cvt)) {
if (state == DONT) display_cstr("Unable to resolve address.\r\n");
{ goto _exit;
buffer[0] = IAC; }
buffer[1] = WONT;
buffer[2] = c; if (!cvt.cvtPort) cvt.cvtPort = 23;
TCPIPWriteTCP(ipid, buffer, 3, true, false); ipid = TCPIPLogin(MyID, cvt.cvtIPAddress, cvt.cvtPort, 0, 0x0040);
}
if (state == WILL || state == WONT) TCPIPConvertIPToCASCII(cvt.cvtIPAddress, str, 0);
{ display_cstr("Connecting to ");
buffer[0] = IAC; display_cstr(str);
buffer[1] = DONT; display_cstr("...\n\r");
buffer[2] = c;
if (c == TELOPT_ECHO) TCPIPOpenTCP(ipid);
{
buffer[1] = DO; // wait for the connection to occur.
} ok = WaitForStatus(ipid, TCPSESTABLISHED);
cnt = 3; if (ok > 0) display_err(ok);
if (ok != 0) goto _exit2;
TCPIPWriteTCP(ipid, buffer, cnt, true, false);
}
display_cstr("Connected.\n\r");
return 0;
} telnet_init();
//fd = open ("tcp.log", O_TRUNC | O_WRONLY | O_CREAT, 0777);
int main(int argc, char **argv)
{ for(;;) {
static EventRecord event; static rrBuff rr;
static srBuffer sr;
static rrBuff rr;
static char str[16]; TCPIPPoll();
static cvtRec cvt;
static QuitRecGS qDCB = {2, 0, 0x4000}; rr.rrBuffCount = 0;
err = TCPIPReadTCP(ipid, 0, (Ref)buffer, sizeof(buffer), &rr);
// tcperrConClosing and tcperrClosing aren't fatal.
Word iLoaded;
Word iConnected; buffer_size = rr.rrBuffCount;
Word iStarted; if (buffer_size) err = 0;
Word Quit; if (err) {
Word ipid; if (err == tcperrConClosing || err == tcperrClosing)
Handle dp; display_cstr("\r\nTCP Connection Closed.\r\n");
else
display_err(err);
int i; goto _exit1;
Word key; }
Word err;
unsigned char c; if (buffer_size) {
//int fd; telnet_process();
int iac_state; }
if (buffer_size) {
vt100_process(buffer, buffer_size);
Xpos = Ypos = 0; }
esc = 0;
//iac = 0; GetNextEvent(keyDownMask | autoKeyMask, &event);
iLoaded = iStarted = iConnected = false; if (event.what == keyDownEvt) {
__gno = false;
unsigned char key = event.message;
MyID = MMStartUp(); if (event.modifiers & appleKey) {
switch (key) {
kernStatus(); case 'Q': // quit
if (!_toolErr) __gno = true; case 'q':
goto _exit1;
TextStartUp(); break;
SetOutputDevice(1,3); case 'V': // paste...
SetOutGlobals(0x7f, 0); case 'v':
break;
case 'Z': // suspend (gnome)
dp = NewHandle(0x0100, MyID, case 'z':
attrBank | attrPage |attrNoCross | attrFixed | attrLocked, if (__gno) {
0x000000); static struct sgttyb sb;
HLock(dp); static int err;
EMStartUp((Word)*dp, 0x14, 0, 0, 0, 0, MyID); gtty(1,&sb);
sb.sg_flags &= ~RAW;
stty(1,&sb);
if (argc != 2) GrafOff();
{ Kkill(Kgetpid(), SIGSTOP, &err);
ErrWriteCString("Usage: marlene host[:port]\r\n"); sb.sg_flags |= RAW;
goto _exit; stty(1,&sb);
} GrafOn();
}
init_screen(); break;
}
init_ansi();
} else {
vt100_event(&event);
TCPIPStatus(); }
if (_toolErr) }
{ flush();
display_str("\n\rLoading Marinetti...\n\r", 23); }
LoadOneTool(0x36, 0x200); //load Marinetti
if (_toolErr) _exit1:
{ flush();
ErrWriteCString("Unable to load Marinetti\r\n");
goto _exit; display_cstr("\n\rClosing TCP Connection...\n\r");
}
iLoaded = true; TCPIPCloseTCP(ipid);
} WaitForStatus(ipid, TCPSCLOSED);
// Marinetti now loaded _exit2:
if (!TCPIPStatus())
{
display_str("\n\rStarting Marinetti...\n\r", 24); _exit:
TCPIPStartUp();
iStarted = true; if (ipid != -1) TCPIPLogout(ipid);
}
if (iConnected)
if (!TCPIPGetConnectStatus()) TCPIPDisconnect(false, printCallBack);
{
display_str("\n\rConnecting Marinetti...\n\r", 26); if (iStarted)
TCPIPConnect(printCallBack); TCPIPShutDown();
if (_toolErr)
{ if (iLoaded)
ErrWriteCString("Unable to establish network connection\r\n"); UnloadOneTool(0x36);
goto _exit;
}
iConnected = true; // flush q
} while (GetNextEvent(keyDownMask | autoKeyMask, &event)) ;
// marinetti is now connected display_cstr("\n\rPress any key to exit.\n\r");
while (!GetNextEvent(keyDownMask | autoKeyMask, &event)) ;
if (!ResolveHost(argv[1], &cvt))
{
ErrWriteCString("Unable to resolve address\r\n"); EMShutDown();
goto _exit; DisposeHandle(dp);
} GrafOff();
TextShutDown();
if (!cvt.cvtPort) cvt.cvtPort = 23; QuitGS(&qDCB);
return 0;
ipid = TCPIPLogin(MyID, cvt.cvtIPAddress, cvt.cvtPort, 0, 0x0040); }
display_str("\n\rConnecting to ", 16);
display_str(str, TCPIPConvertIPToCAscii(cvt.cvtIPAddress, str, 0));
TCPIPOpenTCP(ipid);
// wait for the connection to occur.
while (1)
{
TCPIPPoll();
err = TCPIPStatusTCP(ipid, &sr);
if (err)
{
display_err(err);
goto _exit1;
}
if (sr.srState == tcpsESTABLISHED) break;
//if (sr.srState == tcpsCLOSED) goto _exit1;
GetNextEvent(keyDownMask | autoKeyMask ,&event);
if (event.what != keyDownEvt) continue;
if (!(event.modifiers & appleKey)) continue;
if ((Word)event.message == '.') goto _exit1;
if ((Word)event.message == 'q') goto _exit1;
if ((Word)event.message == 'Q') goto _exit1;
}
display_str("\n\rConnected\n\r", 13);
//fd = open ("tcp.log", O_TRUNC | O_WRONLY | O_CREAT, 0777);
Quit = false;
iac_state = 0;
while (!Quit)
{
TCPIPPoll();
// check for incoming data...
// 0xffff = no data
// 0 = data
// otherwise = marinetti error.
err = GetChar(ipid, &c);
if (err && (err != 0xffff))
{
display_err(err);
Quit++;
continue;
}
if (err == 0)
{
//if (fd > 0) write(fd, &c, 1);
if (iac_state)
iac_state = do_iac(iac_state, c, ipid);
else if (modeTelnet && c == IAC)
iac_state = do_iac(0, c, ipid);
else display_str(&c, 1);
}
GetNextEvent(keyDownMask | autoKeyMask, &event);
if (event.what != keyDownEvt) continue;
c = key = event.message;
if (event.modifiers & appleKey)
{
switch (key)
{
case 'Q': // quit
case 'q':
Quit++;
break;
case 'V': // paste
case 'v':
break;
case 'Z': // suspend (gnome)
case 'z':
if (__gno)
{
static struct sgttyb sb;
static int err;
gtty(1,&sb);
sb.sg_flags &= ~RAW;
stty(1,&sb);
GrafOff();
Kkill(Kgetpid(), SIGSTOP, &err);
sb.sg_flags |= RAW;
stty(1,&sb);
GrafOn();
}
break;
}
continue;
}
else send_event(&event, ipid);
}
_exit1:
//if (fd > 0) close(fd);
TCPIPCloseTCP(ipid);
TCPIPPoll(); // wait until closed...
TCPIPLogout(ipid);
// be nice and
while (GetNextEvent(keyDownMask | autoKeyMask, &event));
display_str("\n\rPress any key to exit.\n\r", 26);
while (!GetNextEvent(keyDownMask | autoKeyMask, &event));
_exit:
if (iConnected)
TCPIPDisconnect(false, printCallBack);
if (iStarted)
TCPIPShutDown();
if (iLoaded)
UnloadOneTool(0x36);
EMShutDown();
GrafOff();
TextShutDown();
QuitGS(&qDCB);
}

47
makefile
View File

@ -1,23 +1,24 @@
PROG = fctelnet PROG = fctelnet
OBJS = fctelnet.o vt100.o ansi.o chars.o marinetti.o display.o OBJS = fctelnet.o vt100.o telnet.o ansi.o chars.o marinetti.o display.o
OPTIMIZE *= 79 OPTIMIZE *= 79
CFLAGS = -w -O$(OPTIMIZE) CFLAGS = -w -O$(OPTIMIZE)
$(PROG): $(OBJS) $(PROG): $(OBJS)
$(RM) ansi.root $(RM) ansi.root
$(RM) chars.root $(RM) chars.root
$(CC) $(CFLAGS) $(OBJS) -o $@ $(CC) $(CFLAGS) $(OBJS) -o $@
fctelnet.o: fctelnet.c marinetti.h fctelnet.o: fctelnet.c marinetti.h
vt100.o: vt100.c vt100.o: vt100.c
ansi.o: ansi.asm ansi.o: ansi.asm
chars.o: chars.asm chars.o: chars.asm
marinetti.o: marinetti.c marinetti.o: marinetti.c
telnet.o: telnet.c
clean:
$(RM) -f *.o *.root *.a *.r clean:
clobber: clean $(RM) -f *.o *.root *.a *.r
$(RM) -f $(PROG) clobber: clean
$(RM) -f $(PROG)

248
marinetti.c
View File

@ -1,137 +1,111 @@
#pragma noroot #pragma noroot
#pragma lint -1 #pragma lint -1
#include <Event.h> #include <Event.h>
#include "Marinetti.h" #include "Marinetti.h"
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
static char * __c2pstrMalloc(const char *cp) static char * __c2pstrMalloc(const char *cp)
{ {
Word len; Word len;
char *ret; char *ret;
len = strlen(cp); len = strlen(cp);
ret = (char *)malloc(len + 2); ret = (char *)malloc(len + 2);
if (ret) if (ret)
{ {
ret[0] = len; ret[0] = len;
memmove(&ret[1], cp, len+1); // copy over NULL too memmove(&ret[1], cp, len+1); // copy over NULL too
} }
return ret; return ret;
} }
// //
// returns true if resolved, false if not // returns true if resolved, false if not
// //
// name is a c-string // name is a c-string
// todo - add /etc/host support // todo - add /etc/host support
Word ResolveHost(const char *name, cvtRecPtr cvt) Word ResolveHost(const char *name, cvtRecPtr cvt)
{ {
dnrBuffer dnr; dnrBuffer dnr;
char *pstr; char *pstr;
Word port; Word port;
EventRecord event; EventRecord event;
cvt->cvtIPAddress = 0; cvt->cvtIPAddress = 0;
cvt->cvtPort = 0; cvt->cvtPort = 0;
if (!name || !*name) return false; if (!name || !*name) return false;
pstr = __c2pstrMalloc(name); pstr = __c2pstrMalloc(name);
if (!pstr) return false; if (!pstr) return false;
port = TCPIPMangleDomainName(0xf800, pstr); port = TCPIPMangleDomainName(0xf800, pstr);
// check if name is a dotted decimal or a host... // check if name is a dotted decimal or a host...
if (TCPIPValidateIPString(pstr)) if (TCPIPValidateIPString(pstr))
{ {
TCPIPConvertIPToHex(cvt, pstr); TCPIPConvertIPToHex(cvt, pstr);
cvt->cvtPort = port; cvt->cvtPort = port;
free (pstr); free (pstr);
return true; return true;
} }
else else
{ {
TCPIPDNRNameToIP(pstr, &dnr); TCPIPDNRNameToIP(pstr, &dnr);
if (_toolErr) if (_toolErr) {
{ free(pstr);
free(pstr); return false;
return false; }
} while (dnr.DNRStatus == DNRPending) {
while (dnr.DNRStatus == DNRPending) TCPIPPoll();
{ GetNextEvent(keyDownMask | autoKeyMask, &event);
TCPIPPoll(); if ((event.what == keyDownEvt)
GetNextEvent(keyDownMask | autoKeyMask, &event); && (event.modifiers & appleKey)
if ((event.what == keyDownEvt) && ((Word)event.message == '.')) {
&& (event.modifiers & appleKey) TCPIPCancelDNR(&dnr);
&& ((Word)event.message == '.')) break;
{ }
TCPIPCancelDNR(&dnr); }
break; if (dnr.DNRStatus == DNROK) {
} cvt->cvtIPAddress = dnr.DNRIPAddress;
} cvt->cvtPort = port;
if (dnr.DNRStatus == DNROK) free(pstr);
{ return true;
cvt->cvtIPAddress = dnr.DNRIPAddress; }
cvt->cvtPort = port; }
free(pstr);
return true; free(pstr);
}
} return false;
}
free(pstr);
int WaitForStatus(word ipid, word status) {
return false; static srBuffer sr;
} EventRecord event;
Word err;
/* for(;;) {
* pcnt is the next place to store data TCPIPPoll();
* bptr is the current ptr. err = TCPIPStatusTCP(ipid, &sr);
*/ if (err) return err;
static unsigned char buffer[1024];
static unsigned char pushback[1024]; if (sr.srState == status) return 0;
static int pcnt = 0; GetNextEvent(keyDownMask | autoKeyMask, &event);
static int bcnt = 0; if (event.what != keyDownEvt) continue;
static int bptr = 0; if (!(event.modifiers & appleKey)) continue;
static rrBuff rr; if ((Word)event.message == '.') return -1;
//if ((Word)event.message == 'q') return -1;
Word GetChar(word ipid, unsigned char *c) //if ((Word)event.message == 'Q') return -1;
{ }
word err; return 0;
}
*c = 0;
if (pcnt)
{
*c = pushback[--pcnt];
return 0;
}
if (!bcnt)
{
err = TCPIPReadTCP(ipid, 0, (Ref)buffer, 1024, &rr);
bcnt = rr.rrBuffCount;
bptr = 0;
if (err) return err;
}
if (bcnt)
{
bcnt--;
*c = buffer[bptr++];
return 0;
}
return 0xffff;
}
void UngetChar(char c)
{
pushback[pcnt++] = c;
}

278
marinetti.h
View File

@ -1,139 +1,139 @@
#ifndef __TCPIP_H__ #ifndef __TCPIP_H__
#define __TCPIP_H__ #define __TCPIP_H__
#include <types.h> #include <types.h>
struct dnrBuffer struct dnrBuffer
{ {
Word DNRStatus; Word DNRStatus;
LongWord DNRIPAddress; LongWord DNRIPAddress;
}; };
typedef struct dnrBuffer dnrBuffer, *dnrBufferPtr, **dnrBufferHndl; typedef struct dnrBuffer dnrBuffer, *dnrBufferPtr, **dnrBufferHndl;
#define DNRPending 0x0000 #define DNRPending 0x0000
#define DNROK 0x0001 #define DNROK 0x0001
#define DNRFailed 0x0002 #define DNRFailed 0x0002
#define DNRNoDNSEntry 0x0003 #define DNRNoDNSEntry 0x0003
#define DNRCancelled 0x0004 #define DNRCancelled 0x0004
struct srBuffer struct srBuffer
{ {
Word srState; Word srState;
Word srNetworkError; Word srNetworkError;
LongWord srSndQueued; LongWord srSndQueued;
LongWord srRcvQueued; LongWord srRcvQueued;
LongWord srDestIP; LongWord srDestIP;
Word srDestPort; Word srDestPort;
Word srConnectType; Word srConnectType;
Word srAcceptCount; Word srAcceptCount;
}; };
typedef struct srBuffer srBuffer, *srBufferPtr, **srBufferHndl; typedef struct srBuffer srBuffer, *srBufferPtr, **srBufferHndl;
struct rrBuff struct rrBuff
{ {
LongWord rrBuffCount; LongWord rrBuffCount;
Handle rrBuffHandle; Handle rrBuffHandle;
Word rrMoreFlag; Word rrMoreFlag;
Word rrPushFlag; Word rrPushFlag;
Word rrUrgentFlag; Word rrUrgentFlag;
}; };
typedef struct rrBuff rrBuff, *rrBuffPtr, **rrBuffHndl; typedef struct rrBuff rrBuff, *rrBuffPtr, **rrBuffHndl;
struct cvtRec struct cvtRec
{ {
LongWord cvtIPAddress; LongWord cvtIPAddress;
Word cvtPort; Word cvtPort;
}; };
typedef struct cvtRec cvtRec, *cvtRecPtr, **cvtRecHndl; typedef struct cvtRec cvtRec, *cvtRecPtr, **cvtRecHndl;
/* /*
* TCP states * TCP states
*/ */
#define tcpsCLOSED 0x0000 #define tcpsCLOSED 0x0000
#define tcpsLISTEN 0x0001 #define tcpsLISTEN 0x0001
#define tcpsSYNSENT 0x0002 #define tcpsSYNSENT 0x0002
#define tcpsSYNRCVD 0x0003 #define tcpsSYNRCVD 0x0003
#define tcpsESTABLISHED 0x0004 #define tcpsESTABLISHED 0x0004
#define tcpsFINWAIT1 0x0005 #define tcpsFINWAIT1 0x0005
#define tcpsFINWAIT2 0x0006 #define tcpsFINWAIT2 0x0006
#define tcpsCLOSEWAIT 0x0007 #define tcpsCLOSEWAIT 0x0007
#define tcpsLASTACK 0x0008 #define tcpsLASTACK 0x0008
#define tcpsCLOSING 0x0009 #define tcpsCLOSING 0x0009
#define tcpsTIMEWAIT 0x000A #define tcpsTIMEWAIT 0x000A
pascal void TCPIPStartUp(void) pascal void TCPIPStartUp(void)
inline(0x0236 ,0xe10000); inline(0x0236 ,0xe10000);
pascal void TCPIPShutDown(void) pascal void TCPIPShutDown(void)
inline(0x0336 ,0xe10000); inline(0x0336 ,0xe10000);
pascal Word TCPIPStatus(void) pascal Word TCPIPStatus(void)
inline(0x0636 ,0xe10000); inline(0x0636 ,0xe10000);
pascal Word TCPIPGetConnectStatus(void) pascal Word TCPIPGetConnectStatus(void)
inline(0x0936, 0xe10000); inline(0x0936, 0xe10000);
pascal void TCPIPConvertIPToHex(cvtRecPtr, const char *) pascal void TCPIPConvertIPToHex(cvtRecPtr, const char *)
inline(0x0d36 ,0xe10000); inline(0x0d36 ,0xe10000);
pascal void TCPIPConvertIPCToHex(cvtRecPtr, const char *) pascal void TCPIPConvertIPCToHex(cvtRecPtr, const char *)
inline(0x3f36 ,0xe10000); inline(0x3f36 ,0xe10000);
pascal Word TCPIPConvertIPToAscii(LongWord, const char *, Word) pascal Word TCPIPConvertIPToAscii(LongWord, const char *, Word)
inline(0x0e36 ,0xe10000); inline(0x0e36 ,0xe10000);
pascal Word TCPIPConvertIPToCAscii(LongWord, const char *, Word) pascal Word TCPIPConvertIPToCAscii(LongWord, const char *, Word)
inline(0x5836 ,0xe10000); inline(0x5836 ,0xe10000);
pascal Word TCPIPMangleDomainName(Word, char *) pascal Word TCPIPMangleDomainName(Word, char *)
inline(0x5936 ,0xe10000); inline(0x5936 ,0xe10000);
pascal Word TCPIPValidateIPString(const char *) pascal Word TCPIPValidateIPString(const char *)
inline(0x4836 ,0xe10000); inline(0x4836 ,0xe10000);
pascal Word TCPIPValidateIPCString(const char *) pascal Word TCPIPValidateIPCString(const char *)
inline(0x1536 ,0xe10000); inline(0x1536 ,0xe10000);
pascal void TCPIPConnect(void *) pascal void TCPIPConnect(void *)
inline(0x1236 ,0xe10000); inline(0x1236 ,0xe10000);
pascal void TCPIPDisconnect(word, void *) pascal void TCPIPDisconnect(word, void *)
inline(0x1336 ,0xe10000); inline(0x1336 ,0xe10000);
pascal void TCPIPCancelDNR(dnrBufferPtr) pascal void TCPIPCancelDNR(dnrBufferPtr)
inline(0x2036 ,0xe10000); inline(0x2036 ,0xe10000);
pascal void TCPIPDNRNameToIP(const char *, dnrBufferPtr) pascal void TCPIPDNRNameToIP(const char *, dnrBufferPtr)
inline(0x2136 ,0xe10000); inline(0x2136 ,0xe10000);
pascal void TCPIPPoll(void) pascal void TCPIPPoll(void)
inline(0x2236 ,0xe10000); inline(0x2236 ,0xe10000);
pascal Word TCPIPLogin(Word, LongWord, Word, Word, Word) pascal Word TCPIPLogin(Word, LongWord, Word, Word, Word)
inline(0x2336 ,0xe10000); inline(0x2336 ,0xe10000);
pascal void TCPIPLogout(Word) pascal void TCPIPLogout(Word)
inline(0x2436 ,0xe10000); inline(0x2436 ,0xe10000);
pascal Word TCPIPOpenTCP(Word) pascal Word TCPIPOpenTCP(Word)
inline(0x2C36 ,0xe10000); inline(0x2C36 ,0xe10000);
pascal Word TCPIPWriteTCP(Word, void *, LongWord, Word, Word) pascal Word TCPIPWriteTCP(Word, void *, LongWord, Word, Word)
inline(0x2D36 ,0xe10000); inline(0x2D36 ,0xe10000);
pascal Word TCPIPReadTCP(Word, Word, Ref, LongWord, rrBuffPtr) pascal Word TCPIPReadTCP(Word, Word, Ref, LongWord, rrBuffPtr)
inline(0x2E36 ,0xe10000); inline(0x2E36 ,0xe10000);
pascal Word TCPIPCloseTCP(Word) pascal Word TCPIPCloseTCP(Word)
inline(0x2F36 ,0xe10000); inline(0x2F36 ,0xe10000);
pascal Word TCPIPStatusTCP(Word, srBufferPtr) pascal Word TCPIPStatusTCP(Word, srBufferPtr)
inline(0x3136, 0xe10000); inline(0x3136, 0xe10000);
#endif #endif

166
telnet.h
View File

@ -1,83 +1,83 @@
#ifndef __TELNET_H__ #ifndef __TELNET_H__
#define __TELNET_H__ #define __TELNET_H__
#define IAC 255 /* interpret as command: */ #define IAC 255 /* interpret as command: */
#define DONT 254 /* you are not to use option */ #define DONT 254 /* you are not to use option */
#define DO 253 /* please, you use option */ #define DO 253 /* please, you use option */
#define WONT 252 /* I won't use option */ #define WONT 252 /* I won't use option */
#define WILL 251 /* I will use option */ #define WILL 251 /* I will use option */
#define SB 250 /* interpret as subnegotiation */ #define SB 250 /* interpret as subnegotiation */
#define GA 249 /* you may reverse the line */ #define GA 249 /* you may reverse the line */
#define EL 248 /* erase the current line */ #define EL 248 /* erase the current line */
#define EC 247 /* erase the current character */ #define EC 247 /* erase the current character */
#define AYT 246 /* are you there */ #define AYT 246 /* are you there */
#define AO 245 /* abort output--but let prog finish */ #define AO 245 /* abort output--but let prog finish */
#define IP 244 /* interrupt process--permanently */ #define IP 244 /* interrupt process--permanently */
#define BREAK 243 /* break */ #define BREAK 243 /* break */
#define DM 242 /* data mark--for connect. cleaning */ #define DM 242 /* data mark--for connect. cleaning */
#define NOP 241 /* nop */ #define NOP 241 /* nop */
#define SE 240 /* end sub negotiation */ #define SE 240 /* end sub negotiation */
#define EOR 239 /* end of record (transparent mode) */ #define EOR 239 /* end of record (transparent mode) */
#define ABORT 238 /* Abort process */ #define ABORT 238 /* Abort process */
#define SUSP 237 /* Suspend process */ #define SUSP 237 /* Suspend process */
#define xEOF 236 /* End of file: EOF is already used... */ #define xEOF 236 /* End of file: EOF is already used... */
#define SYNCH 242 /* for telfunc calls */ #define SYNCH 242 /* for telfunc calls */
#define TELCMD_FIRST xEOF #define TELCMD_FIRST xEOF
#define TELCMD_LAST IAC #define TELCMD_LAST IAC
#define TELCMD_OK(x) ((x) <= TELCMD_LAST && (x) >= TELCMD_FIRST) #define TELCMD_OK(x) ((x) <= TELCMD_LAST && (x) >= TELCMD_FIRST)
#define TELCMD(x) telcmds[(x)-TELCMD_FIRST] #define TELCMD(x) telcmds[(x)-TELCMD_FIRST]
/* telnet options */ /* telnet options */
#define TELOPT_BINARY 0 /* 8-bit data path */ #define TELOPT_BINARY 0 /* 8-bit data path */
#define TELOPT_ECHO 1 /* echo */ #define TELOPT_ECHO 1 /* echo */
#define TELOPT_RCP 2 /* prepare to reconnect */ #define TELOPT_RCP 2 /* prepare to reconnect */
#define TELOPT_SGA 3 /* suppress go ahead */ #define TELOPT_SGA 3 /* suppress go ahead */
#define TELOPT_NAMS 4 /* approximate message size */ #define TELOPT_NAMS 4 /* approximate message size */
#define TELOPT_STATUS 5 /* give status */ #define TELOPT_STATUS 5 /* give status */
#define TELOPT_TM 6 /* timing mark */ #define TELOPT_TM 6 /* timing mark */
#define TELOPT_RCTE 7 /* remote controlled transmission and echo */ #define TELOPT_RCTE 7 /* remote controlled transmission and echo */
#define TELOPT_NAOL 8 /* negotiate about output line width */ #define TELOPT_NAOL 8 /* negotiate about output line width */
#define TELOPT_NAOP 9 /* negotiate about output page size */ #define TELOPT_NAOP 9 /* negotiate about output page size */
#define TELOPT_NAOCRD 10 /* negotiate about CR disposition */ #define TELOPT_NAOCRD 10 /* negotiate about CR disposition */
#define TELOPT_NAOHTS 11 /* negotiate about horizontal tabstops */ #define TELOPT_NAOHTS 11 /* negotiate about horizontal tabstops */
#define TELOPT_NAOHTD 12 /* negotiate about horizontal tab disposition */ #define TELOPT_NAOHTD 12 /* negotiate about horizontal tab disposition */
#define TELOPT_NAOFFD 13 /* negotiate about formfeed disposition */ #define TELOPT_NAOFFD 13 /* negotiate about formfeed disposition */
#define TELOPT_NAOVTS 14 /* negotiate about vertical tab stops */ #define TELOPT_NAOVTS 14 /* negotiate about vertical tab stops */
#define TELOPT_NAOVTD 15 /* negotiate about vertical tab disposition */ #define TELOPT_NAOVTD 15 /* negotiate about vertical tab disposition */
#define TELOPT_NAOLFD 16 /* negotiate about output LF disposition */ #define TELOPT_NAOLFD 16 /* negotiate about output LF disposition */
#define TELOPT_XASCII 17 /* extended ascic character set */ #define TELOPT_XASCII 17 /* extended ascic character set */
#define TELOPT_LOGOUT 18 /* force logout */ #define TELOPT_LOGOUT 18 /* force logout */
#define TELOPT_BM 19 /* byte macro */ #define TELOPT_BM 19 /* byte macro */
#define TELOPT_DET 20 /* data entry terminal */ #define TELOPT_DET 20 /* data entry terminal */
#define TELOPT_SUPDUP 21 /* supdup protocol */ #define TELOPT_SUPDUP 21 /* supdup protocol */
#define TELOPT_SUPDUPOUTPUT 22 /* supdup output */ #define TELOPT_SUPDUPOUTPUT 22 /* supdup output */
#define TELOPT_SNDLOC 23 /* send location */ #define TELOPT_SNDLOC 23 /* send location */
#define TELOPT_TTYPE 24 /* terminal type */ #define TELOPT_TTYPE 24 /* terminal type */
#define TELOPT_EOR 25 /* end or record */ #define TELOPT_EOR 25 /* end or record */
#define TELOPT_TUID 26 /* TACACS user identification */ #define TELOPT_TUID 26 /* TACACS user identification */
#define TELOPT_OUTMRK 27 /* output marking */ #define TELOPT_OUTMRK 27 /* output marking */
#define TELOPT_TTYLOC 28 /* terminal location number */ #define TELOPT_TTYLOC 28 /* terminal location number */
#define TELOPT_3270REGIME 29 /* 3270 regime */ #define TELOPT_3270REGIME 29 /* 3270 regime */
#define TELOPT_X3PAD 30 /* X.3 PAD */ #define TELOPT_X3PAD 30 /* X.3 PAD */
#define TELOPT_NAWS 31 /* window size */ #define TELOPT_NAWS 31 /* window size */
#define TELOPT_TSPEED 32 /* terminal speed */ #define TELOPT_TSPEED 32 /* terminal speed */
#define TELOPT_LFLOW 33 /* remote flow control */ #define TELOPT_LFLOW 33 /* remote flow control */
#define TELOPT_LINEMODE 34 /* Linemode option */ #define TELOPT_LINEMODE 34 /* Linemode option */
#define TELOPT_XDISPLOC 35 #define TELOPT_XDISPLOC 35
#define TELOPT_OLD_ENVIRON 36 #define TELOPT_OLD_ENVIRON 36
#define TELOPT_AUTHENTICATION 37 /* authenticate */ #define TELOPT_AUTHENTICATION 37 /* authenticate */
#define TELOPT_ENCRYPT 38 /* encryption */ #define TELOPT_ENCRYPT 38 /* encryption */
#define TELOPT_NEW_ENVIRON 39 #define TELOPT_NEW_ENVIRON 39
#define TELOPT_EXOPL 255 /* extended-options-list */ #define TELOPT_EXOPL 255 /* extended-options-list */
#define TELQUAL_IS 0 #define TELQUAL_IS 0
#define TELQUAL_SEND 1 #define TELQUAL_SEND 1
#define TELQUAL_INFO 2 #define TELQUAL_INFO 2
#define TELQUAL_REPLY 2 #define TELQUAL_REPLY 2
#define TELQUAL_NAME 3 #define TELQUAL_NAME 3
#endif #endif

1081
vt100.c
View File

File diff suppressed because it is too large Load Diff