[самоделкиным] Управление usb-> serial портом прямо из Lisp'a

А че в Talks?

Может флейм будет? Набегут и скажут, типа лисп сосет в задачах риал-тайм, а с/пестон/перл/что-нибудь еще рулят.

> Может флейм будет? Набегут и скажут, типа лисп сосет в задачах риал-тайм, а с/пестон/перл/что-нибудь еще рулят.
Нет, ты многое пропустил. Теперь здесь люди ценят красоту и мощь LISP`а.
Так что флейм здесь невозможен. Ну, только кто-нибудь предложит более лаконичный вариант.

> Может флейм будет?

А зачем оно тебе нужно?

Интересно просто. Может кто какими железками из линакса рулит, а может кто и сам такие железки делает. Помню, Вилфред целым телескопом управлял, у себя в обсерватории.

> типа лисп сосет в задачах риал-тайм, а с/пестон/перл/что-нибудь еще рулят.

#!/usr/bin/mzscheme -r
; syntax: redirect <source-port> <target-port> <target-host>
; - Redirects tcp traffic from <source-por> into <target-port>
<target-host>
(require (lib "cmdline.ss") (lib "thread.ss"))
(define (redirect source-port target-port target-host)
(run-server source-port
(lambda (s-in s-out)
(let-values (((t-in t-out) (tcp-connect target-host
target-port)))
(thread (lambda() (copy-port s-in t-out)))
(copy-port t-in s-out)))
#f))
(command-line "redirect" (current-command-line-arguments)
(help-labels "Redirects connections to <source-port> to
<target-port> <target-host>")
(args (source-port target-port target-host)
(redirect (string->number source-port)
(string->number target-port)
target-host)))

Вот редирект трафика на Scheme.

Я слышал целые операционные системы управляют железом. А код - на плюсах(!). Куда прогресс дошёл...

Гы, у меня был электронный термометр на AVR. Управлял из C. Тока через LPT. USB я не осилил