1 /* net/sched/sch_atm.c - ATM VC selection "queueing discipline" */
2 
3 /* Written 1998-2000 by Werner Almesberger, EPFL ICA */
4 
5 #include <linux/module.h>
6 #include <linux/slab.h>
7 #include <linux/init.h>
8 #include <linux/interrupt.h>
9 #include <linux/string.h>
10 #include <linux/errno.h>
11 #include <linux/skbuff.h>
12 #include <linux/atmdev.h>
13 #include <linux/atmclip.h>
14 #include <linux/rtnetlink.h>
15 #include <linux/file.h>		/* for fput */
16 #include <net/netlink.h>
17 #include <net/pkt_sched.h>
18 
19 extern struct socket *sockfd_lookup(int fd, int *err);	/* @@@ fix this */
20 
21 /*
22  * The ATM queuing discipline provides a framework for invoking classifiers
23  * (aka "filters"), which in turn select classes of this queuing discipline.
24  * Each class maps the flow(s) it is handling to a given VC. Multiple classes
25  * may share the same VC.
26  *
27  * When creating a class, VCs are specified by passing the number of the open
28  * socket descriptor by which the calling process references the VC. The kernel
29  * keeps the VC open at least until all classes using it are removed.
30  *
31  * In this file, most functions are named atm_tc_* to avoid confusion with all
32  * the atm_* in net/atm. This naming convention differs from what's used in the
33  * rest of net/sched.
34  *
35  * Known bugs:
36  *  - sometimes messes up the IP stack
37  *  - any manipulations besides the few operations described in the README, are
38  *    untested and likely to crash the system
39  *  - should lock the flow while there is data in the queue (?)
40  */
41 
42 #define VCC2FLOW(vcc) ((struct atm_flow_data *) ((vcc)->user_back))
43 
44 struct atm_flow_data {
45 	struct Qdisc		*q;	/* FIFO, TBF, etc. */
46 	struct tcf_proto	*filter_list;
47 	struct atm_vcc		*vcc;	/* VCC; NULL if VCC is closed */
48 	void			(*old_pop)(struct atm_vcc *vcc,
49 					   struct sk_buff *skb); /* chaining */
50 	struct atm_qdisc_data	*parent;	/* parent qdisc */
51 	struct socket		*sock;		/* for closing */
52 	u32			classid;	/* x:y type ID */
53 	int			ref;		/* reference count */
54 	struct gnet_stats_basic_packed	bstats;
55 	struct gnet_stats_queue	qstats;
56 	struct list_head	list;
57 	struct atm_flow_data	*excess;	/* flow for excess traffic;
58 						   NULL to set CLP instead */
59 	int			hdr_len;
60 	unsigned char		hdr[0];		/* header data; MUST BE LAST */
61 };
62 
63 struct atm_qdisc_data {
64 	struct atm_flow_data	link;		/* unclassified skbs go here */
65 	struct list_head	flows;		/* NB: "link" is also on this
66 						   list */
67 	struct tasklet_struct	task;		/* dequeue tasklet */
68 };
69 
70 /* ------------------------- Class/flow operations ------------------------- */
71 
lookup_flow(struct Qdisc * sch,u32 classid)72 static inline struct atm_flow_data *lookup_flow(struct Qdisc *sch, u32 classid)
73 {
74 	struct atm_qdisc_data *p = qdisc_priv(sch);
75 	struct atm_flow_data *flow;
76 
77 	list_for_each_entry(flow, &p->flows, list) {
78 		if (flow->classid == classid)
79 			return flow;
80 	}
81 	return NULL;
82 }
83 
atm_tc_graft(struct Qdisc * sch,unsigned long arg,struct Qdisc * new,struct Qdisc ** old)84 static int atm_tc_graft(struct Qdisc *sch, unsigned long arg,
85 			struct Qdisc *new, struct Qdisc **old)
86 {
87 	struct atm_qdisc_data *p = qdisc_priv(sch);
88 	struct atm_flow_data *flow = (struct atm_flow_data *)arg;
89 
90 	pr_debug("atm_tc_graft(sch %p,[qdisc %p],flow %p,new %p,old %p)\n",
91 		sch, p, flow, new, old);
92 	if (list_empty(&flow->list))
93 		return -EINVAL;
94 	if (!new)
95 		new = &noop_qdisc;
96 	*old = flow->q;
97 	flow->q = new;
98 	if (*old)
99 		qdisc_reset(*old);
100 	return 0;
101 }
102 
atm_tc_leaf(struct Qdisc * sch,unsigned long cl)103 static struct Qdisc *atm_tc_leaf(struct Qdisc *sch, unsigned long cl)
104 {
105 	struct atm_flow_data *flow = (struct atm_flow_data *)cl;
106 
107 	pr_debug("atm_tc_leaf(sch %p,flow %p)\n", sch, flow);
108 	return flow ? flow->q : NULL;
109 }
110 
atm_tc_get(struct Qdisc * sch,u32 classid)111 static unsigned long atm_tc_get(struct Qdisc *sch, u32 classid)
112 {
113 	struct atm_qdisc_data *p __maybe_unused = qdisc_priv(sch);
114 	struct atm_flow_data *flow;
115 
116 	pr_debug("atm_tc_get(sch %p,[qdisc %p],classid %x)\n", sch, p, classid);
117 	flow = lookup_flow(sch, classid);
118 	if (flow)
119 		flow->ref++;
120 	pr_debug("atm_tc_get: flow %p\n", flow);
121 	return (unsigned long)flow;
122 }
123 
atm_tc_bind_filter(struct Qdisc * sch,unsigned long parent,u32 classid)124 static unsigned long atm_tc_bind_filter(struct Qdisc *sch,
125 					unsigned long parent, u32 classid)
126 {
127 	return atm_tc_get(sch, classid);
128 }
129 
130 /*
131  * atm_tc_put handles all destructions, including the ones that are explicitly
132  * requested (atm_tc_destroy, etc.). The assumption here is that we never drop
133  * anything that still seems to be in use.
134  */
atm_tc_put(struct Qdisc * sch,unsigned long cl)135 static void atm_tc_put(struct Qdisc *sch, unsigned long cl)
136 {
137 	struct atm_qdisc_data *p = qdisc_priv(sch);
138 	struct atm_flow_data *flow = (struct atm_flow_data *)cl;
139 
140 	pr_debug("atm_tc_put(sch %p,[qdisc %p],flow %p)\n", sch, p, flow);
141 	if (--flow->ref)
142 		return;
143 	pr_debug("atm_tc_put: destroying\n");
144 	list_del_init(&flow->list);
145 	pr_debug("atm_tc_put: qdisc %p\n", flow->q);
146 	qdisc_destroy(flow->q);
147 	tcf_destroy_chain(&flow->filter_list);
148 	if (flow->sock) {
149 		pr_debug("atm_tc_put: f_count %ld\n",
150 			file_count(flow->sock->file));
151 		flow->vcc->pop = flow->old_pop;
152 		sockfd_put(flow->sock);
153 	}
154 	if (flow->excess)
155 		atm_tc_put(sch, (unsigned long)flow->excess);
156 	if (flow != &p->link)
157 		kfree(flow);
158 	/*
159 	 * If flow == &p->link, the qdisc no longer works at this point and
160 	 * needs to be removed. (By the caller of atm_tc_put.)
161 	 */
162 }
163 
sch_atm_pop(struct atm_vcc * vcc,struct sk_buff * skb)164 static void sch_atm_pop(struct atm_vcc *vcc, struct sk_buff *skb)
165 {
166 	struct atm_qdisc_data *p = VCC2FLOW(vcc)->parent;
167 
168 	pr_debug("sch_atm_pop(vcc %p,skb %p,[qdisc %p])\n", vcc, skb, p);
169 	VCC2FLOW(vcc)->old_pop(vcc, skb);
170 	tasklet_schedule(&p->task);
171 }
172 
173 static const u8 llc_oui_ip[] = {
174 	0xaa,			/* DSAP: non-ISO */
175 	0xaa,			/* SSAP: non-ISO */
176 	0x03,			/* Ctrl: Unnumbered Information Command PDU */
177 	0x00,			/* OUI: EtherType */
178 	0x00, 0x00,
179 	0x08, 0x00
180 };				/* Ethertype IP (0800) */
181 
182 static const struct nla_policy atm_policy[TCA_ATM_MAX + 1] = {
183 	[TCA_ATM_FD]		= { .type = NLA_U32 },
184 	[TCA_ATM_EXCESS]	= { .type = NLA_U32 },
185 };
186 
atm_tc_change(struct Qdisc * sch,u32 classid,u32 parent,struct nlattr ** tca,unsigned long * arg)187 static int atm_tc_change(struct Qdisc *sch, u32 classid, u32 parent,
188 			 struct nlattr **tca, unsigned long *arg)
189 {
190 	struct atm_qdisc_data *p = qdisc_priv(sch);
191 	struct atm_flow_data *flow = (struct atm_flow_data *)*arg;
192 	struct atm_flow_data *excess = NULL;
193 	struct nlattr *opt = tca[TCA_OPTIONS];
194 	struct nlattr *tb[TCA_ATM_MAX + 1];
195 	struct socket *sock;
196 	int fd, error, hdr_len;
197 	void *hdr;
198 
199 	pr_debug("atm_tc_change(sch %p,[qdisc %p],classid %x,parent %x,"
200 		"flow %p,opt %p)\n", sch, p, classid, parent, flow, opt);
201 	/*
202 	 * The concept of parents doesn't apply for this qdisc.
203 	 */
204 	if (parent && parent != TC_H_ROOT && parent != sch->handle)
205 		return -EINVAL;
206 	/*
207 	 * ATM classes cannot be changed. In order to change properties of the
208 	 * ATM connection, that socket needs to be modified directly (via the
209 	 * native ATM API. In order to send a flow to a different VC, the old
210 	 * class needs to be removed and a new one added. (This may be changed
211 	 * later.)
212 	 */
213 	if (flow)
214 		return -EBUSY;
215 	if (opt == NULL)
216 		return -EINVAL;
217 
218 	error = nla_parse_nested(tb, TCA_ATM_MAX, opt, atm_policy);
219 	if (error < 0)
220 		return error;
221 
222 	if (!tb[TCA_ATM_FD])
223 		return -EINVAL;
224 	fd = nla_get_u32(tb[TCA_ATM_FD]);
225 	pr_debug("atm_tc_change: fd %d\n", fd);
226 	if (tb[TCA_ATM_HDR]) {
227 		hdr_len = nla_len(tb[TCA_ATM_HDR]);
228 		hdr = nla_data(tb[TCA_ATM_HDR]);
229 	} else {
230 		hdr_len = RFC1483LLC_LEN;
231 		hdr = NULL;	/* default LLC/SNAP for IP */
232 	}
233 	if (!tb[TCA_ATM_EXCESS])
234 		excess = NULL;
235 	else {
236 		excess = (struct atm_flow_data *)
237 			atm_tc_get(sch, nla_get_u32(tb[TCA_ATM_EXCESS]));
238 		if (!excess)
239 			return -ENOENT;
240 	}
241 	pr_debug("atm_tc_change: type %d, payload %d, hdr_len %d\n",
242 		 opt->nla_type, nla_len(opt), hdr_len);
243 	sock = sockfd_lookup(fd, &error);
244 	if (!sock)
245 		return error;	/* f_count++ */
246 	pr_debug("atm_tc_change: f_count %ld\n", file_count(sock->file));
247 	if (sock->ops->family != PF_ATMSVC && sock->ops->family != PF_ATMPVC) {
248 		error = -EPROTOTYPE;
249 		goto err_out;
250 	}
251 	/* @@@ should check if the socket is really operational or we'll crash
252 	   on vcc->send */
253 	if (classid) {
254 		if (TC_H_MAJ(classid ^ sch->handle)) {
255 			pr_debug("atm_tc_change: classid mismatch\n");
256 			error = -EINVAL;
257 			goto err_out;
258 		}
259 	} else {
260 		int i;
261 		unsigned long cl;
262 
263 		for (i = 1; i < 0x8000; i++) {
264 			classid = TC_H_MAKE(sch->handle, 0x8000 | i);
265 			cl = atm_tc_get(sch, classid);
266 			if (!cl)
267 				break;
268 			atm_tc_put(sch, cl);
269 		}
270 	}
271 	pr_debug("atm_tc_change: new id %x\n", classid);
272 	flow = kzalloc(sizeof(struct atm_flow_data) + hdr_len, GFP_KERNEL);
273 	pr_debug("atm_tc_change: flow %p\n", flow);
274 	if (!flow) {
275 		error = -ENOBUFS;
276 		goto err_out;
277 	}
278 	flow->filter_list = NULL;
279 	flow->q = qdisc_create_dflt(sch->dev_queue, &pfifo_qdisc_ops, classid);
280 	if (!flow->q)
281 		flow->q = &noop_qdisc;
282 	pr_debug("atm_tc_change: qdisc %p\n", flow->q);
283 	flow->sock = sock;
284 	flow->vcc = ATM_SD(sock);	/* speedup */
285 	flow->vcc->user_back = flow;
286 	pr_debug("atm_tc_change: vcc %p\n", flow->vcc);
287 	flow->old_pop = flow->vcc->pop;
288 	flow->parent = p;
289 	flow->vcc->pop = sch_atm_pop;
290 	flow->classid = classid;
291 	flow->ref = 1;
292 	flow->excess = excess;
293 	list_add(&flow->list, &p->link.list);
294 	flow->hdr_len = hdr_len;
295 	if (hdr)
296 		memcpy(flow->hdr, hdr, hdr_len);
297 	else
298 		memcpy(flow->hdr, llc_oui_ip, sizeof(llc_oui_ip));
299 	*arg = (unsigned long)flow;
300 	return 0;
301 err_out:
302 	if (excess)
303 		atm_tc_put(sch, (unsigned long)excess);
304 	sockfd_put(sock);
305 	return error;
306 }
307 
atm_tc_delete(struct Qdisc * sch,unsigned long arg)308 static int atm_tc_delete(struct Qdisc *sch, unsigned long arg)
309 {
310 	struct atm_qdisc_data *p = qdisc_priv(sch);
311 	struct atm_flow_data *flow = (struct atm_flow_data *)arg;
312 
313 	pr_debug("atm_tc_delete(sch %p,[qdisc %p],flow %p)\n", sch, p, flow);
314 	if (list_empty(&flow->list))
315 		return -EINVAL;
316 	if (flow->filter_list || flow == &p->link)
317 		return -EBUSY;
318 	/*
319 	 * Reference count must be 2: one for "keepalive" (set at class
320 	 * creation), and one for the reference held when calling delete.
321 	 */
322 	if (flow->ref < 2) {
323 		pr_err("atm_tc_delete: flow->ref == %d\n", flow->ref);
324 		return -EINVAL;
325 	}
326 	if (flow->ref > 2)
327 		return -EBUSY;	/* catch references via excess, etc. */
328 	atm_tc_put(sch, arg);
329 	return 0;
330 }
331 
atm_tc_walk(struct Qdisc * sch,struct qdisc_walker * walker)332 static void atm_tc_walk(struct Qdisc *sch, struct qdisc_walker *walker)
333 {
334 	struct atm_qdisc_data *p = qdisc_priv(sch);
335 	struct atm_flow_data *flow;
336 
337 	pr_debug("atm_tc_walk(sch %p,[qdisc %p],walker %p)\n", sch, p, walker);
338 	if (walker->stop)
339 		return;
340 	list_for_each_entry(flow, &p->flows, list) {
341 		if (walker->count >= walker->skip &&
342 		    walker->fn(sch, (unsigned long)flow, walker) < 0) {
343 			walker->stop = 1;
344 			break;
345 		}
346 		walker->count++;
347 	}
348 }
349 
atm_tc_find_tcf(struct Qdisc * sch,unsigned long cl)350 static struct tcf_proto **atm_tc_find_tcf(struct Qdisc *sch, unsigned long cl)
351 {
352 	struct atm_qdisc_data *p = qdisc_priv(sch);
353 	struct atm_flow_data *flow = (struct atm_flow_data *)cl;
354 
355 	pr_debug("atm_tc_find_tcf(sch %p,[qdisc %p],flow %p)\n", sch, p, flow);
356 	return flow ? &flow->filter_list : &p->link.filter_list;
357 }
358 
359 /* --------------------------- Qdisc operations ---------------------------- */
360 
atm_tc_enqueue(struct sk_buff * skb,struct Qdisc * sch)361 static int atm_tc_enqueue(struct sk_buff *skb, struct Qdisc *sch)
362 {
363 	struct atm_qdisc_data *p = qdisc_priv(sch);
364 	struct atm_flow_data *flow;
365 	struct tcf_result res;
366 	int result;
367 	int ret = NET_XMIT_POLICED;
368 
369 	pr_debug("atm_tc_enqueue(skb %p,sch %p,[qdisc %p])\n", skb, sch, p);
370 	result = TC_POLICE_OK;	/* be nice to gcc */
371 	flow = NULL;
372 	if (TC_H_MAJ(skb->priority) != sch->handle ||
373 	    !(flow = (struct atm_flow_data *)atm_tc_get(sch, skb->priority))) {
374 		list_for_each_entry(flow, &p->flows, list) {
375 			if (flow->filter_list) {
376 				result = tc_classify_compat(skb,
377 							    flow->filter_list,
378 							    &res);
379 				if (result < 0)
380 					continue;
381 				flow = (struct atm_flow_data *)res.class;
382 				if (!flow)
383 					flow = lookup_flow(sch, res.classid);
384 				goto done;
385 			}
386 		}
387 		flow = NULL;
388 done:
389 		;
390 	}
391 	if (!flow) {
392 		flow = &p->link;
393 	} else {
394 		if (flow->vcc)
395 			ATM_SKB(skb)->atm_options = flow->vcc->atm_options;
396 		/*@@@ looks good ... but it's not supposed to work :-) */
397 #ifdef CONFIG_NET_CLS_ACT
398 		switch (result) {
399 		case TC_ACT_QUEUED:
400 		case TC_ACT_STOLEN:
401 			kfree_skb(skb);
402 			return NET_XMIT_SUCCESS | __NET_XMIT_STOLEN;
403 		case TC_ACT_SHOT:
404 			kfree_skb(skb);
405 			goto drop;
406 		case TC_POLICE_RECLASSIFY:
407 			if (flow->excess)
408 				flow = flow->excess;
409 			else
410 				ATM_SKB(skb)->atm_options |= ATM_ATMOPT_CLP;
411 			break;
412 		}
413 #endif
414 	}
415 
416 	ret = qdisc_enqueue(skb, flow->q);
417 	if (ret != NET_XMIT_SUCCESS) {
418 drop: __maybe_unused
419 		if (net_xmit_drop_count(ret)) {
420 			sch->qstats.drops++;
421 			if (flow)
422 				flow->qstats.drops++;
423 		}
424 		return ret;
425 	}
426 	qdisc_bstats_update(sch, skb);
427 	bstats_update(&flow->bstats, skb);
428 	/*
429 	 * Okay, this may seem weird. We pretend we've dropped the packet if
430 	 * it goes via ATM. The reason for this is that the outer qdisc
431 	 * expects to be able to q->dequeue the packet later on if we return
432 	 * success at this place. Also, sch->q.qdisc needs to reflect whether
433 	 * there is a packet egligible for dequeuing or not. Note that the
434 	 * statistics of the outer qdisc are necessarily wrong because of all
435 	 * this. There's currently no correct solution for this.
436 	 */
437 	if (flow == &p->link) {
438 		sch->q.qlen++;
439 		return NET_XMIT_SUCCESS;
440 	}
441 	tasklet_schedule(&p->task);
442 	return NET_XMIT_SUCCESS | __NET_XMIT_BYPASS;
443 }
444 
445 /*
446  * Dequeue packets and send them over ATM. Note that we quite deliberately
447  * avoid checking net_device's flow control here, simply because sch_atm
448  * uses its own channels, which have nothing to do with any CLIP/LANE/or
449  * non-ATM interfaces.
450  */
451 
sch_atm_dequeue(unsigned long data)452 static void sch_atm_dequeue(unsigned long data)
453 {
454 	struct Qdisc *sch = (struct Qdisc *)data;
455 	struct atm_qdisc_data *p = qdisc_priv(sch);
456 	struct atm_flow_data *flow;
457 	struct sk_buff *skb;
458 
459 	pr_debug("sch_atm_dequeue(sch %p,[qdisc %p])\n", sch, p);
460 	list_for_each_entry(flow, &p->flows, list) {
461 		if (flow == &p->link)
462 			continue;
463 		/*
464 		 * If traffic is properly shaped, this won't generate nasty
465 		 * little bursts. Otherwise, it may ... (but that's okay)
466 		 */
467 		while ((skb = flow->q->ops->peek(flow->q))) {
468 			if (!atm_may_send(flow->vcc, skb->truesize))
469 				break;
470 
471 			skb = qdisc_dequeue_peeked(flow->q);
472 			if (unlikely(!skb))
473 				break;
474 
475 			pr_debug("atm_tc_dequeue: sending on class %p\n", flow);
476 			/* remove any LL header somebody else has attached */
477 			skb_pull(skb, skb_network_offset(skb));
478 			if (skb_headroom(skb) < flow->hdr_len) {
479 				struct sk_buff *new;
480 
481 				new = skb_realloc_headroom(skb, flow->hdr_len);
482 				dev_kfree_skb(skb);
483 				if (!new)
484 					continue;
485 				skb = new;
486 			}
487 			pr_debug("sch_atm_dequeue: ip %p, data %p\n",
488 				 skb_network_header(skb), skb->data);
489 			ATM_SKB(skb)->vcc = flow->vcc;
490 			memcpy(skb_push(skb, flow->hdr_len), flow->hdr,
491 			       flow->hdr_len);
492 			atomic_add(skb->truesize,
493 				   &sk_atm(flow->vcc)->sk_wmem_alloc);
494 			/* atm.atm_options are already set by atm_tc_enqueue */
495 			flow->vcc->send(flow->vcc, skb);
496 		}
497 	}
498 }
499 
atm_tc_dequeue(struct Qdisc * sch)500 static struct sk_buff *atm_tc_dequeue(struct Qdisc *sch)
501 {
502 	struct atm_qdisc_data *p = qdisc_priv(sch);
503 	struct sk_buff *skb;
504 
505 	pr_debug("atm_tc_dequeue(sch %p,[qdisc %p])\n", sch, p);
506 	tasklet_schedule(&p->task);
507 	skb = qdisc_dequeue_peeked(p->link.q);
508 	if (skb)
509 		sch->q.qlen--;
510 	return skb;
511 }
512 
atm_tc_peek(struct Qdisc * sch)513 static struct sk_buff *atm_tc_peek(struct Qdisc *sch)
514 {
515 	struct atm_qdisc_data *p = qdisc_priv(sch);
516 
517 	pr_debug("atm_tc_peek(sch %p,[qdisc %p])\n", sch, p);
518 
519 	return p->link.q->ops->peek(p->link.q);
520 }
521 
atm_tc_drop(struct Qdisc * sch)522 static unsigned int atm_tc_drop(struct Qdisc *sch)
523 {
524 	struct atm_qdisc_data *p = qdisc_priv(sch);
525 	struct atm_flow_data *flow;
526 	unsigned int len;
527 
528 	pr_debug("atm_tc_drop(sch %p,[qdisc %p])\n", sch, p);
529 	list_for_each_entry(flow, &p->flows, list) {
530 		if (flow->q->ops->drop && (len = flow->q->ops->drop(flow->q)))
531 			return len;
532 	}
533 	return 0;
534 }
535 
atm_tc_init(struct Qdisc * sch,struct nlattr * opt)536 static int atm_tc_init(struct Qdisc *sch, struct nlattr *opt)
537 {
538 	struct atm_qdisc_data *p = qdisc_priv(sch);
539 
540 	pr_debug("atm_tc_init(sch %p,[qdisc %p],opt %p)\n", sch, p, opt);
541 	INIT_LIST_HEAD(&p->flows);
542 	INIT_LIST_HEAD(&p->link.list);
543 	list_add(&p->link.list, &p->flows);
544 	p->link.q = qdisc_create_dflt(sch->dev_queue,
545 				      &pfifo_qdisc_ops, sch->handle);
546 	if (!p->link.q)
547 		p->link.q = &noop_qdisc;
548 	pr_debug("atm_tc_init: link (%p) qdisc %p\n", &p->link, p->link.q);
549 	p->link.filter_list = NULL;
550 	p->link.vcc = NULL;
551 	p->link.sock = NULL;
552 	p->link.classid = sch->handle;
553 	p->link.ref = 1;
554 	tasklet_init(&p->task, sch_atm_dequeue, (unsigned long)sch);
555 	return 0;
556 }
557 
atm_tc_reset(struct Qdisc * sch)558 static void atm_tc_reset(struct Qdisc *sch)
559 {
560 	struct atm_qdisc_data *p = qdisc_priv(sch);
561 	struct atm_flow_data *flow;
562 
563 	pr_debug("atm_tc_reset(sch %p,[qdisc %p])\n", sch, p);
564 	list_for_each_entry(flow, &p->flows, list)
565 		qdisc_reset(flow->q);
566 	sch->q.qlen = 0;
567 }
568 
atm_tc_destroy(struct Qdisc * sch)569 static void atm_tc_destroy(struct Qdisc *sch)
570 {
571 	struct atm_qdisc_data *p = qdisc_priv(sch);
572 	struct atm_flow_data *flow, *tmp;
573 
574 	pr_debug("atm_tc_destroy(sch %p,[qdisc %p])\n", sch, p);
575 	list_for_each_entry(flow, &p->flows, list)
576 		tcf_destroy_chain(&flow->filter_list);
577 
578 	list_for_each_entry_safe(flow, tmp, &p->flows, list) {
579 		if (flow->ref > 1)
580 			pr_err("atm_destroy: %p->ref = %d\n", flow, flow->ref);
581 		atm_tc_put(sch, (unsigned long)flow);
582 	}
583 	tasklet_kill(&p->task);
584 }
585 
atm_tc_dump_class(struct Qdisc * sch,unsigned long cl,struct sk_buff * skb,struct tcmsg * tcm)586 static int atm_tc_dump_class(struct Qdisc *sch, unsigned long cl,
587 			     struct sk_buff *skb, struct tcmsg *tcm)
588 {
589 	struct atm_qdisc_data *p = qdisc_priv(sch);
590 	struct atm_flow_data *flow = (struct atm_flow_data *)cl;
591 	struct nlattr *nest;
592 
593 	pr_debug("atm_tc_dump_class(sch %p,[qdisc %p],flow %p,skb %p,tcm %p)\n",
594 		sch, p, flow, skb, tcm);
595 	if (list_empty(&flow->list))
596 		return -EINVAL;
597 	tcm->tcm_handle = flow->classid;
598 	tcm->tcm_info = flow->q->handle;
599 
600 	nest = nla_nest_start(skb, TCA_OPTIONS);
601 	if (nest == NULL)
602 		goto nla_put_failure;
603 
604 	NLA_PUT(skb, TCA_ATM_HDR, flow->hdr_len, flow->hdr);
605 	if (flow->vcc) {
606 		struct sockaddr_atmpvc pvc;
607 		int state;
608 
609 		pvc.sap_family = AF_ATMPVC;
610 		pvc.sap_addr.itf = flow->vcc->dev ? flow->vcc->dev->number : -1;
611 		pvc.sap_addr.vpi = flow->vcc->vpi;
612 		pvc.sap_addr.vci = flow->vcc->vci;
613 		NLA_PUT(skb, TCA_ATM_ADDR, sizeof(pvc), &pvc);
614 		state = ATM_VF2VS(flow->vcc->flags);
615 		NLA_PUT_U32(skb, TCA_ATM_STATE, state);
616 	}
617 	if (flow->excess)
618 		NLA_PUT_U32(skb, TCA_ATM_EXCESS, flow->classid);
619 	else
620 		NLA_PUT_U32(skb, TCA_ATM_EXCESS, 0);
621 
622 	nla_nest_end(skb, nest);
623 	return skb->len;
624 
625 nla_put_failure:
626 	nla_nest_cancel(skb, nest);
627 	return -1;
628 }
629 static int
atm_tc_dump_class_stats(struct Qdisc * sch,unsigned long arg,struct gnet_dump * d)630 atm_tc_dump_class_stats(struct Qdisc *sch, unsigned long arg,
631 			struct gnet_dump *d)
632 {
633 	struct atm_flow_data *flow = (struct atm_flow_data *)arg;
634 
635 	flow->qstats.qlen = flow->q->q.qlen;
636 
637 	if (gnet_stats_copy_basic(d, &flow->bstats) < 0 ||
638 	    gnet_stats_copy_queue(d, &flow->qstats) < 0)
639 		return -1;
640 
641 	return 0;
642 }
643 
atm_tc_dump(struct Qdisc * sch,struct sk_buff * skb)644 static int atm_tc_dump(struct Qdisc *sch, struct sk_buff *skb)
645 {
646 	return 0;
647 }
648 
649 static const struct Qdisc_class_ops atm_class_ops = {
650 	.graft		= atm_tc_graft,
651 	.leaf		= atm_tc_leaf,
652 	.get		= atm_tc_get,
653 	.put		= atm_tc_put,
654 	.change		= atm_tc_change,
655 	.delete		= atm_tc_delete,
656 	.walk		= atm_tc_walk,
657 	.tcf_chain	= atm_tc_find_tcf,
658 	.bind_tcf	= atm_tc_bind_filter,
659 	.unbind_tcf	= atm_tc_put,
660 	.dump		= atm_tc_dump_class,
661 	.dump_stats	= atm_tc_dump_class_stats,
662 };
663 
664 static struct Qdisc_ops atm_qdisc_ops __read_mostly = {
665 	.cl_ops		= &atm_class_ops,
666 	.id		= "atm",
667 	.priv_size	= sizeof(struct atm_qdisc_data),
668 	.enqueue	= atm_tc_enqueue,
669 	.dequeue	= atm_tc_dequeue,
670 	.peek		= atm_tc_peek,
671 	.drop		= atm_tc_drop,
672 	.init		= atm_tc_init,
673 	.reset		= atm_tc_reset,
674 	.destroy	= atm_tc_destroy,
675 	.dump		= atm_tc_dump,
676 	.owner		= THIS_MODULE,
677 };
678 
atm_init(void)679 static int __init atm_init(void)
680 {
681 	return register_qdisc(&atm_qdisc_ops);
682 }
683 
atm_exit(void)684 static void __exit atm_exit(void)
685 {
686 	unregister_qdisc(&atm_qdisc_ops);
687 }
688 
689 module_init(atm_init)
690 module_exit(atm_exit)
691 MODULE_LICENSE("GPL");
692