michael@0: #
michael@0: # print the mechanism list for a given token
michael@0: #
michael@0: set slotID slotList[i]
michael@0: C_GetMechanismList slotID NULL mechCount
michael@0: NewArray mechanismList CK_ULONG  mechcount
michael@0: C_GetMechanismList slotID mechanismList mechCount
michael@0: print mechanismList