Restructured src folder to be more clean

This commit is contained in:
seefo
2018-01-11 04:17:47 -05:00
parent e99d0f02a8
commit 3e3d18d318
20987 changed files with 5 additions and 1940589 deletions
@@ -0,0 +1,23 @@
#!/usr/bin/perl
while (<>)
{
chop;
if (/procedure/ || /function/)
{
$print = 1;
}
if (/begin/ || /\s+as/)
{
if ($print)
{
$print = 0;
print ";\n";
}
}
s/\t/ /;
s/(\s)\s+/$1/g;
s/\(\s+/\(/g;
s/\s+\)/\)/g;
print if ($print)
}