triggers.il #4

;; Single Point Trigger insertion file


procedure(trigger_reg()


;; register all the triggers, just once, here


;; We need to deal with

;; CDSP4
;; Avanti
;; Site  specific

	;; get rid of any pre-defined crap

	;;printf("Unregistering triggers\n")
	;;deUnRegUserTriggers("maskLayout")


	;;printf("Binding trigger functions\n")
	bind_trigger_functions()

	;;printf("Registering triggers\n")

	deRegUserTriggers("maskLayout" 
                      'lay_app_trigger
		      'lay_menu_trigger
                      'lay_pit_trigger
		      )

)

procedure(bind_trigger_functions()

;; bind the functions     

bind_lay_app()
bind_lay_pit()

)


procedure(bind_lay_app()


let((procnames bindstring) 

    ;; define the application trigger names here
    
    ;; current contents
    ;; cdsp4 edit trigger integrity code

    procnames=list("CDS_P4EditTrigger(arglist)")


    ;; build the composite
    sprintf(bindstring "procedure(lay_app_trigger(arglist) ")
    foreach(el procnames
	       sprintf(bindstring "%s%s " bindstring el)
)
    sprintf(bindstring "%s)" bindstring)
    evalstring(bindstring)
    t
    )
)




procedure(lay_menu_trigger(args)

    ;; define the menu triggers here
    ;; just add items here in the list

    ;; current contents: the avanti pulldown 
    ;; add your own 

    list(avntHXLayPulldownMenu())
)




procedure(bind_lay_pit()

;; define the post install triggers here

let((procnames bindstring)

;; current contents

;; cdsp4 window trigger integrity code    

    procnames=list("CDS_P4WindowTrigger(arglist)")


    ;; build the composite
    sprintf(bindstring "procedure(lay_pit_trigger(arglist) ")
    foreach(el procnames
	       sprintf(bindstring "%s%s " bindstring el)
    )
    sprintf(bindstring "%s)" bindstring)
    evalstring(bindstring)
    t
    )
)
trigger_reg()