1 /* vi: set sw=4 ts=4: */
3 * tc.c "tc" utility frontend.
5 * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
7 * Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
9 * Bernhard Reutner-Fischer adjusted for busybox
14 #include "libiproute/utils.h"
15 #include "libiproute/ip_common.h"
16 #include "libiproute/rt_names.h"
17 #include <linux/pkt_sched.h> /* for the TC_H_* macros */
19 #define parse_rtattr_nested(tb, max, rta) \
20 (parse_rtattr((tb), (max), RTA_DATA(rta), RTA_PAYLOAD(rta)))
22 /* nullifies tb on error */
23 #define __parse_rtattr_nested_compat(tb, max, rta, len) \
24 ({if ((RTA_PAYLOAD(rta) >= len) && \
25 (RTA_PAYLOAD(rta) >= RTA_ALIGN(len) + sizeof(struct rtattr))) { \
26 rta = RTA_DATA(rta) + RTA_ALIGN(len); \
27 parse_rtattr_nested(tb, max, rta); \
29 memset(tb, 0, sizeof(struct rtattr *) * (max + 1)); \
32 #define parse_rtattr_nested_compat(tb, max, rta, data, len) \
33 ({data = RTA_PAYLOAD(rta) >= len ? RTA_DATA(rta) : NULL; \
34 __parse_rtattr_nested_compat(tb, max, rta, len); })
36 #define show_details (0) /* not implemented. Does anyone need it? */
37 #define use_iec (0) /* not currently documented in the upstream manpage */
48 #define G (*(struct globals*)&bb_common_bufsiz1)
49 #define filter_ifindex (G.filter_ifindex)
50 #define filter_qdisc (G.filter_qdisc)
51 #define filter_parent (G.filter_parent)
52 #define filter_prio (G.filter_prio)
53 #define filter_proto (G.filter_proto)
55 void BUG_tc_globals_too_big(void);
56 #define INIT_G() do { \
57 if (sizeof(G) > COMMON_BUFSIZE) \
58 BUG_tc_globals_too_big(); \
61 /* Allocates a buffer containing the name of a class id.
62 * The caller must free the returned memory. */
63 static char* print_tc_classid(uint32_t cid)
65 #if 0 /* IMPOSSIBLE */
67 return xasprintf("root");
70 if (cid == TC_H_UNSPEC)
71 return xasprintf("none");
72 else if (TC_H_MAJ(cid) == 0)
73 return xasprintf(":%x", TC_H_MIN(cid));
74 else if (TC_H_MIN(cid) == 0)
75 return xasprintf("%x:", TC_H_MAJ(cid)>>16);
77 return xasprintf("%x:%x", TC_H_MAJ(cid)>>16, TC_H_MIN(cid));
80 /* Get a qdisc handle. Return 0 on success, !0 otherwise. */
81 static int get_qdisc_handle(__u32 *h, const char *str) {
86 if (!strcmp(str, "none"))
88 maj = strtoul(str, &p, 16);
92 if (*p != ':' && *p != '\0')
99 /* Get class ID. Return 0 on success, !0 otherwise. */
100 static int get_tc_classid(__u32 *h, const char *str) {
105 if (!strcmp(str, "root"))
108 if (!strcmp(str, "none"))
110 maj = strtoul(str, &p, 16);
121 min = strtoul(str, &p, 16);
122 //FIXME: check for "" too?
123 if (*p != '\0' || min >= (1<<16))
133 static void print_rate(char *buf, int len, uint32_t rate)
135 double tmp = (double)rate*8;
138 if (tmp >= 1000.0*1024.0*1024.0)
139 snprintf(buf, len, "%.0fMibit", tmp/1024.0*1024.0);
140 else if (tmp >= 1000.0*1024)
141 snprintf(buf, len, "%.0fKibit", tmp/1024);
143 snprintf(buf, len, "%.0fbit", tmp);
145 if (tmp >= 1000.0*1000000.0)
146 snprintf(buf, len, "%.0fMbit", tmp/1000000.0);
147 else if (tmp >= 1000.0 * 1000.0)
148 snprintf(buf, len, "%.0fKbit", tmp/1000.0);
150 snprintf(buf, len, "%.0fbit", tmp);
154 /* This is "pfifo_fast". */
155 static int prio_parse_opt(int argc, char **argv, struct nlmsghdr *n)
159 static int prio_print_opt(struct rtattr *opt)
162 struct tc_prio_qopt *qopt;
163 struct rtattr *tb[TCA_PRIO_MAX+1];
167 parse_rtattr_nested_compat(tb, TCA_PRIO_MAX, opt, qopt, sizeof(*qopt));
170 printf("bands %u priomap ", qopt->bands);
171 for (i=0; i<=TC_PRIO_MAX; i++)
172 printf(" %d", qopt->priomap[i]);
175 printf(" multiqueue: o%s ",
176 *(unsigned char *)RTA_DATA(tb[TCA_PRIO_MQ]) ? "n" : "ff");
181 /* Class Based Queue */
182 static int cbq_parse_opt(int argc, char **argv, struct nlmsghdr *n)
186 static int cbq_print_opt(struct rtattr *opt)
188 struct rtattr *tb[TCA_CBQ_MAX+1];
189 struct tc_ratespec *r = NULL;
190 struct tc_cbq_lssopt *lss = NULL;
191 struct tc_cbq_wrropt *wrr = NULL;
192 struct tc_cbq_fopt *fopt = NULL;
193 struct tc_cbq_ovl *ovl = NULL;
194 const char * const error = "CBQ: too short %s opt";
195 RESERVE_CONFIG_BUFFER(buf, 64);
199 parse_rtattr_nested(tb, TCA_CBQ_MAX, opt);
201 if (tb[TCA_CBQ_RATE]) {
202 if (RTA_PAYLOAD(tb[TCA_CBQ_RATE]) < sizeof(*r))
203 bb_error_msg(error, "rate");
205 r = RTA_DATA(tb[TCA_CBQ_RATE]);
207 if (tb[TCA_CBQ_LSSOPT]) {
208 if (RTA_PAYLOAD(tb[TCA_CBQ_LSSOPT]) < sizeof(*lss))
209 bb_error_msg(error, "lss");
211 lss = RTA_DATA(tb[TCA_CBQ_LSSOPT]);
213 if (tb[TCA_CBQ_WRROPT]) {
214 if (RTA_PAYLOAD(tb[TCA_CBQ_WRROPT]) < sizeof(*wrr))
215 bb_error_msg(error, "wrr");
217 wrr = RTA_DATA(tb[TCA_CBQ_WRROPT]);
219 if (tb[TCA_CBQ_FOPT]) {
220 if (RTA_PAYLOAD(tb[TCA_CBQ_FOPT]) < sizeof(*fopt))
221 bb_error_msg(error, "fopt");
223 fopt = RTA_DATA(tb[TCA_CBQ_FOPT]);
225 if (tb[TCA_CBQ_OVL_STRATEGY]) {
226 if (RTA_PAYLOAD(tb[TCA_CBQ_OVL_STRATEGY]) < sizeof(*ovl))
227 bb_error_msg("CBQ: too short overlimit strategy %u/%u",
228 (unsigned) RTA_PAYLOAD(tb[TCA_CBQ_OVL_STRATEGY]),
229 (unsigned) sizeof(*ovl));
231 ovl = RTA_DATA(tb[TCA_CBQ_OVL_STRATEGY]);
235 print_rate(buf, sizeof(buf), r->rate);
236 printf("rate %s ", buf);
238 printf("cell %ub ", 1<<r->cell_log);
240 printf("mpu %ub ", r->mpu);
242 printf("overhead %ub ", r->overhead);
245 if (lss && lss->flags) {
248 if (lss->flags&TCF_CBQ_LSS_BOUNDED) {
252 if (lss->flags&TCF_CBQ_LSS_ISOLATED) {
260 if (wrr->priority != TC_CBQ_MAXPRIO)
261 printf("prio %u", wrr->priority);
263 printf("prio no-transmit");
265 printf("/%u ", wrr->cpriority);
266 if (wrr->weight != 1) {
267 print_rate(buf, sizeof(buf), wrr->weight);
268 printf("weight %s ", buf);
271 printf("allot %ub ", wrr->allot);
275 RELEASE_CONFIG_BUFFER(buf);
279 static int print_qdisc(const struct sockaddr_nl *who UNUSED_PARAM,
280 struct nlmsghdr *hdr, void *arg UNUSED_PARAM)
282 struct tcmsg *msg = NLMSG_DATA(hdr);
283 int len = hdr->nlmsg_len;
284 struct rtattr * tb[TCA_MAX+1];
287 if (hdr->nlmsg_type != RTM_NEWQDISC && hdr->nlmsg_type != RTM_DELQDISC) {
288 /* bb_error_msg("not a qdisc"); */
289 return 0; /* ??? mimic upstream; should perhaps return -1 */
291 len -= NLMSG_LENGTH(sizeof(*msg));
293 /* bb_error_msg("wrong len %d", len); */
296 /* not the desired interface? */
297 if (filter_ifindex && filter_ifindex != msg->tcm_ifindex)
299 memset (tb, 0, sizeof(tb));
300 parse_rtattr(tb, TCA_MAX, TCA_RTA(msg), len);
301 if (tb[TCA_KIND] == NULL) {
302 /* bb_error_msg("%s: NULL kind", "qdisc"); */
305 if (hdr->nlmsg_type == RTM_DELQDISC)
307 name = (char*)RTA_DATA(tb[TCA_KIND]);
308 printf("qdisc %s %x: ", name, msg->tcm_handle>>16);
309 if (filter_ifindex == 0)
310 printf("dev %s ", ll_index_to_name(msg->tcm_ifindex));
311 if (msg->tcm_parent == TC_H_ROOT)
313 else if (msg->tcm_parent) {
314 char *classid = print_tc_classid(msg->tcm_parent);
315 printf("parent %s ", classid);
316 if (ENABLE_FEATURE_CLEAN_UP)
319 if (msg->tcm_info != 1)
320 printf("refcnt %d ", msg->tcm_info);
321 if (tb[TCA_OPTIONS]) {
322 static const char _q_[] ALIGN1 = "pfifo_fast\0""cbq\0";
323 int qqq = index_in_strings(_q_, name);
324 if (qqq == 0) { /* pfifo_fast aka prio */
325 prio_print_opt(tb[TCA_OPTIONS]);
326 } else if (qqq == 1) { /* class based queuing */
327 cbq_print_opt(tb[TCA_OPTIONS]);
329 bb_error_msg("unknown %s", name);
335 static int print_class(const struct sockaddr_nl *who UNUSED_PARAM,
336 struct nlmsghdr *hdr, void *arg UNUSED_PARAM)
338 struct tcmsg *msg = NLMSG_DATA(hdr);
339 int len = hdr->nlmsg_len;
340 struct rtattr * tb[TCA_MAX+1];
341 char *name, *classid;
343 /*XXX Eventually factor out common code */
345 if (hdr->nlmsg_type != RTM_NEWTCLASS && hdr->nlmsg_type != RTM_DELTCLASS) {
346 /* bb_error_msg("not a class"); */
347 return 0; /* ??? mimic upstream; should perhaps return -1 */
349 len -= NLMSG_LENGTH(sizeof(*msg));
351 /* bb_error_msg("wrong len %d", len); */
354 /* not the desired interface? */
355 if (filter_qdisc && TC_H_MAJ(msg->tcm_handle^filter_qdisc))
357 memset (tb, 0, sizeof(tb));
358 parse_rtattr(tb, TCA_MAX, TCA_RTA(msg), len);
359 if (tb[TCA_KIND] == NULL) {
360 /* bb_error_msg("%s: NULL kind", "class"); */
363 if (hdr->nlmsg_type == RTM_DELTCLASS)
366 name = (char*)RTA_DATA(tb[TCA_KIND]);
367 classid = !msg->tcm_handle ? NULL : print_tc_classid(
368 filter_qdisc ? TC_H_MIN(msg->tcm_parent) : msg->tcm_parent);
369 printf ("class %s %s", name, classid);
370 if (ENABLE_FEATURE_CLEAN_UP)
373 if (filter_ifindex == 0)
374 printf("dev %s ", ll_index_to_name(msg->tcm_ifindex));
375 if (msg->tcm_parent == TC_H_ROOT)
377 else if (msg->tcm_parent) {
378 classid = print_tc_classid(filter_qdisc ?
379 TC_H_MIN(msg->tcm_parent) : msg->tcm_parent);
380 printf("parent %s ", classid);
381 if (ENABLE_FEATURE_CLEAN_UP)
385 printf("leaf %x ", msg->tcm_info >> 16);
386 /* Do that get_qdisc_kind(RTA_DATA(tb[TCA_KIND])). */
387 if (tb[TCA_OPTIONS]) {
388 static const char _q_[] ALIGN1 = "pfifo_fast\0""cbq\0";
389 int qqq = index_in_strings(_q_, name);
390 if (qqq == 0) { /* pfifo_fast aka prio */
391 /* nothing. */ /*prio_print_opt(tb[TCA_OPTIONS]);*/
392 } else if (qqq == 1) { /* class based queuing */
393 /* cbq_print_copt() is identical to cbq_print_opt(). */
394 cbq_print_opt(tb[TCA_OPTIONS]);
396 bb_error_msg("unknown %s", name);
403 static int print_filter(const struct sockaddr_nl *who UNUSED_PARAM,
404 struct nlmsghdr *hdr, void *arg UNUSED_PARAM)
406 struct tcmsg *msg = NLMSG_DATA(hdr);
407 int len = hdr->nlmsg_len;
408 struct rtattr * tb[TCA_MAX+1];
412 int tc_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
413 int tc_main(int argc UNUSED_PARAM, char **argv)
415 static const char objects[] ALIGN1 =
416 "qdisc\0""class\0""filter\0"
418 enum { OBJ_qdisc = 0, OBJ_class, OBJ_filter };
419 static const char commands[] ALIGN1 =
420 "add\0""delete\0""change\0"
421 "link\0" /* only qdisc */
425 static const char args[] ALIGN1 =
426 "dev\0" /* qdisc, class, filter */
427 "root\0" /* class, filter */
428 "parent\0" /* class, filter */
429 "qdisc\0" /* class */
430 "handle\0" /* change: qdisc, class(classid) list: filter */
431 "classid\0" /* change: for class use "handle" */
432 "preference\0""priority\0""protocol\0" /* filter */
434 enum { CMD_add = 0, CMD_del, CMD_change, CMD_link, CMD_replace, CMD_show };
435 enum { ARG_dev = 0, ARG_root, ARG_parent, ARG_qdisc,
436 ARG_handle, ARG_classid, ARG_pref, ARG_prio, ARG_proto};
437 struct rtnl_handle rth;
439 int ret, obj, cmd, arg;
449 obj = index_in_substrings(objects, *argv++);
454 cmd = CMD_show; /* list is the default */
456 cmd = index_in_substrings(commands, *argv);
458 bb_error_msg_and_die(bb_msg_invalid_arg, *argv, applet_name);
461 memset(&msg, 0, sizeof(msg));
462 msg.tcm_family = AF_UNSPEC;
465 arg = index_in_substrings(args, *argv);
466 if (arg == ARG_dev) {
469 duparg2("dev", *argv);
471 msg.tcm_ifindex = xll_name_to_index(dev);
473 filter_ifindex = msg.tcm_ifindex;
474 } else if ((arg == ARG_qdisc && obj == OBJ_class && cmd >= CMD_show)
475 || (arg == ARG_handle && obj == OBJ_qdisc
476 && cmd == CMD_change)) {
478 /* We don't care about duparg2("qdisc handle",*argv) for now */
479 if (get_qdisc_handle(&filter_qdisc, *argv))
480 invarg(*argv, "qdisc");
481 } else if (obj != OBJ_qdisc &&
484 || (obj == OBJ_filter && arg >= ARG_pref))) {
486 invarg(*argv, "command");
489 if (arg == ARG_root) {
491 duparg("parent", *argv);
492 msg.tcm_parent = TC_H_ROOT;
493 if (obj == OBJ_filter)
494 filter_parent = TC_H_ROOT;
495 } else if (arg == ARG_parent) {
498 duparg(*argv, "parent");
499 if (get_tc_classid(&handle, *argv))
500 invarg(*argv, "parent");
501 msg.tcm_parent = handle;
502 if (obj == OBJ_filter)
503 filter_parent = handle;
504 } else if (arg == ARG_handle) { /* filter::list */
506 duparg(*argv, "handle");
507 /* reject LONG_MIN || LONG_MAX */
509 if ((slash = strchr(handle, '/')) != NULL)
512 msg.tcm_handle = get_u32(*argv, "handle");
513 /* if (slash) {if (get_u32(__u32 &mask, slash+1, NULL)) inv mask; addattr32(n, MAX_MSG, TCA_FW_MASK, mask); */
514 } else if (arg == ARG_classid && obj == OBJ_class && cmd == CMD_change){
515 } else if (arg == ARG_pref || arg == ARG_prio) { /* filter::list */
517 duparg(*argv, "priority");
518 filter_prio = get_u32(*argv, "priority");
519 } else if (arg == ARG_proto) { /* filter::list */
522 duparg(*argv, "protocol");
523 if (ll_proto_a2n(&tmp, *argv))
524 invarg(*argv, "protocol");
528 if (cmd >= CMD_show) { /* show or list */
529 if (obj == OBJ_filter)
530 msg.tcm_info = TC_H_MAKE(filter_prio<<16, filter_proto);
531 if (rtnl_dump_request(&rth, obj == OBJ_qdisc ? RTM_GETQDISC :
532 obj == OBJ_class ? RTM_GETTCLASS : RTM_GETTFILTER,
533 &msg, sizeof(msg)) < 0)
534 bb_simple_perror_msg_and_die("can't send dump request");
536 xrtnl_dump_filter(&rth, obj == OBJ_qdisc ? print_qdisc :
537 obj == OBJ_class ? print_class : print_filter,
540 if (ENABLE_FEATURE_CLEAN_UP) {