RetroZilla/nsprpub/pr/tests/ipv6.c
2015-10-20 23:03:22 -04:00

249 lines
8.3 KiB
C

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is the Netscape Portable Runtime (NSPR).
*
* The Initial Developer of the Original Code is
* Netscape Communications Corporation.
* Portions created by the Initial Developer are Copyright (C) 1998-2000
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* Alternatively, the contents of this file may be used under the terms of
* either the GNU General Public License Version 2 or later (the "GPL"), or
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** */
#include "prio.h"
#include "prenv.h"
#include "prmem.h"
#include "prlink.h"
#include "prsystem.h"
#include "prnetdb.h"
#include "prprf.h"
#include "prvrsion.h"
#include "plerror.h"
#include "plgetopt.h"
#include "obsolete/probslet.h"
#include <string.h>
#define DNS_BUFFER 100
#define ADDR_BUFFER 100
#define HOST_BUFFER 1024
#define PROTO_BUFFER 1500
#define NETADDR_SIZE(addr) \
(PR_AF_INET == (addr)->raw.family ? \
sizeof((addr)->inet) : sizeof((addr)->ipv6))
static PRFileDesc *err = NULL;
static void Help(void)
{
PR_fprintf(err, "Usage: [-V] [-h]\n");
PR_fprintf(err, "\t<nul> Name of host to lookup (default: self)\n");
PR_fprintf(err, "\t-V Display runtime version info (default: FALSE)\n");
PR_fprintf(err, "\t-h This message and nothing else\n");
} /* Help */
static void DumpAddr(const PRNetAddr* address, const char *msg)
{
PRUint32 *word = (PRUint32*)address;
PRUint32 addr_len = sizeof(PRNetAddr);
PR_fprintf(err, "%s[%d]\t", msg, NETADDR_SIZE(address));
while (addr_len > 0)
{
PR_fprintf(err, " %08x", *word++);
addr_len -= sizeof(PRUint32);
}
PR_fprintf(err, "\n");
} /* DumpAddr */
static PRStatus PrintAddress(const PRNetAddr* address)
{
PRNetAddr translation;
char buffer[ADDR_BUFFER];
PRStatus rv = PR_NetAddrToString(address, buffer, sizeof(buffer));
if (PR_FAILURE == rv) PL_FPrintError(err, "PR_NetAddrToString");
else
{
PR_fprintf(err, "\t%s\n", buffer);
memset(&translation, 0, sizeof(translation));
rv = PR_StringToNetAddr(buffer, &translation);
if (PR_FAILURE == rv) PL_FPrintError(err, "PR_StringToNetAddr");
else
{
PRSize addr_len = NETADDR_SIZE(address);
if (0 != memcmp(address, &translation, addr_len))
{
PR_fprintf(err, "Address translations do not match\n");
DumpAddr(address, "original");
DumpAddr(&translation, "translate");
rv = PR_FAILURE;
}
}
}
return rv;
} /* PrintAddress */
PRIntn main(PRIntn argc, char **argv)
{
PRStatus rv;
PLOptStatus os;
PRHostEnt host;
PRProtoEnt proto;
const char *name = NULL;
PRBool failed = PR_FALSE, version = PR_FALSE;
PLOptState *opt = PL_CreateOptState(argc, argv, "Vh");
err = PR_GetSpecialFD(PR_StandardError);
while (PL_OPT_EOL != (os = PL_GetNextOpt(opt)))
{
if (PL_OPT_BAD == os) continue;
switch (opt->option)
{
case 0: /* Name of host to lookup */
name = opt->value;
break;
case 'V': /* Do version discovery */
version = PR_TRUE;
break;
case 'h': /* user wants some guidance */
default:
Help(); /* so give him an earful */
return 2; /* but not a lot else */
}
}
PL_DestroyOptState(opt);
if (version)
{
#if defined(WINNT)
#define NSPR_LIB "libnspr4"
#else
#define NSPR_LIB "nspr4"
#endif
const PRVersionDescription *version_info;
char *nspr_path = PR_GetEnv("LD_LIBRARY_PATH");
char *nspr_name = PR_GetLibraryName(nspr_path, NSPR_LIB);
PRLibrary *runtime = PR_LoadLibrary(nspr_name);
if (NULL == runtime)
PL_FPrintError(err, "PR_LoadLibrary");
else
{
versionEntryPointType versionPoint = (versionEntryPointType)
PR_FindSymbol(runtime, "libVersionPoint");
if (NULL == versionPoint)
PL_FPrintError(err, "PR_FindSymbol");
else
{
char buffer[100];
PRExplodedTime exploded;
version_info = versionPoint();
(void)PR_fprintf(err, "Runtime library version information\n");
PR_ExplodeTime(
version_info->buildTime, PR_GMTParameters, &exploded);
(void)PR_FormatTime(
buffer, sizeof(buffer), "%d %b %Y %H:%M:%S", &exploded);
(void)PR_fprintf(err, " Build time: %s GMT\n", buffer);
(void)PR_fprintf(
err, " Build time: %s\n", version_info->buildTimeString);
(void)PR_fprintf(
err, " %s V%u.%u.%u (%s%s%s)\n",
version_info->description,
version_info->vMajor,
version_info->vMinor,
version_info->vPatch,
(version_info->beta ? " beta " : ""),
(version_info->debug ? " debug " : ""),
(version_info->special ? " special" : ""));
(void)PR_fprintf(err, " filename: %s\n", version_info->filename);
(void)PR_fprintf(err, " security: %s\n", version_info->security);
(void)PR_fprintf(err, " copyright: %s\n", version_info->copyright);
(void)PR_fprintf(err, " comment: %s\n", version_info->comment);
}
}
if (NULL != nspr_name) PR_FreeLibraryName(nspr_name);
}
{
if (NULL == name)
{
char *me = (char*)PR_MALLOC(DNS_BUFFER);
rv = PR_GetSystemInfo(PR_SI_HOSTNAME, me, DNS_BUFFER);
if (PR_FAILURE == rv)
{
failed = PR_TRUE;
PL_FPrintError(err, "PR_GetSystemInfo");
return 2;
}
name = me; /* just leak the storage */
}
}
{
char buffer[HOST_BUFFER];
PR_fprintf(err, "Translating the name %s ...", name);
rv = PR_GetHostByName(name, buffer, sizeof(buffer), &host);
if (PR_FAILURE == rv)
{
failed = PR_TRUE;
PL_FPrintError(err, "PR_GetHostByName");
}
else
{
PRIntn index = 0;
PRNetAddr address;
memset(&address, 0, sizeof(PRNetAddr));
PR_fprintf(err, "success .. enumerating results\n");
do
{
index = PR_EnumerateHostEnt(index, &host, 0, &address);
if (index > 0) PrintAddress(&address);
else if (-1 == index)
{
failed = PR_TRUE;
PL_FPrintError(err, "PR_EnumerateHostEnt");
}
} while (index > 0);
}
}
{
char buffer[PROTO_BUFFER];
/*
** Get Proto by name/number
*/
rv = PR_GetProtoByName("tcp", &buffer[1], sizeof(buffer) - 1, &proto);
rv = PR_GetProtoByNumber(6, &buffer[3], sizeof(buffer) - 3, &proto);
}
return (failed) ? 1 : 0;
}