kjdev

;;; snapshot
(defun snapshot ()
  (interactive)
  (let ((msg (read-from-minibuffer "comment: ")))
    (if (> (length msg) 0)
        (shell-command (concat "~/bin/snapshot -m \"" msg "\" " (buffer-file-name)))
      (shell-command (concat "~/bin/snapshot " (buffer-file-name))))))

kjdev

/* Crossroad I/O Client */
#include "xs/xs.h"
#include <string.h>
int main(int argc, char **argv)
{
    void *ctx = xs_init();
    void *backend = xs_socket(ctx, XS_DEALER);
    //xs_bind (backend, "ipc://backend");
    xs_bind (backend, "tcp://127.0.0.1:5570");
    xs_msg_t msg;