Gecko [ georgetownmover.com ]

Name	Size	Permission	Date
auths.cmd	1.38 KB	-rw-r--r--	2023-01-11 06:22
drivers.cmd	1.27 KB	-rw-r--r--	2023-01-11 06:22
dummy.h	1.49 KB	-rw-r--r--	2023-01-11 06:22
dummyos2.c	20.81 KB	-rw-r--r--	2023-01-11 06:22
env_os2.c	8.11 KB	-rw-r--r--	2023-01-11 06:22
env_os2.h	1.95 KB	-rw-r--r--	2023-01-11 06:22
fs_os2.c	1.38 KB	-rw-r--r--	2023-01-11 06:22
ftl_os2.c	955 B	-rw-r--r--	2023-01-11 06:22
makefile.os2	2.99 KB	-rw-r--r--	2023-01-11 06:22
mbxnt.c	56.01 KB	-rw-r--r--	2023-01-11 06:22
mtxnt.c	39.84 KB	-rw-r--r--	2023-01-11 06:22
nl_os2.c	1.7 KB	-rw-r--r--	2023-01-11 06:22
os_os2.c	2.46 KB	-rw-r--r--	2023-01-11 06:22
os_os2.h	971 B	-rw-r--r--	2023-01-11 06:22
pmatch.c	2.79 KB	-rw-r--r--	2023-01-11 06:22
pseudo.c	1.24 KB	-rw-r--r--	2023-01-11 06:22
pseudo.h	838 B	-rw-r--r--	2023-01-11 06:22
setproto.cmd	974 B	-rw-r--r--	2023-01-11 06:22
tcp_os2.c	11.57 KB	-rw-r--r--	2023-01-11 06:22
tcp_os2.h	1.31 KB	-rw-r--r--	2023-01-11 06:22
tenexnt.c	42.98 KB	-rw-r--r--	2023-01-11 06:22
unixnt.c	79.72 KB	-rw-r--r--	2023-01-11 06:22
unixnt.h	6.55 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;
}