1 files changed, 150 insertions, 0 deletions
diff --git a/contrib/cvs/src/cvsrc.c b/contrib/cvs/src/cvsrc.c
new file mode 100644
index 0000000000000..140ce1c1f1110
--- /dev/null
+++ b/contrib/cvs/src/cvsrc.c
@@ -0,0 +1,150 @@
+/*
+ *    Copyright (c) 1993 david d zuhn
+ *
+ *    written by david d `zoo' zuhn while at Cygnus Support
+ *
+ *    You may distribute under the terms of the GNU General Public License
+ *    as specified in the README file that comes with the CVS 1.4 kit.
+ *
+ */
+
+
+#include "cvs.h"
+#include "getline.h"
+
+/* this file is to be found in the user's home directory */
+
+#ifndef	CVSRC_FILENAME
+#define	CVSRC_FILENAME	".cvsrc"
+#endif
+char cvsrc[] = CVSRC_FILENAME;
+
+#define	GROW	10
+
+extern char *strtok ();
+
+/* Read cvsrc, processing options matching CMDNAME ("cvs" for global
+   options, and update *ARGC and *ARGV accordingly.  */
+
+void
+read_cvsrc (argc, argv, cmdname)
+    int *argc;
+    char ***argv;
+    char *cmdname;
+{
+    char *homedir;
+    char *homeinit;
+    FILE *cvsrcfile;
+
+    char *line;
+    int line_length;
+    size_t line_chars_allocated;
+
+    char *optstart;
+
+    int command_len;
+    int found = 0;
+
+    int i;
+
+    int new_argc;
+    int max_new_argv;
+    char **new_argv;
+
+    /* don't do anything if argc is -1, since that implies "help" mode */
+    if (*argc == -1)
+	return;
+
+    /* setup the new options list */
+
+    new_argc = 1;
+    max_new_argv = (*argc) + GROW;
+    new_argv = (char **) xmalloc (max_new_argv * sizeof (char*));
+    new_argv[0] = xstrdup ((*argv)[0]);
+
+    /* determine filename for ~/.cvsrc */
+
+    homedir = get_homedir ();
+    if (!homedir)
+	return;
+
+    homeinit = (char *) xmalloc (strlen (homedir) + strlen (cvsrc) + 10);
+    strcpy (homeinit, homedir);
+    strcat (homeinit, "/");
+    strcat (homeinit, cvsrc);
+
+    /* if it can't be read, there's no point to continuing */
+
+    if (!isreadable (homeinit))
+    {
+	free (homeinit);
+	return;
+    }
+
+    /* now scan the file until we find the line for the command in question */
+
+    line = NULL;
+    line_chars_allocated = 0;
+    command_len = strlen (cmdname);
+    cvsrcfile = open_file (homeinit, "r");
+    while ((line_length = getline (&line, &line_chars_allocated, cvsrcfile))
+	   >= 0)
+    {
+	/* skip over comment lines */
+	if (line[0] == '#')
+	    continue;
+
+	/* stop if we match the current command */
+	if (!strncmp (line, cmdname, command_len)
+	    && isspace (*(line + command_len)))
+	{
+	    found = 1;
+	    break;
+	}
+    }
+
+    fclose (cvsrcfile);
+
+    if (found)
+    {
+	/* skip over command in the options line */
+	optstart = strtok (line + command_len, "\t \n");
+
+	do
+	{
+	    new_argv [new_argc] = xstrdup (optstart);
+	    new_argv [new_argc+1] = NULL;
+	    new_argc += 1;
+	  
+	    if (new_argc >= max_new_argv)
+	    {
+		char **tmp_argv;
+		max_new_argv += GROW;
+		tmp_argv = (char **) xmalloc (max_new_argv * sizeof (char*));
+		for (i = 0; i <= new_argc; i++)
+		    tmp_argv[i] = new_argv[i];
+		free(new_argv);
+		new_argv = tmp_argv;
+	    }
+	  
+	}
+	while ((optstart = strtok (NULL, "\t \n")) != NULL);
+    }
+
+    if (line != NULL)
+	free (line);
+
+    /* now copy the remaining arguments */
+  
+    for (i=1; i < *argc; i++)
+    {
+	new_argv [new_argc] = (*argv)[i];
+	new_argc += 1;
+    }
+
+    *argc = new_argc;
+    *argv = new_argv;
+
+    free (homeinit);
+    return;
+}