Déclarer une variable à partir d'un fichier

char lecture_disk_size[TAILLE_MAX];

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <lua.h>
#include <lauxlib.h>

#define LUA_FILE "lua_disk.lua"
#define DEVICE "/dev/sda"

int main(int argc, char** argv) {
  int error, disk_size;

  /* init de la stack Lua */
  lua_State *ll = luaL_newstate();
  if(!ll) {
    fprintf(stderr, "Unable to create Lua state variable.\n");
    return EXIT_FAILURE;
  }

  /* Chargement des lib Lua */
  luaL_openlibs(ll);

  /* Chargement du script */
  if (luaL_loadfile(ll, LUA_FILE)) {
    fprintf(stderr, "Unable to load the Lua file.\n");
    return EXIT_FAILURE;
  }
  /* Cet appel permet le chargement des variables & co du script lua */
  if (lua_pcall(ll, 0, 0, 0)) {
    fprintf(stderr, "Unable to initialize the lua pcall: '%s'.\n", lua_tostring(ll, -1));
    return EXIT_FAILURE;
  }

  /* preparation de l'appel de la fonction getDiskSize */
  lua_getglobal(ll, "getDiskSize");
  /* passe le nom de la partition en parametre */
  lua_pushlstring(ll, DEVICE, strlen(DEVICE));
  /* appel de la fonction */
  error = lua_pcall(ll, 1, 1, 0);
  if(error) {
    fprintf(stderr, "'getDiskSize'. Error %d ('%s')\n", error, lua_tostring(ll, -1));
    return EXIT_FAILURE;
  }
  /* recuperation du retour de la fonction getDiskSize */
  /* Ici le retour est de type int */
  if (!lua_isnumber(ll, -1)) {
    fprintf(stderr, "function 'getDiskSize' must return a number\n");
    return EXIT_FAILURE;
  }
  disk_size = lua_tointeger(ll, -1);
  lua_pop(ll, 1);  /* depile la valeur retournee */

  printf("Disk size from LUA: %d\n", disk_size);

  /* close les ressources lua */
  lua_close(ll);
  return EXIT_SUCCESS;
}

-- Fonction split recuperee ici : http://snippets.luacode.org/snippets/Split_a_string_into_a_list_5
function split(s,re)
   local i1 = 1
   local ls = {}
   local append = table.insert
   if not re then re = '%s+' end
   if re == '' then return {s} end
   while true do
      local i2,i3 = s:find(re,i1)
      if not i2 then
  local last = s:sub(i1)
  if last ~= '' then append(ls,last) end
  if #ls == 1 and ls[1] == '' then
     return {}
  else
     return ls
  end
      end
      append(ls,s:sub(i1,i2-1))
      i1 = i3+1
   end
end

---
-- Exemple de code fait avec LUA 5.2
-- Attention en LUA un tableau commence par 1 et non 0
-- En LUA >5.2 la taille d'un tableau ce calcul comme suit the_size = #my_array
function getDiskSize(device)
   -- execution de la command systeme
   local f = io.popen("df " .. device .. " | tail -n 1")
   -- lecture de la reponse
   local l = f:read("*a")
   -- fermeture du pipe
   f:close()
   -- split de la reponse pour recuperer le champ Available
   local result = split(l)
   -- conversion du retour en int
   return tonumber(result[4])
end