![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sunlink.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / compat|
Return to sunlink.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / compat |
1.1 root 1: /* sunlink.c - X.25 abstractions for SunLink X25 */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/compat/RCS/sunlink.c,v 7.2 90/07/27 08:41:49 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/compat/RCS/sunlink.c,v 7.2 90/07/27 08:41:49 mrose Exp $
9: *
10: * Contributed by John Pavel, Department of Trade and Industry/National
11: * Physical Laboratory in the UK
12: *
13: *
14: * $Log: sunlink.c,v $
15: * Revision 7.2 90/07/27 08:41:49 mrose
16: * update
17: *
18: * Revision 7.1 90/07/09 14:32:22 mrose
19: * sync
20: *
21: * Revision 7.0 89/11/23 21:23:42 mrose
22: * Release 6.0
23: *
24: */
25:
26: /*
27: * NOTICE
28: *
29: * Acquisition, use, and distribution of this module and related
30: * materials are subject to the restrictions of a license agreement.
31: * Consult the Preface in the User's Manual for the full terms of
32: * this agreement.
33: *
34: */
35:
36:
37: /* LINTLIBRARY */
38:
39: #include <stdio.h>
40: #include "general.h"
41: #include "manifest.h"
42: #include "tailor.h"
43:
44: /* SUN UNIX: SunLink X25 */
45:
46: #ifdef X25
47:
48: #include "x25.h"
49: #include "isoaddrs.h"
50:
51: #ifdef SUN_X25
52:
53: #define CALLING 0
54: #define CALLED 1
55: #define PROBE (-1)
56:
57: /* */
58:
59: #ifdef DEBUG
60: void print_x25_facilities ();
61: #endif
62:
63: /* */
64:
65: /* ARGSUSED */
66:
67: int start_x25_client (local, priv)
68: struct NSAPaddr *local;
69: int priv;
70: {
71: int sd;
72:
73: if ((sd = socket (AF_X25, SOCK_STREAM, 0)) == NOTOK) {
74: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("socket"));
75: return NOTOK;
76: }
77:
78: return sd;
79: }
80:
81: /* */
82:
83: int start_x25_server (local, backlog, opt1, opt2)
84: struct NSAPaddr *local;
85: int backlog,
86: opt1,
87: opt2;
88: {
89: CONN_DB sbuf,
90: xbuf;
91: CONN_DB *sock = &sbuf,
92: *xs = &xbuf;
93: int sd, onoff;
94:
95: if ((sd = socket (AF_X25, SOCK_STREAM, 0)) == NOTOK) {
96: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("socket"));
97: return NOTOK;
98: }
99:
100: onoff = 0;
101: if (ioctl (sd, X25_CALL_ACPT_APPROVAL, (char *) &onoff) == NOTOK) {
102: SLOG (compat_log, LLOG_EXCEPTIONS, "failed",
103: ("X25_CALL_ACPT_APPROVAL"));
104: (void) close_x25_socket (sd);
105: return NOTOK;
106: }
107:
108: if (ioctl (sd, X25_RD_HOSTADR, (char *) xs) == NOTOK) {
109: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_RD_HOSTADR"));
110: (void) close_x25_socket (sd);
111: return NOTOK;
112: }
113: /* if null DTE in /etc/x25params
114: then ALWAYS use null DTE for
115: listen if PID is specified */
116: if (xs -> hostlen == 0 && local -> na_pidlen > 0) {
117: if (local -> na_pidlen > NPSIZE)
118: local -> na_pidlen = NPSIZE;
119: *sock = *xs; /* struct copy */
120: bzero((char *) sock -> data, NPSIZE);
121: bcopy (local -> na_pid, (char *) sock -> data, local -> na_pidlen);
122: bcopy (local -> na_cudf, (char *) sock -> data + NPSIZE,
123: local -> na_cudflen);
124: sock -> datalen = local -> na_pidlen + local -> na_cudflen;
125: }
126: else
127: sock = gen2if(local, sock, ADDR_LISTEN);
128:
129: /* Adopt the convention that if a null DTE is given,
130: we should get the one from /etc/x25params */
131: if(!local->na_dtelen) {
132: /* Now set the generic local address */
133: local = if2gen(local, xs, ADDR_LOCAL);
134: /* Modified by INRIA to avoid a null local address */
135: if (!local->na_dtelen) {
136: local->na_dtelen = 1;
137: local->na_dte[0] = '0';
138: }
139: }
140:
141: if (bind (sd, (struct sockaddr *) sock, sizeof(CONN_DB)) == NOTOK) {
142: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("bind"));
143: (void) close_x25_socket (sd);
144: return NOTOK;
145: }
146:
147: #ifndef BSD43
148: if (opt1)
149: (void) setsockopt (sd, SOL_SOCKET, opt1, NULLCP, 0);
150: if (opt2)
151: (void) setsockopt (sd, SOL_SOCKET, opt2, NULLCP, 0);
152: #else
153: onoff = 1;
154: if (opt1)
155: (void) setsockopt (sd, SOL_SOCKET, opt1, (char *)&onoff, sizeof onoff);
156: if (opt2)
157: (void) setsockopt (sd, SOL_SOCKET, opt2, (char *)&onoff, sizeof onoff);
158: #endif
159:
160: if (set_x25_facilities(sd, CALLED, "Acceptable") == NOTOK) {
161: (void) close_x25_socket (sd);
162: return NOTOK;
163: }
164:
165: (void) listen (sd, backlog);
166:
167: return sd;
168: }
169:
170: /* */
171:
172: int join_x25_server (fd, remote)
173: register int fd;
174: register struct NSAPaddr *remote;
175: {
176: CONN_DB sbuf;
177: CONN_DB *sock = &sbuf;
178: register int nfd;
179:
180: if ((sock = gen2if (remote, sock, ADDR_REMOTE)) == NULL)
181: return NOTOK;
182:
183: if (set_x25_facilities(fd, CALLING, "Proposed") == NOTOK)
184: return NOTOK;
185: #ifdef ANY_LINK
186: sock -> hostlen |= ANY_LINK;
187: #endif
188: if ((nfd = connect (fd, (struct sockaddr *)sock, sizeof (CONN_DB)))
189: == NOTOK) {
190: if (compat_log -> ll_events & LLOG_EXCEPTIONS)
191: (void) log_cause_and_diag(fd); /* Sun's documentation throwns
192: no light as to whether, or
193: not this will result in any
194: useful information */
195: }
196: #ifdef DEBUG
197: else
198: if (compat_log -> ll_events & LLOG_DEBUG)
199: (void) log_x25_facilities(fd, CALLING, "Effective Calling");
200: #endif
201: #ifdef ANY_LINK
202: sock -> hostlen &= ~ANY_LINK;
203: #endif
204: remote = if2gen (remote, sock, ADDR_REMOTE);
205:
206: return nfd;
207: }
208:
209: /* */
210:
211: int join_x25_client (fd, remote)
212: int fd;
213: struct NSAPaddr *remote;
214: {
215: CONN_DB sbuf;
216: CONN_DB *sock = &sbuf;
217: int len = sizeof *sock;
218: int nfd;
219:
220: if ((nfd = accept (fd, (struct sockaddr *) sock, &len)) == NOTOK) {
221: if (compat_log -> ll_events & LLOG_EXCEPTIONS)
222: (void) log_cause_and_diag(fd); /* Sun's documentation throwns
223: no light as to whether, or
224: not this will result in any
225: useful information */
226: }
227: #ifdef DEBUG
228: else
229: if (compat_log -> ll_events & LLOG_DEBUG)
230: (void) log_x25_facilities(fd, CALLED, "Effective Called");
231: #endif
232: if (nfd < 0) return nfd;
233:
234: /* May also need to send call accept packet if using
235: * FAST_ACPT_CLR, or X25_CALL_ACPT_APPROVAL
236: * there was a SUNLINK bug in this area
237: *
238: * May as well try it -- if it fails, so what ??
239: */
240: if (ioctl(nfd,X25_SEND_CALL_ACPT, NULLCP) < 0)
241: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_SEND_CALL_ACPT"));
242:
243: remote = if2gen (remote, sock, ADDR_REMOTE);
244:
245: return nfd;
246: }
247:
248: /* */
249:
250: /* There is a bug whereby if the thruput is set, calls fail. [email protected] */
251:
252: int sun_fixed_thruput = 0;
253:
254: /* Set up X.25 Facilities. Note that setting even one value causes
255: the default (/etc/x25params) values to be set explicitly on the
256: call request (and probably also call accept). This can screw
257: things up, if your /etc/x25params has not been properly
258: localised as is normally the case. */
259:
260: int set_x25_facilities(sd, coc, caption)
261: int sd, coc;
262: char *caption;
263: {
264: FACILITY_DB facilities;
265:
266: bzero ((char *) &facilities, sizeof facilities);
267:
268: if (coc != CALLED
269: && ioctl (sd, X25_RD_FACILITY, (char *) &facilities) == NOTOK) {
270: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_RD_FACILITY"));
271: return NOTOK;
272: }
273:
274: if (coc == PROBE
275: || !(coc == CALLED
276: || reverse_charge || recvpktsize || sendpktsize
277: || recvwndsize || sendwndsize || recvthruput
278: || sendthruput || cug_req /* || cug_index */
279: || fast_select_type || rpoa_req /* || rpoa */)) {
280: if (facilities.recvpktsize)
281: recvpktsize = facilities.recvpktsize;
282: if (facilities.sendpktsize)
283: sendpktsize = facilities.sendpktsize;
284:
285: return OK;
286: }
287:
288: if (reverse_charge)
289: facilities.reverse_charge = reverse_charge;
290: if (recvpktsize)
291: facilities.recvpktsize = recvpktsize;
292: if (sendpktsize)
293: facilities.sendpktsize = sendpktsize;
294: if (recvwndsize)
295: facilities.recvwndsize = recvwndsize;
296: if (sendwndsize)
297: facilities.sendwndsize = sendwndsize;
298: if (sun_fixed_thruput) { /* get round Sun bug */
299: if (recvthruput)
300: facilities.recvthruput = recvthruput;
301: if (sendthruput)
302: facilities.sendthruput = sendthruput;
303: }
304: else
305: facilities.recvthruput = facilities.sendthruput = 0;
306: if (cug_req)
307: facilities.cug_req = cug_req;
308: if (cug_index)
309: facilities.cug_index = cug_index;
310: if (fast_select_type)
311: facilities.fast_select_type = fast_select_type;
312: /* May as well accept FCS calls */
313: else
314: if (coc == CALLED)
315: facilities.fast_select_type = FAST_ACPT_CLR;
316: if (rpoa_req)
317: facilities.rpoa_req = rpoa_req;
318: if (rpoa)
319: facilities.rpoa = rpoa;
320:
321: #ifdef DEBUG
322: if (compat_log -> ll_events & LLOG_DEBUG)
323: print_x25_facilities (facilities, coc, caption);
324: #endif
325:
326: if (ioctl (sd, X25_WR_FACILITY, (char *) &facilities) == NOTOK) {
327: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_WR_FACILITY"));
328: return NOTOK;
329: }
330:
331: #ifdef notyet
332: if (facilities.recvpktsize)
333: recvpktsize = facilities.recvpktsize;
334: if (facilities.sendpktsize)
335: sendpktsize = facilities.sendpktsize;
336: #endif
337:
338: return OK;
339: }
340:
341: /* */
342:
343: int log_cause_and_diag(fd)
344: int fd;
345: {
346: X25_CAUSE_DIAG diag;
347:
348: if (ioctl(fd, X25_RD_CAUSE_DIAG, (char *) &diag) == NOTOK) {
349: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_RD_CAUSE_DIAG"));
350: return NOTOK;
351: }
352:
353: return elucidate_x25_err ((int) diag.flags, (char *) diag.data);
354:
355: }
356:
357: /* */
358:
359: #ifdef DEBUG
360:
361: static int log_x25_facilities (fd, coc, caption)
362: int fd;
363: int coc;
364: char *caption;
365: {
366: FACILITY_DB f;
367:
368: if (ioctl (fd, X25_RD_FACILITY, (char *) &f) == NOTOK) {
369: SLOG (compat_log, LLOG_EXCEPTIONS, "failed", ("X25_RD_FACILITY"));
370: return NOTOK;
371: }
372:
373: print_x25_facilities (f, coc, caption);
374:
375: return OK;
376: }
377:
378: /* */
379:
380: static void print_x25_facilities (f, coc, caption)
381: FACILITY_DB f;
382: int coc;
383: char *caption;
384: {
385: int baud;
386:
387: DLOG (compat_log, LLOG_DEBUG, ("%s X.25 Facilities:", caption));
388:
389: switch (f.reverse_charge) {
390: case 0:
391: DLOG (compat_log, LLOG_DEBUG, ((coc == CALLED)
392: ? "reverse charging not requested"
393: : "reverse charging not allowed"));
394: break;
395:
396: case 1:
397: DLOG (compat_log, LLOG_DEBUG, ((coc == CALLING)
398: ? "reverse charging requested"
399: : "reverse charging allowed"));
400: break;
401:
402: default:
403: DLOG (compat_log, LLOG_DEBUG, ("invalid reverse_charge: %d",
404: f.reverse_charge));
405: break;
406: }
407:
408: switch (f.recvpktsize) {
409: case 0:
410: DLOG (compat_log, LLOG_DEBUG, ("default recv packet size"));
411: break;
412:
413: case 16:
414: case 32:
415: case 64:
416: case 128:
417: case 256:
418: case 512:
419: case 1024:
420: DLOG (compat_log, LLOG_DEBUG, ("recv packet size %d",
421: f.recvpktsize));
422: break;
423:
424: default:
425: DLOG (compat_log, LLOG_DEBUG, ("invalid recv packet size %d",
426: f.recvpktsize));
427: break;
428: }
429:
430: switch (f.sendpktsize) {
431: case 0:
432: DLOG (compat_log, LLOG_DEBUG, ("default send packet size"));
433: break;
434:
435: case 16:
436: case 32:
437: case 64:
438: case 128:
439: case 256:
440: case 512:
441: case 1024:
442: DLOG (compat_log, LLOG_DEBUG, ("send packet size %d",
443: f.sendpktsize));
444: break;
445:
446: default:
447: DLOG (compat_log, LLOG_DEBUG, ("invalid send packet size %d",
448: f.sendpktsize));
449: break;
450: }
451:
452: DLOG (compat_log, LLOG_DEBUG,
453: (f.recvwndsize == 0 ? "default recv window size"
454: : 1 <= f.recvwndsize && f.recvwndsize <= 127
455: ? "recv window size %d"
456: : "invalid recv window size %d",
457: f.recvwndsize));
458:
459: DLOG (compat_log, LLOG_DEBUG,
460: (f.sendwndsize == 0 ? "default send window size"
461: : 1 <= f.sendwndsize && f.sendwndsize <= 127
462: ? "send window size %d"
463: : "invalid send window size %d",
464: f.sendwndsize));
465:
466: switch (f.recvthruput) {
467: case 0:
468: DLOG (compat_log, LLOG_DEBUG, ("default recv throughput"));
469: break;
470:
471: case 3:
472: baud = 75;
473: print_recv: ;
474: DLOG (compat_log, LLOG_DEBUG, ("recv throughput %dbps", baud));
475: break;
476:
477: case 4:
478: baud = 150;
479: goto print_recv;
480:
481: case 5:
482: baud = 300;
483: goto print_recv;
484:
485: case 6:
486: baud = 600;
487: goto print_recv;
488:
489: case 7:
490: baud = 1200;
491: goto print_recv;
492:
493: case 8:
494: baud = 2400;
495: goto print_recv;
496:
497: case 9:
498: baud = 4800;
499: goto print_recv;
500:
501: case 10:
502: baud = 9600;
503: goto print_recv;
504:
505: case 11:
506: baud = 19200;
507: goto print_recv;
508:
509: case 12:
510: baud = 48000;
511: goto print_recv;
512:
513: default:
514: DLOG (compat_log, LLOG_DEBUG, ("invalid recv throughput %d",
515: f.recvthruput));
516: break;
517: }
518:
519: switch (f.sendthruput) {
520: case 0:
521: DLOG (compat_log, LLOG_DEBUG, ("default send throughput"));
522: break;
523:
524: case 3:
525: baud = 75;
526: print_send: ;
527: DLOG (compat_log, LLOG_DEBUG, ("send throughput %dbps", baud));
528: break;
529:
530: case 4:
531: baud = 150;
532: goto print_send;
533:
534: case 5:
535: baud = 300;
536: goto print_send;
537:
538: case 6:
539: baud = 600;
540: goto print_send;
541:
542: case 7:
543: baud = 1200;
544: goto print_send;
545:
546: case 8:
547: baud = 2400;
548: goto print_send;
549:
550: case 9:
551: baud = 4800;
552: goto print_send;
553:
554: case 10:
555: baud = 9600;
556: goto print_send;
557:
558: case 11:
559: baud = 19200;
560: goto print_send;
561:
562: case 12:
563: baud = 48000;
564: goto print_send;
565:
566: default:
567: DLOG (compat_log, LLOG_DEBUG, ("invalid send throughput %d",
568: f.sendthruput));
569: break;
570: }
571:
572: switch (f.cug_req) {
573: case 0:
574: DLOG (compat_log, LLOG_DEBUG, ("no closed user group"));
575: break;
576:
577: case 1:
578: DLOG (compat_log, LLOG_DEBUG, ("closed user group 0x%x (BCD)",
579: f.cug_req));
580: break;
581:
582: default:
583: DLOG (compat_log, LLOG_DEBUG, ("invalid closed user group %d",
584: f.cug_req));
585: break;
586: }
587:
588: switch (f.fast_select_type) {
589: case FAST_OFF:
590: DLOG (compat_log, LLOG_DEBUG, ("don't use fast select"));
591: break;
592:
593: case FAST_CLR_ONLY:
594: DLOG (compat_log, LLOG_DEBUG, ("clear is fast select response"));
595: break;
596:
597: case FAST_ACPT_CLR:
598: DLOG (compat_log, LLOG_DEBUG,
599: ("clear or call accepted is fast select response"));
600: break;
601:
602: default:
603: DLOG (compat_log, LLOG_DEBUG, ("invalid fast select type %d",
604: f.fast_select_type));
605: break;
606: }
607:
608: switch (f.rpoa_req) {
609: case 0:
610: DLOG (compat_log, LLOG_DEBUG, ("no RPOA transit request"));
611: break;
612:
613: case 1:
614: DLOG (compat_log, LLOG_DEBUG, ("RPOA transit request 0x%x",
615: f.rpoa_req));
616: break;
617:
618: default:
619: DLOG (compat_log, LLOG_DEBUG, ("invalid RPOA transit request %d",
620: f.rpoa_req));
621: }
622: }
623: #endif
624: #endif
625:
626: elucidate_x25_err (flags, pkt)
627: int flags;
628: char * pkt;
629: {
630: char * cp;
631:
632: if (flags & (1 << RECV_DIAG)) {
633: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP,
634: (( flags & (1 << DIAG_TYPE) ) ? "cleared 0x%02x" : "reset 0x%02x",
635: pkt[0] ));
636:
637: if ((flags) & (1 << DIAG_TYPE)) /* cleared */
638: switch(pkt[0]) {
639: case 0x00:
640: cp = "DTE Clearing";
641: break;
642:
643: case 0x01:
644: cp = "Number Busy";
645: break;
646:
647: case 0x09:
648: cp = "Out of Order";
649: break;
650:
651: case 0x11:
652: cp = "Remote Procedure Error";
653: break;
654:
655: case 0x19:
656: cp = "Reverse Charging not subscribed";
657: break;
658:
659: case 0x03:
660: cp = "Invalid Facility Request";
661: break;
662:
663: case 0x0B:
664: cp = "Access Barred";
665: break;
666:
667: case 0x13:
668: cp = "Local Procedure Error";
669: break;
670:
671: case 0x05:
672: cp = "Network Congestion";
673: break;
674:
675: case 0x0D:
676: cp = "Not Obtainable";
677: break;
678:
679: case 0x21:
680: cp = "DTE Incompatible Call";
681: break;
682:
683: case 0x29:
684: cp = "Fast Select Acceptance not Subscribed";
685: break;
686:
687: default:
688: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP,
689: ("clearing cause 0x2%x", pkt[0]));
690: goto next;
691: }
692: else /* reset */
693: switch(pkt[0]) {
694: case 0x00:
695: cp = "DTE Reset";
696: break;
697:
698: case 0x01:
699: cp = "Out of Order (PVC Only)";
700: break;
701:
702: case 0x03:
703: cp = "Remote Procedure Error";
704: break;
705:
706: case 0x05:
707: cp = "Local Procedure Error";
708: break;
709:
710: case 0x07:
711: cp = "Network Congestion";
712: break;
713:
714: case 0x09:
715: cp = "Remote DTE Operational (PVC Only)";
716: break;
717:
718: case 0x0F:
719: cp = "Network Operational (PVC Only";
720: break;
721:
722: default:
723: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP,
724: ("resetting cause 0x%2x", pkt[0]));
725: goto next;
726:
727: }
728: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP, ("%s%s",
729: ( flags & (1 << DIAG_TYPE) ) ? "clearing cause " :
730: "resetting cause ", cp));
731:
732: next: ;
733: /* The following may only be applicable to PSS in the UK */
734: /* In any case, if someone is keen, they can stuff it all
735: into a text file and read it out */
736:
737: switch (pkt[1]) {
738: case 0x00:
739: cp = "NO ADDITIONAL INFORMATION";
740: break;
741:
742: case 0x01:
743: cp = "INVALID P(S)\tRESET";
744: break;
745:
746: case 0x02:
747: cp = "INVALID P(R)\tRESET";
748: break;
749:
750: case 0x11:
751: cp = "PACKET TYPE INVALID FOR STATE r1\tRESTART";
752: break;
753:
754: case 0x12:
755: cp = "PACKET TYPE INVALID FOR STATE r2\tRESTART";
756: break;
757:
758: case 0x13:
759: cp = "PACKET TYPE INVALID FOR STATE r3\tRESTART";
760: break;
761:
762: case 0x14:
763: cp = "PACKET TYPE INVALID FOR STATE p1\tCLEAR";
764: break;
765:
766: case 0x15:
767: cp = "PACKET TYPE INVALID FOR STATE p2\tCLEAR";
768: break;
769:
770: case 0x16:
771: cp = "PACKET TYPE INVALID FOR STATE p3\tCLEAR";
772: break;
773:
774: case 0x17:
775: cp = "PACKET TYPE INVALID FOR STATE p4\tCLEAR";
776: break;
777:
778: case 0x18:
779: cp = "PACKET TYPE INVALID FOR STATE p5\tRESET";
780: break;
781:
782: case 0x19:
783: cp = "PACKET TYPE INVALID FOR STATE p6\tCLEAR";
784: break;
785:
786: case 0x1A:
787: cp = "PACKET TYPE INVALID FOR STATE p7\tCLEAR";
788: break;
789:
790: case 0x1B:
791: cp = "PACKET TYPE INVALID FOR STATE d1\tRESET";
792: break;
793:
794: case 0x1C:
795: cp = "PACKET TYPE INVALID FOR STATE d2\tRESET";
796: break;
797:
798: case 0x1D:
799: cp = "PACKET TYPE INVALID FOR STATE d3\tRESET";
800: break;
801:
802: case 0x20:
803: cp = "PACKET NOT ALLOWED";
804: break;
805:
806: case 0x21:
807: cp = "UNIDENTIFIABLE PACKET";
808: break;
809:
810: case 0x22:
811: cp = "CALL ON ONE-WAY LOGICAL CHANNEL\tCLEAR";
812: break;
813:
814: case 0x23:
815: cp = "INVALID PACKET TYPE ON PVC\tRESET";
816: break;
817:
818: case 0x24:
819: cp = "PACKET ON UNASSIGNED LCN\tCLEAR";
820: break;
821:
822: case 0x25:
823: cp = "REJECT NOT SUBSCRIBED TO\tRESET";
824: break;
825:
826: case 0x26:
827: cp = "PACKET TOO SHORT\tRESET";
828: break;
829:
830: case 0x27:
831: cp = "PACKET TOO LONG\tRESET";
832: break;
833:
834: case 0x28:
835: cp = "INVALID GFI\tCLEAR";
836: break;
837:
838: case 0x29:
839: cp = "RESTART WITH NON-ZERO BITS 5-16";
840: break;
841:
842: case 0x2A:
843: cp = "PACKET TYPE NOT COMPATIBLE WITH FACILITY\tCLEAR";
844: break;
845:
846: case 0x2B:
847: cp = "UNAUTHORISED INTERRUPT CONF\tRESET";
848: break;
849:
850: case 0x2C:
851: cp = "UNAUTHORISED INTERRUPT\tRESET";
852: break;
853:
854: case 0x31:
855: cp = "TIMER EXPIRED; INCOMING CALL";
856: break;
857:
858: case 0x32:
859: cp = "TIMER EXPIRED;\tCLEAR INDICATION";
860: break;
861:
862: case 0x33:
863: cp = "TIMER EXPIRED;\tRESET INDICATION";
864: break;
865:
866: case 0x34:
867: cp = "TIMER EXPIRED;\tRESTART IND";
868: break;
869:
870: case 0x40:
871: cp = "UNSPECIFIED CALL SET-UP PROBLEM CLEAR";
872: break;
873:
874: case 0x41:
875: cp = "FACILITY CODE NOT ALLOWED\tCLEAR";
876: break;
877:
878: case 0x42:
879: cp = "FACILITY PARAMETER NOT ALLOWED\tCLEAR";
880: break;
881:
882: case 0x43:
883: cp = "INVALID CALLED ADDRESS\tCLEAR";
884: break;
885:
886: case 0x44:
887: cp = "INVALID CALLING ADDRESS\tCLEAR";
888: break;
889:
890: case 0x90:
891: cp = "DTE/DCE CONGESTION\tRESET";
892: break;
893:
894: case 0x91:
895: cp = "RECEIVED FAST SELECT CLEAR REQUEST";
896: break;
897:
898: case 0x92:
899: cp = "LINE RESTARTING BY INMC COMMAND\tRESTART";
900: break;
901:
902: case 0xA0:
903: cp = "NON-ZERO RESET CAUSE FROM DTE\tRESET";
904: break;
905:
906: case 0xA1:
907: cp = "DATA PACKET TOO LONG\tRESET";
908: break;
909:
910: case 0xA2:
911: cp = "INTERRUPT PACKET TOO LONG\tRESET";
912: break;
913:
914: case 0xA3:
915: cp = "INT PACKET TOO SHORT; NO USER DATA\tRESET";
916: break;
917:
918: case 0xA4:
919: cp = "INT CONFIRMATION PACKET TOO LONG\tRESET";
920: break;
921:
922: case 0xA5:
923: cp = "RR PACKET TOO LONG\tRESET";
924: break;
925:
926: case 0xA6:
927: cp = "RNR PACKET TOO LONG\tRESET";
928: break;
929:
930: case 0xA7:
931: cp = "RESET PACKET TOO LONG\tRESET";
932: break;
933:
934: case 0xA8:
935: cp = "RESET CONF PACKET TOO LONG\tRESET";
936: break;
937:
938: case 0xA9:
939: cp = "INVALID `Q' BIT IN DATA PACKET\tRESET";
940: break;
941:
942: case 0xAA:
943: cp = "PACKET WINDOW RANGE EXCEEDED\tRESET";
944: break;
945:
946: case 0xAB:
947: cp = "UNABLE TO TRANSMIT PACKET\tRESET";
948: break;
949:
950: case 0xAC:
951: cp = "diagnostic `Q' BIT SET IN NON-DATA PACKET\tRESET";
952: break;
953:
954: case 0xAD:
955: cp = "OUTSTANDING PACKET COUNT LESS THAN ZERO\tRESET";
956: break;
957:
958: case 0xAE:
959: cp = "RETRANSMISSION ERROR\tRESET";
960: break;
961:
962: case 0xAF:
963: cp = "RESET PACKET TOO SHORT (NO CAUSE)\tRESET";
964: break;
965:
966: case 0xB0:
967: cp = "REJECT PACKET TOO LONG\tRESET";
968: break;
969:
970: case 0xB1:
971: cp = "INVALID 1D PACKET\tRESET";
972: break;
973:
974: case 0xB2:
975: cp = "UNSUCCESSFUL RECONNECTION RESNC\tCLEAR";
976: break;
977:
978: case 0xB3:
979: cp = "NON-RECONNECT CALL IN STATE C1\tCLEAR";
980: break;
981:
982: case 0xB4:
983: cp = "SECOND 1D PACKET FROM DTE\tCLEAR";
984: break;
985:
986: case 0xB5:
987: cp = "BAD DATA TRANSFER STATE IN RECONNECT\tCLEAR";
988: break;
989:
990: case 0xB6:
991: cp = "PACKET FORMAT INVALID\tCLEAR";
992: break;
993:
994: case 0xB7:
995: cp = "FACILITY BYTE COUNT TOO LARGE\tCLEAR";
996: break;
997:
998: case 0xB8:
999: cp = "INVALID PACKET DETECTED\tCLEAR";
1000: break;
1001:
1002: case 0xB9:
1003: cp = "FACILITY/UTILITY FIELD BYTE COUNT > 63\tCLEAR";
1004: break;
1005:
1006: case 0xBA:
1007: cp = "OUTGOING CALLS BARRED\tCLEAR";
1008: break;
1009:
1010: case 0xBB:
1011: cp = "INCOMING CALLS BARRED\tCLEAR";
1012: break;
1013:
1014: case 0xBC:
1015: cp = "CLEARING OF PVC\tCLEAR";
1016: break;
1017:
1018: case 0xBD:
1019: cp = "CALLED ADDRESS TOO LONG\tCLEAR";
1020: break;
1021:
1022: case 0xBE:
1023: cp = "CALLED ADDRESS TOO SHORT\tCLEAR";
1024: break;
1025:
1026: case 0xBF:
1027: cp = "CALLING ADDRESS TOO LONG\tCLEAR";
1028: break;
1029:
1030: case 0xC0:
1031: cp = "CALLING ADDRESS TOO SHORT\tCLEAR";
1032: break;
1033:
1034: case 0xC1:
1035: cp = "BCD ERROR IN CALL ADDRESS\tCLEAR";
1036: break;
1037:
1038: case 0xC2:
1039: cp = "BCD ERROR IN CALLING ADDRESS\tCLEAR";
1040: break;
1041:
1042: case 0xC3:
1043: cp = "USER DATA FIELD TOO LONG\tCLEAR";
1044: break;
1045:
1046: case 0xC4:
1047: cp = "NO BUFFER AVAILABLE\tCLEAR";
1048: break;
1049:
1050: case 0xC5:
1051: cp = "LOCAL DTE IS NOT ENHANCED\tCLEAR";
1052: break;
1053:
1054: case 0xC6:
1055: cp = "FACILITY NEGOTIATION INVALID\tCLEAR";
1056: break;
1057:
1058: case 0xC7:
1059: cp = "MANDATORY UTILITY NOT INPUT\tCLEAR";
1060: break;
1061:
1062: case 0xC8:
1063: cp = "BUFFER NO AVAILABLE FOR TNIC\tCLEAR";
1064: break;
1065:
1066: case 0xC9:
1067: cp = "OVERFLOW OF TNIC IN BUFFER\tCLEAR";
1068: break;
1069:
1070: case 0xCA:
1071: cp = "DTE LINE CONGESTED\tCLEAR";
1072: break;
1073:
1074: case 0xCB:
1075: cp = "TABLE ERROR IN PACKET PROCEDURES";
1076: break;
1077:
1078: case 0xCC:
1079: cp = "INSERT TABLE OVERFLOW";
1080: break;
1081:
1082: case 0xCD:
1083: cp = "DELETE TABLE OVERFLOW";
1084: break;
1085:
1086: case 0xD0:
1087: cp = "TRUNK LINE RESTART\tRESTART";
1088: break;
1089:
1090: case 0xD1:
1091: cp = "INVALID EVENT IN STATE p2";
1092: break;
1093:
1094: case 0xD2:
1095: cp = "INVALID EVENT IN STATE p3";
1096: break;
1097:
1098: case 0xD3:
1099: cp = "INVALID 1D EVENT IN STATE d1";
1100: break;
1101:
1102: case 0xD4:
1103: cp = "CALL COLLISION ON TRUNK LINE";
1104: break;
1105:
1106: case 0xD5:
1107: cp = "NO BUFFER AVAILABLE";
1108: break;
1109:
1110: case 0xD6:
1111:
1112: cp = "CALL COLLISION ON DTE LINE";
1113: break;
1114:
1115: case 0xD7:
1116: cp = "DTE RESTART";
1117: break;
1118:
1119: case 0xD8:
1120: cp = "CALL REQUEST TO TRUNK LINE TIMEOUT";
1121: break;
1122:
1123: case 0xD9:
1124: cp = "RECONNECT SET-UP TIMED OUT";
1125: break;
1126:
1127: case 0xDA:
1128: cp = "INVALID OUTPUT SIDE STATE";
1129: break;
1130:
1131: case 0xDB:
1132: cp = "ERROR DETECTED IN BLINK PACKET QUEUE PROCEDURE";
1133: break;
1134:
1135: case 0xDC:
1136: cp = "RESET INDICATION RETRANSMISSION COUNT EXPIRED";
1137: break;
1138:
1139: case 0xDD:
1140: cp = "INVALID OUTPUT SIDE STATE";
1141: break;
1142:
1143: case 0xDE:
1144: cp = "BLIND BUFFER QUEUE OVERFLOW IN STATE d4";
1145: break;
1146:
1147: case 0xDF:
1148: cp = "BLIND BUFFER QUEUE OVERFLOW IN STATE c1";
1149: break;
1150:
1151: case 0xE0:
1152: cp = "BLIND BUFFER QUEUE OVERFLOW IN STATE c2";
1153: break;
1154:
1155: case 0xE1:
1156: cp = "CLEAR PACKET BYTE COUNT TOO LARGE OR TOO SMALL";
1157: break;
1158:
1159: case 0xE2:
1160: cp = "NON-ZERO\tCLEAR CAUSE";
1161: break;
1162:
1163: case 0xE3:
1164: cp = "CLEAR CONF PACKET BYTE COUNT TOO SMALL OR TOO LARGE";
1165: break;
1166:
1167: case 0xE4:
1168: cp = "CALL COLLISION";
1169: break;
1170:
1171: case 0xE5:
1172: cp = "INVALID TP LOAD REQUEST CALL PKT";
1173: break;
1174:
1175: case 0xE6:
1176: cp = "MAXIMUM HOPCOUNT EXCEEDED";
1177: break;
1178:
1179: case 0xE7:
1180: cp = "ROUTING LOOP DETECTED";
1181: break;
1182:
1183: case 0xE8:
1184: cp = "PVC CALL REQUEST FAILURE";
1185: break;
1186:
1187: case 0xE9:
1188: cp = "RECONNECT CALL REQUEST FAILED";
1189: break;
1190:
1191: case 0xEA:
1192: cp = "NO LC AVAILABLE ON OUTPUT SIDE";
1193: break;
1194:
1195: case 0xEB:
1196: cp = "NO BUFFER AVAILABLE";
1197: break;
1198:
1199: case 0xEC:
1200: cp = "CALL REDIRECTION CLEAR";
1201: break;
1202:
1203: case 0xED:
1204: cp = "NO PATH ROUTE CALL";
1205: break;
1206:
1207: case 0xEE:
1208: cp = "CALL ROUTED TO DTE LINE";
1209: break;
1210:
1211: case 0xEF:
1212: cp = "CALL CANNOT BE REROUTED";
1213: break;
1214:
1215: case 0xF0:
1216: cp = "ADDRESS NOT IN ROUTING TABLES";
1217: break;
1218:
1219: case 0xF1:
1220: cp = "ROUTING TABLE CHANGE DURING CALL ROUTING";
1221: break;
1222:
1223: case 0xF2:
1224: cp = "NO LC AVAILABLE ON FAKE TRUNK";
1225: break;
1226:
1227: case 0xF3:
1228: cp = "REMOTE DTE DOWN ON A PVC";
1229: break;
1230:
1231: case 0xF4:
1232: cp = "INVALID EVENT DETECTED";
1233: break;
1234:
1235: case 0xF5:
1236: cp = "INVALID PACKET RECEIVED; STATE d4";
1237: break;
1238:
1239: case 0xF6:
1240: cp = "INVALID PACKET RECEIVED; STATE d5";
1241: break;
1242:
1243: case 0xF7:
1244: cp = "INVALID PACKET RECEIVED; STATE p8";
1245: break;
1246:
1247: case 0xF8:
1248: cp = "INTERNAL PROCESSING FAILURE";
1249: break;
1250:
1251: case 0xF9:
1252: cp = "INVALID RESTART INDICATION";
1253: break;
1254:
1255: case 0xFA:
1256: cp = "LINE STATUS CHANGE IN STATE r4";
1257: break;
1258:
1259: case 0xFB:
1260: cp = "INVALID PACKET RECEIVED; STATE r4";
1261: break;
1262:
1263: case 0xFC:
1264: cp = "INVALID PACKET RECEIVED; STATE r3";
1265: break;
1266:
1267: case 0xFD:
1268: cp = "LINE STATUS CHANGE IN STATE r2";
1269: break;
1270:
1271: case 0xFE:
1272: cp = "LINE STATUS CHANGE IN STATE r1";
1273: break;
1274:
1275: case 0xFF:
1276: cp = "LINE STATUS CHANGE IN STATE r0";
1277: break;
1278:
1279: default:
1280: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP,
1281: ("diagnostic: 0x%2x", pkt[1]));
1282: goto done;
1283: }
1284: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP, ("diagnostic %s", cp));
1285: }
1286: else /* Not RECV_DIAG */
1287: if (flags)
1288: SLOG (compat_log, LLOG_EXCEPTIONS, NULLCP,
1289: ("diag flags: 0x%02x", flags));
1290:
1291: done: ;
1292: return OK;
1293: }
1294:
1295: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.