[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: user name from the mac

>Before 7.0, (machine-instance) returned the name of the user in the
>chooser.  Now it returns the sys 7 name of the machine.  Therefore, what
>is the way to get to the sys 7 user name?

(defun machine-owner ()
  "returns chooser name, else \"unspecified\""
  (let ((h (#_GetString -16096)))
    (if (or (%null-ptr-p h) (%null-ptr-p (%get-ptr h))
            (eql 0 (%get-byte (%get-ptr h))))
      (%get-string h))))