{; ********************************************** AC-FAILURE-HANDLERS.LSP }
{; before use ExecuteFailureHandler sets
    MESSAGE          <--- Msg:Message
    CONTRIBUTING-MSG <--- Msg:ContributingMsg
    EXPLANATION      <--- Msg:Explanation
}

{; NB.  System FH and Default FH are provided automatically  }
{;      They are loaded in DSPL-INIT.LSP                   }


{; -----------------------------------------------------------------------}
{; ********************* USER Failure Handlers ***************************}
{;    For STEP                                                            }


(FAILURE-HANDLER
  (NAME PistonSealSeatWidthFH)
  (TYPE USER-DECISION-CONSTRAINT-FH)
  (USED-BY PistonSealSeatWidth)
  (USED-BY-TYPE Step)
  (COMMENT "written by user and declared in the step")
  (BODY
    (TABLE
      (DEPENDING-ON  EXPLANATION)
      (MATCH
        (IF ( "Seal width is greater than available space in piston" )
	    THEN  (DO   (COMPLAIN "Seal seat width redesign here !!")
			(STEP-REDESIGN-WITH-SUGGESTIONS)
		  )
	) 
      )
      (OTHERWISE (USE-FH SystemConstraintFH WITH CONTRIBUTING-MSG) 
      )
) ) )

(FAILURE-HANDLER
  (NAME PistonSSDiameterFH)
  (TYPE USER-DECISION-CONSTRAINT-FH)
  (USED-BY PistonSealSeatDiameter)
  (USED-BY-TYPE Step)
  (BODY
    (TABLE
      (DEPENDING-ON  EXPLANATION)
      (MATCH
        (IF ( "Piston seal seat diameter is too small to be safe" )
	 THEN (DO (Complain "Seal seat diameter redesign here !!")
		  (STEP-REDESIGN-WITH-SUGGESTIONS)
	      )
	)
      )
      (OTHERWISE  (USE-FH SystemConstraintFH WITH CONTRIBUTING-MSG)  )
) ) )

(FAILURE-HANDLER
  (NAME CapIDFH)
  (TYPE USER-DECISION-CONSTRAINT-FH)
  (USED-BY CapInternalDiameter)
  (USED-BY-TYPE Step)
  (BODY
    (TABLE
      (DEPENDING-ON EXPLANATION)
      (MATCH
        (IF ( "Cap internal diameter too small for spring" )
	    THEN (DO (COMPLAIN "Cap internal diameter redesign here !!")
		     (STEP-REDESIGN-WITH-SUGGESTIONS)
	)        )
      )
      (OTHERWISE (USE-FH SystemConstraintFH WITH CONTRIBUTING-MSG)  )
) ) )


(FAILURE-HANDLER
  (NAME BumperFDFH)
  (TYPE USER-DECISION-CONSTRAINT-FH)
  (USED-BY BumperFlangeDiameter)
  (USED-BY-TYPE Step)
  (BODY
    (TABLE
      (DEPENDING-ON EXPLANATION)
      (MATCH
        (IF ( "Bumper flange is too small for spring" )
	    THEN (DO (COMPLAIN "Bumper flange diameter redesign here !!")
		     (STEP-REDESIGN-WITH-SUGGESTIONS)
	)        )
      )
      (OTHERWISE (USE-FH SystemConstraintFH WITH CONTRIBUTING-MSG)  )
) ) )


(FAILURE-HANDLER
  (NAME CheckAirCavityFH)
  (TYPE USER-DECISION-CONSTRAINT-FH)
  (USED-BY CheckAirCavity)
  (USED-BY-TYPE Step)
  (COMMENT "this is an ASK-USER type")
  (BODY
    (COMPLAIN "The user's answer caused the failure")
    (FAIL)
) )




{; -----------------------------------------------------------------}
{; for TASKS                                                        }

(FAILURE-HANDLER
  (NAME PistonSealFH)
  (TYPE USER-STEP-FAILURE-FH)
  (USED-BY PistonSeal)
  (USED-BY-TYPE Task)
  (COMMENT "written by user")
  (BODY
    (TASK-REDESIGN-WITH-SUGGESTIONS)
) )

(FAILURE-HANDLER
  (NAME BumperFlangeFH)
  (TYPE USER-STEP-FAILURE-FH)
  (USED-BY BumperFlange)
  (USED-BY-TYPE Task)
  (COMMENT "written by user")
  (BODY
    (TASK-REDESIGN-WITH-SUGGESTIONS)
) )