eessppeelllloo/processing4
1
0
Fork 0
mirror of https://github.com/processing/processing4.git synced 2026-02-12 01:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix problems with new 'abstract' methods

Browse Source
This commit is contained in:
benfry
2008-08-29 04:11:11 +00:00
parent 433611b58b
commit 60e3ed5d17
1 changed files with 23 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
core/preproc.pl
View File

@@ -78,30 +78,38 @@ while ($line = shift(@contents)) {
} else {
$returns = '';
}
if ($line =~ /^(\s+)abstract\s+([^;]+);/) {
$line = $1 . $2 . " {\n";
#print "found $1\n";
# hrm
}
# if ($line =~ /^(\s+)abstract\s+([^;]+);/) {
# $line = $1 . $2 . " {\n";
# #print "found $1\n";
# # hrm
# }
# remove the 'abstract' modifier
$line =~ s/\sabstract\s/ /;
# replace semicolons with a start def
$line =~ s/\;\s*$/ {\n/;
print OUT "\n\n$line";
if ($got_interface == 1) {
$iline = $line;
$iline =~ s/ \{/\;/;
# print INTF "\n$iline";
}
# if ($got_interface == 1) {
# $iline = $line;
# $iline =~ s/ \{/\;/;
## print INTF "\n$iline";
# }
$decl .= $line;
while (!($line =~ /\)/)) {
$line = shift (@contents);
$decl .= $line;
$line =~ s/\;\s*$/ {\n/;
print OUT $line;
if ($got_interface == 1) {
$iline = $line;
$iline =~ s/ \{/\;/;
# print INTF $iline;
}
# if ($got_interface == 1) {
# $iline = $line;
# $iline =~ s/ \{/\;/;
## print INTF $iline;
# }
}
#$g_line = '';