Add missing patch files.

svn path=/head/; revision=35392

lang/tinycobol/files/getopt.h

@@ -0,0 +1,129 @@
+/* Declarations for getopt.
+   Copyright (C) 1989, 90, 91, 92, 93, 94 Free Software Foundation, Inc.
+
+   This program 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, or (at your option) any
+   later version.
+
+   This program 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, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#ifndef _GETOPT_H
+#define _GETOPT_H 1
+
+#ifdef	__cplusplus
+extern "C" {
+#endif
+
+/* For communication from `getopt' to the caller.
+   When `getopt' finds an option that takes an argument,
+   the argument value is returned here.
+   Also, when `ordering' is RETURN_IN_ORDER,
+   each non-option ARGV-element is returned here.  */
+
+extern char *optarg;
+
+/* Index in ARGV of the next element to be scanned.
+   This is used for communication to and from the caller
+   and for communication between successive calls to `getopt'.
+
+   On entry to `getopt', zero means this is the first call; initialize.
+
+   When `getopt' returns EOF, this is the index of the first of the
+   non-option elements that the caller should itself scan.
+
+   Otherwise, `optind' communicates from one call to the next
+   how much of ARGV has been scanned so far.  */
+
+extern int optind;
+
+/* Callers store zero here to inhibit the error message `getopt' prints
+   for unrecognized options.  */
+
+extern int opterr;
+
+/* Set to an option character which was unrecognized.  */
+
+extern int optopt;
+
+/* Describe the long-named options requested by the application.
+   The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector
+   of `struct option' terminated by an element containing a name which is
+   zero.
+
+   The field `has_arg' is:
+   no_argument		(or 0) if the option does not take an argument,
+   required_argument	(or 1) if the option requires an argument,
+   optional_argument 	(or 2) if the option takes an optional argument.
+
+   If the field `flag' is not NULL, it points to a variable that is set
+   to the value given in the field `val' when the option is found, but
+   left unchanged if the option is not found.
+
+   To have a long-named option do something other than set an `int' to
+   a compiled-in constant, such as set a value from `optarg', set the
+   option's `flag' field to zero and its `val' field to a nonzero
+   value (the equivalent single-letter option character, if there is
+   one).  For long options that have a zero `flag' field, `getopt'
+   returns the contents of the `val' field.  */
+
+struct option
+{
+#if defined (__STDC__) && __STDC__
+  const char *name;
+#else
+  char *name;
+#endif
+  /* has_arg can't be an enum because some compilers complain about
+     type mismatches in all the code that assumes it is an int.  */
+  int has_arg;
+  int *flag;
+  int val;
+};
+
+/* Names for the values of the `has_arg' field of `struct option'.  */
+
+#define	no_argument		0
+#define required_argument	1
+#define optional_argument	2
+
+#if defined (__STDC__) && __STDC__
+#ifdef __GNU_LIBRARY__
+/* Many other libraries have conflicting prototypes for getopt, with
+   differences in the consts, in stdlib.h.  To avoid compilation
+   errors, only prototype getopt for the GNU C library.  */
+extern int getopt (int argc, char *const *argv, const char *shortopts);
+#else /* not __GNU_LIBRARY__ */
+extern int getopt ();
+#endif /* __GNU_LIBRARY__ */
+extern int getopt_long (int argc, char *const *argv, const char *shortopts,
+		        const struct option *longopts, int *longind);
+extern int getopt_long_only (int argc, char *const *argv,
+			     const char *shortopts,
+		             const struct option *longopts, int *longind);
+
+/* Internal only.  Users should not call this directly.  */
+extern int _getopt_internal (int argc, char *const *argv,
+			     const char *shortopts,
+		             const struct option *longopts, int *longind,
+			     int long_only);
+#else /* not __STDC__ */
+extern int getopt ();
+extern int getopt_long ();
+extern int getopt_long_only ();
+
+extern int _getopt_internal ();
+#endif /* __STDC__ */
+
+#ifdef	__cplusplus
+}
+#endif
+
+#endif /* _GETOPT_H */

lang/tinycobol/files/patch-aa

@@ -0,0 +1,45 @@
+--- configure.orig	Thu Oct 26 09:40:25 2000
++++ configure	Thu Oct 26 10:31:42 2000
+@@ -1683,7 +1683,7 @@
+ if test "${db_version}" = "0" ; then
+   echo -n "checking library db for version 1.85 compatibility ..."
+   LIBS_BK="$LIBS"
+-  LIBS="$LIBS -ldb"
++  LIBS="$LIBS -ldb2"
+ cat > conftest.$ac_ext <<EOF
+ #line 1689 "configure"
+ #include "confdefs.h"
+@@ -1786,13 +1786,13 @@
+ 
+ # if header db.h found check library db is version 1.85 
+ 
+-  echo $ac_n "checking for -ldb""... $ac_c" 1>&6
++  echo $ac_n "checking for -ldb2""... $ac_c" 1>&6
+ ac_lib_var=`echo db'_'dbopen | tr './+\055' '__p_'`
+ if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then
+   echo $ac_n "(cached) $ac_c" 1>&6
+ else
+   ac_save_LIBS="$LIBS"
+-LIBS="-ldb  $LIBS"
++LIBS="-ldb2  $LIBS"
+ cat > conftest.$ac_ext <<EOF
+ #line 1798 "configure"
+ #include "confdefs.h"
+@@ -1963,7 +1963,7 @@
+ fi
+ 
+ # check for header and library for readline
+-htg_ld_args_default2="-lhtcobol -ldb -lncurses -lm"
++htg_ld_args_default2="-lhtcobol -ldb2 -lncurses -lm"
+ # Check whether --with-readline or --without-readline was given.
+ if test "${with_readline+set}" = set; then
+   withval="$with_readline"
+@@ -2037,7 +2037,7 @@
+ fi
+ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then
+   echo "$ac_t""yes" 1>&6
+-  htg_ld_args_default2="-lhtcobol -ldb -lncurses -lreadline -lm"
++  htg_ld_args_default2="-lhtcobol -ldb2 -lncurses -lreadline -lm"
+ else
+   echo "$ac_t""no" 1>&6
+ { echo "configure: error: "readline lib is required by create COBOL executable"" 1>&2; exit 1; }

lang/tinycobol/files/patch-ab

@@ -0,0 +1,22 @@
+--- htconfig.h.in.orig	Thu Oct 26 09:44:10 2000
++++ htconfig.h.in	Thu Oct 26 09:44:26 2000
+@@ -53,7 +53,7 @@
+    but are required by the linker to create a executable.
+ */
+ 
+-/* Define if you have the db library (-ldb).  */ 
++/* Define if you have the db library (-ldb2).  */ 
+ #undef HAVE_LIBDB
+ /* Set library db version 1.85 compatibility feature on for versions >= 2.xx.  */
+ #undef USE_DB_185_COMPATIBILITY
+@@ -120,8 +120,8 @@
+ 
+ /* Default linker args 2  */
+ /* 
+- #define HTG_LD_ARGS_DEFAULT2    "-lhtcobol -ldb -lncurses -lm " 
+- #define HTG_LD_ARGS_DEFAULT2    "-lhtcobol -ldb -lncurses -lreadline -lm " 
++ #define HTG_LD_ARGS_DEFAULT2    "-lhtcobol -ldb2 -lncurses -lm " 
++ #define HTG_LD_ARGS_DEFAULT2    "-lhtcobol -ldb2 -lncurses -lreadline -lm " 
+  #define HTG_LD_ARGS_DEFAULT2    "-lhtcobol -lm -dl" 
+ */
+ #undef HTG_LD_ARGS_DEFAULT2

lang/tinycobol/files/patch-ac

@@ -0,0 +1,13 @@
+--- compiler/cobopt.orig	Thu Oct 26 10:05:09 2000
++++ compiler/cobopt	Thu Oct 26 10:05:14 2000
+@@ -14,8 +14,8 @@
+ 
+ #LD_PATH: -L/usr/lib -L/opt/cobol/lib 
+ LD_PATH: -L/usr/lib -L/usr/local/lib 
+-#LD_LIBS: -lhtcobol -ldb -lm -lreadline
+-LD_LIBS: -lhtcobol -ldb -lm
++LD_LIBS: -lhtcobol -ldb2 -lm -lreadline
++#LD_LIBS: -lhtcobol -ldb2 -lm
+ #XREF - generate sumbolic cross-ref in listing - not implimented
+ #NOXREF - not implemented
+ #COPYBOOKS_PATH: -Ipath - not implimented 

lang/tinycobol/files/patch-ad

@@ -0,0 +1,8 @@
+--- compiler/createver.sh.orig	Thu Oct 26 09:41:52 2000
++++ compiler/createver.sh	Thu Oct 26 09:41:59 2000
+@@ -1,4 +1,4 @@
+-#!/bin/bash - 
++#!/bin/sh - 
+ #
+ #  This shell script create a version number, system, compiled date.  
+ #