DIRECTORY AlpFile, AlpineEnvironment, Rope; TestUserProps: CEDAR PROGRAM IMPORTS AlpFile ~ BEGIN GetOneProp: PROC [h: AlpFile.Handle, prop: Rope.ROPE] RETURNS [properties: AlpFile.UserPropertyValuePairs] ~ { properties _ AlpFile.ReadUserProperties[h, LIST[prop]]; }; GetAllProps: PROC [h: AlpFile.Handle] RETURNS [properties: AlpFile.UserPropertyValuePairs] ~ { properties _ AlpFile.ReadUserProperties[h, NIL]; }; PutOneRopeProp: PROC [h: AlpFile.Handle, prop: Rope.ROPE, val: Rope.ROPE] ~ { propVal: AlpineEnvironment.UserPropertyValuePair.rope; propVal _ [prop, rope[val]]; AlpFile.WriteUserProperties[h, LIST[propVal]]; }; PutOneCardProp: PROC [h: AlpFile.Handle, prop: Rope.ROPE, val: LONG CARDINAL] ~ { propVal: AlpineEnvironment.UserPropertyValuePair.longCardinal; propVal _ [prop, longCardinal[val]]; AlpFile.WriteUserProperties[h, LIST[propVal]]; }; END. DTestUserProps.mesa Carl Hauser, June 27, 1986 10:33:33 am PDT Κό˜™Icode™*—K˜˜ K˜K˜K˜K˜—KšœΟk ˜Kšœ˜šœ˜K˜šΟn œœ&œ1˜nKšœ7˜7K˜K˜—šž œœœ1˜^Kšœ0˜0K˜—˜K˜—šžœœ9˜MKšœ6˜6Kšœ˜Kšœ.˜.K˜K˜—šžœœ=˜QKšœ>˜>Kšœ$˜$Kšœ.˜.K˜K˜—K˜—K˜Kšœ˜—…—jͺ