socket_stream


1   /*
2    * socket_stream.java
3    *
4    * Copyright (C) 2004 Peter Graves
5    * $Id: socket_stream.java,v 1.2 2004/06/22 23:07:47 piso Exp $
6    *
7    * This program is free software; you can redistribute it and/or
8    * modify it under the terms of the GNU General Public License
9    * as published by the Free Software Foundation; either version 2
10   * of the License, or (at your option) any later version.
11   *
12   * This program is distributed in the hope that it will be useful,
13   * but WITHOUT ANY WARRANTY; without even the implied warranty of
14   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   * GNU General Public License for more details.
16   *
17   * You should have received a copy of the GNU General Public License
18   * along with this program; if not, write to the Free Software
19   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20   */
21  
22  package org.armedbear.lisp;
23  
24  import java.net.Socket  ;
25  
26  // ### %socket-stream
27  public final class socket_stream extends Primitive2
28  {
29      private socket_stream()
30      {
31          super("%socket-stream", PACKAGE_SYS, false, "socket element-type");
32      }
33  
34      public LispObject execute(LispObject first, LispObject second)
35          throws ConditionThrowable
36      {
37          Socket   socket = (Socket  ) ((JavaObject)first).getObject();
38          LispObject elementType = second; // Checked by caller.
39          try {
40               Stream in =
41                   new Stream(socket.getInputStream(), elementType);
42               Stream out =
43                   new Stream(socket.getOutputStream(), elementType);
44               return new SocketStream(socket, in, out);
45          }
46          catch (Exception   e) {
47              return signal(new LispError(e.getMessage()));
48      }
49      }
50  
51      private static final Primitive2 SOCKET_STREAM = new socket_stream();
52  }
53
A to Z: JavaDoc & Examples Daily Java News & Articles Open Source Projects Open Source Codes Free Computer Books Remove Frame
Popular Tags