mpsl_m.c

   1 /*
   2
   3     MPSL - Minimum Profit Scripting Language
   4     Copyright (C) 2003/2007 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
  38 int mpsl_main(int argc, char * argv[])
  39 {
  40         mpdm_t v;
  41         char * immscript = NULL;
  42         FILE * script = stdin;
  43         int ret = 0;
  44         int dump_only = 0;
  45
  46         /* skip the executable */
  47         argv++; argc--;
  48
  49         while(argc > 0)
  50         {
  51                 if(strcmp(argv[0], "-v") == 0 ||
  52                    strcmp(argv[0], "--help") == 0)
  53                 {
  54                         printf("MPSL %s - Minimum Profit Scripting Language\n", VERSION);
  55                         printf("Copyright (C) 2003-2007 Angel Ortega <angel@triptico.com>\n");
  56                         printf("This software is covered by the GPL license. NO WARRANTY.\n\n");
  57
  58                         printf("Usage: mpsl [-d] [-e 'script' | script.mpsl ]\n\n");
  59
  60                         return(0);
  61                 }
  62                 else
  63                 if(strcmp(argv[0], "-d") == 0)
  64                         dump_only = 1;
  65                 else
  66                 if(strcmp(argv[0], "-e") == 0)
  67                 {
  68                         argv++; argc--;
  69                         immscript = argv[0];
  70                 }
  71                 else
  72                 {
  73                         /* next argument is a script name; open it */
  74                         if((script = fopen(argv[0], "r")) == NULL)
  75                         {
  76                                 fprintf(stderr, "Can't open '%s'\n", argv[0]);
  77                                 return(1);
  78                         }
  79                 }
  80
  81                 argv++; argc--;
  82         }
  83
  84         mpsl_startup();
  85
  86         /* set arguments */
  87         mpsl_argv(argc, argv);
  88
  89         /* compile */
  90         if(immscript != NULL)
  91                 v = mpsl_compile(MPDM_MBS(immscript));
  92         else
  93                 v = mpsl_compile_file(MPDM_F(script));
  94
  95         if(v != NULL)
  96         {
  97                 if(dump_only)
  98                         mpdm_dump(v);
  99                 else
 100                         mpdm_exec(v, NULL);
 101         }
 102
 103         /* prints the error, if any */
 104         if((v = mpsl_error(NULL)) != NULL)
 105         {
 106                 mpdm_write_wcs(stderr, mpdm_string(v));
 107                 fprintf(stderr, "\n");
 108
 109                 ret = 1;
 110         }
 111
 112         mpsl_shutdown();
 113
 114         return(ret);
 115 }
 116
 117
 118 int main(int argc, char * argv[])
 119 {
 120         return(mpsl_main(argc, argv));
 121 }