contrib/libjeffpc/test_sexpr_parser.c

   1 /*
   2  * Copyright (c) 2015-2016 Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining a copy
   5  * of this software and associated documentation files (the "Software"), to deal
   6  * in the Software without restriction, including without limitation the rights
   7  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
   8  * copies of the Software, and to permit persons to whom the Software is
   9  * furnished to do so, subject to the following conditions:
  10  *
  11  * The above copyright notice and this permission notice shall be included in
  12  * all copies or substantial portions of the Software.
  13  *
  14  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  15  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  16  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  17  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  18  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  19  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  20  * SOFTWARE.
  21  */
  22
  23 #include <stdlib.h>
  24
  25 #include <jeffpc/error.h>
  26 #include <jeffpc/sexpr.h>
  27 #include <jeffpc/str.h>
  28 #include <jeffpc/val.h>
  29 #include <jeffpc/io.h>
  30 #include <jeffpc/jeffpc.h>
  31
  32 static int onefile(char *ibuf, size_t len)
  33 {
  34         struct val *lv;
  35
  36         lv = sexpr_parse(ibuf, len);
  37
  38         sexpr_dump_file(stderr, lv, false);
  39         fprintf(stderr, "\n");
  40
  41         return 0;
  42 }
  43
  44 int main(int argc, char **argv)
  45 {
  46         char *in;
  47         int i;
  48         int result;
  49
  50         result = 0;
  51
  52         ASSERT0(putenv("UMEM_DEBUG=default,verbose"));
  53
  54         jeffpc_init(NULL);
  55
  56         for (i = 1; i < argc; i++) {
  57                 in = read_file(argv[i]);
  58                 ASSERT(!IS_ERR(in));
  59
  60                 if (onefile(in, strlen(in)))
  61                         result = 1;
  62
  63                 free(in);
  64         }
  65
  66         return result;
  67 }