1 21 22 package org.armedbear.lisp; 23 24 import java.net.Socket ; 25 26 public final class make_socket extends Primitive2 28 { 29 private make_socket() 30 { 31 super("%make-socket", PACKAGE_SYS, false, "host port"); 32 } 33 34 public LispObject execute(LispObject first, LispObject second) 35 throws ConditionThrowable 36 { 37 String host = first.getStringValue(); 38 int port = Fixnum.getValue(second); 39 try { 40 Socket socket = new Socket (host, port); 41 return new JavaObject(socket); 42 } 43 catch (Exception e) { 44 return signal(new LispError(e.getMessage())); 45 } 46 } 47 48 private static final Primitive2 MAKE_SOCKET = new make_socket(); 49 } 50 | Popular Tags |