emacs - Fine-tuning: `set-process-sentinel` | `set-process-filter` | `start-process` -

-

there few examples on internet involving 3 of functions @ issue in question -- i.e., set-process-sentinel; set-process-filter; , start-process.

i've tried few different methods of fine-tuning the processes in effort force process number 1 (push) finish prior commencement of process number 2 (push). in of attempts, second process always runs , finishes before have finished entering password process number 1. process number 2 has password stored in osxkeychain.

the first method tried magit, both synchronous , asynchronous processes. second method tried using function while . . . search list of remotes in buffer containing said list. third attempt listed below -- uses list of remotes created @ outset of function , mapcars down list push git.

any ideas on how better control process number 1 (push) finishes prior commencement of process number 2 (push) appreciated.

it not end of world process number 2 starts , finishes early, matter of learning how take control on emacs processes -- rather processes taking control of me.

edit (april 23, 2014):  added doc-string. revised handling of buffer *remotes* -- i.e., kill-local-variable 'git-remote-list , erase-buffer works correctly using with-current-buffer ...

(defvar git-remote-list nil "list of remote locations -- e.g., lawlist_remote or github_remote.") (make-variable-buffer-local 'git-remote-list)  (defvar git-commit-message (format "committed -- %s" (current-time-string)) "the predetermined git commit message.") (make-variable-buffer-local 'git-commit-message)  (defun my-process-filter (proc string)   (when (string-match "password" string)     (process-send-string       proc       (concat (read-passwd "password: ") "\n"))))  (defun my-process-sentinel (proc string)   (when (= 0 (process-exit-status proc))     (message "process `%s` has finished." proc)))  (defun stage-commit-push-all () "this function following:   * save current working buffer if has been modified.   * gather list of remotes associated working directory git project.   * stage -- `/usr/local/git/bin/git add .`   * commit -- `/usr/local/git/bin/git commit -m [git-commit-message]`   * push remotes:  `/usr/local/git/bin/git push -v [remote] [current-branch]` obtaining current branch presently requires installation of magit." (interactive)   (when (buffer-modified-p)     (save-buffer))   (when (get-buffer "*remotes*")     (with-current-buffer (get-buffer "*remotes*")       (kill-local-variable 'git-remote-list)       (erase-buffer)))   (set-process-sentinel     (start-process       "list-remotes"       "*remotes*"       "/usr/local/git/bin/git"       "remote"       "-v")     (lambda (p e) (when (= 0 (process-exit-status p))       (let* (           beg           end           git-remote-name)         (with-current-buffer (get-buffer "*remotes*")           (goto-char (point-max))           (while (re-search-backward "\(push\)" nil t)             (beginning-of-line 1)             (setq beg (point))             (re-search-forward "\t" nil t)             (setq end (- (point) 1))             (setq git-remote-name (buffer-substring-no-properties beg end))             (setq git-remote-list               (append (cons git-remote-name git-remote-list)))) ))       (set-process-sentinel         (start-process           "stage-all"           "*output*"           "/usr/local/git/bin/git"           "add"           ".")         (lambda (p e) (when (= 0 (process-exit-status p))           (set-process-sentinel             (start-process               "commit-all"               "*output*"               "/usr/local/git/bin/git"               "commit"               "-m"               git-commit-message)             (lambda (p e) (when (= 0 (process-exit-status p))               (mapcar (lambda (x)                 (let ((proc                     (start-process                       "push-process"                       "*output*"                       "/usr/local/git/bin/git"                       "push"                       "-v"                       (format "%s" x)                       (magit-get-current-branch))))                   (set-process-filter proc 'my-process-filter)                   (set-process-sentinel proc 'my-process-sentinel) ))                 (with-current-buffer (get-buffer "*remotes*") git-remote-list)     )))))))))))

the approach springs mind make each call start-process dependent on sentinel previous process.

in essence, generate queue of things want do, trigger processing of first queue item, , let each sentinel trigger start process next queue item (if any) once own process has completed.


Comments

Post a Comment

Popular posts from this blog

How to access named pipes using JavaScript in Firefox add-on? -

-
i'm trying access named pipe in firefox add-on. code, based on solution 2 this codeproject question, is: var file = components.classes["@mozilla.org/file/local;1"].createinstance(components.interfaces.nsilocalfile); file.initwithpath("\\\\.\\pipe\\test"); var text = "some text written"; var writer = components.classes["@mozilla.org/network/file-output-stream;1"].createinstance(components.interfaces.nsifileoutputstream); // open file read/write access, , create if not exist. writer.init (file, 0x04 | 0x08, -1, 0); writer.write (text, text.length); writer.flush (); writer.close (); when run firefox scratchpad, get: /* exception: component returned failure code: 0x80520012 (ns_error_file_not_found) [nsifileoutputstream.init] @6 */ line 6 line call writer.init. i've played passing different flags writer.init, no luck. i'm able write normal file path code, not named pipe path. i've been searching more information of da...
Read more

multithreading - OPAL (Open Phone Abstraction Library) Transport not terminated when reattaching thread? -

-
i in process of writing application using opal makes h323 calls. have looked online number of working examples , have managed put resembles should like, @ present able call external ip via application when accept call craps out , dies. leaving me with: 0:12.949 setupcall:8752 sert.cxx(259) assertion fail: transport not terminated when reattaching thread , file d:\voip\software\opal\src\opal\transports.cxx, line 1021 passertfunc(0xde3f88, 0xffffffffd228226f, 0, 0) + 0x82 passertfunc(0x10d6e5f8, 0x3fd, 0, 0x10d6eb98) + 0x15b opaltransport::attachthread(0xde5870, 0xffffffffd22fc76b, 0, 0) + 0x96 h323connection::setupconnection(0xffffffffd22fc713, 0, 0, 0xde6ea8) + 0x196 asynchcallsetup(0x10d3572c, 0, 0, 0xdd0108) + 0x7c pthread1arg<psafeptr<opalconnection,psafeptrbase> >::main(0xffffffffd2282faf from have deduced, perhaps incorrectly if there thread lock issue caused (possibly arising fact application sending expected h323 call, throwing in c...
Read more

node.js - req param returns an empty array -

-
i using node.js , mongodb geolocation app , req param returns empty array exports.findpressure = function(req, res) { var queryobject = req.param('q'); console.log(queryobject); db.collection('pressure', function(err, collection) { collection.find( { loc: { $near :[ req.param('q') ] , $maxdistance : 5 }},{"value" : 1, _id : 0}) .sort({_id : -1}).limit(1).toarray(function(err, items) { res.send(items); }); }); }; the longitude , latitude values displayed in console listening on port 3000... connected 'weather' database 8.9068256,52.019347499999995 /pressure?q=8.9068256,52.019347499999995 200 27ms - 2b the url follows http://localhost:3000/pressure?q=8.9068256,52.019347499999995 if use values 8.9068256,52.019347499999995 getting value database if use req.param('q') returning empty array you seem passing values part of query string. req.query.q should contain comma-s...
Read more