release/src/router/usbmodeswitch/dispatcher.c

   1 /*
   2  * Copyright (c) 2011-2013 Josua Dietze, usb_modeswitch version 2.0.0
   3  * Contains code under
   4  * Copyright (c) 2010 Wojciech A. Koszek <wkoszek@FreeBSD.org>
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  *
  28  * $Id$
  29  */
  30 #include <assert.h>
  31 #include <stdio.h>
  32 #include <string.h>
  33 #include <stdlib.h>
  34
  35 #include <jim.h>
  36
  37 /* RAW is defined to the complete Tcl code in that file: */
  38 #include "usb_modeswitch.string"
  39
  40 #define MAX_ARGSIZE 1024
  41
  42 int main(int argc, char **argv)
  43 {
  44         int i, retval;
  45         char arg[MAX_ARGSIZE];
  46         char arglist[MAX_ARGSIZE];
  47
  48         Jim_Interp *interp;
  49
  50         interp = NULL;
  51         arglist[0] = '\0';
  52
  53         for (i=1; i<argc; i++) {
  54                 if (strlen(argv[i]) > MAX_ARGSIZE-4) {
  55                         printf("Argument #%d extends maximum size, skip it\n", i);
  56                         continue;
  57                 }
  58                 if ( (strlen(arglist) + strlen(argv[i])) > MAX_ARGSIZE-4) {
  59                         printf("Argument #%d would extend maximum list size, skip it\n", i);
  60                         continue;
  61                 }
  62                 sprintf(arg,"{%s} ",argv[i]);
  63                 strncat(arglist,arg,MAX_ARGSIZE-1);
  64         }
  65
  66         char code[sizeof(RAW) + sizeof(arglist) + 28];
  67         sprintf(code, "set argv {%s}\nset argc %d\n", arglist, argc-1);
  68         strncat(code, RAW, sizeof(RAW));
  69
  70         /* Create Jim instance */
  71         interp = Jim_CreateInterp();
  72         assert(interp != NULL && "Could not create interpreter!");
  73
  74         /* Register base commands, actually implementing Tcl */
  75         Jim_RegisterCoreCommands(interp);
  76
  77         /* Initialize any static extensions */
  78         Jim_InitStaticExtensions(interp);
  79
  80         /* Evaluate the script that's now in "code" */
  81         retval = Jim_Eval(interp, code);
  82         if (retval < 0)
  83                 printf("Evaluation returned error %d\n", retval);
  84
  85         /* Free the interpreter */
  86         Jim_FreeInterp(interp);
  87         return (EXIT_SUCCESS);
  88 }