/***********************************************************
Copyright IBM Corporation 1987
Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in
supporting documentation, and that the name of IBM not be
used in advertising or publicity pertaining to distribution of the
software without specific, written prior permission.
IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
******************************************************************/
* ARGO Project, Computer Sciences Dept., University of Wisconsin - Madison
/* $Header: /var/src/sys/netiso/RCS/clnp_er.c,v 5.1 89/02/09 16:20:18 hagens Exp $ */
/* $Source: /var/src/sys/netiso/RCS/clnp_er.c,v $ */
/* @(#)clnp_er.c 7.6 (Berkeley) %G% */
static char *rcsid
= "$Header: /var/src/sys/netiso/RCS/clnp_er.c,v 5.1 89/02/09 16:20:18 hagens Exp $";
#include "../net/route.h"
static struct clnp_fixed er_template
= {
ISO8473_CLNP
, /* network identifier */
ISO8473_V1
, /* version */
* FUNCTION: clnp_er_input
* PURPOSE: Process an ER pdu.
clnp_er_input(m
, src
, reason
)
struct mbuf
*m
; /* ptr to packet itself */
struct iso_addr
*src
; /* ptr to src of er */
u_char reason
; /* reason code of er */
extern u_char clnp_protox
[];
printf("clnp_er_input: m x%x, src %s, reason x%x\n", m
,
clnp_iso_addrp(src
), reason
);
INCSTAT(cns_er_inhist
[clnp_er_index(reason
)]);
cmd
= PRC_UNREACH_PROTOCOL
;
cmd
= PRC_UNREACH_SRCFAIL
;
cmd
= PRC_TIMXCEED_INTRANS
;
cmd
= PRC_TIMXCEED_REASS
;
cmd
= PRC_TIMXCEED_REASS
;
* tpclnp_ctlinput1 is called directly so that we don't
* have to build an iso_sockaddr out of src.
tpclnp_ctlinput1(cmd
, src
);
* PURPOSE: Discard a clnp datagram
* SIDE EFFECTS: Will emit an ER pdu if possible
* NOTES: This code assumes that we have previously tried to pull
* up the header of the datagram into one mbuf.
struct mbuf
*m
; /* header of packet to discard */
char reason
; /* reason for discard */
printf("clnp_discard: m x%x, reason x%x\n", m
, reason
);
if (m
->m_len
>= sizeof(struct clnp_fixed
)) {
register struct clnp_fixed
*clnp
= mtod(m
, struct clnp_fixed
*);
if (((clnp
->cnf_type
& CNF_TYPE
) != CLNP_ER
) &&
(clnp
->cnf_type
& CNF_ERR_OK
)) {
* PURPOSE: Send an ER pdu.
* The src of the of the ER pdu is the host that is sending
* the ER (ie. us), *not* the original destination of the
* NOTES: Takes responsibility for freeing mbuf passed
* This function may be called with a packet that
* was created by us; in this case, do not send
struct mbuf
*m
; /* header of packet to discard */
char reason
; /* reason for discard */
register struct clnp_fixed
*clnp
= mtod(m
, struct clnp_fixed
*);
register struct clnp_fixed
*er
;
struct sockaddr
*first_hop
;
struct iso_addr src
, dst
, *our_addr
;
int total_len
; /* total len of dg */
struct mbuf
*m0
; /* contains er pdu hdr */
struct iso_ifaddr
*ia
= 0;
printf("clnp_emit_er: m x%x, hdr len %d\n", m
, clnp
->cnf_hdr_len
);
bzero((caddr_t
)&route
, sizeof(route
));
* If header length is incorrect, or entire header is not contained
if ((clnp
->cnf_hdr_len
< CLNP_HDR_MIN
) ||
(clnp
->cnf_hdr_len
> CLNP_HDR_MAX
) ||
(clnp
->cnf_hdr_len
> m
->m_len
))
/* extract src, dest address */
hend
= (caddr_t
)clnp
+ clnp
->cnf_hdr_len
;
hoff
= (caddr_t
)clnp
+ sizeof(struct clnp_fixed
);
CLNP_EXTRACT_ADDR(dst
, hoff
, hend
);
if (hoff
== (caddr_t
)0) {
CLNP_EXTRACT_ADDR(src
, hoff
, hend
);
if (hoff
== (caddr_t
)0) {
* Do not send ER if we generated the packet.
* Trim mbuf to hold only the header.
* This mbuf will be the 'data' of the er pdu
if (m
->m_len
> clnp
->cnf_hdr_len
)
m_adj(m
, (int)-(m
->m_len
- (int)clnp
->cnf_hdr_len
));
/* route er pdu: note we send pkt to src of original packet */
if (clnp_route(&src
, &route
, /* flags */0, &first_hop
, &ia
) != 0)
/* compute our address based upon firsthop/ifp */
our_addr
= &ia
->ia_addr
.siso_addr
;
printf("clnp_emit_er: to %s", clnp_iso_addrp(&src
));
printf(" from %s\n", clnp_iso_addrp(our_addr
));
printf("clnp_emit_er: packet routed to %s\n",
clnp_iso_addrp(&((struct sockaddr_iso
*)first_hop
)->siso_addr
));
/* allocate mbuf for er pdu header: punt on no space */
MGET(m0
, M_DONTWAIT
, MT_HEADER
);
er
= mtod(m0
, struct clnp_fixed
*);
/* setup src/dst on er pdu */
/* NOTE REVERSAL OF SRC/DST */
hoff
= (caddr_t
)er
+ sizeof(struct clnp_fixed
);
CLNP_INSERT_ADDR(hoff
, src
);
CLNP_INSERT_ADDR(hoff
, *our_addr
);
* TODO: if complete src rt was specified, then reverse path, and
* copy into er as option.
*hoff
++ = CLNPOVAL_ERREAS
; /* code */
*hoff
++ = 2; /* length */
*hoff
++ = reason
; /* discard reason */
*hoff
++ = 0; /* error localization = not specified */
er
->cnf_hdr_len
= m0
->m_len
= (u_char
)(hoff
- (caddr_t
)er
);
total_len
= m0
->m_len
+ m
->m_len
;
HTOC(er
->cnf_seglen_msb
, er
->cnf_seglen_lsb
, total_len
);
/* compute checksum (on header only) */
iso_gen_csum(m0
, CLNP_CKSUM_OFF
, (int)er
->cnf_hdr_len
);
/* trim packet if too large for interface */
if (total_len
> ifp
->if_mtu
)
m_adj(m0
, -(total_len
- ifp
->if_mtu
));
INCSTAT(cns_er_outhist
[clnp_er_index(reason
)]);
(void) (*ifp
->if_output
)(ifp
, m0
, first_hop
, route
.ro_rt
);
/* free route if it is a temp */
register u_char
*cp
= clnp_er_codes
+ CLNP_ERRORS
;
while (cp
> clnp_er_codes
) {
return (cp
- clnp_er_codes
);
return (CLNP_ERRORS
+ 1);