From: <lue...@us...> - 2003-10-15 16:54:45
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor/src In directory sc8-pr-cvs1:/tmp/cvs-serv31461/src Modified Files: createKeywords.pl Log Message: New script Index: createKeywords.pl =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.perleditor/src/createKeywords.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- createKeywords.pl 5 Oct 2003 14:23:13 -0000 1.2 +++ createKeywords.pl 15 Oct 2003 16:54:38 -0000 1.3 @@ -1,32 +1,28 @@ -my($filename) = @ARGV; - -die "No file specified!" if(!$filename); - -open(IN, "$filename") || die "Unable to open file $filename: $!\n"; -undef $/; -my $text = <IN>; -close(IN); +########################################################### +# +# Generate quickreference.properties file from +# keyword list (keywords.txt) by parsing perldoc output. +# +########################################################## -while($text =~ /[0-9]{2}\.[0-9]\.[0-9]{2,3}\. ([^\n]+)\n(.*?)\n([A-Z].*?\.)/smg) { - next if(!$1 || !$2 || !$3); - my $name = $1; - my $desc = $3; - my $syntax = $2; - - chomp($syntax); - chomp($desc); - chomp($name); - - $name =~ s/\s+$//; - $desc =~ s/\n//g; - - next if(length($desc) > 200); - - $syntax =~ s/\n/\\n/g; - my $out = "$name=$desc\\n\\nSyntax:\\n$syntax"; - $out =~ s/\\n$//; - - print "$out\n"; - - -} + +use strict; + +my $keywordFile = "keywords.txt"; +my $outFile = "quickreference.properties"; + +open(KEYWORDS, "$keywordFile") || die "Unable to open $keywordFile: $!\n"; +open(OUT, ">$outFile") || die "Unable to open $outFile: $!\n"; + +foreach my $keyword (<KEYWORDS>) { + chomp($keyword); + my $result = `perldoc -t -f $keyword`; + $result =~ s/\n\n.*//; + $result =~ s/\\/\\\\/g; + $result =~ s/\n/\\n/g; + + print OUT "$keyword=$result\n" if($result); +} + +close(OUT); +close(KEYWORDS); \ No newline at end of file |