uspace/app/bithenge/test.c

   1 /*
   2  * Copyright (c) 2012 Sean Bartell
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  *
   9  * - Redistributions of source code must retain the above copyright
  10  *   notice, this list of conditions and the following disclaimer.
  11  * - Redistributions in binary form must reproduce the above copyright
  12  *   notice, this list of conditions and the following disclaimer in the
  13  *   documentation and/or other materials provided with the distribution.
  14  * - The name of the author may not be used to endorse or promote products
  15  *   derived from this software without specific prior written permission.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  18  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  19  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  20  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  21  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  22  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  23  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  24  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  25  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  26  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27  */
  28
  29 /** @addtogroup bithenge
  30  * @{
  31  */
  32 /**
  33  * @file
  34  * Simple program to test Bithenge.
  35  */
  36
  37 #include <errno.h>
  38 #include <stdio.h>
  39 #include <stdlib.h>
  40 #include <stddef.h>
  41 #include <sys/types.h>
  42 #include <bithenge/blob.h>
  43 #include <bithenge/source.h>
  44 #include <bithenge/print.h>
  45 #include <bithenge/script.h>
  46 #include <bithenge/transform.h>
  47 #include <bithenge/tree.h>
  48 #include <bithenge/os.h>
  49
  50 #ifdef __HELENOS__
  51 #include <str_error.h>
  52 #else
  53 #include <string.h>
  54 #define str_error strerror
  55 #endif
  56
  57 int main(int argc, char *argv[])
  58 {
  59         int rc;
  60         if (argc < 3) {
  61                 fprintf(stderr, "Usage: %s <script> <source>\n", argv[0]);
  62                 return 1;
  63         } else {
  64                 bithenge_scope_t *scope = NULL;
  65                 bithenge_transform_t *transform = NULL;
  66                 bithenge_node_t *node = NULL, *node2 = NULL;
  67
  68                 rc = bithenge_scope_new(&scope, NULL);
  69                 if (rc != EOK) {
  70                         printf("Error creating scope: %s\n", str_error(rc));
  71                         scope = NULL;
  72                         goto error;
  73                 }
  74
  75                 rc = bithenge_parse_script(argv[1], &transform);
  76                 if (rc != EOK) {
  77                         printf("Error parsing script: %s\n", str_error(rc));
  78                         transform = NULL;
  79                         goto error;
  80                 }
  81
  82                 rc = bithenge_node_from_source(&node, argv[2]);
  83                 if (rc != EOK) {
  84                         printf("Error creating node from source: %s\n", str_error(rc));
  85                         node = NULL;
  86                         goto error;
  87                 }
  88
  89                 rc = bithenge_transform_apply(transform, scope, node, &node2);
  90                 if (rc != EOK) {
  91                         const char *message = bithenge_scope_get_error(scope);
  92                         printf("Error applying transform: %s\n",
  93                             message ? message : str_error(rc));
  94                         node2 = NULL;
  95                         goto error;
  96                 }
  97
  98                 bithenge_node_dec_ref(node);
  99                 node = NULL;
 100                 bithenge_transform_dec_ref(transform);
 101                 transform = NULL;
 102
 103                 rc = bithenge_print_node(BITHENGE_PRINT_PYTHON, node2);
 104                 if (rc != EOK) {
 105                         const char *message = bithenge_scope_get_error(scope);
 106                         printf("Error printing node: %s\n",
 107                             message ? message : str_error(rc));
 108                         goto error;
 109                 }
 110                 bithenge_node_dec_ref(node2);
 111                 node2 = NULL;
 112                 bithenge_scope_dec_ref(scope);
 113                 scope = NULL;
 114                 printf("\n");
 115
 116                 return 0;
 117
 118 error:
 119                 bithenge_node_dec_ref(node);
 120                 bithenge_node_dec_ref(node2);
 121                 bithenge_transform_dec_ref(transform);
 122                 bithenge_scope_dec_ref(scope);
 123                 return 1;
 124         }
 125
 126         return 0;
 127 }
 128
 129 /** @}
 130  */