Method get_function_args

src/SchemeFFI.cpp:2334–2383

  }

  pointer SchemeFFI::get_function_args(scheme* _sc, pointer args)
  {
    using namespace llvm;

    //Module* M = EXTLLVM::I()->M;
    //llvm::Function* func = M->getFunction(std::string(string_value(pair_car(args))));
    llvm::Function* func = extemp::EXTLLVM::I()->getFunction(std::string(string_value(pair_car(args))));    
    if(func == 0)
      {
        return _sc->F;
      }

    std::string typestr;
    llvm::raw_string_ostream ss(typestr);
    func->getReturnType()->print(ss);

    const char* tmp_name = ss.str().c_str();

    if(func->getReturnType()->isStructTy()) {
      rsplit(" = type ",(char*)tmp_name,tmp_str_a,tmp_str_b);
      tmp_name = tmp_str_a;
    }

    pointer str = mk_string(_sc, tmp_name); //_sc, ss.str().c_str()); //func->getReturnType()->getDescription().c_str());
    pointer p = cons(_sc, str, _sc->NIL); 

    Function::ArgumentListType::iterator funcargs = func->getArgumentList().begin();
    while(funcargs != func->getArgumentList().end())
      {			
        Argument* a = funcargs;
        _sc->imp_env->insert(p);					
        std::string typestr2;
        llvm::raw_string_ostream ss2(typestr2);
        a->getType()->print(ss2);

        tmp_name = ss2.str().c_str();

        if(a->getType()->isStructTy()) {	      
          rsplit(" = type ",(char*)tmp_name,tmp_str_a,tmp_str_b);
          //printf("tmp:%s  a:%s  b:%s\n",(char*)tmp_name,tmp_str_a,tmp_str_b);
          tmp_name = tmp_str_a;
        }

        pointer str = mk_string(_sc, tmp_name); //_sc, ss2.str().c_str()); //a->getType()->getDescription().c_str());
        _sc->imp_env->erase(p);
        p = cons(_sc, str, p);			
        funcargs++;
      }
    return reverse(_sc, p);				
  }

    pointer SchemeFFI::remove_global_var(scheme* _sc, pointer args)
    {