home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / sys / netiso / clnp_er.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-05-06  |  10.0 KB  |  376 lines
  1. /*-
  2.  * Copyright (c) 1991 The Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms, with or without
  6.  * modification, are permitted provided that the following conditions
  7.  * are met:
  8.  * 1. Redistributions of source code must retain the above copyright
  9.  *    notice, this list of conditions and the following disclaimer.
  10.  * 2. Redistributions in binary form must reproduce the above copyright
  11.  *    notice, this list of conditions and the following disclaimer in the
  12.  *    documentation and/or other materials provided with the distribution.
  13.  * 3. All advertising materials mentioning features or use of this software
  14.  *    must display the following acknowledgement:
  15.  *    This product includes software developed by the University of
  16.  *    California, Berkeley and its contributors.
  17.  * 4. Neither the name of the University nor the names of its contributors
  18.  *    may be used to endorse or promote products derived from this software
  19.  *    without specific prior written permission.
  20.  *
  21.  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31.  * SUCH DAMAGE.
  32.  *
  33.  *    @(#)clnp_er.c    7.7 (Berkeley) 5/6/91
  34.  */
  35.  
  36. /***********************************************************
  37.         Copyright IBM Corporation 1987
  38.  
  39.                       All Rights Reserved
  40.  
  41. Permission to use, copy, modify, and distribute this software and its 
  42. documentation for any purpose and without fee is hereby granted, 
  43. provided that the above copyright notice appear in all copies and that
  44. both that copyright notice and this permission notice appear in 
  45. supporting documentation, and that the name of IBM not be
  46. used in advertising or publicity pertaining to distribution of the
  47. software without specific, written prior permission.  
  48.  
  49. IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  50. ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
  51. IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
  52. ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  53. WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  54. ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  55. SOFTWARE.
  56.  
  57. ******************************************************************/
  58.  
  59. /*
  60.  * ARGO Project, Computer Sciences Dept., University of Wisconsin - Madison
  61.  */
  62. /* $Header: /var/src/sys/netiso/RCS/clnp_er.c,v 5.1 89/02/09 16:20:18 hagens Exp $ */
  63. /* $Source: /var/src/sys/netiso/RCS/clnp_er.c,v $ */
  64.  
  65. #include "param.h"
  66. #include "mbuf.h"
  67. #include "domain.h"
  68. #include "protosw.h"
  69. #include "socket.h"
  70. #include "socketvar.h"
  71. #include "errno.h"
  72.  
  73. #include "../net/if.h"
  74. #include "../net/route.h"
  75.  
  76. #include "iso.h"
  77. #include "iso_var.h"
  78. #include "iso_pcb.h"
  79. #define CLNP_ER_CODES
  80. #include "clnp.h"
  81. #include "clnp_stat.h"
  82. #include "argo_debug.h"
  83.  
  84. static struct clnp_fixed er_template = {
  85.     ISO8473_CLNP,    /* network identifier */
  86.     0,                /* length */
  87.     ISO8473_V1,        /* version */
  88.     CLNP_TTL,        /* ttl */
  89.     CLNP_ER,        /* type */
  90.     0,                /* segment length */
  91.     0                /* checksum */
  92. };
  93.  
  94. /*
  95.  * FUNCTION:        clnp_er_input
  96.  *
  97.  * PURPOSE:            Process an ER pdu.
  98.  *
  99.  * RETURNS:            
  100.  *
  101.  * SIDE EFFECTS:    
  102.  *
  103.  * NOTES:            
  104.  */
  105. clnp_er_input(m, src, reason)
  106. struct mbuf        *m;        /* ptr to packet itself */
  107. struct iso_addr    *src;    /* ptr to src of er */
  108. u_char            reason;    /* reason code of er */
  109. {
  110.     int    cmd = -1;
  111.     extern u_char clnp_protox[];
  112.  
  113.     IFDEBUG(D_CTLINPUT)
  114.         printf("clnp_er_input: m x%x, src %s, reason x%x\n", m, 
  115.             clnp_iso_addrp(src), reason);
  116.     ENDDEBUG
  117.  
  118.     INCSTAT(cns_er_inhist[clnp_er_index(reason)]);
  119.     switch (reason) {
  120.         case GEN_NOREAS:
  121.         case GEN_PROTOERR:
  122.             break;
  123.         case GEN_BADCSUM:        
  124.             cmd = PRC_PARAMPROB;
  125.             break;
  126.         case GEN_CONGEST:        
  127.             cmd = PRC_QUENCH;
  128.             break;
  129.         case GEN_HDRSYNTAX:        
  130.             cmd = PRC_PARAMPROB;
  131.             break;
  132.         case GEN_SEGNEEDED:        
  133.             cmd = PRC_MSGSIZE; 
  134.             break;
  135.         case GEN_INCOMPLETE:    
  136.             cmd = PRC_PARAMPROB;         
  137.             break;
  138.         case GEN_DUPOPT:        
  139.             cmd = PRC_PARAMPROB;        
  140.             break;
  141.         case ADDR_DESTUNREACH:    
  142.             cmd = PRC_UNREACH_HOST;     
  143.             break;
  144.         case ADDR_DESTUNKNOWN:    
  145.             cmd = PRC_UNREACH_PROTOCOL; 
  146.             break;
  147.         case SRCRT_UNSPECERR:
  148.         case SRCRT_SYNTAX:
  149.         case SRCRT_UNKNOWNADDR:
  150.         case SRCRT_BADPATH:
  151.             cmd = PRC_UNREACH_SRCFAIL;
  152.             break;
  153.         case TTL_EXPTRANSIT:    
  154.             cmd = PRC_TIMXCEED_INTRANS;    
  155.             break;
  156.         case TTL_EXPREASS:        
  157.             cmd = PRC_TIMXCEED_REASS;    
  158.             break;
  159.         case DISC_UNSUPPOPT:
  160.         case DISC_UNSUPPVERS:
  161.         case DISC_UNSUPPSECURE:
  162.         case DISC_UNSUPPSRCRT:
  163.         case DISC_UNSUPPRECRT:
  164.             cmd = PRC_PARAMPROB; 
  165.             break;
  166.         case REASS_INTERFERE:    
  167.             cmd = PRC_TIMXCEED_REASS;
  168.             break;
  169.     }
  170.  
  171.     /*
  172.      *    tpclnp_ctlinput1 is called directly so that we don't
  173.      *    have to build an iso_sockaddr out of src.
  174.      */
  175.     if (cmd >= 0)
  176.         tpclnp_ctlinput1(cmd, src);
  177.  
  178.     m_freem(m);
  179. }
  180.  
  181. /*
  182.  * FUNCTION:        clnp_discard
  183.  *
  184.  * PURPOSE:            Discard a clnp datagram
  185.  *
  186.  * RETURNS:            nothing
  187.  *
  188.  * SIDE EFFECTS:    Will emit an ER pdu if possible
  189.  *
  190.  * NOTES:            This code assumes that we have previously tried to pull
  191.  *                    up the header of the datagram into one mbuf.
  192.  */
  193. clnp_discard(m, reason)
  194. struct mbuf    *m;        /* header of packet to discard */
  195. char                    reason;    /* reason for discard */
  196. {
  197.     IFDEBUG(D_DISCARD)
  198.         printf("clnp_discard: m x%x, reason x%x\n", m, reason);
  199.     ENDDEBUG
  200.  
  201.     if (m != NULL) {
  202.         if (m->m_len >= sizeof(struct clnp_fixed)) {
  203.             register struct clnp_fixed *clnp = mtod(m, struct clnp_fixed *);
  204.  
  205.             if (((clnp->cnf_type & CNF_TYPE) != CLNP_ER) &&
  206.                 (clnp->cnf_type & CNF_ERR_OK)) {
  207.                     clnp_emit_er(m, reason);
  208.                     return;
  209.             }
  210.         }
  211.         m_freem(m);
  212.     }
  213. }
  214.  
  215. /*
  216.  * FUNCTION:        clnp_emit_er
  217.  *
  218.  * PURPOSE:            Send an ER pdu.
  219.  *                    The src of the of the ER pdu is the host that is sending
  220.  *                    the ER (ie. us), *not* the original destination of the
  221.  *                    packet.
  222.  *
  223.  * RETURNS:            nothing
  224.  *
  225.  * SIDE EFFECTS:    
  226.  *
  227.  * NOTES:            Takes responsibility for freeing mbuf passed
  228.  *                    This function may be called with a packet that
  229.  *                    was created by us; in this case, do not send
  230.  *                    an ER.
  231.  */
  232. clnp_emit_er(m, reason)
  233. struct mbuf    *m;        /* header of packet to discard */
  234. char                    reason;    /* reason for discard */
  235. {
  236.     register struct clnp_fixed    *clnp = mtod(m, struct clnp_fixed *);
  237.     register struct clnp_fixed    *er;
  238.     struct route_iso            route;
  239.     struct ifnet                *ifp;
  240.     struct sockaddr                *first_hop;
  241.     struct iso_addr                src, dst, *our_addr;
  242.     caddr_t                        hoff, hend;
  243.     int                            total_len;        /* total len of dg */
  244.     struct mbuf                 *m0;            /* contains er pdu hdr */
  245.     struct iso_ifaddr            *ia = 0;
  246.  
  247.     IFDEBUG(D_DISCARD)
  248.         printf("clnp_emit_er: m x%x, hdr len %d\n", m, clnp->cnf_hdr_len);
  249.     ENDDEBUG
  250.  
  251.     bzero((caddr_t)&route, sizeof(route));
  252.  
  253.     /*
  254.      *    If header length is incorrect, or entire header is not contained
  255.      *    in this mbuf, we punt
  256.      */
  257.     if ((clnp->cnf_hdr_len < CLNP_HDR_MIN) ||
  258.         (clnp->cnf_hdr_len > CLNP_HDR_MAX) ||
  259.         (clnp->cnf_hdr_len > m->m_len))
  260.         goto bad;
  261.     
  262.     /* extract src, dest address */
  263.     hend = (caddr_t)clnp + clnp->cnf_hdr_len;
  264.     hoff = (caddr_t)clnp + sizeof(struct clnp_fixed);
  265.     CLNP_EXTRACT_ADDR(dst, hoff, hend);
  266.     if (hoff == (caddr_t)0) {
  267.         goto bad;
  268.     }
  269.     CLNP_EXTRACT_ADDR(src, hoff, hend);
  270.     if (hoff == (caddr_t)0) {
  271.         goto bad;
  272.     }
  273.     
  274.     /*
  275.      *    Do not send ER if we generated the packet.
  276.      */
  277.     if (clnp_ours(&src))
  278.         goto bad;
  279.  
  280.     /* 
  281.      *    Trim mbuf to hold only the header.
  282.      *    This mbuf will be the 'data' of the er pdu
  283.      */
  284.     if (m->m_next != NULL) {
  285.         m_freem(m->m_next);
  286.         m->m_next = NULL;
  287.     }
  288.  
  289.     if (m->m_len > clnp->cnf_hdr_len)
  290.         m_adj(m, (int)-(m->m_len - (int)clnp->cnf_hdr_len));
  291.  
  292.     /* route er pdu: note we send pkt to src of original packet  */
  293.     if (clnp_route(&src, &route, /* flags */0, &first_hop, &ia) != 0)
  294.         goto bad;
  295.  
  296.     /* compute our address based upon firsthop/ifp */
  297.     if (ia)
  298.             our_addr = &ia->ia_addr.siso_addr;
  299.     else
  300.             goto bad;
  301.     ifp = ia->ia_ifp;
  302.  
  303.     IFDEBUG(D_DISCARD)
  304.         printf("clnp_emit_er: to %s", clnp_iso_addrp(&src));
  305.         printf(" from %s\n", clnp_iso_addrp(our_addr));
  306.     ENDDEBUG
  307.  
  308.     IFDEBUG(D_DISCARD)
  309.         printf("clnp_emit_er: packet routed to %s\n", 
  310.             clnp_iso_addrp(&((struct sockaddr_iso *)first_hop)->siso_addr));
  311.     ENDDEBUG
  312.  
  313.     /* allocate mbuf for er pdu header: punt on no space */
  314.     MGET(m0, M_DONTWAIT, MT_HEADER);
  315.     if (m0 == 0)
  316.         goto bad;
  317.     
  318.     m0->m_next = m;
  319.     er = mtod(m0, struct clnp_fixed *);
  320.     *er = er_template;
  321.  
  322.     /* setup src/dst on er pdu */
  323.     /* NOTE REVERSAL OF SRC/DST */
  324.     hoff = (caddr_t)er + sizeof(struct clnp_fixed);
  325.     CLNP_INSERT_ADDR(hoff, src);
  326.     CLNP_INSERT_ADDR(hoff, *our_addr);
  327.  
  328.     /*
  329.      *    TODO: if complete src rt was specified, then reverse path, and
  330.      *    copy into er as option.
  331.      */
  332.  
  333.     /* add er option */
  334.     *hoff++ = CLNPOVAL_ERREAS;    /* code */
  335.     *hoff++ = 2;                /* length */
  336.     *hoff++ = reason;            /* discard reason */
  337.     *hoff++ = 0;                /* error localization = not specified */
  338.  
  339.     /* set length */
  340.     er->cnf_hdr_len = m0->m_len = (u_char)(hoff - (caddr_t)er);
  341.     total_len = m0->m_len + m->m_len;
  342.     HTOC(er->cnf_seglen_msb, er->cnf_seglen_lsb, total_len);
  343.  
  344.     /* compute checksum (on header only) */
  345.     iso_gen_csum(m0, CLNP_CKSUM_OFF, (int)er->cnf_hdr_len);
  346.  
  347.     /* trim packet if too large for interface */
  348.     if (total_len > ifp->if_mtu)
  349.         m_adj(m0, -(total_len - ifp->if_mtu));
  350.     
  351.     /* send packet */
  352.     INCSTAT(cns_er_outhist[clnp_er_index(reason)]);
  353.     (void) (*ifp->if_output)(ifp, m0, first_hop, route.ro_rt);
  354.     goto done;
  355.  
  356. bad:
  357.     m_freem(m);
  358.  
  359. done:
  360.     /* free route if it is a temp */
  361.     if (route.ro_rt != NULL)
  362.         RTFREE(route.ro_rt);
  363. }
  364.  
  365. clnp_er_index(p)
  366. u_char p;
  367. {
  368.     register u_char *cp = clnp_er_codes + CLNP_ERRORS;
  369.     while (cp > clnp_er_codes) {
  370.         cp--;
  371.         if (*cp == p)
  372.             return (cp - clnp_er_codes);
  373.     }
  374.     return (CLNP_ERRORS + 1);
  375. }
  376.