Macro: Name_Items

Module location: dafmac.pkg line 93 (view source)

-------------------------------------------------------------- Name_Items {Item ##|NEXT} Name1 Name2 ....NameN Name_Items name1 name2 name3 Name_Items ITEM 3 Name4 Name_Items ITEM NEXT Name5 name6 ---------------------------------------------------------------

  #IFSAME !1 ITEM      // if ITEM
    #IFSAME !2 NEXT    // if ITEM NEXT then process 3rd param
      // debug code
      //#REM !3 named as item !e
      #REPLACE !3 !e
      #SET E$ !E
      #IF (!0>3)
        NAME_ITEMS ITEM NEXT !4 !5 !6 !7 !8 !9
      #ENDIF
    #ELSE
      #SET E$ !2       // if ITEM # set to that number
      #IF (!0>2)
        NAME_ITEMS ITEM NEXT !3 !4 !5 !6 !7 !8 !9
      #ENDIF
    #ENDIF
  #ELSE            // if no ITEM as first param we are starting
    #SET E$ 0      // with the first named item...item 0
    NAME_ITEMS ITEM NEXT !1 !2 !3 !4 !5 !6 !7 !8 !9
  #ENDIF