15.4.1184  src/lib/std/src/socket/threadkit-unix-domain-socket.pkg

## threadkit-unix-domain-socket.pkg

# Compiled by:
#     src/lib/std/standard.lib



###                  "Things hard to come by are much esteemed."
###
###                                       -- Latin Proverb 


stipulate
    package tps =  threadkit_plain_socket;                              # threadkit_plain_socket        is from   src/lib/std/src/socket/threadkit-plain-socket.pkg
    package ts  =  threadkit_socket;                                    # threadkit_socket              is from   src/lib/std/src/socket/threadkit-socket.pkg
    package tss =  threadkit_socket::socket;
    package uds =  unix_domain_socket;                                  # unix_domain_socket            is from   src/lib/std/src/socket/unix-domain-socket.pkg
herein

    package   threadkit_unix_domain_socket
    : (weak)  Threadkit_Unix_Domain_Socket                              # Threadkit_Unix_Domain_Socket  is from   src/lib/std/src/socket/threadkit-unix-domain-socket.api
    {
        Unix = uds::Unix;

        Unix_Domain_Socket_Address =  ts::Socket_Address( Unix );
        Threadkit_Socket(X)        =  ts::Threadkit_Socket( Unix, X );

        Stream_Socket(X) = Threadkit_Socket( ts::Stream(X) );
        Datagram_Socket  = Threadkit_Socket( ts::Datagram );


        unix_address_family = uds::unix_address_family;
        #
        string_to_unix_domain_socket_address =   uds::string_to_unix_domain_socket_address;
        unix_domain_socket_address_to_string =   uds::unix_domain_socket_address_to_string;

        package stream {
            #
            fun socket ()          = tps::socket       (unix_address_family, tss::stream);
            fun socket' proto      = tps::socket'      (unix_address_family, tss::stream, proto);
            fun socket_pair ()     = tps::socket_pair  (unix_address_family, tss::stream);
            fun socket_pair' proto = tps::socket_pair' (unix_address_family, tss::stream, proto);
        };

        package datagram {
            #
            fun socket ()          = tps::socket       (unix_address_family, tss::datagram);
            fun socket' proto      = tps::socket'      (unix_address_family, tss::datagram, proto);
            fun socket_pair ()     = tps::socket_pair  (unix_address_family, tss::datagram);
            fun socket_pair' proto = tps::socket_pair' (unix_address_family, tss::datagram, proto);
        };
    };
end;

## COPYRIGHT (c) 1996 AT&T Research.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.