1 /* 2 * SiteName.java 3 * 4 * Copyright (C) 2004 Peter Graves 5 * $Id$ 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 * As a special exception, the copyright holders of this library give you 22 * permission to link this library with independent modules to produce an 23 * executable, regardless of the license terms of these independent 24 * modules, and to copy and distribute the resulting executable under 25 * terms of your choice, provided that you also meet, for each linked 26 * independent module, the terms and conditions of the license of that 27 * module. An independent module is a module which is not derived from 28 * or based on this library. If you modify this library, you may extend 29 * this exception to your version of the library, but you are not 30 * obligated to do so. If you do not wish to do so, delete this 31 * exception statement from your version. 32 */ 33 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 37 38 import java.net.InetAddress; 39 import java.net.UnknownHostException; 40 41 public final class SiteName 42 { getHostName()43 static LispObject getHostName() 44 { 45 String hostName = null; 46 InetAddress addr; 47 try { 48 addr = InetAddress.getLocalHost(); 49 } 50 catch (UnknownHostException e) { 51 addr = null; 52 } 53 if (addr != null) 54 hostName = addr.getHostName(); 55 56 return hostName != null ? new SimpleString(hostName) : NIL; 57 } 58 59 private static final Primitive MACHINE_INSTANCE = 60 new Primitive("machine-instance") 61 { 62 @Override 63 public LispObject execute() 64 { 65 return getHostName(); 66 } 67 }; 68 69 private static final Primitive LONG_SITE_NAME = 70 new Primitive("long-site-name") 71 { 72 @Override 73 public LispObject execute() 74 { 75 return getHostName(); 76 } 77 }; 78 79 private static final Primitive SHORT_SITE_NAME = 80 new Primitive("short-site-name") 81 { 82 @Override 83 public LispObject execute() 84 { 85 return getHostName(); 86 } 87 }; 88 } 89