Jump to content

ERROR: Loading script failed: [gamemodes]\MTABS-master\buildResource.Lua:6: Unexpected Symbol near '='


VORT3X

Recommended Posts

local defaults = {}
 
local function loadDefaults ()
    defaults.luac = get 'luac',
    defaults.prep = get 'prep',
    defaults.prepa = get 'prepa',
    defaults.prepcache = get 'prepcache',
    defaults.luaccache = get 'luaccache',
    defaults.suffix = get 'suffix',
    defaults.extension = get 'extension',
    defaults.naming = get 'naming',--order is important, e=strip extension, s=add suffix, t=replace with target if target exists
    defaults.tgt = '',  
end
loadDefaults()
 
local function validateSetting ( key, value )
    --TODO: create setting validator
end
 
local function processName ( name, naming, extension, suffix, target )
    extension = extension or ''
    suffix = suffix or ''
    target = target or ''
    for directive in naming:gmatch '.' do
        if directive == 'e' then
            --extension is escaped and anchored to the string's end first
            name = name:gsub ( extension:gsub ( '%W''%%%1' ) .. '$''' )--remove extension
        elseif directive == 's' then
            name = name .. suffix--adds suffix
        elseif directive == 't' then
            name = #tgt > 0 and tgt or name--replace with target
        else
            outputDebugString ( "invalid naming directive: " .. directive, 2 )
        end
    end
    return name
end
 
function processResource ( resourceName )
    local metaxml = XML.load ( ':' .. resourceName .. '/meta.xml' ) or error "failed loading meta.xml"
    local defaults = {
        luac = get 'luac',
        prep = get 'prep',
        prepa = get 'prepa',
        prepcache = get 'prepcache',
        luaccache = get 'luaccache',
        suffix = get 'suffix',
        extension = get 'extension',
        naming = get 'naming',--order is important, e=strip extension, s=add suffix, t=replace with target if target exists
        tgt = '',
    }
    for l1i, l1node in ipairs ( metaxml.children ) do
        outputDebugString ( l1i .. ":" .. l1node.name )
        if l1node.name == 'build' then
            for l2i, l2node in ipairs ( l1node.children ) do
                outputDebugString ( l2node.name )
                if l2node.name == 'setting' then--update build settings
                    local k, v = l2node:getAttribute 'key', l2node:getAttribute 'value'
                    defaults [ k ] = v
                elseif l2node.name == 'obj' then--build directives for a file
                    local src = l2node:getAttribute 'src' or error 'no src attribute'
                    local tgt = l2node:getAttribute 'tgt' or defaults.tgt
                    local luac = l2node:getAttribute 'luac' or defaults.luac
                    local prep = l2node:getAttribute 'prep' or defaults.prep
                    local prepa = l2node:getAttribute 'prepa' or defaults.prepa
                    local luaccache = l2node:getAttribute 'luaccache' or defaults.luaccache
                    local prepcache = l2node:getAttribute 'prepcache' or defaults.prepcache
                    local naming = l2node:getAttribute 'naming' or defaults.naming
                    local extension = l2node:getAttribute 'extension' or defaults.extension
                    local suffix = l2node:getAttribute 'suffix' or defaults.suffix
                    
                    local out = src
                    local srcf = File ( ':' .. resourceName .. '/' .. src, true )
                    local buffer = srcf:read ( srcf:getSize () )
                    buffer = prep == '1' and getPreProcessed (
                            buffer,
                            loadstring ( 'return ' .. prepa ) ()
                        ) or buffer
                    for directive in naming:gmatch '.' do
                        if directive == 'e' then
                            --extension is escaped and anchored to the string's end first
                            out = out:gsub ( extension:gsub ( '%W''%%%1' ) .. '$''' )--remove extension
                        elseif directive == 's' then
                            out = out .. suffix--adds suffix
                        elseif directive == 't' then
                            out = #tgt > 0 and tgt or out--replace with target
                        else
                            outputDebugString ( "invalid naming directive: " .. directive, 2 )
                        end
                    end
                    outputDebugString ( 'out: ' .. tostring ( out ) )
                    assert ( out ~= src, "Output file is same as input, build aborted to prevent information loss" )
                    --TODO: send to compiler
                    
                    ---[[
                    out = ':' .. resourceName .. '/' .. out
                    File.delete ( out )--remove previous output
                    local outf = File.new ( out )
                    outf:write ( buffer )
                    outf:close ()
                    --]]
                    outputDebugString ( "processed " .. src .. " to " .. out )
                end
            end
        end
    end
    return true
end
Link to comment
defaults.luac = get 'luac',
defaults.prep = get 'prep',
defaults.prepa = get 'prepa',
defaults.prepcache = get 'prepcache',
defaults.luaccache = get 'luaccache',
defaults.suffix = get 'suffix',
defaults.extension = get 'extension',
defaults.naming = get 'naming',--order is important, e=strip extension, s=add suffix, t=replace with target if target exists
defaults.tgt = '',

There shouldn't be commas at the end of each line, as each line here is a separate statement (optionally, you can end it with a semicolon though).

For a code this advanced it's kinda suspicious that you can't read error messages. Presumably this isn't your code?

Edited by MrTasty
  • Thanks 1
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...