libdtrace/common/dt_pragma.c

82 dt_pragma_attributes(const char *prname, dt_node_t *dnp)
90 	if (dnp == NULL || dnp->dn_kind != DT_NODE_IDENT ||
91 	    dnp->dn_list == NULL || dnp->dn_list->dn_kind != DT_NODE_IDENT) {
96 	if (dtrace_str2attr(dnp->dn_string, &attr) == -1) {
101 	dnp = dnp->dn_list;
102 	name = dnp->dn_string;
105 		dnp = dnp->dn_list;
106 		name = dnp->dn_string;
108 		dnp = dnp->dn_list;
109 		part = dnp->dn_string;
165 dt_pragma_binding(const char *prname, dt_node_t *dnp)
172 	if (dnp == NULL || dnp->dn_kind != DT_NODE_STRING ||
173 	    dnp->dn_list == NULL || dnp->dn_list->dn_kind != DT_NODE_IDENT) {
178 	if (dt_version_str2num(dnp->dn_string, &vers) == -1) {
183 	name = dnp->dn_list->dn_string;
350 dt_pragma_error(const char *prname, dt_node_t *dnp)
356 	for (enp = dnp; enp != NULL; enp = enp->dn_list) {
365 	for (enp = dnp; enp != NULL; enp = enp->dn_list) {
378 dt_pragma_ident(const char *prname, dt_node_t *dnp)
384 dt_pragma_option(const char *prname, dt_node_t *dnp)
389 	if (dnp == NULL || dnp->dn_kind != DT_NODE_IDENT) {
394 	if (dnp->dn_list != NULL) {
399 	opt = alloca(strlen(dnp->dn_string) + 1);
400 	(void) strcpy(opt, dnp->dn_string);
431 dt_pragma_line(const char *prname, dt_node_t *dnp)
433 	dt_node_t *fnp = dnp ? dnp->dn_list : NULL;
436 	if ((dnp == NULL || dnp->dn_kind != DT_NODE_INT) ||
472 	yylineno = dnp->dn_value;
508 	dt_node_t *dnp;
511 	for (dnp = pnp; dnp != NULL; dnp = dnp->dn_list) {
512 		if (dnp->dn_kind == DT_NODE_INT) {
513 			dt_pragma_line("line", dnp);
517 		if (dnp->dn_kind != DT_NODE_IDENT)
521 		    strcmp(dnp->dn_string, "pragma") == 0) {
527 		    strcmp(dnp->dn_string, "D") == 0) {
534 			    strcmp(dpd->dpd_name, dnp->dn_string) == 0)
541 			dpd->dpd_func(dpd->dpd_name, dnp->dn_list);
549 			    "#%s\n", dnp->dn_string);
556 			    dnp->dn_string);