Interface for qBeta module object

Origin: LIB

SocketSystem: obj
   SocketSystem: LIB.BasicSystem.BasicSystem
      Socket:
         sockfd: var integer -- a file descriptor
         portno: var integer
         INVALID_SOCKET:
            out V: var integer
         init:
            in pno: var integer
            new_socket:
               %external
               out V: var integer
         connect:
            in adr: ref string.String
            do_connect:
               %external
               in S: var integer
               in adr: ref String.string
               in portno: var integer
               out V: var integer
            V: var integer
         ioctl:
            in cmd: var integer
            out V: var integer
            do_ioctl:
               %external
               in S: var integer
               in cmd: var integer
               out res: var integer
         bind:
            do_bind:
               %external
               in S: var integer
               in port: var integer
               out V: var integer
            V: var integer
         listen:
            do_listen:
               %external
               in S: var integer
               out V: var integer
         accept: -- new Socket
            in theCaller: ref BasicProcess
            out sock: ref Socket
            do_accept:
               %external
               in S: var integer
               out V: var integer
            S: var integer
            awaitAccept:
         send:
            in msg: ref String.String
            out V: var integer
            do_send:
               %external
               in S: var integer
               in msg: ref String.string
               out V: var integer
         receive:
            in caller: ref BasicProcess
            out msg: ref String.String
            do_rec:
               %external
               in S: var integer
               out msg: ref String.String
            loop: obj
         close:
            do_close:
               %external
               in S: var integer