mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
68 lines
2.8 KiB
C
68 lines
2.8 KiB
C
/***********************************************************************
|
|
* *
|
|
* This software is part of the ast package *
|
|
* Copyright (c) 1985-2011 AT&T Intellectual Property *
|
|
* Copyright (c) 2020-2021 Contributors to ksh 93u+m *
|
|
* and is licensed under the *
|
|
* Eclipse Public License, Version 1.0 *
|
|
* by AT&T Intellectual Property *
|
|
* *
|
|
* A copy of the License is available at *
|
|
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
* *
|
|
* Information and Software Systems Research *
|
|
* AT&T Research *
|
|
* Florham Park NJ *
|
|
* *
|
|
* Glenn Fowler <gsf@research.att.com> *
|
|
* David Korn <dgk@research.att.com> *
|
|
* Phong Vo <kpv@research.att.com> *
|
|
* *
|
|
***********************************************************************/
|
|
#pragma prototyped
|
|
/*
|
|
* Glenn Fowler
|
|
* AT&T Bell Laboratories
|
|
*
|
|
* time conversion support
|
|
*/
|
|
|
|
#include <ast.h>
|
|
#include <tm.h>
|
|
#include <ctype.h>
|
|
|
|
/*
|
|
* return the tab table index that matches s ignoring case and .'s
|
|
* tm_data.format checked if tminfo.format!=tm_data.format
|
|
*
|
|
* ntab and nsuf are the number of elements in tab and suf,
|
|
* -1 for 0 sentinel
|
|
*
|
|
* all isalpha() chars in str must match
|
|
* suf is a table of nsuf valid str suffixes
|
|
* if e is non-null then it will point to first unmatched char in str
|
|
* which will always be non-isalpha()
|
|
*/
|
|
|
|
int
|
|
tmlex(register const char* s, char** e, char** tab, int ntab, char** suf, int nsuf)
|
|
{
|
|
register char** p;
|
|
register char* x;
|
|
register int n;
|
|
|
|
for (p = tab, n = ntab; n-- && (x = *p); p++)
|
|
if (*x && *x != '%' && tmword(s, e, x, suf, nsuf))
|
|
return p - tab;
|
|
if (tm_info.format != tm_data.format && tab >= tm_info.format && tab < tm_info.format + TM_NFORM)
|
|
{
|
|
tab = tm_data.format + (tab - tm_info.format);
|
|
if (suf && tab >= tm_info.format && tab < tm_info.format + TM_NFORM)
|
|
suf = tm_data.format + (suf - tm_info.format);
|
|
for (p = tab, n = ntab; n-- && (x = *p); p++)
|
|
if (*x && *x != '%' && tmword(s, e, x, suf, nsuf))
|
|
return p - tab;
|
|
}
|
|
return -1;
|
|
}
|