mirror of
https://github.com/rkd77/elinks.git
synced 2024-09-17 01:16:16 -04:00
50 lines
1.5 KiB
Perl
Executable File
50 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use diagnostics;
|
|
|
|
print "Usage: $0 [FILE]\n\tParses [FILE], outputing the result to [FILE].out.\n"
|
|
and exit if not @ARGV;
|
|
|
|
my ($input) = @ARGV;
|
|
my ($output) = $input . '.out';
|
|
my ($found, $start, $first, $gotone);
|
|
print "Copyleft© 2006, Russ Rowan (See `COPYING')\n" and exit if $input eq '-v';
|
|
open FILEIN, "<$input" or print "File `$input' was not found.\n" and exit;
|
|
open FILEOUT, ">$output" or print "Cannot open $output for writing.\n" and exit;
|
|
print "Processing $input...\n";
|
|
while (<FILEIN>)
|
|
{
|
|
if ($found)
|
|
{
|
|
if ($_ =~ /^\s+\*\s$/) { next if $first; $_ =~ s/\s\*// if not $first; }
|
|
if ($_ =~ /^\s\*+\/$/ or $_ !~ /^\s/) { $found = undef; next; }
|
|
$_ =~ s/^(\s*)\s\*\s/$1/;
|
|
$found = 'sorta' if $_ =~ s/\s*\*\/$//; $first = undef;
|
|
}
|
|
elsif ($_ =~ /^\s*\/\*\*\s(.*)/)
|
|
{
|
|
$_ = $1; $first = 1;
|
|
print FILEOUT "\n\n\n" if $start;
|
|
if ($_ =~ s/\s*\*\/$//) { $found = 'sorta'; } else { $found = $.; }
|
|
if ($_ =~ /::/) { $_ = "$_\n\n"; }
|
|
else
|
|
{
|
|
my $dash; for (my $x = 0; $x < length($_); $x++) { $dash .= '-'; }
|
|
$_ = "$_\n$dash\n\n";
|
|
}
|
|
}
|
|
elsif ($_ =~ /\s*([A-Z0-9_]+),\s*\/\*::\s*(.*)\s+\*\/$/)
|
|
{
|
|
print FILEOUT "\n" if $gotone;
|
|
$_ =~ s/\s*([A-Z0-9_]+),\s*\/\*::\s*(.*)\s+\*\/$/id[$1]::\n $2/;
|
|
$found = 'sorta'; $gotone = $.;
|
|
}
|
|
$gotone = undef if $gotone and $gotone < $.;
|
|
next if not $found; $found = undef if $found eq 'sorta';
|
|
print FILEOUT $_ and $start = 1;
|
|
}
|
|
close FILEOUT;
|
|
close FILEIN;
|
|
print "$output completed.\n";
|