1 21 22 package org.armedbear.lisp; 23 24 import java.net.ServerSocket ; 25 import java.net.Socket ; 26 27 public final class socket_accept extends Primitive1 29 { 30 private socket_accept() 31 { 32 super("%socket-accept", PACKAGE_SYS, false, "socket"); 33 } 34 35 public LispObject execute(LispObject first) 36 throws ConditionThrowable 37 { 38 ServerSocket serverSocket = 39 (ServerSocket ) ((JavaObject)first).getObject(); 40 try { 41 Socket socket = serverSocket.accept(); 42 return new JavaObject(socket); 43 } 44 catch (Exception e) { 45 return signal(new LispError(e.getMessage())); 46 } 47 } 48 49 private static final Primitive1 SOCKET_ACCEPT = new socket_accept(); 50 } 51 | Popular Tags |