songsenand
/
cgal
mirror of https://github.com/CGAL/cgal
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
Geert-Jan Giezeman 1999-12-24 09:49:12 +00:00
parent 8416f731da
commit d4c8aae018
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Packages/Scripts/scripts/cgal_conditional_include
View File

@ -1,4 +1,4 @@
#!/local/bin/perl -w
#!/sw/bin/perl -w
# alter the path above to the result of `which perl` on your system
# usage: cgal_conditional_include file1 ...
@ -35,11 +35,11 @@
$tmpfilename = "CondIncl$$";
FILE:
foreach $filename (@ARGV) {
if (!open(infile, $filename)) {
if (!open("infile", $filename)) {
print STDERR "Could not open ${filename} for reading\n$!\n";
next FILE;
}
open(tmpfile, ">$tmpfilename")
open("tmpfile", ">$tmpfilename")
|| die "Could not open temp file for writing\n$!\n";
$last = '';
Line:

4
Packages/Scripts/scripts/cgal_conditional_include_remove
View File

@ -51,7 +51,7 @@ foreach $filename (@ARGV) {
$_ = <INFILE>;
my $include_file;
if ( !(($include_file) =
m|^[\s]*#[\s]*include[\s]*<(.*)(?:\.h)?>[\s]*|)) {
m|^[\s]*#[\s]*include[\s]*<(.*?)(?:\.h)?>[\s]*|)) {
warn "'#include <...>' missing in line ",
$.-$skipped," ($filename)\n";
print TMPFILE $protect_line;
@ -108,7 +108,7 @@ foreach $filename (@ARGV) {
$_ = <INFILE>;
my $include_file;
if ( !(($include_file) =
m|^[\s]*#[\s]*include[\s]*<CGAL\/(.*)(?:\.h)?>[\s]*|)) {
m|^[\s]*#[\s]*include[\s]*<CGAL\/(.*?)(?:\.h)?>[\s]*|)) {
print TMPFILE $protect_line;
redo;
}