Packets6Ou mt, Packets7Out, Packets8Out; #ifdef NOTDEF extern void do_rto ARGS((IOT *)); extern void do_wto ARGS((IOT *)); extern void do_rnet ARGS((ubyte *, long)); extern void do_wnet ARGS((void)); extern void do_wupdate ARGS((void)); extern void dumpcheck ARGS((ubyte *)); extern void do_cmd ARGS((uword, ubyte *, int)); extern void do_rupdate ARGS((void)); extern void do_reccmd ARGS((int, ubyte *, int)); extern void replywindow ARGS((int)); /* Prototypes for functions defined in sernet.c *2/ extern void NetOpen ARGS((PORT *, char *, int, int *)); extern void NetClose ARGS((void)); extern void NetClWrite ARGS((IOSER *)); extern void NetWrite ARGS((void *, int, int)); extern void NetBreak ARGS((void)); extern int NetReady ARGS((void)); extern int SetBaudRate ARGS((int)); extern void DropDTR ARGS((void)); extern void NetStartRead ARGS((long)); extern IOSER *NetAbortRead ARGS((void)); extern struct IOExtSer *NetReadReady ARGS((void)); extern int NetReadReturned ARGS((i*bnt, ubyte **)); extern void NetWaitWrite ARGS((void)); extern void SaveState ARGS((void)); extern void RestoreState ARGS((void)); extern void NetRecvOff ARGS((void)); extern void NetRecvOn ARGS((void)); extern void NetSerialOff ARGS((void)); extern void NetSerialOn ARGS((void)); /* Prototypes for functions defined in time.c */ extern void do_cto ARGS((IOT *)); extern void ResetIdle ARGS((void)); extern void ResetConnect ARGS((void)); extern void LessConnect ARGS((inNBMt)); extern void SetConnectAlert ARGS((int, char *)); extern void SetIdleAlert ARGS((int, char *)); extern int GetIdle ARGS((void)); extern int GetConnect ARGS((void)); /* extern int doipcmsg ARGS((char *, char *, short)); */ /* Prototypes for functions defined in dnet.c */ void do_netreset ARGS((void)); /* Prototypes for functions defined in ipc.c */ /* extern int handle_ipc ARGS((void)); extern void do_online ARGS((void)); extern void do_offline w8+ nw->Height+= Scr.Height; } if (alen >= 4) { if ((nw->LeftEdge= ary[4]) < 0) nw->LeftEdge += Scr.Width - nw->Width; if ((nw->TopEdge = ary[5]) < 0) nw->TopEdge += Scr.Height - nw->Height; } if (nw->LeftEdge < 0 || nw->TopEdge < 0 || nw->Width < 0 || nw->Height < 0 || nw->LeftEdge + nw->Width > Scr.Width || nw->TopEdge + nw->Height > Scr.Height) { nw->LeftEdge = nw->TopEdge = 0; nw->Width = 320; nw->Height= 100; } if (alen >= 9) nw->Detailw膌Pen = ary[8] >> 8; if (alen >= 10) nw->BlockPen = ary[8]; } /* * */ static MLIST CList; void LoadConnectList() { char *ptr; NewList((LIST *)&CList); OpenCfgFile(); while (ptr = GetCfgLine("AUTA")) { long baudrate = atoi(ptr); while (*ptr && *ptr != '\"') ++ptr; if (*ptr == '\"') { char *en; NODE *node; for (en = ++ptr; *en && *en != '\"'; ++en); *en = 0; if (node = (NODE *)malloc(sizeof(NODE)+strlen(ptr)+1)) { AddTail(wT[y(LIST *)&CList, node); node->ln_Name = (char *)baudrate; strcpy((char *)(node + 1), ptr); } } } CloseCfgFile(); } void UnLoadConnectList() { NODE *node; while (node = RemHead((LIST *)&CList)) free(node); } int CheckConnect(oldbaud, ptr, n) int oldbaud; char *ptr; int n; { static char tmpbuf[64]; static short tlen; short i; NODE *node; long newbaud = oldbaud; for (i = 0; i < n; ++i) { if (ptr[i] == 13 || ptr[i] == 10) { tmpbuw[Of[tlen++] = 0; if (tlen < 2) { tlen = 0; continue; } tlen = 0; for (node = (NODE *)GetHead(&CList); node; node = (NODE *)GetSucc(node)) { if (strcmp(tmpbuf, (char *)(node + 1)) == 0) { newbaud = (long)node->ln_Name; if (DDebug) printf("Successful compare, baud -> %d\n", newbaud); break; } } if (GetHead(&CList) == NULL) { if (strncmp(tmpbuf, "CONNECT", 7) == 0) { newbaud = atoi(tmpbuf + 7); if (newbaud == 0) nw^[sewbaud = 300; } } continue; } tmpbuf[tlen++] = ptr[i]; if (tlen == sizeof(tmpbuf)) tlen = 0; } if (oldbaud != newbaud) SetBaudRate(newbaud); return(newbaud); } RemHead((LIST *)&CList)) free(node); } int CheckConnect(oldbaud, ptr, n) int oldbaud; char *ptr; int n; { static char tmpbuf[64]; static short tlen; short i; NODE *node; long newbaud = oldbaud; for (i = 0; i < n; ++i) { if (ptr[i] == 13 || ptr[i] == 10) { tmpbuΦ structure */ #define ARGS(foo) foo typedef struct IORequest IOR; typedef struct IOStdReq IOSTD; typedef struct IOExtSer IOSER; typedef struct IOStdReq IOCON; typedef struct timerequest IOT; typedef struct Window WIN; typedef struct NewWindow NW; typedef struct RastPort RP; typedef struct Task TASK; typedef struct Process PROC; typedef struct MsgPort PORT; typedef struct Node NODE; typedef struct MinNode MNODE; typedef struct List l LIST; typedef struct MinList MLIST; typedef struct Message MSG; typedef unsigned char ubyte; typedef unsigned short uword; typedef unsigned long ulong; #include "/dnet/channel.h" #ifndef MAX(a,b) #define MAX(a,b) (((a)>(b))?(a):(b)) #endif #define CFGFILE "s:dnet.config" #define PKT struct _PKT #define CTLPKT struct _CTLPKT #define PNODE struct _PNODE #define IOMSG struct _IOMSG #define DNETPORTNAME "DNET.UNIT." #define OFFSET(ptr,elem) ((long)((char *)&(ptr)->Felem - (char *)(ptr))) #define EMPTY 0 /* empty (sent) */ #define READY 1 /* data ready (not sent yet) */ #define MAXCHAN 128 /* Max # of channels supported */ #define SYNC 0x5B /* SYNC character */ #define MAXPKT 200 /* maximum packet size */ #define MINPKT 32 /* minimum maximum packet size (for priority scheme) */ #define MAXPACKET ((MAXPKT * 8 + 5) / 6 + 64) #define OVERHEAD 7 /* for packets with data */ PNbODE { NODE node; char name[32]; ulong seg; }; CTLPKT { uword buflen; /* send: length of packet, recv: length of data */ ubyte state; /* EMPTY, READY */ ubyte sync; /* THE PACKET */ ubyte ctl; ubyte cchk; }; PKT { uword buflen; /* send: length of packet, recv: length of data */ ubyte state; /* EMPTY, READY */ ubyte sync; /* THE PACKET */ ubyte ctl; ubyte cchk; ubyt+*e lenh; ubyte lenl; ubyte dchkh; ubyte dchkl; ubyte data[MAXPACKET]; }; /* * Used by the IoCtl() support routines. */ IOMSG { MSG Msg; TASK *ReplyTask; ulong Cmd; ulong Arg1; ulong Arg2; ulong Res; }; #ifdef NOTDEF /* RECEIVER STATES */ #define RS_SYNC 0 /* Waiting for sync */ #define RS_CTL 1 /* Waiting for command */ #define RS_CCHK 2 /* Waiting for check byte */ #define RS_LEN1 3 /* AWaiting for MSB length byte */ #define RS_LEN2 4 /* Waiting for LSB length byte */ #define RS_DATA 5 /* Waiting for data & checksum */ #endif #define DNCMD_OPEN 32 /* Application open */ #define DNCMD_SOPEN 33 /* Server open */ #define DNCMD_CLOSE 34 /* Close a channel */ #define DNCMD_EOF 35 /* Will no longer write to channel */ #define DNCMD_WRITE 36 /* Write data to a channel */ #define DNCMD_QUIT 37 /* Kill the DNET server */ #define DNCMD_IOCTL 38 #defineunetreset() { short i; CHAN *ch; IOSTD *ior; while (ior = (IOSTD *)RemHead((LIST *)&TxList)) { ior->io_Error = 1; ReplyMsg((MSG *)ior); } for (i = 0, ch = Chan; i < MAXCHAN; ++i, ++ch) { switch(ch->state) { case CHAN_OPEN: WritePort(Chan[i].port, DNCMD_CLOSE, NULL, 0, PKT_REQ, i); case CHAN_ROPEN: /* pending on listen port */ ch->state = CHAN_CLOSE; ch->flags = CHANF_RCLOSE; ch->ior = NULL; break; case CHAN_LOPEN: /* pending ou\6n network */ ch->ior->io_Error = 1; ReplyMsg((MSG *)ch->ior); ch->ior = NULL; ch->state = CHAN_FREE; ch->flags = 0; --NumCon; break; case CHAN_CLOSE: if (!(ch->flags & CHANF_LCLOSE)) break; ch->ior->io_Error = 1; ReplyMsg((MSG *)ch->ior); ch->ior = NULL; ch->state = CHAN_FREE; ch->flags = 0; --NumCon; } } RPStart = 0; WPStart = 0; WPUsed = 0; RState = 0; RChan = 0; WChan = 0; ut if (!Cto_act) { Cto.tr_time.tv_secs = 1; Cto.tr_time.tv_micro= 0; SendIO((IOR *)&Cto); Cto_act = 1; } } >io_Error = 1; ReplyMsg((MSG *)ior); } for (i = 0, ch = Chan; i < MAXCHAN; ++i, ++ch) { switch(ch->state) { case CHAN_OPEN: WritePort(Chan[i].port, DNCMD_CLOSE, NULL, 0, PKT_REQ, i); case CHAN_ROPEN: /* pending on listen port */ ch->state = CHAN_CLOSE; ch->flags = CHANF_RCLOSE; ch->ior = NULL; break; case CHAN_LOPEN: /* pending ow  0 item 0 */ NetBreak(); break; case 0x0001: /* menu 0 item 1 */ notdone = 0; OnLine = 1; break; case 0x0002: /* menu 0 item 2 */ notdone = 0; Quit = 1; break; case 0x0100: /* menu 1 item 0 */ break; } break; } ReplyMsg((MSG *)im); } } if (mask & smask) { IOSER *ios; if (ios = NetReadReady()) { int n; int actual; ubyte *ptr; WaitIO((IOR *)ios); actual = NetReadReturned(&ptr); if (actuaw  9l > 0) { if (RSync && *ptr == PKCMD_RESTART) { OnLine = 1; notdone = 0; } RSync = (*ptr == SYNC); for (n = 0; n < actual; ++n) ptr[n] &= 0x7F; oldbaud = CheckConnect(oldbaud, ptr, n); iocw->io_Data = (APTR)ptr; iocw->io_Length = n; DoIO((IOR *)iocw); } if ((n = NetReady()) >= sizeof(RcvBuf)) n = sizeof(RcvBuf) - 1; if (n <= 0) n = 1; NetStartRead(n); } if (CheckIO(&Wto)) { StartWriteTimeout(1);w!U NetReady(); } } if (mask & conmask) { if (CheckIO((IOR *)iocr)) { WaitIO((IOR *)iocr); if (!Master8) addparity((ubyte *)iocr->io_Data, iocr->io_Actual); NetWrite(iocr->io_Data, iocr->io_Actual, 0); NetWaitWrite(); iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO((IOR *)iocr); } } NetReady(); if (Getty && !Cd) { Quit = 1; notdone = 0; break; } if (AutoAnswer && Cd) break; } StartWriteTimeout(0); UnLoaw"`dConnectList(); { IOSER *ios = NetAbortRead(); if (ios->IOSer.io_Actual > 0) { ubyte *ptr = (ubyte *)ios->IOSer.io_Data; short n; for (n = 0; n < ios->IOSer.io_Actual; ++n) ptr[n] &= 0x7F; oldbaud = CheckConnect(oldbaud, ptr, n); } } if (DDebug) printf("SETTING BAUD RATE TO %d\n", oldbaud); if (AutoAnswer && Cd) { char *msg = "\r\nDNET AutoAnswer, Protocol Start\r\n"; OnLine = 1; NetWrite(msg, strlen(msg), 0); Cto.tr_time.tv_secs = 3;w#C Cto.tr_time.tv_micro= 0; DoIO((IOR *)&Cto); } NetStartRead(3); AbortIO((IOR *)iocr); WaitIO((IOR *)iocr); CloseConsole(iocr, iocw); e3: CloseWindow(win); e1: if (IntuitionBase) CloseLibrary((LIB *)IntuitionBase); if (GfxBase) CloseLibrary((LIB *)GfxBase); if (Quit) puts("DNET EXITING"); else puts("DNET RUNNING"); return; } /* * PARITY ROUTINES */ static ubyte Party[256/8]; void setparity(pand, por, peven) int pand, por,w$^Pp peven; { short i, j, k, l; BZero(Party, sizeof(Party)); for (i = 0; i < 128; ++i) { for (j = (~i & 127), k = 0; j; j >>= 1) { /* k = count # of 0's */ if (j & 1) ++k; } k ^= peven; l = (((k & 1) ? 0x01 : 0) | por) & pand; Party[i >> 3] |= l << (i & 7); } } void addparity(buf, bytes) ubyte *buf; int bytes; { short i; for (i = bytes - 1; i >= 0; --i) { if (Party[buf[i]>>3] & (1 << (buf[i]&7))) buf[i] |= 0x80; } } void OpenConsole(wiw% n, piocr, piocw) IOCON **piocr, **piocw; struct Window *win; { PORT *port; static IOCON iocr, iocw; int error; port = CreatePort(NULL, 0); iocr.io_Command = CMD_READ; iocr.io_Data = (APTR)win; iocr.io_Message.mn_Node.ln_Type = NT_MESSAGE; iocr.io_Message.mn_ReplyPort = port; error = OpenDevice("console.device", 0, (IOR *)&iocr, 0); if (!error) { iocw = iocr; iocw.io_Command = CMD_WRITE; *piocr = &iocr; *piocw = &iocw; } else { *piocr w88= *piocw = NULL; } } void CloseConsole(iocr, iocw) IOCON *iocr; IOCON *iocw; { CloseDevice((IOR *)iocr); DeletePort(iocr->io_Message.mn_ReplyPort); } void InitDeemuNW(ary, nw) short *ary; NW *nw; { short alen = ary[3]; SCR Scr; if (GetScreenData((char *)&Scr, sizeof(Scr), nw->Type, nw->Screen) == 0) { Scr.Width = 320; Scr.Height= 200; } if (alen >= 8) { if ((nw->Width = ary[6]) < 0) nw->Width += Scr.Width; if ((nw->Height = ary[7]) < 0) u '8pc_mask) handle_ipc(); */ if (mask & sink_mask) { /* IOSink returns */ IOSTD *ior; while (ior = (IOSTD *)GetMsg(IOSink)) { switch((long)ior->io_Message.mn_Node.ln_Name) { case PKT_REQ: --NumCon; if (ior->io_Length) FreeMem(ior->io_Data, ior->io_Length); FreeMem(ior, sizeof(IOSTD)); break; case CTO_REQ: /* Only when line idle */ Cto_act = 0; do_cto((IOT *)ior); if (Cd == 0 && AutoHangup) OnLine = 0u (E_; break; case RTO_REQ: /* Read timeout, reset READ state */ Rto_act = 0; do_rto((IOT *)ior); break; case WTO_REQ: /* Write-Ack timeout, send CHECK */ Wto_act = 0; do_wto((IOT *)ior); break; case RNET_REQ: /* Receive data ready, interpret */ { char *ptr; long bytes = NetReadReturned(&ptr); do_rnet(ptr, bytes); } if (Cd == 0 && AutoHangup) OnLine = 0; break; case WNET_REQ: NetClWrite((IOu ),SER *)ior); break; } } } if (mask & dnet_mask) { /* Receive commands */ IOSTD *ior; while (ior = (IOSTD *)GetMsg(DNetPort)) { ior->io_Actual = 0; switch(ior->io_Command) { case DNCMD_WRITE: /* write data to net */ { uword chan = (ulong)ior->io_Unit; if (Chan[chan].state != CHAN_OPEN) { ior->io_Error = 1; break; } ior->io_Error = 0; ior->io_Command = SCMD_DATA; ior->io_Message.mn_Node.ln_Pri = Chan[chan]u *nQQ.pri; Enqueue(&TxList, (NODE *)ior); ior = NULL; } break; case DNCMD_SOPEN: /* Reply from server port on remote */ /* open request */ { CACKCMD ack; uword chan = (ulong)ior->io_Unit; ack.chanh = chan >> 8; ack.chanl = chan; ack.error = ior->io_Error; WriteStream(SCMD_ACKCMD, &ack, sizeof(ack), chan); if (ack.error) { Chan[chan].state = CHAN_FREE; --NumCon; } else { if (Chan[chan].state == CHANu +(a_CLOSE && !ack.error) { WritePort(Chan[chan].port, DNCMD_CLOSE, NULL, 0, PKT_REQ, chan); goto sopenbrk; } Chan[chan].state = CHAN_OPEN; Chan[chan].port = (PORT *)ior->io_Offset; Chan[chan].flags = CHANF_ROK|CHANF_WOK; } sopenbrk: if (ior->io_Length) FreeMem(ior->io_Data, ior->io_Length); FreeMem(ior, sizeof(IOSTD)); ior = NULL; } break; case DNCMD_EOF: { CEOFCMD eof; uword chan = (ulong)ior->io_Unit; u,/r ior->io_Error = 0; eof.chanh = chan >> 8; eof.chanl = chan; eof.flags = CHANF_ROK; WriteStream(SCMD_EOFCMD, &eof, sizeof(CEOFCMD), chan); Chan[chan].flags &= ~CHANF_WOK; } break; case DNCMD_IOCTL: { CIOCTL cio; uword chan = (ulong)ior->io_Unit; ior->io_Error = 0; cio.chanh = chan >> 8; cio.chanl = chan; cio.valh = (ubyte)((ulong)ior->io_Data >> 24); cio.vall = (ubyte)((ulong)ior->io_Data >> 16); cio.valaux = (ubyte)((uu-D˔Clong)ior->io_Data >> 8); cio.cmd = (ubyte)(ulong)ior->io_Data; WriteStream(SCMD_IOCTL, &cio, sizeof(CIOCTL), chan); } break; case DNCMD_QUIT: { char dummy; WriteStream(SCMD_QUIT, &dummy, 1, (uword)-1); } break; case DNCMD_INFO: { char *ptr = (char *)ior->io_Data; sprintf(ptr, " Bytes Packets Errors\n" "OUT: %8ld %8ld %8ld\n" "IN : %8ld %8ld %8ld\n" "Garbage Bytes In: %ld\n\n" "u.8 6-expn 7-comp 8-bin\n" "Packet Breakdown Send: %8ld %8ld %8ld\n" "Packet Breakdown Recv: %8ld %8ld %8ld\n", BytesOut, PacketsOut, PacketsResent, BytesIn, PacketsIn, PacketsNakd, GarbageIn, Packets6Out, Packets7Out, Packets8Out, Packets6In, Packets7In, Packets8In ); } break; case DNCMD_OPEN: ior->io_Error = 0; { uword chan = alloc_channel(); COPEN co; if (chu/nAan >= MAXCHAN) { ior->io_Error = 1; break; } co.chanh = chan >> 8; co.chanl = chan; co.porth = (ulong)ior->io_Unit >> 8; /* port # */ co.portl = (ulong)ior->io_Unit; co.error= 0; co.pri = (char)(long)ior->io_Message.mn_Node.ln_Name; Chan[chan].ior = ior; Chan[chan].port= (PORT *)ior->io_Offset; Chan[chan].state = CHAN_LOPEN; Chan[chan].flags = 0; Chan[chan].pri = ior->io_Message.mn_Node.ln_Pri; WriteStream(SCMD_OPEN, &co, sizeofu0)(COPEN), chan); ior = NULL; } break; case DNCMD_CLOSE: /* same io_Command for CCTL_? */ ior->io_Error = 0; { CCLOSE cc; uword chan = (ulong)ior->io_Unit; cc.chanh = chan >> 8; cc.chanl = chan; WriteStream(SCMD_CLOSE, &cc, sizeof(CCLOSE), chan); Chan[chan].ior = ior; Chan[chan].state = CHAN_CLOSE; Chan[chan].flags |= CHANF_LCLOSE; if (Chan[chan].flags & CHANF_RCLOSE) { Chan[chan].state = CHAN_FREE; Chan[chan].ior uĖ= NULL; } else { ior = NULL; } } break; case DNCMD_EXEC: Execute((char *)ior->io_Offset, NULL, NULL); break; } if (ior) ReplyMsg((MSG *)ior); } } if (mask & SIGBREAKF_CTRL_C) OnLine = 0; do_wupdate(); } do_netreset(); if (!Cd) { ResetConnect(); ResetIdle(); } if (!Quit) do_dnetwindow(baud); if (!Cd) { ResetConnect(); ResetIdle(); } if (!Quit) goto loop; dneterror(NULL); } void do_p2b*UUUUU7777ꪪꪪ7777p38UUU~77UUUU~77UUUU~77UUUU~77UUU~77UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUGp4 !UUUUG*UUUUGUUUUGUUUUG@p# :c/MuchMore7UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUGu6kJgup = 1; av[i] = ""; } if (strcmp(av[i], "-DEVICE") == 0) { netdevice = av[i + 1]; av[i] = ""; av[i+1] = ""; } if (strcmp(av[i], "-UNIT") == 0) { netunit = atoi(av[i+1]); av[i] = ""; av[i+1] = ""; } } ac = DoOption(ac, av, "p,m%d,b%ld,d%d,n%s,s%s,a,h%d,U%ld,D%s,N%d,8X%d,B%ld,P%d", &PDebug, &Mode7, &baud, &DDebug, &HostName, &autoclient, &AutoAnswer, &AutoHangup, &netunit, &netdevice, &NetworkNum, &Master8, &DialOut, &TOBaud, &Protocu742Qol ); if (ac < 0) { puts("Unknown option, valid options:\n"); puts("dnet -pb#B#d#nsaU#DN8"); dneterror("Unknown switch"); } if (AutoAnswer) { AutoHangup = 1; DialOut = 0; } sprintf(PortName, "%s%d", DNETPORTNAME, NetworkNum); { PORT *port; if (port = (PORT *)FindPort(PortName)) { puts("DNET: Network number in use"); /* CloseLibrary(DResBase); */ exit(1); } } DNetPort = (PORT *u8h)CreatePort(PortName, 0); IOSink = (PORT *)CreatePort(NULL,0); /* IPCPort = (PORT *)OpenIPC("dnet.CMD", 0); */ if (!DNetPort || !IOSink) dneterror("CreatePort"); NewList((LIST *)&TxList); Rto_act = Wto_act = Cto_act = 0; NetOpen(IOSink, netdevice, netunit, &baud); TimerOpen(&Rto, IOSink); TimerOpen(&Wto, IOSink); TimerOpen(&Cto, IOSink); if (TOBaud) SetTimeouts(TOBaud); else SetTimeouts(Baud); NetStartRead(3); do_du96 netwindow(baud); if (Quit) dneterror(NULL); Rto.tr_node.io_Message.mn_Node.ln_Name = (char *)RTO_REQ; Wto.tr_node.io_Message.mn_Node.ln_Name = (char *)WTO_REQ; Cto.tr_node.io_Message.mn_Node.ln_Name = (char *)CTO_REQ; sink_mask = 1 << IOSink->mp_SigBit; dnet_mask = 1 << DNetPort->mp_SigBit; /* ipc_mask = 1 << IPCPort->mp_SigBit; */ do_netreset(); loop: if (strcmp(autoclient, "-") != 0) { FILE *fi = fopen("T:dscr", "w"); if (fi) { u: e fprintf(fi, "Wait 5\n"); fprintf(fi, "%s -N%ld\n", autoclient, NetworkNum); fclose(fi); Execute("RUN NIL: execute T:dscr", NULL, NULL); } } WriteRestart(); Restart = 1; OnLine = 1; /* * NOTE: Routines must be particularly careful not to clear the * signal mask unless it doesn't matter. Specifically, * routines in the dnet_mask section cannot arbitrarily * clear the signal associated with the sink_mask section. u&z5 * * If you look at NetWrite(), you will note that the signal * is restored if it must do a WaitIO(). */ /* * Immediate return from initial Wait() ... due to looping it is * possible one or more requests is ready but the signal bit has * already been cleared. */ Signal(FindTask(NULL), /*ipc_mask|*/sink_mask|dnet_mask); while (!Quit && OnLine) { long mask = Wait(/*ipc_mask|*/sink_mask|dnet_mask|SIGBREAKF_CTRL_C); /* if (mask & iu5e#rn(0); } #endif void main ARGS((int, char **)); void main(ac,av) int ac; char *av[]; { long sink_mask, dnet_mask/*, ipc_mask*/; long baud = 0; char *netdevice = "serial.device"; long netunit = 0; char *autoclient = "FTERM"; short i; unlink("ENV:DNET_NORUNCLIENT"); #ifndef LATTICE Enable_Abort = 0; #endif BZero(Pkts,sizeof(Pkts)); InitServers(); for (i = 1; i < ac; ++i) { if (strcmp(av[i], "-Getty") == 0) { Getty = 1; AutoHanh =ahe other end closed it's side in which case fewer than the number of bytes requested will be returned. That is, this call will BLOCK waiting for data. A negative value is returned on EOF or failure. DWRITE() Write data to a channel. The return value is either the # bytes written, or a negative error code. -1 Remote end REOF'd the channel -2 Remote end CLOSED the channel note: not much distinction between the two currently. DCLOSE() Closh >e a channel. DOPEN() Application side OPEN().... Open a port# on a remote host. Returns a channel port or NULL. Two priorities are given. Each may be in the range (lowest) -127 to 126 (highest) inclusive. The first priority is for transmitting data client->server, the second for receiving data server->client. The host field should be NULL for now. In future versions, you will be able to run multiple DNET's on your Amiga and this will field will determine which one h !xyou are attempting to connect through. DQUIT() Causes DNET on the remote side to quit out. If running on a 4.2BSD UNIX machine, the DNET will exit. If running on another Amiga, the DNET will return to terminal-window mode. The host has the same definition as for DOpen(). itten, or a negative error code. -1 Remote end REOF'd the channel -2 Remote end CLOSED the channel note: not much distinction between the two currently. DCLOSE() ClosjHLth random modem noise. ILES PUTFILES [-Nnet#] [-dDESTDIR] file/dir file/dir file/dir .. File transfer client. Transfer the specified files and or directories to the destination directory on the remote machine. For instance: unix: putfiles -dram: charlie.txt /usr/include places the file charlie.txt as ram:charlie.txt, and places the directory structure /usr/include as ram:include/(whatever). The -N option selects the network number (see -N option for DNET). The defanA` f? where is a value less than or equal to the security level (DNET_READ enviroment variable). For example, if the remote user sets the DNET_READ enviroment variable to 5 (normally done by modifying the s:dnet.config file), and then sets the comment field for his GAMES: volume to AC=5, remote users_# who connect to his amiga will only be allowed to download files from that volume. The comment field will be used to house other parameters in the future. allowed to be downloaded according to the comment field of said files or any parent directory and the current DNET_READ accesslevel. If the remote AMIGA's DNET_READ enviroment variable is set 9 or higher, no access restrictions are imposed. If the remote AMIGA's DNET_READ enviroment variable is less than 9, the commenhK is so slow, it doesn't really matter. You are guarenteed a signal will be present whenever there is pending data, even if you only partially read what is available. NOTE that you *will* get signals sometimes even when no data is available, and should thus take into account DNRead() returning 0... Usually DNRead() is used in conjuction with Wait()ing on the signal bit of the channel port. DEOF() Eof a channel. Implemented ONLY for the Amiga. You cannot EOF a channelhLs( if running between the Amiga and a UNIX machine. This is essentially an unsupported call, and you should use DCLose() to close(and send an eof) on a channel. The network handles it just fine, but the UNIX side has no way of sending an EOF over a socket without closing the socket. DLISTEN() This call listens on a virtual port # (0-65535) for connections from a remote host. NULL is returned if the port is already being listened on by somebody else. DACCEPT() AchMYͫcepts connections over a virtual port #. Several connections may be accepted and worked on simultaniously. NULL is returned if there are no pending connections. You can WaitPort() on the listenport to wait for new connections, but should note that even after a WaitPort(), DAccept() might return NULL every once in a while. DAccept() will set the signal bit associated with the port if further connections are pending. DNAACCEPT() Don't accept connections over a virtualhNo9 port #. If there is a connection pending, it will return an error on the other end. Returns 1 if a connection was refused, 0 if there were no pending connections. DUNLISTEN() Stop listening on a virtual port #. Any pending requests are automatically DNAAccept()ed. DPRI() Set the priority of a channel (-128 lowest to 127 highest). The priority only effects throughput when two or more channels at different priorities are transfering data at the same time. Not ch<^urrently implemented.. priority is what you set in DOpen() DNREAD() Read data from a channel. 0 is a valid return value, meaning that no data is currently ready to read. You can WaitPort() on the channel port to wait for data (or EOF). A negative value is returned on EOF or failure. error codes: -1 EOF on channel -2 Remote end CLOSED the channel (not implemented) DREAD() Read data from a channel. The number of bytes requested are returned, unless thP*es) (see below) act = DWrite(chanport, buf, bytes) act = -1 or bytes DEof(chanport) send eof (amiga<>amiga only) DQueue(chanport, maxq) set asynchronous queue write queue size (default 0) DClose(chanport) close a channel DUnListen(listenport) stop listening on a channel DQuit(host) cause remote end to quit out of the DNET protocol. General notes: The calls have a notion of ownershihJGIϰp. The task which created the listen port or openned the channel owns it. Foreign tasks may DAccept() connections on somebody elses listen port (i.e. your server creates a task to handle the accept). In fact, this is the only way you can spawn off tasks to handle new connections as only the owner of a channel (caller of DAccept()/DOpen()) may use the channel. The calls are not extremely efficient at the momement, but since the network, by virtue of being on a serial line,_H#jemainder will be downloaded and appended to the local file. SECURITY The remote host, if an amiga, will impose security restrictions on those files allowed to be downloaded according to the comment field of said files or any parent directory and the current DNET_READ accesslevel. If the remote AMIGA's DNET_READ enviroment variable is set 9 or higher, no access restrictions are imposed. If the remote AMIGA's DNET_READ enviroment variable is less than 9, the commenSS;Zure enhancements such as an automated email network can be added without the burden of automatically starting up a BBS everytime. I also plan to implement a CRON based auto-dialer for email transfer. ---------------------------------------------- RUNNING AS A DBBS The DBBS server program is a BBS system for the Amiga which runs under DNet. The following is an example command line for automatic operation. Your modem must implement the CD (carriST]Cer detect) line and must disconnect when DTR is dropped. Run dnet -8 -a -bmaxbaud -sdbbs (other options may apply) That is, 8 bits no parity for the initial window (doesn't matter unless you have one of those stupid-smart modems), answer mode (automatic protocol startup on carrier detect), the maximum baud rate your modem can handle, and to run the DBBS client on protocol startup. The DBBS program is the BBS program itself. It is a client in that you SUMO RUN it (or allow DNET to run it via the -s option). It is a server in that it passively waits for connections from the remote end. This program also handles disconnecting users when their time runs out or they are idle too long. REFER to DBBS.DOC FOR FURTHER INFORMATION Since PUTFILES is a security hole right now, rather than have users of the BBS PUTFILES to upload, they will request the BBS to GETFILES the files to upload. *NEVER SET YOUR DNSVLET_LEVEL or DNET_WRITE TO 9 OR ABOVE! Doing so gives remote users sysop level access to DNet. NOTE: I intend to implement a mail network at some point. Remember that in the future, users will dial up and connect to your machine to do things other than just use the DBBS (i.e. they'll connect to the EMAIL server in many cases for an automated mail transfer). VERSION 2.04 Added -m option Added -P option, now supports use of XON-XOFF or 7WIRE modes SVO Now supports 7 bit lines (only 0x20-0x7F is ever sent) VERSION 2.00 VERSION 1.00 passively waits for connections from the remote end. This program also handles disconnecting users when their time runs out or they are idle too long. REFER to DBBS.DOC FOR FURTHER INFORMATION Since PUTFILES is a security hole right now, rather than have users of the BBS PUTFILES to upload, they will request the BBS to GETFILES the files to upload. *NEVER SET YOUR DNUXel-access> for example, example USER dillon casmtrek 9 9 9 This server is useful as it allows you to leave your Amiga unattended in auto-answer mode (with default security permissions 0 0 0). You can call up your amiga, connect to the SPASSWD server and enter your own personal user-name/password to gain full access to your amiga for the duration of the call. When you hang up, the amiga will automatically restore permissions to the default for the neU xt caller. Using FTERM to gain access to the SPASSWD server. FTERM 8199 (Amiga<->Amiga connection, from calling amiga) DSOC 8199 (Unix<->Amiga connection, from calling unix machine) This connects to the SPASSWD server on the Amiga which requests a login and password to gain any level of security access to the amiga. S:DNET.CONFIG may contain zero or more entries of the following form: USER doc docs s:dnet.servers file listing servers and their locations (MODIFY ACCORDING TO WHERE YOU PUT THE BINARIES) s:dnet.config universal configuration file for various modules libs:dres.library Required to exist IF RUNNING A DBBS, assign DBBS: to wherever you put your DBBSCTL directory. | | (NOT IMPLEMENTED YET) DBBS: | | | ocL[[ main with your own. You must then setup the listen port and wait/reply the startup message from DNET. See the source (for example, SERVER/STERM.C) for an example. The server can exit at any time after it DUnListen()'s the port. Multiple DNET's will all use the same server for a specific port #. _main() { struct Message *msg; long mask, pmask, hdmask; PROC *proc = FindTask(NULL); Enable_Abort = 0; LisPort= DListen(PORT_IALPHATERM); WaitPort(&proc->pr_MsgP[Uԓort); ReplyMsg(GetMsg(&proc->pr_MsgPort)); if (!LisPort) exit(1); ... ver. This is accomplished by DNET doing a LoadSeg() and CreatProc(). The server CANNOT GO THROUGH A NORMAL STARTUP for several reasons: (1) There is no CLI and the message passed over the process port is DNET specific (NOT a workbench message) (2) Registers contain garbage (no argument line) (3) No standard file handles exist For AZTEC C, this is accomplished by overiding the standard _]Gq_ emote machine must have the Amiga OS V1.3 NewShell command installed as well as DPIPE:, and the DNET_LEVEL enviroment variable must be at least 9 (accomplished by the remote user running dnet -X or modifying s:dnet.config). A shell initialization from file, s:remote-startup, is automatically executed by the shell. It is suggested that the program "noreq" be run by s:remote-startup to disable requesters (or your remote CLI will freeze when you make a mistS ^Wximately 25% larger in 7 bit mode. Packets containing ascii data will be normal-sized. In 8 bit mode, simple compression may actually occur... packets containing all ascii data 0x00-0x7F will be compressed to make use of the 8th bit which would normally be 0, giving an aproximately 1/8 speed increase. -Pn n = 0 none 1 xon-xoff 2 7wire if -P not specified then the preferences protocol is used. -Zn n = 0 8-no parity 1 7-odd 2 7-even S _ 3 7-mark 4 7-space if no -Z option is specified the preferences parity and wordlength is used. WARNING: You CANNOT combine xon/xoff *and* -m0. --------------------------------------------------- SECURITY The following enviroment variables should exist: DNET_LEVEL, DNET_READ, DNET_WRITE, DNET_GROUP, DNET_USERID These are setup automatically by the S:dnet.config file depending on the mode (Manual, DialOut (-X), AutoAnswer (-a)) and are rS `jlead by local servers to determine what the remote machine is allowed to do. These variables each hold a single value, normally 0-9 (except for DNET_GROUP which can be any number 0-32767). SGCOPY (server for getfiles): This is a new server. DNET_READ and DNET_GROUP determine which files the remote machine may download (read). In order for the remote to be able to download a file, that file and all its parent directories are scanned. At least one comment fieS a06ld must have an AC entry (AC=n) less than or equal to the current DNET_READ enviroment variable or sgcopy will disallow the download. If NO comment fields have an AC entry the download is disallowed. If any comment field has an AC entry > DNET_READ, the download is disallowed unless a GP entry was found (GR=n). A comment field may have multiple GR entries (GR=n GR=n ...). If any matches DNET_GROUP and all (if any) AC fields are <= DNET_READ, the download is allowed. AfteS bar that point a download will begin and files/dirs need not have AC entries. However, if any do, it will be checked again DNET_READ and the download (for that file or directory) disallowed. SCOPY (server for putfiles) This server allows remote machines to upload a file. That is, transfer from the remote machine to the local machine. DNET_WRITE must be 9 or higher or the upload will be disallowed. Currently, the remote machine may upload anywhere so it is suggested that Sc`*you either NOT have the SCOPY server installed or do not set DNET_WRITE to 9 or beyond when talking to possibly hostile remote machines. SPRINT (printer server) This server copies a stream to PRT: DNET_WRITE must be at least 6 or the remote machine will not be allowed to use this server. SCLI (CLI server) This server is currently a big hack and requires a special pipe device to work (The 1.3 pipe: will not work). DNET_LEVEL must be at least 9 for a remote machineSdb\x to be able to start a remote cli STERM (terminal window server) This server requires no permissions to operate and allows the remote machine to bring up a 'terminal window' to talk you through. AUTOMATIC ENVIROMENT VARIABLE CONFIGURATION CAN BE DONE FROM S:DNET.CONFIG --------------------------------------------------- TALKING TO A DBBS Amiga users wishing to connect to DBBS hosts should use the following command line: Run dnet -8 -sbbstSeKerm The -8 is required only if you have a stupid 'smart' modem which figures out the parity and then stays with it forever after. Since neither -a or -X have been given, you are in the medium-security 'dial-out' mode. Then, dial up the BBS in question. If the other end is indeed a DNET-BBS running under automatic operation, the protocol should start up almost immediately. On protocol startup, your side will automatically attempt to run the BBSTERM Sfbprogram (which connects to the BBS server on the other end). NOTE that the BBSTERM executable and FTERM executable are one and the same. The naming 'BBSTERM' causes it to use the BBS's port (8200) instead of the STERM port (8195) Currently the BBS server will allow only one connection at a time and return other attempts with an error. However, you can still download, upload, readmail, and talk to the sysop all at the same time. Downloading files from tSg,he DBBS The getfiles client program is used to retrieve files from the DBBS. The DBBS will set security options and such to allow you to download files. Allowing the DBBS to upload files from you At least one of the directories in the path leading to the eventual file/dir that you want to upload to the BBS must have a comment field containing the string AC= (e.g. AC=1) where is at least whatever read security level you have set (the DNET_RESRnAD enviroment variable, for example: setenv DNET_READ 1), or the DBBS will be unable to retrieve the file(s)/dir(s) and will tell you so. --------------------------------------------------- EMAIL NETWORK Has not been implemented yet, but will eventually be just another server. This is one of the reasons why the connect-to-BBS is done by the caller rather than have the BBS automatically startup an STERM on protocol startup ... this way, futFYcontrol file BITL 300 BSTL 30 BLOG dnet:bbs/bbs.log BMEN dnet:bbs/menu.ctl BMSG dnet:bbs/message.ctl BFIL dnet:bbs/file.ctl BUSR dnet:bbs/userinfo.ctl # SPASSWD server USER dillon pineapple 9 9 9 USER bounce - 0 0 0 enviroment # ENVM -manual (no -a) option enviroment # # LEVEL overall access rights # READ basic access rights for reading files from this machine # WRITE basic access rights for writing files to this machine ENVA DNET_LEVEL 9 ENVA DNET_READSj since you do not know who is calling you up. DialOut is less so since you know who you are dialing, and Manual assumes a non-hostile enviroment. These three modes also cause DNet to work differently. AMIGA/DNET DialOutMode: The default mode is DialOutMode (neither -X or -a given). DNet will look for a CONNECT message on carrier detect and modify the baud rate according to the AUTA resources. DNet will set the security modes to the ENVO (originate) rSkYO%esources in s:dnet.config NOTE: response through the initial window will be slow due to DNet's scanning of the resource file s:dnet.config. -X Manual mode. DNet will look for a CONNECT message on carrier detect and modify the baud rate on connect appropriately. DNet will set the security modes to the ENVM resources which assumes a friendly connection. -a Auto Answer mode. DNet will send the RESM resources at the originally specified baud rate to reset tSl he modem whenever carrier is lost. The security modes are set the the ENVA resources, which normally assume a hostile enviroment. -8 Use 8 bits no parity for the initial window rather than 7 bits even parity. NOTE! This only effects the initial login window. The Protocol, when running, always uses 8 bits no parity. -bbaud Set Initial Baud rate (otherwise uses preferences baud rate) -Bbaud Set Baud used to determine timeouts. If not set, the currenSm#Uet baud rate, whatever that is, is used. If set, this value is used to calculate timeouts forever after no matter what the actual line baud rate is. For example, setting this value lower than whatever baud rate you normally use will allow for longer line delays (such as when dialing through networks and things) -sclient Run the specified client program on protocol start. If running a BBS you want to specify the BBS client program here. NOTE: If the DNET_NORUNSne>CLIENT enviroment variable is set, no client program will be run even if this option is specified. This is used by DBBS to ensure that DNet does not start it several times. This enviroment variable is automatically deleted when DNET is first run. The default is to run the FTERM client. -nhostname Set the hostname (not used) -h1 Enable Carrier checking. Default is to not check the CD line (reversed from earlier versions). Note that carrier checking is foS]^xrced if you use -a (auto answer) mode. -U# Set the unit number for the low level serial-like device to talk over. -Ddevice Set the device name for the low level serial-like device to talk over (i.e. "serial.device"). -N# Set the network ID for local client/server rendezvous -p Packet Debug mode -d Debug mode on -m0 Select 8 bit packet mode (default is -m1 which selects 7 bit packet mode) Note that packets containing binary data will be aproQp0ap'. This adds another process to the character-loop. The default port# is 8195. You can also specify another port # to connect to. The -N option specifies the network (default = 0). This is the same network as was specified when you ran DNET (if was not specified, is 0) The -c# option (-c7 for example) sets the 'cooked' mode. Bits are defined as follows: bit 0 turn keyboard CR's into LFs when sent to remote 1 Local Echo (half duplex) 2 Qqcause received LFs to generate a CR+LF (i.e. CSI20h) -wcapturefile Specify name of capture file, else "ram:capture". Menus: (partially implemented): Capture -capture into ram:capture Paste -pastes from ram:paste Flush -get rid of buffered data on remote end (that would otherwise take a long time to display) BBSTERM is simply FTERM renamed, and uses PORT_BBS (8200) instead of PORT_IALPHATERM (8195). Q@sAi RELEASE INFO: V1.10 DNET 1.10 release -Implements auto window resize and auto-remote-resize -Implements local echo (cooked mode) and buffering Remote STERM implements equivalent options and now has the same resize/echo/remote-resize capabilities as FTERM. V1.00 Initial Release or example) sets the 'cooked' mode. Bits are defined as follows: bit 0 turn keyboard CR's into LFs when sent to remote 1 Local Echo (half duplex) 2 Si n must be in your path. (i.e. FTERM, PUTFILES, GETFILES ...) Other files will be required if you intend to run DNet *as* a BBS. DNET OPTIONS (please refer to S:DNET.CONFIG while reading this) DNet runs in three basic modes: AutoAnswer (-a), DialOut (default), and Manual (-X). Each mode has its own default set of security parameters. The shipped defaults assume a hostile enviroment. Generally, AutoAnswer is assumed to be the most hostile > tdicw->io_Data = (APTR)buf; iocw->io_Length = n; DoIO((RIO *)iocw); } if (n == -2) { short val; short cmd; char aux; cmd = DGetIoctl(chan, &val, &aux); HandleIoctl(cmd, val, aux, Win, iocw); /* if (cmd == CIO_MODE) { if (val) SetWindowTitles(Win, "(Cooked)", (char *)-1); else SetWindowTitles(Win, "(Raw)", (char *)-1); } */ } else if (n < 0) notdone = 0; } if (mask & conmask) { if (CheckIO((RIO *)iocr)) { WaitIO((RIO *)io> ucr); if (Cc == '\r') Cc = '\n'; inputbuf[bp++] = Cc; if (Cc == 0x08) { if (bp <= 1) { bp = 0; } else { localecho(0x08); localecho(0x20); localecho(0x08); bp -= 2; } } else if (Cc == 0x18) { while (--bp > 0) { localecho(0x08); localecho(0x20); localecho(0x08); } } else if (Cc == '\n') { localecho('\n'); localecho('\r'); DWrite(chan, inputbuf, bp); bp = 0; } else { localecho(Cc); } > v e iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO((RIO *)iocr); /* if (Cc == '\r') { Cc = '\n'; DWrite(chan, &Cc, 1); iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO(iocr); } */ } } } AbortIO((RIO *)iocr); WaitIO((RIO *)iocr); SetWindowTitles(Win, "Closing...", (char *)-1); DClose(chan); e3: CloseConsole(iocr,iocw); CloseWindow(Win); e1: CloseLibrary((LIB *)IntuitionBase); CloseLibrary((LIB *)GfxBase> w2); } void localecho(c) int c; { char cc; cc = c; iocw->io_Data = (APTR)&cc; iocw->io_Length = 1; DoIO((RIO *)iocw); } void OpenConsole(win, piocr, piocw) IOCON **piocr, **piocw; WIN *win; { PORT *port; static IOCON iocr, iocw; int error; port = CreatePort(NULL, 0); iocr.io_Command = CMD_READ; iocr.io_Data = (APTR)win; iocr.io_Message.mn_Node.ln_Type = NT_MESSAGE; iocr.io_Message.mn_ReplyPort = port; error = OpenDevice("conso> xio_Message.mn_ReplyPort); } } void setsize(iocw, chan, win) IOCON *iocw; void *chan; WIN *win; { struct ConUnit *cu = (struct ConUnit *)iocw->io_Uni>y Ct; static char IStr[] = { "\033c\23320l\233t\233u" }; /* if (Cooked & 4) IStr[5] = 'h'; else IStr[5] = 'l'; */ iocw->io_Data = (APTR)IStr; iocw->io_Length = sizeof(IStr) - 1; DoIO((RIO *)iocw); if (chan) { DIoctl(chan, CIO_SETROWS, (uword)(cu->cu_YMax+1), 0); DIoctl(chan, CIO_SETCOLS, (uword)(cu->cu_XMax+1), 0); } sprintf(Term, "FTERM %ld x %ld", cu->cu_YMax+1, cu->cu_XMax+1); SetWindowTitles(win, Term, (char *)-1); } void Handl>zeIoctl(cmd, val, aux, win, iocw) short cmd, val; char aux; WIN *win; IOCON *iocw; { static short saverows; short height, width; short dx, dy; switch(cmd) { case CIO_MODE: /* Cooked = val; */ break; case CIO_SETROWS: saverows = val; break; case CIO_SETCOLS: width = val * win->RPort->TxWidth + win->BorderLeft + win->BorderRight; height= saverows * win->RPort->TxHeight + win->BorderTop + win->BorderBottom; dx = win->WScreen->Width - (win->LeftEdge >{\++ width); if (dx > 0) dx = 0; if (-dx > win->LeftEdge) { dx = -win->LeftEdge; width = win->WScreen->Width; } dy = win->WScreen->Height - (win->TopEdge + height); if (dy > 0) dy = 0; if (-dy > win->TopEdge) { dy = -win->TopEdge; height = win->WScreen->Height; } if (dx || dy) { MoveWindow(win, dx, dy); } if (win->Width != width || win->Height != height) { SizeWindow(win, width - win->Width, height - win->Height); ++IgnoreNS; } >/1break; } } aux, win, iocw) short cmd, val; char aux; WIN *win; IOCON *iocw; { static short saverows; short height, width; short dx, dy; switch(cmd) { case CIO_MODE: /* Cooked = val; */ break; case CIO_SETROWS: saverows = val; break; case CIO_SETCOLS: width = val * win->RPort->TxWidth + win->BorderLeft + win->BorderRight; height= saverows * win->RPort->TxHeight + win->BorderTop + win->BorderBottom; dx = win->WScreen->Width - (win->LeftEdge F}elt is ENVO. The -a option for DNET selects ENVA, -X selects # ENVM. Note that the default assumes a hostile enviroment. # # ENVA -auto answer (-a) option enviroment # ENVO -originate (you are dialing up somebody else) option enviroment # ENVM -manual (no -a) option enviroment # # LEVEL overall access rights # READ basic access rights for reading files from this machine # WRITE basic access rights for writing files to this machine ENVA DNET_LEVEL 9 ENVA DNET_READFh 9 ENVA DNET_WRITE 9 ENVO DNET_LEVEL 1 ENVO DNET_READ 1 ENVO DNET_WRITE 1 ENVM DNET_LEVEL 9 ENVM DNET_READ 9 ENVM DNET_WRITE 9 # BBS control files # # BITL : Idle time limit (no activity), seconds (normally 5 min) # BSTL : Base session time limit, minutes (modified by user entry), 30. # BLOG : log file # BMEN : Menu control file # BUSR : User Information control file (information fields) # BMSG : Message control file # BFIL : DL/UL 3 { static short saverows; short height, width; short dx, dy; switch(cmd) { case CIO_MODE: Cooked = val; break; case CIO_SETROWS: saverows = val; break; case CIO_SETCOLS: width = val * win->RPort->TxWidth + win->BorderLeft + win->BorderRight; height= saverows * win->RPort->TxHeight + win->BorderTop + win->BorderBottom; dx = win->WScreen->Width - (win->LeftEdge + width); if (dx > 0) dx = 0; if (-dx > win->LeftEdge) { dx = -win->LeftEdge;3b=n width = win->WScreen->Width; } dy = win->WScreen->Height - (win->TopEdge + height); if (dy > 0) dy = 0; if (-dy > win->TopEdge) { dy = -win->TopEdge; height = win->WScreen->Height; } if (dx || dy) { MoveWindow(win, dx, dy); } if (win->Width != width || win->Height != height) { SizeWindow(win, width - win->Width, height - win->Height); ++IgnoreNS; } break; } } d, val, aux, win, iocw) short cmd, val; char aux; WIN *win; IOCON *iocw;>LNZruct IntuitionBase *IntuitionBase; struct GfxBase *GfxBase; IOCON *iocr, *iocw; void OpenConsole ARGS((WIN *, IOCON **, IOCON **)); void HandleIoctl ARGS((short, short, char, WIN *, IOCON *)); void CloseConsole ARGS((IOCON *, IOCON *)); void setsize ARGS((IOCON *, void *, WIN *)); void localecho ARGS((int)); void main ARGS((int, char **)); int brk() { return(0); } void main(ac,av) char *av[]; { void *chan; long imask, conmask, dmask, mask; char notdone = 1; ch>4Far portspec = 0; char *host = NULL; uword port = PORT_AMIGASHELL; int i; int bp = 0; char inputbuf[256]; onbreak(brk); sprintf(Title, "CLITerm V%s%s opening, wait..", VERSION, CLITERM_VERSION); { short i; for (i = 1; i < ac; ++i) { if (strncmp(av[i], "-N", 2) == 0) { host = av[i] + 2; continue; } portspec = 1; port = atoi(av[i]); } } if (portspec) printf("Using port %ld\n", port); #ifndef LATTICE Enable_Abort = >}^0; #endif IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0); GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0); Win = OpenWindow(&Nw); if (Win == NULL) goto e1; OpenConsole(Win, &iocr, &iocw); if (iocr == NULL || iocw == NULL) goto e3; /* * We delay here to allow DNET to go through its RESTART sequence * (when DNET automatically runs FTERM, it does so to quickly). * Such a hack! */ Delay(50>Nb * 4); chan = DOpen(host, port, 20, 15); if (!chan) { puts("Unable to connect"); goto e3; } DQueue(chan, 32); SetMenuStrip(Win, Menu); SetWindowTitles(Win, Term, (char *)-1); imask = 1 << Win->UserPort->mp_SigBit; dmask = 1 << ((PORT *)chan)->mp_SigBit; conmask = 1 << iocr->io_Message.mn_ReplyPort->mp_SigBit; iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO((RIO *)iocr); setsize(iocw, chan, Win); while (notdone) {:0ary LIB; typedef struct FileInfoBlock FIB; 76t  DMakefile*>̾ mask = Wait(imask|dmask|conmask); if (mask & imask) { IMESS *im; while (im = (IMESS *)GetMsg(Win->UserPort)) { switch(im->Class) { case NEWSIZE: if (IgnoreNS) { --IgnoreNS; setsize(iocw, NULL, Win); } else { setsize(iocw, chan, Win); } break; case CLOSEWINDOW: notdone = 0; break; case MENUPICK: switch((uword)((MENUNUM(im->Code)<<8)|ITEMNUM(im->Code))) { case 0x0000: /* menu 0 item 0 */ DIoctl(chan, CI<PQuit(host); /* NULL ok */ if (ok) { Delay(50 * 5); DBreak(host); } else puts("DNET master port for network not found"); } 9+ *syms.c*>s#›O_FLUSH, 0, 0); break; case 0x0001: /* menu 0 item 1 */ case 0x0002: /* menu 0 item 2 */ case 0x0100: /* menu 1 item 0 */ break; } break; default: break; } ReplyMsg((MSG *)im); } } if (mask & dmask) { char buf[256]; int n; if ((n = DNRead(chan, buf, 256)) > 0) { for (i = 0; i < n; i++) { if (buf[i] == '\n') { movmem(&buf[i], &buf[i + 1], n - i); buf[i] = '\r'; i++; n++; } } io>CD|HIGHCOMP, 0, (APTR)&IText[0], NULL, 'o' } }; MENU Menu[] = { { NULL , 0, 0, 100, 20, MENUENABLED, "Control", &Item[0] } }; char Title[80]; NW Nw = { 0, 12, 640, 60, -1, -1, NEWSIZE|CLOSEWINDOW|MENUPICK, WINDOWSIZING|WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|NOCAREREFRESH|ACTIVATE, NULL, NULL, (ubyte *)Title, NULL, NULL, 32, 32, -1, -1, WBENCHSCREEN }; WIN *Win; extern int Enable_Abort; char Buf[512]; char Term[64] = { "FTERM (UNNAMED SHELL)" }; char Cc; st3}apfi = fopen(capfile, "a"); if (portspec) printf("Using port %ld\n", port); #ifndef LATTICE Enable_Abort = 0; #endif IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0); GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0); InitDeemuNW(Deemu+DMNWOFF, &Nw); { char *p1, *p2; p1 = (char *)(Deemu+DMFONTSTR) + strlen((char *)(Deemu+DMFONTSTR)) + 1; for (p2 = p1 + strlen(p1); p2 != p1 && *p2 != '.'; --p2); if (*p2 == '.') { 3 s[> *p2 = 0; font = (FONT *)GetFont(p1, (short)atoi(p2+1)); } } Win = OpenWindow(&Nw); if (Win == NULL) goto e1; if (font) { SetFont(Win->RPort, font); SetRast(Win->RPort, 0); RefreshWindowFrame(Win); } OpenConsole(Win, &iocr, &iocw); if (iocr == NULL || iocw == NULL) goto e3; /* * We delay here to allow DNET to go through its RESTART sequence * (when DNET automatically runs FTERM, it does so to quickly). * Such a hack! 3 "EБ*/ Delay(50 * 4); chan = DOpen(host, port, 20, 15); if (!chan) { puts("Unable to connect"); goto e3; } DQueue(chan, 32); SetMenuStrip(Win, Menu); SetWindowTitles(Win, Term, (char *)-1); imask = 1 << Win->UserPort->mp_SigBit; dmask = 1 << ((PORT *)chan)->mp_SigBit; conmask = 1 << iocr->io_Message.mn_ReplyPort->mp_SigBit; iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO(iocr); setsize(iocw, chan, Win); while (n3 BPotdone) { mask = Wait(imask|dmask|conmask); if (mask & imask) { IMESS *im; while (im = (IMESS *)GetMsg(Win->UserPort)) { switch(im->Class) { case NEWSIZE: if (IgnoreNS) { --IgnoreNS; setsize(iocw, NULL, Win); } else { setsize(iocw, chan, Win); } break; case CLOSEWINDOW: notdone = 0; break; case MENUPICK: switch((uword)((MENUNUM(im->Code)<<8)|ITEMNUM(im->Code))) { case 0x0000: /* menu 0 item 0 */ DIoctl3 ҕ(chan, CIO_FLUSH, 0, 0); break; case 0x0001: /* menu 0 item 1 */ if (capfi) fclose(capfi); capfi = fopen("ram:capture", "a"); break; case 0x0002: if (capfi) fclose(capfi); capfi = fopen("ram:capture", "w"); break; case 0x0003: /* menu 0 item 2 */ if (capfi) fclose(capfi); capfi = NULL; break; case 0x0004: /* menu 0 item 3 */ { FILE *fi; long n; if (fi = fopen("ram:paste", "r"))3 P { while ((n = fread(Buf, 1, sizeof(Buf), fi)) > 0) { DWrite(chan, Buf, n); } fclose(fi); } } break; case 0x0100: /* menu 1 item 0 */ break; } } ReplyMsg((MSG *)im); } } if (mask & dmask) { int n; if ((n = DNRead(chan, Buf, sizeof(Buf))) > 0) { iocw->io_Data = (APTR)Buf; iocw->io_Length = n; DoIO(iocw); if (capfi) fwrite(Buf, n, 1, capfi); } else if (n == -2) { short val; short cmd; char 3~Vaux; cmd = DGetIoctl(chan, &val, &aux); HandleIoctl(cmd, val, aux, Win, iocw); if (cmd == CIO_MODE) { if (val) SetWindowTitles(Win, "(Cooked)", (char *)-1); else SetWindowTitles(Win, "(Raw)", (char *)-1); } } else if (n < 0) { notdone = 0; } } if (mask & conmask) { if (CheckIO(iocr)) { WaitIO(iocr); if (Cooked & 2) { /* Local Echo */ iocw->io_Data = (APTR)&Cc; iocw->io_Length = 1; DoIO(iocw); } if ((Cooked3[. & 1) && Cc == 13) { Cc = 10; iocw->io_Data = (APTR)&Cc; iocw->io_Length = 1; DoIO(iocw); } DWrite(chan, &Cc, 1); iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO(iocr); } } } AbortIO(iocr); WaitIO(iocr); SetWindowTitles(Win, "Closing...", (char *)-1); DClose(chan); e3: CloseConsole(iocr,iocw); if (font) { SetFont(Win->RPort, Win->WScreen->RastPort.Font); CloseFont(font); } CloseWindow(Win); e1: CloseLibr30ary((LIB *)IntuitionBase); CloseLibrary((LIB *)GfxBase); if (capfi) fclose(capfi); } void OpenConsole(win, piocr, piocw) IOCON **piocr, **piocw; WIN *win; { PORT *port; static IOCON iocr, iocw; int error; port = CreatePort(NULL, 0); iocr.io_Command = CMD_READ; iocr.io_Data = (APTR)win; iocr.io_Message.mn_Node.ln_Type = NT_MESSAGE; iocr.io_Message.mn_ReplyPort = port; error = OpenDevice("console.device", 0, &iocr, 0); if (!error) { i3F ocw = iocr; iocw.io_Command = CMD_WRITE; *piocr = &iocr; *piocw = &iocw; } else { *piocr = *piocw = NULL; } } void CloseConsole(iocr, iocw) IOCON *iocr; IOCON *iocw; { IOCON *tmp = (iocr) ? iocr : iocw; if (tmp) { CloseDevice(tmp); DeletePort(tmp->io_Message.mn_ReplyPort); } } void setsize(iocw, chan, win) IOCON *iocw; void *chan; WIN *win; { struct ConUnit *cu = (struct ConUnit *)iocw->io_Unit; static char IStr[] = { "\033c\23320l\233t\233u" }; 3~<$ if (Cooked & 4) IStr[5] = 'h'; else IStr[5] = 'l'; iocw->io_Data = (APTR)IStr; iocw->io_Length = sizeof(IStr) - 1; DoIO(iocw); if (chan) { DIoctl(chan, CIO_SETROWS, (uword)(cu->cu_YMax+1), 0); DIoctl(chan, CIO_SETCOLS, (uword)(cu->cu_XMax+1), 0); } sprintf(Term, "FTERM %ld x %ld", cu->cu_YMax+1, cu->cu_XMax+1); SetWindowTitles(win, Term, (char *)-1); } void HandleIoctl(cmd, val, aux, win, iocw) short cmd, val; char aux; WIN *win; IOCON *iocw;1 }cs routines. ************************************************ */ short WOx, WOy, Ww, Wh; void clearwindow() { short i, j, d; WOx = Win->BorderLeft; WOy = Win->BorderTop; Ww = Win->Width - Win->BorderRight - Win->BorderLeft; Wh = Win->Height- Win->BorderTop - Win->BorderBottom; SetAPen(Rp, 0); RectFill(Rp, WOx, WOy, Ww + WOx, Wh + WOy); WOx += 2; WOy += 2; Ww -= 4; Wh -= 4; /* * Redraw the graph. Scale values relative to GMax1 @J[?] and Wh. * * ypos = (WOy + Wh) - (Wh * value / GMax[d]) * */ for (d = 0; d < GDEPTH; ++d) { char move = 1; SetAPen(Rp, (d & 1) ? 3 : 1); for (i = Ww - 1, j = Gi - 1; i >= 0; --i, --j) { uword value = Wh * Graph[j&GMASK][d] / GMax[GMap[d]]; (move) ? Move(Rp, WOx + i, WOy + Wh - value - 1) : Draw(Rp, WOx + i, WOy + Wh - value - 1) ; move = 0; } } } /* * 5:44pm up 2 days, 22:30, 37 users, load average: 5.98, 7.93, 7.97 * 1 { 7 mins, */ void updatewindow(str) char *str; { short d; char refresh = 0; uword ary[GDEPTH]; { long nusers, i1, f1, i5, f5; char *ptr = str; while (strncmp(ptr, "users", 5) && *ptr) ++ptr; while (*--ptr == ' ' && ptr != str) --ptr; while (*--ptr != ' ' && ptr != str) --ptr; nusers = atoi(ptr+1); while (strncmp(ptr, "load", 4) && *ptr) ++ptr; sscanf(ptr, "load average: %ld.%ld, %ld.%ld,", &i1, &f1, &i5, &f5 ); /* ary[0] = (i1 *&1 << 8) | ((f1 << 8) / 100); */ ary[0] = (i5 << 8) | ((f5 << 8) / 100); ary[1] = nusers; } for (d = 0; d < GDEPTH; ++d) { while (ary[d] > GMax[GMap[d]] && ary[d] < 65000) { GMax[GMap[d]] += GIncr[GMap[d]]; refresh = 1; } Graph[Gi][d] = ary[d]; } if (!Initial) { short i; Initial = 1; for (i = 0; i < GWIDTH; ++i) { for (d = 0; d < GDEPTH; ++d) Graph[i][d] = Graph[Gi][d]; } } Gi = (Gi + 1) & GMASK; if (refresh) { clearwindow(); re1 sdturn; } ScrollRaster(Rp, 1, 0, WOx, WOy, WOx + Ww - 1, WOy + Wh - 1); for (d = 0; d < GDEPTH; ++d) { uword value1 = Wh * Graph[(Gi-2)&GMASK][d] / GMax[GMap[d]]; uword value2 = Wh * Graph[(Gi-1)&GMASK][d] / GMax[GMap[d]]; SetAPen(Rp, (d & 1) ? 3 : 1); Move(Rp, Ww + WOx - 2, WOy + Wh - value1 - 1); Draw(Rp, Ww + WOx - 1, WOy + Wh - value2 - 1); } } 4) && *ptr) ++ptr; sscanf(ptr, "load average: %ld.%ld, %ld.%ld,", &i1, &f1, &i5, &f5 ); /* ary[0] = (i3`ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[0], NULL, 'o' }, { &Item[2], 0,10, 100, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[1], NULL, 'a' }, { &Item[3], 0,20, 100, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[2], NULL, 'n' }, { &Item[4], 0,30, 100, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[3], NULL, 'c' }, { NULL , 0,40, 100, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[4], NULL, 'p' } }; M3ENU Menu[] = { { NULL , 0, 0, 100, 10+40, MENUENABLED, "Control", &Item[0] } }; ubyte Title[80]; NW Nw = { 0, 0, 640, 200, -1, -1, NEWSIZE|CLOSEWINDOW|MENUPICK, WINDOWSIZING|WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|NOCAREREFRESH|ACTIVATE, NULL, NULL, Title, NULL, NULL, 32, 32, -1, -1, WBENCHSCREEN }; WIN *Win; extern int Enable_Abort; char Buf[512]; char Term[64]; char Cc; char Cooked; /* bit 0 = cooked, bit 1 = local echo */ char IgnoreNS; struct Intuit3ionBase *IntuitionBase; struct GfxBase *GfxBase; void OpenConsole ARGS((WIN *, IOCON **, IOCON **)); void HandleIoctl ARGS((short, short, char, WIN *, IOCON *)); void CloseConsole ARGS((IOCON *, IOCON *)); void setsize ARGS((IOCON *, void *, WIN *)); void main ARGS((int, char **)); int brk() { return(0); } void main(ac, av) char *av[]; { void *chan; long imask, conmask, dmask, mask; IOCON *iocr, *iocw; char notdone = 1; char portspec = 0; char *host = 3dNULL; char *capfile = NULL; FILE *capfi = NULL; uword port = PORT_IALPHATERM; FONT *font = NULL; onbreak(brk); sprintf(Title, "FTerm V%s%s", VERSION, FTERM_VERSION); strcpy(Term, Title); strcat(Title, " opening, wait ..."); { char *str = av[0]; for (str = str + strlen(str); str >= av[0]; --str) { if (*str == '/' || *str == ':') break; } ++str; if ((*str | 0x20) == 'b') /* bbsterm instead of fterm */ port = PORT_BBS; } 3lM { short i; for (i = 1; i < ac; ++i) { char *ptr = av[i]; if (*ptr == '-') { while (*++ptr) { switch(*ptr) { case 'N': host = ptr + 1; ptr = "\0"; break; case 'w': capfile = ptr + 1; ptr = "\0"; break; case 'c': Cooked = atoi(ptr + 1); ptr = "\0"; break; default: printf("Unknown option: '%c'\n", *ptr); break; } } } else { portspec = 1; port = atoi(ptr); } } } if (capfile) c3*V't.','8\0',0,0,0,0,0,0, DMEND , 0, 0 }; #define DMNWOFF 4 #define DMFONTSTR 17 TA Ta = { (ubyte *)"topaz.font", 8 }; ITEXT IText[] = { { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"Flush" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"AppendCap" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"NewCap" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"CloseCap" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"Paste" } }; ITEM Item[] = { { &Item[1], 0, 0, 100, 10, /m; } while (ExNext(lock, fib)) { if (putname(chan, fib->fib_FileName) < 0) { ret = -1; goto f1; } } writehdr(chan, 'Y', "?", 0); f1: UnLock(CurrentDir(dirl)); } else { UnLock(lock); ret = putfile(chan, file, fib->fib_FileName); } free(fib); return(ret); } int putfile(chan, file, stripedname) void *chan; char *file; char *stripedname; { long fh = (long)Open(file, 1005); long n, r, len; long ttl = 0; char co; fflush(stdout); /By if (fh == NULL) { puts("FILE NOT FOUND"); return(0); } Seek(fh, 0, 1); /* get length */ len = ttl = Seek(fh, 0, -1); if (writehdr(chan, 'W', stripedname, len) != 'Y') { puts("REMOTE UNABLE TO ACCEPT FILE"); Close(fh); return(0); } printf("%6ld/%-6ld", ttl - len, ttl); while (len) { fflush(stdout); r = (len > sizeof(Buf)) ? sizeof(Buf) : len; n = Read(fh, Buf, r); if (n != r) { puts("Local File error"); Close(fh); r/Neturn(-1); } if (DWrite(chan, Buf, n) != n) { puts("Remote error"); Close(fh); return(-1); } if (SetSignal(0,0) & (SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D)) { puts("\nBreak"); Close(fh); return(-1); } len -= n; printf("\010\010\010\010\010\010\010\010\010\010\010\010\010"); printf("%6ld/%-6ld", ttl - len, ttl); } Close(fh); printf("Queued, waiting..."); fflush(stdout); DRead(chan, &co, 1); if (co != 'Y') { puts("Remote Server S/.oftware Error"); return(-1); } puts(" OK"); return(0); } int writehdr(chan, c, name, len) void *chan; unsigned char c; char *name; long len; { if (DWrite(chan, &c, 1) != 1) return(-1); c = strlen(name) + 1; if (DWrite(chan, &c, 1) != 1) return(-1); if (DWrite(chan, name, c) != c) return(-1); if (DWrite(chan, &len, 4) != 4) return(-1); if (DRead(chan, &c, 1) == 1) return((int)c); return(-1); } "Local File error"); Close(fh); r1v1; Iot.tr_time.tv_secs = 0; SendIO((IOR *)&Iot); #ifndef LATTICE Enable_Abort = 0; #endif IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0); GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0); chan = DOpen(host, PORT_LOADAV, 25, 25); if (chan == NULL) { puts("no connect"); goto fail; } InitDeemuNW(Deemu+DMNWOFF, &Nw); Win = OpenWindow(&Nw); if (Win == NULL) { puts("Unable to open window"); goto f1/ail; } Rp = Win->RPort; imask = 1 << Win->UserPort->mp_SigBit; dmask = 1 << ((PORT *)chan)->mp_SigBit; tmask = 1 << TimPort->mp_SigBit; clearwindow(); while (notdone) { mask = Wait(imask|dmask|tmask|SIGBREAKF_CTRL_C); if (mask & SIGBREAKF_CTRL_C) notdone = 0; if (mask & imask) { IMESS *im; while (im = (IMESS *)GetMsg(Win->UserPort)) { switch(im->Class) { case NEWSIZE: clearwindow(); break; case CLOSEWINDOW: 1Znotdone = 0; break; } ReplyMsg((MSG *)im); } } if (mask & dmask) { char dummy; if ((dummy = DNRead(chan, &dummy, 1)) != 0) notdone = 0; } while (mask & tmask) { /* while just so we can break */ char len = 0; if (GetMsg(TimPort)) { Iot.tr_time.tv_micro = 0; Iot.tr_time.tv_secs = numsecs; SendIO((IOR *)&Iot); if (DWrite(chan, &len, 1) == 1 && DRead(chan, &len, 1) == 1) { if (len < sizeof(Title) && DRead(chan, Title, len) ==1F len) { Title[len] = 0; updatewindow(Title); SetWindowTitles(Win, Title, (char *)-1); break; } } notdone = 0; } break; } } fail: if (Iot.tr_node.io_Device) { AbortIO((IOR *)&Iot); WaitIO((IOR *)&Iot); CloseDevice((IOR *)&Iot); } DeletePort(TimPort); if (Win) CloseWindow(Win); if (chan) DClose(chan); if (IntuitionBase) CloseLibrary((LIB *)IntuitionBase); if (GfxBase) CloseLibrary((LIB *)GfxBase); } /* * Graphi1iWIDTH (sizeof(Graph)/sizeof(Graph[0])) #define GDEPTH (sizeof(GMap)/sizeof(GMap[0])) #define GMASK (GWIDTH-1) uword GMax[] = { 2*256, 50 }; uword GIncr[]= { 2*256, 20 }; uword GMap[2] = { 0, 1 }; uword Graph[1024][GDEPTH]; /* 5Min,#users. */ uword Gi; ubyte Scr[128]; ubyte Initial; ubyte Title[128]; extern void updatewindow(); NW Nw = { 0, 0, 320, 50, -1, -1, NEWSIZE|CLOSEWINDOW, WINDOWSIZING|WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|NOCAREREFRESH, NULL, NULL, Title1, NULL, NULL, 32, 18, -1, -1, WBENCHSCREEN }; WIN *Win; RP *Rp; extern int Enable_Abort; struct IntuitionBase *IntuitionBase; struct GfxBase *GfxBase; void clearwindow ARGS((void)); void updatewindow ARGS((char *)); void main ARGS((int, char **)); int brk() { return(0); } void main(ac,av) char *av[]; { void *chan = NULL; short numsecs = 60; long imask, tmask, dmask, mask; char notdone = 1; char *host = NULL; PORT *TimPort = CreatePort(NULL, 0); 1a IOT Iot; onbreak(brk); sprintf(Title, "LoadAv V%s%s", VERSION, LOADAV_VERSION); { short i; for (i = 1; i < ac; ++i) { if (strncmp(av[i], "-N", 2) == 0) { host = av[i]+2; continue; } numsecs = atoi(av[i]); } } Iot.tr_node.io_Device = NULL; if (OpenDevice("timer.device", UNIT_VBLANK, (IOR *)&Iot, 0)) goto fail; Iot.tr_node.io_Command = TR_ADDREQUEST; Iot.tr_node.io_Message.mn_ReplyPort = TimPort; Iot.tr_time.tv_micro = -  2 error = WriteHeader('N', "open error", 0); printf("Unable to open %s for output\n", hdr->Str); if (error) return(LostChannel()); return(1); } } error = WriteHeader('Y', NULL, pos); /* yes, gimme gimme */ /* * Retrieve the data */ if (!error) { long left = hdr->Val; long cnt = pos; long total = pos + left; while (left) { long n = (left > sizeof(Buf)) ? sizeof(Buf) : left; printf("%6ld/%6ld\23313D", cnt, total); - _C fflush(stdout); if (DRead(Chan, Buf, n) != n) { error = 5; break; } if (CheckBreak()) { error = 1; break; } if (Write(Fh, Buf, n) != n) { puts("Local Write failed!"); error = 6; break; } left -= n; cnt += n; if (CheckBreak()) { error = 1; break; } } printf("%6ld/%6ld %s", cnt, total, ((cnt == total) ? "OK" : "INCOMPLETE")); } Close(Fh); puts(""); if (error) { SetProtection(hdr->Str, 10); /* - Qdisallow reads! */ return(LostChannel()); } return((int)error); } /* * Retrieve a directory. Create it if necessary. */ int GetDir(hdr, stab) HDR *hdr; int stab; { short error = 0; long dirlock; static HDR Hdr; /* note: static */ if (CheckBreak()) return(1); printf("%s%-20s(DIR)\n", NSpaces(stab), hdr->Str); dirlock = Lock(hdr->Str, SHARED_LOCK); /* try to lock directory */ if (!dirlock) { if (dirlock = (long)CreateDir(hdr->Str)) { -6( UnLock(dirlock); dirlock = Lock(hdr->Str, SHARED_LOCK); } } if (!dirlock) { error = WriteHeader('N', "couldn't create", 0); printf("Unable to create local directory: %s\n", hdr->Str); if (error) return(LostChannel()); return(1); } error = WriteHeader('Y', NULL, 0); /* yes, gimme gimme */ while (!error) { switch(ReadHeader(&Hdr)) { case -1: error = 1; break; case 'E': /* end of directory */ UnLock(dir-hlock); return(0); break; case 'F': error = CheckNoPath(Hdr.Str); if (!error) { long olddir = (long)CurrentDir(dirlock); error = GetFile(&Hdr, stab + 4); CurrentDir(olddir); } break; case 'D': error = CheckNoPath(Hdr.Str); if (!error) { long olddir = (long)CurrentDir(dirlock); error = GetDir(&Hdr, stab + 4); CurrentDir(olddir); } break; case 'S': printf("Access Violation: %s\n", Hdr.Str); break; case 'N': -1h printf("REMOTE ERROR: %s\n", Hdr.Str); error = 10; break; default: UnknownCmd(&Hdr); error = 1; break; } } UnLock(dirlock); return(LostChannel()); } int WriteHeader(c, str, len) char c; char *str; long len; { ubyte sl; if (str == NULL) str = ""; sl = strlen(str); if (DWrite(Chan, &c, 1) < 0) return(1); if (DWrite(Chan, &sl,1) < 0) return(1); if (DWrite(Chan, str, sl) != sl) return(1); if (DWrite(Chan, &len, 4)-MH != 4) return(1); return(0); } int ReadHeader(hdr) HDR *hdr; { ubyte sl; ubyte cmd; hdr->Cmd = -1; if (DRead(Chan, &cmd, 1) != 1) return(-1); if (DRead(Chan, &sl, 1) != 1) return(-1); if (sl >= sizeof(hdr->Str)) { puts("Software error: received file name length too long"); return(-1); } if (DRead(Chan, hdr->Str, sl) != sl) return(-1); hdr->Str[sl] = 0; if (DRead(Chan, &hdr->Val, 4) != 4) return(-1); hdr->Cmd = cmd; return((-_int)hdr->Cmd); } char * NSpaces(n) int n; { static char Buf[128]; static short in = 0; static short last; if (in == 0) { in = 1; BSet(Buf, sizeof(Buf)-1, ' '); } Buf[last] = ' '; if (n < 127) Buf[n] = 0; last = n; return(Buf); } int CheckBreak() { if (SetSignal(0,0) & (SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D)) { puts("^C"); return(1); } return(0); } void ResetBreak() { SetSignal(0, SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D); } &len, 4)/ char *dir = NULL; printf("PutFiles V%s%s\n", VERSION, PUTFILES_VERSION); ac = DoOption(ac, av, "N%sd%s", &host, &dir); onbreak(brk); if (ac <= 1) { puts("putfiles [-Nnetid] [-dremotedir] file/dir file/dir ...."); exit(1); } chan = DOpen(host, PORT_FILECOPY, -80, 126); if (!chan) { puts("Unable to connect"); exit(1); } DRead(chan, &fn, 1); if (fn == 'S') { puts("Remote Server Permission Denied"); DClose(chan); exit(1); } if /r#2(fn != 'Y') { puts("Remote Server Software Error"); DClose(chan); exit(1); } if (dir) { if (writehdr(chan, 'C', dir, 0) != 'Y') { printf("Remote directory unavailable: %s\n", dir); goto fail; } } for (i = 1; i < ac; ++i) { if (putname(chan, av[i]) < 0) break; } fail: printf("\nclosing... "); fflush(stdout); DClose(chan); puts("done"); } int putname(chan, file) void *chan; char *file; { long lock = Lock(file, SHARED_LOCK); /e? long dirl; int ret = 1; FIB *fib = (FIB *)malloc(sizeof(FIB)); printf("%-20s ", file); if (lock == NULL || !Examine(lock, fib)) { if (lock) UnLock(lock); free(fib); puts("NOT FOUND"); return(1); } if (fib->fib_DirEntryType > 0) { char *dirname = (fib->fib_FileName[0]) ? fib->fib_FileName : "ram"; puts("DIR"); dirl = (long)CurrentDir(lock); if (writehdr(chan, 'X', dirname, 0) != 'Y') { puts("Remote unable to make directory"); goto f1(J+ if (n < 0) notdone = 0; } Write(fh, "ENDCLI\n", 7); Write(fh, "ENDCLI\n", 7); Close(fh); } DClose(chan); FreeSignal(sig); puts("DONE"); } } proc->pr_WindowPtr = oldwptr; /* REMOVED if (mycos) { Close(proc->pr_COS); proc->pr_COS = NULL; } if (mycis) { Close(proc->pr_CIS); proc->pr_CIS = NULL; } */ DUnListen(port); } (buf, "dpipe:%s/Mctns%ld", pname, sig); fh = (long)Open(buf, 1006); if (fh) { char- le exists, try to append to * it. */ int GetFile(hdr, stab) HDR *hdr; int stab; { long Fh = NULL; long pos = 0; short error = 0; printf("%s%-20s ", NSpaces(stab), hdr->Str); fflush(stdout); if (ContMode) { SetProtection(hdr->Str, 0); /* make sure it's r/w */ if (Fh = Open(hdr->Str, 1005)) { /* already exists */ long len; Seek(Fh, 0L, 1); len = Seek(Fh, 0L, 0); /* get length */ if (len > hdr->Val) { Cl+} } fflush(stdout); buf[0] = 0; ok = DStat(host, (APTR)buf, 2048); if (ok) write(1, buf, strlen(buf)); else puts("DNET master port for network not found"); } )   uscli.c- }ose(Fh); printf("Cont Error, local file is larger than remote!: %s\n", hdr->Str); puts("(not downloaded)"); return(0); } if (len == hdr->Val) { Close(Fh); if (error = WriteHeader('S', NULL, 0)) return(LostChannel()); puts("HAVE IT, SKIP"); return(0); } printf("(HAVE %ld/%ld) ", len, hdr->Val); hdr->Val -= len; /* that much less */ pos = len; /* start at offset */ } } if (!Fh) { Fh = Open(hdr->Str, 1006); if (!Fh) { -)K This command assumes the file(s) on both machines have not * been modified since the first attempt. No other checking * is done at the moment. */ #include "defs.h" void main ARGS((int, char **)); typedef struct { char Cmd; char Str[128]; long Val; } HDR; extern int Enable_Abort; char Buf[4096]; short ContMode; char *NetId; long LocalDirLock; void *Chan; void fail ARGS((int)); int CheckNoPath ARGS((char *)); int LostChannel ARGS((void)); void Unkn-@ownCmd ARGS((HDR *)); int GetFile ARGS((HDR *, int)); int GetDir ARGS((HDR *, int)); int WriteHeader ARGS((char, char *, long)); int ReadHeader ARGS((HDR *)); char *NSpaces ARGS((int)); int CheckBreak ARGS((void)); void ResetBreak ARGS((void)); int brk() { return(0); } void main(ac,av) int ac; char *av[]; { HDR Hdr; short error; onbreak(brk); #ifndef LATTICE Enable_Abort = 0; #endif printf("GetFiles V%s%s\n", VERSION, GETFILES_VERSION); ResetBreak(); -n { char *ldir = ""; FIB *fib = malloc(sizeof(FIB)); ac = DoOption(ac, av, "N%sd%sc", &NetId, &ldir, &ContMode); if (ac <= 1) { puts("GETFILES [-Nnetid -dlocaldir -c] remotefile/dir ..."); fail(22); } LocalDirLock = Lock(ldir, SHARED_LOCK); if (!LocalDirLock && ldir[0]) { /* couldn't find it, try to make it */ if (LocalDirLock = (long)CreateDir(ldir)) { UnLock(LocalDirLock); LocalDirLock = Lock(ldir, SHARED_LOCK); } } if (!LocalDirLock || !Exami-k~ane(LocalDirLock, fib) || fib->fib_DirEntryType < 0) { printf("Unable to CD or create local directory: \"%s\"\n", ldir); fail(21); } } Chan = DOpen(NetId, PORT_GFILECOPY, 126, -80); if (!Chan) { puts("Unable to connect"); fail(20); } error = WriteHeader('H', "Hello, getfiles client V1.30", 0); if (error) fail(LostChannel()); switch(ReadHeader(&Hdr)) { case -1: fail(LostChannel()); case 'H': printf("%s\n", Hdr.Str); break; } -C{ short i; for (i = 1; i < ac; ++i) { short error; error = WriteHeader('G', av[i], 0); if (error) fail(LostChannel()); switch(ReadHeader(&Hdr)) { case -1: fail(LostChannel()); case 'N': printf("Remote error on %s: %s\n", av[i], Hdr.Str); break; case 'F': error = CheckNoPath(Hdr.Str); if (!error) { long olddir = (long)CurrentDir(LocalDirLock); error = GetFile(&Hdr, 0); CurrentDir(olddir); } break; case 'D': -3L error = CheckNoPath(Hdr.Str); if (!error) { long olddir = (long)CurrentDir(LocalDirLock); error = GetDir(&Hdr, 0); CurrentDir(olddir); } break; case 'S': printf("Access Violation: %s\n", Hdr.Str); break; default: UnknownCmd(&Hdr); error = 1; break; } if (error) fail(error); } if (!error) { error = WriteHeader('E', "bye", 0); if (error) fail(LostChannel()); } } fail(0); } void fail(code) { if (Chan) -XR4 DClose(Chan); if (LocalDirLock) UnLock(LocalDirLock); exit(code); } int CheckNoPath(str) char *str; { while (*str) { if (*str == '/' || *str == ':') { puts("SECURITY ALERT: Illegal path spec received"); return(40); } ++str; } return(0); } int LostChannel() { puts("DATA CHANNEL LOST"); return(10); } void UnknownCmd(hdr) HDR *hdr; { printf("UnRecognized command code: %02x\n", hdr->Cmd); } /* * retrieve a file. If ContMode set and fi" ,O(&iocr); CloseDevice(&iocw); DeletePort(iocw.io_Message.mn_ReplyPort); CloseWindow(win); } DClose(chan); { MSG *msg; msg = AllocMem(sizeof(MSG), MEMF_PUBLIC); Forbid(); PutMsg(HdPort, msg); } } else { Forbid(); Signal(HdPort->mp_SigTask, 1 << HandShakeSig); } RemTask(NULL); } void HandleIoctl(cmd, val, aux, win, iocw, igns) short cmd, val; char aux; WIN *win; IOCON *iocw; short *igns; { static short saverows; short height" w5, width; short dx, dy; switch(cmd) { case CIO_SETROWS: saverows = val; break; case CIO_SETCOLS: width = val * win->RPort->TxWidth + win->BorderLeft + win->BorderRight; height= saverows * win->RPort->TxHeight + win->BorderTop + win->BorderBottom; dx = win->WScreen->Width - (win->LeftEdge + width); if (dx > 0) dx = 0; if (-dx > win->LeftEdge) { dx = -win->LeftEdge; width = win->WScreen->Width; } dy = win->WScreen->Height - (win->TopEdge + heig" `~ht); if (dy > 0) dy = 0; if (-dy > win->TopEdge) { dy = -win->TopEdge; height = win->WScreen->Height; } if (dx || dy) { MoveWindow(win, dx, dy); } if (win->Width != width || win->Height != height) { SizeWindow(win, width - win->Width, height - win->Height); ++*igns; } break; } } void setsize(iocw, chan, win) IOCON *iocw; void *chan; WIN *win; { struct ConUnit *cu = (struct ConUnit *)iocw->io_Unit; static char Term[64]; iocw->io"N._Data = (APTR)"\033c\033[20h\033[t\033[u"; iocw->io_Length = 13; DoIO(iocw); if (chan) { DIoctl(chan, CIO_SETROWS, (uword)(cu->cu_YMax+1), 0); DIoctl(chan, CIO_SETCOLS, (uword)(cu->cu_XMax+1), 0); } sprintf(Term, "STERM %ld x %ld", cu->cu_YMax+1, cu->cu_XMax+1); SetWindowTitles(win, Term, (char *)-1); } dx = 0; if (-dx > win->LeftEdge) { dx = -win->LeftEdge; width = win->WScreen->Width; } dy = win->WScreen->Height - (win->TopEdge + heig(qPtr; proc->pr_WindowPtr = (APTR)-1; /* REMOVED proc->pr_ConsoleTask = DeviceProc("dpipe:"); if (!proc->pr_CIS) { mycis = 1; proc->pr_CIS = Open("nil:", 1006); } if (!proc->pr_COS) { mycos = 1; proc->pr_COS = Open("nil:", 1006); } */ for (;;) { rmask = Wait(mask); if (rmask & SIGBREAKF_CTRL_C) break; if (chan = DAccept(port)) { long fh; long mask; long fhmask, smask; short sig; char pname[16]; char buf[64];(ɱ4k if (GetEnvVal(DNET_LEVEL) < 9) { DWrite(chan, "env:DNET_LEVEL must be >= 9\n", 18); DClose(chan); continue; } sprintf(pname, "%08lx", namei++); sprintf(buf, "newshell nil: dpipe:%s/St FROM s:remote-startup", pname); DExec(chan, buf); sig = AllocSignal(-1); fhmask = 1 << sig; smask = 1 << ((struct MsgPort *)chan)->mp_SigBit; sprintf(buf, "dpipe:%s/Mctns%ld", pname, sig); fh = (long)Open(buf, 1006); if (fh) { char$6/ mask, rmask; onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("SPrint", VERSION, SPRINT_VERSION); _exit(0); } port = DListen(PORT_PRINTER); WaitPort(&myproc->pr_MsgPort); ReplyMsg(GetMsg(&myproc->pr_MsgPort)); mask = SIGBREAKF_CTRL_C|(1 << port->mp_SigBit); for (;;) { rmask = Wait(mask); if (rmask & SIGBREAKF_CTRL_C) break; while (chan = DAccept(port)) { if (GetEnvVal(DNET_WRITE) >= 6) { DWrite(chan, "Accepted\n", 9);$5? printfile(chan); } else { DWrite(chan, "Permission Denied\n", 18); } DClose(chan); } } DUnListen(port); } void printfile(chan) void *chan; { long n, fh; char rc = 0; char buf[256]; if (fh = Open("PRT:", 1006)) { rc = 1; while ((n = DRead(chan, buf, 256)) > 0) { if (Write(fh, buf, n) != n) { rc = 0; break; } } Close(fh); } DWrite(chan, &rc, 1); } *myproc = (PROC *)FindTask(NULL); void *chan; long &P+.ary LIB; typedef struct FileInfoBlock FIB; typedef struct Message MSG; # sterm.c(i notdone = 1; DWrite(chan, "Amiga CLI running\n", 20); while (notdone) { char buf[256]; int n; mask = Wait(fhmask | smask | SIGBREAKF_CTRL_C); while ((n = Read(fh, buf, 256)) > 0) { DWrite(chan, buf, n); } if (n < 0) notdone = 0; while ((n = DNRead(chan, buf, 256)) > 0) { /* REMOVED DWrite(chan, buf, n); */ Write(fh, buf, n); } if (n == -2) { short pv; char pa; DGetIoctl(chan, &pv, &pa); } else(-BqndTask(NULL); void *chan; long mask, rmask; long namei = (long)proc; APTR oldwptr; /*short mycis = 0, mycos = 0;*/ onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("SCli", VERSION, SCLI_VERSION); _exit(0); } port = DListen(PORT_AMIGASHELL); WaitPort(&proc->pr_MsgPort); ReplyMsg(GetMsg(&proc->pr_MsgPort)); if (!port) _exit(1); mask = SIGBREAKF_CTRL_C|(1 << port->mp_SigBit); oldwptr = proc->pr_WindowWYn -= n; } done: free(fib); if (fh) Close(fh); if (lock) UnLock(lock); return((int)error); } int WriteHeader(c, str, len) char c; char *str; long len; { ubyte sl; if (str == NULL) str = ""; sl = strlen(str); if (DWrite(Chan, &c, 1) < 0) return(1); if (DWrite(Chan, &sl,1) < 0) return(1); if (DWrite(Chan, str, sl) != sl) return(1); if (DWrite(Chan, &len, 4) != 4) return(1); return(0); } int ReadHeader(hdr) HDR *hdr; { ubs!yte sl; ubyte cmd; hdr->Cmd = -1; if (DRead(Chan, &cmd, 1) != 1) return(-1); if (DRead(Chan, &sl, 1) != 1) return(-1); if (sl >= sizeof(hdr->Str)) { return(-1); } if (DRead(Chan, hdr->Str, sl) != sl) return(-1); hdr->Str[sl] = 0; if (DRead(Chan, &hdr->Val, 4) != 4) return(-1); hdr->Cmd = cmd; return((int)hdr->Cmd); } led! */ error = 10; goto done; } if (DWrite(Chan, Buf, n) != n) { error = 10; goto done; } le"  CheckIO(&iocr)) { short i; char *ptr; WaitIO(&iocr); ptr = (char *)iocr.io_Data; if (iocr.io_Actual > 0) { for (i = 0; i < iocr.io_Actual; ++i) { if (ptr[i] == 13) ptr[i] = 10; } DWrite(chan, ptr, i); iocw.io_Data = (APTR)ptr; iocw.io_Length = i; DoIO(&iocw); } iocr.io_Data = (APTR)conc; iocr.io_Length = sizeof(conc); SendIO(&iocr); } if (mask & cmask) { long n; char buf[32]; wh" gile (n = DNRead(chan, buf, sizeof(buf))) { if (n == -2) { short cmd, val; char aux; cmd = DGetIoctl(chan, &val, &aux); if (cmd >= 0) HandleIoctl(cmd, val, aux, win, &iocw, &ignorens); continue; } if (n < 0) { notdone = 0; break; } if (buf[0] == 3) /* remote ^C -- done */ notdone = 0; iocw.io_Data = (APTR)buf; iocw.io_Length = n; DoIO(&iocw); } } } AbortIO(&iocr); WaitI"гendShakeSig; int spawn_handler ARGS((void)); void __saveds term_task ARGS((void)); void HandleIoctl ARGS((short, short, char, WIN *, IOCON *, short*)); void setsize ARGS((IOCON *, void *, WIN *)); int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char *str; { MSG *msg; long mask, pmask, hdmask; PROC *proc = (PROC *)FindTask(NULL); onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("STerm", VERSION, STERM_VERSION)"ўS; _exit(0); } LisPort= DListen(PORT_IALPHATERM); WaitPort(&proc->pr_MsgPort); ReplyMsg(GetMsg(&proc->pr_MsgPort)); if (!LisPort) exit(1); HdPort = CreatePort(NULL, 0); HandShakeSig = AllocSignal(-1); pmask = 1 << LisPort->mp_SigBit; hdmask= 1 << HdPort->mp_SigBit; IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0); GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0); while (mask = Wait(SIGBR" yEAKF_CTRL_C|pmask|hdmask)) { if (mask & SIGBREAKF_CTRL_C) break; if (mask & hdmask) { while (msg = GetMsg(HdPort)) { --NHandlers; FreeMem(msg, sizeof(*msg)); } } if (mask & pmask) { while (spawn_handler()) ; } } DUnListen(LisPort); while (NHandlers) { WaitPort(HdPort); msg = GetMsg(HdPort); FreeMem(msg, sizeof(*msg)); --NHandlers; } DeletePort(HdPort); CloseLibrary((LIB *)IntuitionBase); CloseLibrary((LIB *)GfxBase); } /"n* * Spawn a handler to accept the new connection, if any. Task sends * a message to HdPort when through. */ int spawn_handler() { long oldhan = NHandlers; CreateTask("Term.channel", 0, (APTR)term_task, 2048); Wait(1 << HandShakeSig); return (oldhan != NHandlers); } static NW Nw = { 64, 64, 400, 100, -1, -1, CLOSEWINDOW|NEWSIZE, WINDOWSIZING|WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|ACTIVATE|NOCAREREFRESH, NULL, NULL, (unsigned char *)"DNET-Term", NUL"MsbL, NULL, 32, 32, -1, -1, WBENCHSCREEN }; void __saveds term_task() { void *chan; long imask, cmask, conmask; WIN *win; char notdone = 1; short ignorens = 0; char conc[4]; IOCON iocw; IOCON iocr; #ifndef LATTICE geta4(); #endif chan = DAccept(LisPort); if (chan) { DQueue(chan, 32); DIoctl(chan, CIO_MODE, 7, 0); ++NHandlers; Signal(HdPort->mp_SigTask, 1 << HandShakeSig); if (win = OpenWindow(&Nw)) { iocw.io_Command = CMD_WRITE"e; iocw.io_Data = (APTR)win; iocw.io_Message.mn_Node.ln_Type = NT_MESSAGE; iocw.io_Message.mn_ReplyPort = CreatePort(NULL,0); conmask = 1 << iocw.io_Message.mn_ReplyPort->mp_SigBit; OpenDevice("console.device", 0, &iocw, 0); iocr = iocw; iocr.io_Command = CMD_READ; imask = 1 << win->UserPort->mp_SigBit; cmask = 1 << ((PORT *)chan)->mp_SigBit; iocr.io_Data = (APTR)conc; iocr.io_Length = sizeof(conc); SendIO(&iocr); sets">ize(&iocw, NULL, win); while (notdone) { long mask; mask = Wait(imask|cmask|conmask); if (mask & imask) { IMESS *im; while (im = (IMESS *)GetMsg(win->UserPort)) { switch(im->Class) { case CLOSEWINDOW: notdone = 0; break; case NEWSIZE: if (ignorens) { --ignorens; setsize(&iocw, NULL, win); } else { setsize(&iocw, chan, win); } break; } ReplyMsg((MSG *)im); } } if ((mask & conmask) &&ret = -1; unsigned char co, nl, rc; fib = (FIB *)AllocMem(sizeof(FIB), MEMF_PUBLIC); if ((lock = Lock(dirname, SHARED_LOCK)) == NULL) { if (lock = CreateDir(dirname)) { UnLock(lock); lock = Lock(dirname, SHARED_LOCK); } } if (lock == NULL || !Examine(lock,fib) || fib->fib_DirEntryType < 0) { if (lock) UnLock(lock); rc = 'N'; DWrite(chan, &rc, 1); FreeMem(fib, sizeof(FIB)); return(1); } rc = 'Y'; DWrite(chan, &rc, 1); oldlock ki= CurrentDir(lock); while (DRead(chan, &co, 1) == 1) { if (DRead(chan, &nl, 1) != 1 || DRead(chan, Name, nl) != nl) break; if (DRead(chan, &len, 4) != 4) break; switch(co) { case 'C': { char co = 'N'; long lock = Lock(Name, SHARED_LOCK); /* CD to dir */ if (!lock) { if (lock = CreateDir(Name)) { /* or create */ UnLock(lock); lock = Lock(Name, SHARED_LOCK); } } if (lock) { co = 'Y'; UnLock(CurrentDir(lock)); } ͙^ DWrite(chan, &co, 1); } break; case 'W': if (putfile(chan, Name, len) < 0) { ret = -1; goto fail; } break; case 'X': if (putdir(chan, Name) < 0) { ret = -1; goto fail; } break; case 'Y': ret = 1; co = 'Y'; DWrite(chan, &co, 1); goto fail; default: co = 'N'; DWrite(chan, &co, 1); break; } } fail: UnLock(CurrentDir(oldlock)); FreeMem(fib, sizeof(FIB)); return(ret); } int putfile(ch a@vuan, name, len) void *chan; char *name; int len; { long fh = Open(name, 1006); long n, r; char rc; if (fh == NULL) { rc = 'N'; DWrite(chan, &rc, 1); return(0); } rc = 'Y'; DWrite(chan, &rc, 1); while (len) { r = (len > sizeof(Buf)) ? sizeof(Buf) : len; n = DRead(chan, Buf, r); if (n != r) break; if (Write(fh, Buf, n) != n) break; len -= n; } Close(fh); if (len) { unlink(name); return(-1); } rc = 'Y'; DWrite(c Nw han, &rc, 1); return(0); } break; case 'W': if (putfile(chan, Name, len) < 0) { ret = -1; goto fail; } break; case 'X': if (putdir(chan, Name) < 0) { ret = -1; goto fail; } break; case 'Y': ret = 1; co = 'Y'; DWrite(chan, &co, 1); goto fail; default: co = 'N'; DWrite(chan, &co, 1); break; } } fail: UnLock(CurrentDir(oldlock)); FreeMem(fib, sizeof(FIB)); return(ret); } int putfile(ch 1* done; switch(ReadHeader(&Hdr)) { case 'Y': break; case 'S': goto done; case 'N': error = 1; break; default: error = 1; break; } if (error) goto done; while (ExNext(lock, fib)) { /* try to give him the files */ if (fib->fib_DirEntryType > 0) { long oldlock = CurrentDir(lock); error = PutDir(fib->fib_FileName, access); CurrentDir(oldlock); if (error) break; } else { long oldlock = CurrentDir(lock); error = ݨ; PutFile(fib->fib_FileName, access); CurrentDir(oldlock); if (error) break; } } if (!error) WriteHeader('E', "Possible Disk Error", 0); done: free(fib); if (lock) UnLock(lock); return((int)error); } int PutFile(name, access) char *name; int access; { long lock = Lock(name, SHARED_LOCK); long fh = NULL; FIB *fib = malloc(sizeof(FIB)); static HDR Hdr; long len; short error = 0; short ac; if (!lock || !Examine(lock, fiz b)) { WriteHeader('N', "Possible Disk Error", 0); error = 1; goto done; } ac = ExtractFieldVal(fib->fib_Comment, FS_ACCESS, NULL); if (ac >= 0 && ac > access) { error = WriteHeader('S', fib->fib_FileName, 0); goto done; } fh = Open(name, 1005); if (fh == NULL) /* don't do anything if unable to open it */ goto done; Seek(fh, 0L, 1); len = Seek(fh, 0L, 0); if (error = WriteHeader('F', fib->fib_FileName, len)) goto done; switch(RG/DNET_LEVEL" #define DNET_GROUP "DNET_GROUP" #define FS_GROUP "GR=" /* MUST INCLUDE '=' cause I use strncmp() */ #define FS_ACCESS "AC="    spasswd.cˋeadHeader(&Hdr)) { case 'Y': Seek(fh, Hdr.Val, -1); /* start pos. */ len -= Hdr.Val; if (len < 0) len = 0; break; case 'S': goto done; case 'N': error = 1; break; default: error = 1; break; } if (error) goto done; while (len) { long n = (len > sizeof(Buf)) ? sizeof(Buf) : len; if (Read(fh, Buf, n) != n) { /* read failed! */ error = 10; goto done; } if (DWrite(Chan, Buf, n) != n) { error = 10; goto done; } leoGwYMS) -o%(left) %(right) clean: -delete $(OD)#?.o $(SYMS) : defs.h lc $(CFLAGS) -ph -o%(left) syms.c H \scopy.c%@; typedef RtOpen RtDup; typedef struct { long DirHandle1; long DirHandle2; } OpRename; typedef struct { long Error; } RtRename; ; typedef struct { long Handle; /* file handle to read from */ long Bytes; /* # of bytes to read */ } OpWrite; typedef struct { long Bytes; /* < 0 == error */ } RtWrite; typedef struct { long Handle; } OpClose; typedef struct { long Handle; long Offset; long How;.[GS((void *, char *, int)); int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char *str; { struct MsgPort *port; PROC *myproc = (PROC *)FindTask(NULL); void *chan; long savedir; long mask, rmask; onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("SCopy", VERSION, SCOPY_VERSION); _exit(0); } port = DListen(PORT_FILECOPY); { struct Message *msg; char *dir; WaitPort(&myproc->pr_7.MsgPort); msg = GetMsg(&myproc->pr_MsgPort); dir = (msg->mn_Node.ln_Name) ? msg->mn_Node.ln_Name : ""; savedir = Lock(dir, SHARED_LOCK); /* duplicate current dir */ ReplyMsg(msg); } if (!savedir) { DUnListen(port); _exit(1); } savedir = CurrentDir(savedir); /* CD dup, returns original */ mask = SIGBREAKF_CTRL_C|(1 << port->mp_SigBit); for (;;) { long dupdir = DupLock(myproc->pr_CurrentDir); rmask = Wait(mask); if (rmask & SIGBREAKF_CuTRL_C) { UnLock(CurrentDir(dupdir)); break; } while (chan = DAccept(port)) { if (GetEnvVal(DNET_WRITE) >= 9) putdir(chan, ""); else DWrite(chan, "S", 1); DClose(chan); } UnLock(CurrentDir(dupdir)); } UnLock(CurrentDir(savedir)); /* restore original */ DUnListen(port); } static char Name[128]; int putdir(chan, dirname) void *chan; char *dirname; { FIB *fib; long lock; long oldlock; long len; int  &7S *str; { struct MsgPort *port; PROC *myproc = (PROC *)FindTask(NULL); void *chan; long mask, rmask; short res; onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("SPasswd", VERSION, SPASSWD_VERSION); _exit(0); } port = DListen(PORT_PASSWD); WaitPort(&myproc->pr_MsgPort); ReplyMsg(GetMsg(&myproc->pr_MsgPort)); mask = SIGBREAKF_CTRL_C|(1 << port->mp_SigBit); for (;;) { rmask = Wait(mask); if (rmask & SIGBRE ׫w AKF_CTRL_C) break; while (chan = DAccept(port)) { res = do_password(chan); Delay(10L); /* prevent name scan */ if (res) DPuts(chan, "user-password accepted\n"); else DPuts(chan, "user-password failed\n"); Delay(50L); /* prevent name scan */ DClose(chan); } } DUnListen(port); } int do_password(chan) void *chan; { static char user[64]; static char pass[64]; static char buf[128]; static char suser[64]; s -4tatic char spass[64]; short res; long fh; short i, n; int s_level, s_read, s_write; DPuts(chan, "User Name: "); res = DGetLine(chan, user, 64); if (res < 0) return(0); DIoctl(chan, CIO_MODE, 0, 0); DPuts(chan, "Password : "); res = DGetLine(chan, pass, 64); DIoctl(chan, CIO_MODE, 7, 0); if (res < 0) return(0); /* * search for USER entry in s:dnet.config */ fh = Open("s:dnet.config", 1005); if (fh == NULL) { D WPuts(chan, "s:dnet.config does not exist\n"); return(0); } while ((n = Read(fh, buf, 256)) > 0) { for (i = 0; i < n - 1; ++i) { if (buf[i] == '\n') break; } buf[i] = 0; Seek(fh, (i + 1) - n, 0); if (strncmp(buf, "USER", 4) == 0) { suser[0] = spass[0] = 0; s_level = s_read = s_write = 0; sscanf(buf + 4, "%s %s %d %d %d", suser, spass, &s_level, &s_read, &s_write); if (strcmp(user, suser) == 0 && strcmp(pass, spass) == 0) { Close(fh); sprint ^ 6f(buf, "%d", s_level); SetDEnv(DNET_LEVEL, buf); sprintf(buf, "%d", s_read); SetDEnv(DNET_READ, buf); sprintf(buf, "%d", s_write); SetDEnv(DNET_WRITE, buf); return(1); } } } Close(fh); return(0); } void DPuts(chan, str) void *chan; char *str; { DWrite(chan, str, strlen(str)); } int DGetLine(chan, buf, max) void *chan; char *buf; short max; { short i = 0; short n; short notdone = 1; char c; while (notdone) { n = DRead(chan, &c, i, 1); if (n == 0) { /* ioctl, ignore */ short pv; char pa; DGetIoctl(chan, &pv, &pa); continue; } if (n < 0) { buf[i] = 0; return(-1); } switch(c) { case 8: /* BS */ if (i) --i; break; case 10: /* eol */ case 13: notdone = 0; break; default: if (i < max - 1) buf[i++] = c; break; } } buf[i] = 0; return(1); } f (strcmp(user, suser) == 0 && strcmp(pass, spass) == 0) { Close(fh); sprintsse connections. * * Receive: * 'V' NLEN NAME FILELEN -receive compressed file (V1.1) * 'W' NLEN NAME FILELEN -receive file * 'X' NLEN NAME 0 -create and CD into directory * 'Y' 0 0 -restore previous directory * 'C' NLEN NAME 0 -set destination directory * * length in 68000 longword format. */ #include "defs.h" char Buf[8192]; char Buf2[8192]; int putdir ARGS((void *, char *)); int putfile ARϲtShfp!@"fNuL` op"g8H ",yLR.'"g$A* f "jpN"fNvLDNuLH0"@Jg,"QJg$ ) gg$@&H fJ*f L NupL Nu o PJg NupNuH 0&H$KJg$pA=0g rt `rR` L NupaNU"Or NA0Jf fBN]NuNU"O"AA0f fBN]Nu/ "Hrp/ +g -fRH0m n $҂ҁҀ` -fD$ S _ Nu/.R  l)H.NuNUH0&o$oB)KHmA"JN lB ,/}6L N]NuJjDJj Da DNuaDDNuJj DaDNu/HA4f"H@HAHB4g0H@40HB2$Nu/v AdQC AdYC A dUCJAkSC4HBBBHC604HAdSCЁdr2HCH@A&$Nu0123456789abcdefQO"O2Af "ᲉfBPONuNUH'0&H$I~|zp| r+At+BA@@+A+A+HJg,p@ gW@gQ@gU@f~`|` z`|R`r0fRAp*f RX+PR` KCNr.f Rp*f RX+PR` KCNrlf |R`rhfRr@8 AXgnA gSAg$A gSAg@WAgUAgWAgB`J-g RX ` RX +@l rD+AJgp-` Jgp+`p @p"-肀pgRR - mN+@ -Jjr+A -"-Ho* m"HN&p-"- m`Sd -+@ѭA+HJg$| `J-g RX ` RX +@`pJ-g RX ` RX +@J-g m0r+A+H mN+@`@|0 -Jjp+@J-g RX ` RX +@J-g m0xr+A+H mNH+@pX-fAN2` RX"P+IfA+H mJf S+H -Jk$o +@`p+@ RX @B-`p`z -"-lt+B`Jg.Smp m+H mN`SmJ NUH0&m$m .-+K+J|z mJ(6gp`@Jg:Jf m,xN//-/-N*O *Jk܅ۭ mJ(6g L N]NuNpazNUH70&m$m .-+K+J| mJ(6gp`Jg m&,xN+@Jf mN+@Jgp m(f4"mJ-,-*- fG8/ HmNPO+@r~o*tl*o,l, @J"gZ;| r2+A+@+@"A+E h"C,xo NHmN:XO-Jf - m1@4/N* -` /-N"pLN]NuN0NNN ,dos.libraryRoot@DNET.UNIT.%s%sDNET.UNIT.0 ((((( H ((((( H w1fk L / gc2fh2 f^ e,",i"H?>p,` L|1澄H?>QHA0L|2`# # Qd0fNu QdNu2fh2 f^ e,",i"H?>p,` L|H|QHA0L|2`""Qd0fNuQdNur`/ o / (c` QNuH?>$gS$BB4HB&(*,."B$B&B(B*B,Br0k H?~jA2<Ak!AjA`QL|NuLH2,yL"|||/nEG$&%J#O$IN/ a6X"LLNu op (g Nu op hJg Nu oH2:$H&h,yL *f+pN`N"JNN LLNuLH 8$@&A(OtpfJg *fP Bfp`0@))RBR`SBk0@ tJgJBk|0@$tRR&tR` ?fJfDJBf`P Ae Zb  Ae Zb g JBf`JfSJfS`:pLNu"yL"iggHpa@L!IRhNuL` opfpNupNuL` opfNuH",yLR.'g2?/.// pN0/ ofg P` NvLDNu ovHj\N)@( l(J$POg l("h$/NXO/,(/ N)l(,PON l N l!@gHxHz*N l!@ PO/,,?,0NBgN PO$_N]Nu*NUH 0$m mJg m (( D (&@`&lHHЭ T9@2B0,2H/N)@4POfL 0N]NuH:? KR//,4N~0H @4CDf?-/ /,4N: l4B0P9|00HЬ4&@R$KOH:| g| g| g | g| fR`  mz "f.R KRH:g JR|"f "fR`B*```8 KRH:g&| g | g| g| g| g JR` JRBJEfSRl0`ZBB0,=|0R@H/N)@,POfBl0`z&l4`$0H l,! K JfS0R@HREl0m0H l,B` 0<`0/ oJfSH"oS@WgB /NuL 2/ `WgRA`BQNuNUJ8g l8N?-NTON]NuNU/0-H+@Jg(x` ?NTORDlm0,//,NPOJ<`4><`,"m i/a.a"m i .+@a.a mJfS" @JfS$;AH;BH҂T+@ r,xN:"m i.+@a @+h"m i.a @+h m"mf m"HE"mf0-H2-HЁTHxHm//-HxHmHxrajO 2-H4-H҂T;@ "m,xN.Jmg><`Jg ><`><JgJGg mB H!@/-aXO`r2,lPN:,xN|aJfHlTNXOJg ,xNv`F lDB"lP i"a#q ( @C"(+@+A+IJg mHg+H m +@` mHf"m"/aXOJpg /,pN8XOBp"lP,xNbLN]NuNUH0&m k"S$l@\'J#K "#J+H+I,xNL N]Nu/ l@t$l@"jpVDHH$_NuNUH&m +@Jg("@ i+H Cf `/ *H~,xN*_At LN]NuNU/ &m k+H f^HxaXO+@p"<,xN:+@"@A`N m"m#H !Kp!@"l@\!I ,D!@'H &_N]NuNUH2&m$m KJfS "KS+I me p/gS ^OO)@pf|` m ([gWgSg ]g RSgSg Sg SgSg Sg tSgDSgSg8SglSgVSg Sg RSgUg xr3g>[gg \r gSgSgSgSgp` >|` <"m i/a .a"m i.+@a h @+h m (;@ mJfS RHxHm//-HxHmHxOa O *JEg><` -rf><` "-Jo,+@p/r///HxHmHxCa O><` z mJf"m i/a XO"@ i0+HHm/a lPO m"( A!@$+@` 4 m+h m+h m 'X+hHxHmBBHxHmHxRa O;@gp+@ -Jon"m i///,pN O m!m ` m+h m+h m (+@ hHxHm"m/)/HxHmHxWa O;@gp+@ m!m `R"m i+H g Cg |4UUH*H~,xNL `.+hp/r///HxHmHxCa .a OHlTN XOJf|` m+h m+h m+h (R+@HxHmBBHx HmHxSa O;@gp+@ -Jj><`t m!m `f"m i/aXO m"(+@+A @4(JBj><` |2+h A+PHxHmBBHxHmHxNa 0O;@fpf><`HxHm/,pN O Sgp@rAp-/Hl/,pN O r-gp@rA mR!m!mtBx -!@| -!@C$IJfS rje||? B( `$C EfA"HJfS m@p@@CA"""`"m i/aDXO m"(t A "@6)H!C!it!Bx$) !B|$) !B$i0JfS0+@H$ vje||? B( `(E &i0f"m i0JfS0 $m@p m@@E *JA$$$$`< m (~+@JGg m+H` m (+@ @~Hx$/N 6pR m!@ ,lR!@ !@!|!|DOS ,D!@Hl`N O m!@ `"m i/a @+hHxHmBBHxHmHxP+@aO ;@gp+@pf><`^HxHm/,pN pO Sgp@rAp-/Hl/,pN BO r-Űgp@rAHmHla.+@aPO m!@ `"m i/at.a"m i.+@a @+h mJfS Rr.Hm//-/HmHxDaO;@fJgn><`f"mC_ i/a.aH"m i.+@a @+h mJfS RHxHm//-HxHmHxMa.O ;@gp+@pf><`Hm/-a.+@arPO m!@ `"m i/a\.a"m i.+@a @+h;|"mJfS" RHxHm//-HxHmHxO+@aO ;@g><`Jpf><`: mJf $m"j0+IHm/-a8.+@aPO m!@ `"m i/aF @+hHxHmBBHxHmHxd+@aO ;@g><`pf><`Hm m/(0a.+@a0PO m!@ `"m i"ˆ on the DNETDIR enviroment variable. Do not forget this. Copy the UNIX dnet.servers file into ~/.DNET (or whatever directory you had defined from DNETDIR. ******** RUN ******* Sequence of events (basic options, see dnet.doc for other options). 2400 baud is assumed in the below example, simply change where it applies if running at a different baud rate. (1) on amiga (i) The connection to your system is 7 bits and parity is ignored. 1> r;E]un dnet -b2400 -P0 -Z0 (ii) The connection to your system is 7 bits even parity and parity is enforced. 1> run DNET -b2400 -P0 -Z2 (iii) The connection to your system is 8 bits and supports raw 8 bit transfers (no parity). 1> run DNET -b2400 -P0 -Z0 -m0 Other combinations may apply, see doc/dnet.doc for details. The -P option selects the protocol and -Z selects parity. (2) From small DNet window now open on the amiga. Use the AT comman`d set or otherwise instruct your modem to dial your system. For hard connections where no modem exists this is not necessary, though with some hard connections you will need to use the SEND-BREAK menu option to send a line break to get a system prompt. Log into your UNIX account (3) From the UNIX prompt: (be sure the DNETDIR enviroment variable is set appropriately and your path contains the dnet executable and clients. (i) The connectioE@n to your system is 7 bits and parity is ignored, % dnet (ii) The connection to your system is 7 bits even parity and parity is enforced % stty -odd % dnet (iii) The connection to your system is 8 bits % dnet -m0 (4) At this point the small dnet window should disappear. After a few seconds an FTERM window should open and after another small delay give you a shell prompt. Congratulations, you are running DNet. Now you m {ay do all sorts of things. You may run other FTERM windows from your amiga (1> run fterm) and therefore have several shell windows... you can run file transfer clients (putfiles and getfiles) on either the amiga or unix sides, etc... read the documentation in the doc directory for more info. SHUTTING DOWN Logging out of an FTERM window does not kill DNet. To kill DNet use the 'quitdnet' command on the Amiga side. This should kill all connections and b $<+ring back the original small dnet window with the original shell prompt from which you should be able to log out normally. If you are unable to get the original shell prompt in the small dnet window you may have to restart the protocol (menu option) and try 'quitdnet' again. If all else fails simply hanging up the modem should work (in which case you BREAK the dnet process on the Amiga side). you a shell prompt. Congratulations, you are running DNet. Now you m` ? (e.g. 8195 for an FTERM) on the remote machine. computer B (the remote machine) looks up 8195 in the S:DNET.SERVERS file, finds the path to the server in question, and runs it automatically. PORT CLIENT SERVER PURPOSE 8192 PutFil+*as together and run multiple connections between them. For example, you can open a talk window or two or three and be doing an upload and be doing a download all at the same time. Currently, DNet can be used to connect two Amiga's together or an Amiga to a 4.2BSD/4.3BSD compatible UNIX. ** AN 8 BIT PATH IS NO LONGER REQUIRED. DNET WILL NOW RUN OVER 7 BIT PATHS. (TAB,FF,CR,LF, 0x20-0x7F). INSTALLING DNET ON YOUR AMIGA (1) ## REMOVED, was copy dres.library to lib,7Rs:. no longer required. (2) copy the DNet binary and all client and server program to somewhere accessable on your path. (3) copy s/dnet.servers to s: * modify s:dnet.servers so all server paths point to whereever you stuck the servers (4) copy s/dnet.config to s: * you may have to modify s:dnet.config too ... look into the DOC directory for more information. CALL A FRIEND WHO HAS GOT DNET INSTALLED 1> RUN DNET -X -8 -b1200 NOTE: --ހMh0 option in previous versions is now the default. Use -h1 to *enable* carrier detect checking. 7 bit mode is now the default. Use -m0 if you have an 8 bit connection and want to take advantage of it. PARITY NOTE: If your system forces parity you specify the appropriate parity option with the -Z switch, refer to dnet.doc warning: The defaults for -X (manual mode) in S:DNET.CONFIG turn off security. Please read documentation in the doc directory& for more information. This README file is only intended to get you up and running. The above line also sets the baud to 1200... the idea is you set it to what is proper for your modem. Again, read DOC/DNET.DOC for more options and information. A small DNET window should appear from which you can dialup your friend's amiga. On CONNECT, DNET should automatically adjust the baud rate. It may be necessary to modify S:DNET.CONFIG in this regard (read the docs!) After conn/& buf += n; ReplyMsg((MSG *)ior); } else { BMov((char *)ior->io_Data + ior->io_Actual, buf, bytes); len += bytes; ior->io_Actual += bytes; bytes = 0; if (ior->io_Message.mn_Node.ln_Type == NT_REQUEUE) AddHead(&chan->rdylist, (NODE *)ior); else AddTail(&chan->rdylist, (NODE *)ior); ior->io_Message.mn_Node.ln_Type = NT_REQUEUE; } break; default: ior->io_Error = 1; ReplyMsg((MSG *)ior); } } #ifdef DEBUG puts("DONE1"); #endif done: FixSignal(chan); if (chan->eof) SetSignal(1 << chan->port.mp_SigBit, 1 << chan->port.mp_SigBit); #ifdef DEBUG printf("RETURN %ld\n", len); #endif return(len); } MD_WRITE: #ifdef DEBUG printf("IOR LEN/ACT %ld/%ld\n", ior->io_Length, ior->io_Actual); #endif n = ior->io_Length - ior->io_Actual; #ifdef DEBUG if (n < 0) puts("len fail"); #endif if (n <= bytes) { BMov((char *)ior->io_Data + ior->io_Actual, buf, n); bytes -= n; len += n;  ove((NODE *)ior); ReplyMsg((MSG *)ior); Permit(); } } FixSignal(chan); if (chan->eof) SetSignal(1 << chan->port.mp_SigBit, 1 << chan->port.mp_SigBit); return(cmd); } 75  makechannel.c2 return(NULL); } void CloseCfgFile() { if (Fi) fclose(Fi); Fi = NULL; } void GetOneCfg(what) char *what; { char *str; OpenCfgFile(); str = GetCfgLine(what); CloseCfgFile(); } int ExtractFieldVal(str, field, pidx) char *str, *field; short *pidx; { short idx = (pidx) ? *pidx : 0; short flen = strlen(field); while (*str) { if (strncmp(str, field, flen) == 0) { if (pidx) *pidx = idx + flen; /* past the field but not the val */ retC*-urn(atoi(str + flen)); } ++str; ++idx; } return(-1); } ib.h" static FILE *Fi; int OpenCfgFile() { CloseCfgFile(); Fi = fopen("s:dnet.config", "r"); return (Fi != NULL); } char * GetCfgLine(what) char *what; { static char Buf[128]; register char *ptr; if (Fi) { while (fgets(Buf, sizeof(Buf), Fi)) { if (BCmp(Buf, what, 4) == 0) { Buf[strlen(Buf)-1] = 0; for (ptr = Buf + 4; *ptr == ' ' || *ptr == 9; ++ptr); return(ptr); } } } Y'>dnetport, (MSG *)&ior); WaitMsg(&ior); DeletePort(replyport); return(1); } b Adeof.c#o write queue size */ int queued; /* current # packets queued */ }; #define EFATAL 0 #define EWARN 1 #define EDEBUG 2 #define NT_REQUEUE 0x40 #define elog(how, ctl, data) _elog(__LINE__,__FILE__,how,ctl,data) extern char *Program; /* * Routines */ extern void Version ARGS((char *, char *, char *)); extern PORT *DListen ARGS((uword)); extern void DUnListen ARGS((PORT *)); extern PORT *DAccept ARGS((PORT *)); extern int DNAAccept ARGS((PORT *)); extern vo7uh&chan->rdylist); chan->chan = (long)ior->io_Unit; ior->io_Offset = (long)chan; if (host) { char buf[sizeof(DNETPORTNAME)+32]; sprintf(buf, "%s%s", DNETPORTNAME, host); ior->io_Message.mn_ReplyPort = FindPort(buf); } chan->dnetport = ior->io_Message.mn_ReplyPort; return((void *)chan); } void DeleteChannel(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; if (chan->port.mp_SigBit != DUseSignal) FreeSignal(chan->port.mp_SigBit); FreeMem(chan, sB? FreeMem(io->io_Data, io->io_Length); FreeMem(io, sizeof(IOSTD)); } --chan->queued; } else { AddTail(&chan->rdylist, (NODE *)io); } } return(error); } A  dquit.c]u izeof(CHANN)); } l.C * * (internal routine) */ #include "lib.h" short DUseSignal = -1; void * MakeChannel(ior, host) IOSTD *ior; char *host; { CHANN *chan = AllocMem(sizeof(CHANN), MEMF_PUBLIC|MEMF_CLEAR); /* Name, Pri */ chan->port.mp_Node.ln_Type = NT_MSGPORT; if (DUseSignal >= 0) chan->port.mp_SigBit = DUseSignal; else chan->port.mp_SigBit = AllocSignal(-1); chan->port.mp_SigTask = FindTask(NULL); NewList(&chan->port.mp_MsgList); NewList(O4) { io->io_Error = 1; ReplyMsg((MSG *)io); } DeleteChannel(chan); }   dcheckeof.c :1~G L N]Nu_WaitQueue^_BMov_WaitMsg_FixSignal. NUH&m.- +K m!G8LN]NuNUH0&m$m .-+K+J|z mJ(6gp`@Jg:Jf m,xN//-/-NO *Jk܅ۭ mJ(6g L N]Nu_DNReadNNUH70&m$m .-+K+J| mJ(6gp`Jg m&,xN+@Jf mN+@Jgp m(f4"mJ-,-*- fG/ HmNPO+@r~o*tl*o,l, @J"gZ;| r2+A+@+@"A+E h"C,xNHmNXO-Jf - m1@4/N -` /-NpLN]Nu=\_MakeChannel(_WaitMsg_FixSignal_DeleteChannel0\lib_dpri.c_DPrilib_dnaaccept.c_DNAAcceptlib_daccept.c_MakeChannel_DAcceptlib_dunlisten.c_DeletePort_DUnListen__MERGEDlib_dlisten.c_CreatePort_sprintf_DListenlib_dexec.c_WaitMsg_DExeclib_syms.clib_version.c_DOSBase_Versionlib_elog.c_fclose__flsbf_fprintf_Program_fopen_CloseCfgFile_GetCfgLine_OpenCfgFile__elog>GKlib_program.clib_cfg.c_atoi_strncmp_BCmp_fgets_ExtractFieldVal_GetOneCfglib_getenvval.c_free_GetDEnv_GetEnvVallib_fixsignal.c_FixSignallib_makechannel.c_NewList_DeleteChannel_DUseSignallib_waitqueue.c_WaitQueuelib_dclose.c_DCloselib_dquit.c_DQuit_DBreaklib_dstat.c_DStatlib_dioctl.c_DIoctllib_deof.c_DEoflib_dwrite.c_BMov_DWrite_DQueueFulllib_dqueue.c_DQueuelib_dread.c_DNRead_DReadlib_dnread.clib_dgetioctl.c_GetHead_DGetIoctllib_dcheckeof.c_? DCheckEoflib_dopen.c_DOpen "-!%:HQQ`!mx{x `$x)= '5AOx xVxdSms| (6$Bxx!Zm}An;x!%1<!)0IQ\7`]Rdxl&`xx OtO0.  5"-=H1:TxDNRead_DReadlib_dnread.clib_dgetioctl.c_GetHead_DGetIoctllib_dcheckeof.c_jۘ^)chan; ior.io_Message.mn_ReplyPort = (PORT *)chan; ior.io_Message.mn_Node.ln_Pri = txpri; ior.io_Message.mn_Node.ln_Name= (char *)rxpri; PutMsg(chan->dnetport, (MSG *)&ior); WaitMsg(&ior); if (ior.io_Error == 0) { chan->chan = (long)ior.io_Unit; FixSignal(chan); return((PORT *)chan); } } DeleteChannel(chan); return(NULL); }   dlisten.c~", DNETPORTNAME, host); if (dnetport = FindPort(buf)) { ior.io_Command = DNCMD_QUIT; ior.io_Unit = 0; ior.io_Offset = 0; ior.io_Message.mn_ReplyPort = replyport; PutMsg(dnetport, (MSG *)&ior); WaitMsg(&ior); DeletePort(replyport); } return(dnetport != NULL); } E  lattice_dnet.libC@9!io_Message.mn_Node.ln_Type == NT_REPLYMSG) { if (!chan->queued) #ifdef DEBUG puts("DNRead: Software Error"); #else ; #endif else --chan->queued; if (ior->io_Length) FreeMem(ior->io_Data, ior->io_Length); FreeMem(ior, sizeof(IOSTD)); continue; } switch(ior->io_Command) { case DNCMD_CLOSE: case DNCMD_EOF: chan->eof = 1; ReplyMsg((MSG *)ior); break; case DNCMD_IOCTL: if (ior->io_Message.mn_Node.ln_Type == NT_REQUEUE) AddHead(&c.& ehan->rdylist, (NODE *)ior); else AddTail(&chan->rdylist, (NODE *)ior); ior->io_Message.mn_Node.ln_Type = NT_REQUEUE; if (len == 0) len = -2; goto done; case DNCMD_WRITE: #ifdef DEBUG printf("IOR LEN/ACT %ld/%ld\n", ior->io_Length, ior->io_Actual); #endif n = ior->io_Length - ior->io_Actual; #ifdef DEBUG if (n < 0) puts("len fail"); #endif if (n <= bytes) { BMov((char *)ior->io_Data + ior->io_Actual, buf, n); bytes -= n; len += n; (=fp_SigBit); return((PORT *)chan); }  amigaFK9T.XXXXXNU/>- Bpr,xN:r2/Hl/+@NO ,xN|"mNzJfB/-NPO+@Jf"mp,xN.,xNv -.N]Nu"_sprintf,_CreatePortN DNET.PORT.XXXXXDNET.PORT.%ldDNET.PORT.XXXXXNUH0&m$m +KBBN;|'B+J+@+@ m h"C,xNHmN.NpL N]Nu_CreatePort_WaitMsgL_DeletePortT$HXNUH00&m$m ,lN KJfS"$ &NN"A$vNN JJfS"$ &NN mJfS"&$-NN"A$vNL N]Nu|4_DOSBase V =NUH0.-&m ,-$mJfNHlN)@NXOJgHl/,NPO+@JgA+H Jg SgSg`A +H`A+H`A+H// /,/-Hl/-N./ /-NO mS m h"mRp r`/-Hx NPO"/-NXOL N]NuY *)&ior); WaitMsg(&ior); DeletePort(replyport); } return(dnetport != NULL); } D  daccept.cI#rxnV>$B6,_OpenCfgFile _GetCfgLine(_CloseCfgFile0_fopenF_Program_fprintf__flsbf܃_fclose LOGFa?FatalWarnDebug%s %s.%s/%ld SaHlHlNPO)@JVDHH NuH0&o Jg`/,HxHlNO JgHHx/ HlNO JfA"HJfSA JJB0Er gr fR` `pL NuJg /,NXOBNuNU/ &maD/ ab+@a&mN]NuNUH0&m$m Jg m0H`p. JJfS,Jg8 H// / NO JfJg F m0 K/N`RRG`pL N]Nu  zpbR<4._fopen_fgets@_BCmpV_fclose_strncmp_atoi4s:dnet.configr!NUH&m/ NKMXO~+@Jg /NXO./-N LN]Nu_GetDEnv_atoi"_free.NUH00&m+K m"H$hf C*$h&gp(r$v ,xNL N]NuANUH0&m$m p@"<,xN: @|2,+@JAkA`pN m@N m!@C/ N m&.NXO + m1@4'H, g&/ HlHlHmNOC,xNz'@ m!k" L N]NuNU/ &m+Kp m(2,Hgr ,xN"mp@,xN.&_N]NuLrD*_NewListl^_sprintfDNET.UNIT.%s%sDNET.UNIT.%NUH0&m$m +K~ m (<8od,xN mN+@r @(f4JGf(HgJ$g "h( ($N."mp0N. mS<`"m& I"@N ` L N]Nu)NU/ &m K;|"p0(4+@+H+H+H m h"C,xN mRU mp0("Hr2p0(Ҁ N.B< ,/N&oPBBN8+@;G+K,xz fTD_GETNUMTRACKS: iob->io_Actual = 0; /* # of tracks? */ break; case TD_ADDCHANGEINT: /* action never taken */ case TD_REMCHANGEINT: break; default: iob->io_Error = IOERR_NOCMD; break; } if (iob) { if ((iob->io_Flags & IOF_QUICK) == 0) ReplyMsg((MSG *)iob); } } __saveds void __asm DevAbortIO(register __a1 IOBP iob) { /*NDev *nd = DevBase;*/ } func_ptr DevVectors[] = { (func_ptr)DevOpen, (func_ptr)DevClose, (func_ptr)DevExpungz gzvJe, NULL, (func_ptr)DevBeginIO, (func_ptr)DevAbortIO, (func_ptr)-1 }; /* * Server communications */ void SynchroMsg(cmd, unit) UWORD cmd; struct Unit *unit; { IOB Iob; Iob.io_Message.mn_ReplyPort = CreatePort(NULL, 0); Iob.io_Command = cmd; Iob.io_Unit = unit; PutMsg(&FPort, &Iob.io_Message); WaitPort(Iob.io_Message.mn_ReplyPort); DeletePort(Iob.io_Message.mn_ReplyPort); } /* * SERVER SIDE (IS A PROCESS) * * File name is: */ __szhuԥaveds void CoProc() { IOBP iob; NDUnit *unit; char buf[128]; char notdone = 1; #ifdef DEBUG long fh = Open("con:0/0/320/100/Debug", 1006); #endif Wait(SIGBREAKF_CTRL_D); /* wait for port init */ while (notdone) { WaitPort(&FPort); while (iob = (IOBP)GetMsg(&FPort)) { unit = (NDUnit *)iob->io_Unit; #ifdef DEBUG sprintf(buf, "Cmd %08lx/%04x @ %08lx Buf %08lx %04x\n", unit, iob->io_Command, iob->io_Offset, iob->io_Data, iob->io_Length ziҔ ); Write(fh, buf, strlen(buf)); #endif switch(iob->io_Command & ~TDF_EXTCOM) { case CMD_OPENUNIT: sprintf(buf, "FMS:Unit%d", unit - &DevBase->Unit[0]); unit->Fh = Open(buf, 1005); if (unit->Fh == NULL) { unit->Fh = Open(buf, 1006); unit->NotSyn = 1; } if (unit->Fh) { Seek(unit->Fh, 0L, 1); unit->Size = Seek(unit->Fh, 0L, -1); } break; case CMD_CLOSEUNIT: if (unit->Fh) { Close(unit->Fh); unit->Fh = NULL; } zjԜ` break; case CMD_KILLPROC: notdone = 0; break; case CMD_READ: if (unit->Fh == NULL) break; if (iob->io_Offset + iob->io_Length > unit->Size) ExtendSize(unit, iob->io_Offset + iob->io_Length); Seek(unit->Fh, iob->io_Offset, -1); iob->io_Actual = Read(unit->Fh, (char *)iob->io_Data, iob->io_Length); break; case CMD_WRITE: /* * This causes file to be closed/reopened after * formatting. */ if (unit->NotSyn && unit->Fh) { Closezkܛ?(unit->Fh); sprintf(buf, "FMS:Unit%d", unit - &DevBase->Unit[0]); unit->Fh = Open(buf, 1005); unit->NotSyn = 0; } /* fall through */ case TD_FORMAT: if (unit->Fh == NULL) break; if (iob->io_Offset > unit->Size) ExtendSize(unit, iob->io_Offset); Seek(unit->Fh, iob->io_Offset, -1); iob->io_Actual = Write(unit->Fh, (char *)iob->io_Data, iob->io_Length); break; } if (notdone == 0) /* forbid before falling through */ FozlZ9rbid(); /* and esp before replying */ ReplyMsg(&iob->io_Message); } } /* fall through to exit */ } void ExtendSize(unit, offset) NDUnit *unit; long offset; { long pos; char *buf = AllocMem(512, MEMF_CLEAR|MEMF_PUBLIC); if (unit->NotSyn == 0) unit->NotSyn = 1; Seek(unit->Fh, 0L, 1); pos = Seek(unit->Fh, 0L, 0); while (pos < offset) { if (Write(unit->Fh, buf, 512) != 512) break; pos += 512; } FreeMem(buf, 512); } z unit->Fh); sprintf(buf, "FMS:Unit%d", unit - &DevBase->Unit[0]); unit->Fh = Open(buf, 1005); unit->NotSyn = 0; } /* fall through */ case TD_FORMAT: if (unit->Fh == NULL) break; if (iob->io_Offset > unit->Size) ExtendSize(unit, iob->io_Offset); Seek(unit->Fh, iob->io_Offset, -1); iob->io_Actual = Write(unit->Fh, (char *)iob->io_Data, iob->io_Length); break; } if (notdone == 0) /* forbid before falling through */ Fon` !? | -sRead/Write ErrorNeed arp for FileReqConsole problemMuchMore V2.5 1989 AMOKMM is sleepingMM is awakeNIL: OK topaz.fontXFile: xxx % (xxxxxx of xxxxxx Bytes) xxxxxx Lines  MuchMore V2.5 Commands: Space, LMB: Start / Stop scrolling. Quit at end of file. BackwxE qponmlkj}|{zyxwv~x"   GeneralInfopw~+;Ew Introducing the Amiga Freely Redistributable Software Library What's Available There are "do-nothing-useful" examples of various capabilities of the AMIGA, real development tools, editors, languages, games, and other odds & ends. Also included are machine readable form of many of the examples (received directly from C-A sources) out of the official AMIGA manuals, including the ROM Kernel Manual. How To Obtain Disks First, check with your local dealers and usyOz gFmsDiskpz{6lkjihgfe~}|{"Q  fms.cyz|B, /* * FMS.C * * File Disk Device (fmsdisk.device) * * Simulates a trackdisk by using a large file to hold the 'blocks'. */ #include #include #include #include #include #include #include #include /*#define DEBUG*/ #define CMD_OPENUNIT (0x7FF0 & ~TDF_EXTCOM) #define CMD_CLOSEUNIT (0x7FF1 & ~TDF_EXTCOM) #define CMD_KILLPROC (0x7FF2 & ~Tz}UR"DF_EXTCOM) void SynchroMsg(); void ExtendSize(); typedef struct Library LIB; typedef struct Device DEV; typedef struct Process PROC; typedef struct MsgPort PORT; typedef struct Message MSG; typedef struct List LIST; typedef struct Node NODE; typedef long (*func_ptr)(); typedef struct { struct Unit U; UWORD OpenCnt; long Fh; /* file handle */ long Size; /* current size */ char NotSyn; char Reserved; } NDUnit; typedef struct { z~k@r LIB Lib; NDUnit Unit[32]; } NDev; typedef struct { struct Message io_Message; struct Device *io_Device; /* device node pointer */ struct Unit *io_Unit; /* unit (driver private)*/ UWORD io_Command; /* device command */ UBYTE io_Flags; BYTE io_Error; /* error or warning num */ ULONG io_Actual; /* actual number of bytes transferred */ ULONG io_Length; /* requested number bytes transferred*/ APTzlR io_Data; /* points to data area */ ULONG io_Offset; /* offset for block structured devices */ long iotd_Count; /* (extension) */ long iotd_SecLabel; /* (extension) */ } IOB; extern char DeviceName[]; extern char IdString[]; extern void DUMmySeg(); typedef NDev *NDevP; typedef IOB *IOBP; long SysBase = NULL; NDev *DevBase = NULL; APTR DevSegment = NULL; PORT *FProc = NULL; PORT FPort; extern func_ptr DevVectors[]; __saveds NDevz`qP __asm Init(register __a0 APTR seg) { NDev *db; SysBase = *(long *)4; DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0); DevBase = db = (NDev *)MakeLibrary((long **)DevVectors,NULL,NULL,sizeof(NDev),NULL); db->Lib.lib_Node.ln_Type = NT_DEVICE; db->Lib.lib_Node.ln_Name = DeviceName; db->Lib.lib_Flags = LIBF_CHANGED|LIBF_SUMUSED; db->Lib.lib_Version = 1; db->Lib.lib_IdString= (APTR)IdString; DevSegment = seg; AddDevice((DEV *)dz.Tb); return(db); } __saveds NDevP __asm DevOpen(register __d0 long unitnum, register __a1 IOBP iob, register __d1 long flags ) { NDev *nd = DevBase; NDUnit *unit = &nd->Unit[unitnum]; if (++nd->Lib.lib_OpenCnt == 1) { FProc = CreateProc("FMS-Dummy", 0, (long)DUMmySeg >> 2, 4096); FPort.mp_SigBit = SIGBREAKB_CTRL_D; /* port init */ FPort.mp_SigTask= FProc->mp_SigTask; FPort.mp_Flags = PA_SIGNAL; NewList(&FPort.mp_MsgList); } if (++unit->OpenCntzm == 1) SynchroMsg(CMD_OPENUNIT, unit); nd->Lib.lib_Flags &= ~LIBF_DELEXP; iob->io_Unit = (struct Unit *)unit; iob->io_Error = 0; return(nd); } __saveds APTR DevExpunge() { NDev *nd = DevBase; if (DevSegment == NULL) Alert(24, (char *)24); if (nd->Lib.lib_OpenCnt) { nd->Lib.lib_Flags |= LIBF_DELEXP; return(NULL); } Remove((NODE *)nd); FreeMem((char *)nd - nd->Lib.lib_NegSize, nd->Lib.lib_NegSize + nd->Lib.lib_PosSize); DevSegment = NzFa7ULL; return(DevSegment); } __saveds APTR __asm DevClose(register __a1 IOBP iob) { NDev *nd = DevBase; { NDUnit *unit = (NDUnit *)iob->io_Unit; if (unit->OpenCnt && --unit->OpenCnt == 0) SynchroMsg(CMD_CLOSEUNIT, unit); } if (nd->Lib.lib_OpenCnt && --nd->Lib.lib_OpenCnt) return(NULL); if (FProc) { SynchroMsg(CMD_KILLPROC, NULL); FProc = NULL; } if (nd->Lib.lib_Flags & LIBF_DELEXP) return(DevExpunge()); /* * close down resources z | */ return(NULL); } __saveds void __asm DevBeginIO(register __a1 IOBP iob) { /*NDev *nd = DevBase;*/ iob->io_Error = 0; iob->io_Actual = 0; switch(iob->io_Command & ~TDF_EXTCOM) { case CMD_INVALID: iob->io_Error = IOERR_NOCMD; break; case CMD_RESET: break; case CMD_READ: PutMsg(&FPort, &iob->io_Message); iob->io_Flags &= ~IOF_QUICK; /* not quick */ iob = NULL; break; case CMD_WRITE: PutMsg(&FPort, &iob->io_Message); iob->io_Flags &= z ,,G~IOF_QUICK; /* not quick */ iob = NULL; break; case CMD_UPDATE: break; case CMD_CLEAR: break; case CMD_STOP: break; case CMD_START: break; case CMD_FLUSH: break; case TD_MOTOR: /* motor, no action */ case TD_SEEK: /* seek, no action */ break; case TD_FORMAT: /* format */ PutMsg(&FPort, &iob->io_Message); iob->io_Flags &= ~IOF_QUICK; /* not quick */ iob = NULL; break; case TD_REMOVE: /* not supported */ ioz efb->io_Error = IOERR_NOCMD; break; case TD_CHANGENUM: /* change count never changes */ iob->io_Actual = 1; break; case TD_CHANGESTATE: /* 0=disk in drive */ iob->io_Actual = 0; break; case TD_PROTSTATUS: /* io_Actual -> 0 (rw) */ iob->io_Actual = 0; break; case TD_RAWREAD: /* not supported */ case TD_RAWWRITE: iob->io_Error = IOERR_NOCMD; break; case TD_GETDRIVETYPE: /* drive type? */ iob->io_Actual = 0; break; case 'k[Zonm   fms.doc.infoymb&&@L ]bEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUbs$ K.infoy͟7L fms.doc :c/MuchMore7UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUGba`)  Mountlisty`T* /* Mountlist entry for 4 FFx devices, all using the old file system */ FF0: Device = fmsdisk.device Unit = 0 Flags = 1 Surfaces = 2 BlocksPerTrack = 11 Reserved = 2 Interleave = 0 LowCyl = 0 HighCyl = 79 Buffers = 2 BufMemType = 0 # FF1: Device = fmsdisk.device Unit = 1 Flags = 1 Surfaces = 2 BlocksPerTrack = 11 Reserved = 2 Interleave = 0 LowCyl = 0 HighCyl = 79 Buffers = 2 BufMemType = 0 # FF2: Device = fmsdisk.device Unit = 2 Flags = 1 Surface&Q * DMakefileys OD= ltmp:fms/ CFLAGS= -cimq -v EXE= SYMS= $(OD)all.m LIBS= lib:lc.lib lib:amiga.lib all: $(SYMS) $(EXE)fmsdisk.device $(EXE)fmsdisk.device : $(OD)tag.o $(OD)fms.o blink %(right) SC SD LIB $(LIBS) ADDSYM TO %(left) $(OD)tag.o : tag.asm asm -Iinclude:/asminclude/ -o%(left) %(right) $(OD)fms.o : fms.c lc $(CFLAGS) -H$(SYMS) -o%(left) %(right) $(SYMS) : syms.c lc $(CFLAGS) -ph -o%(left) %(right) ystem Unit = 4 Flags = 1 Surfaces = 2 BlocksPerTrack = 11 R gRQPOc_^]\d8 fmsdisk.deviceydJqpNuJ1<NqNqNNUH:I&H0|)P4,xCDpN#AZ$I <b" N)@8 @|C!I |1|C!I)K<+@"@NP -L\N]NuNUH;:I.&I,+l8 r2N mC" mRh +Iph fBE0 ,y&EP" t(<Nv)@@|  @)hB,HlN dXO mRh&ph&f /Hxa.PO m'mB+ L\N]NuNUH I+l8J #include #include #include #include #include #include 3 Nov 1989)',13,10,0 EndCode: END  * DMakefileyj1UX POSTERyUpǰ------------------------------------------------ fmsdisk.zoo 12288 Approx time (min): 13 at 300 baud, 3 at 1200 baud Contributed by: mdillon Date: Mon Nov 6 01:29:49 1989 creates a trackdisk.device configuration via normal file. For people with HARD DISKS. Mainly, instead of having to setup a partition on your HD that looks like a floppy so you can do DiskCopys, this device will look like a trackdisk device but use a normal file to store the blocks. Useful to create any n4SYXW: fms.docyW FMS.DOC FILE BASED TRACKDISK SIMULATOR * Useful for creating a floppy-like partition on your harddisk (so you can diskcopy to a floppy) WITHOUT actually having to create a special partition for it. * Useful for testing new filesystems and such * Up to 32 Units, OFS or FFS selectable via Mountlist * THIS IS NOT A RAM DISK. Operation will be necessarily slower than your HD, but that isn't the point behind using the device! *yTr TDNetpbn V.infojL unix amiga  gFmsDiskpT  unix.infoTb' zP''LH"D@ Z(P:<:4:?4_(0 ???????????HV T amiga.infoVQ]P''L6(Us@ Z(P:<:4:?4_(0 ???????????=35@CLt Namiga lib"ú  dunlisten.cTy>X /* * DUnListen.C */ #include "lib.h" void DUnListen(lisport) PORT *lisport; { if (lisport) { char *ptr = lisport->mp_Node.ln_Name; Forbid(); /* task-atomic operation */ while (DNAAccept(lisport)); /* remove all pending requests */ DeletePort(lisport); /* gone! */ Permit(); FreeMem(ptr, NAMELEN); } }  T amiga.infod9D  daccept.cDFx /* * DAccept.C */ #include "lib.h" PORT * DAccept(lisport) PORT *lisport; { IOSTD *ior; CHANN *chan = NULL; while (!chan && (ior = (IOSTD *)GetMsg(lisport))) { switch(ior->io_Command) { case DNCMD_SOPEN: chan = (CHANN *)MakeChannel(ior, NULL); break; default: ior->io_Error = 1; break; } ReplyMsg((MSG *)ior); } if (lisport->mp_MsgList.lh_Head != (NODE *)&lisport->mp_MsgList.lh_Tail) SetSignal(1 << lisport->mp_SigBit, 1 << lisport->m1& hdioctl.cNd /* * DIoctl.C */ #include "lib.h" void DIoctl(_chan, cmd, val, aux) void *_chan; ubyte cmd; uword val; ubyte aux; { CHANN *chan = (CHANN *)_chan; IOSTD ior; ior.io_Command = DNCMD_IOCTL; ior.io_Unit = (void *)chan->chan; ior.io_Offset = (long)chan; ior.io_Message.mn_ReplyPort = (PORT *)chan; ior.io_Data = (APTR)(long)((val<<16)|(aux<<8)|cmd); PutMsg(chan->dnetport, (MSG *)&ior); WaitMsg(&ior); FixSignal(chan); } '.*GA dstat.cGp /* * DStat.C */ #include "lib.h" int DStat(host, buffer, max) char *host; APTR buffer; long max; { IOSTD ior; char buf[sizeof(DNETPORTNAME)+32]; PORT *replyport = CreatePort(NULL, 0); PORT *dnetport; if (!host) host = "0"; sprintf(buf, "%s%s", DNETPORTNAME, host); if (dnetport = FindPort(buf)) { ior.io_Command = DNCMD_INFO; ior.io_Unit = 0; ior.io_Offset = 0; ior.io_Data = buffer; ior.io_Message.mn_ReplyPort = replyport; PutMsg(dnetport, (MSGm ldpri.c7 /* * DPri.C */ #include "lib.h" void DPri(_chan, pri) void *_chan; { /* CHANN *chan = (CHANN *)_chan; */ /* noop */ } D  daccept.c-ɭ  getenvval.c[=<;:9NMLKJIHFE  lattice_dnet.libE$RNUN]NuNUH0&m K,xN+@Jg @|"@NA"kgp+r$v NJVDHHL N]Nu%NUH0&mBJfH K,xN+@Jg6 @0(@!fB/-NPO+@` m|"m,xN`A"kgp+r$v ,xN -L N]Nu_MakeChannel<NU/ &m g4+k ,xN|/ NXOJf/ NXO,xNv"mpN.&_N]Nu_DNAAccept _DeletePort,DNET.POR-.@R  dopen.c@g7 /* * DOpen.C */ #include "lib.h" PORT * DOpen(host, portnum, txpri, rxpri) char *host; int txpri, rxpri; uword portnum; { IOSTD ior; CHANN *chan; if (!host) host = "0"; chan = (CHANN *)MakeChannel(&ior, host); if (rxpri > 126) rxpri = 126; if (rxpri < -127) rxpri = -127; if (txpri > 126) txpri = 126; if (txpri < -127) txpri = -127; if (chan->dnetport) { ior.io_Command = DNCMD_OPEN; ior.io_Unit = (void *)portnum; ior.io_Offset = (long'(A  dquit.cAѝDH /* * DQuit.C */ #include "lib.h" int DBreak(host) char *host; { char buf[sizeof(DNETPORTNAME)+32]; PORT *dnetport; if (!host) host = "0"; sprintf(buf, "%s%s", DNETPORTNAME, host); if (dnetport = FindPort(buf)) Signal(dnetport->mp_SigTask, SIGBREAKF_CTRL_C); } int DQuit(host) char *host; { IOSTD ior; char buf[sizeof(DNETPORTNAME)+32]; PORT *replyport = CreatePort(NULL, 0); PORT *dnetport; if (!host) host = "0"; sprintf(buf, "%s%s/9/.CBY  kdnread.cB%/ /* * DNRead.C */ #include "lib.h" long DNRead(_chan, _buf, bytes) void *_chan; void *_buf; long bytes; { CHANN *chan = (CHANN *)_chan; char *buf = (char *)_buf; IOSTD *ior; int len = 0; long n; if (chan->eof) return(-1); while (bytes && ((ior = (IOSTD *)RemHead(&chan->rdylist)) || (ior = (IOSTD *)GetMsg(&chan->port)))) { #ifdef DEBUG printf("IOR %08lx cmd %d len %d act %d\n", ior, ior->io_Command, ior->io_Length, ior->io_Actual); #endif if (ior-> š6  waitqueue.c66$ /* * WaitQueue.C */ #include "lib.h" short WaitQueue(_chan, skipior) void *_chan; IOSTD *skipior; { CHANN *chan = (CHANN *)_chan; IOSTD *io; short error = 0; while (chan->queued > chan->qlen) { /* until done */ WaitPort(&chan->port); /* something */ io = (IOSTD *)GetMsg(&chan->port); if (io->io_Message.mn_Node.ln_Type == NT_REPLYMSG) { if (error == 0) error = io->io_Error; if (io != skipior) { if (io->io_Length) `P  P program.cP /* * Program.C */ char *Program = ""; /* settable by other progs */ --chan->queued; } else { AddTail(&chan->rdylist, (NODE *)io); } } return(error); } A  dquit.c&  DMakefile}rj # DMAKEFILE for DNETLIB, Lattice C V5.02 # CFLAGS = -iprivate_include: -cimq -v OD = ltmp:dnet/ OBJS = $(OD)lib_*.o SRCS = *.c LIB = lattice_dnet.lib SYMS = $(OD)lib.m $(LIB) : $(SYMS) $(OBJS) -delete %(left) list LFORMAT $(OD)%s TO $(OD)list.lst $(OD)lib_#?.o oml %(left) r @$(OD)list.lst $(OBJS): $(SRCS) lc $(CFLAGS) -H$(SYMS) -o%(left) %(right) $(SYMS): lib.h lc $(CFLAGS) -ph -o%(left) syms.c 9j21 cfg.c1@B /* * Cfg.C * * CONFIGURATION FILE EXTRACTION */ #include "lib.h" static FILE *Fi; int OpenCfgFile() { CloseCfgFile(); Fi = fopen("s:dnet.config", "r"); return (Fi != NULL); } char * GetCfgLine(what) char *what; { static char Buf[128]; register char *ptr; if (Fi) { while (fgets(Buf, sizeof(Buf), Fi)) { if (BCmp(Buf, what, 4) == 0) { Buf[strlen(Buf)-1] = 0; for (ptr = Buf + 4; *ptr == ' ' || *ptr == 9; ++ptr); return(ptr); } } } Y  dcheckeof.cM|I /* * DCheckEof.C */ #include "lib.h" int DCheckEof(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; return ((int)chan->eof); } ("s:dnet.config", "r"); return (Fi != NULL); } char * GetCfgLine(what) char *what; { static char Buf[128]; register char *ptr; if (Fi) { while (fgets(Buf, sizeof(Buf), Fi)) { if (BCmp(Buf, what, 4) == 0) { Buf[strlen(Buf)-1] = 0; for (ptr = Buf + 4; *ptr == ' ' || *ptr == 9; ++ptr); return(ptr); } } } ]75  makechannel.c5x#c /* * MakeChannel.C * * (internal routine) */ #include "lib.h" short DUseSignal = -1; void * MakeChannel(ior, host) IOSTD *ior; char *host; { CHANN *chan = AllocMem(sizeof(CHANN), MEMF_PUBLIC|MEMF_CLEAR); /* Name, Pri */ chan->port.mp_Node.ln_Type = NT_MSGPORT; if (DUseSignal >= 0) chan->port.mp_SigBit = DUseSignal; else chan->port.mp_SigBit = AllocSignal(-1); chan->port.mp_SigTask = FindTask(NULL); NewList(&chan->port.mp_MsgList); NewList(%(O87 dclose.c8u% /* * DClose.C */ #include "lib.h" void DClose(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; IOSTD ior; IOSTD *io; ior.io_Command = DNCMD_CLOSE; ior.io_Unit = (void *)chan->chan; ior.io_Offset = (long)chan; ior.io_Message.mn_ReplyPort = (PORT *)chan; PutMsg(chan->dnetport, (MSG *)&ior); ++chan->queued; chan->qlen = 0; WaitQueue(chan, &ior); while ((io = (IOSTD *)RemHead(&chan->rdylist)) || (io = (IOSTD *)GetMsg(&chan->port)) ~0  dgetioctl.c0dG /* * DGetIoctl.C */ #include "lib.h" short DGetIoctl(_chan, pval, paux) void *_chan; short *pval; char *paux; { CHANN *chan = (CHANN *)_chan; IOSTD *ior; short cmd = -1; if ((ior = (IOSTD *)GetHead(&chan->rdylist)) || (ior = (IOSTD *)GetHead(&chan->port.mp_MsgList))) { if (ior->io_Command == DNCMD_IOCTL) { CIOCTL *cio = (CIOCTL *)ior->io_Data; cmd = cio->cmd; *pval = (cio->valh << 8) | cio->vall; *paux = cio->valaux; Forbid(); Rem+o/^ lib.h^x-( /* * LIB.H */ #include "/dnet/dnet.h" #include "/dnet/channel.h" #include "dnetlib.h" if (chan->eof) SetSignal(1 << chan->port.mp_SigBit, 1 << chan->port.mp_SigBit); return(cmd); } 75  makechannel.cˆ] syms.cw #include "lib.h"  Mlib͗75 dread.c /* * DRead.C */ #include "lib.h" long DRead(_chan, _buf, bytes) void *_buf; void *_chan; long bytes; { CHANN *chan = (CHANN *)_chan; char *buf = (char *)_buf; long len = 0; long n = -1; if (chan->eof) return(-1); while (bytes) { if (n == 0) WaitPort(&chan->port); n = DNRead(chan, buf, bytes); if (n < 0) break; len += n; buf += n; bytes -= n; if (chan->eof) break; } return(len); } /& dqueue.cb؈ /* * DQueue.c */ #include "lib.h" void DQueue(_chan, n) void *_chan; long n; { CHANN *chan = (CHANN *)_chan; chan->qlen = n; }  lib"!e E dnaaccept.ce= /* * DNAAccept.C */ #include "lib.h" int DNAAccept(lisport) PORT *lisport; { IOSTD *ior; if (ior = (IOSTD *)GetMsg(lisport)) { ior->io_Error = 1; ReplyMsg((MSG *)ior); } if (lisport->mp_MsgList.lh_Head != (NODE *)&lisport->mp_MsgList.lh_Tail) SetSignal(1 << lisport->mp_SigBit, 1 << lisport->mp_SigBit); return(ior != NULL); }  libӒle welog.cԭ+ /* * elog.c */ #include "lib.h" void _elog(line, file, how, ctl, data) int line; char *file; int how; char *ctl; void *data; { static char *logfile; FILE *fi; if (logfile == NULL) { OpenCfgFile(); logfile = GetCfgLine("LOGF"); CloseCfgFile(); } if (logfile && (fi = fopen(logfile, "a"))) { char *hdr = "?"; switch(how) { case EFATAL: hdr = "Fatal"; break; case EWARN: hdr = "Warn"; break; case EDEBUG: hdr = "Debug"; break;}PZ> } fprintf(fi, "%s %s.%s/%ld ", hdr, Program, file, line); fprintf(fi, ctl, data); putc('\n', fi); fclose(fi); } }  dqueue.cT,  version.c, 4 /* * Version.C */ #include "lib.h" void Version(name, ver, subver) char *name; char *ver; char *subver; { Write(Output(), name, strlen(name)); Write(Output(), " V", 2); Write(Output(), ver, strlen(ver)); Write(Output(), subver, strlen(subver)); Write(Output(), "\n", 1); }  dqueue.cؓm b Adeof.cba /* * DEof.C */ #include "lib.h" void DEof(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; IOSTD ior; ior.io_Command = DNCMD_EOF; ior.io_Unit = (void *)chan->chan; ior.io_Offset = (long)chan; ior.io_Message.mn_ReplyPort = (PORT *)chan; PutMsg(chan->dnetport, (MSG *)&ior); WaitMsg(&ior); FixSignal(chan); }   libG  fixsignal.cGJHs /* * FixSignal.C */ #include "lib.h" void FixSignal(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; if (chan->port.mp_MsgList.lh_Head != (NODE *)&chan->port.mp_MsgList.lh_Tail || chan->rdylist.lh_Head != (NODE *)&chan->rdylist.lh_Tail) SetSignal(1 << chan->port.mp_SigBit, 1 << chan->port.mp_SigBit); }  Klibܓ8<3A dexec.c3y7|s /* * DExec.C * * Request the DNet driver to execute a command. Due to problems with * the Lattice fork*() calls we cannot Execute() from the server process. */ #include "lib.h" int DExec(_chan, command) void *_chan; char *command; { IOSTD ior; CHANN *chan = (CHANN *)_chan; PORT *replyport = CreatePort(NULL, 0); ior.io_Command = DNCMD_EXEC; ior.io_Unit = 0; ior.io_Offset = (long)command; ior.io_Message.mn_ReplyPort = replyport; PutMsg(chan-+&m fdwrite.cBcY /* * DWrite.c */ #include "lib.h" long DQueueFull(_chan) void *_chan; { CHANN *chan = (CHANN *)_chan; return (chan->qlen && (chan->queued > chan->qlen)); } long DWrite(_chan, _buf, bytes) void *_chan; void *_buf; long bytes; { int error = bytes; CHANN *chan = (CHANN *)_chan; char *buf = (char *)_buf; if (chan->qlen) { if (WaitQueue(chan, NULL) >= 0) { IOSTD *ior = AllocMem(sizeof(IOSTD), MEMF_CLEAR|MEMF_PUBLIC); ior->io_Command = DNCMD_WRITLǨ@E; ior->io_Unit = (void *)chan->chan; ior->io_Offset = (long)chan; ior->io_Message.mn_ReplyPort = (PORT *)chan; ior->io_Data = AllocMem(bytes, MEMF_PUBLIC); ior->io_Length = bytes; BMov(buf, ior->io_Data, bytes); PutMsg(chan->dnetport, (MSG *)ior); ++chan->queued; } else { error = -1; } } else { IOSTD ior; ior.io_Command = DNCMD_WRITE; ior.io_Unit = (void *)chan->chan; ior.io_Offset = (long)chan; ior.io_Message.mn_ReplyPort = (PhōORT *)chan; ior.io_Data = (APTR)buf; ior.io_Length = bytes; PutMsg(chan->dnetport, (MSG *)&ior); WaitMsg(&ior); if (ior.io_Error) error = -1; } FixSignal(chan); return(error); } s) void *_chan; void *_buf; long bytes; { int error = bytes; CHANN *chan = (CHANN *)_chan; char *buf = (char *)_buf; if (chan->qlen) { if (WaitQueue(chan, NULL) >= 0) { IOSTD *ior = AllocMem(sizeof(IOSTD), MEMF_CLEAR|MEMF_PUBLIC); ior->io_Command = DNCMD_WRITS%$#4M ! dnetlib.h49 /* * DNETLIB.H */ #include "/version.h" #define CHANN struct _CHANN #define NAMELEN sizeof("DNET.PORT.XXXXX") #define NAMEPAT "DNET.PORT.%ld" CHANN { PORT port; /* receive data, replies */ PORT *dnetport; /* dnet's master port */ LIST rdylist; /* ready to be read */ uword chan; /* channel # for open channels */ ubyte eof; /* channel remotely closed/eof */ ubyte filler; int qlen; /* allowed `x)('&-,+*Z README*vxq DNET V2.10 27 November 1989 NEW THIS RELEASE: 7 bit support. DNET (c)Copyright 1987-1989 Matthew Dillon, All Rights Reserved Matthew Dillon 891 Regal Rd Berkeley, Ca. 94708 USA ...!ihnp4!ucbvax!dillon USENET dillon@ucbvax.Berkeley.edu ARPANET ucbvax.berkeley.edu pub/amiga ARPANET-FTP WHAT IS DNET DNet is a link protocol and should properly be called DLink, but the name DNet stuck and so it will stay. DNet allows one to connect two amig椃l"!  INSTALLATION.info!NӬb&(&&hbEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUU      o INSTALLATION(\{ BASIC INSTALLATION AND RUN --- AMIGA INSTALL --- The 1.3 (or greater) serial.device must be used The following must exist in L: and be mounted. L:NULL-HANDLER L:DPIPE-HANDLER (only required if you use the remote cli server) The following must exist in S: S:DNET.SERVERS S:DNET.CONFIG You may have to modify S:DNET.CONFIG to appropriately handle the CONNECT message of your modem. If you do not have a logical DNET: assignment where the serveꒁd   AREQUIREMENTS.info>b''`L& 3bƘEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUbgp5  .info5d%VL INSTALLATION REQUIREMENTS README doc :c/MuchMore7UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUGy  cU   .DistFiles] root:altc/noreq     o INSTALLATION P\  Rnoreqy]NNUBN`XO)@ mo lBHxHz8N/NO `" l!|HxHz'N/NO N]NuDOS requesters on DOS requesters off NUN]NuapCEf2<kt"Q)O,x)NH瀀.)gKN`B_NsC Nh)@f .<N`NPONudos.libraryINuNU/ Hy0,/N:)@POfBHyNPO.lNu lBh l1| l1| l ,P)@" l" MANXBN$@JXOg./- /-/ N9|& lh lh O `BHj\N ul U+ P dpipe-handler ]dNUH0N rB BB)xBNXO+@/-N XO$@ *+@ m"m\!IBHx/-/ N JO|J-g/-N xXO$@%| B+j&j -`BmBm+|B;|Bm *. ** Ep/Hl ER/N O EpA쀒B0HzNHlN\POJfL j+h mJg" m ( @&h$+|`&m+|`A쀒*` E /f EBR` E Sf+| E Mf+| E c E qf;| E nf+| E tf  E bf, ER/N XO+@JlB o+| E sf ER/N XO;@ j+hR EJfP` R EJf0&m`Hl/+N POJg&S f fJmfHyHx6N XPO&@HyHx6N FPO(HlBHlN BXOR/N *PO/N PO'@'D0-k D!|,'|, D!|('|( D!K D0-Hh/ HmN 0PO f&kJmg kJhfB %|`Rk'm07m4 k!m, k -!@( k0-h k (l k!m( f k G!K$ G!|J fJgJI]0g0+4Hr//+0N hPO/-/ NPO`2Sk j"h0fB0Jkf+g k/-/+NPO k(gl kJhfb( +g(+/NXO D/(N XOR/ D/(N PO/NXO D/(NXOHx6 D/(N tPOHx6/N hPO/-/ NPO`lB / KP/NPO/-/ NPO`DB +g %| %|/-/ NPO`/ kHh NPO/-/+NPO`HxN8XO(Hx/ */NO B //-/ NjO` **A&H EHH E 0:gB&m`8/+N VXO EHHf EHH/9Gd>/+ ER/N O Jg&S f gNHxNXO( D!K D!j D"m\!I D -!@B //-/ NO`HxB/-/ NO`Jg */NPXOBHx/-/ NrO` *( **Hx/NPO D"E"&hAf E!|Hz EHh N4PO`, E!|/+ EHh NPO E"k )$Ы$!@| EHh N XO E@BHx/-/ NO` *( D*Af*-` E*Jg D!| E/( DHh NPO DBt D"E,i"E .$Щ$!@| DB DB( D DHh NtXO D@ DHhNbXO D@BHx@9D/-/ N(O`HxB/-/ NO`bHxB/-/ NO`LQg_gVYgHYgvSg:g[gސgSgSgSg``hJg /,NXON/-NXOJgN`8 mBNL N]Nu*PIPE:NU/ XHy/-N\PO$@$ X$_N]NuNU/ $m g/* JY/N\PO$_N]NuNUH0$m+jg**g m&h ,+ E"E.(o./ +Ы / E"hHi NO ߫ + f/-N@XO/- / NjPO Eߨ"E (f, E%PJfB E ($ E"hHi /NPO`Hbm *$(l+jg+j g m&h m(( ,+ D"D.( o./ +Ы / D"D (Щ /NO Dߨ "D ( f/-NfXO/- /NPO߫ + f/-NBXO/- / NlPO`R0*H$fL+jg$gS$BB4HB&(*,."B$B&B(B*B,Br0kH?~jA2<Ak!AjA`QL|NuL / gct2fZ2 fRe&",iH?>p,` L|H?>QHA0L|2`# # Qd0fNu QdNu2fZ2 fRe&",iH?>p,` L|H|QHA0L|2`""Qd0fNuQdNu o "ofNu o Jf SNuNUH $m  g  fR`z -fzR` +fRx` JR ysHHr / Nd"Ҁ(0HHA0fJg D` L0N]Nu0<`0/S@k o"o f SHJWpNucpNupNuHp4&HCHCBCԃH@H@B@ЂLNuN"o,lNbNL,lN:N"o,lNN,lN|N"o /,lN.N o,lN,lNvL,lN"o /,lNN o,lN ~__H0_org__whocareswhatthisisnamed_AllocDSL_FreeDSv_attemptread_llinkend _freepbufs _llink " 04_lunlink N_mygeta4 |_returnpktplain _returnpkt _taskwait _taskpktrdy "_BZero <_BSet @_BMov _strcpy_strlen_atoi_strcmpZ_strncmp`.mulu_CloseLibrary__CloseLibrary_AllocMem__AllocMem_FindTask__FindTask_Forbid__Forbid_FreeMem__FreeMem_GetMsg__GetMsg pc_Permit_PutMsg_Signal&_WaitPort6__WaitPort:__H0_endH$ 00000 @@@@@@@@@@@@@@@ @@@@@@@ @@@@@@ @@@@ __H1_org_SysBase_DOSBase_Fh_ctp_ __H1_end__H2_org_Buf__H2_endread_llinkend _freepbufs _llink "  null-handlerBNnNU m/( m/( /- /-aON]NuNU m!m m!m m+h m+P m"m \!I m!m mB mB/-/-NPON]NuNU m\+H/-NpXO/-NHXO+@ m ( N]NuNUA+H+|BBNXO)@/,NXO+@ m (+@ m"l\!I m/(Hx/,/-NOJg/,NNXO+@ m (`R m (+@ m"m#h$ mB m/(Hx/,/-NO` m/(B/,/-NxO` m+ D .DistFiles+YT: root:l/dpipe-handler root:l/null-handler Hx/,/-N0O`#    +t @ nfs-handlert vD%,U 7,vNUH78Ip)@l0|)PLC,xN)@PN)@@Bp @\N l@\N @+h +@JPg"lP i" (Hx,+@aXO m"()AD"l@$I\"lD#J)@Hr"@#A$l@\#J#|DOS $lD#j(($m"+@%@p!@ p!@` mB /a ` /-a HlTNHl`NHx4HltNOA",lPN@9|A )H|Jg l@\,xN l@\,xN+@Jg @+h p m!@ B~Jpf p//Hx BNFΰ   README.info9b''L'xb(EUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUU&Ц  "$&(  server* ] Q snfs.h e #define ulong unsigned long #define ubyte unsigned char #define uword unsigned short typedef struct { long ds_Days; long ds_Minute; long ds_Tick; } STAMP; typedef struct { long DirHandle; /* relative to directory (0=root) */ uword Modes; /* open modes */ } OpOpen; typedef struct { long Handle; ulong Prot; long Type; long Size; STAMP Date; } RtOpen; typedef struct { long Handle; /* file handle  7 Z  TODO ZmQms SMAIL server SPASSWD server * automatic compression for SCOPY and SGCOPY } OpRename; typedef struct { long Error; } RtRename; ; typedef struct { long Handle; /* file handle to read from */ long Bytes; /* # of bytes to read */ } OpWrite; typedef struct { long Bytes; /* < 0 == error */ } RtWrite; typedef struct { long Handle; } OpClose; typedef struct { long Handle; long Offset; long How;  T   spasswd.c # /* * SPASSWD.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * PASSWORD SERVER * * user-password entry. USER entries in s:dnet.config are scanned for * a match and the various dnet enviroment variables are set accordingly. */ #include "defs.h" int do_password ARGS((void *)); void DPuts ARGS((void *, char *)); int DGetLine ARGS((void *, char *, short)); int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char H \scopy.cd? /* * SCOPY.C V1.1 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * COPY SERVER FOR PUTFILES (DOWNLOADS, i.e. receives files) * * The current version only accepts one connection at a time. This server * handles downloading of data. This server will eventually be replaced * by the SGCOPY server. Currently the SGCOPY server only handles * uploads. * * NOTE: The DNET_WRITE enviroment variable must be 9 or higher or this * server will refuQ|  servers.hQ /* * SERVERS.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * */ #include "/version.h" #define PORT_FILECOPY 8192 #define PORT_ALPHATERM 8193 #define PORT_ECHO 8194 #define PORT_IALPHATERM 8195 #define PORT_AMIGASHELL 8196 #define PORT_LOADAV 8197 #define PORT_PRINTER 8198 #define PORT_PASSWD 8199 #define PORT_BBS 8200 #define PORT_GFILECOPY 8201 #define PORT_NFS 8202 #define DNET_WRITE "DNET_WRITE" #define DNET_READ "DNET_READ" #define DNET_LEVEL "qW T DMakefile/( # DNET SERVERS # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. # # Lattice C CFLAGS = -iprivate_include: -cim -v BIN = /bin/ OD = ltmp:dnet/ SRCS = sgcopy.c scopy.c spasswd.c sprint.c sterm.c OBJS = $(SRCS:"*.c":"$(OD)*.o") BINS = $(SRCS:"*.c":"$(BIN)*") SYMS = $(OD)server.m all: $(SYMS) $(BINS) $(BINS) : $(OBJS) blink FROM LIB:c.o %(right) LIB /lib/lattice_dnet.lib LIB:sup32.lib LIB:amiga.lib LIB:lc.lib TO %(left) $(OBJS) : $(SRCS) lc $(CFLAGS) -H$(S% Tsgcopy.c%> /* * SGCOPY.C V1.1 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * GET-COPY SERVER (NEW COPY SERVER) * * The current version only accepts one connection at a time. This server * will send requested files to the remote machine. * * length in 68000 longword format. * * ACCESS RESTRICTIONS: * * Remote access restrictions are according to DNET_GROUP or DNET_READ * * DNET_READ >= 9 Full Access * DNET_READ < 9 According to comment fie{uld (AC=n) or group acc. * (GR=n) matches DNET_GROUP) * * When searching for access rights, the comment field of the file/dir * requested is checked first. If empty, the parent dir is checked. * This continues (parent diring) until root is found or a comment * field with access info in it. */ #include "defs.h" typedef struct { char Cmd; char Str[64]; long Val; } HDR; extern int Enable_Abort; char Buf[8192]; void *Chan; void SGCopy ARGS((void)); id"nt PutObject ARGS((char *)); int PutDir ARGS((char *, int)); int PutFile ARGS((char *, int)); int WriteHeader ARGS((char, char *, long)); int ReadHeader ARGS((HDR *)); int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char *str; { struct MsgPort *port; PROC *myproc = (PROC *)FindTask(NULL); long savedir; long mask, rmask; onbreak(brk); if (strncmp(str, "__dnet", 6) != 0) { Version("SGCopy", VERSION, SGCOPY_VECRSION); _exit(0); } port = DListen(PORT_GFILECOPY); WaitPort(&myproc->pr_MsgPort); ReplyMsg(GetMsg(&myproc->pr_MsgPort)); savedir = Lock("", SHARED_LOCK); /* duplicate current dir */ if (!savedir) { DUnListen(port); _exit(1); } savedir = CurrentDir(savedir); /* CD dup, returns original */ mask = SIGBREAKF_CTRL_C|(1 << port->mp_SigBit); for (;;) { long dupdir = DupLock(myproc->pr_CurrentDir); rmask = Wait(mask); if (rmas7"k & SIGBREAKF_CTRL_C) { UnLock(CurrentDir(dupdir)); break; } while (Chan = DAccept(port)) { SGCopy(); DClose(Chan); } UnLock(CurrentDir(dupdir)); } UnLock(CurrentDir(savedir)); /* restore original */ DUnListen(port); } void SGCopy() { short error; static HDR Hdr; error = WriteHeader('H', "Hello, GCopy server V1.30", 0); if (error) return; switch(ReadHeader(&Hdr)) { case -1: return; case 'H': break; } while (!error) { switch(ReadHeader(&Hdr)) { case 'G': error = PutObject(Hdr.Str); break; case 'E': goto done; case 'P': /* put-files, not implemented */ default: error = 1; break; } } done: ; } int PutObject(str) char *str; { long lock; FIB *fib = malloc(sizeof(FIB)); short error = 0; short access = GetEnvVal(DNET_READ); short group = GetEnvVal(DNET_GROUP); mountrequest(0); lock = Lock(str, SHAR2ED_LOCK); mountrequest(1); if (lock == NULL || !Examine(lock, fib)) { /* unable to find it! */ error = WriteHeader('N', "Unable to find object", 0); goto done; } /* * Determine Access rights * * If the file/dir or any parent dir has AC > your_ac, access is * denied. If the file/dir and all parent dirs have neither an ACcess * or GRoup entry, access is denied. If a group entry is found that * matches your group, access is allowe/ d (unless an AC is found > your_ac) * * If your_ac is >= 9, no access checking of parent directories is * done at all. However, access checking of downloaded files will * be done, and any AC values > your_ac will be disalloweds. */ if (access < 9) { /* must check comment/access */ short ok = 0; long lock2 = DupLock(lock); long tmp; for (;;) { short ac = 0; while (ac >= 0) { /* check groups */ short idx = 0; ac =  ExtractFieldVal(fib->fib_Comment, FS_GROUP, &idx); if (ac >= 0 && ac == group) { ok = 1; break; } } ac = ExtractFieldVal(fib->fib_Comment, FS_ACCESS, NULL); if (ac >= 0) { /* valid access field */ if (ac <= access) { /* access ok */ ok = 1; } else { /* access not ok */ ok = 0; break; } } if (tmp = ParentDir(lock2)) { /* check the par.dir */ UnLock(lock2); lock2 Xw`* = tmp; fib->fib_Comment[0] = 0; Examine(lock2, fib); continue; } break; } UnLock(lock2); if (!ok) { error = WriteHeader('N', "Access Violation", 0); goto done; } } Examine(lock, fib); UnLock(lock); lock = NULL; if (fib->fib_DirEntryType > 0) { error = PutDir(str, access); } else { error = PutFile(str, access); } done: if (lock) UnLock(lock); free(fib); return((int)error); } int PutDir(name, access) char *name; ۞ int access; { long lock = Lock(name, SHARED_LOCK); FIB *fib = malloc(sizeof(FIB)); static HDR Hdr; short error = 0; short ac; if (!lock || !Examine(lock, fib)) { WriteHeader('N', "Possible Disk Error", 0); error = 1; goto done; } ac = ExtractFieldVal(fib->fib_Comment, FS_ACCESS, NULL); if (ac >= 0 && ac > access) { error = WriteHeader('S', fib->fib_FileName, 0); goto done; } if (error = WriteHeader('D', fib->fib_FileName, 0)) goto !] !+ syms.c +q /* * SYMS.C * */ #include "defs.h" if (DRead(Chan, &cmd, 1) != 1) return(-1); if (DRead(Chan, &sl, 1) != 1) return(-1); if (sl >= sizeof(hdr->Str)) { return(-1); } if (DRead(Chan, hdr->Str, sl) != sl) return(-1); hdr->Str[sl] = 0; if (DRead(Chan, &hdr->Val, 4) != 4) return(-1); hdr->Cmd = cmd; return((int)hdr->Cmd); } led! */ error = 10; goto done; } if (DWrite(Chan, Buf, n) != n) { error = 10; goto done; } le"## sterm.c"Xc /* * S_TERM.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * Terminal window server. * -Echo what is received in the window. * -Transmit stuff typed on keyboard, echoing locally. * * Use FTERM on the other Amiga to connect. * * NOTE!!!! Spawned tasks are ... TASKS, not processes. No DOS calls * allowed. */ #include "defs.h" int NHandlers; struct IntuitionBase *IntuitionBase; struct GfxBase *GfxBase; PORT *HdPort; PORT *LisPort; short Ha$%+%v  3sprint.c$z /* * SPRINT.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * PRINTER SERVER * * Accepting one connection at a time, dump the file to PRT: * * DNET_WRITE must be 6 or higher for this function to work. */ #include "defs.h" void printfile ARGS((void *)); int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char *str; { PORT *port; PROC *myproc = (PROC *)FindTask(NULL); void *chan; long &'lt'8  defs.h&H /* * DEFS.H */ #define NOEXT #include #include #include #include #include #include "/dnet/dnet.h" #include "/dnet/channel.h" #include "/lib/dnetlib.h" #include "/server/servers.h" typedef struct IntuiMessage IMESS; typedef struct IntuiText ITEXT; typedef struct Menu MENU; typedef struct MenuItem ITEM; typedef struct TextAttr TA; typedef struct TextFont FONT; typedef struct Libr()])   uscli.c(ʈLe /* * SCLI.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * SHELL SERVER. THIS REQUIRES MY PIPE DEVICE TO WORK!!!!!!!!!! * * Port #8196 * * Only one connection accepted at a time in this baby. * HUGE CLUDGE!!! * * DNET_LEVEL must be 9 or higher. */ #include "defs.h" char Buf[4096]; int brk() { return(0); } void #ifdef LATTICE _main(str) #else _main(len,str) #endif char *str; { struct MsgPort *port; PROC *proc = (PROC *)Fi*-A+-/1358:<> client+, ,  C statdnet.c*+H /* * STATDNET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * STATDNET [-Nnet] * */ #include "defs.h" void main ARGS((int, char **)); char buf[2048]; int brk() { return(0); } void main(ac,av) char *av[]; { int ok; char *host = NULL; printf("StatDNet V%s%s\n", VERSION, STATDNET_VERSION); onbreak(brk); { short i; for (i = 1; i < ac; ++i) { if (strncmp(av[i], "-N", 2) == 0) { host = av[i] + 2; continue; } -.T."G  getfiles.c*-3 /* * GETFILES.C V1.30 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * * GETFILES [-Nnetid] [-dlocaldir] [-c] file/dir file/dir file/dir * * -Nnetid network identifier * * -dlocaldir local directory to place files * * -c Continue from where you left off before. Files that already * exist on the local machine will not be re-transfered. This * will also re-start in the middle of a file that was * partially transfered previously. * */0rW0 e putfiles.c*/h,) /* * PUTFILES.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * Upload one or more files or directories to the remote host */ #include "defs.h" char Buf[1024]; int putname ARGS((void *, char *)); int putfile ARGS((void *, char *, char *)); int writehdr ARGS((void *, ubyte, char *, long)); void main ARGS((int, char **)); int brk() { return(0); } void main(ac,av) char *av[]; { void *chan; short i; char fn = 0; char *host = NULL; 1 2012S :loadav.c*1q!{ /* * LOADAV.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * LOADAV [frequency] Connect to remote UNIX system and display * load average. Default is every 5 minutes. * * frequency in seconds, default is every 60 seconds * */ #include "defs.h" #include int __stdargs CXBRK(void); short Deemu[] = { DMSTRT, 0, 0, DMNW , 0, 10, 2, 2, -80, 40, 0xFFFF, DMEND , 0, 0 }; #define DMNWOFF 4 #define NA 0 #define G34+ݺ~4% fterm.c*3 /* * FTERM.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * FTERM [-Nnet] [port] [-wcapturefile] [-c#] * * -c# = cooked mode. i.e. -c7 bit 0 convert CR's to LF's keyboard->remote * bit 1 echo chars locally (half duplex) * bit 2 received LF->CRLF */ #include "defs.h" #include short Deemu[] = { DMSTRT, 0, 0, DMNW , 0,10, 11, 11, -37, -28, 0xFFFF, DMTEXT, 0,30, 'FO','NT','\0t','op','az','.f','on',5676t  DMakefile*57{ # DNET CLIENTS # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. # # Lattice C CFLAGS = -iprivate_include: -cimq -v BIN = /bin/ OD = ltmp:dnet/ SRCS = cliterm.c fterm.c getfiles.c loadav.c putfiles.c statdnet.c quitdnet.c OBJS = $(SRCS:"*.c":"$(OD)*.o") BINS = $(SRCS:"*.c":"$(BIN)*") SYMS = $(OD)client.m all: $(SYMS) $(BINS) $(BINS) : $(OBJS) blink FROM LIB:c.o %(right) LIB /lib/lattice_dnet.lib LIB:sup32.lib LIB:lc.lib LIB:amiga.lib TO %(left) $(OBJS) : $(5Q[5$SRCS) lc $(CFLAGS) -H$(SYMS) -o%(left) %(right) clean: -delete $(OD)#?.o $(SYMS) : defs.h lc $(CFLAGS) -ph -o%(left) syms.c 2S :loadav.c*89]o9+ *syms.c*8+, /* * SYMS.C * */ #include "defs.h" %(right) clean: -delete $(OD)#?.o $(SYMS) : defs.h lc $(CFLAGS) -ph -o%(left) syms.c 2S :loadav.c*:;m; defs.h*:H /* * DEFS.H */ #define NOEXT #include #include #include #include #include #include "/dnet/dnet.h" #include "/dnet/channel.h" #include "/lib/dnetlib.h" #include "/server/servers.h" typedef struct IntuiMessage IMESS; typedef struct IntuiText ITEXT; typedef struct Menu MENU; typedef struct MenuItem ITEM; typedef struct TextAttr TA; typedef struct TextFont FONT; typedef struct Libr<= ==q " quitdnet.c*<xK /* * QUITDNET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * QUITDNET [-Nnet] * */ #include "defs.h" void main ARGS((int, char **)); int brk() { return(0); } void main(ac,av) char *av[]; { int ok; char *host = NULL; onbreak(brk); printf("QuitDNet V%s%s\n", VERSION, QUITDNET_VERSION); { short i; for (i = 1; i < ac; ++i) { if (strncmp(av[i], "-N", 2) == 0) { host = av[i] + 2; continue; } } } ok = D>?SӮ{zyxwvuts? ! cliterm.c*>Tk /* * CLITERM.C * * DNET (c)Copyright 1988-1989, Matthew Dillon, All Rights Reserved. * * FTERM [-Nnet] [port] */ #include "defs.h" typedef struct IORequest RIO; #ifndef DEVICES_CONUNIT_H typedef struct ConUnit CONUNIT; typedef struct IOStdReq IOCON; #endif short IgnoreNS = 0; TA Ta = { (ubyte *)"topaz", 8 }; ITEXT IText[] = { { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"Flush" } }; ITEM Item[] = { { NULL , 0, 0, 100, 10, ITEMTEXT|COMMSEQ|ITEMENABLE@rA wdevsABB  Mountlist@A DPIPE: Handler = l:dpipe-handler Stacksize = 6000 Priority = 5 GlobVec = 1 # NULL: Handler = L:null-handler Stacksize = 500 Priority = 5 GlobVec = 1 # =q " quitdnet.c*CnDFHJ sDE/6EL remote-startupCDL@Bexecute s:shell-startup noreq prompt "%N.%S> " echo "Remote CLI with shell" {zyxwvuts? ! cliterm.c*FGmh}|G F dnet.configCF| LOGF ram:dnet.log # Commands to set the baud rate, determined by messages that occur # before carrier detect. Only scanned if -a option used AUTA 19200 "CONNECT" AUTA 300 "CONNECT 300" AUTA 1200 "CONNECT 1200" AUTA 2400 "CONNECT 2400" AUTA 9600 "CONNECT 9600" AUTA 19200 "CONNECT 19200" # Commands to Reset the Modem. Only scanned if -a option used RESM AT RESM AT RESM ATS0=2 DISM +++ # Auto-Reset enviroment variable security level to this (DNET_LEVEL) # # The defauHI\I0  .DistFilesCH0}/ s:dnet.config s:dnet.servers s:remote-startup .log BMEN dnet:bbs/menu.ctl BMSG dnet:bbs/message.ctl BFIL dnet:bbs/file.ctl BUSR dnet:bbs/userinfo.ctl # SPASSWD server USER dillon pineapple 9 9 9 USER bounce - 0 0 0 enviroment # ENVM -manual (no -a) option enviroment # # LEVEL overall access rights # READ basic access rights for reading files from this machine # WRITE basic access rights for writing files to this machine ENVA DNET_LEVEL 9 ENVA DNET_READJKHK  dnet.serversCJEܩ 8192 dnet:amiga/bin/scopy ram: ;File Transfer server 8195 dnet:amiga/bin/sterm ram: ;Terminal Window server 8196 dnet:amiga/bin/scli ram: ;Shell Server (needs pipe:) 8197 dnet:amiga/bin/sloadav ram: ;Load Average Server 8198 dnet:amiga/bin/sprint ram: ;Printer Server (direct copy) 8199 dnet:amiga/bin/spasswd ram: ;Password Server ; 8200 reserved for BBS server, handled by dbbs client&server program 8201 dnet:amiga/bin/sgcopy ram: ;GET files server CL(5MOQSUW[]_ahjlnpr docMN*×DN  config.docLM( config config fterm The 'config' program may be used to set the default window size and font for the FTERM program. The only argument is the path to an executable, usually one of my programs that opens windows. I0  .DistFilesCOPbhP6 !.infoLO6L (dnetlib.doc dnet.doc organization.doc DFHJ sQR .qpoR  fterm.docLQoہ AMIGA/FTERM AMIGA/BBSTERM FTERM [-Nnet] [port#] [-c#] [-wcapturefile] FTERM opens a standard intuition window and connects to a CSH running on the remote UNIX machine. If the remote machine is another Amiga, it connects to the terminal-window server (STERM). UNIX: The csh runs on a PTY and is NOT named, which means you don't show up in WHO or FINGER, and cannot TALK other people (nor can they talk you). To get a named shell, you must 'rlogin localhostST ltVUTSRgfedcba`_^]nmlkjirT,.  `dnet.docLSr)+n AMIGA-DNET V2.10 New this release: 7 bit support. In fact, it is the default... see options list for 8 bit support. Also flow control may be selected. (refer to -m0 ,-P, and -Z options). AMIGA CONFIGURATION ENV: must be assigned and writable. S:DNET.CONFIG contains configuration info for DNet S:DNET.SERVERS contains the server list for dnet (and paths to the server executables) Any DNet clients you wish to run or have DNet ruUVXWV  passwd.docLUWjAd_ AMIGA/FTERM Using FTERM to gain access to the SPASSWD server. FTERM 8199 (Amiga<->Amiga connection, from calling amiga) DSOC 8199 (Unix<->Amiga connection, from calling unix machine) This connects to the SPASSWD server on the Amiga which requests a login and password to gain any level of security access to the amiga. S:DNET.CONFIG may contain zero or more entries of the following form: USER unix-> (unix source tree) | | ->bin ALL BINARIES | | | ->lib source to common library of routines | | | ->server source to all dnet servers dnet->amiga-| ->dbbs source to the DBBS program | (NOT FINISHED OR ANYWHERE NEAR FINISHED) ->client source to all client programs | ->dnet source to the DNET protocol (master program) | ->dbbsctl control directory for the DBBS, assign to DBBS: | (NOT IMPLEM[\O~ [Z\%  b servers.docL[Z G HOW TO WRITE SERVER PROGRAMS SERVERS are run on demand by the DNET device driver. This is accomplished by DNET doing a LoadSeg() and CreatProc(). The server CANNOT GO THROUGH A NORMAL STARTUP for several reasons: (1) There is no CLI and the message passed over the process port is DNET specific (NOT a workbench message) (2) Registers contain garbage (no argument line) (3) No standard file handles exist For AZTEC C, this is accomplished by overiding the standard _]^Q҂G\^ 8 cliterm.docL]\ AMIGA/CLITERM CLITERM [-Nnet] [port#] CLITERM is used between two amigas to open a remote CLI on the remote amiga. CLITERM is a standard FTERM minus some features and plus some features. The big feature is that it line-buffers the data, allowing you to edit lines before sending them off to the remote cli. It also defaults to the SCLI server's port # (8196). WARNING: You must be at a CLI (or 1.3 NewShell shell) prompt when you exit! The r_`IHQ`X  getfiles.docL_Q9UNIX/GETFILES AMIGA/GETFILES GETFILES [-Nnet#] [-dlocaldir] [-c] file/dir file/dir file/dir .. GetFiles file transfer client. Download the specified files and or dirs from the remote machine into the current directory, or the directory specified if the -d option is used. Entire directory trees may be downloaded The -c "continue" option only downloads files which do not already exist. For files which do exist, if the local file size is less than the remote file size, the rabaNgfedcb  dnetlib.doc.infoLac[&b'@'L&"bޘEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUad` P?=<NMLKJPOi1  dnetlib.docLhO^1 DNET LINK LIBRARY Link with your server's and client programs. listenport = DListen(port#) listen for connections chanport = DAccept(listenport) accept a new connection DNAAccept(listenport) or refuse a new connection chanport = DOpen(host, port#, txpri, rxpri) open a new channel DPri(chanport, priority) (not implemented yet) act = DNRead(chanport, buf, bytes) (see below) act = DRead(chanport, buf, bytjk?Fk  putfiles.docLjF&rUNIX/PUTFILES AMIGA/PUTFILES PUTFILES [-Nnet#] [-dDESTDIR] file/dir file/dir file/dir .. File transfer client. Transfer the specified files and or directories to the destination directory on the remote machine. For instance: unix: putfiles -dram: charlie.txt /usr/include places the file charlie.txt as ram:charlie.txt, and places the directory structure /usr/include as ram:include/(whatever). The -N option selects the network number (see -N option for DNET). The defalm')m historyLl HISTORY AS OF V2.00 SCOPY V2.01.03 Added s:dnet.servers default directory support. The directory specified in s:dnet.servers (last field) becomes the default directory files are written to. For instance: unix: putfiles -dram: charlie.txt /usr/include places the file charlie.txt as ram:charlie.txt, and places the directory structure /usr/include as ram:include/(whatever). The -N option selects the network number (see -N option for DNET). The defanoσIDCBA@o   dnet.doc.infoLn@~b''(L'Xb(EUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUpq4321Eq  Oorganization.doc.infoLpE0G&b('((L'"bEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUrss  quitdnet.docLrAMIGA/QUITDNET QUITDNET [-Nnet] This program causes the remote DNET to exit (remote is UNIX) or return to the original window state (remote is an AMIGA). This is used mainly for debugging to allow one to restart a newer copy of the program. The -N option specifies the network (default = 0). This is the same network as was specified when you ran DNET (if was not specified, is 0) UUUUGUUUUGUUUUGt*uw dnetuvl0/.-,+*)('&:98765;v(| dnet.ctu;Bi /* * DNET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. */ #include "dnet.h" #include void do_netreset(); char *GetDEnv(); short Deemu[] = { DMSTRT, 0, 0, DMNW , 0,10, 50, 50, 320, 100, 0xFFFF, DMEND , 0, 0 }; extern int Enable_Abort; /*long DResBase;*/ char PortName[sizeof(DNETPORTNAME)+32]; #ifdef LATTICE int __stdargs CXBRK(void); /* get around a bug in lcr.lib : onbreak() */ int __stdargs CXBRK(void) { retuwx0|%$#"! ~}|{zyx, wwindow.ctwy /* * WINDOW.C * * DNET interactive terminal window. */ #include "dnet.h" #include "/server/servers.h" #include "/dnet/channel.h" #include "/lib/dnetlib.h" void setparity(); void addparity(); void OpenConsole(); void CloseConsole(); void InitDeemuNW(); void LoadConnectList(); void UnLoadConnectList(); IOSER *NetReadReady(); IOSER *NetAbortRead(); typedef struct TextAttr TA; typedef struct IntuiText ITEXT; typedef struct IntuiMessage IMESS; typedef struct Screen SCR; typedef wzMstruct Library LIB; typedef struct Menu MENU; typedef struct MenuItem ITEM; struct IntuitionBase *IntuitionBase; struct GfxBase *GfxBase; TA Ta = { (ubyte *)"topaz", 8 }; ITEXT IText[] = { { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"SendBreak" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"StartDNET" }, { 0, 1, JAM2, 0, 0, &Ta, (ubyte *)"QUIT" } }; ITEM Item[] = { { &Item[1], 0, 0, 120, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[0], NULL, 'b' }, { &Iw{Item[2], 0,10, 120, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[1], NULL, 's' }, { NULL , 0,20, 120, 10, ITEMTEXT|COMMSEQ|ITEMENABLED|HIGHCOMP, 0, (APTR)&IText[2], NULL, 'q' } }; MENU Menu[] = { { NULL , 0, 0, 120, 20, MENUENABLED, "DnetControl", &Item[0] } }; ubyte Title[80]; void do_dnetwindow(oldbaud) { static struct NewWindow Nw = { 50, 50, 320, 100, -1, -1, CLOSEWINDOW|MENUPICK, WINDOWSIZING|WINDOWDRAG|WINDOWDEPTH|WINDOWCLOSE|NOCAREREFRESH|Aw|jCTIVATE, NULL, NULL, Title, NULL, NULL, 32, 32, -1, -1, WBENCHSCREEN }; struct Window *win; char RcvBuf[128]; char Cc; char RSync = 0; long imask, smask, conmask, mask, dnet_mask; #ifdef NOTDEF long ipc_mask; #endif IOCON *iocr, *iocw; char notdone = 1; sprintf(Title, "DNET V%s%s", VERSION, DNET_VERSION); setparity(0xFF, 0x00, 1); IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0); GfxBase = (struct GfxBaw}nH9se *)OpenLibrary("graphics.library", 0); if (IntuitionBase == NULL || GfxBase == NULL) goto e1; InitDeemuNW(Deemu+DMNWOFF, &Nw); win = OpenWindow(&Nw); if (win == NULL) goto e1; SetMenuStrip(win, Menu); OpenConsole(win, &iocr, &iocw); if (iocr == NULL) goto e3; if (Cto_act) { AbortIO((IOR *)&Cto); WaitIO((IOR *)&Cto); Cto_act = 0; } if (Wto_act) { AbortIO((IOR *)&Wto); WaitIO((IOR *)&Wto); Wto_act = 0; } SetBaudRate(oldbaud); w~ve if (OpenCfgFile()) { /* Automatic enviroment reset. */ char *env; char *get = (AutoAnswer) ? "ENVA" : ((DialOut) ? "ENVO" : "ENVM"); while (env = GetCfgLine(get)) { char *ptr; for (ptr = env; *ptr && *ptr != ' ' && *ptr != 9; ++ptr); if (*ptr) { *ptr = 0; for (++ptr; *ptr == ' ' || *ptr == 9; ++ptr); SetDEnv(env, ptr); } } } if (Cd == 0 && AutoAnswer) { if (OpenCfgFile()) { char *str; while (str = GetCfgLine("RESM")) { /w"* RESM MODEM-CMD */ short len = strlen(str); str[len++] = '\r'; NetWrite(str, len, 0); Cto.tr_time.tv_secs = 1; Cto.tr_time.tv_micro= 0; DoIO((IOR *)&Cto); } CloseCfgFile(); } else { NetWrite("AT\r", 3, 0); /* cause modem to reset baud rate */ Cto.tr_time.tv_secs = 1; Cto.tr_time.tv_micro= 0; DoIO((IOR *)&Cto); NetWrite("AT\r", 3, 0); /* cause modem to reset baud rate */ Cto.tr_time.tv_secs = 1; Cto.tr_time.tv_micro=w&I 0; DoIO((IOR *)&Cto); NetWrite("ATS0=1\r", 7, 0); /* auto answer on */ } } iocr->io_Data = (APTR)&Cc; iocr->io_Length = 1; SendIO((IOR *)iocr); imask = 1 << win->UserPort->mp_SigBit; smask = 1 << IOSink->mp_SigBit; conmask = 1 << iocr->io_Message.mn_ReplyPort->mp_SigBit; dnet_mask = 1 << DNetPort->mp_SigBit; #ifdef NOTDEF ipc_mask= 1 << IPCPort->mp_SigBit; #endif LoadConnectList(); Signal(FindTask(NULL), imask|smask|conw o{mask|dnet_mask/*|ipc_mask*/); StartWriteTimeout(1); while (!Quit && OnLine == 0) { mask = Wait(imask|smask|conmask|dnet_mask/*|ipc_mask*/); #ifdef NOTDEF if (mask & ipc_mask) handle_ipc(); #endif if (mask & dnet_mask) { IOSTD *ior; while (ior = (IOSTD *)GetMsg(DNetPort)) { switch(ior->io_Command) { default: case DNCMD_WRITE: case DNCMD_EOF: case DNCMD_IOCTL: case DNCMD_QUIT: case DNCMD_OPEN: ior->io_Error = 1; break; case DNCMD_w " CLOSE: Chan[(ulong)ior->io_Unit].state = CHAN_FREE; break; case DNCMD_SOPEN: { uword chan = (ulong)ior->io_Unit; Chan[chan].state = CHAN_FREE; if (!ior->io_Error) { Chan[chan].state = CHAN_CLOSE; Chan[chan].port = (PORT *)ior->io_Offset; Chan[chan].flags = CHANF_RCLOSE; WritePort(Chan[chan].port, DNCMD_CLOSE, NULL, 0, PKT_REQ, chan); } if (ior->io_Length) FreeMem(ior->io_Data, ior->io_Length); FreeMem(ior, sizew of(IOSTD)); ior = NULL; } break; case DNCMD_EXEC: Execute((char *)ior->io_Offset, NULL, NULL); break; } if (ior) ReplyMsg((MSG *)ior); } } if (mask & imask) { struct IntuiMessage *im; while (im = (IMESS *)GetMsg(win->UserPort)) { switch(im->Class) { case CLOSEWINDOW: notdone = 0; Quit = 1; break; case MENUPICK: switch((uword)((MENUNUM(im->Code)<<8)|ITEMNUM(im->Code))) { case 0x0000: /* menu3 TODOt3S -REMOTE CONTROL / AUTO HANGUP PROBLEM (INFINITE WAIT) -get priority working -arbitrate Transmit queue... round robin active requests in 64 byte chunks (data packets only). -NumCon not completely implemented -Parallel port access -Host Names -Better term prog response. tatic char tmpbuf[64]; static short tlen; short i; NODE *node; long newbaud = oldbaud; for (i = 0; i < n; ++i) { if (ptr[i] == 13 || ptr[i] == 10) { tmpbul     )# dnet.ht/ /* * DNET.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * */ #include #include #include #include #include #include #include #include #include #include #include #include #include "/version.h" #define DNET_H #define DMNWOFF 4 /* Deemu offset to NewWindow C  dataconv.ct)E /* * DATACONV.C * * Data Conversion. */ typedef unsigned char ubyte; typedef unsigned short uword; typedef unsigned long ulong; int Compress7(s, db, n) ubyte *s; ubyte *db; uword n; /* actual source bytes */ { ubyte *d = db; while (n) { *d++ = *s++ << 1; if (--n == 0) break; d[-1] |= *s >> 6; *d++ = *s++ << 2; if (--n == 0) break; d[-1] |= *s >> 5; *d++ = *s++ << 3; if (--n == 0) break; d[-1] |= *s >> 4; *d++ = *s++ << 4; if (--n ==Y  d channel.htG /* * CHANNEL.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * Channel structures for SCMD_* channel commands. */ #ifndef DNET_CHANNEL_H #define DNET_CHANNEL_H #ifndef DNET_H typedef struct IOStdReq IOSTD; #endif #define CSWITCH struct _CSWITCH #define COPEN struct _COPEN #define CCLOSE struct _CCLOSE #define CACKCMD struct _CACKCMD #define CEOFCMD struct _CEOFCMD #define CIOCTL struct _CIOCTL CSWITCH { /* SWITCH current data channel */ ubyte k  DMakefilet? # DNET DRIVER # # Lattice C V5.02 # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. CFLAGS = -iprivate_include: -cim -v BIN = /bin/ OD = ltmp:dnet/ SRCS = control.c globals.c sernet.c window.c dnet.c ipc.c \ subs.c time.c packet.c dataconv.c OBJS = $(SRCS:"*.c":"$(OD)*.o") SYMS = $(OD)dnet.m all: $(SYMS) $(BIN)dnet $(BIN)dnet: $(OBJS) Assign dnetbin: /bin Assign dnetlib: /lib cd $(OD) blink FROM LIB:c.o $(OBJS:"$(OD)*":"*") LIB dnetlib:latt]E' 3subs.ctk /* * SUBS.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * */ #include "dnet.h" #include #ifdef LATTICE #include #endif #ifndef LATTICE char *FakeArgs; long FakeLen; long FakeGo; long FakeCLI; extern char *malloc(); #endif void dneterror(); typedef struct CommandLineInterface CLI; /* * Add the high-level command to the queue of commands to be sent to * the remote DNET. */ void WriteStream(sdcmd, buf, len, chan) int sdcmd; vȚHoid *buf; int len; uword chan; { IOSTD *ior = AllocMem(sizeof(IOSTD), MEMF_PUBLIC); if (DDebug) printf("WriteStream: cmd %ld buflen %ld chan %ld\n", sdcmd, len, chan); ior->io_Message.mn_Node.ln_Name = (char *)PKT_REQ; ior->io_Message.mn_ReplyPort = IOSink; ior->io_Data = (APTR)AllocMem(len, MEMF_PUBLIC); ior->io_Length = len; ior->io_Actual = 0; ior->io_Command = sdcmd; ior->io_Error = 0; ior->io_Message.mn_Node.ln_Pri = (chan > MAXCHAN) ?Qĉ 126 : Chan[chan].pri; BMov(buf, ior->io_Data, len); Enqueue(&TxList, (NODE *)ior); do_wupdate(); } /* * Send a packet to a port. Used to send data/eof/close to channel * ports, and to relay open requests to server ports. */ void WritePort(port, scmd, buf, len, rettype, unit) PORT *port; int scmd; void *buf; int len; int rettype; int unit; { IOSTD *ior = AllocMem(sizeof(IOSTD), MEMF_PUBLIC); if (DDebug) printf("WritePort: cmd %ld buflen %ld rt %ld unite %ld\n", scmd, len, rettype, unit); ior->io_Message.mn_Node.ln_Name = (char *)rettype; ior->io_Message.mn_ReplyPort = (rettype) ? IOSink : DNetPort; ior->io_Unit = (struct Unit *)unit; ior->io_Command = scmd; ior->io_Error = 0; ior->io_Data = NULL; ior->io_Length = 0; ior->io_Actual = 0; if (buf) { ior->io_Data = (APTR)AllocMem(len, MEMF_PUBLIC); ior->io_Length = len; BMov(buf, ior->io_Data, len); } PutMsg(port, (MSG *)ior); if (ret-#_otype == PKT_REQ) ++NumCon; } /* * ALLOC_CHANNEL() * * Allocate a channel. Starting at a random point, find the first * free channel. Return -1 if no free channels found. */ alloc_channel() { static ulong ran = 13; long stamp[3]; uword i; DateStamp(stamp); ran = ((ran * 13) + 1) ^ (ran >> 9) + stamp[0] + stamp[1] + stamp[2]; for (i = ran % MAXCHAN; i < MAXCHAN; ++i) { if (Chan[i].state == 0) { return((int)i); } } for (i = ran % MAXCHA*^N; i != 0xFFFF; --i) { /* Fixed 28 September 1988 */ if (Chan[i].state == 0) { return((int)i); } } return(-1); } /* * Get next node in a linked list. If a pointer to a list base * is passed, gets the first node in the linked list. Returns * NULL if no further nodes in the list. */ GetNext(node) NODE *node; { NODE *next = node->ln_Succ; if (*(long *)next) return((long)next); return(NULL); } /* * CHKBUF * * Generate a two-byte checksum for ~data. Uses a very simple, but * effective algorithm. */ chkbuf(buf, bytes) ubyte *buf; uword bytes; { uword i; ubyte c1,c2; for (i = c1 = c2 = 0; i < bytes; ++i) { c1 += buf[i]; c2 += c1; } c1 = -(c1 + c2); return((c1<<8)|c2); } void TimerOpen(req, sink) IOT *req; PORT *sink; { if (OpenDevice("timer.device", UNIT_VBLANK, (IOR *)req, 0)) dneterror("timer.device"); req->tr_node.io_Message.mn_ReplyPort = sink; req->tr_node.io_Command = TR_ADdgDREQUEST; } void TimerClose(req) IOT *req; { CloseDevice((IOR *)req); req->tr_node.io_Device = NULL; } /* * RUNSERVER * * Search the file [S:]DNET.SERVERS for the specified server and * attempt to LoadSeg()/CreateProc() it. The port number must be * non-zero (allows commening out lines in DNET.SERVERS), and * regardless of whether the server is able to DListen(), it must * perform a small handshake sequence with DNET. */ #ifdef LATTICE static struct ProcID *SvB m$t+ase; void InitServers() { SvBase = NULL; } void RunServer(portnum) uword portnum; { FILE *fi; char buf[128]; char s1[64], s2[64]; long v1; if (!portnum) return; if ((fi = fopen("dnet.servers", "r")) == NULL) fi = fopen("s:dnet.servers", "r"); if (fi) { while (fgets(buf, 128, fi)) { if (sscanf(buf, "%ld %s %s", &v1, s1, s2) == 3 && v1 == portnum) goto success; } fclose(fi); } return; success: fclose(fi); { PROC *myproc;  ûZ MSG msg; struct ProcID *pid = malloc(sizeof(struct ProcID)); int error; BZero(pid, sizeof(*pid)); error = forkl(s1, "__dnet", "__dnet", NULL, NULL, pid); if (error < 0) { printf("Server not found: %s\n", s1); free(pid); } else { myproc = (PROC *)FindTask(NULL); msg.mn_ReplyPort = &myproc->pr_MsgPort; msg.mn_Node.ln_Name = s2; printf("Starting Server: %s proc %08lx ", s1, pid->process); fflush(stdout); PutMsg(&pid->process->pr_MsgPort .;L, &msg); /* startup handshake */ WaitPort(&myproc->pr_MsgPort); (void)GetMsg(&myproc->pr_MsgPort); puts("started"); fflush(stdout); pid->nextID = SvBase; SvBase = pid; } } } void DeleteServers() { struct ProcID *pid, *pn; for (pid = SvBase; pid; pid = pn) { pn = pid->nextID; for (;;) { Signal((TASK *)pid->process, SIGBREAKF_CTRL_C); printf("Waiting for pid %08lx to die\n", pid->process); if (CheckPort(pid->parent))  3DN ipc.ct̲ /* * IPC.C * * Handle IPC messages * * NOTE: Only an explicit disconnect command will drop DTR, or when * the serial.device is closed. */ static int dummy; #ifdef NOTDEF #include "dnet.h" #include #define IPCMDS struct _IPCMDS void do_online(), do_offline(), do_stat(), do_quit(), do_disconnect(); void do_state(); void do_recvon(), do_recvoff(), do_serialon(), do_serialoff(); void do_baud(); void do_getidle(), do_getconnect(), do_setidlealert(), do_] Xsyms.ct1D #include "dnet.h" e(); } #endif oid do_recvon() { NetRecvOn(); } void do_recvoff() { NetRecvOff(); } void do_serialon() { NetSerialOn(); } void do_serialoff() { NetSerialOff(); } void do_baud(av) char **av; { long baud = atoi(av[1]); if (baud) { Baud = baud; SetBaudRate(baud); } } void do_getidle(av, pbuf, plen) char **av; char **pbuf; long *plen; { char buf[32]; sprintf(buf, "%ld", GetIdle()); AllocAppend(pbuf, plen, buf, strlen(be  globals.ctM? /* * GLOBALS.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * -restart/packet protocol * -dnet->amiga (DNET.READ) * -amiga->dnet (DNET.WRITE) */ #include "dnet.h" int Enable_Abort; IOT Rto; /* Read-Timeout/reset */ IOT Wto; /* Write-Timeout/retry */ IOT Cto; /* 1 second CD check / idle line*/ PKT Pkts[9]; /* data buffers for packets */ PKT *RPak[4] = { Pkts+0,Pkts+1,Pkts+2,Pkts+3 }; PKT *WPak[4] = { Pkts+4,Pkts+5,Pkts+6,Pkts+7 \O time.ct᩶>6 /* * TIME.C * * Handle IPC alert functions & timekeeping for connect and idle time. */ #include "dnet.h" #include #include #define TICKSIZE 10 /* 10 second intervals */ static long TickIdle; static long TickConnect; static long AlertIdle; static long AlertConnect; static char AIWho[64]; /* app-name to alert */ static char ACWho[64]; /* app-name to alert */ /* * CTO: Idle timeout (check carrier) * */ void do_cto(ior) IOT  ))> packet.ctP /* * PACKET.C */ #include "dnet.h" void BuildPacket(); #define Ascize(foo) (((foo) & 0x3F) | 0x40) ubyte RxTmp[MAXPACKET]; void BuildDataPacket(pkt, win, dbuf, actlen) PKT *pkt; ubyte win; ubyte *dbuf; uword actlen; { ubyte *ptr; ubyte *pend; ubyte range = 0; static ubyte BadCtl[32] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; ptr = dbuf; pend= dbuf + actlen; while (ptr < pend) { && sernet.ct50 /* * SERNET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * NetWork device interface. */ #include "dnet.h" IOSER *NetAbortRead(); void NetWaitWrite(); void SaveState(); void RestoreState(); void NetSerialOff(); void NetSerialOn(); static IOSER Iosw; static ubyte IoswIP; static ubyte LastWasWrite; static ubyte IosrIP; static ubyte RBuf[MAXPACKET*2]; /* Recv Buf. */ static IOSER *CNet; /* control-req (synchro) */ static IOSER )sһ*RNet; /* read-request */ static ubyte SerialIsOpen; /* serial device is open */ static ubyte RecvEnabled = 1; static char *DevName; static long UnitNum; void NetOpen(iosink, devname, unitnum, pbaud) PORT *iosink; char *devname; long *pbaud; { IOSER ios; long baud = *pbaud; DevName = devname; UnitNum = unitnum; printf("netopen %s %d\n", devname, unitnum); BZero(&ios, sizeof(ios)); ios.io_CtlChar = 0x11130102; ios.io_SerFlags = SE%/RF_SHARED|SERF_XDISABLED|SERF_RAD_BOOGIE; if (OpenDevice(devname, unitnum, (IOR *)&ios, 0)) dneterror(devname); ios.IOSer.io_Message.mn_ReplyPort = iosink; SerialIsOpen = 1; RNet = (IOSER *)AllocMem(sizeof(IOSER), MEMF_PUBLIC); CNet = (IOSER *)AllocMem(sizeof(IOSER), MEMF_PUBLIC); *RNet = ios; *CNet = ios; { IOSER *ioc = CNet; ioc->IOSer.io_Command = SDCMD_QUERY; DoIO((IOR *)ioc); if (Getty == 0) { ioc->IOSer.io_Command = SDCMD_SETPARAMS;$u ioc->io_SerFlags = SERF_SHARED|SERF_XDISABLED|SERF_RAD_BOOGIE; ioc->io_ExtFlags = 0; ioc->io_ReadLen = ioc->io_WriteLen = 8; ioc->io_CtlChar = 0x01020304; if (baud) ioc->io_Baud = baud; switch(Protocol) { case 0: break; case 1: /* xon-xoff */ Mode7 = 1; ioc->io_SerFlags &= ~SERF_XDISABLED; break; case 2: ioc->io_SerFlags |= SERF_7WIRE; break; } *pbaud = Baud = ioc->io_Baud; if (DoIO((IOR *)ioc) != 0) dnebterror("Unable to set serial parameters"); } } RNet->IOSer.io_Command = CMD_READ; RNet->IOSer.io_Message.mn_Node.ln_Name = (char *)RNET_REQ; CNet->IOSer.io_Command = CMD_WRITE; CNet->IOSer.io_Message.mn_Node.ln_Name = (char *)WNET_REQ; Iosw = *CNet; CNet->IOSer.io_Message.mn_Node.ln_Name = (char *)CNET_REQ; puts("net open"); } /* * Closedown the network. */ void NetClose() { NetAbortRead(); NetWaitWrite(); if (SerialIsOpen) Clos$BeDevice((IOR *)RNet); if (RNet) FreeMem(RNet, sizeof(IOSER)); if (CNet) FreeMem(CNet, sizeof(IOSER)); SerialIsOpen = 0; RNet = CNet = NULL; } /* * NETCLWRITE() * * Clear write request which was GetMsg()'d in DNET.C instead of * WaitIO()'d here. */ void NetClWrite(ior) IOSER *ior; { if (ior == &Iosw) IoswIP = 0; } void NetWrite(buf, bytes) ubyte *buf; int bytes; { if (PDebug) { short i; LastWasWrite = 1; printf("WRITE %03x Bytes:", bytes); fovr (i = 0; i < bytes; ++i) printf(" %02x", buf[i]); printf("\n"); } if (!SerialIsOpen) return; if (IoswIP) { WaitIO((IOR *)&Iosw); IoswIP = 0; } if (bytes) { Iosw.IOSer.io_Message.mn_Node.ln_Name = (char *)WNET_REQ; Iosw.IOSer.io_Data = (APTR)buf; Iosw.IOSer.io_Length = bytes; SendIO((IOR *)&Iosw); IoswIP = 1; } fixsignal(Iosw.IOSer.io_Message.mn_ReplyPort); } void NetBreak() { if (SerialIsOpen) { CNet->IOSer.io_Command = SDCMD_BREAK;$ DoIO((IOR *)CNet); fixsignal(Iosw.IOSer.io_Message.mn_ReplyPort); } } /* * NETREADY() * * Using the specified inactive request, return the # bytes ready and * the carrier status. */ NetReady() { long n = 0; if (SerialIsOpen && RecvEnabled) { CNet->IOSer.io_Command = SDCMD_QUERY; if (DoIO((IOR *)CNet) == 0) n = CNet->IOSer.io_Actual; Cd = !(CNet->io_Status & (1 << 5)); } return(n); } /* * SetBaudRate() */ SetBaudRate(baud) long baud; {  j: long result; if (Getty) return(0); if (TOBaud == 0) SetTimeouts(baud); if (CNet) CNet->io_Baud = baud; if (!SerialIsOpen) return(1); SaveState(); CNet->IOSer.io_Command = SDCMD_SETPARAMS; result = DoIO((IOR *)CNet); RestoreState(); if (result) printf("Unable to set baud rate to %d\n", baud); if (!result && PDebug) printf("Baud rate set to %d\n", baud); return(0); /* don't abort whether we can or not */ } /* * Assumes CNet  holds current settings */ void DropDTR() { if (SerialIsOpen) { /* only if serial.device currently open */ NetSerialOff(); Delay(50*4); NetSerialOn(); } } IOSER * NetAbortRead() { if (IosrIP) { if (SerialIsOpen && RecvEnabled) { AbortIO((IOR *)RNet); WaitIO((IOR *)RNet); } IosrIP = 0; } return(RNet); } /* * NetStartRead(bytes) */ static long SaveLen; void NetStartRead(len) long len; { if (len > sizeof(RBuf)) len = sizeof(RBuf 8Ѯ); if (SerialIsOpen && RecvEnabled) { if (IosrIP) NetAbortRead(); RNet->IOSer.io_Data = (APTR)RBuf; SaveLen = RNet->IOSer.io_Length = len; SendIO((IOR *)RNet); } else { SaveLen = len; RNet->IOSer.io_Actual = 0; } IosrIP = 1; } IOSER * NetReadReady() { return((IOSER *)CheckIO((IOR *)RNet)); } NetReadReturned(pptr) ubyte **pptr; { long bytes = 0; IosrIP = 0; bytes = RNet->IOSer.io_Actual; *pptr = RBuf; if (PDebug) { short i = 0;SƓ1 - control.ct2 /* * CONTROL.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * Main packet control. Medium level. Interprets formatted received * packets and sends formatted tx packets. Uses low level packet * construction and reception routines in PACKET.C */ #include "dnet.h" #include void do_rupdate(); void do_reccmd(); void replywindow(); void StartWriteTimeout(); /* * RTO: read timeout. Timeout occured while waiting for the rest of * rj  REQUIREMENTS DNET (c)Copyright 1987-1989 Matthew Dillon, All Rights Reserved Matthew Dillon 891 Regal Rd Berkeley, Ca. 94708 USA ...!ihnp4!ucbvax!dillon USENET dillon@ucbvax.Berkeley.edu ARPANET ucbvax.berkeley.edu pub/amiga ARPANET-FTP CHANGES THIS VERSION: 7 bit support files compile under Lattice C (and don't compile under Aztec C but will eventually compiler under the new Aztec). REQUIREMENTS TO RUN DNET ON AN AMIGA (This distribution contains the necessary file93  doshand62Xzyxwvf  $ nfs-handler.c ho)@+ /* * Since this code might be called several times in a row without being * unloaded, you CANNOT ASSUME GLOBALS HAVE BEEN ZERO'D!! This also goes * for any global/static assignmen!}|{  uuser.doc UUSER.DOC UUSER V1.00 Beta Currently UUSER: works only with single sessions started by Getty (this has to do with how UUSER: deals with carrier detect). THIS WILL BE FIXED. Openning UUSER: fopen("UUSER:devicename/unit/options", ...); Example: (suggested) int fd = open("UUSER:serial.device/0/R1000", O_RDWR | O_CREAT | O_TRUNC); (also can do this -- see below for problems using stdio to read) FILE *rfi = fopen("UUSER:seRv  DMakefile.Lattice' # DNET SERVERS # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. # # Aztec C Compilation and Makefile CFLAGS = -iprivate_include: -cim -rr -v -O BIN = /bin/ OBDIR = ltmp:dnet/ SRCS = *.c OBJS = $(OBDIR)*.o all: $(BIN)* $(BIN)* : $(OBJS) blink FROM %(right) LIB /lib/lattice_dnet.lib LIB:sup32.lib LIB:lcr.lib lib:amiga.lib TO %(left) $(OBJS): $(SRCS) lc $(CFLAGS) -o%(left) %(right) carrier is lost when you read 0 bytes... this is so your program thNd  mountlistd UUSER: Handler = uucp:l/uuser-handler Stacksize = 6000 Priority = 5 GlobVec = 1 #   @doshand 3Aponmlk~L  Cdos.h~ /* * DOS.H */ #include #include #include #include "/server/servers.h" #include "/dnet/channel.h" #include "/lib/dnetlib.h" #ifdef LATTICE #include #include #endif #ifdef NOTDEF #include "exec/types.h" #include "exec/memory.h" #include "libraries/dos.h" #include "libraries/dosextens.h" #include "libraries/filehandler.h" #endif NOTDEF /* * ACTIONS which do not exist in dosextens.h but which indeed exist on * ^]\[ZYXWVUjihgfedcba`qutsr3s uuser.crD> /* * UUSER.C UUSER:devicename/unitnumber/options * UUSER:serial.device/0/R1000 * * options: * Rn Set read timeout when no data available to n millisecs * C0 Ignore carrier detect * * features: * 1K asynchronous write capability (write 0 bytes to sync up) * programmable read-timeout (Getty starts procs up w/ 1sec to) * * combined together, you can easily implement 100% efficient * protocols even with that 1 second read timeout! */ #include #includZ1_ Mdoc.info_vlGP' L<ٸSF@,! Z(Px:<:4:?4_(0 ???????????3  binŕ1lEDCBA@?TSRQPONMLKJq8 loadavd 8H%-J 7<L8H~$H$I,xGr <`&Q)O@)N8Bp,` L|H?>QHA0L|2`# # Qd0fNu QdNu2fh2 f^ e,",i"H?>p,` L|H|QHA0L|2`""Qd0fNuQdNuLH2,y8"|||/nEG$&%J#O$IN/ a6X"LLNu op (g Nu op hJg Nu oH2$H&h,y8 *f+pN`N"JNN LLNuLӓ%H 8$@&A(OtpfJg *fP Bfp`0@))RBR`SBk0@ tJgJBk|0@$tRR&tR` ?fJfDJBf`P Ae Zb  Ae Zb g JBf`JfSJfS`:pLNu"y8"iggHpa@L!IRhNuL` opfpNupNuL` opfNuH",y8R.'g2?/.// pN0/ ofg P` NvLDNu oShfp!@"fNuL` op"g8H "[n,y8R.'"g$A* f "jpN"fNvLDNuLH0"@Jg,"QJg$ ) gg$@&H fJ*f L NupL NuNuNuNUH/./4&o8(p1gp`p+VDHH,Jf+fzp'@ rgB/ NXOJg p`*Jg +"D'A ` +'@ S m kC'I r` r/ /aRPO" `+gXpfp` @Jg"r fr/Hz/++AN `@|`6|Jg o$p-gr+ffp`p, m N.SA0xf m p`B -r N"t‚Ё+@ m N.Sg A0xf gJjDJg R - `Jg R -0` R `p0mp7o m p`vB -"t‚Ё+@ m N.Sg p0mp7o g4Jf R - `" R `Jfp+@A0xf m p`ъ1W-,+*)>=<;:987654IHGF&X 3scopyFm1RI'#%-J &<n 7% RH~$H$I,xGr <`&Q)OP)NHBLp"<0NCZpN)@D fpd`&n)kDJgh )@ k"h r)IXЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@L/$@ *$g,lD @"()ADN"* g$<N)@Tg @'h lL/Hl h$)hXNNbp` // ,getfilesW Z%-J 7<ZH~$H$I,xGr <`&Q)O)NBp"<0NCZpN)@fpd`&n)k Jgh )@ k"h r)I ЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@/$@ *$g,l @"()A N"* g$<N)@g @'h l/Hl h$)h N:Np` // ,g @NNz,x"lNbNJg",gN,xN|"lN .lL~Nuِ>"  ZsprintՑCy'#%-J &<n 7%CH~$H$I,xG0r <h`&Q)Op)NhBlp"<0NCZpN)@fpd`&n)kdJgh )@4 k"h r)IxЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:4pRѬ4A\NA\N)@l/$@ *$g,l @"()AdN"* g$<N)@tg @'h ll/Hl0 h$)hxNNbp` // ,\g @NN,x"lNbNH܇\H +dnet1 +*)('&(H sstermݏ5` 2[I\n  2H~$H$I,xG \r </`&Q)O )N B p"<0NCZpN)@+@fpd`&n)k Jgh )@ ` k"h r)I ЁRBgR@UBw Sԁ SQ S Q"O/ `r)k: `pRѬ `A\NA\N)@ /$@ *$g,l+@ @"()A N"* g$<N)@ g @'h l /Hl \ h$)h N~N)p` // , g @NN ,x"l+@NbNTJ g", gN,xN|"l N .l LY1~Nudos.library o"o / g@`VfdpNupNuL / gc2fh2 f^ e,",i"H?>p,` L|H?>QHA0L|2`# # Qd0fNu QdNu2fh2 f^ e,",i"H?>p,` L|H|QHA0L|2`""Qd0fNuQdNur`/ o / (c` QNuH?>$gS$BB4HB&(*,."B$B&B(B*B,Br0k H?~jA2<Ak!AjA`QL|NuLH2,y "|||/nEG$&%J#O$IN/ a6X"LLNu op (g Nu op hJg Nu oH2$H&h,y *f+pN`N"JNN LLNuLH 8$@&A(OtpfJg *fP Bfp`0@))RBR`SBk0@ tJgJBk|0@$tRR&tR` ?fJfDJBf`P Ae Zb  Ae Zb g JBf`JfSJfS`:pLNu"y "iggHpa@L!IRh^>+NuL` opfpNupNuL` opfNuH",y R.'g2?/.// pN0/ ofg P` NvLDNu oShfp!@"fNuL` op"g8H ",y R.'"g$A* f "jpN"fNvLDNuLH0"@Jg,"QJg$ ) gg$@&H fJ*f L NupL Nu o PJg NupNuNuNuNUH2"m i ,xN&@"m i NJfJkf k"mg"KN`"K,xN.+ mJf /( NBXO m ($@ ",l+@NdY "J,xN. LLN]NupaH&o KJfS,~Jg2S 2m l *C)I * r` rHl &/NPO"`Hl &HxNPO LNupaNUH0&oD|A +HJg p%fpr]Ak{fNd`Px`p`s` m$X+H`J m(+HEzJk rASS`B-` m(+H/HmN%POE/ NXO܀`^RS 2m l *C)I * r`>pHl &/NPO"`(RS 2m l *C)I * r`pHl &/NlPO"`Hl &HxNX L N]Nu0123456789ACDEF/ &o" ,l+@NJfmleN|)@ tp)@+B-B t+l+oD%,U 7>H~$H$I,xGr <`&Q)O)NBp"<0NCZpN)@ tfpd`&n)k Jgh )@ k"h r)I ЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@/$@ *$g,l t @"()A N"* g$<N)@g @'h l/Hl h$)h NN2p` // ,g @NN ,x"l tNbNxJg",gN,xN|"lN .lL~Nu쒌4&IHGFEDCBWVUTSRQPONM^ba`_/ >scli_3O'"&D%,U8n.OH~$H$I,xG r <k`&Q)OL)NDBHp"<0NCZpN)@fpd`&n)k@Jgh )@ k"h r)ITЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@H/$@ *$g,l @"()A@N"* g$<N)@Pg @'h lH/Hl h$)hTNNbp` // ,8g @NN,x"lNbNJHg",PgN,x%$#"!6543210/.-,A@?>=<;:987KJL9h 2sgcopy'^   statdnetLz(:$'#%-J &\<n 7% :H~$H$I,xG0r <`&Q)Op)NhBlp"<0NCZpN)@&fpd`&n)kdJgh )@4 k"h r)IxЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:4pRѬ4A\NA\N)@l/$@ *$g,l& @"()AdN"* g$<N)@tg @'h ll/Hl0 h$)hxNNbp` // ,\g @N&>'#%-#J 8&< 7/<H~$H$I,xGr <~`&Q)O)NBp"<0NCZpN)@fpd`&n)k Jgh )@ k"h r)I ЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@/$@ *$g,l @"()A N"* g$<N)@g @'h l/Hl h$)h NNbp` // ,g @NN,x"l , spasswdfVv'#%-#J 8&<n 7%vvH~$H$I,xGr <`&Q)O)NBp"<0NCZpN)@fpd`&n)kJgh )@ k"h r)IЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@/$@ *$g,l @"()AN"* g$<N)@g @'h l/Hl h$)hNNbp` // ,g @NN*,x"lNb63D  clitermEk ,%-#J 87<2H~$H$I,xGr <N`&Q)O)NBp"<0NCZpN)@fpd`&n)kJgh )@ k"h r)IЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:pRѬA\NA\N)@/$@ *$g,l @"()AN"* g$<N)@g @'h l/Hl h$)hNNp` // ,g @NNb,x"lNbNJg",gN,xN|"lN .lL]oB>,-H~$H$I,xGHr <`&Q)O)NBp"<0NCZpN)@ fpd`&n)k|Jgh )@L k"h r)IЁRBgR@UBw Sԁ SQ S Q"O/ `r)k:LpRѬLA\NA\N)@/$@ *$g,l @"()A|N"* g$<N)@g @'h l/HlH h$)hNNRp` // ,tg @NN*,x"l NbNdJg",gN,xN|"lN .lL~Nudos.libraryLH2,y"GQ)|||/nEG$&%J#O$IN/ a6X"LLNu op (g Nu op hJg Nu oH2$H&h,y *f+pN`N"JNN LLNuLH 8$@&A(OtpfJg *fP Bfp`0@))RBR`SBk0@ tJgJBk|0@$tRR&tR` ?fJfDJBf`P Ae Zb  Ae Zb g JBf`JfSJfS`:pLNu"y"iggHpa@L!IRhNuL` opKfpNupNuL` opfNuH",yR.'g2?/.// pN0/ ofg P` NvLDNu oShfp!@"fNuL` op"g8H ",yR.'"g$A* f "jpN"fNvLDNuLH0"@Jg,"QJg$ ) gg$@&H fJ*f L NupL NuNuNuH&o KJfS,~Jg2Sm lC)I r` rHl/NvPO"`HlHxNdPO LNupaNUH0&oD|A +HJg p%fpr]Ak{fNd`Px`p2[`s` m$X+H`J m(+HEzJk rASS`B-` m(+H/HmNPOE/ NXO܀`^RSm lC)I r`>pHl/NjPO"`(RSm lC)I r`pHl/N4PO"`HlHxN L N]Nu0123456789ACDEFNUH/./4&o8(p1gp`p+VDHH,Jf+fzp'@ rgB/ NXOJg p`*Jg +"D'A ` +'@ S m kC'I r` r/ /aRPO" `+gXpfp` @Jg"r fr/HzC/++AN O *`r/Hm/++AN O *~`JgRpgLT r f& kC'I "+ Jk / /aPOR kC'I "+ Jk~ ++@gr+gRHxB/+NO +@Jg8Sm2B/-/+NHxHm/+NPOJ`f -rg/-/+/+NO *`zpf` gJg"+$D'B `+gr'A `"+'A k'Hg.S m kC'I r` r/ /aPO"p0gp` pfp` LN]Nu paH 0&o$KJg$pA0g rt `N47vrR` L NupaH0&o$o./Jg JgJgpr,Jg `S`JgJgp` Jgp`pL NuNUH0&o $o$./( JJfS, KJfS "K+Ic,  J`Sd mB0h L N]Nu / oNU"Or NA0Jf fBN]Nu / oNU"O"AA0f fBN]Nu0123456789abcdef / oC2Af "XᲉfBNu o"Hrp/ +g -fRH0m n $҂ҁҀ` -fD$ S o Nu/./R  l )H .NuNUH0&o$oB )K Hm/ HzTF  version.h @ #ifdef LATTICE #define VERSION "2.10L" #else #define VERSION "2.10M" #endif #define DNET_VERSION ".11" #define STATDNET_VERSION ".04" #define PUTFILES_VERSION ".03" #define LOADAV_VERSION ".05" #define FTERM_VERSION ".04" #define QUITDNET_VERSION ".01" #define GETFILES_VERSION ".02" #define CLITERM_VERSION ".01" #define SPRINT_VERSION ".01" #define SGCOPY_VERSION ".01" #define SCOPY_VERSION ".03" #define STERM_VERSION ".03" #de=5BDfh unixf lib-L * KMakefile*4 dnetlib.o : dnetlib.c cc -c dnetlib.c @CLt Namiga S˕  dnetlib.c7L /* * DNETLIB.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Library Interface for DNET. */ #include #include #include #include #include #include #ifdef O_CREAT #include #endif #include "../lib/dnetlib.h" extern char *getenv(); typedef unsigned short uword; typedef unsigned long ulong; typedef unsigned char ubyte; typedef struct sockaddr SOCKADDR; typedef struct { inS4  dnetlib.h4 #define EFATAL 0 #define EWARN 1 #define EDEBUG 2 fopen(buf, "a")) { strcpy(buf, ctime(&dtime)); buf[strlen(buf)-1] = 0; fprintf(fi, "%s ", buf); fprintf(fi, ctl, arg); putc('\n', fi); fclose(fi); } if (how == EFATAL) exit(1); } s' && *op != 'd') { switch(*op) { case 'h': isshort = 1; break; case 'l': isshort = 0; break; default: return(-1); } ++op; } switch(*op) { case 's': if (ptr[1]) { *(char **)*ap `     6 aREADME.ֺQ DNET V2.10 UNIX SIDE BSD4.2/4.3 compatible Special note this release: default is to run in 7 bit mode (which uses a special 6 bit encoding to encode binary data). The -m0 option has been added for those who can run over full 8 bit nets. DNET (c)Copyright 1987-1989 Matthew Dillon, All Rights Reserved Matthew Dillon 891 Regal Rd Berkeley, Ca. 94708 USA ...!ihnp4!ucbvax!dillon USENET dillon@ucbvax.Berkeley.edu ARPANET ucbvax.berkeley.edu pub/amiga ARPANET n-FTP UNIX SETUP The directory structure must remain intact. simply say MAKE in the main directory and it ought to compile. There might be minor problems depending on how compatible your UNIX is with BSD4.3 UNIX .. I have successfully compiled DNet on the following machines: Dec Vax 7xx Sun 3 Sequent (1) Create a directory. For example, ~/.DNET WARNING! This directory must be on a local partition. DNET uses a unix domain socket and these jW do not work over network fileservers. (2) Modify your .cshrc to add the following line: setenv DNETDIR ~/.DNET/ (or wherever you put it. NOTE! You MUST HAVE THE TRAILING SLASH!) (3) All binaries are usually kept in dnet.unix/bin, add this directory to your path (in your .cshrc) so DNet can find the clients. (4) Place the file 'dnet.servers' in $DNETDIR. Modify the file according to your home directory and where you have put the servers  (usually in dnet.unix/bin). USE ABSOLUTE PATHS, DNET.SERVERS DOES NOT UNDERSTAND ~. NOTE: You may want to chmod $DNETDIR 700 to disallow any unauthorized access to the network. DIALING UP FROM AN AMIGA Follow the installation instructions for the Amiga side. When you dial up the UNIX system you will eventually get a prompt. NOTE! DNET normally uses 7 bit - even parity for dialing up, then switches to 8 bit no parity for the protocol. Sometimes the modem or ?Kv port selector will switch into 7 bit + parity mode and NOT SWITCH OUT. For this reason, you might want to use the -8 option for the Amiga side of DNET (read the docs in the Amiga section). You may have to force parity before running DNet. To force parity to even use (and do this only if running the -Z2 option from the Amiga side dnet): THIS IS NOT NORMALLY DONE. % stty -odd From the DNET window's CSH prompt, start the protocol with: % dnet That was easy. The D ָNet window should go away and an FTERM window should open. This does not mean success! If the FTERM window closes again with the message "unable to connect", it was unable to connect. There are several possibilities: (a) You do not have an 8 bit connection from your amiga to the UNIX host (DNet must be able to send and receive all 256 character codes). (b) You did not setup the DNETDIR enviroment variable properly (c) You did not copy dnet.servers into $DNETIDR  (d) The absolute file path in dnet.servers for server #8192 (that FTerm tires to connect to) is not correct. KILLING DNET In most cases simply turning off the modem will suffice. You can kill dnet more cleanly with the following sequence: (1) From an Amiga CLI, run the QuitDnet command. This will kill the packet protocol and cause the remote DNet to exit. It will then break the local DNet. You should get the original (small) DNet window and theh4 original login shell. If you get the DNet window but not the shell (you can't type), the protocol may still be running on the other end, in which case it didn't work for some unknown reason. Restart the protocol w/ the appropriate menu option and try 'quitdnet' again. (3) logout normally and close the DNet window. Turn off your modem. If the kill sequence in (2) does not work, you can simply hangup the line. HANGING SERVER PROCES hSES The UNIX side servers are normally left running when the protocol dies. These are very very very small and take 0 CPU (they are simply waiting for connections). These servers will still be there when you log in again and DNet will use them. You can kill UNIX side servers at any time. Many of the same clients and servers exist on the UNIX end as on the Amiga end. The UNIX end is missing several. The UNIX end implements two commands called dsoc and draw which can be   used to connect to (in cooked or raw tty mode) specific servers (by port #) on the Amiga side. For example, to connect to the printer server on the amiga side: % dsoc 8198 This is a test ^D % Dumps to PRT: on the Amiga "This is a test" Gee Wiz! SECURITY W/ UNIX DNet will be as secure as your account, assuming you chmod DNETDIR 700 (so nobody else has access to the unix domain sockets). From Home (on the Amiga), I usually RUN DNET -X , login, start the protocol, & and leave it running all day. The -X option turns of security (sets all security levels to 9), thus allowing me to drive to the university and at any time from my UNIX account do a getfiles or putfiles from and to my Amiga. Refer to the amiga side documentation for more information. me. Many of the same clients and servers exist on the UNIX end as on the Amiga end. The UNIX end is missing several. The UNIX end implements two commands called dsoc and draw which can be bjT .infolJL  README ll day. The -X option turns of security (sets all security levels to 9), thus allowing me to drive to the university and at any time from my UNIX account do a getfiles or putfiles from and to my Amiga. Refer to the amiga side documentation for more information. me. Many of the same clients and servers exist on the UNIX end as on the Amiga end. The UNIX end is missing several. The UNIX end implements two commands called dsoc and draw which can be F4  o README.info|Gb%&L ]bEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUU& !#% Userver']#}2~ snfs.c} /* * SNFS.C V1.1 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * NETWORK FILE SYSTEM SERVER * * Accepts connections to files or directories & read-write or dir-scan calls. */ #include #include #include #include #include #include #include #include #include #include #include "servers.h" #include "snfs.h" /* #define DEBUG */ /! sshell.cɩ /* * S_SHELL.C OBSOLETE OBSOLETE OBSOLETE * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Connect a csh to a pseudo terminal pair... PORT_ALPHATERM * NOTE!! PORT_IALPHATERM (a pseudo-terminal csh) is also available * through the FTERM client program on the Amiga side, and much faster * since the server for PORT_IALPHATERM is DNET itself (one less process * to go through). * * -doesn't handle SIGWINCH * -doesn't handle flow control ... don]~Q snfs.h~eE #define ulong unsigned long #define ubyte unsigned char #define uword unsigned short typedef struct { long ds_Days; long ds_Minute; long ds_Tick; } STAMP; typedef struct { long DirHandle; /* relative to directory (0=root) */ uword Modes; /* open modes */ } OpOpen; typedef struct { long Handle; ulong Prot; long Type; long Size; STAMP Date; } RtOpen; typedef struct { long Handle; /* file handle ]r  Rscopy.cg{ /* * SCOPY.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Remote file copy server (putfiles is the client program) */ #include #include #include #include #include #include #include #include #include #include "servers.h" #include "../lib/dnetlib.h" char Buf[4096]; chandler() { union wait stat; struct rusage rus; while (wait3(&s Q7   servers.hA /* * SERVERS.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved */ #define PORT_FILECOPY 8192 #define PORT_ALPHATERM 8193 #define PORT_ECHO 8194 #define PORT_IALPHATERM 8195 #define PORT_AMIGATERM 8195 #define PORT_AMIGASHELL 8196 #define PORT_LOADAV 8197 #define PORT_PRINTER 8198 #define PORT_PASSWD 8199 #define PORT_BBS 8200 #define PORT_GFILECOPY 8201 #define PORT_NFS 8202 #define PORT_ND 8203 Y'; gwrite(chan, &co, 1); goto fail; default: c! "%2gwvuts|{zyx"V Osgcopy.c!x'I /* * SGCOPY.C V1.1 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * GET-COPY SERVER (NEW COPY SERVER) * * The current version only accepts one connection at a time. This server * will send requested files to the remote machine. * * length in 68000 longword format. */ #include #include #include #include #include #include #include #include #in#$-Ko$ Makefile#oQ # DNET SERVERS # # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved NETLIB = ../lib/dnetlib.o BIN = ../bin all: $(NETLIB) $(BIN)/scopy $(BIN)/sshell \ $(BIN)/sloadav $(BIN)/sgcopy $(BIN)/snfs $(NETLIB) : ../lib/dnetlib.c cc -c ../lib/dnetlib.c mv dnetlib.o ../lib $(BIN)/snfs: snfs.o cc snfs.o $(NETLIB) -o $(BIN)/snfs $(BIN)/scopy: scopy.o cc scopy.o $(NETLIB) -o $(BIN)/scopy $(BIN)/sgcopy: sgcopy.o cc sgcopy.o $(NETLIB) -o $(BIN)/sgcopy $(BIN)/snfs: sn%&fRhq&  sloadav.c%qlN /* * SLOADAV.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Reports the load average every 5 minutes or until the connection * is closed. */ #include #include #include #include #include #include #include "servers.h" chandler() { union wait stat; struct rusage rus; while (wait3(&stat, WNOHANG, &rus) > 0); } main(ac,av) char *av[]; { long chann = DListen(PORT_LOA'-u(*,.02 client()lݽkji)Q  draw.c'(i /* * DRAW.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * DRAW [port#] * * Put terminal into RAW mode and connect to the remote dnet port. * used mainly to test DNET. Can also be used open a TERM window on * the amiga (via the STERM server), which is the default (port 8195) */ #include #include #include #include #include #include #include "../server/servers.h" int fd; char bu*+Ufedcba`_^]\pnml+  getfiles.c'*lC#@ /* * GETFILES.C V1.30 * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. * * GETFILES [-dlocaldir] [-c] file/dir file/dir file/dir * * -dlocaldir local directory to place files * * -c Continue from where you left off before. Files that already * exist on the local machine will not be re-transfered. This * will also re-start in the middle of a file that was * partially transfered previously. * * This command assumes the file(s) on both mach,-KEWVUTSRQ-  6 putfiles.c',QB /* * PUTFILES.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Download one or more files from the remote computer * * PUTFILES file/dir1 file/dir2 ... file/dirN * * placed in directory server ran from on remote host. */ #include #include #include #include #include #include "../server/servers.h" char Buf[1024]; typedef struct stat STAT; main(ac,av) char *av[]; { long chan; lo./+,]Y/\  dprint.c'.Y' /* * DPRINT.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * send files to the other computer's printer. * * DPRINT [files] (stdin if no files specified) */ #include #include "../server/servers.h" main(ac,av) char *av[]; { register short i; long chan; chan = DOpen(NULL, PORT_PRINTER, -80, 126); if (chan < 0) { puts("Unable to connect"); exit(1); } for (i = 1; i < ac; ++i) { FILE *fi; printf("%-20s ", av[i]); 01lX[1 dsoc.c'0[L}Ձ /* * DSOC.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * DSOC [port#] * * Connect to the specified port# .. Used to connect to a remote CLI * (s_shell server on the Amiga, which requires PIPE: to work, port 8196, * is the default) * * Uses standard cooked mode instead of RAW mode. */ #include #include #include #include #include #include #include "../server/servers.h" in23-L43F Makefile'24zƪ # DNET CLIENTS # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved. # NETLIB = ../lib/dnetlib.o BIN = ../bin all: $(NETLIB) $(BIN)/draw $(BIN)/dsoc $(BIN)/putfiles $(BIN)/dprint \ $(BIN)/getfiles $(BIN)/draw: draw.o cc draw.o $(NETLIB) -o $(BIN)/draw $(BIN)/dsoc: dsoc.o cc dsoc.o $(NETLIB) -o $(BIN)/dsoc $(BIN)/getfiles: getfiles.o cc getfiles.o $(NETLIB) -o $(BIN)/getfiles $(BIN)/putfiles: putfiles.o cc putfiles.o $(NETLIB) -o $(BIN)/putfiles 2^ <$(BIN)/dprint: dprint.o cc dprint.o $(NETLIB) -o $(BIN)/dprint clean: rm -f *.o make.out Y/\  dprint.c'5NA68:<>@ doc67 lZ7 dnet.doc56Z{4l UNIX/DNET DNET [debug] [-m0] NEW Nov 89: DNet for both UNIX and AMIGA sides default to 7 bit packet mode. If you are running on an 8 bit network use the -m0 option to defeat 6 bit encoding used to send binary on a 7 bit network. Run the DNET protocol on descriptor 0. If the enviroment variable DNETDIR exists, DNET will create the rendezvous sockets in the specified directory (DNETDIR must have a hanging slash on it), otherwise the current directory is us891lnF9` -dsoc.doc58F{ UNIX/DSOC DSOC [port#] (default: 8196 = AMIGSHELL (CLI window)) Connect to the remote port but keep the TTY in COOKED mode (normal). The connection will be terminated by killing the process on the UNIX end or typing ^C. NOTE THAT ^C KILLS DSOC AND IS NOT SENT THROUGH TO THE REMOTE CLI. The default port accesses the SCLI server on the Amiga end, which starts up a CLI. Things work properly only if *MY* PIPE: device is installed on the Amiga. Things close down properly:;QR$KJIHGPO;   dnetlib.doc5:Oz UNIX/DNETLIB UNIX END DNET LIBRARY INTERFACE See the server source for good examples of usage. long private; uword port char *buf; int fd; int res1..5, bytes char pri; long val68, valvax; private = DListen(port) listen on a port (server) fd = DAccept(private) accept a connection (server) DNAAccept(private) don't accept a conn.(server) fd = DOpen(host, port, txpri, rxpri) open a remote connection (client) res1 = read(fd, buf, bytes) standard unix read<=L=|  putfiles.doc5<L_UNIX/PUTFILES AMIGA/PUTFILES PUTFILES [-dDESTDIR] file/dir file/dir file/dir .. File transfer client. Transfer the specified files and or directories to the destination directory on the remote machine. For instance: unix: putfiles -dram: charlie.txt /usr/include *places the file charlie.txt as ram:charlie.txt, and places the directory structure /usr/include as ram:include/(whatever). The default destination directory depends on the remote host. If the destination i>?'? history5>LH* V1.00 sometime in 1987 First release V1.20 sometime in 1988 Fixes to the first release V2.00 1 March 1989 Major fixes, additions, and other items. ression is done. I also hope to add semi-automatic crash recovery (continue download where you left off after a crash), though it should be noted that it is very difficult to crash DNET with random modem noise. -dsoc.doc5@AlAm draw.doc5@mb UNIX/DRAW DRAW [port#] (default: 8195 = AMIGTERM (talk window)) Connect to the remote port and place the TTY in RAW mode. The connection can only be terminated by the remote end, or by killing the process on the UNIX end. The default port brings up a 'talk' window on the Amiga. AMIGATERM will recognize a ^C sent from DRAW and close the connection.  docBCkCK 8MAKEBKCk#!/bin/sh cd lib make cd ../dnet make cd ../client make cd ../server make 5B unixD&EEGIKMOQSVXZ\^d dnetEFlX10EDCBA@?>=<;NMFs dnet.cDEMG /* * DNET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Handles action on all active file descriptors and dispatches * to the proper function in FILES.C * */ #include "dnet.h" #include #include #include handle_child() { union wait stat; struct rusage rus; while (wait3(&stat, WNOHANG, &rus) > 0); } char * showselect(ptr) fd_set *ptr; { static char buf[FD_SETSIZE+32]; short i; for (i GHl('&%:98765432H dnet.hDG2P< /* * DNET.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved */ #include #include #include #include #include /* V2.01 */ #include #include #include #include #include #ifndef FD_SETSIZE #define FD_SETSIZE (sizeof(struct fd_set) * 8) #endif #ifndef NFDBITS #define NFDBITS 32 #define FD_SET(n, p) ((p)->fds_bits[(n)/NFDBITS] |= (1 << ((n) % NFDIJ y,+*)J : ] dataconv.cDI) /* * DATACONV.C * * Data Conversion. */ typedef unsigned char ubyte; typedef unsigned short uword; typedef unsigned long ulong; extern ubyte DDebug; int Compress7(s, db, n) ubyte *s; ubyte *db; uword n; /* actual source bytes */ { ubyte *d = db; while (n) { *d++ = *s++ << 1; if (--n == 0) break; d[-1] |= *s >> 6; *d++ = *s++ << 2; if (--n == 0) break; d[-1] |= *s >> 5; *d++ = *s++ << 3; if (--n == 0) break; d[-1] |= *s >> 4; *d++ = *sKLYz/.-L  channel.hDK-~ /* * CHANNEL.H * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Channel structures for SCMD_* channel commands. * * NOTE: These structures may be ONLY 0,2,4, or 6 bytes in size. */ #define CSWITCH struct _CSWITCH #define COPEN struct _COPEN #define CCLOSE struct _CCLOSE #define CACKCMD struct _CACKCMD #define CEOFCMD struct _CEOFCMD #define CIOCTL struct _CIOCTL CSWITCH { /* SWITCH current data channel */ ubyte chanh; /* channel to switch toMNz N s DMakefileDM x # THE DNET DRIVER, UNIX END # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved # # the BIN should be placed in your path for ease of use. DNET uses # UNIX level sockets allowing multiple users on a system to run it # independantly. You should make a special directory (Example: .DNET) # and then setenv DNETDIR ~/.DNET/ ... all clients and servers will # use the enviroment variable to find/create the UNIX level sockets. BIN = ../bin SRCS = dnet.c control.c files.c OP]s!$#"P 7 subs.cDO"q5+M /* * SUBS.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Support subroutines * */ #include "dnet.h" /* * WRITESTREAM() * * Queues new SCMD_?? level commands to be sent */ WriteStream(sdcmd, buf, len, chan) ubyte *buf; uword chan; { register XIOR *ior = (XIOR *)malloc(sizeof(XIOR)); if (DDebug) printf("-writestr cmd %ld (%ld bytes chan %ld)\n", sdcmd, len, chan); ior->io_Data = (ubyte *)malloc(len); ior->io_Length = len; QR%R   9files.cDQ5E2 /* * FILES.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * handles actions on a per file descriptor basis, including accepting * new connections, closing old connections, and transfering data * between connections. */ #include "dnet.h" extern void do_localopen(), do_connect(), do_open1(), do_openwait(), do_open(); /* * new connection over master port... open request. read two byte port * number, allocate a channel, and send off to the remote */ST-KUTr  MakefileDSU{ # THE DNET DRIVER, UNIX END # # DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved # # the BIN should be placed in your path for ease of use. DNET uses # UNIX level sockets allowing multiple users on a system to run it # independantly. You should make a special directory (Example: .DNET) # and then setenv DNETDIR ~/.DNET/ ... all clients and servers will # use the enviroment variable to find/create the UNIX level sockets. BIN = ../bin OBJS = dnet.o control.o files.o S\globals.o net.o subs.o internal.o \ dataconv.o packet.o $(BIN)/dnet: $(OBJS) cc $(OBJS) -o $(BIN)/dnet clean: rm -f *.o make.out !$#"P 7 subs.cDV W#J     W  l internal.cDV= /* * INTERNAL.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * Usually SCMD_OPEN requests attempt to connect() to the UNIX * domain socket of the server. However, some 'ports' are designated * as internal to DNET. They reside here. * * -IALPHATERM */ #include "dnet.h" #include "../server/servers.h" #include #include #include #include #include extern char *getenv(); isinternalport(XYekY  globals.cDX p /* * GLOBALS.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved */ #include "dnet.h" int Enable_Abort; int DNet_fd = -1; /* Master listen socket */ PKT Pkts[9]; /* data buffers for packets */ PKT *Raux = Pkts+8; /* next packet in */ PKT *RPak[4] = { Pkts+0,Pkts+1,Pkts+2,Pkts+3 }; PKT *WPak[4] = { Pkts+4,Pkts+5,Pkts+6,Pkts+7 }; CHAN Chan[MAXCHAN]; /* Channels */ LIST TxList; /* For pending SCMD_DATA reqs. */ fd_set Fdread; fd_set FdwriZ[2./[5  double.cDZ,ۍ /* * DOUBLE * * DOUBLE DNETDIRA DNETDIRB * * Run dnet using a pipe (for testing) */ #include #include #include #include #include #include main(ac, av, envp) char *av[]; char **envp; { int files[2]; short i; char buf[256]; char cmd[256]; if (ac != 3) { puts("double dnetdira dnetdirb"); exit(1); } for (i = 0; envp[i]; ++i) { if (strncmp(envp[i], "DNETDIR=", 8) == 0) \]))4] packet.cD\O /* * PACKET.C */ #include "dnet.h" void BuildPacket(); #define Ascize(foo) (((foo) & 0x3F) | 0x40) ubyte RxTmp[MAXPACKET]; void BuildDataPacket(pkt, win, dbuf, actlen) PKT *pkt; ubyte win; ubyte *dbuf; uword actlen; { ubyte *ptr; ubyte *pend; ubyte range = 0; static ubyte BadCtl[32] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; ptr = dbuf; pend= dbuf + actlen; while (ptr < pend) { ^_.Qcba`_ Tnet.cD^`+~( /* * NET.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * NetWork raw device interface. Replace with whatever interface you * want. */ #include "dnet.h" #include RcvInt() { int n = read(0, RcvBuf + RcvData, RCVBUF - RcvData); int i; extern int errno; errno = 0; if (n >= 0) RcvData += n; if (n <= 0) /* disallow infinite fast-timeout select loops */ RExpect = 0; if (DDebug) printf("read(%d,%d)\n", n^aFg, errno); } static struct sgttyb ttym; static struct stat Stat; NetOpen() { int async = 1; fstat(0, &Stat); fchmod(0, 0600); /* signal(SIGIO, RcvInt); */ ioctl (0, TIOCGETP, &ttym); if (Mode7) { ttym.sg_flags &= ~RAW; ttym.sg_flags |= CBREAK; } else { ttym.sg_flags |= RAW; ttym.sg_flags &= ~CBREAK; } ttym.sg_flags &= ~ECHO; ioctl (0, TIOCSETP, &ttym); /* ioctl (0, FIOASYNC, &async); */ ^b.HFsioctl (0, FIONBIO, &async); } NetClose() { int async = 0; fchmod(0, Stat.st_mode); ioctl (0, FIONBIO, &async); /* ioctl (0, FIOASYNC, &async); */ ioctl (0, TIOCGETP, &ttym); ttym.sg_flags &= ~RAW; ttym.sg_flags |= ECHO; ioctl (0, TIOCSETP, &ttym); } NetWrite(buf, bytes) ubyte *buf; { if (DDebug) fprintf(stderr, "NETWRITE %08lx %ld\n", buf, bytes); gwrite(0, buf, bytes); } gwrite(fd, buf, bytes) register char *buf; register long byt^c ,es; { register long n; while (bytes) { n = write(fd, buf, bytes); if (n > 0) { bytes -= n; buf += n; continue; } if (errno == EINTR) continue; if (errno == EWOULDBLOCK) { fd_set fd_wr; fd_set fd_ex; FD_ZERO(&fd_wr); FD_ZERO(&fd_ex); FD_SET(fd, &fd_wr); FD_SET(fd, &fd_ex); if (select(fd+1, NULL, &fd_wr, &fd_ex, NULL) < 0) { perror("select"); } continue; } if (errno == EPIPE) return; dneterror("gwr^ite"); } } O, &async); } NetClose() { int async = 0; fchmod(0, Stat.st_mode); ioctl (0, FIONBIO, &async); /* ioctl (0, FIOASYNC, &async); */ ioctl (0, TIOCGETP, &ttym); ttym.sg_flags &= ~RAW; ttym.sg_flags |= ECHO; ioctl (0, TIOCSETP, &ttym); } NetWrite(buf, bytes) ubyte *buf; { if (DDebug) fprintf(stderr, "NETWRITE %08lx %ld\n", buf, bytes); gwrite(0, buf, bytes); } gwrite(fd, buf, bytes) register char *buf; register long bytdeS)e1  control.cDdJ. /* * CONTROL.C * * DNET (c)Copyright 1988, Matthew Dillon, All Rights Reserved * * -handle various actions: * RTO - read timeout * WTO - write timeout (a packet not acked) * RNET - state machine for raw receive packet * WNET - starts timeout sequence if Write occured * WUPDATE - update write windows, send packets * RUPDATE - execute received packets in correct sequence * RECCMD - execute decoded SCMD commands obtained from received * packets. */ #include "dnet.h" fgg  dnet.serversfQ 8192 ~/src/dnet/unix/bin/scopy ~ 8193 ~/src/dnet/unix/bin/sshell ~ 8197 ~/src/dnet/unix/bin/sloadav ~ 8201 ~/src/dnet/unix/bin/sgcopy ~ 8202 ~/src/dnet/unix/bin/snfs ~ f unixhini ICLEANhX*#!/bin/sh cd dnet make clean cd ../client make clean cd ../server make clean cd ../test make clean cd ../lib rm -f *.o make.out cd .. rm -f *.o make.out MAKE.out fh unixw k(ng accepted by following a few simple guidelines: (1) Don't submit bootable disks or disks with any other proprietary material included, since I then have to go examine each file to decide if it is distributable or not, and if not, what effect removing it might have. (2) Organize the distribution in a manner similar to the library disk organization. I.E., place all files related to a particular program under a single directory on the disk. If there is more than one w lLLprogram per disk, place each one in its own directory. (3) Try to write a simple entry for the "Contents" listing that summarizes your submission. It should be about 3-10 lines, and include the current version number, the version and disk number of the most recent version (if any) that was last included in the library, whether or not source is included, and an "Author" list. (4) Ensure that your submission will run correctly from its subdirectory and that it does wmgnot depend upon the name of the disk. If necessary, supply a script runnable from workbench (via c:IconX) that makes all necessary assigns, copies fonts and libraries, etc. CAT FISH Catalog Listing A complete catalog over 200 pages and full of interesting information of the entire library cross-referenced by file name and subject area is available from the ASCITEC AMIGA User's Group now for $20.00. These listings are made using a laser printer on double-sided three-hownle punched paper for a quality binder reference and contain information on disks currently available in the library. Some of the contents include: Complete listings of all disks and file descriptions (README and CONTENTS files) with disk numbers and page numbers for each file. Currently over 150 pages. An alphabetic sorted file name cross-reference listing with disk and page numbers given for each file. Duplicate file names are sorted with the most recent listed fiworst. Currently over 20 pages. A subject category sorted file name cross-reference listing based on a three page 15 point major subject category outline with disk and page numbers given for each file. Currently over 25 pages. CLI notes for accessing any public domain disk file for reading, copying, and execution of files on the disks. The VCHECK documentation from Disk 175 that describes how to check disks for the "SCA AMIGA VIRUS" and erase it if found. The wpODMOUSE documentation from Disk 160 that describes how to use the ever popular DMOUSE background program. Future upgrades are easily obtained and incorporated at a very low cost. The complete CAT FISH library listings cost $20.00. Future upgrades will cost $7.50. USA taxes and mailing costs are included. Mailing outside of the USA and Canada will cost an additional $5.00. Other information will also be included in future upgrades based upon prompt user suggestions and wqEfeedback. To order, make checks payable to "ASCITEC" or "THE AMIGA CLASS" at the AMIGA Science and Technology User's Group address given below. Address all orders and questions regarding CAT FISH to this address: ASCITEC CAT FISH Listing P. O. Box 201 Los Altos, CA 94023 CAT FISH Catalog Disk These materials are also available on disk for $10.00 - with the explicit agreement that they will not be copied and will not be placed upon any User Group or computer BullwQ2etin Board. ASCITEC CAT FISH Listing P. O. Box 201 Los Altos, CA 94023 MOUSE background program. Future upgrades are easily obtained and incorporated at a very low cost. The complete CAT FISH library listings cost $20.00. Future upgrades will cost $7.50. USA taxes and mailing costs are included. Mailing outside of the USA and Canada will cost an additional $5.00. Other information will also be included in future upgrades based upon prompt user suggestions and rsj)s POSTERr`------------------------------------------------ dnet213.zoo 391296 Approx time (min):403 at 300 baud,101 at 1200 baud Contributed by: mdillon Date: Sat Dec 9 04:07:21 1989 DNet V2.10.13 now with 7 bit support. DNet is a link protocol that allows multiple client-server links over a single serial line. Normally used to connect two Amiga's together or an Amiga and a UNIX (4.3 compatible) system together. For example, running DNet between an Amiga and UNIX system one could have tVqB XContentspu#@g2222$$d$$$# #""!! *:*&*))))N)((((`(''&&&%6#b)(((*!!!<`J`,zR"#### $#t#Z"""n"!!!!F ,B~rfZNB6*wwϧtile or run for some reason, but was considered interesting enough to include anyway. Disks are typically 85 to 95 percent full. How to Order To order, send a list of the disks you want, and payment in U.S. funds to: Fred Fish Amiga Library Disks 1835 East Belmont Drive Tempe, Arizona 85284 USA The per disk fee as of October 1989 is as follows: 1 to 9 disks $6 per disk 10 to 49 disks $5 per disk 50 to 99 disks $4 per disk 100 or more $3 per diswxЀk complete library $2 per disk (see note below) The price includes cost of media, mailing materials, and first class domestic postage. Overseas orders add $5 per order for air mail. Time and other jobs permitting, all disks will be mailed within 5 days of receipt of order (most are filled the next day). The above prices and address are current as of October 1989. If the per disk charge in effect at the time your order is received is less than the amount stated above, youwyS will be charged the lower rate, and an appropriate credit for the difference added to your account. It is highly unlikely that the per disk charge will be higher (it has always decreased, reflecting my decreasing cost for disks since beginning distribution of the library). Feel free to order more than the current number of disks available. Excess funds will be placed "in escrow" (refundable at any time) and drawn against for automatic mailings of future disks as they bewz-scome available. These disks will be charged against your account at the per disk charge in effect at the time they are shipped. I hope to add at least four to six disks per month to the library. The "complete library" price ($2 per disk) applies only to orders of a complete set of all disks in the library at the time of the order. The funds cannot be applied towards disks not yet completed. This offer is intended to provide a relatively low startup cost for new user groups,w{j5} dealers, or other users, to obtain a complete library set. Notes Please keep in mind that most of the materials in this library are intended for use by experienced programmers, or at least experienced Amiga users. Many are runnable only via the CLI user interface, as they contain no icon files (particularly the early disks). If you are inexperienced with the Amiga CLI interface, you may need the assistance of an experienced user to make use of some of these disks. I dw |Fo not provide telephone support for instructions on how to run specific programs from the library. I do not guarantee the performance or usability of any of the materials in this library. I will replace or rewrite, at no additional charge, any disk ordered from me which turns out to be defective or unreadable. Catalog Disk Because the current library has grown so large, it is no longer cost effective to distribute a printed catalog. Therefore, the catalog disks replacew }A the printed catalog, and will be updated at each new release of disks to reflect the current state of the library. It currently takes two disks to hold a complete catalog. There is no duplication fee for the catalog disks. To receive the latest available catalog at any time, simply return the original disks, or send two blank disks, to: Fred Fish Catalog Disk Update 1835 East Belmont Drive Tempe, Arizona 85284 USA Please enclose sufficient postage for 3 ouncesw j\: First Class mail. Note that you can always obtain the latest catalog automatically by following the above procedure but specifying that you want the disks to be held until the next update. Library Submissions If you have written a program that you would like to see appear in the library, I encourage you to submit it on disk directly to me, along with a letter indicating you would like to see it included in the library. You can increase the chances of your submission beiw)zer groups. Most already have many of the disks. Since these disks can be copied freely, and widespread distribution is encouraged, they propagate out to central distribution points fairly quickly. If you just can't wait, or can't find copies locally, I am willing to make these disks available for the cost of media, duplication, mailing materials, postage, and miscellaneous expenses (like wear and tear on my drives). Naturally, you are encouraged to make copies for your fwvc#riends, local user groups, dealers, etc. My goal is to get as much software as possible into the hands of people that can use and enhance it, and make the AMIGA the success it deserves to be. Generally, each disk contains all source necessary to recreate the executables provided. Programs are compiled with the latest Lattice C compiler (and/or Manx C compiler) available at the time of release. In a very few cases (usually noted in the description) the code will not compu2 Jl*(mEz  g (mEz  g>-Eh(mEzp(RmEhREz`>-EhB5p(I(Gr~f JgQJf Hy$a۾I(Gt~f JgQJfB-(aI(/ $<,yJ"N+@Jg`Pa*`a4AxHxIH"Lr,x NDJg Hyha>+mII|I&BmEh m@Ehl0;mEhI(II" L>-EhIHGp"KHx ,mI"NRmEh`I5+L5IEJ+L5+m55|5ZI+L5\(mE\, RG5[,xN|I5R"LENPEN(m&lVI5R'LNv~+G,~+G(~+G8+m$+m+mB5HBHBmEh>-EhGIHBpRmEh m EhfI(/ t,yJ"Nu<+@5@J5@f Hya /-5@$-5D,yJ"NJf Hya(m5D+l|5L"-5@,yJNB5@J5Lf HyaPHI5R"L -ER,xNal+@ J f"-,yJNB`(m )m$(m$( +m $J-EVgI5R"L -ER,xNJgJ-EXfJ-EZfJ925gJ-EWgI5R"L -ER,xN -ER,xNJ-EYgbHy$<,yJ"N+@EpHy$<"N+@ElI(/ $-Ep&-El"N""-EpNBEp"-ElNBElQEYJ-Jg&I(/ $<,yJ"N+@EpJEpf,yJN`HmJ/-JN4JJf Hyal/-Ep$-Jv,yJ"N/-Ep$-J&-ucJ"NְJg ,yJN"-Ep,yJNBEp`x"-Ep,yJNBEpII/ $<"N+@ElJElf,yJN`-EPH ,xNJF&uծg "mF&,xNbJ-Ig;| IvII+LIIIZ"L,xN8J-IgIIZ"L,xN>J-IGoII8"L,xN-IGHH NN6N3^N2N3N5/ K- BDQP"z4H(i "i&I,L2SABBBBQ2ABg" d" m(  mWV`bH8D@DD`Sf K,f`Sf K,j`Sf K,`Sf K,`Sf K- `~Sf K-2`nSf K-b`^Sf K-`NSf K. `>Sf K.0`.Sf K.`Sf K.`Sf K.`Sf K/R`Sf K/`uu K/` @@DGMN```:PPBPPBPPBPPBPPBPPBPP1P4P`6`P:PPBPPBPPBPPBPPBPPBPP`:PPBPPBPPBPPBPPBPPBPP1P4P`P:PPPBPPPBPPPBPPPBPPPBPPPBPPP4P`8un"`:PPBPPBPPBPPBPPBPPBPP1P4P`PPPPPPPPԘ`P:PPPBPPPBPPPBPPPBPPPBPPPBPPP1P`F:PPBPPBPPBPPBPPBPPBPP1P4P`P:PPPBPPPBPPPBPPPBPPPBPPPBPPP4P`P:PPPBPPPBPPPBPPPBPPPBPPPBPPP1P`LPP:PPPPBPPPPBPPur,GPPBPPPPBPPPPBPPPPBPPPPRIRL`*_Nu?0<2A:<>EF GE dP ` p dP ` p dP ` p dP ` pP `pP `p dP ` p dP ` pR@2 A0g A`g Af 2AA0 @m$I0<$F$QONuN2&(QNuNuhZ2"$QNu z&h(h @G I CE@S@Nu/J925g8 ( f* hEf Bh,x"zp:NQ25` P f Nu#2J#JaaL.yJNuJIRTf4N5N3&*zCp!,xN*JfBJ yJNNuISTj*zJg "U,xNbN5N3^Nq#3J#JaaF.yJNuJIRTf.N5*zCp!,xN*JfBJ yJNNuISTj*zJg "U,xNbN5Nq#3J#JaaF.yJNuJIRTf.N5*zCp!,xN*JfBJ yJNNuISTj*zu }>Jg "U,xNbN5Nq#4#ara.yNuJH0J[jDJjFDH@HAJ@g JAg<`@H@4HAH@J@fЁkJgDL NuH<J[jDJ[jD b64B@H@"H@20BAHA`&"BAHAH@B@tЀӁbR@QgDJgDL,Y66066*66$66533333z30322222~2:2l*+f+t+++++++++,,,.,>,H11) Z(@""4zd\> 0  ~"")j):'j"" . FX n #*"F*"@*":*"4*"._6655643333333V3P333 3 22u mp`\*_,_O N/ *z`B5HB8JgR8(o>,H߭5H(o/l`*_,_XN/ *z&]a>/m>m0l(mJg (m+TRW`>m0l(oJg(o/lRW`+o//ahHyPa/-Pa>>m0l+oPaxRW`QEj\*_NuJgPEW -ER,xNQEW,_XNY(o)m(o&o$kI~B(Q8(oG+K>/o TG GlBW|>ol&(o>I 4pd(o>ItpRW`(o>/IBF/zFp>>/o >o l (o>RGI&o$k<` pRW`(o>RGIp(o>TGuXI&o$k<` pRW(o>SGIJ4pf(oJg(o&l(oE'J(oJg(o&l(oE&X,_PN(oJg(o&l(o'l(oJg(o&l(o&,_XNU(oJ, f(,yJN(mJf+m` (m+la(oJ, g//a|T,_XN(oBl (m>,m2l(o&m9k` (o9m2(o&m>, k l(oBl (o&o9k (m&o>+4p am zn (o&o>+ 4pHf^(oRl (oRl(o&o>+ J4pHfa+mH(o&o>,k?(o?,//aN(oP p``r(oRlute `, I( p(oRl (o l l(o>-2TG<, Gm(o>, I(B4pI(/ QaPE`,_XN(U&U>+l U,yJN;|dE>-0G]G(mEl ;GE>-EG;GE;| E|E+|@E+|EIE+LE+UE;|E;|E;|E>-EYG;GE;|E;|EJ/gE;|EIF+LE+o F>/ SG;GF (o/ AE,yJuN4(_)@D(oJDf`~IE L(o"lD,yJN2(o&lD(kV/ &o$kD&jV+B&m$kV* ,xN(_,g(o lD,yJN(U&U>+G9G,_O NaHyPa(HyPaHyHPaHyPaHyPaHyPaHyJPaHyPaHyPaHy PaHyLPaHyPaHyPaHyPaHy(PaHyvPatHyPahHyPa\HyPaPHyPaDHy-0GG9G (oJl oHyPauz|(oSl `(m lV,xN(m lVN+@Eb(mEb,g(mEb ll`"mEb,xN`"mEb,xN+maD,_XN(o>-0HǞ89G (oJl o(oSl Pa(oJl fQEj` +ma,_XN//a+m$(o9m0 (o l o(mJg(m+l(oSl `a,_XN(olBEkJf"(mJf(oJ,gp`N`(oP`(oQ(oJ,g"J-Ejf (oJ,g//aJ-EjWEj` (oPPEjp,_XN(olBEk(oJ,f J-EjWEj`PEj(oQ,_XN/ *z"O -ER,xNPQB/B/J-HgQHaJ-Ejg<u[@J/g -EkaJf (mJVEj`PEj`&-Eka(mJVEj`(m lV,xN(m lV,xN+@EbJEbg(mEb,f`0(mU"mEb,xN(m lVN(mU`X(mEbG~ &Q"mEb,xN o&l"J-E`g aQE`` o&f HWarQEj>/(GJGVB>/(G0JGVC/%g./(gHWaJg``/(gHWa``/$g o&l>/& G@fHWaJg`` GAf HWa`p GMg Gg GfhJ/Bg&J/gJ-Ejg J-EkWEj`PEjPEkP`2J/Cf o&f >-0SG?G `?| J/BWaSouye Jo fQEj` GLg G>g G?fhJ/Bg&J/fJ-Ejg J-EkWEj`PEjPEkQ`J/Cf o?&f >-0SG?G `?| J/BWaQEjSo Jo f`| GDg GCfQaDQEj`b G=f HWa`R Gf HWa*`B GPmh GYnb>/&GP?G J/Bf<>/ GIHJpg,>/ GIH+tp(mJg (m+la`>/ GIH)p` G_f HWa` GEg G.fJ/Cf`` o@&l>/&IHtp / tf HWa`| bf HWaT`l fg ng pf8 /f fhHo?<PQHoaBHBo>// 7pHc >/7 pH` >/J7pHf`Ro`aQ J/Hg?m0 JHg(mH+THJo o Jg.-Hg(m+lSo `.-HfJf+m /p g JgNHWaJfDa(m+T``4(mJg (m+l(m+lJgHWaJg`BHWa@`" wfJHgJHg J-EYfJ-JfBJBJ(mH.(WJg(W.(W>,H߭J`(mH.Jg(W>,H߭J(W.`.H?m0 o oJgSo (W>,H߭J(W.`.-JJJJorHmI?<QHoaHWaPJ"mE\ -ER,xNa`> ofhJ/uڷUBg0J/Cg(J-EYf J-JfLH(Hm(I(/ a.Hm(Hy"a HWaZPEY"mE\ -ER,xN` lf:ataPEZ"mE\ -ER,xN -ER,xN>-EPgJ-EZf` gfFHo?< PHoa.-FH/G+mJoaJg(m+TS`a`D hf HWa`4 qg^ xf`V`" sfJ-EYfJ-Jf C,xNzJfP25"mE\ -ER,xN -ERN``PEX"mE\ -ER,xNp,xN`O *_Nu/ *zߢJF&fC8p",xN+@F&JF&gHm(a~;@EfJmEfo>-Ef 5:p(g>-Ef 5/p(gSmEf`JmuEff;|EfBmEh>-EhmEfn>-EhIG<-Eh`(pRmEh`>-EhIGB4pBmEf>-EfIF<-Eh`(pRmEfRmEh>-EhSGJ5p(f,yJNIx+LFfIF+LFjIG+LFnBFrIFf L,mF&NJgVIGG(~?&QI( LIF"L,mF&N,yJNJgB m,yJN>`2`J/f HyRaJ/g Hy$a`BJ yJN*_,_TN/ *z*I+LIBP25 -ER,xNI+LIB*_NuIRTfN6N3&N2N3N5*z;|EP(x+lE\;|Ev|IGLHHI;|Jp,xN;@EPJmEPlBJ yJN>-EPB+FERHmHxN4Hmum5DHxN4J5Df Hya>-EP24#E\20Q25I+LIB|I@B-IFp,xN@IGJ-IGlBJ yJNII8"L,xN+mE\IH|Ib;|0IlII8+LIhBI|3IANBIIZ"Lr NDJg Hy\aDPII26+LI;| IvII+LIIIZ"L,xN8PIJ9JgZ(yJ f@(yJ&l$+k E~(mE~G(~?&Q(yJ&l$"+,yJN+@5<`(Pat` Jn Pa^`+yJEzBmEhBmEf(mEz  f REzRmEf`(mEz "fFRmEfREz>-EhmEfHǾJlh(mEz "g^(mEz  gT>-Eh(mEzp(RmEhREz``<>-EhmEfHǾuHmJN50+WJ`;|JX*_Nu/ *z U,yJNNz*_Nu/ *zU(yJ>,GG;G2 m2o;|2(yJ>,G;G0>-2G;GE>-02H+G4>-0G;GE;|E;|E(yJJ8g>(yJ&l8(k lf((yJ&l8(k lf(yJ&l8+k(E`I+L;| I+LE;|EAE,yJN:*Jf HyaH(U#X*(U+lPE(mE9| (U&U>+G9GaB-hBmEf (UGT"KQ,yJN(UGT"KpN m EfljBmEh m0Ehl>-EhI(pRmEhR` f(UGT"KBg(U&l>+mEf2,yJ0N(UGT"KI( Lp0u̩NPmEf`(U lI<"L>-2N0L+|E+UE;|E;| E;mEE(U>,G ;GE+| EAE,yJN4+@Jf HyaT*_Nu/ *zdJg m,yJNBJg U,yJNB*_Nu.-(,f4/-I($ &<,yJ"N+@,J,l Hy@aB(J,f (oB,`2(o.-(G(sx(oJ,f (o|R((oRl,_XN/ *zOJ,fp`Bo Bo Bo-Exg$-Exg >/ p` >/ pRo `-Exg>/ pRo -Exg>/ pRo -Exg>/ <-EtFmEvRFpRo `& mEvfJmEtg>/ <-Evu,`FmEtRFpRo HWa /g /g`?|HWa /0e\ /9bTRo>/GIBtp>/GI/om o l>/GI<4p FfB-Ex;|EvBmEtP&` Ff Ex` Ff;|EvP&` FfEx`v FfEx`h Ff ExP&`V Fm& F%n >/GI<4pFF;FEvP&`* F(m$ F/n>/GI<4pF(F;FEtP&Ro`u s/'-Exg o l-Exg -Exg >/ p`*>/ p`-Exg >/ p` >/ pRo -Exg /'f6 o l.>/ pRo `/'g o l>/ pRo J/&gz o lp-Exg>/ <-EtFmEvRFp`>/ <-EvFmEtRFpRo `6/  e b>/ pRo Ro ` e b/ >/ pRo Ro `f fJo oZSo So `P  f2>/  pRo Ro o g0>/ m2g&>/ GJGf` f>/  pRo Ro / g"J/g / g>/ m2l o mZ?/ a.(W9o(W9o u wm Jo oSo (W>/ -5Pm0G?(o(G KI<$L2N*J/$g&(mEPl a?-2?-04-5P20N1`>-5P2H/G(y*.,ޯ/G./ޭ4/G(y*., ޯ/G./ޭ4/G ?|(mERl a>-2G>(o&o(XX(o&o (XX SWJWfSoJofRm5P>-5Pm0f Bm5P(mEBl O*_,_\N/ *zO(mG~B&Q6(oHTa;@Eh>-Ehm2m >-2SG;GEh>-EhRGB7p >-Eh(o<-Eh`p >-Eh 7p c >-Eh7 p SmEhJmEhlI/ /adO*_,_\N/ *zV(mJfJgPu IEV -ER,xNQEV(mJV*_Nu/ *z"aJg@(m+TR8(m>,H߭5H``">-0H,-8m(m+T/-/ a*_,_TN/ *zO(mJg8(m+l(m>,Hǟ5HS8(m+lJm5Pf(mE>-0G9G >-0SG;G5P`Sm5P>-5PG?(m&lI LI<$L2N*J/ g&(mEQl a?-2?-04-5P20N1`>-5PRG2H/G(y*.,ޯ/G./ޭ4/G (y*., ޯ/G./ޭ4/G?|(mESl a>-2G>Y Y(o &o(YY(o&o(SWJWfSoJofO*_,_TN/ *zvOJm5Pf(mE>-0G9G u ׈j;m05PSm5P(mJg&>-5PG?(m&lI LI<$L2N*` >-5PG?(mG KI<$L2N*>-5PHR<-2H "N4"/@(y*.,ޯ/G./ޭ4/G (y*., ޯ/G./ޭ4/G?|(mESl a>-2G>Y Y(o &o(YY(o&o(SWJWfSoJofO&*_Nu/ *zN(y*"l.-4/r,yJ N(y*"l .-4/r NBm5P(mEBl *_Nu/ *z]>/o//aol on (o>/B4pSo(o>/ /r N4j0p /r N4j/@>/ogJf>/ooSo(o>/ u5cSpace, RMB: Start / Stop scrolling backwards. Up/ Down: Move one line up or down. Shift + Up/ Dn: Start / Stop quick scrolling up or down. Alt+ Up/ Dn, PgUp/ Dn: Move one page up or down. T, Home / B, End: Goto top / bottom of text. F, N, P: Find string, Next, Previous occurance Shift + Fn: Set textmarker #n to current position Fn: Goto marker #n or set maruker #n if it wasn't set yet G: Goto line #n NK 0: Display Filelength etc. Shift + Alt + O: Create print out of the text W: Write block between Marker #1 and #2 to file or prt L: Load new text (arp necessary) HELP, H: Show Commands. ESC, Q, X, NK 5: Quit. S: Go to Sleep, pop up with left Alt-ESC. 1989 Fridtjof Siebert, Nobileweg 67, u*D-7000 Stuttgart 40 Please refer to MuchMore.ReadMe for a detailed copyright notice This is another great product of the Amiga Modula-2 Klub Stuttgart - AMOKtbfnpfpwoTYPE TO PRT:lghqxsarp.library:/PRT:input.deviceNeed input.device""?-sconsole.deviceShow.MMFile emptyintuition.librarygraphics.librarydos.libraryWR #J#Ja"a).yJNu/ *zU>RW Wn (o >J4pf0T*_,_XN/ *zY//a?@BW ouQ&n2(o >J4pg&>/m2l(o>/&o <`pRoRW` on (o>/B4pX*_,_PN/ *z^]J9Jg|FS|FT;| FV;|FXLFRHF>LFRHF*Ix+LF^IF>+LFb+oFJ;|FD;|F.;|F0I+LF6IFR"LIF*&LHxB4<@vA,yJ" N`F,yJN./$//(oHTa$H&,yJ"N| /I$ v"NBJ yJN\*_,_XN/ *z^Qo>/gRo>-Jo Gn >/mJ`2HoHxN4Jf Hya(o(J+oJ;oJ(mJ>-JoGp P*_,_TN/ *zYJJg(mJ.t&This is disk 294 of the freely distributable AMIGA software library. Below is a listing of the significant directories and their contents. DNet A link protocol that provides essentially an unlimited number of reliable connections between processes on two machines, where each end of the link can be either an Amiga or a Unix (BSD4.3) machine. Works on the Amiga with any EXEC device that looks like the serial.device. Works on UNIX with tty and socket devices. Achieves t #Ӯbetter than 95% average throughput on file transfers. This is version 2.10.13, an update to version 2.0 released on disk 220. Includes sources for both the Amiga and Unix versions. Author: Matt Dillon FmsDisk A file based trackdisk simulator, useful for creating a floppy-like partition on your hard disk (so you can diskcopy to a floppy) without actually having to create a special partition for it. Also useful for testing new filesystems and such. Supports up totrD 32 units, with either the old filesystem or the new fast filesystem. Includes source. Author: Matt Dillon ries and their contents. DNet A link protocol that provides essentially an unlimited number of reliable connections between processes on two machines, where each end of the link can be either an Amiga or a Unix (BSD4.3) machine. Works on the Amiga with any EXEC device that looks like the serial.device. Works on UNIX with tty and socket devices. Achieves 8  DNet.infopf.:DP&'L(9^(Ok<@^ Z((P:<:4:?4_(0 ???????????bE   Contents.infopC,b'WP'_p'cb8EUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUU076  Distribution.infop7Jb'_'_'hbEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUU%  Disk.infopǸ  ; \L  Zh q@Z!Z(;zx<1 <0` ?0?  ;|? : \<0Q\` U\  0 \? |; Ԃ  DistributionpnTo the best of my knowledge, materials in this library are freely redistributable. This means that they have met one or more of the following conditions: (1) The materials contains explicit copyright notices permitting redistribution. (2) The materials were posted to a publically accessable electronic bulletin board and did not contain any copyright notice. (Such materials will be removed if it is subsequently shown that copyright notices were illegally removed.) (3) The maten S  GeneralInfo.infop8g(b'_'dP'cbEUUUU@E_UU@EVUUEEVgGEVggeGEVffEGEVfuGE_GETGEUUUUGEuuUGEQqUGEuq}GEqqGEqqGEqqGEyy}GEAAAGEUUUUGEUUUUGEUUUUGEUUUUGEUU@GEUUUUG/UUUUUtu  7 FmsDisk.infopDP&&L9PlC@ Z(P:<:4:?4_(0 ???????????f @<:4:?4_(0 ???????????GbP*UUUUU7777ꪪꪪ7777tUUU~77UUUU~77UUUU~77UUUU~77UUU~77UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUG BUUUUG*UUUUGUUUUGUUUUG@! :c/MuchMore7UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUG 9?P:<:4':g4(0? ??????????uUUUUUzuUUUUU AUUUUG*UUUUGUUUUGUUUUG@! :c/MuchMore7UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUGűnUUU~77UUUU~77UUUU~77UUUU~77UUU~77UUUU~77UUUU~777_70*UUUUUUUUGUUUUG*UUUUGUUUUGUUUUG Qhe ONLY way shareware is included on any disk after disk 90. ely redistributable. This means that they have met one or more of the following conditions: (1) The materials contains explicit copyright notices permitting redistribution. (2) The materials were posted to a publically accessable electronic bulletin board and did not contain any copyright notice. (Such materials will be removed if it is subsequently shown that copyright notices were illegally removed.) (3) The mate` ?chanh<<8)|cack->chanl; if (chan >= MAXCHAN || Chan[chan].state != CHAN_LOPEN) break; if (DDebug) fprintf(stderr, "ackerr = %ld\n", cack->error); if (cack->error == 33) { uword newchan = alloc_channel(); COPEN co; if (newchan < MAXCHAN) { Chan[newchan] = Chan[chan]; Chan[chan].state = CHAN_FREE; Chan[chan].fd = -1; co.chanh = newchan >> 8; co.chanl = newchan; co.porth = Chan[chan].pdϗ;ort >> 8; co.portl = Chan[chan].port; co.error = 0; co.pri = Chan[chan].pri; WriteStream(SCMD_OPEN, &co, sizeof(COPEN), newchan); break; } } if (cack->error) { extern void nop(); ubyte error = cack->error; int fd = Chan[chan].fd; gwrite(fd, &error, 1); Fdstate[fd] = nop; Chan[chan].fd = -1; Chan[chan].state = CHAN_FREE; FD_CLR(fd, &Fdread); FD_CLR(fd, &Fdexcept); close(fd); } else { ubyte error = 0; extern voidd* do_open(); gwrite(Chan[chan].fd, &error, 1); Chan[chan].state = CHAN_OPEN; Chan[chan].flags = CHANF_ROK|CHANF_WOK; Fdstate[Chan[chan].fd] = do_open; } } break; case SCMD_EOFCMD: /* EOF on channel */ { register CEOFCMD *eof = (CEOFCMD *)ptr; uword chan = (eof->chanh<<8)|eof->chanl; if (chan < MAXCHAN && Chan[chan].state == CHAN_OPEN) { Chan[chan].flags &= ~eof->flags; if (eof->flags & CHANF_ROK) { char dummy; shutdown(Chan[chan].fdw*d, 1); write(Chan[chan].fd, &dummy, 0); } } } break; case SCMD_QUIT: dneterror("QUIT"); break; case SCMD_IOCTL: { register CIOCTL *cio = (CIOCTL *)ptr; uword chan = (cio->chanh<<8)|cio->chanl; if (chan < MAXCHAN && Chan[chan].state == CHAN_OPEN) { switch(cio->cmd) { case CIO_SETROWS: isetrows(Chan[chan].fd, (cio->valh<<8)|cio->vall); break; case CIO_SETCOLS: isetcols(Chan[chan].fd, (cio->valh<<8)|cio->vall); breadҍ k; case CIO_STOP: break; case CIO_START: break; case CIO_FLUSH: ClearChan(&TxList, chan, 0); break; } } } break; default: break; } } replywindow(window) { ubyte rwindow = (window - RPStart) & 7; if (DDebug) { if (rwindow >= 4 || RPak[rwindow]->state == READY) fprintf(stderr, " ACK WINDOW %ld\n", window); else fprintf(stderr, " NAK WINDOW %ld\n", window); } if (rwindow >= 4 || RPak[rwindow]->state == READY) dD~F /* data ready */ WriteAck(window); else WriteNak(window); } case SCMD_QUIT: dneterror("QUIT"); break; case SCMD_IOCTL: { register CIOCTL *cio = (CIOCTL *)ptr; uword chan = (cio->chanh<<8)|cio->chanl; if (chan < MAXCHAN && Chan[chan].state == CHAN_OPEN) { switch(cio->cmd) { case CIO_SETROWS: isetrows(Chan[chan].fd, (cio->valh<<8)|cio->vall); break; case CIO_SETCOLS: isetcols(Chan[chan].fd, (cio->valh<<8)|cio->vall); brea ?P:<:4':g4(0? ??????????uUUUUUzuUUUUU` ?data, bytes); RPak[rwindow]->buflen = bytes; RPak[rwindow]->state = READY; if (rwindow == 0) do_rupdate(); } replywindow(window); break; case PKCMD_ACK: rwindow = (window - WPStart) & 7; if (rwindow < WPUsed) /* mark as sent */ WPak[rwindow]->state = EMPTY; break; case PKCMD_NAK: /* resend */ rwind Udow = (window - WPStart) & 7; if (rwindow < WPUsed) { /* resend */ WritePacket(WPak[rwindow]); } else { fprintf(stderr, "Soft Error: Illegal NAK\n"); } break; case PKCMD_ACKRSTART: case PKCMD_RESTART: { uword chan; uword chksum; int len; int fd; if ((ctl & PKF_MASK) == PKCMD_ACKRSTART) Restart = 0; do_netreset(); if ((ctl & PKF_MASK) == PKCMD_RESTART) { WritePacket(BuildRestartAckPacket("3", 1)); } dK- if (bytes) setlistenport(buf); else setlistenport("3"); do_wupdate(); } break; default: if (DDebug) printf("do_cmd: bad packet ctl %02x\n", ctl); break; } do_rupdate(); } do_rupdate() { while (RPak[0]->state == READY) { register PKT *pkt = RPak[0]; register ubyte *ptr = pkt->data; register uword len; uword iolen = pkt->buflen; ubyte cmd; while (iolen) { if (DDebug) printf("rupdate %02x\n", ptr[0]); cmd = SCMD_DATA; dԲ len = ptr[0]; ++ptr; --iolen; if (len >= 128) { cmd = len & 7; len = (len >> 3) & 7; } else { if (len < 0x40) { len -= 0x20; } else { len = (len - 0x40) * 96 + (*ptr - 0x20); ++ptr; --iolen; } } iolen -= len; if (DDebug) fprintf(stderr, " MPXCMD %ld (%ld bytes)\n", cmd, len); do_reccmd(cmd, ptr, len); ptr += len; } RPak[0] = RPak[1]; RPak[1] = RPak[2]; RPak[2] = RPak[3]; RPak[3] = pkt; pkt->stad2te = EMPTY; ++RPStart; } } do_reccmd(cmd, ptr, len) ubyte *ptr; { if (DDebug) printf("-reccmd %02x (%ld bytes)\n", cmd, len); switch(cmd) { case SCMD_DATA: if (RChan < MAXCHAN && (Chan[RChan].flags & CHANF_ROK)) gwrite(Chan[RChan].fd, ptr, len); break; case SCMD_SWITCH: RChan = (ptr[0]<<8)|ptr[1]; break; case SCMD_OPEN: { register COPEN *cop = (COPEN *)ptr; CACKCMD ack; uword chan = (cop->chanh << 8) | cop->chanl; ack.chanh = dK cop->chanh; ack.chanl = cop->chanl; ack.error = 0; if (chan >= MAXCHAN || Chan[chan].state) { ack.error = 33; /* magic */ WriteStream(SCMD_ACKCMD, &ack, sizeof(CACKCMD), chan); break; } { int error; int s; uword port = (cop->porth<<8)|cop->portl; if (isinternalport(port)) { error = iconnect(&s, port); } else { struct sockaddr sa; s = socket(PF_UNIX, SOCK_STREAM, 0); if (DDebug) fprintf(stderr, " REC OPEN, CONNEd/CTING ch%d po%d\n", chan, port ); sa.sa_family = AF_INET; sprintf(sa.sa_data,".PORT.%ld", port); error = connect(s, &sa, sizeof(sa)); if (error < 0) { startserver(port); error = connect(s, &sa, sizeof(sa)); } if (DDebug) fprintf(stderr, " CONNECTED err=%ld\n", error); } if (error < 0) { ack.error = 2; } else { extern void do_open(); fcntl(s, F_SETFL, FNDELAY); Chan[chan].state = CHAN_OPEN; ChandEG>[chan].flags = CHANF_ROK|CHANF_WOK; Chan[chan].fd = s; Chan[chan].pri= cop->pri; FD_SET(s, &Fdread); FD_SET(s, &Fdexcept); FdChan[s] = chan; Fdstate[s] = do_open; } WriteStream(SCMD_ACKCMD, &ack, sizeof(CACKCMD), -1); } } break; case SCMD_CLOSE: /* receive close */ { extern void nop(); register CCLOSE *clo = (CCLOSE *)ptr; uword chan = (clo->chanh<<8)|clo->chanl; int fd = Chan[chan].fd; if (DDebug) fprd2intf(stderr, " SCMD_CLOSE\n"); if (chan >= MAXCHAN || Chan[chan].state == CHAN_FREE) break; /* Chan[chan].state = CHAN_CLOSE; Chan[chan].flags |= CHANF_RCLOSE; */ Chan[chan].flags &= ~(CHANF_ROK|CHANF_WOK); FD_CLR(fd, &Fdread); FD_CLR(fd, &Fdexcept); Chan[chan].state = CHAN_FREE; Chan[chan].fd = -1; Fdstate[fd] = nop; close(fd); ClearChan(&TxList, chan, 0); if (Chan[chan].flags & CHANF_LCLOSE) { if (DDebug) d:fr fprintf(stderr," REMOTE CLOSE %ld, LOCAL ALREADY CLOSED\n", fd ); } else { CCLOSE cc; char dummy; cc.chanh = chan >> 8; cc.chanl = chan; WriteStream(SCMD_CLOSE, &cc, sizeof(CCLOSE), chan); /* shutdown(Chan[chan].fd, 2); write(Chan[chan].fd, &dummy, 0); */ if (DDebug) fprintf(stderr," REMOTE CLOSE %ld, LOCAL NOT YET CLOSED\n", fd ); } } break; case SCMD_ACKCMD: /* acknowledge of my open */ { register CACKCMD *cack \ 䙌%ld bytes\n", Pkt.ctl, ActLen); do_cmd(Pkt.ctl, dptr, ActLen); RState = 0; break; } } { static short ExpAry[] = { 3, 2, 1, 4, 3, 2, 1, 0 }; expect = ExpAry[RState]; if (RState == 7) expect = BufLen - DBLen; } #ifdef NOTDEF if (Rto_act) { AbortIO((IOR *)&Rto); WaitIO((IOR *)&Rto); Rto_act = 0; } if (RState == 7) { Rto.tr_time.tv_secs = 8; Rto.tr_time.tv_micro= 0; SendIO((IOR *)&Rto); Rto_act = 1; } #endif do_cmd((uwor\,#;d)-1, NULL, 0); return((int)expect); } break; } } switch(Pkt.ctl & PKF_MASK) { case PKCMD_ACKRSTART: dptr = Pkt.data; break; case PKCMD_WRITE: dptr = Pkt.data; break; case PKCMD_WRITE6: UnExpand6(Pkt.data, RxTmp, ActLen); dptr = RxTmp; break; case PKCMD_WRITE7: UnCompress7(Pkt.data, RxTmp, ActLen); dptr = RxTmp; break; default: puts("BaD2"); dptr = Pkt.data; break; } if (DDebug) printf("Recv Body %02x d潋K while (WPUsed != 4 && (ior = (XIOR *)RemHead(&TxList))) { register long offset = 0; if (++loop == 2) { WReady = 1; AddHead(&TxList, ior); return(0); } { short npri; if (ior->io_Command == SCMD_DATA) npri = ior->io_Pri << 2; else npri = XPri; if (npri >= XPri) { XPri = npri; } else { if (XPri - npri > 100) XPri -= 10; else if (XPri - npri > 50) XPri -= 5; else --XPri; } maxpktsize = MAXPKT - (XPrd瑉Ri - npri); if (DDebug) fprintf(stderr, "**MAXPKTSIZE = %ld XPri %ld npri %ld\n", maxpktsize, XPri, npri ); if (maxpktsize < MINPKT) maxpktsize = MINPKT; } pkt = WPak[WPUsed]; for (;;) { if (offset > (maxpktsize-8)) /* not enough room */ break; if (ior->io_Command == SCMD_DATA && ior->io_Channel != WChan) { /* CSWITCH */ WChan = ior->io_Channel; TmpBuf[offset+0] = 0x80|SCMD_SWITCH|(2<<3); TmpBuf[offset+1] = WChan >> 8; Tmpd&Buf[offset+2] = WChan; offset += 3; if (DDebug) fprintf(stderr, "SEND SWITCH %ld\n", WChan); } len = ior->io_Length - ior->io_Actual; if (ior->io_Command == SCMD_DATA) { /* DATA */ if (DDebug) fprintf(stderr, "SEND DATA %ld bytes\n", len); if (offset + len > (maxpktsize-4)) len = (maxpktsize-4) - offset; if (len < 0x20) { TmpBuf[offset] = len + 0x20; ++offset; } else { TmpBuf[offset+0] = 0x40 + len / 96; Tmpd ) Buf[offset+1] = 0x20 + len % 96; offset += 2; } } else { /* COMMAND */ TmpBuf[offset] = 0x80|ior->io_Command|(len<<3); ++offset; if (DDebug) printf("constr sdcmd %02x len %d\n", TmpBuf[0], len); } bcopy((char *)ior->io_Data+ior->io_Actual,TmpBuf+offset,len); offset += len; ior->io_Actual += len; if (ior->io_Actual == ior->io_Length) { free(ior->io_Data); free(ior); ior = (XIOR *)RemHead(&TxList); /* Next packet d 5\ */ if (ior == NULL) break; } } pkt->state = READY; BuildDataPacket(pkt, (WPStart + WPUsed) & 7, TmpBuf, offset); WritePacket(pkt); if (ior) { ++ior->io_Pri; Enqueue(&TxList, ior); --ior->io_Pri; } ++WPUsed; } } void dumpcheck(ptr) register ubyte *ptr; { register short i; for (i = 0;i < 8; ++i) { if (ptr[i]) replywindow(i); ptr[i] = 0; } } void do_cmd(ctl, buf, bytes) short ctl; /* actually a ubyte */ ubyte *buf; { ud8ht#include extern void do_cmd(); ubyte TmpBuf[MAXPACKET]; /* * RTO: read timeout. Timeout occured while waiting for the rest of * a packet. Reset state and restart read. */ do_rto() { RState = 0; RcvData = 0; if (DDebug) fprintf(stderr, "RTO\n"); } /* * WTO: Write timeout (unresolved output windows exist). Resend a CHECK * command for all unresolved (READY) output windows */ void do_wto() { register short i; register PKT *pdC/kt; short to = 0; if (DDebug) fprintf(stderr, "WTO\n"); if (Restart) { WriteRestart(); return; } for (i = 0; i < WPUsed; ++i) { pkt = WPak[i]; if (pkt->state == READY) { /* send check */ WriteChk((WPStart + i) & 7); ++to; } } if (to) WTimeout(WTIME); } /* * RNET: Receved data ready from network. The RNet request will * automagically be reissued on return. */ do_rnet() { ubyte *ptr = RcvBuf; long len = RcvData; d٘F" RcvData = 0; RExpect = RecvPacket(ptr, len); } /* * DO_WUPDATE() * * (1) Remove EMPTY windows at head of transmit queue. * (2) Fill up transmit queue with pending requests, if any. * * First two bits determine CMD as follows: * 0bbbbbbb+0x20 DATA 0-95 bytes of DATA * 10bbbccc DATA 0-7 bytes of DATA, ccc=channel * command. * 11bbbbbb bbbbbbbb DATA 0-1023 bytes of DATA * * Note! By encoding the quick-data packet with the lengtd7bh + 0x20, you * don't take the 6 bit encoding hit when sending small amounts of ascii * data such as keystrokes. */ do_wupdate() { static short XPri; int maxpktsize; register XIOR *ior; register PKT *pkt; register long len; short loop = 0; WReady = 0; while (WPUsed && WPak[0]->state == EMPTY) { pkt = WPak[0]; WPak[0] = WPak[1]; WPak[1] = WPak[2]; WPak[2] = WPak[3]; WPak[3] = pkt; --WPUsed; ++WPStart; } if (Restart) return(0); \ if (*ptr < 0x20 && BadCtl[*ptr]) range |= 1; if (*ptr >= 0x80) range |= 2; ++ptr; } if (Mode7 && range) { uword buflen = Expand6(dbuf, pkt->data, actlen); BuildPacket(pkt, PKCMD_WRITE6, win, pkt->data, actlen, buflen); } else { if (Mode7 || (range & 2)) { BuildPacket(pkt, PKCMD_WRITE, win, dbuf, actlen, actlen); } else { uword buflen = Compress7(dbuf, pkt->data, actlen); BuildPacket(pkt, PKCMD_WRITE7, win, pkt->data, actlen, buflen); } \[?} } PKT * BuildRestartAckPacket(dbuf, bytes) ubyte *dbuf; ubyte bytes; { static PKT pkt; BuildPacket(&pkt, PKCMD_ACKRSTART, 0, dbuf, bytes, bytes); return(&pkt); } void BuildPacket(pkt, ctl, win, dbuf, actlen, buflen) PKT *pkt; ubyte ctl; ubyte *dbuf; uword actlen; uword buflen; { pkt->buflen = buflen; pkt->sync = SYNC; pkt->ctl = ctl | win; pkt->cchk = Ascize((pkt->sync << 1) ^ pkt->ctl); if (actlen) { uword chk = chkbuf(dbuf, buflen); ubyte dchkh\QB = chk >> 8; ubyte dchkl = chk; pkt->lenh = Ascize(actlen >> 6); pkt->lenl = Ascize(actlen); pkt->dchkh= Ascize(dchkh); pkt->dchkl= Ascize(dchkl); if (dbuf != pkt->data) bcopy(dbuf, pkt->data, buflen); } } void WritePacket(pkt) PKT *pkt; { if (DDebug) printf("SEND-PACKET %02x %d\n", pkt->ctl, pkt->buflen); if (pkt->buflen) NetWrite(&pkt->sync, 7 + pkt->buflen); else NetWrite(&pkt->sync, 3); switch(pkt->ctl) { case PKCMD_WRITE: case PKCMD_W\;CRITE6: case PKCMD_WRITE7: case PKCMD_RESTART: WTimeout(WTIME); } } void WriteCtlPacket(ctl, win) { static CTLPKT pkt; NetWrite(NULL, 0); BuildPacket(&pkt, ctl, win, NULL, 0, 0); WritePacket(&pkt); } void WriteNak(win) { WriteCtlPacket(PKCMD_NAK, win); } void WriteAck(win) { WriteCtlPacket(PKCMD_ACK, win); } void WriteChk(win) { WriteCtlPacket(PKCMD_CHECK, win); } void WriteRestart() { WriteCtlPacket(PKCMD_RESTART, 0); } /* * RECEIV\sE A PACKET */ int RecvPacket(ptr, len) ubyte *ptr; long len; { static uword ActLen; /* actual # bytes after decoding */ static uword BufLen; /* length of input data buffer */ static uword DBLen; /* # bytes already in i.d.buf */ static ubyte RState; static PKT Pkt; ubyte *dptr; short expect; if (ptr == NULL) { RState = 0; return(3); } while (len) { switch(RState) { case 0: --len; Pkt.sync = *ptr++; if (Pk\Act.sync == SYNC) ++RState; break; case 1: /* CTL */ --len; Pkt.ctl = *ptr++; if (Pkt.ctl < 0x20 || Pkt.ctl > 0x7F) { RState = 0; break; } ++RState; break; case 2: /* CCHK */ --len; Pkt.cchk = *ptr++; if (Ascize((SYNC<<1) ^ Pkt.ctl) != Pkt.cchk) { RState = 0; break; } switch(Pkt.ctl & PKF_MASK) { case PKCMD_ACKRSTART: case PKCMD_WRITE: case PKCMD_WRITE6: case PKCMD_WRITE7: if (DDebug)\ printf("Recv Header %02x\n", Pkt.ctl & PKF_MASK); ++RState; break; default: if (DDebug) printf("Recv Control %02x\n", Pkt.ctl & PKF_MASK); do_cmd(Pkt.ctl, NULL, 0); RState = 0; break; } break; case 3: /* LENH */ --len; Pkt.lenh = *ptr++; ++RState; if (Pkt.lenh < 0x20 || Pkt.lenh > 0x7F) RState = 0; break; case 4: /* LENL */ --len; Pkt.lenl = *ptr++; if (Pkt.lenl < 0x20 || Pkt.lenl > 0x7F) \ K,{ RState = 0; break; } ++RState; ActLen = ((Pkt.lenh & 0x3F) << 6) | (Pkt.lenl & 0x3F); DBLen = 0; switch(Pkt.ctl & PKF_MASK) { case PKCMD_ACKRSTART: case PKCMD_WRITE: BufLen = ActLen; break; case PKCMD_WRITE6: BufLen = (ActLen * 8 + 5) / 6; break; case PKCMD_WRITE7: BufLen = (ActLen * 7 + 7) / 8; break; default: puts("BaD"); break; } if (ActLen > MAXPKT || BufLen > MAXPACKET) { if (DDebug || DDebug\ k(]!) printf("Packet Length Error %d %d\n", ActLen, BufLen); RState = 0; } break; case 5: /* DChkH */ --len; Pkt.dchkh = *ptr++; ++RState; if (Pkt.dchkh < 0x20 || Pkt.dchkh > 0x7F) RState = 0; break; case 6: /* DCHKL */ --len; Pkt.dchkl = *ptr++; ++RState; if (Pkt.dchkl < 0x20 || Pkt.dchkl > 0x7F) RState = 0; break; case 7: /* -DATA- */ if (DBLen + len < BufLen) { /* not enough */ bcopy(p\ tr, Pkt.data + DBLen, len); DBLen += len; len = 0; break; } /* * Enough data, check chk */ bcopy(ptr, Pkt.data + DBLen, BufLen - DBLen); len -= BufLen - DBLen; ptr += BufLen - DBLen; { uword chk; ubyte chkh; ubyte chkl; chk = chkbuf(Pkt.data, BufLen); chkh = Ascize(chk >> 8); chkl = Ascize(chk); if (Pkt.dchkh != chkh || Pkt.dchkl != chkl) { printf("Chksum failure %02x %02x %02x %02x\n", Pkt.dchkh, chkh, Pkt.d\ wnchkl, chkl ); RState = 0; break; } } switch(Pkt.ctl & PKF_MASK) { case PKCMD_ACKRSTART: dptr = Pkt.data; break; case PKCMD_WRITE: dptr = Pkt.data; break; case PKCMD_WRITE6: UnExpand6(Pkt.data, RxTmp, ActLen); dptr = RxTmp; break; case PKCMD_WRITE7: UnCompress7(Pkt.data, RxTmp, ActLen); dptr = RxTmp; break; default: puts("BaD2"); dptr = Pkt.data; break; } if (DDebug) printf("Recv Body %02x Xte; fd_set Fdexcept; void (*Fdstate[FD_SETSIZE])(); ubyte Fdperm[FD_SETSIZE]; uword FdChan[FD_SETSIZE]; ubyte RcvBuf[RCVBUF]; uword RcvData; uword RExpect; ubyte RTimedout; ubyte WTimedout; uword WChan; /* Read and Write channels */ uword RChan; uword RPStart; uword WPStart; uword WPUsed; uword RState; uword Rto_act, Wto_act; ubyte DDebug; ubyte PDebug; ubyte Restart; ubyte DeldQuit; ulong NumCon; ubyte Mode7 = 1; int WReady; DZ}- break; } if (envp[i] == NULL) { puts("must set a dummy DNETDIR enviroment variable"); exit(1); } if (socketpair(AF_UNIX, SOCK_STREAM, 0, files) < 0) { perror("socketpair"); exit(1); } envp[i] = buf; if (fork() == 0) { int fd = open("d1.log", O_WRONLY | O_CREAT | O_TRUNC, 0666); if (dup2(files[0], 0) < 0) perror("dup2-1"); dup2(fd, 1); dup2(fd, 2); if (write(0, "", 0) < 0) { perror("write"); exit(1); } sprintf(buf, "DNZU7ETDIR=%s", av[1]); execlp("dnet", "dnet", "debug", NULL); perror("exec"); exit(1); } if (fork() == 0) { int fd = open("d2.log", O_WRONLY | O_CREAT | O_TRUNC, 0666); if (dup2(files[1], 0) < 0) perror("dup2-1"); dup2(fd, 1); dup2(fd, 2); close(files[0]); close(files[1]); if (write(0, "", 0) < 0) { perror("write"); exit(1); } sprintf(buf, "DNETDIR=%s", av[2]); execlp("dnet", "dnet", "debug", NULL); perror("exec"); exit(1); } close(filZ}xes[0]); close(files[1]); { int pid; while ((pid = wait(0)) > 0) printf("pid %d exit\n", pid); } } ocketpair(AF_UNIX, SOCK_STREAM, 0, files) < 0) { perror("socketpair"); exit(1); } envp[i] = buf; if (fork() == 0) { int fd = open("d1.log", O_WRONLY | O_CREAT | O_TRUNC, 0666); if (dup2(files[0], 0) < 0) perror("dup2-1"); dup2(fd, 1); dup2(fd, 2); if (write(0, "", 0) < 0) { perror("write"); exit(1); } sprintf(buf, "DNQ:Qbuf[256]; uword chan = FdChan[fd]; int n; n = read(fd, buf, sizeof(buf)); if (DDebug) { fprintf(stderr, "DO_OPEN %ld %ld, RECEIVE DATA on chan %ld (%ld by)\n", nn, fd, chan, n); fprintf(stderr, " fd, chanfd %ld %ld\n", fd, Chan[chan].fd); if (n < 0) perror("open:read"); } if (n == 0 || nn == 2) { /* application closed / exception cond */ CCLOSE cc; if (DDebug) fprintf(stderr, " DO_OPEN: REMOTE EOF, channel %d\n", chan); cc.chanh = chan Q2m>> 8; cc.chanl = chan; WriteStream(SCMD_CLOSE, &cc, sizeof(CCLOSE), chan); Chan[chan].state = CHAN_CLOSE; Chan[chan].flags |= CHANF_LCLOSE; if (Chan[chan].flags & CHANF_RCLOSE) { ; /* should never happen int fd = Chan[chan].fd; Chan[chan].state = CHAN_FREE; Chan[chan].fd = -1; Fdstate[fd] = nop; FD_CLR(fd, &Fdread); FD_CLR(fd, &Fdexcept); close(fd); */ } else { FD_CLR(fd, &Fdread); FD_CLR(fd, &Fdexcept); } } iQ<`D(f (n > 0) { WriteStream(SCMD_DATA, buf, n, chan); } } ead(fd, buf, sizeof(buf)); if (DDebug) { fprintf(stderr, "DO_OPEN %ld %ld, RECEIVE DATA on chan %ld (%ld by)\n", nn, fd, chan, n); fprintf(stderr, " fd, chanfd %ld %ld\n", fd, Chan[chan].fd); if (n < 0) perror("open:read"); } if (n == 0 || nn == 2) { /* application closed / exception cond */ CCLOSE cc; if (DDebug) fprintf(stderr, " DO_OPEN: REMOTE EOF, channel %d\n", chan); cc.chanh = chan V ?N isetcols(fd, cols) { #ifdef TIOCSSIZE struct ttysize ts; if (ioctl(fd, TIOCGSIZE, &ts) >= 0) { ts.ts_cols = cols; ioctl(fd, TIOCSSIZE, &ts); } #else #ifdef TIOCSWINSZ struct winsize ws; if (ioctl(fd, TIOCGWINSZ, &ws) >= 0) { ws.ws_col = cols; ioctl(fd, TIOCSWINSZ, &ws); } #endif #endif } (j = 0; ptcs[j]; ++j) { plate[9] = ptcs[j]; plate[5] = 'p'; if ((*pfdm = open(plate, O_RDWR)) >= 0) { plate[5] = 't'; if ((*pfds = open(plate, O_RDWR)V "&port) uword port; { if (port == PORT_IALPHATERM) return(1); return(0); } iconnect(ps, port) int *ps; uword port; { if (port == PORT_IALPHATERM) return(ialphaterm_connect(ps, port)); return(-1); } ialphaterm_connect(pmaster) int *pmaster; { struct sgttyb sg; struct tchars tc; struct ltchars ltc; #ifdef TIOCGSIZE struct ttysize ts; #else #ifdef TIOCGWINSZ struct winsize ws; #endif #endif int lmode; int fdmaster; int fdslave; int pV T8id; char *slavename; ioctl(0, TIOCGETP, (char *)&sg); ioctl(0, TIOCGETC, (char *)&tc); ioctl(0, TIOCGLTC, (char *)<c); ioctl(0, TIOCLGET, (char *)&lmode); #ifdef TIOCGSIZE ioctl(0, TIOCGSIZE, &ts); #else #ifdef TIOCGWINSZ ioctl(0, TIOCGWINSZ, &ws); #endif #endif sg.sg_flags &= ~(RAW); sg.sg_flags |= ECHO; #ifdef TIOCGSIZE ts.ts_lines = 23; ts.ts_cols = 77; #else #ifdef TIOCGWINSZ ws.ws_row = 23; ws.ws_col = 77; #endif #endif V N, if (DDebug) fprintf(stderr, "PTY openning internal pty\n"); if (openpty(&fdmaster, &fdslave, &slavename) >= 0) { if (DDebug) fprintf(stderr, "PTY open successfull\n"); if ((pid = fork()) == NULL) { int i; setenv("DNET=", "IALPHATERM"); setuid(getuid()); signal(SIGHUP, SIG_DFL); signal(SIGINT, SIG_DFL); signal(SIGQUIT, SIG_DFL); signal(SIGTERM, SIG_DFL); signal(SIGCHLD, SIG_DFL); signal(SIGTSTP, SIG_IGN); ioctl(open("/devV /tty", 2), TIOCNOTTY, NULL); close(open(slavename, 0)); dup2(fdslave, 0); dup2(0, 1); dup2(0, 2); for (i = 3; i < 256; ++i) close(i); ioctl(0, TIOCSETN, &sg); ioctl(0, TIOCSETC, &tc); ioctl(0, TIOCSLTC, <c); ioctl(0, TIOCLSET, &lmode); #ifdef TIOCSSIZE ioctl(0, TIOCSSIZE, &ts); #else #ifdef TIOCSWINSZ ioctl(0, TIOCSWINSZ, &ws); #endif #endif { char *shell = getenv("SHELL"); char *home = getenv("HOME"); if (V