fix #59252, make args in juliac like it is elsewhere (#59279)

Also set PROGRAM_FILE and ARGS.

fixes #59252

Author: JeffBezanson

contrib/juliac/juliac-buildscript.jl

@@ -34,6 +34,9 @@ import Base.Experimental.entrypoint
 # for use as C main if needed
 function _main(argc::Cint, argv::Ptr{Ptr{Cchar}})::Cint
     args = ccall(:jl_set_ARGS, Any, (Cint, Ptr{Ptr{Cchar}}), argc, argv)::Vector{String}
+    setglobal!(Base, :PROGRAM_FILE, args[1])
+    popfirst!(args)
+    append!(Base.ARGS, args)
     return Main.main(args)
 end
 

test/trimming/hello.jl

@@ -17,6 +17,7 @@ sum_areas(v::Vector{Shape}) = sum(area, v)
 
 function @main(args::Vector{String})::Cint
     println(Core.stdout, str())
+    println(Core.stdout, PROGRAM_FILE)
     foreach(x->println(Core.stdout, x), args)
 
     # test map/mapreduce; should work but relies on inlining and other optimizations