module ESS

function all_help_topics()
    ## There are not clear topics anymore. Approximate those with a very general apropos(" ")
    apropos(" ")
end 

function help(topic::AbstractString)
    VERSION >= v"0.4-" ?
    eval(current_module(), parse("@doc $topic")) :
    Base.Help.help(topic)
end    

## modified version of function show(io::IO, m::Method)
function fun_args(m::Method)
    tv, decls, file, line = Base.arg_decl_parts(m)
    io = STDOUT::IO
    if !isempty(tv)
        Base.show_delim_array(io, tv, '{', ',', '}', false)
    end
    print(io, "(")
    join(io, [escape_string(isempty(d[2]) ? d[1] : d[1]*"::"*d[2]) for d in decls], ",", ",")    
    print(io, ")")
end 

## modified versionof show(io::IO, mt::MethodTable)
function fun_args(f::Function)
    mt = Base.MethodList(methods(f).mt)
    mod = Base.function_module(f)
    if mod == Main
        mod = "nil"
    end 
    print("(list \"$mod\" nil '(")
    for d in mt
        print("\"")
        ## method
        fun_args(d)
        print("\" ")
    end
    print("))")
end

function fun_args(s::AbstractString)
    try
        m = eval(current_module(), parse(s))
        if ! isa(m, String)
            fun_args(m)
        end
    catch
        print("(list nil nil nil)")
    end
end 

function fun_args(t::DataType)
    print("(list nil nil '(")
    for d = fieldnames(t)
        print("\"$d\" ")
    end
    print("))")
end 


### OBJECT COMPLETION
# Must print an output of the form:
# 
# Cache                         Module
# Write                         Module
# add                           Function
# free                          Function
function components(m::Module)
    for v in sort(names(m))
        s = string(v)
        if isdefined(m,v)
            println(rpad(s, 30), summary(eval(m,v)))
        end
    end
end

function components(t::DataType)
    for v in sort(fieldnames(t))
        println(rpad(string(v), 30), "field")
    end
end

function components(v)
    t = typeof(v)
    if isa(t, DataType)
        return components(t)
    end
end


### MISC
function main_modules(m::Module)
    for nm in names(m)
        if isdefined(m, nm)
            mod = eval(m, nm)
            if isa(mod, Module)
                print("\"$nm\" ")
            end
        end
    end
end

main_modules() = main_modules(current_module())

end