Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / devtools / v8plus / share / swig / 1.3.26 / python / argcargv.i

/* ------------------------------------------------------------
* --- Argc & Argv ---
* ------------------------------------------------------------ */

%fragment("SWIG_AsArgcArgv","header",
         fragment="SWIG_AsCharPtr") {
SWIGINTERN char**
 SWIG_AsArgcArgv(PyObject* input,
                 swig_type_info* ppchar_info,
                 size_t* argc, int* owner)
{  
 char **argv = 0;
 size_t i = 0;
 if (SWIG_ConvertPtr(input, (void **)&argv, ppchar_info, 0) == -1) {
   int list = 0;
   PyErr_Clear();
   list = PyList_Check(input);
   if (list || PyTuple_Check(input)) {
     *argc = list ? PyList_Size(input) : PyTuple_Size(input);
     argv = SWIG_new_array(*argc + 1, char*);
     *owner = 1;
     for (; i < *argc; ++i) {
       PyObject *obj = list ? PyList_GetItem(input,i) : PyTuple_GetItem(input,i);
       if (!SWIG_AsCharPtr(obj, &(argv[i]))) {
         PyErr_Clear();
         PyErr_SetString(PyExc_TypeError,"list or tuple must contain strings only");
       }
     }
     argv[i] = 0;
     return argv;
   } else {
     *argc = 0;
     PyErr_SetString(PyExc_TypeError,"a list or tuple is expected");
     return 0;
   }
 } else {
   /* seems dangerous, but the user asked for it... */
   while (argv[i] != 0) ++i;
   *argc = i;
   owner = 0;
   return argv;
 }
}
}

/*
 This typemap works with either a char**, a python list or a python
 tuple
*/

%typemap(in,fragment="SWIG_AsArgcArgv") (int ARGC, char **ARGV)
 (int owner) {
 size_t argc = 0;
 char **argv = SWIG_AsArgcArgv($input, $descriptor(char**), &argc, &owner);
 if (PyErr_Occurred()) { 
   $1 = 0; $2 = 0;
   if (SWIG_arg_fail($argnum)) SWIG_fail;
 } else {  
   $1 = ($1_ltype) argc;
   $2 = ($2_ltype) argv;
 }
}

%typemap(freearg) (int ARGC, char **ARGV)  {
 if (owner$argnum) SWIG_delete_array($2);
}