From octave-maintainers-request at bevo dot che dot wisc dot edu  Wed Oct 20 14:23:50 1999
Subject: Re: Octave 2.1.18 available for ftp
From: "John W. Eaton" <jwe at bevo dot che dot wisc dot edu>
To: "Ross A. Lippert" <ripper at cs dot sandia dot gov>
Cc: octave-maintainers at bevo dot che dot wisc dot edu
Date: Wed, 20 Oct 1999 14:22:45 -0500 (CDT)

On 20-Oct-1999, Ross A. Lippert <ripper at cs dot sandia dot gov> wrote:

| 
| I had a make problem:
| making lex.df from lex.cc
| making oct-procbuf.df from oct-procbuf.cc
| making ov.df from ov.cc
| making pt-assign.df from pt-assign.cc
| making pt-decl.df from pt-decl.cc
| making pt-mat.df from pt-mat.cc
| making pt-stmt.df from pt-stmt.cc
| make[2]: *** No rule to make target `mkgendoc', needed by `gendoc.cc'. 
| Stop.
| make[2]: Leaving directory `/bitbucket/fsf/octave/octave-2.1.18-LA3/src'
| make[1]: *** [src] Error 2
| make[1]: Leaving directory `/bitbucket/fsf/octave/octave-2.1.18-LA3'
| make: *** [all] Error 2

Sorry, mkgendoc is a new script (appended below).  It will be in
2.1.19, for sure, I think.  Put it in the src directory and make it
executable.

jwe

#! /bin/sh

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 mkbuiltins.

#include <iostream.h>
#include <string>

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

#define XDEFALIAS_INTERNAL(alias, name)

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

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

#define XDEFUN_MAPPER_INTERNAL(name, ch_map, d_b_map, c_b_map, d_d_map, \
			       d_c_map, c_c_map, lo, hi, \
			       can_ret_cmplx_for_real, doc) \
  print_doc_string (#name, doc);

static void
print_doc_string (const string& name, const string& doc)
{
  cout << "" << name << "\n";
  cout << 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)
{
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