1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*3e14f97fSRoger A. Faulkner * Copyright (c) 1985-2010 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6da2e3ebdSchin * Common Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt *
11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * Phong Vo <kpv@research.att.com> *
20da2e3ebdSchin * *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin /*
24da2e3ebdSchin * obsolete streval() interface to strexpr()
25da2e3ebdSchin */
26da2e3ebdSchin
27da2e3ebdSchin #include <ast.h>
28da2e3ebdSchin
29da2e3ebdSchin typedef long (*Old_convert_t)(const char*, char**);
30da2e3ebdSchin
31da2e3ebdSchin typedef long (*Convert_t)(const char*, char**, void*);
32da2e3ebdSchin
33da2e3ebdSchin typedef struct
34da2e3ebdSchin {
35da2e3ebdSchin Old_convert_t convert;
36da2e3ebdSchin } Handle_t;
37da2e3ebdSchin
38da2e3ebdSchin static long
userconv(const char * s,char ** end,void * handle)39da2e3ebdSchin userconv(const char* s, char** end, void* handle)
40da2e3ebdSchin {
41da2e3ebdSchin return((*((Handle_t*)handle)->convert)(s, end));
42da2e3ebdSchin }
43da2e3ebdSchin
44da2e3ebdSchin long
streval(const char * s,char ** end,Old_convert_t convert)45da2e3ebdSchin streval(const char* s, char** end, Old_convert_t convert)
46da2e3ebdSchin {
47da2e3ebdSchin Handle_t handle;
48da2e3ebdSchin
49da2e3ebdSchin return((handle.convert = convert) ? strexpr(s, end, userconv, &handle) : strexpr(s, end, (Convert_t)0, NiL));
50da2e3ebdSchin }
51