+
+/***
+ * split(name, sys, rest) split into system and file part
+ * char *name, *sys, *rest;
+
+ *
+ * return codes:
+ * NOSYSPART
+ * HASSYSPART
+ */
+
+split(name, sys, rest)
+char *name, *sys, *rest;
+{
+ char *c;
+ int i;
+
+ if (*name == LQUOTE) {
+ if ((c = index(name + 1, RQUOTE)) != NULL) {
+ /* strip off quotes */
+ name++;
+ while (c != name)
+ *rest++ = *name++;
+ *rest = '\0';
+ *sys = '\0';
+ return(NOSYSPART);
+ }
+ }
+
+ if ((c = index(name, '!')) == NULL) {
+ strcpy(rest, name);
+ *sys = '\0';
+ return(NOSYSPART);
+ }
+
+ *c = '\0';
+ for (i = 0; i < 7; i++)
+ if ((*sys++ = *name++) == '\0')
+ break;
+
+ strcpy(rest, ++c);
+ return(HASSYSPART);
+}