"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. For more information about "L2hos.pm" see the Fossies "Dox" file reference documentation and the latest Fossies "Diffs" side-by-side code changes report: 2021_vs_2021.2.

    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