home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / oclsrc15.zip / OCL / Source / OIP_Socket.cpp < prev    next >
C/C++ Source or Header  |  1996-08-12  |  6KB  |  290 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1996
  3. // (c) 1982, 1985, 1986 Regents of the University of California.
  4. // (c) Raoul Gema 1996
  5. // All Rights Reserved
  6. // OIP_Socket.cpp
  7.  
  8. /*
  9.  * Redistribution and use in source and binary forms, with or without
  10.  * modification, are permitted provided that the following conditions
  11.  * are met:
  12.  * 1. Redistributions of source code must retain the above copyright
  13.  *    notice, this list of conditions and the following disclaimer.
  14.  * 2. Neither the name Cubus nor the name Team OCL may be used to
  15.  *    endorse or promote products derived from this software
  16.  *    without specific prior written permission.
  17.  * 3. See OCL.INF for a detailed copyright notice.
  18.  *
  19.  *              THIS SOFTWARE IS PROVIDED ``AS IS'' AND
  20.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29.  * SUCH DAMAGE.
  30.  */
  31.  
  32.  
  33. // $Header: W:/Projects/OCL/Source/rcs/OIP_Socket.cpp 1.50 1996/08/11 23:49:20 B.STEIN Release $
  34.  
  35. #define __OCL_SOURCE__
  36.  
  37. #define OINCL_OSTRING
  38. #define OINCL_BASE
  39.  
  40. #include <ocl.hpp>
  41. #include <OIP_Socket.hpp>
  42. #include <OMessage.hpp>
  43.  
  44. OIP_Socket::OIP_Socket()
  45. {
  46.  phost = NULL;
  47.  s     = 0;
  48. }
  49.  
  50.  
  51. OIP_Socket::OIP_Socket(phostent p)
  52. {
  53.  phost = new OIP_Host;
  54.  phost->Set(p);
  55.  s     = 0;
  56. }
  57.  
  58.  
  59. OIP_Socket::~OIP_Socket()
  60. {
  61.  close();
  62. }
  63.  
  64.  
  65. PSZ OIP_Socket::isOfType() const
  66. {
  67.  return("OIP_Socket");
  68. }
  69.  
  70.  
  71. int OIP_Socket::close()
  72. {
  73.  int ok;
  74.  
  75.  if (s)
  76.   {
  77.    ok = ::soclose(s);
  78.    s = 0;
  79.   }
  80.  return(ok);
  81. }
  82.  
  83.  
  84. int OIP_Socket::sysinit(USHORT version)
  85. {
  86.  return(::sock_init());
  87. }
  88.  
  89. int OIP_Socket::sysfree()
  90. {
  91.  return(0);
  92. }
  93.  
  94. int OIP_Socket::Get_socket()
  95. {
  96.  return(s);
  97. }
  98.  
  99. int OIP_Socket::Set_socket(int sock)
  100. {
  101.  return(s = sock);
  102. }
  103.  
  104. pOIP_Host OIP_Socket::Get_phost()
  105. {
  106.  return(phost);
  107. }
  108.  
  109. pOIP_Host OIP_Socket::Sethostent(phostent ph)
  110. {
  111.  if (phost)
  112.    delete phost;
  113.  
  114.  phost = new OIP_Host;
  115.  phost->Set(ph);
  116.  
  117.  return(phost);
  118. }
  119.  
  120. int OIP_Socket::Gethostname(PSZ hostname, UINT size)
  121. {
  122.  return(::gethostname(hostname, size));
  123. }
  124.  
  125. pOIP_Host OIP_Socket::Gethostbyname(PSZ hostname)
  126. {
  127.  phostent p = ::gethostbyname(hostname);
  128.  
  129.  if (!p)
  130.    throw OIP_SocketException(OIP_SocketException::egethostbyname, GetErrorCode());
  131.  return(Sethostent(p));
  132. }
  133.  
  134. pOIP_Host OIP_Socket::Gethostbyaddr(PSZ hostaddress, int type)
  135. {
  136.  return(Sethostent(::gethostbyaddr(hostaddress, 4, type)));
  137. }
  138.  
  139. pservent OIP_Socket::Getservbyname(PSZ name, PSZ proto)
  140. {
  141.  return(::getservbyname(name, proto));
  142. }
  143.  
  144. void OIP_Socket::Setin_port(USHORT port)
  145. {
  146.  sockadd.Setin_port(port);
  147. }
  148.  
  149. USHORT OIP_Socket::Getin_port()
  150. {
  151.  return(sockadd.Getin_port());
  152. }
  153.  
  154. ULONG OIP_Socket::Set_sin_addr()
  155. {
  156.  return((phost) ? sockadd.Set_sin_addr(Getaddr_list()) : 0);
  157. }
  158.  
  159. ULONG OIP_Socket::Set_sin_addr(ULONG addr)
  160. {
  161.  return(sockadd.Set_sin_addr(addr));
  162. }
  163.  
  164. BOOL OIP_Socket::Set_address(USHORT port, PSZ target)
  165. {
  166.  if ((!Gethostbyname(target)) ||  (!Set_sin_addr()))
  167.    return(TRUE);
  168.  
  169.  Setin_port(port);
  170.  return(FALSE);
  171. }
  172.  
  173.  
  174. ULONG OIP_Socket::Set_sin_addr(PSZ target)
  175. {
  176.  return(sockadd.Set_sin_addr(target));
  177. }
  178.  
  179. ULONG OIP_Socket::Get_sin_addr()
  180. {
  181.  return(sockadd.Get_sin_addr());
  182. }
  183.  
  184. short OIP_Socket::Set_sin_family(short family)
  185. {
  186.  return(sockadd.Set_sin_family(family));
  187. }
  188.  
  189. short OIP_Socket::Get_sin_family()
  190. {
  191.  return(sockadd.Get_sin_family());
  192. }
  193.  
  194. ULONG OIP_Socket::Getaddr_list(UINT index)
  195. {
  196.  return(*((ULONG *)phost->h_data.h_addr_list[index]));
  197. }
  198.  
  199. void OIP_Socket::Get_inet_addr(PSZ adress)
  200. {
  201.  sockadd.Get_inet_addr(adress);
  202. }
  203.  
  204. int OIP_Socket::socket(int net, int typ, int y)
  205. {
  206.  int x = ::socket(net, typ, y);
  207.  if (x == -1)
  208.     throw OIP_SocketException(OIP_SocketException::esocket, GetErrorCode());
  209.  return s = x;
  210. }
  211.  
  212.  
  213. OIP_Socket::operator =(int handle)
  214. {
  215.  return(s = handle);
  216. }
  217.  
  218.  
  219. OIP_Socket::operator int()
  220. {
  221.  return(s);
  222. }
  223.  
  224.  
  225. OIP_Socket::operator OIP_SockAddress()
  226. {
  227.  return(sockadd);
  228. }
  229.  
  230. OIP_Socket::operator pOIP_SockAddress()
  231. {
  232.  return(&sockadd);
  233. }
  234.  
  235. psockaddr OIP_Socket::Get_sockaddr()
  236. {
  237.  return((psockaddr) sockadd.Get_sockaddr_in());
  238. }
  239.  
  240. int OIP_Socket::send(PSZ buffer, int size, int options)
  241. {
  242.  int x = ::send(s, buffer, size, options);
  243.  if (!x)
  244.     throw OIP_SocketException(OIP_SocketException::esend, GetErrorCode());
  245.  return x;
  246. }
  247.  
  248. int OIP_Socket::recv(PSZ buffer, int size, int options)
  249. {
  250.  int x = ::recv(s, buffer, size, options);
  251.  if (!x)
  252.    throw OIP_SocketException(OIP_SocketException::erecv, GetErrorCode());
  253.  return x;
  254. }
  255.  
  256. int OIP_Socket::GetErrorCode()
  257. {
  258.  return(::sock_errno());
  259. }
  260.  
  261.  
  262. OIP_Socket::OIP_SocketException::OIP_SocketException(excepttyp typ,
  263.                                                      int errorvalue)
  264.    : OException((PSZ)NULL, 0, OException::unrecoverable)
  265. {
  266.  etyp  = typ;
  267.  value = errorvalue;
  268.  rc    = value;  
  269.  description << OIP::error(etyp);
  270. }
  271.  
  272.  
  273. OIP_Socket::OIP_SocketException::~OIP_SocketException()
  274.   {}
  275.  
  276.  
  277. PSZ OIP_Socket::OIP_SocketException::isOfType() const
  278. {
  279.  return("OIP_Socket::OIP_SocketException");
  280. }
  281.  
  282.  
  283. void OIP_Socket::OIP_SocketException::viewError()
  284. {
  285.  cout << description.getText() << "rc = " << rc << endl;
  286. }
  287.  
  288.  
  289. // end of source
  290.