| 1 | /* $NetBSD: memalloc.h,v 1.14 2003/08/07 09:05:34 agc Exp $ */
|
|---|
| 2 |
|
|---|
| 3 | /*-
|
|---|
| 4 | * Copyright (c) 1991, 1993
|
|---|
| 5 | * The Regents of the University of California. All rights reserved.
|
|---|
| 6 | *
|
|---|
| 7 | * This code is derived from software contributed to Berkeley by
|
|---|
| 8 | * Kenneth Almquist.
|
|---|
| 9 | *
|
|---|
| 10 | * Redistribution and use in source and binary forms, with or without
|
|---|
| 11 | * modification, are permitted provided that the following conditions
|
|---|
| 12 | * are met:
|
|---|
| 13 | * 1. Redistributions of source code must retain the above copyright
|
|---|
| 14 | * notice, this list of conditions and the following disclaimer.
|
|---|
| 15 | * 2. Redistributions in binary form must reproduce the above copyright
|
|---|
| 16 | * notice, this list of conditions and the following disclaimer in the
|
|---|
| 17 | * documentation and/or other materials provided with the distribution.
|
|---|
| 18 | * 3. Neither the name of the University nor the names of its contributors
|
|---|
| 19 | * may be used to endorse or promote products derived from this software
|
|---|
| 20 | * without specific prior written permission.
|
|---|
| 21 | *
|
|---|
| 22 | * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|---|
| 23 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|---|
| 24 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|---|
| 25 | * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|---|
| 26 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|---|
| 27 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|---|
| 28 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|---|
| 29 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|---|
| 30 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|---|
| 31 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|---|
| 32 | * SUCH DAMAGE.
|
|---|
| 33 | *
|
|---|
| 34 | * @(#)memalloc.h 8.2 (Berkeley) 5/4/95
|
|---|
| 35 | */
|
|---|
| 36 |
|
|---|
| 37 | struct stackmark {
|
|---|
| 38 | struct stack_block *stackp;
|
|---|
| 39 | char *stacknxt;
|
|---|
| 40 | int stacknleft;
|
|---|
| 41 | struct stackmark *marknext;
|
|---|
| 42 | };
|
|---|
| 43 |
|
|---|
| 44 |
|
|---|
| 45 | /*extern char *stacknxt;
|
|---|
| 46 | extern int stacknleft;
|
|---|
| 47 | extern int sstrnleft;
|
|---|
| 48 | extern int herefd;*/
|
|---|
| 49 |
|
|---|
| 50 | pointer ckmalloc(struct shinstance *, size_t);
|
|---|
| 51 | pointer ckrealloc(struct shinstance *, pointer, size_t);
|
|---|
| 52 | char *savestr(struct shinstance *, const char *);
|
|---|
| 53 | #define ckfree(psh, p) sh_free(psh, (pointer)(p))
|
|---|
| 54 |
|
|---|
| 55 | #ifndef SH_MEMALLOC_NO_STACK
|
|---|
| 56 | pointer stalloc(struct shinstance *, size_t);
|
|---|
| 57 | char *stsavestr(struct shinstance *, const char *);
|
|---|
| 58 | void stunalloc(struct shinstance *, pointer);
|
|---|
| 59 | void setstackmark(struct shinstance *, struct stackmark *);
|
|---|
| 60 | void popstackmark(struct shinstance *, struct stackmark *);
|
|---|
| 61 | void growstackblock(struct shinstance *);
|
|---|
| 62 | void grabstackblock(struct shinstance *, int);
|
|---|
| 63 | char *growstackstr(struct shinstance *);
|
|---|
| 64 | char *makestrspace(struct shinstance *);
|
|---|
| 65 | char *grabstackstr(struct shinstance *, char *); /* was #define using stalloc */
|
|---|
| 66 | void ungrabstackstr(struct shinstance *, char *, char *);
|
|---|
| 67 |
|
|---|
| 68 | #define stackblock(psh) (psh)->stacknxt
|
|---|
| 69 | #define stackblocksize(psh) (psh)->stacknleft
|
|---|
| 70 | #define STARTSTACKSTR(psh, p) p = stackblock(psh), (psh)->sstrnleft = stackblocksize(psh)
|
|---|
| 71 | #define STPUTC(psh, c, p) (--(psh)->sstrnleft >= 0? (*p++ = (c)) : (p = growstackstr(psh), *p++ = (c)))
|
|---|
| 72 | #define CHECKSTRSPACE(psh, n, p) { if ((psh)->sstrnleft < n) p = makestrspace(psh); }
|
|---|
| 73 | #define USTPUTC(psh, c, p) do { assert((psh)->sstrnleft > 0); \
|
|---|
| 74 | assert(p - (char *)stackblock(psh) == stackblocksize(psh) - (psh)->sstrnleft); \
|
|---|
| 75 | --(psh)->sstrnleft; *p++ = (c); } while (0)
|
|---|
| 76 | #define STACKSTRNUL(psh, p) ((psh)->sstrnleft == 0? (p = growstackstr(psh), *p = '\0') : (*p = '\0'))
|
|---|
| 77 | #define STUNPUTC(psh, p) (++(psh)->sstrnleft, --p)
|
|---|
| 78 | #define STADJUST(psh, amount, p) (p += (amount), (psh)->sstrnleft -= (amount))
|
|---|
| 79 | #endif /* SH_MEMALLOC_NO_STACK */
|
|---|
| 80 |
|
|---|
| 81 | /** @name Stack allocator for parser.
|
|---|
| 82 | * This is a stripped down version of the general stack allocator interface for
|
|---|
| 83 | * the exclusive use of the parser, so that parsetrees can be shared with
|
|---|
| 84 | * subshells by simple reference counting.
|
|---|
| 85 | * @{ */
|
|---|
| 86 | void *pstalloc(struct shinstance *, size_t);
|
|---|
| 87 | union node;
|
|---|
| 88 | union node *pstallocnode(struct shinstance *, size_t);
|
|---|
| 89 | struct nodelist;
|
|---|
| 90 | struct nodelist *pstalloclist(struct shinstance *);
|
|---|
| 91 | char *pstsavestr(struct shinstance *, const char *); /* was: stsavestr */
|
|---|
| 92 | #define PSTARTSTACKSTR(psh, p) do { (p) = (psh)->stacknxt; (psh)->sstrnleft = (psh)->stacknleft; } while (0)
|
|---|
| 93 | char *pstmakestrspace(struct shinstance *, size_t, char *); /* was: makestrspace / growstackstr */
|
|---|
| 94 | #define PSTCHECKSTRSPACE(psh, n, p) do { if ((psh)->sstrnleft >= (n)) {/*likely*/} \
|
|---|
| 95 | else { (p) = pstmakestrspace(psh, (n), (p)); assert((psh)->sstrnleft >= (n)); } } while (0)
|
|---|
| 96 | #define PSTUPUTC(psh, c, p) do { assert((psh)->sstrnleft > 0); --(psh)->sstrnleft; *(p)++ = (c); } while (0)
|
|---|
| 97 | char *pstputcgrow(struct shinstance *, char *, char);
|
|---|
| 98 | #define PSTPUTC(psh, c, p) do { if (--(psh)->sstrnleft >= 0) *(p)++ = (c); else (p) = pstputcgrow(psh, (p), (c)); } while (0)
|
|---|
| 99 | #define PSTPUTSTRN(psh, str, n, p) do { if ((psh)->sstrnleft >= (n)) {/*likely?*/} else (p) = pstmakestrspace(psh, (n), (p)); \
|
|---|
| 100 | memcpy((p), (str), (n)); (psh)->sstrnleft -= (n); (p) += (n); } while (0)
|
|---|
| 101 | #define PSTBLOCK(psh) ((psh)->stacknxt)
|
|---|
| 102 | char *pstgrabstr(struct shinstance *, char *); /* was: grabstackstr / grabstackblock*/
|
|---|
| 103 | /** @} */
|
|---|
| 104 |
|
|---|
| 105 |
|
|---|
