From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Chong Yidong <cyd@stupidchicken.com>
Newsgroups: gmane.emacs.devel
Subject: Re: cvs emacs and (system-name)
Date: Tue, 17 Apr 2007 15:45:57 -0400
Message-ID: <87ps62kcne.fsf@stupidchicken.com>
References: <m3r6qi4zuf.fsf@localhost.localdomain>
	<je1wiivn2m.fsf@sykes.suse.de> <m3mz164yys.fsf@localhost.localdomain>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1176839082 24148 80.91.229.12 (17 Apr 2007 19:44:42 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 17 Apr 2007 19:44:42 +0000 (UTC)
Cc: Andreas Schwab <schwab@suse.de>, emacs-devel@gnu.org
To: tromey@redhat.com
Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Apr 17 21:44:35 2007
Return-path: <emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org>
Envelope-to: ged-emacs-devel@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1HdtbI-00019i-EC
	for ged-emacs-devel@m.gmane.org; Tue, 17 Apr 2007 21:44:28 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1Hdtg2-0000td-Rg
	for ged-emacs-devel@m.gmane.org; Tue, 17 Apr 2007 15:49:22 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1HdtfY-0000jO-4y
	for emacs-devel@gnu.org; Tue, 17 Apr 2007 15:48:52 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1HdtfU-0000he-AA
	for emacs-devel@gnu.org; Tue, 17 Apr 2007 15:48:51 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1HdtfU-0000hX-2S
	for emacs-devel@gnu.org; Tue, 17 Apr 2007 15:48:48 -0400
Original-Received: from cyd.mit.edu ([18.19.1.138])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <cyd@stupidchicken.com>) id 1Hdtai-00012J-Rg
	for emacs-devel@gnu.org; Tue, 17 Apr 2007 15:43:52 -0400
Original-Received: by cyd.mit.edu (Postfix, from userid 1000)
	id 7DD9D4E4DF; Tue, 17 Apr 2007 15:45:57 -0400 (EDT)
In-Reply-To: <m3mz164yys.fsf@localhost.localdomain> (Tom Tromey's message of
	"17 Apr 2007 12\:50\:35 -0600")
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.98 (gnu/linux)
X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4)
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Emacs development discussions." <emacs-devel.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-devel>
List-Post: <mailto:emacs-devel@gnu.org>
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.devel:69538
Archived-At: <http://permalink.gmane.org/gmane.emacs.devel/69538>

Tom Tromey <tromey@redhat.com> writes:

>>>>>> "Andreas" == Andreas Schwab <schwab@suse.de> writes:
>
>>> However, 'hostname' on this machine reports 'opsy'.
>
> Andreas> What does hostname -f give you?
>
> opsy. hostname -f
> opsy

Could you try to compile the following program and report its output?


#include <stdio.h>
#include <alloca.h>
#include <string.h>
#include <sys/socket.h>
#include <netdb.h>

int main ()
{
  int hostname_size = 256;
  char *hostname = (char *) alloca (hostname_size);

  while (1)
    {
      gethostname (hostname, hostname_size - 1);
      hostname[hostname_size - 1] = '\0';
      if (strlen (hostname) < hostname_size - 1)
	break;
      hostname_size <<= 1;
      hostname = (char *) alloca (hostname_size);
    }

  if (! index (hostname, '.'))
    {
      struct hostent *hp;
      hp = gethostbyname (hostname);
      if (hp)
	{
	  char *fqdn = (char *) hp->h_name;
	  if (!index (fqdn, '.'))
	    {
	      char **alias = hp->h_aliases;
	      while (*alias && !index (*alias, '.'))
		alias++;
	      if (*alias)
		fqdn = *alias;
	    }
	  hostname = fqdn;
	}
    }
  printf ("%s\n", hostname);
}