-while ( $#ARGV >= 0 && $ARGV[0] eq '-v' ) {
- if ($ARGV[0] eq '-v') {
- $Verbose = 1;
- } else {
- die "hscpp: unrecognised argument: $$ARGV[0]\n";
- }
- shift(@ARGV);
-}
-#ToDo: print a version number ?
-
-$OrigCpp = ${RAWCPP};
-
-if ( $OrigCpp =~ /(\S+)\s+(.*)/ ) {
- $cmd = $1;
- $rest = $2;
- if ( -x $cmd ) { # cool
- $Cpp = $OrigCpp;
- } else { # oops; try to guess
- $GccV = `gcc -v 2>&1`;
- if ( $GccV =~ /Reading specs from (.*)\/specs/ ) {
- $Cpp = "$1/cpp $rest";