490
491
492
493
494
495
496
497
498
499
500
501
502
503
|
(define-inline (decode data)
(with-input-from-string
data
(lambda ()
(read))))
(define (is-port-in-use port-num)
(let* ((ret #f))
(let-values (((inp oup pid)
(process "netstat" (list "-tulpn" ))))
(let loop ((inl (read-line inp)))
(if (not (eof-object? inl))
(begin
|
>
>
| 490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
|
(define-inline (decode data)
(with-input-from-string
data
(lambda ()
(read))))
;; moved to portlogger - TODO: remove from here and get from portlogger
;;
(define (is-port-in-use port-num)
(let* ((ret #f))
(let-values (((inp oup pid)
(process "netstat" (list "-tulpn" ))))
(let loop ((inl (read-line inp)))
(if (not (eof-object? inl))
(begin
|