COME ON CODERS!

argumentos a partir de los resultados. Si la función no tiene resultados, el `> 'es opcional.

    # Incluir <stdarg.h>
   
    call_va Vacío (* const char Función, sig const char *, ...) (
      va_list vl;
      narg int, nres; / * Número de Argumentos Y RESULTADOS * /
   
      va_start (vl, sig);
      lua_getglobal (L, func); / * * Función obtener la /
   
      / Push Argumentos * * /
      narg = 0;
      while () * SIG (/ Empuje * Argumentos * /
        switch (* sig + +) (
   
          case 'd': / * Argumento de doble /
            lua_pushnumber (L, va_arg (vl, doble));
            break;
   
          case 'i': / * int Argumento /
            lua_pushnumber (L, va_arg (vl, int));
            break;
   
          case 's': / * Argumento de Cadena /
            lua_pushstring (L, va_arg (vl, char *));
            break;
   
          Caso '>':
            goto finalwhile;
   
          Por defecto:
            error (L "Opcion no valida (% c)", * (sig - 1));
        )
        narg + +;
        luaL_checkstack (L, 1, "demasiados Argumentos");
      Endwhile):
   
      / * * Hacer la Llamada /
      nres = strlen (sig); / * Número de * RESULTADOS esperados /
      if (lua_pcall (L, narg, nres, 0)! = 0) / * * Hacer la Llamada /
        error (L-Función de error ejecutando `% s ':% s",
                func, lua_tostring (L, -1));
   
      / * * Recuperar RESULTADOS /
      nres =- nres; / * Índice de pila * resultados por cebado /
      while () * SIG (/ * obtener RESULTADOS * /
        switch (* sig + +) (
   
          case 'd': / * * resultados por doble /
            if (! lua_isnumber (L, nres))
              error (L ", ESCRIBA resultados por mal de las Naciones Unidas");
            * Va_arg (vl, double *) lua_tonumber = (L, nres);
            break;
   
          case 'i': / * los resultados por int /
            if (! lua_isnumber (L, nres))
              error (L ", ESCRIBA resultados por mal de las Naciones Unidas");
            * Va_arg (vl, int *) = (int) lua_tonumber (L, nres);
            break;
   
          case 's': / * Cadena resultados por /
            if (! lua_isstring (L, nres))
              error (L ", ESCRIBA resultados por mal de las Naciones Unidas");
            * Va_arg (vl, const char **) lua_tostring = (L, nres);
            break;
   
          Por defecto:
            error (L "Opcion no valida (% c)", * (sig - 1));
        )
        nres + +;
      )
      va_final (vl);
    )