;;;============================================================================

;;; File: "os-gambit#.scm"

;;; Copyright (c) 1994-2021 by Marc Feeley, All Rights Reserved.

;;;============================================================================

;;; OS operations in Gambit.

(##namespace ("##"

(address-info-family unimplemented#address-info-family)
(address-info-protocol unimplemented#address-info-protocol)
(address-info-socket-info unimplemented#address-info-socket-info)
(address-info-socket-type unimplemented#address-info-socket-type)
(address-info? unimplemented#address-info?)
(address-infos unimplemented#address-infos)

command-args
command-name

(configure-command-string unimplemented#configure-command-string)
(cpu-time unimplemented#cpu-time)

current-time
current-user-interrupt-handler
default-user-interrupt-handler
defer-user-interrupts

(err-code->string unimplemented#err-code->string)

getenv

(group-info unimplemented#group-info)
(group-info-gid unimplemented#group-info-gid)
(group-info-members unimplemented#group-info-members)
(group-info-name unimplemented#group-info-name)
(group-info? unimplemented#group-info?)
(host-info unimplemented#host-info)
(host-info-addresses unimplemented#host-info-addresses)
(host-info-aliases unimplemented#host-info-aliases)
(host-info-name unimplemented#host-info-name)
(host-info? unimplemented#host-info?)
(host-name unimplemented#host-name)
(network-info unimplemented#network-info)
(network-info-aliases unimplemented#network-info-aliases)
(network-info-name unimplemented#network-info-name)
(network-info-number unimplemented#network-info-number)
(network-info? unimplemented#network-info?)
(process-times unimplemented#process-times)
(protocol-info unimplemented#protocol-info)
(protocol-info-aliases unimplemented#protocol-info-aliases)
(protocol-info-name unimplemented#protocol-info-name)
(protocol-info-number unimplemented#protocol-info-number)
(protocol-info? unimplemented#protocol-info?)
(real-time unimplemented#real-time)

script-directory
script-file
seconds->time

(service-info unimplemented#service-info)
(service-info-aliases unimplemented#service-info-aliases)
(service-info-name unimplemented#service-info-name)
(service-info-port-number unimplemented#service-info-port-number)
(service-info-protocol unimplemented#service-info-protocol)
(service-info? unimplemented#service-info?)

setenv
shell-command

(socket-info-address unimplemented#socket-info-address)
(socket-info-family unimplemented#socket-info-family)
(socket-info-port-number unimplemented#socket-info-port-number)
(socket-info? unimplemented#socket-info?)
(system-stamp unimplemented#system-stamp)
(system-type unimplemented#system-type)
(system-type-string unimplemented#system-type-string)
(system-version unimplemented#system-version)
(system-version-string unimplemented#system-version-string)

time->seconds
time?

(timeout->time unimplemented#timeout->time)
(user-info unimplemented#user-info)
(user-info-gid unimplemented#user-info-gid)
(user-info-home unimplemented#user-info-home)
(user-info-name unimplemented#user-info-name)
(user-info-shell unimplemented#user-info-shell)
(user-info-uid unimplemented#user-info-uid)
(user-info? unimplemented#user-info?)
(user-name unimplemented#user-name)

))

;;;============================================================================
