[Armedbear-devel] Fllow up – schedule thread? Re: process run function

[Alessio Stalla]

On Thu, May 29, 2014 at 9:49 PM, bonasso <bonasso at traclabs.com> wrote:

>
> Some lisps have an allow-schedule for processes, such as
> (mp::process-allow-schedule).
> Basically, this function allows processes other than the running (and
> hence calling) process to run. All other processes of equal or higher
> priority to the calling process will have a chance to run before the
> calling process is next run. This function is useful when a process seems
> to be using all available resources.
>
> I couldn't find anything like that in the threads package unless it had to
> do with mutex...
>
> Is there an equivalent function in abcl?
>

This is called yield in Java land. That might ring a bell to you.

BTW unless you're using implementation-specific features, it probably makes
sense to use the bordeaux-threads portability library to have the same
threading API on all major Lisps.

>  bonasso <bonasso at traclabs.com> <bonasso at traclabs.com> writes:
>
>
>  In ACL one starts a process with a function as follows:
>
> (mp::process-run-function
>   'start-raps
>   rap::rap-state* 2 nil)
>
> where you give process-run-function the function name and the rest are
> the args to that function.
>
> I couldn't really find how to do that in abcl. system::run-program was
> the closest thing but the definition in the manual didn't seem to be
> what I was looking for.
>
>
>  Looking at the documentation of "process-run-function" it seems that
> what you want is to run a function in a another thread and not a system
> program (which is what "run-program" is for). You should look in the
> manual for the THREADS package, especially the "make-thread" function.
>
> The interface of "make-thread" is slightly different from the interface
> of "process-run-function" due to the fact that "make-thread" receives a
> function, but not it's arguments.
>
> However you can work around this by providing your own wrapper function
> similar to this:
>
>     (defun my-make-thread (name function &rest arguments)
>       (threads:make-thread (lambda ()
>                              (apply function arguments))
>         :name (if (symbolp name)
>                   (symbol-name name)
>                 name)))
>
> And then you can use it like this:
>
>     (setf my-thread (my-make-thread 'my-thread-name #'format nil "This is an example: ~s" 10))
>
>     (let (output)
>       (setf output (threads:thread-join my-thread))
>       output)
>
> And output should contain the string "This is an example: 10".
>
>
>
> _______________________________________________
> Armedbear-devel mailing list
> Armedbear-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20140529/cf76d387/attachment.html>
-------------- next part --------------
_______________________________________________
Armedbear-devel mailing list
Armedbear-devel at common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel