Lines Matching refs:CONFIG
24 open(CONFIG, "> $config_file") || die "Couldn't open '$config_file' for writing: $!\n";
25 print CONFIG "//" . "-" x 72 . "\n";
26 print CONFIG "// This file is auto generated by a dbgnub-config.pl, do not edit by hand!\n";
27 print CONFIG "//" . "-" x 72 . "\n";
28 print CONFIG "// COMMAND LINE\n";
29 print CONFIG "// " . join(' ', @ARGV) . "\n";
30 print CONFIG "//" . "-" x 72 . "\n";
31 print CONFIG "// ENVIRONMENT\n";
37 printf CONFIG "// %s = %s\n", $key, $val;
39 print CONFIG "//" . "-" x 72 . "\n";
40 print CONFIG "// SETTINGS\n";
41 print CONFIG "// config_file: '$config_file'\n";
42 print CONFIG "//" . "-" x 72 . "\n";
43 print CONFIG "\n\n";
44 print CONFIG "#ifndef __DBGNUB_CONFIG__\n";
45 print CONFIG "#define __DBGNUB_CONFIG__\n";
54 print CONFIG "\n$test_href->{COMMENT}\n";
56 print CONFIG "\n// $test_href->{NAME}\n";
62 print CONFIG "$test_href->{SUCCESS}\n";
66 print CONFIG "$test_href->{FAIL}\n";
70 print CONFIG "#endif // #ifndef __DBGNUB_CONFIG__\n";
71 close(CONFIG);