"Fossies" - the Fresh Open Source Software Archive

Member "latex2html-2021.2/L2hos.pm" (1 Jul 2021, 2818 Bytes) of package /linux/www/latex2html-2021.2.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 # -*- perl -*-
    2 ##############################################################################
    3 # $Id: L2hos.pm,v 1.3 2001/07/02 02:21:35 RRM Exp $
    4 #
    5 # L2hos.pm
    6 #
    7 # Wrapper module for OS dependent stuff. Integrates the modules in
    8 # the L2hos:: subdirectory.
    9 #
   10 # Author: Marek Rouchal <marek@saftsack.fs.uni-bayreuth.de>
   11 # using stuff from the former Override.pm and from the File::Spec modules.
   12 #
   13 # This software is part of LaTeX2HTML, originally by Nikos Drakos
   14 # It is published under the GNU Public License and comes without any
   15 # warranty.
   16 #
   17 # You aren't supposed to edit this script.
   18 #
   19 ##############################################################################
   20 # Changes History
   21 #
   22 # $Log: L2hos.pm,v $
   23 # Revision 1.3  2001/07/02 02:21:35  RRM
   24 #  --  added recognition of 'darwin' OS, for MacOS X, as a Unix system
   25 #
   26 # Revision 1.2  1999/06/03 12:15:33  MRO
   27 #
   28 #
   29 # - cleaned up the TMP / TMPDIR / TMP_ mechansim. Should work much the
   30 #   same now, but the code should be easier to understand.
   31 #
   32 # - cleaned up L2hos, added an INSTALLation FAQ, beautified the test
   33 #   document a little bit
   34 #
   35 # Revision 1.1  1999/05/11 06:09:50  MRO
   36 #
   37 #
   38 # - merged config stuff, did first tries on Linux. Simple document
   39 #   passes! More test required, have to ger rid of Warnings in texexpand
   40 #
   41 # Revision 1.1  1999/03/15 23:00:51  MRO
   42 #
   43 #
   44 # - moved L2hos modules to top level directory, so that no dir-
   45 #   delimiter is necessary in the @INC-statement.
   46 # - changed strategy for "shave": Do not rely on STDERR redirection any
   47 #   more (caused problems on at least Win32)
   48 #
   49 # Revision 1.1  1999/02/10 01:37:16  MRO
   50 #
   51 #
   52 # -- changed os-dependency structure again - now neat OO modules are
   53 #    used: portable, extensible, neat!
   54 # -- some minor cleanups and bugfixes
   55 #
   56 #
   57 ##############################################################################
   58 
   59 package L2hos;
   60 
   61 require Exporter;
   62 
   63 @ISA = qw(Exporter);
   64 # Items to export into callers namespace by default. Note: do not export
   65 # names by default without a very good reason. Use EXPORT_OK instead.
   66 # Do not simply export all your public functions/methods/constants.
   67 @EXPORT = qw();
   68 @EXPORT_OK = qw($Verbose);
   69 
   70 use strict;
   71 use vars qw(@ISA $VERSION $Verbose);
   72 
   73 ($VERSION) = q$Revision: 1.3 $ =~ /:\s*(\S+)/;
   74 
   75 $Verbose = 0;
   76 
   77 sub load {
   78     my ($class,$OS) = @_;
   79     if ($OS eq 'os2') {
   80         require L2hos::OS2;
   81         'L2hos::OS2'
   82         # to be done somewhen...
   83     #elsif ($OS eq 'VMS') {
   84     #   require L2hos::VMS;
   85     #   'L2hos::VMS'
   86     } elsif ($OS eq 'MacOS') {
   87         require L2hos::Mac;
   88         'L2hos::Mac'
   89     } elsif ($OS eq 'darwin') {
   90         require L2hos::Unix;
   91         'L2hos::Unix'
   92     } elsif ($OS eq 'MSWin32') {
   93         require L2hos::Win32;
   94         'L2hos::Win32'
   95     } elsif ($OS eq 'dos') {
   96         require L2hos::Dos;
   97         'L2hos::Dos'
   98     } else {
   99                 require L2hos::Unix;
  100         'L2hos::Unix'
  101     }
  102 }
  103 
  104 @ISA = load('L2hos', $^O);
  105 
  106 1;
  107