/*Example of client using TCP protocol  */

#include "inet.h"

main(argc, argv)
int argc;
char *argv[];
{
          int  sockfd;
          struct sockaddr_in   serv_addr;

          pname = argv[0];
          /* Fill in the structure "seirv_addr" with 
             the address of the server that we want to connect with. */

          bzero((char *) &serv_addr, sizeof(serv_addr));
          serv_addr.sin_family       =  AF_INET;
          serv_addr.sin_addr.s_addr  =  inet_addr(SERV_HOST_ADDR);
          serv_addr.sin_port         =  htons(SERV_TCP_PORT);
 
          /* Open a TCP socket (an Internet stream socket).  */

          if ( (sockfd  = socket(AF_INET, SOCK_STREAM, 0)) < 0)
                   err_sys("client: can't open stream socket");

          /* Connect to the server.    */

          if (connect(sockfd, (struct sockaddr *)  &serv_addr, 
                                              sizeof(serv_addr)) < 0) 
                    err_sys("client: can't connect to server");
         
          str_cli(stdin, sockfd);
   
          close(sockfd);
          exit(0);
}
 

#include <stdio.h>
#define MAXLINE 512
str_cli(fp, sockfd)
register FILE  *fp;
register int   sockfd;
{
          int     n;
          char    sendline[MAXLINE], recvline[MAXLINE + 1];

          while   (fgets(sendline, MAXLINE, fp) !=NULL) {
                    n = strlen(sendline);
                    if  (written(sockfd, sendline, n) !=n)
                            err_sys("str_cli: written error on socket");

                    /* Now read a line form the socket and write it to */
                    /* our standard output.                            */

                    n = readline(sockfd, recvline, MAXLINE);
                    if (n < 0)
                               err_sys("str_cli: readline error");
                    recvline[n] = 0;
                    fputs(recvline, stdout);
           }

}
              

err_sys(a)
char *a;
{
int i;
        for (i=0; i<=30; i++)
            {  printf("%c", *a);
               a++;
            }
}

int
readline(fd, ptr, maxlen)
register int fd;
register char *ptr;
register int maxlen;
{
 
       int n, rc;
       char c;
 
       for (n = 1; n < maxlen; n++)  {
               if ( (rc = read(fd, &c, 1)) == 1) {
                     *ptr ++=c;
                     if (c == '\n')
                           break;
                  } else if (rc == 0) {
                              if ( n == 1)
                                 return (0);
                              else
                                  break;
                           }else
                                 return (-1);
         }
 
              *ptr=0;
              return (n);
}


int
written(fd, ptr, nbytes)
register int fd;
register char *ptr;
register nbytes;
{
int   nleft, nwritten;
 
      nleft = nbytes;
      while (nleft > 0) {
                nwritten = write(fd, ptr, nleft);
                if (nwritten <=0)
                    return(nwritten);
 
                 nleft -= nwritten;
                 ptr   += nwritten;
       }
       return(nbytes - nleft);
 
}