Split write_logfile into separate function

Author: timholy

contrib/juliac/juliac-buildscript.jl

@@ -50,6 +50,39 @@ function recursively_add_types!(types::Base.IdSet{DataType}, @nospecialize(T::Da
     return types
 end
 
+function write_logfile(io::IO)
+    iotmp = IOBuffer()
+    types = Base.IdSet{DataType}()
+    Base.visit(Core.GlobalMethods) do method
+        if isdefined(method, :ccallable)
+            rt, sig = method.ccallable
+            name = length(method.ccallable) > 2 ? Symbol(method.ccallable[3]) : method.name
+            print(IOContext(iotmp, :print_method_signature_only => true), method)
+            methodstr = String(take!(iotmp))
+            if name !== method.name
+                methodstr = replace(methodstr, String(method.name) => String(name))
+            end
+            println(io, methodstr, "::", rt)
+            for T in sig.parameters[2:end]
+                recursively_add_types!(types, T)
+            end
+        end
+    end
+    println(io)  # blank line separates methods from types
+    for T in types
+        println(io, T)
+        dtfd = Base.DataTypeFieldDesc(T)
+        local fd
+        for i = 1:Base.datatype_nfields(T)
+            fd = dtfd[i]
+            fn = fieldname(T, i)
+            ft = fieldtype(T, i)
+            println(io, "  ", fn, "::", ft, "[", fd.offset, "]")
+        end
+        println(io, fd.offset + fd.size, " bytes")
+    end
+end
+
 # Load user code
 
 import Base.Experimental.entrypoint
@@ -100,37 +133,8 @@ let mod = Base.include(Main, ARGS[1])
     # Export info about entrypoints and structs needed to create header files
     if length(ARGS) >= 4
         logfile = ARGS[4]
-        iotmp = IOBuffer()
         open(logfile, "w") do io
-            types = Base.IdSet{DataType}()
-            Base.visit(Core.GlobalMethods) do method
-                if isdefined(method, :ccallable)
-                    rt, sig = method.ccallable
-                    name = length(method.ccallable) > 2 ? Symbol(method.ccallable[3]) : method.name
-                    print(IOContext(iotmp, :print_method_signature_only => true), method)
-                    methodstr = String(take!(iotmp))
-                    if name !== method.name
-                        methodstr = replace(methodstr, String(method.name) => String(name))
-                    end
-                    println(io, methodstr, "::", rt)
-                    for T in sig.parameters[2:end]
-                        recursively_add_types!(types, T)
-                    end
-                end
-            end
-            println(io)  # blank line separates methods from types
-            for T in types
-                println(io, T)
-                dtfd = Base.DataTypeFieldDesc(T)
-                local fd
-                for i = 1:Base.datatype_nfields(T)
-                    fd = dtfd[i]
-                    fn = fieldname(T, i)
-                    ft = fieldtype(T, i)
-                    println(io, "  ", fn, "::", ft, "[", fd.offset, "]")
-                end
-                println(io, fd.offset + fd.size, " bytes")
-            end
+            write_logfile(io)
         end
     end
 end