-- ChipFeature.mesa

-- last modified by E. McCreight, July 2, 1982  5:40 PM
-- written by E. McCreight, March 11, 1982  4:48 PM

DIRECTORY
  ChipNetDefs,
  ChipWire,
  LeftFeaturePQ,
  ppdefs;

ChipFeature: DEFINITIONS =
  BEGIN OPEN ppdefs, ChipNetDefs;

  NewFeature: PROCEDURE[cover: CoordRect ← [0,0,0,0],
    lev: ExtractLevel ← unknown,
    caller: ItemRef ← [NIL, 0],
    lq: LeftFeaturePQ.LeftFeaturePQHandle ← NIL]
    RETURNS[FeaturePtr];

  DestroyFeature: PROCEDURE[f: FeaturePtr] RETURNS[FeaturePtr];

  BWCursor: PROCEDURE[world: CoordPoint];

  NoteMark: PROCEDURE[r: CoordRect, s: STRING,
    arg1, arg2, arg3: POINTER ← NIL];

  END. -- of ChipFeature