VIM: $outfile

From 73f7837350c1b83200f8070674a6c90fa1f27a7b Mon Sep 17 00:00:00 2001 From: Stefan Hoffmann Date: Sun, 5 Oct 2014 20:01:25 +0200 Subject: doc: cleanup * fix some links * typo * remove reference to hangul_input * remove unused vim2html.pl --- runtime/doc/vim2html.pl | 228 ------------------------------------------------ 1 file changed, 228 deletions(-) delete mode 100755 runtime/doc/vim2html.pl (limited to 'runtime/doc/vim2html.pl') diff --git a/runtime/doc/vim2html.pl b/runtime/doc/vim2html.pl deleted file mode 100755 index 9066b03b16..0000000000 --- a/runtime/doc/vim2html.pl +++ /dev/null @@ -1,228 +0,0 @@ -#!/usr/bin/env perl - -# converts vim documentation to simple html -# Sirtaj Singh Kang (taj@kde.org) - -# Sun Feb 24 14:49:17 CET 2002 - -use strict; -use vars qw/%url $date/; - -%url = (); -$date = `date`; -chop $date; - -sub maplink -{ - my $tag = shift; - if( exists $url{ $tag } ){ - return $url{ $tag }; - } else { - #warn "Unknown hyperlink target: $tag\n"; - $tag =~ s/\.txt//; - $tag =~ s//>/g; - return "$tag"; - } -} - -sub readTagFile -{ - my($tagfile) = @_; - my( $tag, $file, $name ); - - open(TAGS,"$tagfile") || die "can't read tags\n"; - - while( ) { - next unless /^(\S+)\s+(\S+)\s+/; - - $tag = $1; - my $label = $tag; - ($file= $2) =~ s/.txt$/.html/g; - $label =~ s/\.txt//; - - $url{ $tag } = "".esctext($label).""; - } - close( TAGS ); -} - -sub esctext -{ - my $text = shift; - $text =~ s/&/&/g; - $text =~ s//>/g; - return $text; -} - -sub escurl -{ - my $url = shift; - $url =~ s/"/%22/g; - $url =~ s/~/%7E/g; - $url =~ s//%3E/g; - $url =~ s/=/%20/g; - $url =~ s/#/%23/g; - $url =~ s/\//%2F/g; - - return $url; -} - -sub vim2html -{ - my( $infile ) = @_; - my( $outfile ); - - open(IN, "$infile" ) || die "Couldn't read from $infile: $!.\n"; - - ($outfile = $infile) =~ s:.*/::g; - $outfile =~ s/\.txt$//g; - - open( OUT, ">$outfile.html" ) - || die "Couldn't write to $outfile.html: $!.\n"; - my $head = uc( $outfile ); - - print OUT< - - -VIM: $outfile - - - -

$head

-EOF
-
-	my $inexample = 0;
-	while(  ) {
-		chop;
-		if ( /^\s*[-=]+\s*$/ ) {
-			print OUT "

";
-			next;
-		}
-
-		# examples
-		elsif( /^>$/ || /\s>$/ ) {
-			$inexample = 1;
-			chop;
-		}
-		elsif ( $inexample && /^([<\S])/ ) {
-			$inexample = 0;
-			$_ = $' if $1 eq "<";
-		}
-
-		s/\s+$//g;
-
-		# Various vim highlights. note that < and > have already been escaped
-		# so that HTML doesn't get screwed up.
-
-		my @out = ();
-		#		print "Text: $_\n";
-		LOOP:
-		foreach my $token ( split /((?:\|[^\|]+\|)|(?:\*[^\*]+\*))/ ) {
-			if ( $token =~ /^\|([^\|]+)\|/ ) {
-				# link
-				push( @out, "|".maplink( $1 )."|" );
-				next LOOP;
-			}
-			elsif ( $token =~ /^\*([^\*]+)\*/ ) {
-				# target
-				push( @out,
-					"\*".esctext($1)."<\/a>\*<\/b>");
-				next LOOP;
-			}
-
-			$_ = esctext($token);
-			s/CTRL-(\w+)/CTRL-$1<\/code>/g;
-			# parameter <...>
-			s/<(.*?)>/<$1><\/code>/g;
-
-			# parameter {...}
-			s/\{([^}]*)\}/{$1}<\/code>/g;
-
-			# parameter [...]
-			s/\[(range|line|count|offset|cmd|[-+]?num)\]/\[$1\]<\/code>/g;
-			# note
-			s/(Note:?)/$1<\/code>/gi;
-
-			# local heading
-			s/^(.*)\~$/$1<\/code>/g;
-			push( @out, $_ );
-		}
-
-		$_ = join( "", @out );
-
-		if( $inexample == 2 ) {
-			print OUT "$_\n";
-		} else {
-			print OUT $_,"\n";
-		}
-
-		$inexample = 2 if $inexample == 1;
-	}
-	print OUT<
-Generated by vim2html on $date
-
-
-EOF
-
-}
-
-sub usage
-{
-die< 
-EOF
-}
-
-
-sub writeCSS
-{
-	open( CSS, ">vim-stylesheet.css"  ) || die "Couldn't write stylesheet: $!\n";
-	print CSS<