+ print_config_var_entry('NULL', 'NULL');
+
+ print "};\n";
+
+ close FILE;
+
+
+ # ---------- read sound file definitions ----------
+
+ $filename = "$src_path/conf_snd.c";
+
+ open(FILE, "$filename") ||
+ fail("cannot open file '$filename' for reading");
+
+ print "struct TokenIntPtrInfo sound_config_vars[] =\n";
+ print "{\n";
+
+ $start_parsing = 0;
+
+ while (<FILE>)
+ {
+ chomp; # cut trailing newline
+
+ if (/CONFIG_VARS_START/) # keyword to start parsing file
+ {
+ $start_parsing = 1;
+ }
+
+ if (!$start_parsing)
+ {
+ next;
+ }
+
+ if (/^\s*\{\s*\"([^\"]+)\"/) # config token found
+ {
+ my $token = $1;
+ my $var = $token;
+
+ print_config_var_entry("\"$token\"", "&$var");
+ }
+ }
+
+ print_config_var_entry('NULL', 'NULL');