quick/netradiant-custom
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

from nxn

Browse Source 
git-svn-id: svn://svn.icculus.org/gtkradiant/GtkRadiant/branches/ZeroRadiant.ab@188 8a3a26a2-13c4-0310-b231-cf6edde360e5
This commit is contained in:
TTimo
2007-11-04 03:59:18 +00:00
parent 2b5ef55c7c
commit beb511aadb
10 changed files with 168 additions and 1335 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
docs/developer/RegExp/replace.pl
View File

@@ -1,17 +1,17 @@
#!perl
rename("$ARGV[0]", "$ARGV[0].old");
open(FILE, "$ARGV[0].old");
open(OFILE, ">$ARGV[0]");
while(<FILE>)
{
if($. != $ARGV[1])
{
print OFILE;
next;
}
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
print OFILE;
}
close(OFILE);
#!perl
rename("$ARGV[0]", "$ARGV[0].old");
open(FILE, "$ARGV[0].old");
open(OFILE, ">$ARGV[0]");
while(<FILE>)
{
if($. != $ARGV[1])
{
print OFILE;
next;
}
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
print OFILE;
}
close(OFILE);
close(FILE);

32
docs/developer/RegExp/tstscrpt.pl
View File

@@ -1,17 +1,17 @@
#!perl
rename("brush.c", "brush.c.old");
open(FILE, "brush.c.old");
open(OFILE, ">brush.c");
while(<FILE>)
{
if($. != 150)
{
print OFILE;
next;
}
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
print OFILE;
}
close(OFILE);
#!perl
rename("brush.c", "brush.c.old");
open(FILE, "brush.c.old");
open(OFILE, ">brush.c");
while(<FILE>)
{
if($. != 150)
{
print OFILE;
next;
}
s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
print OFILE;
}
close(OFILE);
close(FILE);