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)
  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", VERSION);
  71                         printf("Copyright (C) 2003-2010 Angel Ortega <angel@triptico.com>\n");
  72                         printf
  73                             ("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_unref(mpdm_ref(mpdm_exec(v, 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 }