#! /bin/sh
#
# Copyright (C) 1999, 2000, 2002, 2003, 2005, 2006, 2007, 2008,
#               2009 John W. Eaton
#
# This file is part of Octave.
# 
# Octave 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 3 of the License, or (at
# your option) any later version.
# 
# Octave 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 Octave; see the file COPYING.  If not, see
# <http://www.gnu.org/licenses/>.

SED=${SED:-'sed'}

if test $# -ne 1; then
  echo "usage: mkgendoc f1" 1>&2
  exit 1
fi

DOC_FILES=`cat $1`

if test -z "$DOC_FILES"; then
  echo "mkgendoc: DOC_FILES is empty!" 1>&2
  exit 1
fi

cat << \EOF
// DO NOT EDIT!  Generated automatically by mkgendoc

#if defined (__DECCXX)
#define __USE_STD_IOSTREAM
#endif

#include <iostream>
#include <string>

#define XDEFUN_FILE_NAME(name) \
  std::string file_name = name;

#define XDEFUN_DLD_INTERNAL(name, args_name, nargout_name, doc) \
  print_doc_string (#name, file_name, doc);

#define XDEFUNX_DLD_INTERNAL(name, fname, args_name, nargout_name, doc) \
  print_doc_string (name, file_name, doc);

#define XDEFUN_INTERNAL(name, args_name, nargout_name, doc) \
  print_doc_string (#name, file_name, doc);

#define XDEFCONSTFUN_INTERNAL(name, args_name, nargout_name, doc) \
  print_doc_string (#name, file_name, doc);

#define XDEFUNX_INTERNAL(name, fname, args_name, nargout_name, doc) \
  print_doc_string (name, file_name, doc);

#define XDEFALIAS_INTERNAL(alias, name)

#define XDEFVAR_INTERNAL(name, sname, defn, protect, chg_fcn, doc) \
  print_doc_string (#name, file_name, doc);

#define XDEFCONST_INTERNAL(name, defn, doc) \
  print_doc_string (#name, file_name, doc);

static void
print_doc_string (const std::string& name, const std::string& file_name,
		  const std::string& doc)
{
  std::cout << "";

  size_t len = name.length ();

  if (name[0] == '"' && name[len-1] == '"')
    std::cout << name.substr (1, len-2) << "\n";
  else
    std::cout << name << "\n";

  std::cout << "@c " << file_name << "\n"
	    << doc << "\n";
}

EOF

for file in $DOC_FILES; do
  fcn=`echo $file | $SED 's,^\./,,; s/\.df//; s/-/_/g'`
  echo "static void"
  echo "print_${fcn}_doc_strings (void)"
  echo "{"
  cat $file
  echo "}"
  echo ""
done

cat << \EOF

int
main (void)
{
  std::cout
    << "### DO NOT EDIT!\n"
    << "###\n"
    << "### This file is generated automatically from the Octave sources.\n"
    << "### Edit those files instead and run make to update this file.\n"
    << std::endl;

EOF

for file in $DOC_FILES; do
  fcn=`echo $file | $SED 's,^\./,,; s/\.df//; s/-/_/g'`
  echo "  print_${fcn}_doc_strings ();"
done

cat << \EOF

  return 0;
}
EOF

exit 0
