#include <stdio.h> //BUFSIZ
#include <stdlib.h>
#include <iostream>
#include <fstream>
#include <string.h> //memset()

#ifdef _WIN32
#include <winsock2.h>
#pragma comment(lib, "ws2_32.lib")
#else
#define INVALID_SOCKET -1
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>
#include <unistd.h> //unlink()
#endif

using namespace std;


#ifdef _WIN32
WSAData wsaData;
#endif
u_short serverPort;
int sock1;
int sock2;
int l;
struct sockaddr_in serverAddr;
struct sockaddr_in clientAddr;
char buffer[BUFSIZ]; // BUFSIZ "~default size"

int initServer() {
#ifdef _WIN32
  if(WSAStartup(MAKEWORD(2,2), &wsaData ) != 0 ){ //initialiser WinSock et a verifier le numero de version.
    cout<<"WSAStartup: error"<<endl;//Cette etape est INDISPENSABLE, sans quoi le Windows ne renverra aucune socket valide au programme.
    return -1;
  }
#endif

  sock1 = socket(AF_INET, SOCK_STREAM, 0);
  /*
    SOCKET PASCAL FAR socket (
    int af,
    int type,
    int protocol
    );

    * af : Specifie le format des adresses.(tPF_INET....)
    * type : Specifie le type de SOCKET.
    Types de SOCKET :
    -SOCK_STREAM : TCP.
    -SOCK_DGRAM :  UDP.
    * protocol : Si un protocole particulier est a utiliser avec le SOCKET, sinon 0. */

  if(sock1 == INVALID_SOCKET) {							// -1
    cout<<"invalid socket: "<<INVALID_SOCKET<<endl;
#ifdef _WIN32
    closesocket(sock1);
#else
    close(sock1);
#endif
    return INVALID_SOCKET;
      }

  serverAddr.sin_family = AF_INET;
  serverAddr.sin_port = htons(serverPort);//port (htcons : convertir un int en u_short)
  serverAddr.sin_addr.s_addr = INADDR_ANY;//adresse_distante

  if(bind(sock1, (struct sockaddr *)&serverAddr, sizeof(struct sockaddr)) ==
     -1) { //bind - Fournir un nom a une socket.
    cout<<"bind problem"<<endl;
    //Assigner un nom dans le domaine UNIX par bind cree une socket dans le systeme de fichier,
    //qui devra etre detruite par le createur une fois qu'il n'en a plus besoin, en utilisant unlink(2) .
#ifdef _WIN32
    closesocket(sock1);
#else
    close(sock1);
    unlink((const char *)sock1);
#endif
    return -1;
  }

  return 0;
}


int runServer() {
//socklen_t*  fromlen;//Dummy for use recvfrom()						(1)
  listen(sock1, 1);
  cout<<"Attente de connexion"<<endl;
  l = sizeof(sockaddr);
  //sock2 = accept(sock1, (sockaddr *)&clientAddr, &l); marche que sous windows
  sock2 = accept(sock1, (struct sockaddr *)&clientAddr, (socklen_t *)&l);
  cout<<"Socket connectee"<<endl;

  memset(buffer, '\0', sizeof(buffer)); //memset - Remplir une zone de memoire avec un octet donne.
  
  
  recv(sock2, buffer, sizeof(buffer), 0); //obsolete ? http://manpagesfr.free.fr/man/man2/recv.2.html
   //  recvfrom(sock2, buffer,  sizeof(buffer), 0, 0, fromlen);					(1)
  //Fromlen est un parametre resultat, initialise  la taille du buffer from, et modifie en retour pour indiquer la taille reelle de l'adresse enregistree.
  /*recvfrom et recvmsg sont utilises pour recevoir des messages depuis une socket s, et peuvent servir a la lecture de donnees que la socket soit orientee
   * connexion ou non.
   * Si from est non nul, et si la socket n'est pas orientee connexion, l'adresse de la source du messages y est inseree. Fromlen est un parametre resultat,
   * initialise a la taille du buffer from, et modifie en retour pour indiquer la taille reelle de l'adresse enregistree.
   * recv() =recvfrom avec un parametre from nul. il est possible que recv ne soit plus maintenu dans le futur.*/
   
   
   
  string request;
  request = buffer; // ?? pourquoi ? parce que sinon error: request for member `c_str' in `buffer', which is of non-class type `char[1024]'
  cout<<request.c_str()<<endl; //c_str permet de convertir une AnsiString en une chaine C (C string) utile ici ? request est deja un string
  sprintf(buffer, "Server reply");
  cout<<buffer<<endl;
 // send(sock2, buffer, sizeof(buffer), 0); obsolete ?
  //send, sendto, sendmsg - Envoyer un message sur une socket.
sendto(sock2, buffer, sizeof(buffer), 0,0,0); //<= CERTAINEMENT ERREUR
//http://www.linux-kheops.com/doc/man/manfr/man-html-0.9/man2/send.2.html
  return 0;
}


int closeServer() {
#ifdef _WIN32
  closesocket(sock1);
#else
  close(sock1);
#endif

  return 0;
}


int main(int argc, char *argv[])
{
  serverPort = 8000;
  if(initServer() != 0) {
#ifdef _WIN32
    WSACleanup();
#endif
  }
  else {
    runServer();
    closeServer();
  }
}