Function: hashcash-generate-payment-async

hashcash-generate-payment-async is a byte-compiled function defined in hashcash.el.gz.

Signature

(hashcash-generate-payment-async STR VAL CALLBACK)

Documentation

Generate a hashcash payment by finding a VAL-bit collision on STR.

Return immediately. Call CALLBACK with process and result when ready.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/hashcash.el.gz
(defun hashcash-generate-payment-async (str val callback)
  "Generate a hashcash payment by finding a VAL-bit collision on STR.
Return immediately.  Call CALLBACK with process and result when ready."
  (if (and (> val 0)
	   hashcash-program)
      (let ((process (apply 'start-process "hashcash" nil
			    hashcash-program "-m" "-q"
			    "-b" (number-to-string val) str
			    hashcash-extra-generate-parameters)))
	(setq hashcash-process-alist (cons
				      (cons process (current-buffer))
				      hashcash-process-alist))
	(set-process-filter process callback))
    (funcall callback nil nil)))