xref: /openbmc/linux/include/net/pkt_cls.h (revision 9c70220b)
11da177e4SLinus Torvalds #ifndef __NET_PKT_CLS_H
21da177e4SLinus Torvalds #define __NET_PKT_CLS_H
31da177e4SLinus Torvalds 
41da177e4SLinus Torvalds #include <linux/pkt_cls.h>
51da177e4SLinus Torvalds #include <net/sch_generic.h>
61da177e4SLinus Torvalds #include <net/act_api.h>
71da177e4SLinus Torvalds 
81da177e4SLinus Torvalds /* Basic packet classifier frontend definitions. */
91da177e4SLinus Torvalds 
101da177e4SLinus Torvalds struct tcf_walker
111da177e4SLinus Torvalds {
121da177e4SLinus Torvalds 	int	stop;
131da177e4SLinus Torvalds 	int	skip;
141da177e4SLinus Torvalds 	int	count;
151da177e4SLinus Torvalds 	int	(*fn)(struct tcf_proto *, unsigned long node, struct tcf_walker *);
161da177e4SLinus Torvalds };
171da177e4SLinus Torvalds 
181da177e4SLinus Torvalds extern int register_tcf_proto_ops(struct tcf_proto_ops *ops);
191da177e4SLinus Torvalds extern int unregister_tcf_proto_ops(struct tcf_proto_ops *ops);
201da177e4SLinus Torvalds 
211da177e4SLinus Torvalds static inline unsigned long
221da177e4SLinus Torvalds __cls_set_class(unsigned long *clp, unsigned long cl)
231da177e4SLinus Torvalds {
241da177e4SLinus Torvalds 	unsigned long old_cl;
251da177e4SLinus Torvalds 
261da177e4SLinus Torvalds 	old_cl = *clp;
271da177e4SLinus Torvalds 	*clp = cl;
281da177e4SLinus Torvalds 	return old_cl;
291da177e4SLinus Torvalds }
301da177e4SLinus Torvalds 
311da177e4SLinus Torvalds static inline unsigned long
321da177e4SLinus Torvalds cls_set_class(struct tcf_proto *tp, unsigned long *clp,
331da177e4SLinus Torvalds 	unsigned long cl)
341da177e4SLinus Torvalds {
351da177e4SLinus Torvalds 	unsigned long old_cl;
361da177e4SLinus Torvalds 
371da177e4SLinus Torvalds 	tcf_tree_lock(tp);
381da177e4SLinus Torvalds 	old_cl = __cls_set_class(clp, cl);
391da177e4SLinus Torvalds 	tcf_tree_unlock(tp);
401da177e4SLinus Torvalds 
411da177e4SLinus Torvalds 	return old_cl;
421da177e4SLinus Torvalds }
431da177e4SLinus Torvalds 
441da177e4SLinus Torvalds static inline void
451da177e4SLinus Torvalds tcf_bind_filter(struct tcf_proto *tp, struct tcf_result *r, unsigned long base)
461da177e4SLinus Torvalds {
471da177e4SLinus Torvalds 	unsigned long cl;
481da177e4SLinus Torvalds 
491da177e4SLinus Torvalds 	cl = tp->q->ops->cl_ops->bind_tcf(tp->q, base, r->classid);
501da177e4SLinus Torvalds 	cl = cls_set_class(tp, &r->class, cl);
511da177e4SLinus Torvalds 	if (cl)
521da177e4SLinus Torvalds 		tp->q->ops->cl_ops->unbind_tcf(tp->q, cl);
531da177e4SLinus Torvalds }
541da177e4SLinus Torvalds 
551da177e4SLinus Torvalds static inline void
561da177e4SLinus Torvalds tcf_unbind_filter(struct tcf_proto *tp, struct tcf_result *r)
571da177e4SLinus Torvalds {
581da177e4SLinus Torvalds 	unsigned long cl;
591da177e4SLinus Torvalds 
601da177e4SLinus Torvalds 	if ((cl = __cls_set_class(&r->class, 0)) != 0)
611da177e4SLinus Torvalds 		tp->q->ops->cl_ops->unbind_tcf(tp->q, cl);
621da177e4SLinus Torvalds }
631da177e4SLinus Torvalds 
641da177e4SLinus Torvalds struct tcf_exts
651da177e4SLinus Torvalds {
661da177e4SLinus Torvalds #ifdef CONFIG_NET_CLS_ACT
671da177e4SLinus Torvalds 	struct tc_action *action;
681da177e4SLinus Torvalds #elif defined CONFIG_NET_CLS_POLICE
691da177e4SLinus Torvalds 	struct tcf_police *police;
701da177e4SLinus Torvalds #endif
711da177e4SLinus Torvalds };
721da177e4SLinus Torvalds 
731da177e4SLinus Torvalds /* Map to export classifier specific extension TLV types to the
741da177e4SLinus Torvalds  * generic extensions API. Unsupported extensions must be set to 0.
751da177e4SLinus Torvalds  */
761da177e4SLinus Torvalds struct tcf_ext_map
771da177e4SLinus Torvalds {
781da177e4SLinus Torvalds 	int action;
791da177e4SLinus Torvalds 	int police;
801da177e4SLinus Torvalds };
811da177e4SLinus Torvalds 
821da177e4SLinus Torvalds /**
831da177e4SLinus Torvalds  * tcf_exts_is_predicative - check if a predicative extension is present
841da177e4SLinus Torvalds  * @exts: tc filter extensions handle
851da177e4SLinus Torvalds  *
861da177e4SLinus Torvalds  * Returns 1 if a predicative extension is present, i.e. an extension which
871da177e4SLinus Torvalds  * might cause further actions and thus overrule the regular tcf_result.
881da177e4SLinus Torvalds  */
891da177e4SLinus Torvalds static inline int
901da177e4SLinus Torvalds tcf_exts_is_predicative(struct tcf_exts *exts)
911da177e4SLinus Torvalds {
921da177e4SLinus Torvalds #ifdef CONFIG_NET_CLS_ACT
931da177e4SLinus Torvalds 	return !!exts->action;
941da177e4SLinus Torvalds #elif defined CONFIG_NET_CLS_POLICE
951da177e4SLinus Torvalds 	return !!exts->police;
961da177e4SLinus Torvalds #else
971da177e4SLinus Torvalds 	return 0;
981da177e4SLinus Torvalds #endif
991da177e4SLinus Torvalds }
1001da177e4SLinus Torvalds 
1011da177e4SLinus Torvalds /**
1021da177e4SLinus Torvalds  * tcf_exts_is_available - check if at least one extension is present
1031da177e4SLinus Torvalds  * @exts: tc filter extensions handle
1041da177e4SLinus Torvalds  *
1051da177e4SLinus Torvalds  * Returns 1 if at least one extension is present.
1061da177e4SLinus Torvalds  */
1071da177e4SLinus Torvalds static inline int
1081da177e4SLinus Torvalds tcf_exts_is_available(struct tcf_exts *exts)
1091da177e4SLinus Torvalds {
1101da177e4SLinus Torvalds 	/* All non-predicative extensions must be added here. */
1111da177e4SLinus Torvalds 	return tcf_exts_is_predicative(exts);
1121da177e4SLinus Torvalds }
1131da177e4SLinus Torvalds 
1141da177e4SLinus Torvalds /**
1151da177e4SLinus Torvalds  * tcf_exts_exec - execute tc filter extensions
1161da177e4SLinus Torvalds  * @skb: socket buffer
1171da177e4SLinus Torvalds  * @exts: tc filter extensions handle
1181da177e4SLinus Torvalds  * @res: desired result
1191da177e4SLinus Torvalds  *
1201da177e4SLinus Torvalds  * Executes all configured extensions. Returns 0 on a normal execution,
1211da177e4SLinus Torvalds  * a negative number if the filter must be considered unmatched or
1221da177e4SLinus Torvalds  * a positive action code (TC_ACT_*) which must be returned to the
1231da177e4SLinus Torvalds  * underlying layer.
1241da177e4SLinus Torvalds  */
1251da177e4SLinus Torvalds static inline int
1261da177e4SLinus Torvalds tcf_exts_exec(struct sk_buff *skb, struct tcf_exts *exts,
1271da177e4SLinus Torvalds 	       struct tcf_result *res)
1281da177e4SLinus Torvalds {
1291da177e4SLinus Torvalds #ifdef CONFIG_NET_CLS_ACT
1301da177e4SLinus Torvalds 	if (exts->action)
1311da177e4SLinus Torvalds 		return tcf_action_exec(skb, exts->action, res);
1321da177e4SLinus Torvalds #elif defined CONFIG_NET_CLS_POLICE
1331da177e4SLinus Torvalds 	if (exts->police)
1341da177e4SLinus Torvalds 		return tcf_police(skb, exts->police);
1351da177e4SLinus Torvalds #endif
1361da177e4SLinus Torvalds 
1371da177e4SLinus Torvalds 	return 0;
1381da177e4SLinus Torvalds }
1391da177e4SLinus Torvalds 
1401da177e4SLinus Torvalds extern int tcf_exts_validate(struct tcf_proto *tp, struct rtattr **tb,
1411da177e4SLinus Torvalds 	                     struct rtattr *rate_tlv, struct tcf_exts *exts,
1421da177e4SLinus Torvalds 	                     struct tcf_ext_map *map);
1431da177e4SLinus Torvalds extern void tcf_exts_destroy(struct tcf_proto *tp, struct tcf_exts *exts);
1441da177e4SLinus Torvalds extern void tcf_exts_change(struct tcf_proto *tp, struct tcf_exts *dst,
1451da177e4SLinus Torvalds 	                     struct tcf_exts *src);
1461da177e4SLinus Torvalds extern int tcf_exts_dump(struct sk_buff *skb, struct tcf_exts *exts,
1471da177e4SLinus Torvalds 	                 struct tcf_ext_map *map);
1481da177e4SLinus Torvalds extern int tcf_exts_dump_stats(struct sk_buff *skb, struct tcf_exts *exts,
1491da177e4SLinus Torvalds 	                       struct tcf_ext_map *map);
1501da177e4SLinus Torvalds 
1511da177e4SLinus Torvalds /**
1521da177e4SLinus Torvalds  * struct tcf_pkt_info - packet information
1531da177e4SLinus Torvalds  */
1541da177e4SLinus Torvalds struct tcf_pkt_info
1551da177e4SLinus Torvalds {
1561da177e4SLinus Torvalds 	unsigned char *		ptr;
1571da177e4SLinus Torvalds 	int			nexthdr;
1581da177e4SLinus Torvalds };
1591da177e4SLinus Torvalds 
1601da177e4SLinus Torvalds #ifdef CONFIG_NET_EMATCH
1611da177e4SLinus Torvalds 
1621da177e4SLinus Torvalds struct tcf_ematch_ops;
1631da177e4SLinus Torvalds 
1641da177e4SLinus Torvalds /**
1651da177e4SLinus Torvalds  * struct tcf_ematch - extended match (ematch)
1661da177e4SLinus Torvalds  *
1671da177e4SLinus Torvalds  * @matchid: identifier to allow userspace to reidentify a match
1681da177e4SLinus Torvalds  * @flags: flags specifying attributes and the relation to other matches
1691da177e4SLinus Torvalds  * @ops: the operations lookup table of the corresponding ematch module
1701da177e4SLinus Torvalds  * @datalen: length of the ematch specific configuration data
1711da177e4SLinus Torvalds  * @data: ematch specific data
1721da177e4SLinus Torvalds  */
1731da177e4SLinus Torvalds struct tcf_ematch
1741da177e4SLinus Torvalds {
1751da177e4SLinus Torvalds 	struct tcf_ematch_ops * ops;
1761da177e4SLinus Torvalds 	unsigned long		data;
1771da177e4SLinus Torvalds 	unsigned int		datalen;
1781da177e4SLinus Torvalds 	u16			matchid;
1791da177e4SLinus Torvalds 	u16			flags;
1801da177e4SLinus Torvalds };
1811da177e4SLinus Torvalds 
1821da177e4SLinus Torvalds static inline int tcf_em_is_container(struct tcf_ematch *em)
1831da177e4SLinus Torvalds {
1841da177e4SLinus Torvalds 	return !em->ops;
1851da177e4SLinus Torvalds }
1861da177e4SLinus Torvalds 
1871da177e4SLinus Torvalds static inline int tcf_em_is_simple(struct tcf_ematch *em)
1881da177e4SLinus Torvalds {
1891da177e4SLinus Torvalds 	return em->flags & TCF_EM_SIMPLE;
1901da177e4SLinus Torvalds }
1911da177e4SLinus Torvalds 
1921da177e4SLinus Torvalds static inline int tcf_em_is_inverted(struct tcf_ematch *em)
1931da177e4SLinus Torvalds {
1941da177e4SLinus Torvalds 	return em->flags & TCF_EM_INVERT;
1951da177e4SLinus Torvalds }
1961da177e4SLinus Torvalds 
1971da177e4SLinus Torvalds static inline int tcf_em_last_match(struct tcf_ematch *em)
1981da177e4SLinus Torvalds {
1991da177e4SLinus Torvalds 	return (em->flags & TCF_EM_REL_MASK) == TCF_EM_REL_END;
2001da177e4SLinus Torvalds }
2011da177e4SLinus Torvalds 
2021da177e4SLinus Torvalds static inline int tcf_em_early_end(struct tcf_ematch *em, int result)
2031da177e4SLinus Torvalds {
2041da177e4SLinus Torvalds 	if (tcf_em_last_match(em))
2051da177e4SLinus Torvalds 		return 1;
2061da177e4SLinus Torvalds 
2071da177e4SLinus Torvalds 	if (result == 0 && em->flags & TCF_EM_REL_AND)
2081da177e4SLinus Torvalds 		return 1;
2091da177e4SLinus Torvalds 
2101da177e4SLinus Torvalds 	if (result != 0 && em->flags & TCF_EM_REL_OR)
2111da177e4SLinus Torvalds 		return 1;
2121da177e4SLinus Torvalds 
2131da177e4SLinus Torvalds 	return 0;
2141da177e4SLinus Torvalds }
2151da177e4SLinus Torvalds 
2161da177e4SLinus Torvalds /**
2171da177e4SLinus Torvalds  * struct tcf_ematch_tree - ematch tree handle
2181da177e4SLinus Torvalds  *
2191da177e4SLinus Torvalds  * @hdr: ematch tree header supplied by userspace
2201da177e4SLinus Torvalds  * @matches: array of ematches
2211da177e4SLinus Torvalds  */
2221da177e4SLinus Torvalds struct tcf_ematch_tree
2231da177e4SLinus Torvalds {
2241da177e4SLinus Torvalds 	struct tcf_ematch_tree_hdr hdr;
2251da177e4SLinus Torvalds 	struct tcf_ematch *	matches;
2261da177e4SLinus Torvalds 
2271da177e4SLinus Torvalds };
2281da177e4SLinus Torvalds 
2291da177e4SLinus Torvalds /**
2301da177e4SLinus Torvalds  * struct tcf_ematch_ops - ematch module operations
2311da177e4SLinus Torvalds  *
2321da177e4SLinus Torvalds  * @kind: identifier (kind) of this ematch module
2331da177e4SLinus Torvalds  * @datalen: length of expected configuration data (optional)
2341da177e4SLinus Torvalds  * @change: called during validation (optional)
2351da177e4SLinus Torvalds  * @match: called during ematch tree evaluation, must return 1/0
2361da177e4SLinus Torvalds  * @destroy: called during destroyage (optional)
2371da177e4SLinus Torvalds  * @dump: called during dumping process (optional)
2381da177e4SLinus Torvalds  * @owner: owner, must be set to THIS_MODULE
2391da177e4SLinus Torvalds  * @link: link to previous/next ematch module (internal use)
2401da177e4SLinus Torvalds  */
2411da177e4SLinus Torvalds struct tcf_ematch_ops
2421da177e4SLinus Torvalds {
2431da177e4SLinus Torvalds 	int			kind;
2441da177e4SLinus Torvalds 	int			datalen;
2451da177e4SLinus Torvalds 	int			(*change)(struct tcf_proto *, void *,
2461da177e4SLinus Torvalds 					  int, struct tcf_ematch *);
2471da177e4SLinus Torvalds 	int			(*match)(struct sk_buff *, struct tcf_ematch *,
2481da177e4SLinus Torvalds 					 struct tcf_pkt_info *);
2491da177e4SLinus Torvalds 	void			(*destroy)(struct tcf_proto *,
2501da177e4SLinus Torvalds 					   struct tcf_ematch *);
2511da177e4SLinus Torvalds 	int			(*dump)(struct sk_buff *, struct tcf_ematch *);
2521da177e4SLinus Torvalds 	struct module		*owner;
2531da177e4SLinus Torvalds 	struct list_head	link;
2541da177e4SLinus Torvalds };
2551da177e4SLinus Torvalds 
2561da177e4SLinus Torvalds extern int tcf_em_register(struct tcf_ematch_ops *);
2571da177e4SLinus Torvalds extern int tcf_em_unregister(struct tcf_ematch_ops *);
2581da177e4SLinus Torvalds extern int tcf_em_tree_validate(struct tcf_proto *, struct rtattr *,
2591da177e4SLinus Torvalds 				struct tcf_ematch_tree *);
2601da177e4SLinus Torvalds extern void tcf_em_tree_destroy(struct tcf_proto *, struct tcf_ematch_tree *);
2611da177e4SLinus Torvalds extern int tcf_em_tree_dump(struct sk_buff *, struct tcf_ematch_tree *, int);
2621da177e4SLinus Torvalds extern int __tcf_em_tree_match(struct sk_buff *, struct tcf_ematch_tree *,
2631da177e4SLinus Torvalds 			       struct tcf_pkt_info *);
2641da177e4SLinus Torvalds 
2651da177e4SLinus Torvalds /**
2661da177e4SLinus Torvalds  * tcf_em_tree_change - replace ematch tree of a running classifier
2671da177e4SLinus Torvalds  *
2681da177e4SLinus Torvalds  * @tp: classifier kind handle
2691da177e4SLinus Torvalds  * @dst: destination ematch tree variable
2701da177e4SLinus Torvalds  * @src: source ematch tree (temporary tree from tcf_em_tree_validate)
2711da177e4SLinus Torvalds  *
2721da177e4SLinus Torvalds  * This functions replaces the ematch tree in @dst with the ematch
2731da177e4SLinus Torvalds  * tree in @src. The classifier in charge of the ematch tree may be
2741da177e4SLinus Torvalds  * running.
2751da177e4SLinus Torvalds  */
2761da177e4SLinus Torvalds static inline void tcf_em_tree_change(struct tcf_proto *tp,
2771da177e4SLinus Torvalds 				      struct tcf_ematch_tree *dst,
2781da177e4SLinus Torvalds 				      struct tcf_ematch_tree *src)
2791da177e4SLinus Torvalds {
2801da177e4SLinus Torvalds 	tcf_tree_lock(tp);
2811da177e4SLinus Torvalds 	memcpy(dst, src, sizeof(*dst));
2821da177e4SLinus Torvalds 	tcf_tree_unlock(tp);
2831da177e4SLinus Torvalds }
2841da177e4SLinus Torvalds 
2851da177e4SLinus Torvalds /**
2861da177e4SLinus Torvalds  * tcf_em_tree_match - evaulate an ematch tree
2871da177e4SLinus Torvalds  *
2881da177e4SLinus Torvalds  * @skb: socket buffer of the packet in question
2891da177e4SLinus Torvalds  * @tree: ematch tree to be used for evaluation
2901da177e4SLinus Torvalds  * @info: packet information examined by classifier
2911da177e4SLinus Torvalds  *
2921da177e4SLinus Torvalds  * This function matches @skb against the ematch tree in @tree by going
2931da177e4SLinus Torvalds  * through all ematches respecting their logic relations returning
2941da177e4SLinus Torvalds  * as soon as the result is obvious.
2951da177e4SLinus Torvalds  *
2961da177e4SLinus Torvalds  * Returns 1 if the ematch tree as-one matches, no ematches are configured
2971da177e4SLinus Torvalds  * or ematch is not enabled in the kernel, otherwise 0 is returned.
2981da177e4SLinus Torvalds  */
2991da177e4SLinus Torvalds static inline int tcf_em_tree_match(struct sk_buff *skb,
3001da177e4SLinus Torvalds 				    struct tcf_ematch_tree *tree,
3011da177e4SLinus Torvalds 				    struct tcf_pkt_info *info)
3021da177e4SLinus Torvalds {
3031da177e4SLinus Torvalds 	if (tree->hdr.nmatches)
3041da177e4SLinus Torvalds 		return __tcf_em_tree_match(skb, tree, info);
3051da177e4SLinus Torvalds 	else
3061da177e4SLinus Torvalds 		return 1;
3071da177e4SLinus Torvalds }
3081da177e4SLinus Torvalds 
3091da177e4SLinus Torvalds #else /* CONFIG_NET_EMATCH */
3101da177e4SLinus Torvalds 
3111da177e4SLinus Torvalds struct tcf_ematch_tree
3121da177e4SLinus Torvalds {
3131da177e4SLinus Torvalds };
3141da177e4SLinus Torvalds 
3151da177e4SLinus Torvalds #define tcf_em_tree_validate(tp, tb, t) ((void)(t), 0)
3161da177e4SLinus Torvalds #define tcf_em_tree_destroy(tp, t) do { (void)(t); } while(0)
3171da177e4SLinus Torvalds #define tcf_em_tree_dump(skb, t, tlv) (0)
3181da177e4SLinus Torvalds #define tcf_em_tree_change(tp, dst, src) do { } while(0)
3191da177e4SLinus Torvalds #define tcf_em_tree_match(skb, t, info) ((void)(info), 1)
3201da177e4SLinus Torvalds 
3211da177e4SLinus Torvalds #endif /* CONFIG_NET_EMATCH */
3221da177e4SLinus Torvalds 
3231da177e4SLinus Torvalds static inline unsigned char * tcf_get_base_ptr(struct sk_buff *skb, int layer)
3241da177e4SLinus Torvalds {
3251da177e4SLinus Torvalds 	switch (layer) {
3261da177e4SLinus Torvalds 		case TCF_LAYER_LINK:
3271da177e4SLinus Torvalds 			return skb->data;
3281da177e4SLinus Torvalds 		case TCF_LAYER_NETWORK:
329d56f90a7SArnaldo Carvalho de Melo 			return skb_network_header(skb);
3301da177e4SLinus Torvalds 		case TCF_LAYER_TRANSPORT:
3319c70220bSArnaldo Carvalho de Melo 			return skb_transport_header(skb);
3321da177e4SLinus Torvalds 	}
3331da177e4SLinus Torvalds 
3341da177e4SLinus Torvalds 	return NULL;
3351da177e4SLinus Torvalds }
3361da177e4SLinus Torvalds 
337eddc9ec5SArnaldo Carvalho de Melo static inline int tcf_valid_offset(const struct sk_buff *skb,
338eddc9ec5SArnaldo Carvalho de Melo 				   const unsigned char *ptr, const int len)
3391da177e4SLinus Torvalds {
3401da177e4SLinus Torvalds 	return unlikely((ptr + len) < skb->tail && ptr > skb->head);
3411da177e4SLinus Torvalds }
3421da177e4SLinus Torvalds 
3431da177e4SLinus Torvalds #ifdef CONFIG_NET_CLS_IND
3441da177e4SLinus Torvalds static inline int
3451da177e4SLinus Torvalds tcf_change_indev(struct tcf_proto *tp, char *indev, struct rtattr *indev_tlv)
3461da177e4SLinus Torvalds {
3471da177e4SLinus Torvalds 	if (rtattr_strlcpy(indev, indev_tlv, IFNAMSIZ) >= IFNAMSIZ)
3481da177e4SLinus Torvalds 		return -EINVAL;
3491da177e4SLinus Torvalds 	return 0;
3501da177e4SLinus Torvalds }
3511da177e4SLinus Torvalds 
3521da177e4SLinus Torvalds static inline int
3531da177e4SLinus Torvalds tcf_match_indev(struct sk_buff *skb, char *indev)
3541da177e4SLinus Torvalds {
355c01003c2SPatrick McHardy 	struct net_device *dev;
356c01003c2SPatrick McHardy 
35786e65da9SDavid S. Miller 	if (indev[0]) {
358c01003c2SPatrick McHardy 		if  (!skb->iif)
3591da177e4SLinus Torvalds 			return 0;
360c01003c2SPatrick McHardy 		dev = __dev_get_by_index(skb->iif);
361c01003c2SPatrick McHardy 		if (!dev || strcmp(indev, dev->name))
3621da177e4SLinus Torvalds 			return 0;
3631da177e4SLinus Torvalds 	}
3641da177e4SLinus Torvalds 
3651da177e4SLinus Torvalds 	return 1;
3661da177e4SLinus Torvalds }
3671da177e4SLinus Torvalds #endif /* CONFIG_NET_CLS_IND */
3681da177e4SLinus Torvalds 
3691da177e4SLinus Torvalds #endif
370