Annotation of libelwix/src/elwix.c, revision 1.9

1.1       misho       1: /*************************************************************************
                      2: * (C) 2013 AITNET ltd - Sofia/Bulgaria - <misho@aitnet.org>
                      3: *  by Michael Pounov <misho@elwix.org>
                      4: *
                      5: * $Author: misho $
1.9     ! misho       6: * $Id: elwix.c,v 1.8.8.1 2016/08/11 13:19:16 misho Exp $
1.1       misho       7: *
                      8: **************************************************************************
                      9: The ELWIX and AITNET software is distributed under the following
                     10: terms:
                     11: 
                     12: All of the documentation and software included in the ELWIX and AITNET
                     13: Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>
                     14: 
1.9     ! misho      15: Copyright 2004 - 2016
1.1       misho      16:        by Michael Pounov <misho@elwix.org>.  All rights reserved.
                     17: 
                     18: Redistribution and use in source and binary forms, with or without
                     19: modification, are permitted provided that the following conditions
                     20: are met:
                     21: 1. Redistributions of source code must retain the above copyright
                     22:    notice, this list of conditions and the following disclaimer.
                     23: 2. Redistributions in binary form must reproduce the above copyright
                     24:    notice, this list of conditions and the following disclaimer in the
                     25:    documentation and/or other materials provided with the distribution.
                     26: 3. All advertising materials mentioning features or use of this software
                     27:    must display the following acknowledgement:
                     28: This product includes software developed by Michael Pounov <misho@elwix.org>
                     29: ELWIX - Embedded LightWeight unIX and its contributors.
                     30: 4. Neither the name of AITNET nor the names of its contributors
                     31:    may be used to endorse or promote products derived from this software
                     32:    without specific prior written permission.
                     33: 
                     34: THIS SOFTWARE IS PROVIDED BY AITNET AND CONTRIBUTORS ``AS IS'' AND
                     35: ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
                     36: IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
                     37: ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
                     38: FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
                     39: DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
                     40: OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
                     41: HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
                     42: LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
                     43: OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
                     44: SUCH DAMAGE.
                     45: */
                     46: #include "global.h"
                     47: 
                     48: 
                     49: int elwix_Debug;
                     50: int elwix_Verbose;
                     51: 
                     52: 
                     53: /* Memory management */
                     54: 
                     55: void *(*e_malloc)(size_t) = malloc;
                     56: void *(*e_calloc)(size_t, size_t) = calloc;
                     57: void *(*e_realloc)(void*, size_t) = realloc;
                     58: char *(*e_strdup)(const char*) = strdup;
                     59: void (*e_free)(void*) = free;
                     60: 
                     61: 
                     62: #pragma GCC visibility push(hidden)
                     63: 
                     64: int use_mm;
                     65: const char elwix_Prog[STRSIZ];
                     66: 
                     67: int elwix_Errno;
                     68: char elwix_Error[STRSIZ];
                     69: 
                     70: #pragma GCC visibility pop
                     71: 
                     72: 
                     73: // elwix_SetProg() Set program memory pool name
1.2       misho      74: void
1.1       misho      75: elwix_SetProg(const char *csProgName)
                     76: {
                     77:        strlcpy((char*) elwix_Prog, csProgName, sizeof elwix_Prog);
                     78: }
                     79: 
                     80: // elwix_GetProg() Get program memory pool name
1.2       misho      81: const char *
1.1       misho      82: elwix_GetProg()
                     83: {
                     84:        return elwix_Prog;
                     85: }
                     86: 
                     87: // elwix_GetErrno() Get error code of last operation
1.2       misho      88: int
1.1       misho      89: elwix_GetErrno()
                     90: {
                     91:        return elwix_Errno;
                     92: }
                     93: 
                     94: // elwix_GetError() Get error text of last operation
1.2       misho      95: const char *
1.1       misho      96: elwix_GetError()
                     97: {
                     98:        return elwix_Error;
                     99: }
                    100: 
                    101: // elwix_SetErr() Set error to variables for internal use!!!
1.2       misho     102: void
1.1       misho     103: elwix_SetErr(int eno, char *estr, ...)
                    104: {
                    105:        va_list lst;
                    106: 
                    107:        elwix_Errno = eno;
                    108:        memset(elwix_Error, 0, sizeof elwix_Error);
                    109:        va_start(lst, estr);
                    110:        vsnprintf(elwix_Error, sizeof elwix_Error, estr, lst);
                    111:        va_end(lst);
                    112: }
                    113: 
                    114: // elwix_mm_inuse() Check for memory management model
1.2       misho     115: int
1.1       misho     116: elwix_mm_inuse()
                    117: {
                    118:        return use_mm & ELWIX_MPOOL;
                    119: }
                    120: 
                    121: 
1.5       misho     122: #pragma GCC visibility push(hidden)
1.1       misho     123: // init libelwix routine
1.5       misho     124: __attribute__((constructor)) static void
1.1       misho     125: _elwix_init()
                    126: {
1.6       misho     127:        elwixInit(MEMMGR, 0);
1.1       misho     128: }
                    129: 
                    130: // fini libelwix routine
1.5       misho     131: __attribute__((destructor)) static void
1.1       misho     132: _elwix_fini()
                    133: {
                    134:        elwixFini();
                    135: }
                    136: 
                    137: /*
                    138:  * elwixInit() - Init libelwix library memory management
                    139:  *
                    140:  * @mm = memory management (ELWIX_SYSM or ELWIX_MPOOL)
                    141:  * @maxmem = memory limit
                    142:  * return: -1 error or !=-1 used memory management model
                    143:  */
                    144: int
                    145: elwixInit(int mm, u_long maxmem)
                    146: {
                    147:        switch (mm) {
                    148:                case ELWIX_MPOOL:       /* mpool */
                    149:                        elwix_mpool = mpool_init(maxmem);
                    150:                        if (elwix_mpool) {
                    151:                                e_malloc = mpool_xmalloc;
                    152:                                e_calloc = mpool_xcalloc;
                    153:                                e_realloc = mpool_xrealloc;
                    154:                                e_strdup = mpool_xstrdup;
                    155:                                e_free = mpool_xfree;
                    156:                                break;
                    157:                        } else {
                    158:                                mm = ELWIX_SYSM;
                    159:                                #undef USE_MPOOL
                    160:                        }
                    161:                case ELWIX_SYSM:        /* system */
                    162:                        e_malloc = malloc;
                    163:                        e_calloc = calloc;
                    164:                        e_realloc = realloc;
                    165:                        e_strdup = strdup;
                    166:                        e_free = free;
                    167:                        break;
                    168:                default:                /* not supported */
                    169:                        elwix_SetErr(EINVAL, "Not supported memory management");
                    170:                        return -1;
                    171:        }
                    172: 
                    173:        return (use_mm = mm);
                    174: }
                    175: 
                    176: /*
1.4       misho     177:  * elwixFini() - Finish libelwix library memory management
1.1       misho     178:  *
                    179:  * return: none
                    180:  */
                    181: void
                    182: elwixFini()
                    183: {
                    184:        switch (use_mm) {
                    185:                case ELWIX_MPOOL:
                    186:                        e_malloc = malloc;
                    187:                        e_calloc = calloc;
                    188:                        e_realloc = realloc;
                    189:                        e_strdup = strdup;
                    190:                        e_free = free;
                    191:                        use_mm = ELWIX_SYSM;
                    192: 
                    193:                        mpool_destroy(&elwix_mpool);
                    194:                        break;
                    195:        }
                    196: }
1.5       misho     197: #pragma GCC visibility pop
1.4       misho     198: 
                    199: /*
                    200:  * elwix_byteOrder() - Detect platform byte order
                    201:  *
                    202:  * return: 1 = little endian or 0 big endian
                    203:  */
                    204: int
                    205: elwix_byteOrder()
                    206: {
                    207:        int x = 1;
                    208: 
                    209:        return *(char*) &x;
                    210: }
1.8       misho     211: 
                    212: #ifndef strlcpy
                    213: /*
                    214:  * Copy src to string dst of size siz.  At most siz-1 characters
                    215:  * will be copied.  Always NUL terminates (unless siz == 0).
                    216:  * Returns strlen(src); if retval >= siz, truncation occurred.
                    217:  */
                    218: size_t
                    219: strlcpy(char *dst, const char *src, size_t siz)
                    220: {
                    221:        char *d = dst;
                    222:        const char *s = src;
                    223:        register size_t n = siz;
                    224: 
                    225:        /* Copy as many bytes as will fit */
                    226:        if (n)
                    227:                while (--n)
                    228:                        if ((*d++ = *s++) == '\0')
                    229:                                break;
                    230: 
                    231:        /* Not enough room in dst, add NUL and traverse rest of src */
                    232:        if (!n) {
                    233:                if (siz)
                    234:                        *d = '\0';      /* NUL-terminate dst */
                    235:                while (*s++);
                    236:        }
                    237: 
                    238:        return (s - src - 1);   /* count does not include NUL */
                    239: }
                    240: #endif
                    241: 
                    242: #ifndef strlcat
                    243: /*
                    244:  * Appends src to string dst of size siz (unlike strncat, siz is the
                    245:  * full size of dst, not space left).  At most siz-1 characters
                    246:  * will be copied.  Always NUL terminates (unless siz <= strlen(dst)).
                    247:  * Returns strlen(src) + MIN(siz, strlen(initial dst)).
                    248:  * If retval >= siz, truncation occurred.
                    249:  */
                    250: size_t
                    251: strlcat(char *dst, const char *src, size_t siz)
                    252: {
                    253:        char *d = dst;
                    254:        const char *s = src;
                    255:        register size_t n = siz;
                    256:        size_t dlen;
                    257: 
                    258:        /* Find the end of dst and adjust bytes left but don't go past end */
                    259:        while (n-- && *d != '\0')
                    260:                d++;
                    261: 
                    262:        dlen = d - dst;
                    263:        n = siz - dlen;
                    264:        if (!n)
                    265:                return (dlen + strlen(s));
                    266: 
                    267:        while (*s != '\0') {
                    268:                if (n != 1) {
                    269:                        *d++ = *s;
                    270:                        n--;
                    271:                }
                    272:                s++;
                    273:        }
                    274:        *d = '\0';
                    275: 
                    276:        return (dlen + (s - src));      /* count does not include NUL */
                    277: }
                    278: #endif

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>