#!/afs/athena/contrib/perl/p -w

@foo=grep((! /^\s*$/),split(/\s-D*/,`xrdb -symbols`));
foreach $foo (@foo) {
    $foo=~/(\w*)(\=(.*))?/;
    if (! defined($3)) {
	print "setenv $1;\n"
    } else {
	print "setenv $1 $3;\n"}
}
exit;