usocket-devel

usocket-devel@common-lisp.net

248 discussions

[usocket-devel] Fwd: lispworks udp
by Chun Tian 26 Feb '08

26 Feb '08

Hi, usocket project More work on LispWorks UDP support has been done in these days, now I have both UDP server and client API, and send/recv message support. SVN URL is https://cl-net-snmp.svn.sourceforge.net/svnroot/cl-net-snmp/lispworks-udp P.S. still waiting for usocket UDP API:) Chun Tian (binghe) >> >> > > New message-based API and new test has been submited into SVN head, > see this demo: > > (defun udp-echo-test-3 (&optional (port 10000) (function #'identity)) > (comm:with-udp-server (server :function function :service port) > ;;; stream test > (comm:with-udp-stream (stream "localhost" port :read-timeout 1) > (let ((data "Hello, world!")) > (format stream "~A" data) > (terpri stream) ;; = "~%" or #\Newline > (force-output stream) > (format t "STREAM: Send message: ~A~%" data) > (let ((echo (read-line stream nil nil))) > (format t "STREAM: Recv message: ~A~%" echo)))) > ;; message test > (comm:with-udp-socket (socket :read-timeout 1) > (let ((data #(1 2 3 4 5 6 7 8 9 10))) > (comm:send-message socket "localhost" port data) > (format t "SOCKET: Send message: ~A~%" data) > (let ((echo (comm:receive-message socket))) > (format t "SOCKET: Recv message: ~A~%" echo)))))) > > CL-USER 101 > (udp-echo-test-3) > ;; server started > STREAM: Send message: Hello, world! > STREAM: Recv message: Hello, world! > SOCKET: Send message: #(1 2 3 4 5 6 7 8 9 10) > SOCKET: Recv message: #(1 2 3 4 5 6 7 8 9 10) > NIL > > You can choose either a MESSAGE or STREAM to do a UDP client job. I > also improved the UDP server design today with help from my friend - > a C-based network programmer, I add a RCVTIMEO into the main loop, > and we can always kill the server process successfully now. > > I think those API are stable now. > >> >> >>> I think you must be a LispWorks customer and can test the 5.1.1 >>> beta program. >> >> yes my research center employer bought the LW32 for MAc Os X >> licence. We have a Music Composition called OpenMusic that was >> written in Digitool MCL, and we have to port it to to LW because >> Digitool broke down and never came up with a Mac Intel version. >> I wrote myself an interactive improvisation system using OpenMusic >> which communicates through udp with the Max/MSP real-time >> environment : the port ws stuck since LwUdp was not available, and >> I'm not a network programmer as you guessed. >> > > I'm new to OpenMusic, it seems interest. I'll take some spare time > to look at it. Hope this porting work can be done successfully:) > >> >> Cheers and thanks again >> >> you will of course be credited in the Lispworks version of OMax (http://www.ircam.fr/equipes/repmus/OMax >> ) > > Thanks:) > >

1 0

[usocket-devel] sb-bsd-socket:protocol-unknown generates error for SBCL 1.0.14.26
by Victor Kryukov 15 Feb '08

15 Feb '08

Hello, any idea why sb-bsd-socket:protocol-unknown was added to +sbcl-condition-map+ in r302? It breaks usocket compilation on SBCL 1.0.14.26 on my system, and sbcl/contrib/sb-bsd-sockets/sockets.lisp does not define such socket condition. Regards, Victor.

2 2

[usocket-devel] test/usocket.asd
by Erik Huelsmann 10 Feb '08

10 Feb '08

Thanks for pointing that out! I've removed the offending file in revision r305. Bye, Erik.

1 0

[usocket-devel] What's the usage of USOCKET::GET-HOST-NAME in lispworks.lisp?
by Chun Tian (binghe) 01 Feb '08

01 Feb '08

Hi, I saw these definitions in lispworks.lisp: #+win32 (fli:register-module "ws2_32") (fli:define-foreign-function (get-host-name-internal "gethostname" :source) ((return-string (:reference-return (:ef-mb-string :limit 257))) (namelen :int)) :lambda-list (&aux (namelen 256) return-string) :result-type :int #+win32 :module #+win32 "ws2_32") (defun get-host-name () (multiple-value-bind (retcode name) (get-host-name-internal) (when (= 0 retcode) name))) What's the usage of GET-HOST-NAME? Can we use CL:MACHINE-INSTANCE instead? I think they have the same effect: CL-USER 4 > (machine-instance) "binghe-mac.local" CL-USER 5 > (usocket::get-host-name) "binghe-mac.local" Thanks, Chun TIAN (binghe)

2 3

[usocket-devel] LispWorks and UDP
by Chun Tian (binghe) 01 Feb '08

01 Feb '08

Hi, usocket developer Recently I wrote a LispWorks UDP support package for my pure lisp SNMP package. I use the FFI function which already in LispWorks to do a UDP job, and implement a interface which very like the exist TCP interface. You can find my code here: URL: https://cl-net-snmp.svn.sourceforge.net/svnroot/cl-net-snmp/lispworks-udp/t… Seems LispWorks, Ltd. didn't have any plan for UDP support, this package may help for usocket to implement a universal socket interface. I'll be glad for usocket to use my code, you can asdf depend it or just merge it. Regards, Chun TIAN (binghe)

2 6

[usocket-devel] test/usocket.asd
by Kilian Sprotte 27 Jan '08

27 Jan '08

Hi, just a quick note: The file mentioned above should removed, I think. Best, Kilian

1 0

[usocket-devel] socket-connect raises non-obvious conditions when given a bad host
by Ryan Davis 12 Jan '08

12 Jan '08

When I try to use socket-connect with a host that can't be resolved, it throws an unhelpful error: Couldn't write to #<SB-SYS:FD-STREAM for "a socket" {C0286C1}>: Broken pipe [Condition of type SB-INT:SIMPLE-STREAM-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B35FB79}>) Backtrace: 0: (SB-IMPL::SIMPLE-STREAM-PERROR "Couldn't write to ~s" #<SB-SYS:FD-STREAM for "a socket" {C0286C1}> 32) 1: (SB-IMPL::SIMPLE-STREAM-PERROR "Couldn't write to ~s" #<SB-SYS:FD-STREAM for "a socket" {C0286C1}> 32) 2: (FORCE-OUTPUT #<SB-SYS:FD-STREAM for "a socket" {C0286C1}>) 3: (USOCKET-BAD-ERROR) Here is my test program: (defun usocket-bad-error () (let ((s (usocket:socket-stream (usocket:socket-connect "doesntexist.example.com" 80)))) (format s "GET / HTTP/1.1") (force-output s);;error thrown here s)) Looking through the usocket code, what I would have liked here is a bad-host-name condition thrown that I could handle. I initially thought a good spot for this would be in socket-connect, if the ip variable is nil, but upon looking at the usocket source so more, I'm not sure if there's a better place for that. Also, I was going to add this as a ticket on the usocket trac, but I don't have permission to do that. Thanks, -- Ryan Davis Acceleration.net Director of Programming Services 2831 NW 41st street, suite B Gainesville, FL 32606 Office: 352-335-6500 x 124 Fax: 352-335-6506

2 1

[usocket-devel] The spam
by Marijn Haverbeke 11 Jan '08

11 Jan '08

Hey Eric, The junk-mail brigade seems to have discovered this list. I had the same with postmodern-devel -- when spammers pretend to be sending mail from an @common-lisp.net domain, the list will automatically let them through. Dig through the list options, and you will find a way to disable this feature. Cheers, Marijn

2 1

[usocket-devel] Www.RiniaMp3.NET Free Mp3 Site
by usocket-devel＠common-lisp.net 11 Jan '08

11 Jan '08

RiniaMp3.NET - http://www.Riniamp3.NET Hi Mr/Mrs. You are welcome to the http://www.riniamp3.net About 15.000 songs and video clips for free We do not charge for something. You do not need to put Credit Card or something to pay. All you have to do is to download your best songs. It iss all for free at www.riniamp3.net

1 0

[usocket-devel] Www.RiniaMp3.NET Free Mp3 Site
by usocket-devel＠common-lisp.net 11 Jan '08

11 Jan '08

1 0

← Newer
1
...
17
18
19
20
21
22
23
24
25
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-devel