This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-goldedplus/goldlib/gall/gftnaddr.cpp
2018-07-14 16:22:48 +03:00

393 lines
8.8 KiB
C++

// This may look like C code, but it is really -*- C++ -*-
// ------------------------------------------------------------------
// The Goldware Library
// Copyright (C) 1990-1999 Odinn Sorensen
// Copyright (C) 1999-2000 Alexander S. Aganichev
// ------------------------------------------------------------------
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Library General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this program; if not, write to the Free
// Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
// MA 02111-1307, USA
// ------------------------------------------------------------------
// $Id$
// ------------------------------------------------------------------
// FidoNet Technology Network - 4D address class.
// ------------------------------------------------------------------
#include <cstdio>
#include <gftnall.h>
#include <gutlmisc.h>
#include <gstrall.h>
// ------------------------------------------------------------------
void ftn_addr::set(uint zn, uint nt, uint nd, uint pt) {
zone = (word)zn;
net = (word)nt;
node = (word)nd;
point = (word)pt;
}
// ------------------------------------------------------------------
void ftn_addr::set(const ftn_addr& a) {
zone = a.zone;
net = a.net;
node = a.node;
point = a.point;
}
// ------------------------------------------------------------------
void ftn_addr::set(const void* a) {
zone = ((ftn_addr*)a)->zone;
net = ((ftn_addr*)a)->net;
node = ((ftn_addr*)a)->node;
point = ((ftn_addr*)a)->point;
}
// ------------------------------------------------------------------
void ftn_addr::set_all(uint part) {
set_fast(part, part, part, part);
}
// ------------------------------------------------------------------
void ftn_addr::reset() {
reset_fast();
}
// ------------------------------------------------------------------
char* ftn_addr::reset(const char* str, char* dom, int domsizelimit) {
reset_fast();
return set(str, dom, domsizelimit);
}
// ------------------------------------------------------------------
void ftn_addr::reset(const std::string& str) {
reset(str.c_str());
}
// ------------------------------------------------------------------
void ftn_addr::reset(const std::string& str, std::string& dom, int domsizelimit) {
ftn_domain doms;
reset(str.c_str(), doms, domsizelimit);
dom = doms;
}
// ------------------------------------------------------------------
static bool ftn_getaddrpart(word& part, const char* s) {
if(*s == '*') {
part = ftn::wildcard_all;
return true;
}
else if(*s == '?') {
part = ftn::wildcard_first;
return true;
}
else if(isdigit(*s)) {
part = atow(s);
return true;
}
return false;
}
// ------------------------------------------------------------------
const char* ftn_addr::set(const std::string& str) {
return set(str.c_str());
}
// ------------------------------------------------------------------
const char* ftn_addr::set(const std::string& str, std::string& dom, int domsizelimit) {
ftn_domain doms;
set(str.c_str(), doms, domsizelimit);
dom = doms;
return dom.c_str();
}
// ------------------------------------------------------------------
char* ftn_addr::set(const char* str, char* dom, int domsizelimit) {
const char* ptr = str;
const char* domptr;
bool gotzone = false;
bool gotnet = false;
bool gotnode = false;
bool gotpoint = false;
bool gotdomain = false;
static char* nulchar = "";
if(*str == '*')
set_all(ftn::wildcard_all);
while(*ptr and (' ' < *ptr)) {
switch(*ptr) {
case '<':
return nulchar;
case '{': /*}*/
while((*ptr != /*{*/ '}') and *ptr)
ptr++;
//if(*ptr == /*{*/ '}')
// ptr++;
break;
case '#':
domptr = str;
str = ++ptr;
if(dom) {
int domsize = (int)(ptr-domptr);
strxcpy(dom, domptr, minimum_of_two(domsize, domsizelimit));
gotdomain = true;
}
break;
case ':':
gotzone = ftn_getaddrpart(zone, str);
str = ++ptr;
if(*str)
gotnet = ftn_getaddrpart(net, str);
break;
case '/':
if(not gotnet)
gotnet = ftn_getaddrpart(net, str);
str = ++ptr;
if(*str)
gotnode = ftn_getaddrpart(node, str);
break;
case '.':
if((not gotnode) and (*str != '.'))
gotnode = ftn_getaddrpart(node, str);
str = ++ptr;
if(*str)
ftn_getaddrpart(point, str);
gotpoint = true;
break;
case '@':
if(not (gotzone or gotnet or gotnode or gotpoint))
gotnode = ftn_getaddrpart(node, str);
domptr = str = ptr++;
//while(isalnum(*ptr))
while(*ptr > ' ')
ptr++;
if(dom) {
int domsize = (int)(ptr-domptr);
strxcpy(dom, domptr+1, minimum_of_two(domsize, domsizelimit));
gotdomain = true;
}
break;
default:
ptr++;
}
}
if(not (gotzone or gotnet or gotnode or gotpoint))
gotnode = ftn_getaddrpart(node, str);
if(gotzone and not gotnet)
net = 0;
if(gotzone and not gotnode) {
node = (word)((net == ftn::wildcard_all) ? ftn::wildcard_all : 0);
gotnode = true;
}
if(gotnode and not gotpoint)
point = (word)((node == ftn::wildcard_all) ? ftn::wildcard_all : 0);
if(dom and gotzone and not gotdomain)
*dom = NUL;
return dom ? dom : nulchar;
}
// ------------------------------------------------------------------
bool ftn_addr::match(const ftn_addr& mask) const {
if(not ((mask.zone == ftn::wildcard_all) or (mask.zone == zone)))
return false;
if(not ((mask.net == ftn::wildcard_all) or (mask.net == net)))
return false;
if(not ((mask.node == ftn::wildcard_all) or (mask.node == node)))
return false;
if(not ((mask.point == ftn::wildcard_all) or (mask.point == point)))
return false;
return true;
}
// ------------------------------------------------------------------
int ftn_addr::compare(const ftn_addr& other) const {
int n = 1;
int d = compare_two(zone, other.zone);
if(d == 0) {
n++;
d = compare_two(net, other.net);
if(d == 0) {
n++;
d = compare_two(node, other.node);
if(d == 0) {
n++;
d = compare_two(point, other.point);
}
}
}
return d != 0 ? (d > 0 ? n : -n) : 0;
}
// ------------------------------------------------------------------
std::string& ftn_addr::make_string(std::string& str) const {
char buf[200];
make_string(buf);
str = buf;
return str;
}
// ------------------------------------------------------------------
std::string& ftn_addr::make_string(std::string& str, const std::string& dom, int domfmt) const {
char buf[200];
make_string(buf, dom.c_str(), domfmt);
str = buf;
return str;
}
// ------------------------------------------------------------------
char* ftn_addr::make_string(char* str, const char* dom, int domfmt) const {
if(net == 0) {
*str = NUL;
return str;
}
char buf[20];
char* ptr = str;
*ptr = NUL;
if(domfmt == ftn::domain_first) {
if(dom and *dom) {
ptr = stpcpy(ptr, dom);
*ptr++ = '#';
}
}
if(zone) {
if(zone == ftn::wildcard_all)
ptr = stpcpy(ptr, "*");
else if(zone == ftn::wildcard_first)
ptr = stpcpy(ptr, "?");
else {
sprintf(buf, "%u", (uint)zone);
ptr = stpcpy(ptr, buf);
}
*ptr++ = ':';
}
if(net == ftn::wildcard_all)
ptr = stpcpy(ptr, "*");
else if(net == ftn::wildcard_first)
ptr = stpcpy(ptr, "?");
else {
sprintf(buf, "%u", (uint)net);
ptr = stpcpy(ptr, buf);
}
*ptr++ = '/';
if(node == ftn::wildcard_all)
ptr = stpcpy(ptr, "*");
else if(node == ftn::wildcard_first)
ptr = stpcpy(ptr, "?");
else {
sprintf(buf, "%u", (uint)node);
ptr = stpcpy(ptr, buf);
}
if(point) {
*ptr++ = '.';
if(point == ftn::wildcard_all)
ptr = stpcpy(ptr, "*");
else if(point == ftn::wildcard_first)
ptr = stpcpy(ptr, "?");
else {
sprintf(buf, "%u", (uint)point);
ptr = stpcpy(ptr, buf);
}
}
if(domfmt == ftn::domain_last) {
if(dom and *dom) {
*ptr++ = '@';
ptr = stpcpy(ptr, dom);
}
}
*ptr = NUL;
return str;
}
// ------------------------------------------------------------------