shell: Add wmfs-shell.

shell/wmfs-shell.c

@@ -0,0 +1,178 @@
+#include "wmfs-shell.h"
+
+void
+send_client_message(char* atom_name, long data_l[5])
+{
+     XEvent ev;
+     int i;
+
+     ev.xclient.type = ClientMessage;
+     ev.xclient.serial = 0;
+     ev.xclient.send_event = True;
+     ev.xclient.message_type = ATOM(atom_name);
+     ev.xclient.window = ROOT;
+     ev.xclient.format = 32;
+
+     for(i = 0; i < 6; ++i)
+          ev.xclient.data.l[i] = data_l[i];
+
+     XSendEvent(dpy, ROOT, False, SubstructureRedirectMask|SubstructureNotifyMask, &ev);
+     XSync(dpy, False);
+
+     return;
+}
+
+void
+spawn(char* arg)
+{
+     char  *sh;
+
+     if(!(sh = getenv("SHELL")))
+          sh = "/bin/sh";
+     if(!strlen(arg))
+          return;
+
+     if(fork() == 0)
+     {
+          if(fork() == 0)
+          {
+               setsid();
+               execl(sh, sh, "-c", arg, (char*)NULL);
+          }
+          exit(EXIT_SUCCESS);
+     }
+
+     return;
+}
+
+
+void
+exec_uicb_function(char *func, char *cmd)
+{
+     long data[5];
+
+     data[4] = True;
+
+     XChangeProperty(dpy, ROOT, ATOM("_WMFS_FUNCTION"), ATOM("UTF8_STRING"),
+                     8, PropModeReplace, (unsigned char*)func, strlen(func));
+
+     if(cmd == NULL)
+          cmd = "";
+     XChangeProperty(dpy, ROOT, ATOM("_WMFS_CMD"), ATOM("UTF8_STRING"),
+                     8, PropModeReplace, (unsigned char*)cmd, strlen(cmd));
+
+     send_client_message("_WMFS_FUNCTION", data);
+
+     return;
+}
+
+void
+manage_input(char *input)
+{
+     char *p = input;
+     char *q1, *q2, *tmp, *aargs = NULL, *func = input;
+     char **args;
+     int i, v = 0;
+
+
+     if(!strcmp(input, "clear"))
+          printf(CLEAR);
+     else if(!strcmp(input, "exit")
+        || !strcmp(input, "quit"))
+          exit(EXIT_FAILURE);
+     else if(!strcmp(input, "help")
+             || !strcmp(input, "list"))
+          printf(HELPSTR);
+     else if(!strcmp(input, "uicb_list")
+             || !strcmp(input, "uicb_function_list"))
+          printf(UICBLIST);
+
+     /* If there is a function ( func() ) */
+     else if((q1 = strchr(p, '('))
+             && (q2 = strchr(p, ')'))
+             && p[0] != '(')
+     {
+          /* Set FUNCTION Name AND ARGS in **args
+           * {{{ */
+
+          /* Get function name */
+          for(i = 0; i < strlen(p) - ((strlen(p) - strlen(q1))); ++i)
+               func[ (strlen(p) - strlen(q1)) + i ] = 0;
+
+          *q1 = *q2 = '\0';
+          aargs = q1 + 1;
+
+          /* Count how many ',' there is in aargs */
+          for(i = 0; i < strlen(aargs) + 1; ++i)
+               if(aargs[i] == ',')
+                    ++v;
+
+          args = malloc(sizeof(char*) * v + 1);
+          tmp = strtok(aargs, ",");
+
+          for(i = 0; tmp != NULL; ++i)
+          {
+               args[i] = tmp;
+               tmp = strtok(NULL, ",");
+          }
+          /*
+           * }}} */
+
+          /* Manage function */
+
+          if(!strcmp(func, "exec"))
+          {
+               if(v > 1 || !args[0])
+                    printf("Exec: exec(<uicb function name>, <cmd or nothing>).\n");
+               else
+               {
+                    if(!args[1])
+                         args[1] = NULL;
+                    exec_uicb_function(args[0], args[1]);
+               }
+          }
+          else if(!strcmp(func, "spawn"))
+          {
+               if(v > 0 || !args[0])
+                    printf("Spawn: spawn(<command>), Execute a system command.\n");
+               else
+                    spawn(args[0]);
+          }
+
+          free(args);
+     }
+
+
+     return;
+}
+
+int
+main(void)
+{
+     char *input, *p, c;
+
+     if(!(dpy = XOpenDisplay(NULL)))
+          fprintf(stderr, "wmfs-shell: Wmfs is probably not running: cannot open X server. \n");
+
+     for(;;)
+     {
+          printf(PROMPT);
+
+          input = malloc(sizeof(char) * SIZE);
+
+          fgets(input, SIZE, stdin);
+
+          if((p = strrchr(input, '\n')) != NULL)
+               *p = '\0';
+          else
+               while((c = fgetc(stdin)) != '\n' && c != EOF);
+
+          manage_input(input);
+
+          free(input);
+     }
+
+
+
+     return 0;
+}