/***********************************************************
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_output.c,v 5.0 89/02/08 12:00:15 hagens Exp $ */
/* $Source: /var/src/sys/netiso/RCS/clnp_output.c,v $ */
/* @(#)clnp_output.c 7.8 (Berkeley) 6/4/90 */
static char *rcsid
= "$Header: /var/src/sys/netiso/RCS/clnp_output.c,v 5.0 89/02/08 12:00:15 hagens Exp $";
#include "../net/route.h"
static struct clnp_fixed dt_template
= {
ISO8473_CLNP
, /* network identifier */
ISO8473_V1
, /* version */
CLNP_DT
|CNF_SEG_OK
|CNF_ERR_OK
, /* type */
static struct clnp_fixed raw_template
= {
ISO8473_CLNP
, /* network identifier */
ISO8473_V1
, /* version */
CLNP_RAW
|CNF_SEG_OK
|CNF_ERR_OK
, /* type */
static struct clnp_fixed echo_template
= {
ISO8473_CLNP
, /* network identifier */
ISO8473_V1
, /* version */
CLNP_EC
|CNF_SEG_OK
|CNF_ERR_OK
, /* type */
u_char qos_option
[] = {CLNPOVAL_QOS
, 1,
CLNPOVAL_GLOBAL
|CLNPOVAL_SEQUENCING
|CLNPOVAL_LOWDELAY
};
int clnp_id
= 0; /* id for segmented dgrams */
* PURPOSE: output the data in the mbuf as a clnp datagram
* The data specified by m0 is sent as a clnp datagram.
* The mbuf chain m0 will be freed when this routine has
* If options is non-null, it points to an mbuf which contains
* options to be sent with the datagram. The options must
* be formatted in the mbuf according to clnp rules. Options
* Datalen specifies the length of the data in m0.
* Src and dst are the addresses for the packet.
* If route is non-null, it is used as the route for
* By default, a DT is sent. However, if flags & CNLP_SEND_ER
* then an ER will be sent. If flags & CLNP_SEND_RAW, then
* the packet will be send as raw clnp.
* Flags are interpretated as follows:
* CLNP_NO_SEG - do not allow this pkt to be segmented.
* CLNP_NO_ER - have pkt request ER suppression.
* CLNP_SEND_RAW - send pkt as RAW DT rather than TP DT
* CLNP_NO_CKSUM - don't compute clnp checksum
* CLNP_ECHO - send as ECHO packet
* When checking for a cached packet, clnp checks
* that the route taken is still up. It does not
* check that the route is still to the same destination.
* This means that any entity that alters an existing
* route for an isopcb (such as when a redirect arrives)
* must invalidate the clnp cache. It might be perferable
* to have clnp check that the route has the same dest, but
* by avoiding this check, we save a call to iso_addrmatch1.
clnp_output(m0
, isop
, datalen
, flags
)
struct mbuf
*m0
; /* data for the packet */
struct isopcb
*isop
; /* iso pcb */
int datalen
; /* number of bytes of data in m0 */
int error
= 0; /* return value of function */
register struct mbuf
*m
= m0
; /* mbuf for clnp header chain */
register struct clnp_fixed
*clnp
; /* ptr to fixed part of hdr */
register caddr_t hoff
; /* offset into header */
int total_len
; /* total length of packet */
struct iso_addr
*src
; /* ptr to source address */
struct iso_addr
*dst
; /* ptr to destination address */
struct clnp_cache clc
; /* storage for cache information */
struct clnp_cache
*clcp
= NULL
; /* ptr to clc */
dst
= &isop
->isop_faddr
->siso_addr
;
if (isop
->isop_laddr
== 0) {
struct iso_ifaddr
*ia
= 0;
clnp_route(dst
, &isop
->isop_route
, flags
, 0, &ia
);
if (ia
== 0 || ia
->ia_ifa
.ifa_addr
->sa_family
!= AF_ISO
)
src
= &ia
->ia_addr
.siso_addr
;
src
= &isop
->isop_laddr
->siso_addr
;
printf("clnp_output: to %s", clnp_iso_addrp(dst
));
printf(" from %s of %d bytes\n", clnp_iso_addrp(src
), datalen
);
printf("\toptions x%x, flags x%x, isop_clnpcache x%x\n",
isop
->isop_options
, flags
, isop
->isop_clnpcache
);
if (isop
->isop_clnpcache
!= NULL
) {
clcp
= mtod(isop
->isop_clnpcache
, struct clnp_cache
*);
* Check if cache is valid ...
printf("clnp_output: ck cache: clcp %x\n", clcp
);
printf("\tclc_dst %s\n", clnp_iso_addrp(&clcp
->clc_dst
));
printf("\tisop_opts x%x, clc_opts x%x\n", isop
->isop_options
,
if (isop
->isop_route
.ro_rt
)
printf("\tro_rt x%x, rt_flags x%x\n",
isop
->isop_route
.ro_rt
, isop
->isop_route
.ro_rt
->rt_flags
);
printf("\tflags x%x, clc_flags x%x\n", flags
, clcp
->clc_flags
);
printf("\tclc_hdr x%x\n", clcp
->clc_hdr
);
if ((clcp
!= NULL
) && /* cache exists */
(isop
->isop_options
== clcp
->clc_options
) && /* same options */
(iso_addrmatch1(dst
, &clcp
->clc_dst
)) && /* dst still same */
(isop
->isop_route
.ro_rt
!= NULL
) && /* route exists */
(isop
->isop_route
.ro_rt
== clcp
->clc_rt
) && /* and is cached */
(isop
->isop_route
.ro_rt
->rt_flags
& RTF_UP
) && /* route still up */
(flags
== clcp
->clc_flags
) && /* same flags */
(clcp
->clc_hdr
!= NULL
)) { /* hdr mbuf exists */
printf("clnp_output: using cache\n");
m
= m_copy(clcp
->clc_hdr
, 0, (int)M_COPYALL
);
* No buffers left to copy cached packet header. Use
* the cached packet header this time, and
m
->m_next
= m0
; /* ASSUMES pkt hdr is 1 mbuf long */
clnp
= mtod(m
, struct clnp_fixed
*);
struct clnp_optidx
*oidx
= NULL
; /* index to clnp options */
* The cache is not valid. Allocate an mbuf (if necessary)
* to hold cached info. If one is not available, then
* don't bother with the cache
if (flags
& CLNP_NOCACHE
) {
if (isop
->isop_clnpcache
== NULL
) {
* There is no clnpcache. Allocate an mbuf to hold one
if ((isop
->isop_clnpcache
= m_get(M_DONTWAIT
, MT_HEADER
))
* No mbufs available. Pretend that we don't want
printf("clnp_output: no mbufs to allocate to cache\n");
clcp
= mtod(isop
->isop_clnpcache
, struct clnp_cache
*);
* A clnpcache mbuf exists. If the clc_hdr is not null,
* we must free it, as a new one is about to be created.
clcp
= mtod(isop
->isop_clnpcache
, struct clnp_cache
*);
if (clcp
->clc_hdr
!= NULL
) {
* The clc_hdr is not null but a clnpcache mbuf exists.
* This means that there was a cache, but the existing
* copy of the hdr is no longer valid. Free it now
* before we lose the pointer to it.
printf("clnp_output: freeing old clc_hdr 0x%x\n",
printf("clnp_output: freed old clc_hdr (done)\n");
printf("clnp_output: NEW clcp x%x\n",clcp
);
bzero((caddr_t
)clcp
, sizeof(struct clnp_cache
));
oidx
= mtod(isop
->isop_optindex
, struct clnp_optidx
*);
* Don't allow packets with security, quality of service,
* priority, or error report options to be sent.
if ((isop
->isop_options
) && (oidx
)) {
if ((oidx
->cni_securep
) ||
(oidx
->cni_qos_formatp
) ||
(oidx
->cni_er_reason
!= ER_INVALREAS
)) {
printf("clnp_output: pkt dropped - option unsupported\n");
* Don't allow any invalid flags to be set
if ((flags
& (CLNP_VFLAGS
)) != flags
) {
printf("clnp_output: packet dropped - flags unsupported\n");
* Don't allow funny lengths on dst; src may be zero in which
* case we insert the source address based upon the interface
if ((src
->isoa_len
> sizeof(struct iso_addr
)) ||
(dst
->isoa_len
> sizeof(struct iso_addr
))) {
* Grab mbuf to contain header
MGETHDR(m
, M_DONTWAIT
, MT_HEADER
);
clnp
= mtod(m
, struct clnp_fixed
*);
* Fill in all of fixed hdr except lengths and checksum
if (flags
& CLNP_SEND_RAW
) {
} else if (flags
& CLNP_ECHO
) {
clnp
->cnf_type
&= ~CNF_SEG_OK
;
clnp
->cnf_type
&= ~CNF_ERR_OK
;
* Route packet; special case for source rt
if ((isop
->isop_options
) && CLNPSRCRT_VALID(oidx
)) {
printf("clnp_output: calling clnp_srcroute\n");
error
= clnp_srcroute(isop
->isop_options
, oidx
, &isop
->isop_route
,
&clcp
->clc_firsthop
, &clcp
->clc_ifa
, dst
);
error
= clnp_route(dst
, &isop
->isop_route
, flags
,
&clcp
->clc_firsthop
, &clcp
->clc_ifa
);
if (error
|| (clcp
->clc_ifa
== 0)) {
printf("clnp_output: route failed, errno %d\n", error
);
dump_buf(clcp
, sizeof (struct clnp_cache
));
clcp
->clc_rt
= isop
->isop_route
.ro_rt
; /* XXX */
printf("clnp_output: packet routed to %s\n",
&((struct sockaddr_iso
*)clcp
->clc_firsthop
)->siso_addr
));
* If src address is not yet specified, use address of
* interface. NOTE: this will now update the laddr field in
* the isopcb. Is this desirable? RAH?
if (src
->isoa_len
== 0) {
src
= &(clcp
->clc_ifa
->ia_addr
.siso_addr
);
printf("clnp_output: new src %s\n", clnp_iso_addrp(src
));
* Insert the source and destination address,
hoff
= (caddr_t
)clnp
+ sizeof(struct clnp_fixed
);
CLNP_INSERT_ADDR(hoff
, *dst
);
CLNP_INSERT_ADDR(hoff
, *src
);
* Leave room for the segment part, if segmenting is selected
if (clnp
->cnf_type
& CNF_SEG_OK
) {
clcp
->clc_segoff
= hoff
- (caddr_t
)clnp
;
hoff
+= sizeof(struct clnp_segment
);
clnp
->cnf_hdr_len
= m
->m_len
= (u_char
)(hoff
- (caddr_t
)clnp
);
hdrlen
= clnp
->cnf_hdr_len
;
* Add the globally unique QOS (with room for congestion experienced
* bit). I can safely assume that this option is not in the options
* mbuf below because I checked that the option was not specified
if ((m
->m_len
+ sizeof(qos_option
)) < MLEN
) {
bcopy((caddr_t
)qos_option
, hoff
, sizeof(qos_option
));
clnp
->cnf_hdr_len
+= sizeof(qos_option
);
hdrlen
+= sizeof(qos_option
);
m
->m_len
+= sizeof(qos_option
);
* If an options mbuf is present, concatenate a copy to the hdr mbuf.
if (isop
->isop_options
) {
struct mbuf
*opt_copy
= m_copy(isop
->isop_options
, 0, (int)M_COPYALL
);
opt_copy
->m_next
= m
->m_next
;
/* update size of header */
clnp
->cnf_hdr_len
+= opt_copy
->m_len
;
hdrlen
+= opt_copy
->m_len
;
if (hdrlen
> CLNP_HDR_MAX
) {
* Now set up the cache entry in the pcb
if ((flags
& CLNP_NOCACHE
) == 0) {
if (clcp
->clc_hdr
= m_copy(m
, 0, (int)clnp
->cnf_hdr_len
)) {
clcp
->clc_options
= isop
->isop_options
;
* If small enough for interface, send directly
* Fill in segmentation part of hdr if using the full protocol
total_len
= clnp
->cnf_hdr_len
+ datalen
;
if (clnp
->cnf_type
& CNF_SEG_OK
) {
struct clnp_segment seg_part
; /* segment part of hdr */
seg_part
.cng_id
= htons(clnp_id
++);
seg_part
.cng_off
= htons(0);
seg_part
.cng_tot_len
= htons(total_len
);
(void) bcopy((caddr_t
)&seg_part
, (caddr_t
) clnp
+ clcp
->clc_segoff
,
if (total_len
<= SN_MTU(clcp
->clc_ifa
->ia_ifp
)) {
HTOC(clnp
->cnf_seglen_msb
, clnp
->cnf_seglen_lsb
, total_len
);
m
->m_pkthdr
.len
= total_len
;
* Compute clnp checksum (on header only)
if (flags
& CLNP_NO_CKSUM
) {
HTOC(clnp
->cnf_cksum_msb
, clnp
->cnf_cksum_lsb
, 0);
iso_gen_csum(m
, CLNP_CKSUM_OFF
, (int)clnp
->cnf_hdr_len
);
printf("clnp_output: sending dg:\n");
dump_buf(mtod(mdump
, caddr_t
), mdump
->m_len
);
error
= SN_OUTPUT(clcp
, m
);
* Too large for interface; fragment if possible.
error
= clnp_fragment(clcp
->clc_ifa
->ia_ifp
, m
, clcp
->clc_firsthop
,
total_len
, clcp
->clc_segoff
, flags
, clcp
->clc_rt
);
clnp_stat
.cns_odropped
++;