Default page

Your IP: 216.73.216.142
Server IP: 157.245.101.34
Server: Linux skvinfotech-website 5.4.0-131-generic #147-Ubuntu SMP Fri Oct 14 17:07:22 UTC 2022 x86_64
Server Software: Apache/2.4.41 (Ubuntu)
PHP Version: 7.4.33
Buat File | Buat Folder

Dir : ~/proc/self/root/usr/share/swig4.0/ruby/

View File Name : argcargv.i

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

   Use it as follow:

     %apply (int ARGC, char **ARGV) { (size_t argc, const char **argv) }

     %inline %{

     int mainApp(size_t argc, const char **argv) 
     {
       return argc;
     }

   then in the ruby side:

     args = ["asdf", "asdf2"]
     mainApp(args);

 * ------------------------------------------------------------ */

%typemap(in) (int ARGC, char **ARGV) {
  if (rb_obj_is_kind_of($input,rb_cArray)) {
    int i;
    int size = RARRAY_LEN($input);
    $1 = ($1_ltype) size;
    $2 = (char **) malloc((size+1)*sizeof(char *));
    VALUE *ptr = RARRAY_PTR($input);
    for (i=0; i < size; i++, ptr++) {
      $2[i]= StringValuePtr(*ptr);
    }    
    $2[i]=NULL;
  } else {
    $1 = 0; $2 = 0;
    %argument_fail(SWIG_TypeError, "int ARGC, char **ARGV", $symname, $argnum);
  }
}

%typemap(typecheck, precedence=SWIG_TYPECHECK_STRING_ARRAY) (int ARGC, char **ARGV) {
  $1 = rb_obj_is_kind_of($input,rb_cArray);
}

%typemap(freearg) (int ARGC, char **ARGV) {
  free((char *) $2);
}