OScript Code to Show Information About All Classes

function _demo()
	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