Lines Matching refs:line

2782     my $line;
2789 foreach $line (@Lines) {
2790 chomp $line;
2791 if ($line =~ /^@([^@]+)\@$/) {
2793 $line = "#define $1 $configdefh{$1}";
2795 $line = "/* #undef $1 */";
2804 foreach $line (@Lines) {
2805 print F $line . "\n";
2813 my $line;
2820 foreach $line (@Lines) {
2821 chomp $line;
2822 if ($line =~ /^@([^@]+)\@$/) {
2824 $line = "#define $1 $configdefp{$1}";
2826 $line = "/* #undef $1 */";
2835 foreach $line (@Lines) {
2836 print F $line . "\n";
2844 my $line;
2852 foreach $line (@Lines) {
2853 chomp $line;
2854 while ($line =~ /@([^@]+)\@/) {
2858 $line = "$`$val$'";
2860 $line = "$`$'";
2865 $line = "$`$val$'";
2867 $line = "$`$'";
2880 foreach $line (@Lines) {
2881 print F $line . "\n";
2889 my $line;
2897 foreach $line (@Lines) {
2898 chomp $line;
2899 while ($line =~ /@([^@]+)\@/) {
2903 $line = "$`$val$'";
2905 $line = "$`$'";
2908 $line = "$`__$1__$'";
2918 foreach $line (@Lines) {
2919 print F $line . "\n";
2927 my $line;
2941 foreach $line (@Linesin) {
2942 chomp $line;
2943 if ($line =~ /^\@IF (.*)$/) {
2959 } elsif ($line =~ /^\@ELSE (.*)$/) {
2973 } elsif ($line =~ /^\@END (.*)$/) {
2988 while ($line =~ /@([^@ ]*)@/) {
2992 $line = "$`$val$'";
2994 $line = "$`$'";
3002 $line = qq($pre/D "$def"$post);
3004 $line = "$`$'";
3008 $line = qq($`/I "$configinc{$1}"$');
3010 $line = "$`$'";
3015 $line = "$`$val$'";
3017 $line = "$`$'";
3022 $line = "$`$val$'";
3024 $line = "$`$'";
3030 push @Linesout, $line;
3040 foreach $line (@Linesout) {
3041 print F $line . "\n";
3049 my $line;
3063 foreach $line (@Linesin) {
3064 chomp $line;
3065 if ($line =~ /^\@IF (.*)$/) {
3081 } elsif ($line =~ /^\@ELSE (.*)$/) {
3095 } elsif ($line =~ /^\@END (.*)$/) {
3110 while ($line =~ /@([^@ ]*)@/) {
3114 $line = "$`$val$'";
3116 $line = "$`$'";
3121 $line = "$`$val;$'";
3123 $line = "$`$'";
3128 $line = "$`$val;$'";
3130 $line = "$`$'";
3135 $line = "$`$val;$'";
3137 $line = "$`$'";
3142 $line = "$`$val$'";
3144 $line = "$`$'";
3150 push @Linesout, $line;
3157 foreach $line (@Linesout) {
3158 print F $line . "\n";