🚀 go-pugleaf

In article <1711@icpcs41.icpc.fukui-u.ac.jp>,
        takada@sgauss.fuis.fukui-u.ac.jp (Takahiro Takada) says:
> $B$=$7$F!"JL$N>l=j$G!"2?$i$+$N7A$G$3$NFb$N0l$D$NJQ?tL>$rJ8;zNs$GF@$?$H$7$^$9!#(B
> $B!JNc$($P(B "foo_b" $B$H$$$&J8;zNs!K(B
> 
> $B$3$NJ8;zNs$rMxMQ$7$FJQ?t(B foo_b $B$NCf?H$NJ8;zNs(B "fff" $B$r<B9T;~$K<h$j=P$9$3$H$,(B
> $B$G$-$k$N$G$7$g$&$+!)(B

> $B#1(B	$B%3%s%Q%$%k$7$F$7$^$C$?$iJQ?tL><+BN$NJ8;zNs$O!"07$($J$$!)(B

$B%3%s%Q%$%k$5$l$?%P%$%J%j$,(B strip $B$5$l$F$J$/$F!"(Bsymbol table $B$r;}$C$F$$(B
$B$?$i!"(Bnlist() $B$,;H$($^$9!#2<$K%W%m%0%i%`Nc$rIU$1$^$9!#$?$@$7!"%W%m%0%i(B
$B%`$N%U%!%$%kL>$O!"(Bargv[0] $B$h$j$b%U%k%Q%9L>$N$[$&$,$h$$$G$7$g$&!#0J>e$O!"(B
UNIX $B$K$*$$$F8@$($k$3$H$G!"B>$N(B OS $B$G$O$I$&$9$k$N$+J,$+$j$^$;$s!#$H$K$+(B
$B$/!"(BC $B8@8l<+?H$NLdBj$G$O$"$j$^$;$s$M!#(Bportable $B$J%W%m%0%i%`$K$7$h$&$H;W(B
$B$C$?$i!"%W%m%0%i%`Cf$KJQ?tL>$NJ8;zNs$H$=$N%"%I%l%9$r;}$D$Y$-$G$7$g$&!#(B

----------------------------------------------------------------------
#include <stdio.h>
#include <nlist.h>

char *foo_a[] = {"aaa","bbb","ccc","ddd"};
char *foo_b[] = {"eee","fff","ggg"};
char *foo_z[] = {"vvv","www","xxx","yyy","zzz"};

main(argc, argv)
	char **argv;
{
	char buf[256], name[256];
	struct nlist nl[2];
	int i;

	nl[1].n_name = NULL;
	name[0] = '_';
	while (fgets(buf, sizeof buf, stdin) != NULL) {
		switch (sscanf(buf, "%s %d", name+1, &i)) {
		case EOF: exit(1);
		case 0: continue;
		case 1: i = 0;
		}
		nl[0].n_name = name;
		if (nlist(argv[0], nl) != 0) {
			fprintf(stderr, "can't find %s\n", name+1);
			continue;
		}
		printf("\t%s[%d]=\"%s\"\n", name+1, i,
			((char **)nl[0].n_value)[i]);
	}
	exit(0);
}

--
$B:dK\CRI'(B
sakamoto@sm.sony.co.jp