(index ("machine-name" 0) ("short-user-name" 165) ("long-user-name" 309) ("machine-location" 450) ("metric?" 947) ("computer-name" 1038) ("console-user" 1168) ("local-host-name" 1537) ("location-name" 1726) ("session-info" 1825) ("main-bundle-path" 2850) ("tick-count" 3016) ("delay" 3220) ("gestalt" 3421) ("osstatus-condition?" 3905) ("oserr-condition?" 4062) ("open-url" 4210))
(def (sig (procedure "(machine-name) -> string" (id machine-name))) (p "The machine name from core services. Probably not the same as " (tt "(get-host-name)") "."))
(def (sig (procedure "(short-user-name) -> string" (id short-user-name))) (p "The short name for the user. Based on the current process uid."))
(def (sig (procedure "(long-user-name) -> string" (id long-user-name))) (p "The long name for the user. Based on the current process uid."))
(def (sig (procedure "(machine-location) -> vector" (id machine-location))) (p "Returns a 4 element vector:") (dl (dt "LATITUDE") (dd (tt "inexact") " ; Latitude in degrees north to 2 decimal places.") (dt "LONGITUDE") (dd (tt "inexact") " ; Longitude in degrees east to 2 decimal places.") (dt "DLS-OFFSET") (dd (tt "fixnum") " ; Number of seconds to add for daylight saving time.") (dt "GMT-OFFSET") (dd (tt "fixnum") " ; Number of seconds east of GMT, includes daylight saving time status.")))
(def (sig (procedure "(metric?) -> boolean" (id metric?))) (p "Using the metric system?"))
(def (sig (procedure "(computer-name [STORE]) -> string" (id computer-name))) (p "The computer name from system configuration."))
(def (sig (procedure "(console-user [STORE]) -> (or boolean vector)" (id console-user))) (p "Returns a 3 element vector or " (tt "#f") " for failure.") (dl (dt "NAME") (dd (tt "string") " ; The (short) name of the console user.") (dt "UID") (dd (tt "fixnum") " ; The user id of the console user.") (dt "GID") (dd (tt "fixnum") " ; The group id of the console user.")))
(def (sig (procedure "(local-host-name [STORE]) -> string" (id local-host-name))) (p "The local host name from system configuration. Probably not the same as " (tt "(get-host-name)") "."))
(def (sig (procedure "(location-name [STORE]) -> string" (id location-name))) (p "The location."))
(def (sig (procedure "(session-info) -> vector" (id session-info))) (p "Returns a 10 element vector:") (dl (dt "SESSION-ID") (dd (tt "fixnum") " ; The security session identifier number.") (dt "IS-ROOT") (dd (tt "boolean") " ; A root session?") (dt "HAS-GRAPHICS") (dd (tt "boolean") " ; Has graphics access?") (dt "HAS-TTY") (dd (tt "boolean") " ; Has tty?") (dt "IS-REMOTE") (dd (tt "boolean") " ; Is a remote session?") (dt "WAS-INITIALIZED") (dd (tt "boolean") " ; Initialized? (see note below)") (dt "SHORT-USER-NAME") (dd (tt "string") " ; Short user name.") (dt "USER-ID") (dd (tt "fixnum") " ; User identification number.") (dt "CONSOLE-SET") (dd (tt "fixnum") " ; Console hardware number.") (dt "LOGIN-COMPLETED") (dd (tt "boolean") " ; Login operations complete?") (dt "IS-USER-ACTIVE") (dd (tt "boolean") " ; On console?")) (p "The OS API behind " (tt "WAS-INITIALIZED") " is unsupported as of macOS 10.7 so to indicate the value is " (tt "(void)") ".") (p "Raises an " (tt "osstatus-condition") " for failure."))
(def (sig (procedure "(main-bundle-path) -> string" (id main-bundle-path))) (p "The full pathname of the currently running executable, including the program name."))
(def (sig (procedure "(tick-count) -> number" (id tick-count))) (p "Returns an unsigned 32-bit integer that indicates the current number of ticks (1/60th of a second) since the system last started up."))
(def (sig (procedure "(delay TICKS) -> number" (id delay))) (p "Suspend execution for the specified number of " (tt "TICKS") ". Returns an unsigned integer that indicates the ticks after the delay."))
(def (sig (procedure "(gestalt SELECTOR) -> number" (id gestalt))) (p "Calls the Gestalt Manager with specified " (tt "SELECTOR") " and returns an unsigned 32-bit integer.") (dl (dt (tt "SELECTOR")) (dd (tt "(or string symbol number)") ".")) (p "An " (tt "(or string symbol)") " is converted to a Macintosh 4-byte character value. The string length may not be greater than 4 but can be less; space padding will be performed.") (p "Raises an " (tt "oserr-condition") " for failure."))
(def (sig (procedure "(osstatus-condition? OBJ) -> boolean" (id osstatus-condition?))) (p "Is " (tt "OBJ") " an " (tt "osstatus") " " (tt "condition") "?"))
(def (sig (procedure "(oserr-condition? OBJ) -> boolean" (id oserr-condition?))) (p "Is " (tt "OBJ") " an " (tt "oserr") " " (tt "condition") "?"))
(def (sig (procedure "(open-url URL)" (id open-url))) (p "Opens the " (tt "(: URL string") " using the system-dependent default application."))
