1005 lines
28 KiB
C++
1005 lines
28 KiB
C++
|
|
// ------------------------------------------------------------------
|
|
// GoldED+
|
|
// Copyright (C) 1990-1999 Odinn Sorensen
|
|
// Copyright (C) 1999-2000 Alexander S. Aganichev
|
|
// ------------------------------------------------------------------
|
|
// This program is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU General Public License as
|
|
// published by the Free Software Foundation; either version 2 of the
|
|
// License, or (at your option) any later version.
|
|
//
|
|
// This program 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
|
|
// General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU 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$
|
|
// ------------------------------------------------------------------
|
|
// Misc. msg handling.
|
|
// ------------------------------------------------------------------
|
|
|
|
#include <cstdarg>
|
|
#include <golded.h>
|
|
#include <gtimall.h>
|
|
|
|
#if defined(__USE_ALLOCA__)
|
|
#include <malloc.h>
|
|
#endif
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
inline const char *it2str(std::string &str, std::string::iterator it)
|
|
{
|
|
return &(str.c_str()[it-str.begin()]);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
static bool tokenxchg(std::string &input, std::string::iterator &pos,
|
|
const char* tok, const char* src,
|
|
size_t len = 0, size_t cnt = 0, ...)
|
|
{
|
|
size_t toklen = strlen(tok);
|
|
|
|
if (strnieql(it2str(input, pos), tok, toklen))
|
|
{
|
|
std::string str = src;
|
|
std::string::iterator tokend = pos+toklen;
|
|
|
|
if (cnt)
|
|
{
|
|
va_list a;
|
|
va_start(a, cnt);
|
|
|
|
for (int i = 0; i < cnt; i++)
|
|
{
|
|
std::string::iterator beg = tokend;
|
|
if (*beg++ != '{') break;
|
|
|
|
std::string::iterator end;
|
|
for (end = beg; end != input.end(); end++)
|
|
{
|
|
if (*end == '}')
|
|
{
|
|
if (va_arg(a, int))
|
|
str = input.substr(beg-input.begin(), end-beg);
|
|
|
|
end++;
|
|
break;
|
|
}
|
|
}
|
|
|
|
tokend = end;
|
|
}
|
|
|
|
va_end(a);
|
|
}
|
|
|
|
size_t strlen = str.length();
|
|
if (!len || (len > strlen)) len = strlen;
|
|
|
|
size_t idx = pos - input.begin();
|
|
input.replace(pos, tokend, str.c_str(), len);
|
|
pos = input.begin() + idx;
|
|
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
static void translate(std::string &text)
|
|
{
|
|
GStrBag2 &strbag = CFG->translate;
|
|
|
|
if (strbag.First())
|
|
{
|
|
do
|
|
{
|
|
const char* str1 = strbag.Current1();
|
|
size_t s1len = strlen(str1);
|
|
size_t length = text.length();
|
|
|
|
for (size_t pos = 0; (pos < length) && (text[pos] != '}'); )
|
|
{
|
|
if (strnieql(&(text.c_str()[pos]), str1, s1len))
|
|
{
|
|
const char* str2 = strbag.Current2();
|
|
size_t s2len = strlen(str2);
|
|
|
|
text.replace(pos, s1len, str2, s2len);
|
|
pos += s2len;
|
|
length = text.length();
|
|
}
|
|
else
|
|
pos++;
|
|
}
|
|
}
|
|
while (strbag.Next());
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
inline bool domain_requested(const char *str, size_t pos)
|
|
{
|
|
if (str[1] == '_') pos++;
|
|
return strnieql(str+pos, "{domain}", 8);
|
|
}
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void TokenXlat(int mode, std::string &input, GMsg* msg, GMsg* oldmsg, int __origarea)
|
|
{
|
|
static char revbuf[5] = "";
|
|
if (revbuf[0] == NUL)
|
|
sprintf(revbuf, "%02d%02d", str2mon(__gver_date__), atoi(&__gver_date__[4]));
|
|
|
|
char attr[80];
|
|
MakeAttrStr(attr, sizeof(attr), &msg->attr);
|
|
|
|
const char *xmailer = get_informative_string();
|
|
const char *osver = ggetosstring();
|
|
|
|
time32_t t = gtime(NULL);
|
|
struct tm written_tm; glocaltime(&written_tm, &t);
|
|
char cdate[80];
|
|
strftimei(cdate, 80, LNG->DateFmt, &written_tm);
|
|
char ctime[80];
|
|
strftimei(ctime, 80, LNG->TimeFmt, &written_tm);
|
|
char cdtime[80];
|
|
strftimei(cdtime, 80, LNG->DateTimeFmt, &written_tm);
|
|
ggmtime(&written_tm, &oldmsg->written);
|
|
char odate[80];
|
|
strftimei(odate, 80, LNG->DateFmt, &written_tm);
|
|
char otime[80];
|
|
strftimei(otime, 80, LNG->TimeFmt, &written_tm);
|
|
char odtime[80];
|
|
strftimei(odtime, 80, LNG->DateTimeFmt, &written_tm);
|
|
|
|
const char* origareaid = AL.AreaIdToPtr(__origarea)->echoid();
|
|
bool origareaisinet = make_bool(AL.AreaIdToPtr(__origarea)->isinternet());
|
|
bool currareaisinet = make_bool(AA->isinternet());
|
|
char* modereptr = oldmsg->re;
|
|
|
|
char msgno[16];
|
|
sprintf(msgno, "%u", msg->attr.nwm() ? AA->Msgn.Count() + 1 : AA->Msgn.ToReln(msg->msgno));
|
|
|
|
char msgs[16];
|
|
sprintf(msgs, "%u", AA->Msgn.Count() + (msg->attr.nwm() ? 1 : 0));
|
|
|
|
if ((mode == MODE_QUOTE) or (mode == MODE_REPLYCOMMENT) or (mode == MODE_REPLY))
|
|
{
|
|
if (AL.AreaIdToPtr(__origarea)->Areareplydirect() and oldmsg->areakludgeid)
|
|
origareaid = oldmsg->areakludgeid;
|
|
}
|
|
else if (mode != MODE_FORWARD)
|
|
modereptr = msg->re;
|
|
|
|
char buf[100];
|
|
|
|
std::string::iterator dst;
|
|
for (dst = input.begin(); dst != input.end(); )
|
|
{
|
|
if (*dst == LF) *dst = CR;
|
|
else if (*dst != '@') ;
|
|
else if (*(dst+1) == '@') input.erase(dst);
|
|
else
|
|
{
|
|
if (tokenxchg(input, dst, "@cecho", AA->echoid()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cdesc", AA->desc()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@oecho", origareaid))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@odesc", AL.AreaEchoToPtr(origareaid)->desc()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@oname", strbtrim(strtmp(oldmsg->By())), 34, 2,
|
|
(int)msg->by_me(), (int)msg->by_you()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ofname", strlword(oldmsg->By()), 0, 2,
|
|
(int)msg->by_me(), (int)msg->by_you()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@olname", strrword(oldmsg->By()), 0, 2,
|
|
(int)msg->by_me(), (int)msg->by_you()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@odate", odate))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@otime", otime))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@odtime", odtime))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@otzoffset", (oldmsg->tzutc == -32767) ? "" : (sprintf(buf, " %+05d", oldmsg->tzutc), buf)))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ofrom", oldmsg->ifrom))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@oto", oldmsg->ito))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@omessageid", oldmsg->messageid ? oldmsg->messageid : ""))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@omsgid", *msg->replys ? msg->replys : ""))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@dname", strbtrim(strtmp(oldmsg->To())), 34, 3,
|
|
(int)msg->to_me(), (int)msg->to_you(), (int)oldmsg->to_all()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@dpgp", *msg->iaddr ? msg->iaddr : msg->To()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@dfname", strlword(oldmsg->To()), 0, 3,
|
|
(int)msg->to_me(), (int)msg->to_you(), (int)oldmsg->to_all()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@dlname", strrword(oldmsg->To()), 0, 3,
|
|
(int)msg->to_me(), (int)msg->to_you(), (int)oldmsg->to_all()))
|
|
continue;
|
|
|
|
if (origareaisinet)
|
|
{
|
|
if (tokenxchg(input, dst, "@oaddr", oldmsg->iorig, 19, 1, 0))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@daddr", oldmsg->iaddr, 19, 1, 0))
|
|
continue;
|
|
}
|
|
|
|
if (currareaisinet)
|
|
{
|
|
if (tokenxchg(input, dst, "@caddr", AA->Internetaddress(), 19, 1, 0))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@faddr", msg->iorig, 19, 1, 0))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@taddr", msg->iaddr, 19, 1, 0))
|
|
continue;
|
|
}
|
|
|
|
if ((not origareaisinet or not currareaisinet) and (strlen(it2str(input, dst)) >= 6))
|
|
{
|
|
bool dr = domain_requested(it2str(input, dst), 6);
|
|
if (not origareaisinet)
|
|
{
|
|
if (tokenxchg(input, dst, "@oaddr", oldmsg->orig.make_string(buf, dr ? oldmsg->odom : NULL), 19, 1, 0))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@o3daddr", 8))
|
|
{
|
|
ftn_addr boss = oldmsg->orig;
|
|
boss.point = 0;
|
|
tokenxchg(input, dst, "@o3daddr", boss.make_string(buf, domain_requested(it2str(input, dst), 8) ? oldmsg->odom : NULL), 19, 1, 0);
|
|
continue;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@daddr", oldmsg->dest.make_string(buf, dr ? oldmsg->ddom : NULL), 19, 1, 0))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@d3daddr", 8))
|
|
{
|
|
ftn_addr boss = oldmsg->dest;
|
|
boss.point = 0;
|
|
tokenxchg(input, dst, "@d3daddr", boss.make_string(buf, domain_requested(it2str(input, dst), 8) ? oldmsg->ddom : NULL), 19, 1, 0);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (not currareaisinet)
|
|
{
|
|
const gaka &caka=AA->Aka();
|
|
if (tokenxchg(input, dst, "@caddr", caka.addr.make_string(buf, dr ? caka.domain : NULL), 19, 1, 0))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@c3daddr", 8))
|
|
{
|
|
ftn_addr boss = caka.addr;
|
|
boss.point = 0;
|
|
tokenxchg(input, dst, "@c3daddr", boss.make_string(buf, domain_requested(it2str(input, dst), 8) ? caka.domain : NULL), 19, 1, 0);
|
|
continue;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@taddr", msg->dest.make_string(buf, dr ? msg->ddom : NULL), 19, 1, 0))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@t3daddr", 8))
|
|
{
|
|
ftn_addr boss = msg->dest;
|
|
boss.point = 0;
|
|
tokenxchg(input, dst, "@t3daddr", boss.make_string(buf, domain_requested(it2str(input, dst), 8) ? msg->ddom : NULL), 19, 1, 0);
|
|
continue;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@faddr", msg->orig.make_string(buf, dr ? msg->odom : NULL), 19, 1, 0))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@f3daddr", 8))
|
|
{
|
|
ftn_addr boss = msg->orig;
|
|
boss.point = 0;
|
|
tokenxchg(input, dst, "@f3daddr", boss.make_string(buf, domain_requested(it2str(input, dst), 8) ? msg->odom : NULL), 19, 1, 0);
|
|
continue;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@tname", strbtrim(strtmp(msg->To())), 34, 3,
|
|
(int)false, (int)false, (int)msg->to_all()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@tfname", strlword(msg->To()), 0, 3,
|
|
(int)false, (int)false, (int)msg->to_all()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@tlname", strrword(msg->To()), 0, 3,
|
|
(int)false, (int)false, (int)msg->to_all()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cname", AA->Username().name, 34))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cfname", strlword(strcpy(buf, AA->Username().name))))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@clname", strrword(strcpy(buf, AA->Username().name))))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cfrom", msg->ifrom))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cto", msg->ito))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cdate", cdate))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ctime", ctime))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cdtime", cdtime))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ctzoffset", AA->Usetzutc() ? (sprintf(buf, " %+05d", tzoffset()), buf) : ""))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@fname", strbtrim(strtmp(msg->By())), 34))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@fpgp", *msg->iorig ? msg->iorig : msg->By()))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ffname", strlword(msg->By())))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@flname", strrword(msg->By())))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@dpseudo", 8))
|
|
{
|
|
if (*(oldmsg->pseudoto) == NUL)
|
|
build_pseudo(oldmsg);
|
|
tokenxchg(input, dst, "@dpseudo", oldmsg->pseudoto, 0, 3, (int)msg->to_me(), (int)msg->to_you(), (int)oldmsg->to_all());
|
|
continue;
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@opseudo", 8))
|
|
{
|
|
if (*(oldmsg->pseudofrom) == NUL)
|
|
build_pseudo(oldmsg, false);
|
|
tokenxchg(input, dst, "@opseudo", oldmsg->pseudofrom, 0, 2, (int)msg->by_me(), (int)msg->by_you());
|
|
continue;
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@tpseudo", 8))
|
|
{
|
|
if (*(msg->pseudoto) == NUL)
|
|
build_pseudo(msg);
|
|
tokenxchg(input, dst, "@tpseudo", msg->pseudoto, 0, 3, (int)false, (int)false, (int)msg->to_all());
|
|
continue;
|
|
}
|
|
|
|
// Same as above (just for backward compatibility)
|
|
if (strnieql(it2str(input, dst), "@pseudo", 7))
|
|
{
|
|
if (*(msg->pseudoto) == NUL)
|
|
build_pseudo(msg);
|
|
tokenxchg(input, dst, "@pseudo", msg->pseudoto, 0, 3, (int)false, (int)false, (int)msg->to_all());
|
|
continue;
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@fpseudo", 8))
|
|
{
|
|
if (*(msg->pseudofrom) == NUL)
|
|
build_pseudo(msg, false);
|
|
tokenxchg(input, dst, "@fpseudo", msg->pseudofrom);
|
|
continue;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@msgno", msgno))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@msgs", msgs))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@cpseudo", *AA->Nickname() ? AA->Nickname() : strlword(strcpy(buf, AA->Username().name), " @.")))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@version", __gver_ver__))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@ver", __gver_shortver__))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@rev", revbuf))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@pid", __gver_shortpid__))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@longpid", __gver_longpid__))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@widepid", xmailer))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@osver", osver))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@osslash", __gver_platform__))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@subject", modereptr))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@attr", attr))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@tagline",
|
|
HandleRandomLine(strxcpy(buf, AA->Tagline(), sizeof(buf)), sizeof(buf))))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@tearline",
|
|
HandleRandomLine(strxcpy(buf, AA->Tearline(), sizeof(buf)), sizeof(buf))))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@origin",
|
|
HandleRandomLine(strxcpy(buf, AA->Origin(), sizeof(buf)), sizeof(buf))))
|
|
continue;
|
|
|
|
if (strnieql(it2str(input, dst), "@area", 5))
|
|
{
|
|
if (tokenxchg(input, dst, "@areatype", AA->basetype()))
|
|
continue;
|
|
|
|
char areapath[GMAXPATH];
|
|
char areaname[GMAXPATH];
|
|
|
|
strcpy(areapath, AA->path());
|
|
areaname[0] = NUL;
|
|
|
|
size_t slashpos;
|
|
size_t pathlen = strlen(areapath);
|
|
|
|
for (slashpos = pathlen-1; slashpos < pathlen; slashpos--)
|
|
if (isslash(areapath[slashpos])) break;
|
|
|
|
if (slashpos < pathlen)
|
|
{
|
|
strcpy(areaname, &areapath[slashpos+1]);
|
|
areapath[slashpos+1] = NUL;
|
|
}
|
|
else
|
|
{
|
|
strcpy(areaname, areapath);
|
|
areapath[0] = NUL;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@areapath", areapath))
|
|
continue;
|
|
|
|
if (tokenxchg(input, dst, "@areaname", areaname))
|
|
continue;
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@align{", 7))
|
|
{
|
|
std::string::iterator ptr = dst+7;
|
|
while ((*ptr != '}') && (ptr != input.end())) ptr++;
|
|
|
|
if (*ptr != '}')
|
|
tokenxchg(input, dst, "@align", "");
|
|
else
|
|
{
|
|
int size = atoi(it2str(input, dst)+7) - (dst-input.begin());
|
|
if (size < 0) size = 0;
|
|
|
|
char filler = ' ';
|
|
if ((*(ptr+1) == '{') && (*(ptr+3) == '}'))
|
|
{
|
|
ptr += 2;
|
|
filler = *ptr;
|
|
}
|
|
|
|
std::string fill(size, filler);
|
|
tokenxchg(input, dst, "@align", fill.c_str(), 0, 2, (int)false, (int)false);
|
|
dst += size;
|
|
}
|
|
|
|
continue;
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@pipe{", 6))
|
|
{
|
|
std::string::iterator pbeg = dst+6;
|
|
std::string::iterator pend = pbeg;
|
|
while ((*pend != '}') && (pend != input.end()))
|
|
pend++;
|
|
|
|
if (*pend != '}')
|
|
tokenxchg(input, dst, "@pipe", "");
|
|
else
|
|
{
|
|
std::string param = input.substr(pbeg-input.begin(), pend-pbeg);
|
|
|
|
gfile pipe_in;
|
|
std::string pipe_buff;
|
|
|
|
if ((pipe_in.Popen(param, "rt")) != NULL )
|
|
{
|
|
char buffer[1024];
|
|
while (!pipe_in.feof_())
|
|
{
|
|
if (pipe_in.Fgets(buffer, sizeof(buffer)) != NULL)
|
|
pipe_buff += buffer;
|
|
}
|
|
|
|
pipe_in.Pclose();
|
|
}
|
|
|
|
for (size_t i = 0; i < pipe_buff.length(); i++)
|
|
{
|
|
if (pipe_buff[i] == LF)
|
|
pipe_buff[i] = CR;
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@pipe", pipe_buff.c_str(), 0, 1, (int)false))
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@pad{", 5))
|
|
{
|
|
std::string::iterator pbeg = dst+5;
|
|
std::string::iterator pend = pbeg;
|
|
while ((*pend != '}') && (pend != input.end()))
|
|
pend++;
|
|
|
|
if ((*pend != '}') || ((pend-pbeg) < 3))
|
|
tokenxchg(input, dst, "@pad", "");
|
|
else
|
|
{
|
|
pend++;
|
|
|
|
char fill = *pbeg;
|
|
char align = toupper(*(pbeg+1));
|
|
int padsize = atoi(it2str(input, pbeg)+2);
|
|
|
|
if (padsize < 0) padsize = 0;
|
|
|
|
std::string text;
|
|
if (*pend == '{')
|
|
{
|
|
std::string buff = input.substr(pend-input.begin());
|
|
TokenXlat(mode, buff, msg, oldmsg, __origarea);
|
|
|
|
size_t idx1 = dst - input.begin();
|
|
size_t idx2 = pend - dst;
|
|
input.replace(pend, input.end(), buff);
|
|
dst = input.begin() + idx1;
|
|
pend = pbeg = dst + idx2 + 1;
|
|
|
|
while ((*pend != '}') && (pend != input.end()))
|
|
pend++;
|
|
|
|
text = input.substr(pbeg-input.begin(), pend-pbeg);
|
|
}
|
|
|
|
size_t tlen = text.length();
|
|
if (tlen != padsize)
|
|
{
|
|
int diff = padsize - tlen;
|
|
switch (align)
|
|
{
|
|
case 'L':
|
|
if (diff > 0)
|
|
text.insert(text.end(), diff, fill);
|
|
else
|
|
text.erase(padsize);
|
|
break;
|
|
case 'R':
|
|
if (diff > 0)
|
|
text.insert(text.begin(), diff, fill);
|
|
else
|
|
text = text.substr(-diff);
|
|
break;
|
|
default:
|
|
if (diff > 0)
|
|
{
|
|
text.insert(text.begin(), diff/2, fill);
|
|
text.insert(text.end(), diff-diff/2, fill);
|
|
}
|
|
else
|
|
{
|
|
text = text.substr((-diff)/2);
|
|
text.erase(padsize);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (tokenxchg(input, dst, "@pad", text.c_str(), 0, 2, (int)false, (int)false))
|
|
continue;
|
|
}
|
|
}
|
|
|
|
if (strnieql(it2str(input, dst), "@tr{", 4))
|
|
{
|
|
std::string buff = input.substr(dst+3-input.begin());
|
|
TokenXlat(mode, buff, msg, oldmsg, __origarea);
|
|
translate(buff);
|
|
|
|
size_t idx = dst - input.begin();
|
|
input.replace(dst+3, input.end(), buff);
|
|
dst = input.begin() + idx;
|
|
|
|
if (tokenxchg(input, dst, "@tr", "", 0, 1, (int)true))
|
|
continue;
|
|
}
|
|
}
|
|
|
|
dst++;
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void TokenXlat(int mode, char *&input, size_t size, bool resize, GMsg* msg, GMsg* oldmsg, int origarea)
|
|
{
|
|
std::string buff = input;
|
|
TokenXlat(mode, buff, msg, oldmsg, origarea);
|
|
|
|
if (resize)
|
|
{
|
|
size_t newsize = buff.length() + 1;
|
|
if (size < newsize)
|
|
input = (char*)throw_realloc(input, size = newsize);
|
|
}
|
|
|
|
strncpy(input, buff.c_str(), size);
|
|
input[size-1] = 0;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// ROT13 De/crypting function
|
|
|
|
void Rot13(GMsg* msg) {
|
|
|
|
char c;
|
|
int ptr;
|
|
int n;
|
|
Line* line;
|
|
static char rot13_table[256];
|
|
static char done = NO;
|
|
#define ROT13_DECODE(c) (((c) & 0x80) ? (c) : rot13_table[c])
|
|
|
|
if(not done) {
|
|
for(n=0; n<256; n++) {
|
|
c = (char)n;
|
|
if (c >= 'a' and c <= 'm') c += '\xD';
|
|
else if(c >= 'n' and c <= 'z') c -= '\xD';
|
|
else if(c >= 'A' and c <= 'M') c += '\xD';
|
|
else if(c >= 'N' and c <= 'Z') c -= '\xD';
|
|
rot13_table[n] = c;
|
|
}
|
|
done = YES;
|
|
}
|
|
|
|
line = msg->lin;
|
|
while(line) {
|
|
if(not (line->type & (GLINE_KLUDGE|GLINE_TEAR|GLINE_ORIG))) {
|
|
for(ptr = 0; ptr != line->txt.length(); ptr++) {
|
|
c = line->txt[ptr];
|
|
line->txt[ptr] = ROT13_DECODE(c & 0xff);
|
|
}
|
|
}
|
|
line = line->next;
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void LoadText(GMsg* msg, const char* textfile)
|
|
{
|
|
uint size;
|
|
char* buf;
|
|
char* ptr;
|
|
char* txtptr;
|
|
int hardcr = NO, hardlen;
|
|
char hardline[20];
|
|
|
|
gfile fp(textfile, "rt", CFG->sharemode);
|
|
if (fp.isopen())
|
|
{
|
|
#define PBUFSIZE 4096 // Allow a 4k long paragraph
|
|
|
|
size_t buf_len = PBUFSIZE;
|
|
buf = (char*)throw_malloc(PBUFSIZE);
|
|
|
|
int tabsz = CFG->disptabsize ? CFG->disptabsize : 1;
|
|
#if defined(__USE_ALLOCA__)
|
|
char *spaces = (char*)alloca(tabsz+1);
|
|
#else
|
|
__extension__ char spaces[tabsz+1];
|
|
#endif
|
|
memset(spaces, ' ', tabsz);
|
|
spaces[tabsz] = NUL;
|
|
|
|
uint tlen = (uint)(fp.FileLength()+512);
|
|
msg->txt = txtptr = (char*)throw_realloc(msg->txt, tlen);
|
|
memset(msg->txt, NUL, tlen);
|
|
|
|
if(EDIT->HardLines())
|
|
strcpy(hardline, EDIT->HardLine());
|
|
else
|
|
*hardline = NUL;
|
|
strcat(hardline, "\n");
|
|
hardlen = strlen(hardline);
|
|
*txtptr = NUL;
|
|
|
|
while (fp.Fgets(buf, PBUFSIZE-1))
|
|
{
|
|
if(EDIT->HardLines() and strneql(buf, hardline, hardlen)) {
|
|
hardcr = not hardcr;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
if(*txtptr)
|
|
txtptr++;
|
|
continue;
|
|
}
|
|
else {
|
|
size_t read_len = strlen(buf);
|
|
|
|
char *ht = buf;
|
|
while((ht = strchr(ht, '\t')) != NULL) {
|
|
int rposn = ht-buf;
|
|
int rstart = rposn%tabsz+1;
|
|
*ht = ' ';
|
|
if(tabsz > rstart) {
|
|
if((read_len + tabsz - rstart) >= (buf_len-1)) {
|
|
buf_len += tabsz;
|
|
buf = (char*)throw_realloc(buf, buf_len);
|
|
}
|
|
strins(spaces+rstart, buf, rposn);
|
|
}
|
|
}
|
|
|
|
ptr = buf;
|
|
while(*ptr == ' ') // Skip leading spaces
|
|
ptr++;
|
|
if(*ptr != LF) {
|
|
strsrep(buf, hardline, "\r");
|
|
read_len = strlen(buf);
|
|
if(hardcr or *buf == CTRL_A) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(is_quote(buf)) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(not isspace(buf[0]) and (buf[0] == buf[1]) and (buf[0] == buf[2])) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(strnieql(buf, " * Origin: ", 11)) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(strnieql(ptr, "CC:", 3)) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(strnieql(ptr, "XC:", 3)) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
else if(strnieql(buf, "SEEN-BY: ", 9)) {
|
|
if(not isspace(buf[read_len-1])) read_len += 1;
|
|
buf[read_len-1] = CR;
|
|
buf[read_len] = NUL;
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
}
|
|
if(*txtptr == LF) {
|
|
if((*(txtptr-1) != ' ') and (*ptr != ' '))
|
|
*txtptr++ = ' ';
|
|
}
|
|
else if(*txtptr != 0)
|
|
txtptr++;
|
|
}
|
|
else {
|
|
if(*txtptr == LF)
|
|
*txtptr = CR;
|
|
if(*txtptr)
|
|
txtptr++;
|
|
strcpy(buf, "\r");
|
|
}
|
|
}
|
|
if((*(txtptr-1) == CR) or (*txtptr == NUL)) {
|
|
size = strlen(buf);
|
|
memcpy(txtptr, buf, size);
|
|
txtptr += size-1;
|
|
}
|
|
}
|
|
if(*txtptr != CR)
|
|
*(++txtptr) = CR;
|
|
*(++txtptr) = NUL;
|
|
throw_free(buf);
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void GMsg::LinesToText() {
|
|
|
|
// Allow paragraphs up to 64k-1 long in the transfer buffer
|
|
int bufsize = 65535;
|
|
char* _buf = (char*)throw_malloc(bufsize);
|
|
|
|
Chs* _xlat_table = CharTable;
|
|
int _xlat_level = _xlat_table ? (_xlat_table->level ? _xlat_table->level : 2) : 0;
|
|
|
|
XlatStr(_buf, realby, _xlat_level, _xlat_table);
|
|
strxcpy(realby, _buf, sizeof(INam));
|
|
XlatStr(_buf, realto, _xlat_level, _xlat_table);
|
|
strxcpy(realto, _buf, sizeof(INam));
|
|
XlatStr(_buf, by, _xlat_level, _xlat_table);
|
|
strxcpy(by, _buf, sizeof(INam));
|
|
XlatStr(_buf, to, _xlat_level, _xlat_table);
|
|
strxcpy(to, _buf, sizeof(INam));
|
|
if(not (attr.frq() or attr.att() or attr.urq())) {
|
|
XlatStr(_buf, re, _xlat_level, _xlat_table);
|
|
strxcpy(re, _buf, sizeof(ISub));
|
|
}
|
|
|
|
bool _lfterm = EDIT->CrLfTerm() and strcmp(AA->basetype(), "PCBOARD");
|
|
bool _hardterm = AA->Edithardterm() or AA->requirehardterm();
|
|
bool _softterm = AA->requiresoftterm();
|
|
|
|
uint _alloc_size = 1024;
|
|
Line* _line = lin;
|
|
uint _lines = 0;
|
|
|
|
// Approximate the size of the text
|
|
while(_line) {
|
|
_alloc_size += _line->txt.length();
|
|
_line = _line->next;
|
|
_lines++;
|
|
}
|
|
_alloc_size += _lines * (_lfterm ? 2 : 1);
|
|
|
|
// Allocate the text
|
|
txt = (char*)throw_realloc(txt, _alloc_size);
|
|
|
|
// Setup variables for the loop
|
|
_line = lin;
|
|
uint _size = 0;
|
|
char* _ptr = txt;
|
|
|
|
// Build the text from the lines
|
|
|
|
while(_line) {
|
|
*_buf = NUL;
|
|
char* _bptr;
|
|
bool _hterm = true;
|
|
if(_line->isheader()) {
|
|
_bptr = stpcpy(_buf, _line->txt.c_str());
|
|
while(_line->next and _line->iswrapped()) {
|
|
_line = _line->next;
|
|
_bptr = stpcpy(_bptr, _line->txt.c_str());
|
|
if((_bptr-_buf) > (bufsize-256)) {
|
|
int bptrlen = (int)(_bptr - _buf);
|
|
bufsize += 4096;
|
|
_buf = (char*)throw_realloc(_buf, bufsize);
|
|
_bptr = _buf + bptrlen;
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
_bptr = XlatStr(_buf, _line->txt.c_str(), _xlat_level, _xlat_table);
|
|
if(*_buf and not _line->ishard()) {
|
|
if(_line->next) {
|
|
if((*(_bptr-1) != ' ') and (*_line->next->txt.c_str() != ' '))
|
|
if(_softterm or not _hardterm)
|
|
*_bptr++ = ' ';
|
|
if (not _hardterm)
|
|
{
|
|
if (_softterm and not WideDispsoftcr)
|
|
*_bptr++ = SOFTCR;
|
|
_hterm = false;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if(_hterm) {
|
|
*_bptr++ = CR;
|
|
if(_lfterm)
|
|
*_bptr++ = LF;
|
|
}
|
|
if(*_buf) {
|
|
uint _buflen = (uint)(_bptr-_buf);
|
|
_size += _buflen;
|
|
if(_size >= _alloc_size) {
|
|
_alloc_size += 1024;
|
|
txt = (char*)throw_realloc(txt, _alloc_size);
|
|
}
|
|
_ptr = txt + _size;
|
|
memcpy(_ptr-_buflen, _buf, _buflen);
|
|
}
|
|
_line = _line->next;
|
|
}
|
|
*_ptr = NUL;
|
|
|
|
throw_free(_buf);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|