[ANN] HOOT: Hacked Object Oriented Transcript

[Dick Kriesel]

On 2/27/06 6:37 PM, "Dick Kriesel" <dick.kriesel at mail.com> wrote:

> A "rugged" id is a native long id stripped of any "of group id" clause.

Close, but no cigar.  (Why do people say that?)

A "rugged id" is a native long id stripped of any "of group id" clauses and
"of stack" clauses, intended for use within a single stack.

A "rugged long id" is a native long id stripped of any "of group id"
clauses, intended for use across multiple stacks.

getProp uRuggedID
  put the long id of the target into tLongID
  if word 1 of tLongID is not "stack" then
    -- note: stacks do not have rugged ids
    put word 1 to 3 of tLongID into tRuggedID
    put offset(" of card id ",tLongID) into tOffset
    if tOffset > 0 then
      put char tOffset to tOffset + offset(space,tLongID,tOffset + 12) \
          + 11 of tLongID after tRuggedID
    end if
  end if
  return tRuggedID
end uRuggedID

getProp uRuggedLongID
  put the uRuggedID of the target into tRuggedLongID
  put offset(" of stack " & quote,the long id of the target) into tOffset
  put char tOffset to -1 of the long id of the target after tRuggedLongID
  return tRuggedLongID
end uRuggedLongID


-- Dick