mpsl_m.c

   1 /*
   2
   3     MPSL - Minimum Profit Scripting Language
   4     Copyright (C) 2003/2010 Angel Ortega <angel@triptico.com>
   5
   6     mpsl_m.c - Minimum Profit Scripting Language main()
   7
   8     This program is free software; you can redistribute it and/or
   9     modify it under the terms of the GNU General Public License
  10     as published by the Free Software Foundation; either version 2
  11     of the License, or (at your option) any later version.
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16     GNU General Public License for more details.
  17
  18     You should have received a copy of the GNU General Public License
  19     along with this program; if not, write to the Free Software
  20     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21
  22     http://www.triptico.com
  23
  24 */
  25
  26 #include "config.h"
  27
  28 #include <stdio.h>
  29 #include <string.h>
  30 #include <wchar.h>
  31 #include "mpdm.h"
  32 #include "mpsl.h"
  33
  34
  35 /** code **/
  36
  37 mpdm_t trap_func(mpdm_t args, mpdm_t ctxt)
  38 {
  39     mpdm_t c = mpdm_aget(args, 0);
  40     mpdm_t r = mpdm_aget(args, 2);
  41
  42     printf("-- Code ---------------\n");
  43     mpdm_dump(c);
  44     printf("-- Ret  ---------------\n");
  45     mpdm_dump(r);
  46
  47     printf("Press ENTER\n");
  48     getchar();
  49
  50     return NULL;
  51 }
  52
  53
  54 int mpsl_main(int argc, char *argv[])
  55 {
  56     mpdm_t v = NULL;
  57     mpdm_t w = NULL;
  58     char *immscript = NULL;
  59     FILE *script = stdin;
  60     int ret = 0;
  61     int dump_only = 0;
  62     int install_trap = 0;
  63
  64     /* skip the executable */
  65     argv++;
  66     argc--;
  67
  68     while (argc > 0) {
  69         if (strcmp(argv[0], "-v") == 0 || strcmp(argv[0], "--help") == 0) {
  70             printf("MPSL %s - Minimum Profit Scripting Language\n",
  71                    VERSION);
  72             printf("Copyright (C) 2003-2010 Angel Ortega <angel@triptico.com>\n");
  73             printf("This software is covered by the GPL license. NO WARRANTY.\n\n");
  74
  75             printf("Usage: mpsl [-d | -s] [-e 'script' | script.mpsl ]\n\n");
  76
  77             return 0;
  78         }
  79         else
  80         if (strcmp(argv[0], "-d") == 0)
  81             dump_only = 1;
  82         else
  83         if (strcmp(argv[0], "-s") == 0)
  84             install_trap = 1;
  85         else
  86         if (strcmp(argv[0], "-e") == 0) {
  87             argv++;
  88             argc--;
  89             immscript = argv[0];
  90         }
  91         else {
  92             /* next argument is a script name; open it */
  93             if ((script = fopen(argv[0], "r")) == NULL) {
  94                 fprintf(stderr, "Can't open '%s'\n", argv[0]);
  95                 return 1;
  96             }
  97         }
  98
  99         argv++;
 100         argc--;
 101     }
 102
 103     mpsl_startup();
 104
 105     /* set arguments */
 106     mpsl_argv(argc, argv);
 107
 108     if (install_trap)
 109         mpsl_trap(MPDM_X(trap_func));
 110
 111     /* compile */
 112     if (immscript != NULL) {
 113         w = mpdm_ref(MPDM_MBS(immscript));
 114         v = mpsl_compile(w);
 115         w = mpdm_unref(w);
 116     }
 117     else {
 118         int c;
 119
 120         /* if line starts with #!, discard it */
 121         if ((c = getc(script)) == '#' && (c = getc(script)) == '!')
 122             while ((c = getc(script)) != EOF && c != '\n');
 123         else
 124             ungetc(c, script);
 125
 126         if (c != EOF) {
 127             w = mpdm_ref(MPDM_F(script));
 128             v = mpsl_compile_file(w, NULL);
 129             mpdm_close(w);
 130             w = mpdm_unref(w);
 131         }
 132     }
 133
 134     if (v != NULL) {
 135         mpdm_ref(v);
 136
 137         if (dump_only)
 138             mpdm_dump(v);
 139         else
 140             mpdm_void(mpdm_exec(v, NULL, NULL));
 141
 142         mpdm_unref(v);
 143     }
 144
 145     /* prints the error, if any */
 146     if ((w = mpdm_hget_s(mpdm_root(), L"ERROR")) != NULL) {
 147         mpdm_write_wcs(stderr, mpdm_string(w));
 148         fprintf(stderr, "\n");
 149
 150         ret = 1;
 151     }
 152
 153     mpsl_shutdown();
 154
 155     return ret;
 156 }
 157
 158
 159 int main(int argc, char *argv[])
 160 {
 161     return mpsl_main(argc, argv);
 162 }