15.4.816  src/lib/internet/posix-socket-junk.pkg

## posix-socket-junk.pkg

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

# socket_junk package for posix systems.

stipulate
    package uds =  unix_domain_socket__premicrothread;  # unix_domain_socket__premicrothread    is from   src/lib/std/src/socket/unix-domain-socket--premicrothread.pkg
    package skt =  socket__premicrothread;              # socket__premicrothread                is from   src/lib/std/socket--premicrothread.pkg
herein

    package   posix_socket_junk
    : (weak)  Posix_Socket_Junk                         # Posix_Socket_Junk                     is from   src/lib/internet/posix-socket-junk.api
    {
        include package   socket_junk;                  # socket_junk                           is from   src/lib/internet/socket-junk.pkg

        # Establish a client-side connection
        # to a Unix-domain stream socket:
        #
        fun connect_client_to_unix_domain_stream_socket  path
            =
            socket
            where
                socket =  uds::stream::make_socket ();
                #
                skt::connect  (socket,  uds::string_to_unix_domain_socket_address  path);
            end;
    };
end;


## COPYRIGHT (c) 1999 Bell Labs, Lucent Technologies.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.