Gecko [ georgetownmover.com ]

Name	Size	Permission	Date
bezrkdos.c	28.28 KB	-rw-r--r--	2023-01-11 06:22
drivers.bat	963 B	-rwxr-xr-x	2023-01-11 06:22
drivraux.bat	923 B	-rw-r--r--	2023-01-11 06:22
dummy.h	1.49 KB	-rw-r--r--	2023-01-11 06:22
dummydos.c	20.03 KB	-rw-r--r--	2023-01-11 06:22
env_dos.c	8.31 KB	-rw-r--r--	2023-01-11 06:22
env_dos.h	2.12 KB	-rw-r--r--	2023-01-11 06:22
fdstring.c	2.76 KB	-rw-r--r--	2023-01-11 06:22
fdstring.h	1.05 KB	-rw-r--r--	2023-01-11 06:22
fs_dos.c	1.38 KB	-rw-r--r--	2023-01-11 06:22
ftl_dos.c	955 B	-rw-r--r--	2023-01-11 06:22
makefile	2.79 KB	-rw-r--r--	2023-01-11 06:22
mkautaux.bat	980 B	-rw-r--r--	2023-01-11 06:22
mkauths.bat	980 B	-rwxr-xr-x	2023-01-11 06:22
mtestdbw.bat	889 B	-rw-r--r--	2023-01-11 06:22
mtestdnf.bat	880 B	-rw-r--r--	2023-01-11 06:22
mtestdnv.bat	882 B	-rw-r--r--	2023-01-11 06:22
mtestdpc.bat	925 B	-rw-r--r--	2023-01-11 06:22
mtestdwa.bat	884 B	-rw-r--r--	2023-01-11 06:22
mtestwsk.bat	905 B	-rw-r--r--	2023-01-11 06:22
mtxdos.c	26.44 KB	-rw-r--r--	2023-01-11 06:22
nl_dos.c	1.7 KB	-rw-r--r--	2023-01-11 06:22
os_dbw.c	2.18 KB	-rw-r--r--	2023-01-11 06:22
os_dbw.h	1.02 KB	-rw-r--r--	2023-01-11 06:22
os_dnf.c	2.37 KB	-rw-r--r--	2023-01-11 06:22
os_dnf.h	1.07 KB	-rw-r--r--	2023-01-11 06:22
os_dnv.c	2.35 KB	-rw-r--r--	2023-01-11 06:22
os_dnv.h	1.02 KB	-rw-r--r--	2023-01-11 06:22
os_dpc.c	2.56 KB	-rw-r--r--	2023-01-11 06:22
os_dpc.h	1016 B	-rw-r--r--	2023-01-11 06:22
os_dwa.c	1.74 KB	-rw-r--r--	2023-01-11 06:22
os_dwa.h	1.02 KB	-rw-r--r--	2023-01-11 06:22
os_wsk.c	1.18 KB	-rw-r--r--	2023-01-11 06:22
os_wsk.h	1.11 KB	-rw-r--r--	2023-01-11 06:22
pmatch.c	2.79 KB	-rw-r--r--	2023-01-11 06:22
tcp_dos.c	11.57 KB	-rw-r--r--	2023-01-11 06:22
tcp_dos.h	1.31 KB	-rw-r--r--	2023-01-11 06:22
tcp_dwa.c	8.88 KB	-rw-r--r--	2023-01-11 06:22
tcp_dwa.h	1.21 KB	-rw-r--r--	2023-01-11 06:22
tcp_wsk.c	23.36 KB	-rw-r--r--	2023-01-11 06:22
tcp_wsk.h	1.38 KB	-rw-r--r--	2023-01-11 06:22
write.c	1.74 KB	-rw-r--r--	2023-01-11 06:22

Rename

/* ========================================================================
 * Copyright 1988-2006 University of Washington
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * 
 * ========================================================================
 */

/*
 * Program:	IMAP Wildcard Matching Routines (case-independent)
 *
 * Author:	Mark Crispin
 *		Networks and Distributed Computing
 *		Computing & Communications
 *		University of Washington
 *		Administration Building, AG-44
 *		Seattle, WA  98195
 *		Internet: MRC@CAC.Washington.EDU
 *
 * Date:	15 June 2000
 * Last Edited:	30 August 2006
 */

/* Wildcard pattern match
 * Accepts: base string
 *	    pattern string
 *	    delimiter character
 * Returns: T if pattern matches base, else NIL
 */

long pmatch_full (unsigned char *s,unsigned char *pat,unsigned char delim)
{
  switch (*pat) {
  case '%':			/* non-recursive */
				/* % at end, OK if no inferiors */
    if (!pat[1]) return (delim && strchr (s,delim)) ? NIL : T;
                                /* scan remainder of string until delimiter */
    do if (pmatch_full (s,pat+1,delim)) return T;
    while ((*s != delim) && *s++);
    break;
  case '*':			/* match 0 or more characters */
    if (!pat[1]) return T;	/* * at end, unconditional match */
				/* scan remainder of string */
    do if (pmatch_full (s,pat+1,delim)) return T;
    while (*s++);
    break;
  case '\0':			/* end of pattern */
    return *s ? NIL : T;	/* success if also end of base */
  default:			/* match this character */
    return compare_uchar (*pat,*s) ? NIL : pmatch_full (s+1,pat+1,delim);
  }
  return NIL;
}

/* Directory pattern match
 * Accepts: base string
 *	    pattern string
 *	    delimiter character
 * Returns: T if base is a matching directory of pattern, else NIL
 */

long dmatch (unsigned char *s,unsigned char *pat,unsigned char delim)
{
  switch (*pat) {
  case '%':			/* non-recursive */
    if (!*s) return T;		/* end of base means have a subset match */
    if (!*++pat) return NIL;	/* % at end, no inferiors permitted */
				/* scan remainder of string until delimiter */
    do if (dmatch (s,pat,delim)) return T;
    while ((*s != delim) && *s++);
    if (*s && !s[1]) return T;	/* ends with delimiter, must be subset */
    return dmatch (s,pat,delim);/* do new scan */
  case '*':			/* match 0 or more characters */
    return T;			/* unconditional match */
  case '\0':			/* end of pattern */
    break;
  default:			/* match this character */
    if (*s) return compare_uchar (*pat,*s) ? NIL : dmatch (s+1,pat+1,delim);
				/* end of base, return if at delimiter */
    else if (*pat == delim) return T;
    break;
  }
  return NIL;
}