/***************************************************************************************/
/*                                                                                     */
/*  SCS editor Version 2                                                               */
/*  File : Reflex.pkg                                                                  */
/*  Version : 08 Juin 2000                                                             */
/*  Reflex interface functions                                                         */
/*                                                                                     */
/***************************************************************************************/


/***************************************************************************************
  MODULE REFLEX FUNCTIONS
***************************************************************************************/

/***************************************************************************************
  reflex Module registration functions
***************************************************************************************/
fun REFLEX_CBmoduleAdded (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXmodule = REFLEX_RegisterFunction reflexLists.REFLEXmodule REFLEX_ADDED function
;;

fun REFLEX_CBmoduleRemoved (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXmodule = REFLEX_RegisterFunction reflexLists.REFLEXmodule REFLEX_REMOVED function
;;

fun REFLEX_CBmoduleModified (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXmodule = REFLEX_RegisterFunction reflexLists.REFLEXmodule REFLEX_MODIFIED function
;;

fun REFLEX_CBmoduleSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXmodule = REFLEX_RegisterFunction reflexLists.REFLEXmodule REFLEX_SELECTED function
;;
/***************************************************************************************
  reflex Module unregistration functions
***************************************************************************************/
fun UNREFLEX_CBmoduleSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXmodule = REFLEX_UnregisterFunction reflexLists.REFLEXmodule REFLEX_SELECTED function
;;

/***************************************************************************************
  reflex Module activation functions
***************************************************************************************/
fun REFLEX_ModuleAdded (moduleList, param) =
  if moduleList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXmodule REFLEX_ADDED [moduleList param]
  )
;;

fun REFLEX_ModuleRemoved (moduleList, param) =
  if moduleList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXmodule REFLEX_REMOVED [moduleList param]
  )
;;

fun REFLEX_ModuleModified (moduleList, param) =
  if moduleList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXmodule REFLEX_MODIFIED [moduleList param]
  )
;;

fun REFLEX_ModuleSelected (moduleList, param) =
  let scs.SCSreflexLists -> reflexLists in
    REFLEX_Activate reflexLists.REFLEXmodule REFLEX_SELECTED [moduleList param]
;;


/***************************************************************************************
  ZONE REFLEX FUNCTIONS
***************************************************************************************/

/***************************************************************************************
  reflex Zone registration functions
***************************************************************************************/
fun REFLEX_CBzoneAdded (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXzone = REFLEX_RegisterFunction reflexLists.REFLEXzone REFLEX_ADDED function
;;

fun REFLEX_CBzoneRemoved (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXzone = REFLEX_RegisterFunction reflexLists.REFLEXzone REFLEX_REMOVED function
;;

fun REFLEX_CBzoneModified (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXzone = REFLEX_RegisterFunction reflexLists.REFLEXzone REFLEX_MODIFIED function
;;

fun REFLEX_CBzoneSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXzone = REFLEX_RegisterFunction reflexLists.REFLEXzone REFLEX_SELECTED function
;;


/***************************************************************************************
  reflex Zone activation functions
***************************************************************************************/
fun REFLEX_ZoneAdded (zoneList, param) =
  if zoneList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXzone REFLEX_ADDED [zoneList param]
  )
;;

fun REFLEX_ZoneRemoved (zoneList, param) =
  if zoneList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXzone REFLEX_REMOVED [zoneList param]
  )
;;

fun REFLEX_ZoneModified (zoneList, param) =
  if zoneList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXzone REFLEX_MODIFIED [zoneList param]
  )
;;

fun REFLEX_ZoneSelected (zoneList, param) =
  let scs.SCSreflexLists -> reflexLists in
    REFLEX_Activate reflexLists.REFLEXzone REFLEX_SELECTED [zoneList param]
;;


/***************************************************************************************
  LINK REFLEX FUNCTIONS
***************************************************************************************/

/***************************************************************************************
  reflex Link registration functions
***************************************************************************************/
fun REFLEX_CBlinkAdded (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXlink = REFLEX_RegisterFunction reflexLists.REFLEXlink REFLEX_ADDED function
;;

fun REFLEX_CBlinkRemoved (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXlink = REFLEX_RegisterFunction reflexLists.REFLEXlink REFLEX_REMOVED function
;;

fun REFLEX_CBlinkModified (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXlink = REFLEX_RegisterFunction reflexLists.REFLEXlink REFLEX_MODIFIED function
;;

fun REFLEX_CBlinkSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXlink = REFLEX_RegisterFunction reflexLists.REFLEXlink REFLEX_SELECTED function
;;


/***************************************************************************************
  reflex Link activation functions
***************************************************************************************/
fun REFLEX_LinkAdded (linkList, param) =
  if linkList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXlink REFLEX_ADDED [linkList param]
  )
;;

fun REFLEX_LinkRemoved (linkList, param) =
  if linkList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXlink REFLEX_REMOVED [linkList param]
  )
;;

fun REFLEX_LinkModified (linkList, param) =
  if linkList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXlink REFLEX_MODIFIED [linkList param]
  )
;;

fun REFLEX_LinkSelected (linkList, param) =
  let scs.SCSreflexLists -> reflexLists in 
    REFLEX_Activate reflexLists.REFLEXlink REFLEX_SELECTED [linkList param]
;;


/***************************************************************************************
  SITE REFLEX FUNCTIONS
***************************************************************************************/

/***************************************************************************************
  reflex Site registration functions
***************************************************************************************/
fun REFLEX_CBsiteAdded (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXsite = REFLEX_RegisterFunction reflexLists.REFLEXsite REFLEX_ADDED function
;;

fun REFLEX_CBsiteRemoved (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXsite = REFLEX_RegisterFunction reflexLists.REFLEXsite REFLEX_REMOVED function
;;

fun REFLEX_CBsiteModified (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXsite = REFLEX_RegisterFunction reflexLists.REFLEXsite REFLEX_MODIFIED function
;;

fun REFLEX_CBsiteSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXsite = REFLEX_RegisterFunction reflexLists.REFLEXsite REFLEX_SELECTED function
;;


/***************************************************************************************
  reflex Site activation functions
***************************************************************************************/
fun REFLEX_SiteAdded (site, param) =
  if site == nil then
    nil
  else
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXsite REFLEX_ADDED [site param]
;;

fun REFLEX_SiteRemoved (site, param) =
  if site == nil then
    nil
  else
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXsite REFLEX_REMOVED [site param]
;;


fun REFLEX_SiteModified (site, param) =
  if site == nil then
    nil
  else
  (
    if param == REFLEX_STATUS
    then
      nil
    else
      SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXsite REFLEX_MODIFIED [site param]
  )
;;

fun REFLEX_SiteSelected (site, param) =
  let scs.SCSreflexLists -> reflexLists in
    REFLEX_Activate reflexLists.REFLEXsite REFLEX_SELECTED [site param]
;;


/***************************************************************************************
  ASSOCIATION REFLEX FUNCTIONS
***************************************************************************************/

/***************************************************************************************
  reflex Association registration functions
***************************************************************************************/
fun REFLEX_CBassociationAdded (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXassociation = REFLEX_RegisterFunction reflexLists.REFLEXassociation REFLEX_ADDED function
;;

fun REFLEX_CBassociationRemoved (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXassociation = REFLEX_RegisterFunction reflexLists.REFLEXassociation REFLEX_REMOVED function
;;

fun REFLEX_CBassociationSelected (function) =
  let scs.SCSreflexLists -> reflexLists in
    set reflexLists.REFLEXassociation = REFLEX_RegisterFunction reflexLists.REFLEXassociation REFLEX_SELECTED function
;;


/***************************************************************************************
  reflex Association activation functions
***************************************************************************************/
fun REFLEX_AssociationAdded (associationList, param) =
  if associationList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXassociation REFLEX_ADDED [associationList param]
  )
;;

fun REFLEX_AssociationRemoved (associationList, param) =
  if associationList == nil then
    nil
  else
  (
    SITE_ChangeStatus; /* modification status */
    let scs.SCSreflexLists -> reflexLists in
      REFLEX_Activate reflexLists.REFLEXassociation REFLEX_REMOVED [associationList param]
  )
;;

fun REFLEX_AssociationSelected (associationList, param) =
  let scs.SCSreflexLists -> reflexLists in
    REFLEX_Activate reflexLists.REFLEXassociation REFLEX_SELECTED [associationList param]
;;