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