#!/usr/bin/perl
#*******************************************************************************#
#                                                                               #
# createInfo.perl: setup all files for info.                                    #
#                                                                               #
#*******************************************************************************#

#***************************************************************************************************
#                                                                                                  *
#     Copyright (C) 2003 Joerg Kunze                                                               *
#                                                                                                  *
#     This file is part of siliconBrain.                                                           *
#                                                                                                  *
#     siliconBrain 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.                                                          *
#                                                                                                  *
#     siliconBrain 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                    *
#                                                                                                  *
#***************************************************************************************************
$release       = '$siliconBrainRelease: 0.2.3 $';
$rcsIdentifier = '$Id: createInfo.perl,v 1.10 2004/12/14 23:31:26 joerg Exp $';
$saveStamp     = '$siliconBrainSaveStamp: 2004/12/14 22:25:15, Joerg Kunze$';

$packageName = $ENV{"siliconBrainPackageName"};

print <<"EOF";
-*- Text -*-
This is the info dir file for $packageName. This
is *not* the central dir file of your system! Info merges this dir
with others because of the environment variable "INFOPATH".

File: dir	Node: Top	This is the top of the INFO tree
  This (the Directory node) gives a menu of major topics.  Typing "d"
  returns here, "q" exits, "?" lists all INFO commands, "h"  gives a
  primer for first-timers, "mTexinfo<Return>" visits Texinfo topic,
  etc.
  Or click mouse button 2 on a menu item or cross reference to select
  it.
  --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) ---

In Debian GNU/Linux, Info "dir" entries are added with the command
"install-info".  Please refer to install-info(8) for usage details.
You are starting from a second level dir file for
$packageName.

* Menu: The list of major topics begins on the next line.

siliconBrain
* $packageName: ($packageName).          $packageName
EOF

foreach $command (@ARGV) {
   $command =~ s/.*\/([^\/]+)\.texinfo/$1/;

   ($oneLiner) = `$command --help`;
   chomp $oneLiner;

   print "\* $command\: \($packageName\)$command\.              $oneLiner\n";
}

exit 0;

# $Log: createInfo.perl,v $
# Revision 1.10  2004/12/14 23:31:26  joerg
# published for new release 0.2.3
#
# Revision 1.9  2004/12/14 23:17:05  joerg
# published for new release 0.2.2
#
# Revision 1.8  2004/12/14 22:42:22  joerg
# allFiles: all sources have a Log CVS keyword at the end now.
#