Add Base.exit_on_sigint to wrap jl_exit_on_sigint

base/c.jl

@@ -463,6 +463,22 @@ function reenable_sigint(f::Function)
     res
 end
 
+"""
+    exit_on_sigint(on::Bool)
+
+Set `exit_on_sigint` flag of the julia runtime.  If `false`, Ctrl-C
+(SIGINT) is capturable as [`InterruptException`](@ref) in `try` block.
+This is the default behavior in REPL, any code run via `-e` and `-E`
+and in Julia script run with `-i` option.
+
+If `true`, `InterruptException` is not thrown by Ctrl-C.  Running code
+upon such event requires [`atexit`](@ref).  This is the default
+behavior in Julia script run without `-i` option.
+"""
+function exit_on_sigint(on::Bool)
+    ccall(:jl_exit_on_sigint, Cvoid, (Cint,), on)
+end
+
 function ccallable(f::Function, rt::Type, argt::Type, name::Union{AbstractString,Symbol}=string(f))
     ccall(:jl_extern_c, Cvoid, (Any, Any, Any, Cstring), f, rt, argt, name)
 end

base/client.jl

@@ -290,7 +290,7 @@ function exec_options(opts)
     if arg_is_program
         # program
         if !is_interactive
-            ccall(:jl_exit_on_sigint, Cvoid, (Cint,), 1)
+            exit_on_sigint(true)
         end
         try
             include(Main, PROGRAM_FILE)

base/docs/basedocs.jl

@@ -1423,6 +1423,18 @@ TypeError
     InterruptException()
 
 The process was stopped by a terminal interrupt (CTRL+C).
+
+Note that, in Julia script started without `-i` (interactive) option,
+`InterruptException` is not thrown by default.  Calling
+[`Base.exit_on_sigint(false)`](@ref Base.exit_on_sigint) in the script
+can recover the behavior of the REPL.  Alternatively, a Julia script
+can be started with
+
+```sh
+julia -e "include(popfirst!(ARGS))" script.jl
+```
+
+to let `InterruptException` be thrown by CTRL+C during the execution.
 """
 InterruptException
 

doc/src/base/c.md

@@ -18,6 +18,7 @@ Base.pointer_from_objref
 Base.unsafe_pointer_to_objref
 Base.disable_sigint
 Base.reenable_sigint
+Base.exit_on_sigint
 Base.systemerror
 Base.windowserror
 Core.Ptr

stdlib/REPL/test/repl.jl

@@ -65,7 +65,7 @@ function fake_repl(@nospecialize(f); options::REPL.Options=REPL.Options(confirm_
 end
 
 # Writing ^C to the repl will cause sigint, so let's not die on that
-ccall(:jl_exit_on_sigint, Cvoid, (Cint,), 0)
+Base.exit_on_sigint(false)
 
 # make sure `run_interface` can normally handle `eof`
 # without any special handling by the user
@@ -764,7 +764,7 @@ fake_repl() do stdin_write, stdout_read, repl
     Base.wait(repltask)
 end
 
-ccall(:jl_exit_on_sigint, Cvoid, (Cint,), 1)
+Base.exit_on_sigint(true)
 
 let exename = Base.julia_cmd()
     # Test REPL in dumb mode

test/stress.jl

@@ -76,13 +76,13 @@ end  # !Sys.iswindows
 
 # sig 2 is SIGINT per the POSIX.1-1990 standard
 if !Sys.iswindows()
-    ccall(:jl_exit_on_sigint, Cvoid, (Cint,), 0)
+    Base.exit_on_sigint(false)
     @test_throws InterruptException begin
         ccall(:kill, Cvoid, (Cint, Cint,), getpid(), 2)
         for i in 1:10
             Libc.systemsleep(0.1)
             ccall(:jl_gc_safepoint, Cvoid, ()) # wait for SIGINT to arrive
         end
     end
-    ccall(:jl_exit_on_sigint, Cvoid, (Cint,), 1)
+    Base.exit_on_sigint(true)
 end