--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib-src/etags-vmslib.c	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,156 @@
+/* File name wild card expansion for VMS.
+   This file is part of the etags program.
+   Copyright (C) 1987 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; see the file COPYING.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+#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
+
+/* 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;
+			}
+				
+}
+
+/* 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 = (char *) 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);
+}