Changeset 1707


Ignore:
Timestamp:
Sep 2, 2008, 6:06:42 AM (17 years ago)
Author:
bird
Message:

kmk_expr: Ported expr. Fixes #43.

Location:
trunk/src/kmk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/src/kmk/Makefile.am

    r1705 r1707  
    6161                kmkbuiltin/cp_utils.c \
    6262                kmkbuiltin/echo.c \
     63                kmkbuiltin/expr.c \
    6364                kmkbuiltin/install.c \
    6465                kmkbuiltin/kDepIDB.c \

  • TabularUnified trunk/src/kmk/Makefile.kmk

    r1705 r1707  
    213213        kmkbuiltin/cp_utils.c \
    214214        kmkbuiltin/echo.c \
     215        kmkbuiltin/expr.c \
    215216        kmkbuiltin/install.c \
    216217        kmkbuiltin/kDepIDB.c \
    … …  
    242243        kmk_cmp \
    243244        kmk_echo \
     245        kmk_expr \
    244246        kmk_md5sum \
    245247        kmk_mkdir \
    … …  
    287289kmk_echo_SOURCES = \
    288290        kmkbuiltin/echo.c
     291
     292kmk_expr_TEMPLATE = BIN-KMK
     293kmk_expr_DEFS = kmk_builtin_expr=main
     294kmk_expr_SOURCES = \
     295        kmkbuiltin/expr.c
    289296
    290297kmk_install_TEMPLATE = BIN-KMK

  • TabularUnified trunk/src/kmk/kmkbuiltin.c

    r1705 r1707  
    212212    else if (!strcmp(pszCmd, "cp"))
    213213        rc = kmk_builtin_cp(argc, argv, environ);
     214    else if (!strcmp(pszCmd, "expr"))
     215        rc = kmk_builtin_expr(argc, argv, environ);
    214216    else if (!strcmp(pszCmd, "ln"))
    215217        rc = kmk_builtin_ln(argc, argv, environ);

  • TabularUnified trunk/src/kmk/kmkbuiltin.h

    r1705 r1707  
    4242extern int kmk_builtin_cmp(int argc, char **argv, char **envp);
    4343extern int kmk_builtin_echo(int argc, char **argv, char **envp);
     44extern int kmk_builtin_expr(int argc, char **argv, char **envp);
    4445extern int kmk_builtin_install(int argc, char **argv, char **envp);
    4546extern int kmk_builtin_ln(int argc, char **argv, char **envp);

  • TabularUnified trunk/src/kmk/kmkbuiltin/expr.c

    r1703 r1707  
    1212#include <locale.h>
    1313#include <ctype.h>
     14#ifdef KMK_WITH_REGEX
    1415#include <regex.h>
    15 #include <err.h>
    16 
    17 struct val      *make_int(int);
    18 struct val      *make_str(char *);
    19 void             free_value(struct val *);
    20 int              is_integer(struct val *, int *);
    21 int              to_integer(struct val *);
    22 void             to_string(struct val *);
    23 int              is_zero_or_null(struct val *);
    24 void             nexttoken(int);
    25 __dead void      error(void);
    26 struct val      *eval6(void);
    27 struct val      *eval5(void);
    28 struct val      *eval4(void);
    29 struct val      *eval3(void);
    30 struct val      *eval2(void);
    31 struct val      *eval1(void);
    32 struct val      *eval0(void);
     16#endif
     17#include <setjmp.h>
     18#include <assert.h>
     19#include "err.h"
     20#include "getopt.h"
     21#include "kmkbuiltin.h"
     22
     23static struct val       *make_int(int);
     24static struct val       *make_str(char *);
     25static void              free_value(struct val *);
     26static int               is_integer(struct val *, int *);
     27static int               to_integer(struct val *);
     28static void              to_string(struct val *);
     29static int               is_zero_or_null(struct val *);
     30static void              nexttoken(int);
     31static __dead void       error(void);
     32static struct val       *eval6(void);
     33static struct val       *eval5(void);
     34static struct val       *eval4(void);
     35static struct val       *eval3(void);
     36static struct val       *eval2(void);
     37static struct val       *eval1(void);
     38static struct val       *eval0(void);
    3339
    3440enum token {
    … …  
    4955};
    5056
    51 enum token      token;
    52 struct val     *tokval;
    53 char          **av;
    54 
    55 struct val *
     57static enum token       token;
     58static struct val     *tokval;
     59static char           **av;
     60static jmp_buf          g_expr_jmp;
     61static void           **recorded_allocations;
     62static int              num_recorded_allocations;
     63
     64
     65static void expr_mem_record_alloc(void *ptr)
     66{
     67        if (!(num_recorded_allocations & 31)) {
     68                void *newtab = realloc(recorded_allocations, (num_recorded_allocations + 33) * sizeof(void *));
     69                if (!newtab)
     70                        longjmp(g_expr_jmp, err(3, NULL));
     71                recorded_allocations = (void **)newtab;
     72        }
     73        recorded_allocations[num_recorded_allocations++] = ptr;
     74}
     75
     76
     77static void expr_mem_record_free(void *ptr)
     78{
     79        int i = num_recorded_allocations;
     80        while (i-- > 0)
     81                if (recorded_allocations[i] == ptr) {
     82                        num_recorded_allocations--;
     83                        recorded_allocations[i] = recorded_allocations[num_recorded_allocations];
     84                        return;
     85                }
     86        assert(i >= 0);
     87}
     88
     89static void expr_mem_init(void)
     90{
     91        num_recorded_allocations = 0;
     92        recorded_allocations = NULL;
     93}
     94
     95static void expr_mem_cleanup(void)
     96{
     97        if (recorded_allocations) {
     98                while (num_recorded_allocations-- > 0)
     99                        free(recorded_allocations[num_recorded_allocations]);
     100                free(recorded_allocations);
     101                recorded_allocations = NULL;
     102        }
     103}
     104
     105
     106static struct val *
    56107make_int(int i)
    57108{
    … …  
    59110
    60111        vp = (struct val *) malloc(sizeof(*vp));
    61         if (vp == NULL) {
    62                 err(3, NULL);
    63         }
     112        if (vp == NULL)
     113                longjmp(g_expr_jmp, err(3, NULL));
     114        expr_mem_record_alloc(vp);
    64115        vp->type = integer;
    65116        vp->u.i = i;
    … …  
    68119
    69120
    70 struct val *
     121static struct val *
    71122make_str(char *s)
    72123{
    … …  
    74125
    75126        vp = (struct val *) malloc(sizeof(*vp));
    76         if (vp == NULL || ((vp->u.s = strdup(s)) == NULL)) {
    77                 err(3, NULL);
    78         }
     127        if (vp == NULL || ((vp->u.s = strdup(s)) == NULL))
     128                longjmp(g_expr_jmp, err(3, NULL));
     129        expr_mem_record_alloc(vp->u.s);
     130        expr_mem_record_alloc(vp);
    79131        vp->type = string;
    80132        return vp;
    … …  
    82134
    83135
    84 void
     136static void
    85137free_value(struct val *vp)
    86138{
    87         if (vp->type == string)
     139        if (vp->type == string) {
     140                expr_mem_record_free(vp->u.s);
    88141                free(vp->u.s);
     142        }
    89143        free(vp);
     144        expr_mem_record_free(vp);
    90145}
    91146
    92147
    93148/* determine if vp is an integer; if so, return it's value in *r */
    94 int
     149static int
    95150is_integer(struct val *vp, int *r)
    96151{
    … …  
    134189
    135190/* coerce to vp to an integer */
    136 int
     191static int
    137192to_integer(struct val *vp)
    138193{
    … …  
    143198
    144199        if (is_integer(vp, &r)) {
     200                expr_mem_record_free(vp->u.s);
    145201                free(vp->u.s);
    146202                vp->u.i = r;
    … …  
    154210
    155211/* coerce to vp to an string */
    156 void
     212static void
    157213to_string(struct val *vp)
    158214{
    … …  
    163219
    164220        if (asprintf(&tmp, "%d", vp->u.i) == -1)
    165                 err(3, NULL);
     221                longjmp(g_expr_jmp, err(3, NULL));
     222        expr_mem_record_alloc(tmp);
    166223
    167224        vp->type = string;
    … …  
    169226}
    170227
    171 int
     228static int
    172229is_zero_or_null(struct val *vp)
    173230{
    … …  
    180237}
    181238
    182 void
     239static void
    183240nexttoken(int pat)
    184241{
    … …  
    220277}
    221278
    222 __dead void
     279static void
    223280error(void)
    224281{
    225         errx(2, "syntax error");
     282        longjmp(g_expr_jmp, errx(2, "syntax error"));
    226283        /* NOTREACHED */
    227284}
    228285
    229 struct val *
     286static struct val *
    230287eval6(void)
    231288{
    … …  
    253310
    254311/* Parse and evaluate match (regex) expressions */
    255 struct val *
     312static struct val *
    256313eval5(void)
    257314{
     315#ifdef KMK_WITH_REGEX
    258316        regex_t         rp;
    259317        regmatch_t      rm[2];
    … …  
    275333                if ((eval = regcomp(&rp, r->u.s, 0)) != 0) {
    276334                        regerror(eval, &rp, errbuf, sizeof(errbuf));
    277                         errx(2, "%s", errbuf);
     335                        longjmp(g_expr_jmp, errx(2, "%s", errbuf));
    278336                }
    279337
    … …  
    305363
    306364        return l;
     365#else
     366        longjmp(g_expr_jmp, errx(2, "regex not supported, sorry."));
     367#endif
    307368}
    308369
    309370/* Parse and evaluate multiplication and division expressions */
    310 struct val *
     371static struct val *
    311372eval4(void)
    312373{
    … …  
    320381
    321382                if (!to_integer(l) || !to_integer(r)) {
    322                         errx(2, "non-numeric argument");
     383                        longjmp(g_expr_jmp, errx(2, "non-numeric argument"));
    323384                }
    324385
    … …  
    327388                } else {
    328389                        if (r->u.i == 0) {
    329                                 errx(2, "division by zero");
     390                                longjmp(g_expr_jmp, errx(2, "division by zero"));
    330391                        }
    331392                        if (op == DIV) {
    … …  
    343404
    344405/* Parse and evaluate addition and subtraction expressions */
    345 struct val *
     406static struct val *
    346407eval3(void)
    347408{
    … …  
    355416
    356417                if (!to_integer(l) || !to_integer(r)) {
    357                         errx(2, "non-numeric argument");
     418                        longjmp(g_expr_jmp, errx(2, "non-numeric argument"));
    358419                }
    359420
    … …  
    371432
    372433/* Parse and evaluate comparison expressions */
    373 struct val *
     434static struct val *
    374435eval2(void)
    375436{
    … …  
    444505
    445506/* Parse and evaluate & expressions */
    446 struct val *
     507static struct val *
    447508eval1(void)
    448509{
    … …  
    467528
    468529/* Parse and evaluate | expressions */
    469 struct val *
     530static struct val *
    470531eval0(void)
    471532{
    … …  
    490551
    491552int
    492 main(int argc, char *argv[])
     553kmk_builtin_expr(int argc, char *argv[], char **envp)
    493554{
    494555        struct val     *vp;
    495 
     556        int rval;
     557
     558        /* re-init globals */
     559        token = 0;
     560        tokval = 0;
     561        av = 0;
     562        expr_mem_init();
     563
     564#ifdef kmk_builtin_expr /* kmk already does this. */
    496565        (void) setlocale(LC_ALL, "");
     566#endif
    497567
    498568        if (argc > 1 && !strcmp(argv[1], "--"))
    … …  
    501571        av = argv + 1;
    502572
    503         nexttoken(0);
    504         vp = eval0();
    505 
    506         if (token != EOI) {
    507                 error();
    508                 /* NOTREACHED */
    509         }
    510 
    511         if (vp->type == integer)
    512                 printf("%d\n", vp->u.i);
    513         else
    514                 printf("%s\n", vp->u.s);
    515 
    516         exit(is_zero_or_null(vp));
    517 }
     573        rval = setjmp(g_expr_jmp);
     574        if (!rval) {
     575                nexttoken(0);
     576                vp = eval0();
     577       
     578                if (token != EOI) {
     579                        error();
     580                        /* NOTREACHED */
     581                }
     582       
     583                if (vp->type == integer)
     584                        printf("%d\n", vp->u.i);
     585                else
     586                        printf("%s\n", vp->u.s);
     587       
     588                rval = is_zero_or_null(vp);
     589        }
     590        /* else: longjmp */
     591
     592        /* cleanup */
     593        expr_mem_cleanup();
     594        return rval;
     595}

  • TabularUnified trunk/src/kmk/variable.c

    r1706 r1707  
    13111311#ifdef CONFIG_WITH_KMK_BUILTIN
    13121312  /* The supported kMk Builtin commands. */
    1313   (void) define_variable ("KMK_BUILTIN", 11, "append cat chmod cp cmp echo install kDepIDB ln md5sum mkdir mv printf rm rmdir test", o_default, 0);
     1313  (void) define_variable ("KMK_BUILTIN", 11, "append cat chmod cp cmp echo expr install kDepIDB ln md5sum mkdir mv printf rm rmdir test", o_default, 0);
    13141314#endif
    13151315
Note: See TracChangeset for help on using the changeset viewer.