Content Server : Show Information For All Classes (OScript)

function ReflectOnAllClasses()
    Integer i
    Dynamic r
    Dynamic info
    Boolean first = false

    File f = File.OpenStream("c:\oscript_class_info.txt", File.WriteMode)
    File.Write(f, "===========================================================")

    for i = -249 to 250

        r = Class.LookupByNumber(i)
        if ((IsDefined(r)) && (!IsError(r)))
            echo(r.ClassName)
            File.Write(f, Str.EOL())
            File.Write(f, Str.Format("Id             : %1", i))
            File.Write(f,Str.EOL())
            File.Write(f, Str.Format("Name           : %1", r.ClassName))
            File.Write(f,Str.EOL())

            first = true
            for info in r.ClassMethods
                if (!first)
                    File.Write(f, Str.Format("                 %1",info ))
                else
                    first = false
                    File.Write(f, Str.Format("ClassMethods   : %1",info ))
                end
                File.Write(f,Str.EOL())
            end

            first = true
            for info in r.ClassAttributes
                if (!first)
                    File.Write(f, Str.Format("                 %1",info ))
                else
                    first = false
                    File.Write(f, Str.Format("ClassAttributes: %1",info ))
                end
                File.Write(f,Str.EOL())
            end

            first = true
            for info in r.Methods
                if (!first)
                    File.Write(f, Str.Format("                 %1",info ))
                else
                    first = false
                    File.Write(f, Str.Format("Methods        : %1",info ))
                end
                File.Write(f,Str.EOL())
            end

            first = true
            for info in r.Attributes
                if (!first)
                    File.Write(f, Str.Format("                 %1",info ))
                else
                    first = false
                    File.Write(f, Str.Format("Attributes     : %1",info ))
                end
                File.Write(f,Str.EOL())
            end

            first = true
            for info in r.Constants
                if (!first)
                    File.Write(f, Str.Format("                 %1",info ))
                else
                    first = false
                    File.Write(f, Str.Format("Constants      : %1",info ))
                end
                File.Write(f,Str.EOL())
            end
            File.Write(f, "===========================================================")
        end
    end
    File.Close(f)
end