anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-12-25 22:06:15 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix suffix of file in \include{}

Browse Source 
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@795 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Jean-Marc Lasgouttes 2000-06-06 10:32:10 +00:00
parent a172822b28
commit 1993a83b41
3 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,5 +1,8 @@
2000-06-06 Jean-Marc Lasgouttes <Jean-Marc.Lasgouttes@inria.fr> 2000-06-06 Jean-Marc Lasgouttes <Jean-Marc.Lasgouttes@inria.fr>
* lib/reLyX/reLyXmain.pl, lib/reLyX/LastLyX.pm: fix suffix of file
in \include{} (from Tomasz Motylewski <motyl@stan.chemie.unibas.ch>)
* NEWS: update. * NEWS: update.
* lib/CREDITS: update entry for Martin Vermeer. * lib/CREDITS: update entry for Martin Vermeer.

4
lib/reLyX/LastLyX.pm
View File

@ -79,8 +79,8 @@ sub last_lyx {
my $newfile; my $newfile;
if ($main::opt_o) { # all files go to outputdir; no path nec. if ($main::opt_o) { # all files go to outputdir; no path nec.
$newfile = "$basename.lyx"; $newfile = "$basename.lyx";
} else { # keep relative path, e.g. Just change suffix } else { # keep relative path, e.g. Just change/add suffix
($newfile = $fil) =~ s/$suffix/.lyx/; ($newfile = $fil) =~ s/$suffix$/.lyx/;
} }
s/\Q{$fil}\E/{$newfile}/; s/\Q{$fil}\E/{$newfile}/;
} # end special if for table, bibstyle, include } # end special if for table, bibstyle, include

10
lib/reLyX/reLyXmain.pl
View File

@ -8,7 +8,7 @@
# #
# This code usually gets called by the reLyX wrapper executable # This code usually gets called by the reLyX wrapper executable
# #
# $Id: reLyXmain.pl,v 1.2 2000/03/29 23:02:36 karger Exp $ # $Id: reLyXmain.pl,v 1.3 2000/06/06 10:32:10 lasgouttes Exp $
# #
require 5.002; # Perl 5.001 doesn't work. Perl 4 REALLY doesn't work. require 5.002; # Perl 5.001 doesn't work. Perl 4 REALLY doesn't work.
@ -27,6 +27,8 @@ use vars qw($opt_c $opt_d $opt_f $opt_h $opt_n $opt_o $opt_p $opt_r $opt_s
$dot_lyxdir $dot_lyxdir
$Success $Success
@File_List @File_List
@Suffix_List
$LyXFormat
); );
use Cwd; # getcwd etc. use Cwd; # getcwd etc.
use Getopt::Std; # read in command-line options use Getopt::Std; # read in command-line options
@ -50,8 +52,8 @@ if (!defined($lyxname)) {$lyxname = "lyx"}
use vars qw($lyxdir $lyxname); use vars qw($lyxdir $lyxname);
# variables that a user might want to change # variables that a user might want to change
my @Suffix_List = '\.(ltx|latex|tex)'; # allowed suffixes for LaTeX file @Suffix_List = '\.(ltx|latex|tex)'; # allowed suffixes for LaTeX file
my $LyXFormat = "2.15"; #What to print in \lyxformat command in .lyx file $LyXFormat = "2.15"; #What to print in \lyxformat command in .lyx file
my $syntaxname = "syntax.default"; # name of the default syntax file my $syntaxname = "syntax.default"; # name of the default syntax file
$dot_lyxdir = $ENV{'HOME'} . "/.$lyxname"; # personal .lyx directory $dot_lyxdir = $ENV{'HOME'} . "/.$lyxname"; # personal .lyx directory
@ -63,7 +65,7 @@ BEGIN{$Success = 0}
# #
# Print welcome message including version info # Print welcome message including version info
my $version_info = '$Date: 2000/03/29 23:02:36 $'; # RCS puts checkin date here my $version_info = '$Date: 2000/06/06 10:32:10 $'; # RCS puts checkin date here
$version_info =~ s&.*?(\d+/\d+/\d+).*&$1&; # take out just the date info $version_info =~ s&.*?(\d+/\d+/\d+).*&$1&; # take out just the date info
warn "reLyX, the LaTeX to LyX translator. Revision date $version_info\n\n"; warn "reLyX, the LaTeX to LyX translator. Revision date $version_info\n\n";