root/lu/lub.lua

--------------------------------------------------------------------------------
-- Title:               lua
-- Description:         Like a square peg in a round hole
-- Author:              Raphaël Szwarc http://alt.textdrive.com/lua/
-- Creation Date:       February 1, 2005
-- Legal:               Copyright (C) 2005 Raphaël Szwarc
--------------------------------------------------------------------------------

-- Constants
local CompileCommand = "gcc -O2 -fno-common -c -o"
local LinkCommand = "gcc -bundle -undefined dynamic_lookup -o"

local SourceSuffix = ".c"
local ObjectSuffix = ".o"
local ModuleSuffix = ".so"

local DataPath = "./lubfile"

-- Variables
local _data = nil

-- Functions

local data = function()
        if _data == nil then
                local aFile = io.open( DataPath, "r" )

                if aFile ~= nil then
                        local aContent = aFile:read( "*all" )

                        aFile:close()
                        
                        if aContent ~= nil then
                                local aChunk, aStatus = loadstring( "return " .. aContent )

                                if aStatus == nil then
                                        _data = aChunk()
                                else
                                        print( "(warning) data: failed to load data '" .. aStatus .. "'" )
                                        os.exit( 1 )
                               end
                        else
                                print( "(warning) data: empty file '" .. DataPath .. "'" )
                                os.exit( 1 )
                        end
                else
                        print( "(warning) data: no data found in '" .. DataPath .. "'" )
                        os.exit( 1 )
                end
        end
        
        return _data
end

local moduleName = function()
        local someData = data()
        
        if someData ~= nil then
                local aName = someData[ "module.name" ]
                
                if aName ~= nil then
                        return aName
                else
                        print( "(warning) moduleName: no module name found" )
                        os.exit( 1 )
                end
        else
                print( "(warning) moduleName: no data found" )
                os.exit( 1 )
        end
end

local objectNames = function()
        local someData = data()
        
        if someData ~= nil then
                local someNames = someData[ "object.names" ]
                
                if someNames ~= nil and table.getn( someNames ) > 0 then
                        return someNames
                else
                        print( "(warning) objectNames: no object names found" )
                        os.exit( 1 )
                end
        else
                print( "(warning) objectNames: no data found" )
                os.exit( 1 )
        end
end

local clean = function( cleanModule )
        local someObjectNames = objectNames()
        
        if someObjectNames ~= nil then
                local count = table.getn( someObjectNames )

                for index = 1, count do
                        local aName = someObjectNames[ index ]
                        local aCommand = aName .. ObjectSuffix

                        -- print ( "(info) clean: '" .. aCommand .. "'" )

                        os.remove( aCommand )
                end
        else
                print( "(warning) clean: no object names found" )
                os.exit( 1 )
        end
        
        if cleanModule == true then
                local aModuleName = moduleName()
                
                if aModuleName ~= nil then
                        local aCommand = aModuleName .. ModuleSuffix

                        -- print ( "(info) clean: '" .. aCommand .. "'" )
                        
                        os.remove( aCommand )
                else
                        print( "(warning) clean: no module name found" )
                        os.exit( 1 )
                end
        end
end

local compileCommandWithName = function( aName )
        if aName ~= nil then
                local aBuffer = {}

                table.insert( aBuffer, CompileCommand )
                
                table.insert( aBuffer, aName .. ObjectSuffix )
                table.insert( aBuffer, aName .. SourceSuffix )

                return table.concat( aBuffer, " " )
        else
                print( "(warning) compileCommandWithName: empty name" )
                os.exit( 1 )
        end
end

local compile = function()
        local someObjectNames = objectNames()
        
        if someObjectNames ~= nil then
                local count = table.getn( someObjectNames )

                for index = 1, count do
                        local aName = someObjectNames[ index ]
                        local aCommand = compileCommandWithName( aName )
                        
                        print ( "(info) compile: '" .. aCommand .. "'" )
                        os.execute( aCommand )
                end
        else
                print( "(warning) compile: no object names found" )
                os.exit( 1 )
        end
end

local link = function()
        local aModuleName = moduleName()
        
        if aModuleName ~= nil then
                local someObjectNames = objectNames()
                
                if someObjectNames ~= nil then
                        local aCommand = nil
                        local aBuffer = {}
                        local count = table.getn( someObjectNames )
                        
                        table.insert( aBuffer, LinkCommand )
                        table.insert( aBuffer, aModuleName .. ModuleSuffix )
        
                        for index = 1, count do
                                local aName = someObjectNames[ index ]

                                table.insert( aBuffer, aName .. ObjectSuffix )
                        end
                        
                        aCommand = table.concat( aBuffer, " " )

                        print ( "(info) link: '" .. aCommand .. "'" )

                        os.execute( aCommand )
                else
                        print( "(warning) link: no object names found" )
                        os.exit( 1 )
                end
        else
                print( "(warning) link: no module name found" )
                os.exit( 1 )
        end
end

clean()
compile()
link()
clean( false )