Scite Programming Utils

lua-users home
wiki

A few simple scripts for C programmers from a lua newbie. Work in Progress!

To do: more expand functions (for, while, if, switch, structs), correct indentation for expand (right now everything must start at the first column), svn support, etc.

--Author: Christoph Schreiber <c.schreiber at rindergesundheit dot at>
local function tokenize(str, delim)
    result = {}

    while true do
        local cp = string.find(str, delim)

        if not cp then
            table.insert(result, str)
            return result
        end

        table.insert(result, string.sub(str, 1, cp - 1))
        str = string.sub(str, cp + 1)
    end
end

local function expand_cstd_headers(hdrs)
    if not hdrs[2] or hdrs[2] == "" then
        print("error: please supply at least one header")
        return
    end

    for i = 2, table.getn(hdrs) do
        editor:AddText("#include <"..hdrs[i]..".h>\n")
    end
end

local function expand_c_headers(hdrs)
    if not hdrs[2] or hdrs[2] == "" then
        print("error: please supply at least one header")
        return
    end

    for i = 2, table.getn(hdrs) do
        editor:AddText("#include \""..hdrs[i]..".h\"\n")
    end
end

local function expand_c_main(offset)
    local c_main = {}

    table.insert(c_main, "int main(int argc, char* argv[])")
    table.insert(c_main, "{")
    table.insert(c_main, "\t")
    table.insert(c_main, "")
    table.insert(c_main, "\treturn 0;")
    table.insert(c_main, "}")

    editor:AddText(table.concat(c_main, "\n"))
    editor:GotoPos(offset + 36)
end

local function expand_c_once(name, line)
    if not name or name == "" then
        print("error: please supply a header name")
        return
    end

    local once = {}
    local uname = string.upper(name)

    table.insert(once, "#ifndef __"..uname.."_H__")
    table.insert(once, "#define __"..uname.."_H__")
    table.insert(once, "");
    table.insert(once, "");
    table.insert(once, "");
    table.insert(once, "#endif /* __"..uname.."_H__ */")

    editor:AddText(table.concat(once, "\n"))
    editor:GotoLine(line + 3)
end

local function expand_bsd_license(author, year)
    if not author or author == "" then
        if props["author.full_name"] then
            author = props["author.full_name"]
        else
            print("error: please supply the author's name")
            return
        end
    end

    local bsd = {}

    table.insert(bsd, "/*")

    if year == nil then
        table.insert(bsd, " * Copyright (c) "..os.date("%Y").." "..author..". All rights reserved.")
    else
        table.insert(bsd, " * Copyright (c) "..year.." "..author..". All rights reserved.")
    end

    table.insert(bsd, " *")
    table.insert(bsd, " * Redistribution and use in source and binary forms, with or without")
    table.insert(bsd, " * modification, are permitted provided that the following conditions")
    table.insert(bsd, " * are met:")
    table.insert(bsd, " *")
    table.insert(bsd, " * 1. Redistributions of source code must retain the above copyright")
    table.insert(bsd, " *    notice, this list of conditions and the following disclaimer.")
    table.insert(bsd, " *")
    table.insert(bsd, " * 2. Redistributions in binary form must reproduce the above copyright")
    table.insert(bsd, " *    notice, this list of conditions and the following disclaimer in the")
    table.insert(bsd, " *    documentation and/or other materials provided with the distribution.")
    table.insert(bsd, " *")
    table.insert(bsd, " * THIS SOFTWARE IS PROVIDED BY "..string.upper(author).." \"AS IS\'' AND")
    table.insert(bsd, " * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE")
    table.insert(bsd, " * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE")
    table.insert(bsd, " * ARE DISCLAIMED. IN NO EVENT SHALL "..string.upper(author).." BE LIABLE")
    table.insert(bsd, " * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL")
    table.insert(bsd, " * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS")
    table.insert(bsd, " * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)")
    table.insert(bsd, " * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT")
    table.insert(bsd, " * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY")
    table.insert(bsd, " * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF")
    table.insert(bsd, " * SUCH DAMAGE.")
    table.insert(bsd, " */")


    editor:AddText(table.concat(bsd, "\n"))
end

function expand()
    local line = editor:LineFromPosition(editor.CurrentPos)
    local from = editor:PositionFromLine(line)
    local to = editor.CurrentPos
    local sel = editor:textrange(from, to)

    if not sel or sel == "" then
        print("error: nothing to expand")
        print("valid commands are:")
        print("\tmain - C\'s main()")
        print("\tstdinc,Header[,Header...] - Standard header files")
        print("\tinc,Header[,Header...] - User header files")
        print("\tonce,HeaderName - Header guard")
        print("\tbsd,Author[,Date] - BSD copyright statement")
        return
    end

    local args = tokenize(sel, ',')

    editor:SetSel(from, to)
    editor:ReplaceSel("")

    if args[1] == "stdinc" then
        expand_cstd_headers(args)
    elseif args[1] == "inc" then
        expand_c_headers(args)
    elseif args[1] == "main" then
        expand_c_main(from)
    elseif args[1] == "once" then
        expand_c_once(args[2], line)
    elseif args[1] == "bsd" then
        expand_bsd_license(args[2], args[3])
    else
        print("error: invalid command")
    end
end

function hexify_number()
    local sel = editor:GetSelText()

    if not sel or sel == "" then
        return
    end

    editor:ReplaceSel(string.format('0x%08x', tonumber(sel)))
end

function calculate()
    local expr = editor:GetSelText()

    if not expr or expr == "" then
        return
    end

    local fn, unused = loadstring("return "..expr)

    if not fn then
        print("error: invalid expression") return
    end

    editor:ReplaceSel(tostring(fn()))
end


RecentChanges · preferences
edit · history
Last edited July 15, 2007 8:17 pm GMT (diff)