FLAGTEST

(GIN Macro)

Defined in: IFMACS

Used in:

FLAGTEST.mac.txt

 B*G=    [   
 B*^W    [   
 BBFG    [??? FLAGTEST SECT DEVT FGN 1 DOC   
 BB^6    [   
 BCDQ    #MAC           FLAGTEST 
 BCYB    [              ======== 
 BDD2    [   
 BDXL    [   
 BFC=    [ %A - NAME OF CALLING USER LEVEL MACRO 
 BFWW    [ %B - 1 => 'EITHER' SHOULD HAVE BEEN GIVEN PREVIOUSLY (ELSE 0) 
 BGBG    [ %C - 'NOT' OR NULL - USED IN ERROR MESSAGE
 BGW6    [ %D - 1 => 'THEN' OR 'DO' SHOULD HAVE BEEN GIVEN PREVIOUSLY (ELSE 0)   
 BH*Q    [ %E - 'NOT' OR NULL - USED IN ERROR MESSAGE
 BHTB    [ %F - 'THEN', 'DO' OR 'THEN/DO' AS APPROP - USED IN ERROR MESSAGE  
 BJ*2    [   
 BJSL    [ CHECKS THAT B23'S OF 'NESTEITHERS' AND 'NESTFLAG' ARE AS EXPECTED.
 BK#=    [ IF NOT, SETS THEM CORRECTLY AND OUTPUTS A DIAGNOSTIC ERROR MESSAGE
 BKRW    [   
 BL?G    #SKI           NESTEITHERS&1-%B 
 BLR6    (   
 BM=Q    !! %A MUST %C FOLLOW 'EITHER' !!
 BMQB    #ALT           NESTEITHERS=NESTEITHERS$1 [INVERT B23
 BN=2    )   
 BNPL    #SKI           NESTFLAG&1-%D
 BP9=    (   
 BPNW    !! %A MUST %E FOLLOW '%F' !!
 BQ8G    #ALT           NESTFLAG=NESTFLAG$1 [INVERT B23  
 BQN6    )   
 BR7Q    #NOR