From 9bdd9f27ea5243115a8b2f0aa891bfdf6dfdddf1 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Mon, 10 Jan 2011 13:10:28 +0000 Subject: change into linked scripts git-svn-id: svn://tug.org/texlive/trunk@21010 c570f23f-e606-0410-a88d-b1316a301751 --- Master/bin/i386-linux/deweb | 123 +------------------------------------------- 1 file changed, 1 insertion(+), 122 deletions(-) mode change 100755 => 120000 Master/bin/i386-linux/deweb (limited to 'Master/bin/i386-linux/deweb') diff --git a/Master/bin/i386-linux/deweb b/Master/bin/i386-linux/deweb deleted file mode 100755 index 245119b134a..00000000000 --- a/Master/bin/i386-linux/deweb +++ /dev/null @@ -1,122 +0,0 @@ -#! /usr/bin/env perl -# deweb v1.2, kills the C sections of a CWEB file, for passing to ChkTeX. -# Copyright (C) 1996 Jens T. Berger Thielemann -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -# -# Contact the author at: -# Jens Berger -# Spektrumvn. 4 -# N-0666 Oslo -# Norway -# E-mail: -# -# -# - -print STDERR "DeWEB v1.2 - Copyright 1996 Jens T. Berger Thielemann\n"; - -undef $/; -$texmode = 1; -$_ = <>; - -while(/\@/) -{ - &out($`); - $_ = $'; - - if(/^@/) { - $_ = $'; - &out('@'); - next; - } - - if(/^([\s\n])/) { - $_ = $'; - print "\n" if $1 eq "\n"; - $texmode = 1; - next; - } - - if(/^[cpd]/i) { - $_ = $'; - $texmode = 0; - next; - } - - if(/^\,/i) { - $_ = $'; - print '\,'; - next; - } - - if(m!^/!) { - $_ = $'; - print '\\\\'; - next; - } - - if(/^[h\&\|\;\#\+]/i || /^i.*/i) { - $_ = $'; - next; - } - - if(/^\*[0-9\*]?((.|\n)*?\.)/) { - $_ = $'; - print $1; - $texmode = 1; - next; - } - - if(/^[<(^.t!]((.|\n)*?)\@\>/i) { - $_ = $'; - print '{'.$1.'}'; - $texmode = 0; - next; - } - - if(/^[=]((.|\n)*?)\@\>/) { - $_ = $'; - print &printnl($1); - next; - } - - if(/^[fsl](\s+\S+\s+\S+)|^\'(.|\n)*?\'|^\[((.|\n)*?)\@\]/i) { - $_ = $'; - print &printnl($+); - next; - } - - @line = split(/\n/, $_, 2); - print STDERR "Unknown opcode, ignored. Buffer:\n$line[0]\n"; - -} - -print $_; - -sub printnl { - my($foo); - if(defined $_[0]) { - $foo = $_[0]; - $foo =~ s/.//g; - } else { - $foo = ""; - } - $foo; -} - -sub out { - print $texmode? $_[0] : &printnl($_[0]); -} diff --git a/Master/bin/i386-linux/deweb b/Master/bin/i386-linux/deweb new file mode 120000 index 00000000000..339abe1c2d2 --- /dev/null +++ b/Master/bin/i386-linux/deweb @@ -0,0 +1 @@ +../../texmf/scripts/chktex/deweb.pl \ No newline at end of file -- cgit v1.2.3