#include <X11/extensions/XTest.h>
#include <X11/Xlib.h>
#include <X11/keysym.h>
#include <X11/Xresource.h>
#include <X11/Xatom.h>
#include <iostream>
#include <string>

Window *listWin (Display *disp, unsigned long *len);
char *nameWin (Display *disp, Window win);
void sendKey(Display* disp, char letter);

int main(int argc, char* argv[]){
	int i, counter, selectWindow, currentState;
	unsigned long len;
	char *name;
	XKeyEvent esend;
	Display *disp = XOpenDisplay(NULL);
	Window *list, currentWindow;
	std::string data;
	
	XGetInputFocus(disp, &currentWindow, &currentState); // Getting the current focused window
    	list = (Window*)listWin(disp,&len); // Getting all the windows
	
	for (i=0;i<(int)len;i++) {
		name = nameWin(disp,list[i]);
		std::cout << i << " : " << name << std::endl; // Display window's name
    	}
    	
    	std::cout << "Wich window do you want to use ?" << std::endl;
    	std::cin>>selectWindow;
	if(selectWindow<0 || selectWindow >i){
	    std::cout << "Invalid window" << std::endl;
	    return 1;
	}
	std::cout << "Data to send ?" << std::endl;
	std::cin.ignore(); 
	std::getline(std::cin,data);
	
	std::cout << "Number of sending : " << std::endl;
	std::cin >> counter;
	
	for(counter;counter > 0; counter--){
	  XSetInputFocus(disp, list[selectWindow],RevertToPointerRoot,0);
	  for(i=0;i<data.size();i++)
	    sendKey(disp, data[i]); // Send a char to the window
	  
	  sleep(1); // Sleep is needed, otherwise, the return caracter is not send.
	  sendKey(disp, '\n');
	}
	
	XSetInputFocus(disp, currentWindow, RevertToPointerRoot, 0); // Put the old window on focus
  	XFlush(disp);
	return 0;
}

void sendKey(Display* disp, char letter){ // Send a char to the selected window
    KeySym key;
    switch(letter){ // this switch is requiered to handle all the keyboards, you can add case: if you need
		case '1': key = XK_1; break;
		case '2': key = XK_2; break;
		case '3': key = XK_3; break;
		case '4': key = XK_4; break;
		case '5': key = XK_5; break;
		case '6': key = XK_6; break;
		case '7': key = XK_7; break;
		case '8': key = XK_8; break;
		case '9': key = XK_9; break;
		case '0': key = XK_0; break;

		case 'a': key = XK_a; break;
		case 'b': key = XK_b; break;
		case 'c': key = XK_c; break;
		case 'd': key = XK_d; break;
		case 'e': key = XK_e; break;
		case 'f': key = XK_f; break;
		case 'g': key = XK_g; break;
		case 'h': key = XK_h; break;
		case 'i': key = XK_i; break;
		case 'j': key = XK_j; break;
		case 'k': key = XK_k; break;
		case 'l': key = XK_l; break;
		case 'm': key = XK_m; break;
		case 'n': key = XK_n; break;
		case 'o': key = XK_o; break;
		case 'p': key = XK_p; break;
		case 'q': key = XK_q; break;
		case 'r': key = XK_r; break;
		case 's': key = XK_s; break;
		case 't': key = XK_t; break;
		case 'u': key = XK_u; break;
		case 'v': key = XK_v; break;
		case 'w': key = XK_w; break;
		case 'x': key = XK_x; break;
		case 'y': key = XK_y; break;
		case 'z': key = XK_z; break;


		case 'A': key = XK_a; break;
		case 'B': key = XK_b; break;
		case 'C': key = XK_c; break;
		case 'D': key = XK_d; break;
		case 'E': key = XK_e; break;
		case 'F': key = XK_f; break;
		case 'G': key = XK_g; break;
		case 'H': key = XK_h; break;
		case 'I': key = XK_i; break;
		case 'J': key = XK_j; break;
		case 'K': key = XK_k; break;
		case 'L': key = XK_l; break;
		case 'M': key = XK_m; break;
		case 'N': key = XK_n; break;
		case 'O': key = XK_o; break;
		case 'P': key = XK_p; break;
		case 'Q': key = XK_q; break;
		case 'R': key = XK_r; break;
		case 'S': key = XK_s; break;
		case 'T': key = XK_t; break;
		case 'U': key = XK_u; break;
		case 'V': key = XK_v; break;
		case 'W': key = XK_w; break;
		case 'X': key = XK_x; break;
		case 'Y': key = XK_y; break;
		case 'Z': key = XK_z; break;

		case 'é': key = XK_2; break;
		case 'è': key = XK_7; break;

		case '!': key = XK_exclam; break;
		case ' ': key = XK_space; break;
		case '\n': key = XK_Return; break;

		default : key = XK_space; break;
	}
     
    XTestGrabControl (disp, True);
    XTestFakeKeyEvent (disp, XKeysymToKeycode(disp, key), True, 0);  
    XTestFakeKeyEvent (disp, XKeysymToKeycode(disp, key), False, 0);
    XSync (disp, False);  
    XTestGrabControl (disp, False);  
}

Window *listWin (Display *disp, unsigned long *len) { // List all the application running on X
    Atom prop = XInternAtom(disp,"_NET_CLIENT_LIST",False), type;
    int form;
    unsigned long remain;
    unsigned char *list;
 
    if (XGetWindowProperty(disp,XDefaultRootWindow(disp),prop,0,1024,False,XA_WINDOW,
                &type,&form,len,&remain,&list) != Success) {
	return 0;
    }
     
    return (Window*)list;
}
char *nameWin (Display *disp, Window win) { // Return a window name
    Atom prop = XInternAtom(disp,"WM_NAME",False), type;
    int form;
    unsigned long remain, len;
    unsigned char *list;
 

    if (XGetWindowProperty(disp,win,prop,0,1024,False,AnyPropertyType,
                &type,&form,&len,&remain,&list) != Success) {
        
        return NULL;
    }
 
    return (char*)list;
}