45 lines
1.5 KiB
Scheme
Executable File
45 lines
1.5 KiB
Scheme
Executable File
USING "commands_misc.sch"
|
|
USING "commands_script.sch"
|
|
|
|
USING "globals.sch"
|
|
|
|
// PURPOSE: Will set a global to suppress emergency call responses. Also stores the script doing the suppressing.
|
|
PROC SUPPRESS_EMERGENCY_CALLS()
|
|
PRINTLN("SUPPRESS_EMERGENCY_CALLS called by ", GET_THIS_SCRIPT_NAME(), ".")
|
|
g_bEmergencyCallsSuppressed = TRUE
|
|
g_sEmergencyCallsSuppressedByThisScript = GET_THIS_SCRIPT_NAME()
|
|
ENDPROC
|
|
|
|
FUNC BOOL ARE_EMERGENCY_CALLS_SUPPRESSED()
|
|
RETURN g_bEmergencyCallsSuppressed
|
|
ENDFUNC
|
|
|
|
PROC RELEASE_SUPPRESSED_EMERGENCY_CALLS()
|
|
IF g_bEmergencyCallsSuppressed
|
|
PRINTLN("RELEASE_SUPPRESSED_EMERGENCY_CALLS called by ", GET_THIS_SCRIPT_NAME(), ".")
|
|
g_bEmergencyCallsSuppressed = FALSE
|
|
g_sEmergencyCallsSuppressedByThisScript = "NULL"
|
|
ELSE
|
|
PRINTLN("RELEASE_SUPPRESSED_EMERGENCY_CALLS called by ", GET_THIS_SCRIPT_NAME(), " but they are not suppressed.")
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROC FORCE_EMERGENCY_CALL_PRIORITY_HIGH(BOOL bForce = TRUE)
|
|
IF bForce
|
|
g_bEmergencyCallPriorityIsHigh = TRUE
|
|
PRINTLN("FORCE_EMERGENCY_CALL_PRIORITY_HIGH called TRUE by ", GET_THIS_SCRIPT_NAME(), ".")
|
|
ELSE
|
|
g_bEmergencyCallPriorityIsHigh = FALSE
|
|
PRINTLN("FORCE_EMERGENCY_CALL_PRIORITY_HIGH called FALSE by ", GET_THIS_SCRIPT_NAME(), ".")
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
// PURPOSE: Returns the name of the script that last called SUPPRESS_EMERGENCY_CALLS()
|
|
FUNC TEXT_LABEL_31 EMERGENCY_CALLS_SUPPRESSING_SCRIPT()
|
|
RETURN g_sEmergencyCallsSuppressedByThisScript
|
|
ENDFUNC
|
|
|
|
|
|
|
|
|