cmd/jcl/JCL.mk

/*
 * jcl control-m rules
 */

JCL = jcl
JCLROOT = $(PACKAGEROOT)
JCLINCLUDE = $(JCLROOT)/jcl
JCLRUN = $(JCLROOT)/run
JCLFLAGS = -sv -I$(JCLINCLUDE)
JCLEVENTS = $(JCLRUN)/events-$(JCLROOT:B:S)

if ! JCL_AUTO_ampersand
JCL_AUTO_ampersand  = 01
end
if ! JCL_AUTO_at
JCL_AUTO_at     = 01
end
if ! JCL_AUTO_pound
JCL_AUTO_pound      = 01
end

":JCL:" : .MAKE .OPERATOR
    .INIT : .JCL.INIT
    .JCL.INIT : .MAKE .VIRTUAL .FORCE
        if COSHELL == "$(SHELL)"
            COSHELL =
        end
        :COSHELL: service=event db=$(JCLEVENTS) coshell $(JCLGROUP:+group=$(JCLGROUP))

.SOURCE : $(JCLINCLUDE)

.JOB : .USE .VIRTUAL
    $(~:N=*=*) $(~:T=E) $(JCL) $(JCLFLAGS) $(*)

.EVENT.WAIT : .USE .VIRTUAL .FORCE .IGNORE
    event wait $(<)

.EVENT.RAISE : .USE .VIRTUAL .FORCE .IGNORE
    event raise $(<:/.RAISE$//)$(JCL_AUTO_FRAGMENT_INDEX:+$(~$(<<):N=\(JCL_AUTO_FRAG\):+-$(JCL_AUTO_FRAG)))

.EVENT.DELETE : .USE .VIRTUAL .FORCE .IGNORE
    event clear $(<:/.DELETE$//)

.binding. =

.BIND.% : .FUNCTION
    local X
    if ! "$(.binding.)" && "$(%)" != ".*"
        .binding. = 1
        if "$(%:B:S)" == "*[[:lower:]]*"
            X := $(%:D:B=$(%:B:S:F=%(upper)s))
            if X = "$(X:T=F)"
                .binding. =
                return $(X)
            end
        end
        if "$(%:B:S)" == "*[[:upper:]]*"
            X := $(%:D:B=$(%:B:S:F=%(lower)s))
            if X = "$(X:T=F)"
                .binding. =
                return $(X)
            end
        end
        .binding. =
    end

.INTERRUPT.URG : .FUNCTION
    query
    return continue

.INTERRUPT.USR1 : .FUNCTION
    query - jobs
    return continue

.INTERRUPT.USR2 : .FUNCTION
    query - blocked
    return continue