Initial revision

1 files changed, 187 insertions, 0 deletions

diff --git a/lib-src/=etags-vmslib.c b/lib-src/=etags-vmslib.c
new file mode 100644
index 00000000000..0aa5bf6cc5d
--- /dev/null
+++ b/lib-src/=etags-vmslib.c
@@ -0,0 +1,187 @@
+/* File name wild card expansion for VMS.
+   This file is part of the etags program.
+   Copyright (C) 1987 Free Software Foundation, Inc. 3 Feb 1987
+     
+This program is distributed in the hope that it will be useful,
+but without any warranty.  No author or distributor
+accepts responsibility to anyone for the consequences of using it
+or for whether it serves any particular purpose or works at all,
+unless he says so in writing.
+     
+   Permission is granted to anyone to distribute verbatim copies
+   of this program's source code as received, in any medium, provided that
+   the copyright notice, the nonwarraty notice above
+   and this permission notice are preserved,
+   and that the distributor grants the recipient all rights
+   for further redistribution as permitted by this notice,
+   and informs him of these rights.
+     
+   Permission is granted to distribute modified versions of this
+   program's source code, or of portions of it, under the above
+   conditions, plus the conditions that all changed files carry
+   prominent notices stating who last changed them and that the
+   derived material, including anything packaged together with it and
+   conceptually functioning as a modification of it rather than an
+   application of it, is in its entirety subject to a permission
+   notice identical to this one.
+     
+   Permission is granted to distribute this program (verbatim or
+   as modified) in compiled or executable form, provided verbatim
+   redistribution is permitted as stated above for source code, and
+    A.  it is accompanied by the corresponding machine-readable
+      source code, under the above conditions, or
+    B.  it is accompanied by a written offer, with no time limit,
+      to distribute the corresponding machine-readable source code,
+      under the above conditions, to any one, in return for reimbursement
+      of the cost of distribution.   Verbatim redistribution of the
+      written offer must be permitted.  Or,
+    C.  it is distributed by someone who received only the
+      compiled or executable form, and is accompanied by a copy of the
+      written offer of source code which he received along with it.
+     
+   Permission is granted to distribute this program (verbatim or as modified)
+   in executable form as part of a larger system provided that the source
+   code for this program, including any modifications used,
+   is also distributed or offered as stated in the preceding paragraph.
+     
+In other words, you are welcome to use, share and improve this program.
+You are forbidden to forbid anyone else to use, share and improve
+what you give them.   Help stamp out software-hoarding!  */
+
+#include	<stdio.h>
+typedef	char	tbool;
+
+/* This is a BUG!  ANY arbitrary limit is a BUG!
+   Won't someone please fix this?  */
+#define	MAX_FILE_SPEC_LEN	255
+typedef struct	{
+  short   curlen;
+  char    body[MAX_FILE_SPEC_LEN + 1];
+} vspec;
+#define	EOS	'\0'
+#define	NO	0
+#define	YES	1
+#define	NULL	0
+
+/* v1.01 nmm 19-Aug-85 gfnames - return in successive calls the 
+ name of each file specified by all the remaining args in the command-line
+ expanding wild cards and 
+ stepping over arguments when they have been processed completely
+*/
+char*
+gfnames(pac, pav, p_error)
+	int	*pac;
+	char	**pav[];
+	tbool	*p_error;
+{
+	static	vspec	filename = {MAX_FILE_SPEC_LEN, "\0"};
+	short	fn_exp();
+
+	while (1)
+		if (*pac == 0)
+			{
+			*p_error = NO;
+			return(NULL);
+			}
+		else switch(fn_exp(&filename, **pav))
+			{
+		case 1:
+			*p_error = NO;
+			return(filename.body);
+			break;
+		case 0:
+			--*pac;
+			++*pav;
+			break;
+		default:
+			*p_error = YES;
+			return(filename.body);
+			break;
+			}
+				
+}
+
+/* v1.05 nmm 26-Jun-86 fn_exp - expand specification of list of file names
+ returning in each successive call the next filename matching the input
+ spec. The function expects that each in_spec passed
+ to it will be processed to completion; in particular, up to and
+ including the call following that in which the last matching name
+ is returned, the function ignores the value of in_spec, and will
+ only start processing a new spec with the following call. 
+ If an error occurs, on return out_spec contains the value
+ of in_spec when the error occurred.
+
+ With each successive filename returned in out_spec, the
+ function's return value is one. When there are no more matching
+ names the function returns zero. If on the first call no file
+ matches in_spec, or there is any other error, -1 is returned. 
+*/
+
+#include	<rmsdef.h>
+#include	<descrip.h>
+#define		OUTSIZE	MAX_FILE_SPEC_LEN
+short
+fn_exp(out, in)
+	vspec	*out;
+	char	*in;
+{
+	static	long	context = 0;
+	static	struct	dsc$descriptor_s	o;
+	static	struct	dsc$descriptor_s	i;
+	static	tbool	pass1 = YES;
+		long	status;
+		short	retval;
+
+	if (pass1)
+		{
+		pass1 = NO;
+		o.dsc$a_pointer = out;
+		o.dsc$w_length = (short)OUTSIZE;
+		i.dsc$a_pointer = in;
+		i.dsc$w_length = (short)strlen(in);
+		i.dsc$b_dtype = DSC$K_DTYPE_T;
+		i.dsc$b_class = DSC$K_CLASS_S;
+		o.dsc$b_dtype = DSC$K_DTYPE_VT;
+		o.dsc$b_class = DSC$K_CLASS_VS;
+		}
+	if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL)
+		{
+		out->body[out->curlen] = EOS;
+		return(1);
+		}
+	else if (status == RMS$_NMF)
+		retval = 0;
+	else
+		{
+		strcpy(out->body, in);
+		retval = -1;
+		}
+	lib$find_file_end(&context);
+	pass1 = YES;
+	return(retval);
+}	
+
+#ifndef OLD  /* Newer versions of VMS do provide `system'.  */
+system(cmd)
+     char *cmd;
+{
+  fprintf(stderr, "system() function not implemented under VMS\n");
+}
+#endif
+
+#define	VERSION_DELIM	';'
+char *massage_name(s)
+	char	*s;
+{
+	char	*start = s;	
+
+	for ( ; *s; s++)
+		if (*s == VERSION_DELIM)
+			{
+			*s = EOS;
+			break;
+			}
+		else
+			*s = tolower(*s);
+	return(start);
+}