#!/bin/sh -- # -*- perl -*-
eval 'exec perl -S $0 "$@"'
    if 0;
########################## -*- Mode: Perl -*- ##########################
##
## File             : Conscript
##
## Description      : 
##
## Author           : Norbert Goevert
## Created On       : Tue Sep  3 16:49:55 1996
##
## Last Modified By : Norbert Goevert
## Last Modified On : Fri Dec 20 15:47:22 1996
##
## $State: Exp $
##
## $Id: Conscript,v 5.1.1.1 1996/12/23 12:47:33 goevert Exp goevert $
##
## $Log: Conscript,v $
## Revision 5.1.1.1  1996/12/23 12:47:33  goevert
## patch6: introduced SFgate::Config.pm
##
## Revision 5.1  1996/11/05 16:54:40  goevert
## *** empty log message ***
##
## Revision 5.0.1.1  1996/11/04 13:07:53  goevert
## patch21: cons instead of MakeMaker
##
########################################################################


Import qw(CONS);

Perl $CONS 'SFgate/Config.pm', '#config.sh', 'write_Config';


my $libdir;
$libdir = $::CONFIG{LIBDIR} || $::CONFIG{SITELIBEXP};

if ($::CONFIG{LIBDIRCONFIG}) {
    Install $CONS "$::CONFIG{LIBDIRCONFIG}/SFgate", 'SFgate/Config.pm';
}
else {
    Install $CONS $libdir . '/SFgate', 'SFgate/Config.pm';
}

Install $CONS $libdir . '/SFgate/Attributes', 'SFgate/Attributes/Form.pm';
Install $CONS $libdir . '/SFgate/Attributes', 'SFgate/Attributes/Lattice.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/BIBTEX.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/BibTeX.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/Bibtex.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/CITATION.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/IZ.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/Label.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/Non.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/PRETTY.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/Pretty.pm';
Install $CONS $libdir . '/SFgate/Converter',  'SFgate/Converter/Table.pm';
Install $CONS $libdir . '/SFgate/Databases',  'SFgate/Databases/Database.pm';
Install $CONS $libdir . '/SFgate/Databases',  'SFgate/Databases/Databases.pm';
Install $CONS $libdir . '/SFgate',            'SFgate/Http_client.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/Dutch.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/English.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/French.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/German.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/Italian.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/Portuguese.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/Spanish.pm';
Install $CONS $libdir . '/SFgate/Language',   'SFgate/Language/Swedish.pm';

if (-r 'SFgate/Highlight.pm') {
    Install $CONS $libdir . '/SFgate', 'SFgate/Highlight.pm';
}
if (-r 'SFgate/Server.pm') {
    Install $CONS $libdir . '/SFgate', 'SFgate/Server.pm';
}


## #####################################################################
## subs
## #####################################################################

sub write_Config
{
    my($file) = @_;

    open(OUT, "> $file") or die "Couldn't write to '$file': $!\n";

    print OUT "# Do not change! Generated automatically by cons\n\n";
    print OUT "use strict;\n\n";
    print OUT "%SFgate::Config = ();\n";
    
    my $prefix = '%SFgate::Config = (';
    foreach (sort(keys %::CONFIG)) {
        print OUT $prefix . "'$_' => '$::CONFIG{$_}',\n";
        $prefix = '                   ';
    }
    print OUT $prefix . ");\n\n1;\n";
    
    close(OUT); 
}
