URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [readline/] [examples/] [rlfe/] [pty.c] - Blame information for rev 404

Go to most recent revision | Details | Compare with Previous | View Log


/* Copyright (c) 1993-2002
 *      Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
 *      Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
 * Copyright (c) 1987 Oliver Laumann
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program (see the file COPYING); if not, write to the
 * Free Software Foundation, Inc.,
 * 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
 *
 ****************************************************************
 */
 
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>
 
#include "config.h"
#include "screen.h"
 
#ifndef sun
# include <sys/ioctl.h>
#endif
 
/* for solaris 2.1, Unixware (SVR4.2) and possibly others */
#ifdef HAVE_SVR4_PTYS
# include <sys/stropts.h>
#endif
 
#if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL)
# include <sys/ttold.h>
#endif
 
#ifdef ISC
# include <sys/tty.h>
# include <sys/sioctl.h>
# include <sys/pty.h>
#endif
 
#ifdef sgi
# include <sys/sysmacros.h>
#endif /* sgi */
 
#include "extern.h"
 
/*
 * if no PTYRANGE[01] is in the config file, we pick a default
 */
#ifndef PTYRANGE0
# define PTYRANGE0 "qpr"
#endif
#ifndef PTYRANGE1
# define PTYRANGE1 "0123456789abcdef"
#endif
 
/* SVR4 pseudo ttys don't seem to work with SCO-5 */
#ifdef M_UNIX
# undef HAVE_SVR4_PTYS
#endif
 
extern int eff_uid;
 
/* used for opening a new pty-pair: */
static char PtyName[32], TtyName[32];
 
#if !(defined(sequent) || defined(_SEQUENT_) || defined(HAVE_SVR4_PTYS))
# ifdef hpux
static char PtyProto[] = "/dev/ptym/ptyXY";
static char TtyProto[] = "/dev/pty/ttyXY";
# else
#  ifdef M_UNIX
static char PtyProto[] = "/dev/ptypXY";
static char TtyProto[] = "/dev/ttypXY";
#  else
static char PtyProto[] = "/dev/ptyXY";
static char TtyProto[] = "/dev/ttyXY";
#  endif
# endif /* hpux */
#endif
 
static void initmaster __P((int));
 
#if defined(sun)
/* sun's utmp_update program opens the salve side, thus corrupting
 */
int pty_preopen = 1;
#else
int pty_preopen = 0;
#endif
 
/*
 *  Open all ptys with O_NOCTTY, just to be on the safe side
 *  (RISCos mips breaks otherwise)
 */
#ifndef O_NOCTTY
# define O_NOCTTY 0
#endif
 
/***************************************************************/
 
static void
initmaster(f)
int f;
{
#ifdef POSIX
  tcflush(f, TCIOFLUSH);
#else
# ifdef TIOCFLUSH
  (void) ioctl(f, TIOCFLUSH, (char *) 0);
# endif
#endif
#ifdef LOCKPTY
  (void) ioctl(f, TIOCEXCL, (char *) 0);
#endif
}
 
void
InitPTY(f)
int f;
{
  if (f < 0)
    return;
#if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX)
  if (ioctl(f, I_PUSH, "ptem"))
    Panic(errno, "InitPTY: cannot I_PUSH ptem");
  if (ioctl(f, I_PUSH, "ldterm"))
    Panic(errno, "InitPTY: cannot I_PUSH ldterm");
# ifdef sun
  if (ioctl(f, I_PUSH, "ttcompat"))
    Panic(errno, "InitPTY: cannot I_PUSH ttcompat");
# endif
#endif
}
 
/***************************************************************/
 
#if defined(OSX) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  register int f;
  if ((f = open_controlling_pty(TtyName)) < 0)
    return -1;
  initmaster(f);
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#if (defined(sequent) || defined(_SEQUENT_)) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  char *m, *s;
  register int f;
 
  if ((f = getpseudotty(&s, &m)) < 0)
    return -1;
#ifdef _SEQUENT_
  fvhangup(s);
#endif
  strncpy(PtyName, m, sizeof(PtyName));
  strncpy(TtyName, s, sizeof(TtyName));
  initmaster(f);
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#if defined(__sgi) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  int f;
  char *name, *_getpty();
  sigret_t (*sigcld)__P(SIGPROTOARG);
 
  /*
   * SIGCHLD set to SIG_DFL for _getpty() because it may fork() and
   * exec() /usr/adm/mkpts
   */
  sigcld = signal(SIGCHLD, SIG_DFL);
  name = _getpty(&f, O_RDWR | O_NONBLOCK, 0600, 0);
  signal(SIGCHLD, sigcld);
 
  if (name == 0)
    return -1;
  initmaster(f);
  *ttyn = name;
  return f;
}
#endif
 
/***************************************************************/
 
#if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  register int f;
  struct stat buf;
 
  strcpy(PtyName, "/dev/ptc");
  if ((f = open(PtyName, O_RDWR | O_NOCTTY | O_NONBLOCK)) < 0)
    return -1;
  if (fstat(f, &buf) < 0)
    {
      close(f);
      return -1;
    }
  sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev));
  initmaster(f);
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  register int f;
  char *m, *ptsname();
  int unlockpt __P((int)), grantpt __P((int));
#if defined(HAVE_GETPT) && defined(linux)
  int getpt __P((void));
#endif
  sigret_t (*sigcld)__P(SIGPROTOARG);
 
  strcpy(PtyName, "/dev/ptmx");
#if defined(HAVE_GETPT) && defined(linux)
  if ((f = getpt()) == -1)
#else
  if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1)
#endif
    return -1;
 
  /*
   * SIGCHLD set to SIG_DFL for grantpt() because it fork()s and
   * exec()s pt_chmod
   */
  sigcld = signal(SIGCHLD, SIG_DFL);
  if ((m = ptsname(f)) == NULL || grantpt(f) || unlockpt(f))
    {
      signal(SIGCHLD, sigcld);
      close(f);
      return -1;
    }
  signal(SIGCHLD, sigcld);
  strncpy(TtyName, m, sizeof(TtyName));
  initmaster(f);
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)
#define PTY_DONE
 
int
OpenPTY(ttyn)
char **ttyn;
{
  register int f;
 
  /* a dumb looking loop replaced by mycrofts code: */
  strcpy (PtyName, "/dev/ptc");
  if ((f = open (PtyName, O_RDWR | O_NOCTTY)) < 0)
    return -1;
  strncpy(TtyName, ttyname(f), sizeof(TtyName));
  if (eff_uid && access(TtyName, R_OK | W_OK))
    {
      close(f);
      return -1;
    }
  initmaster(f);
# ifdef _IBMR2
  pty_preopen = 1;
# endif
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#if defined(HAVE_OPENPTY) && !defined(PTY_DONE)
#define PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  int f, s;
  if (openpty(&f, &s, TtyName, NULL, NULL) != 0)
    return -1;
  close(s);
  initmaster(f);
  pty_preopen = 1;
  *ttyn = TtyName;
  return f;
}
#endif
 
/***************************************************************/
 
#ifndef PTY_DONE
int
OpenPTY(ttyn)
char **ttyn;
{
  register char *p, *q, *l, *d;
  register int f;
 
  debug("OpenPTY: Using BSD style ptys.\n");
  strcpy(PtyName, PtyProto);
  strcpy(TtyName, TtyProto);
  for (p = PtyName; *p != 'X'; p++)
    ;
  for (q = TtyName; *q != 'X'; q++)
    ;
  for (l = PTYRANGE0; (*p = *l) != '\0'; l++)
    {
      for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++)
        {
          debug1("OpenPTY tries '%s'\n", PtyName);
          if ((f = open(PtyName, O_RDWR | O_NOCTTY)) == -1)
            continue;
          q[0] = *l;
          q[1] = *d;
          if (eff_uid && access(TtyName, R_OK | W_OK))
            {
              close(f);
              continue;
            }
#if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3)
          /* Hack to ensure that the slave side of the pty is
           * unused. May not work in anything other than SunOS4.1
           */
            {
              int pgrp;
 
              /* tcgetpgrp does not work (uses TIOCGETPGRP)! */
              if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 || errno != EIO)
                {
                  close(f);
                  continue;
                }
            }
#endif
          initmaster(f);
          *ttyn = TtyName;
          return f;
        }
    }
  return -1;
}
#endif
 

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [readline/] [examples/] [rlfe/] [pty.c] - Blame information for rev 404

Line No.	Rev	Author	Line
1	24	jeremybenn	`/* Copyright (c) 1993-2002`
2			`* Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)`
3			`* Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)`
4			`* Copyright (c) 1987 Oliver Laumann`
5			`*`
6			`* This program is free software; you can redistribute it and/or modify`
7			`* it under the terms of the GNU General Public License as published by`
8			`* the Free Software Foundation; either version 2, or (at your option)`
9			`* any later version.`
10			`*`
11			`* This program is distributed in the hope that it will be useful,`
12			`* but WITHOUT ANY WARRANTY; without even the implied warranty of`
13			`* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
14			`* GNU General Public License for more details.`
15			`*`
16			`* You should have received a copy of the GNU General Public License`
17			`* along with this program (see the file COPYING); if not, write to the`
18			`* Free Software Foundation, Inc.,`
19			`* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA`
20			`*`
21			`****************************************************************`
22			`*/`
23
24			`#include <sys/types.h>`
25			`#include <sys/stat.h>`
26			`#include <fcntl.h>`
27			`#include <signal.h>`
28
29			`#include "config.h"`
30			`#include "screen.h"`
31
32			`#ifndef sun`
33			`# include <sys/ioctl.h>`
34			`#endif`
35
36			`/* for solaris 2.1, Unixware (SVR4.2) and possibly others */`
37			`#ifdef HAVE_SVR4_PTYS`
38			`# include <sys/stropts.h>`
39			`#endif`
40
41			`#if defined(sun) && defined(LOCKPTY) && !defined(TIOCEXCL)`
42			`# include <sys/ttold.h>`
43			`#endif`
44
45			`#ifdef ISC`
46			`# include <sys/tty.h>`
47			`# include <sys/sioctl.h>`
48			`# include <sys/pty.h>`
49			`#endif`
50
51			`#ifdef sgi`
52			`# include <sys/sysmacros.h>`
53			`#endif /* sgi */`
54
55			`#include "extern.h"`
56
57			`/*`
58			`* if no PTYRANGE[01] is in the config file, we pick a default`
59			`*/`
60			`#ifndef PTYRANGE0`
61			`# define PTYRANGE0 "qpr"`
62			`#endif`
63			`#ifndef PTYRANGE1`
64			`# define PTYRANGE1 "0123456789abcdef"`
65			`#endif`
66
67			`/* SVR4 pseudo ttys don't seem to work with SCO-5 */`
68			`#ifdef M_UNIX`
69			`# undef HAVE_SVR4_PTYS`
70			`#endif`
71
72			`extern int eff_uid;`
73
74			`/* used for opening a new pty-pair: */`
75			`static char PtyName[32], TtyName[32];`
76
77			`#if !(defined(sequent) \|\| defined(_SEQUENT_) \|\| defined(HAVE_SVR4_PTYS))`
78			`# ifdef hpux`
79			`static char PtyProto[] = "/dev/ptym/ptyXY";`
80			`static char TtyProto[] = "/dev/pty/ttyXY";`
81			`# else`
82			`# ifdef M_UNIX`
83			`static char PtyProto[] = "/dev/ptypXY";`
84			`static char TtyProto[] = "/dev/ttypXY";`
85			`# else`
86			`static char PtyProto[] = "/dev/ptyXY";`
87			`static char TtyProto[] = "/dev/ttyXY";`
88			`# endif`
89			`# endif /* hpux */`
90			`#endif`
91
92			`static void initmaster __P((int));`
93
94			`#if defined(sun)`
95			`/* sun's utmp_update program opens the salve side, thus corrupting`
96			`*/`
97			`int pty_preopen = 1;`
98			`#else`
99			`int pty_preopen = 0;`
100			`#endif`
101
102			`/*`
103			`* Open all ptys with O_NOCTTY, just to be on the safe side`
104			`* (RISCos mips breaks otherwise)`
105			`*/`
106			`#ifndef O_NOCTTY`
107			`# define O_NOCTTY 0`
108			`#endif`
109
110			`/***************************************************************/`
111
112			`static void`
113			`initmaster(f)`
114			`int f;`
115			`{`
116			`#ifdef POSIX`
117			`tcflush(f, TCIOFLUSH);`
118			`#else`
119			`# ifdef TIOCFLUSH`
120			`(void) ioctl(f, TIOCFLUSH, (char *) 0);`
121			`# endif`
122			`#endif`
123			`#ifdef LOCKPTY`
124			`(void) ioctl(f, TIOCEXCL, (char *) 0);`
125			`#endif`
126			`}`
127
128			`void`
129			`InitPTY(f)`
130			`int f;`
131			`{`
132			`if (f < 0)`
133			`return;`
134			`#if defined(I_PUSH) && defined(HAVE_SVR4_PTYS) && !defined(sgi) && !defined(linux) && !defined(__osf__) && !defined(M_UNIX)`
135			`if (ioctl(f, I_PUSH, "ptem"))`
136			`Panic(errno, "InitPTY: cannot I_PUSH ptem");`
137			`if (ioctl(f, I_PUSH, "ldterm"))`
138			`Panic(errno, "InitPTY: cannot I_PUSH ldterm");`
139			`# ifdef sun`
140			`if (ioctl(f, I_PUSH, "ttcompat"))`
141			`Panic(errno, "InitPTY: cannot I_PUSH ttcompat");`
142			`# endif`
143			`#endif`
144			`}`
145
146			`/***************************************************************/`
147
148			`#if defined(OSX) && !defined(PTY_DONE)`
149			`#define PTY_DONE`
150			`int`
151			`OpenPTY(ttyn)`
152			`char **ttyn;`
153			`{`
154			`register int f;`
155			`if ((f = open_controlling_pty(TtyName)) < 0)`
156			`return -1;`
157			`initmaster(f);`
158			`*ttyn = TtyName;`
159			`return f;`
160			`}`
161			`#endif`
162
163			`/***************************************************************/`
164
165			`#if (defined(sequent) \|\| defined(_SEQUENT_)) && !defined(PTY_DONE)`
166			`#define PTY_DONE`
167			`int`
168			`OpenPTY(ttyn)`
169			`char **ttyn;`
170			`{`
171			`char m, s;`
172			`register int f;`
173
174			`if ((f = getpseudotty(&s, &m)) < 0)`
175			`return -1;`
176			`#ifdef _SEQUENT_`
177			`fvhangup(s);`
178			`#endif`
179			`strncpy(PtyName, m, sizeof(PtyName));`
180			`strncpy(TtyName, s, sizeof(TtyName));`
181			`initmaster(f);`
182			`*ttyn = TtyName;`
183			`return f;`
184			`}`
185			`#endif`
186
187			`/***************************************************************/`
188
189			`#if defined(__sgi) && !defined(PTY_DONE)`
190			`#define PTY_DONE`
191			`int`
192			`OpenPTY(ttyn)`
193			`char **ttyn;`
194			`{`
195			`int f;`
196			`char name, _getpty();`
197			`sigret_t (*sigcld)__P(SIGPROTOARG);`
198
199			`/*`
200			`* SIGCHLD set to SIG_DFL for _getpty() because it may fork() and`
201			`* exec() /usr/adm/mkpts`
202			`*/`
203			`sigcld = signal(SIGCHLD, SIG_DFL);`
204			`name = _getpty(&f, O_RDWR \| O_NONBLOCK, 0600, 0);`
205			`signal(SIGCHLD, sigcld);`
206
207			`if (name == 0)`
208			`return -1;`
209			`initmaster(f);`
210			`*ttyn = name;`
211			`return f;`
212			`}`
213			`#endif`
214
215			`/***************************************************************/`
216
217			`#if defined(MIPS) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)`
218			`#define PTY_DONE`
219			`int`
220			`OpenPTY(ttyn)`
221			`char **ttyn;`
222			`{`
223			`register int f;`
224			`struct stat buf;`
225
226			`strcpy(PtyName, "/dev/ptc");`
227			`if ((f = open(PtyName, O_RDWR \| O_NOCTTY \| O_NONBLOCK)) < 0)`
228			`return -1;`
229			`if (fstat(f, &buf) < 0)`
230			`{`
231			`close(f);`
232			`return -1;`
233			`}`
234			`sprintf(TtyName, "/dev/ttyq%d", minor(buf.st_rdev));`
235			`initmaster(f);`
236			`*ttyn = TtyName;`
237			`return f;`
238			`}`
239			`#endif`
240
241			`/***************************************************************/`
242
243			`#if defined(HAVE_SVR4_PTYS) && !defined(PTY_DONE)`
244			`#define PTY_DONE`
245			`int`
246			`OpenPTY(ttyn)`
247			`char **ttyn;`
248			`{`
249			`register int f;`
250			`char m, ptsname();`
251			`int unlockpt __P((int)), grantpt __P((int));`
252			`#if defined(HAVE_GETPT) && defined(linux)`
253			`int getpt __P((void));`
254			`#endif`
255			`sigret_t (*sigcld)__P(SIGPROTOARG);`
256
257			`strcpy(PtyName, "/dev/ptmx");`
258			`#if defined(HAVE_GETPT) && defined(linux)`
259			`if ((f = getpt()) == -1)`
260			`#else`
261			`if ((f = open(PtyName, O_RDWR \| O_NOCTTY)) == -1)`
262			`#endif`
263			`return -1;`
264
265			`/*`
266			`* SIGCHLD set to SIG_DFL for grantpt() because it fork()s and`
267			`* exec()s pt_chmod`
268			`*/`
269			`sigcld = signal(SIGCHLD, SIG_DFL);`
270			`if ((m = ptsname(f)) == NULL \|\| grantpt(f) \|\| unlockpt(f))`
271			`{`
272			`signal(SIGCHLD, sigcld);`
273			`close(f);`
274			`return -1;`
275			`}`
276			`signal(SIGCHLD, sigcld);`
277			`strncpy(TtyName, m, sizeof(TtyName));`
278			`initmaster(f);`
279			`*ttyn = TtyName;`
280			`return f;`
281			`}`
282			`#endif`
283
284			`/***************************************************************/`
285
286			`#if defined(_AIX) && defined(HAVE_DEV_PTC) && !defined(PTY_DONE)`
287			`#define PTY_DONE`
288
289			`int`
290			`OpenPTY(ttyn)`
291			`char **ttyn;`
292			`{`
293			`register int f;`
294
295			`/* a dumb looking loop replaced by mycrofts code: */`
296			`strcpy (PtyName, "/dev/ptc");`
297			`if ((f = open (PtyName, O_RDWR \| O_NOCTTY)) < 0)`
298			`return -1;`
299			`strncpy(TtyName, ttyname(f), sizeof(TtyName));`
300			`if (eff_uid && access(TtyName, R_OK \| W_OK))`
301			`{`
302			`close(f);`
303			`return -1;`
304			`}`
305			`initmaster(f);`
306			`# ifdef _IBMR2`
307			`pty_preopen = 1;`
308			`# endif`
309			`*ttyn = TtyName;`
310			`return f;`
311			`}`
312			`#endif`
313
314			`/***************************************************************/`
315
316			`#if defined(HAVE_OPENPTY) && !defined(PTY_DONE)`
317			`#define PTY_DONE`
318			`int`
319			`OpenPTY(ttyn)`
320			`char **ttyn;`
321			`{`
322			`int f, s;`
323			`if (openpty(&f, &s, TtyName, NULL, NULL) != 0)`
324			`return -1;`
325			`close(s);`
326			`initmaster(f);`
327			`pty_preopen = 1;`
328			`*ttyn = TtyName;`
329			`return f;`
330			`}`
331			`#endif`
332
333			`/***************************************************************/`
334
335			`#ifndef PTY_DONE`
336			`int`
337			`OpenPTY(ttyn)`
338			`char **ttyn;`
339			`{`
340			`register char p, q, l, d;`
341			`register int f;`
342
343			`debug("OpenPTY: Using BSD style ptys.\n");`
344			`strcpy(PtyName, PtyProto);`
345			`strcpy(TtyName, TtyProto);`
346			`for (p = PtyName; *p != 'X'; p++)`
347			`;`
348			`for (q = TtyName; *q != 'X'; q++)`
349			`;`
350			`for (l = PTYRANGE0; (p = l) != '\0'; l++)`
351			`{`
352			`for (d = PTYRANGE1; (p[1] = *d) != '\0'; d++)`
353			`{`
354			`debug1("OpenPTY tries '%s'\n", PtyName);`
355			`if ((f = open(PtyName, O_RDWR \| O_NOCTTY)) == -1)`
356			`continue;`
357			`q[0] = *l;`
358			`q[1] = *d;`
359			`if (eff_uid && access(TtyName, R_OK \| W_OK))`
360			`{`
361			`close(f);`
362			`continue;`
363			`}`
364			`#if defined(sun) && defined(TIOCGPGRP) && !defined(SUNOS3)`
365			`/* Hack to ensure that the slave side of the pty is`
366			`* unused. May not work in anything other than SunOS4.1`
367			`*/`
368			`{`
369			`int pgrp;`
370
371			`/* tcgetpgrp does not work (uses TIOCGETPGRP)! */`
372			`if (ioctl(f, TIOCGPGRP, (char *)&pgrp) != -1 \|\| errno != EIO)`
373			`{`
374			`close(f);`
375			`continue;`
376			`}`
377			`}`
378			`#endif`
379			`initmaster(f);`
380			`*ttyn = TtyName;`
381			`return f;`
382			`}`
383			`}`
384			`return -1;`
385			`}`
386			`#endif`
387