Lines Matching refs:cfile
4 my($hfile,$cfile,$s,$t,$h);
7 ($cfile = $hfile) =~ s/.*\///;
8 $cfile =~ s/\.h$/.c/;
9 print "trying cfile '$cfile'\n";
10 if( not -f $cfile ){
11 my @files = glob( "*/$cfile" );
20 $cfile = $files[0];
22 print "cfile '$cfile', hfile '$hfile'\n";
23 if( !open( CFILE, "<$cfile") ){
24 warn "cannot open '$cfile'";