Skip to content

GitLab

Commit 7e3e4714 authored by rswindell's avatar rswindell
Browse files

Initial check-in: v3.00c alpha code for Win32

parent cebecb6e
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 9476 additions and 0 deletions
src/encode/lzh.c 0 → 100644
View file @ 7e3e4714
This diff is collapsed.
src/encode/lzh.h 0 → 100644
View file @ 7e3e4714
/* lzh.h */
/* Synchronet LZH compression library */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Rob Swindell's conversion of 1988 LZH (LHarc) encoding functions *
* Based on Japanese version 29-NOV-1988 *
* LZSS coded by Haruhiko Okumura *
* Adaptive Huffman Coding coded by Haruyasu Yoshizaki *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#ifdef _WIN32
# ifndef __FLAT__
# define __FLAT__
# endif
# define LZHCALL __stdcall /* VB Compatible */
# ifdef EXPORT32
# undef EXPORT32
# endif
# if defined(LZHDLL)
# define EXPORT32 __declspec( dllexport )
# else
# define EXPORT32 __declspec( dllimport )
# endif
#else
#define LZHCALL
#define EXPORT32
#endif
#ifndef uchar
#define uchar unsigned char
#endif
#ifdef __cplusplus
extern "C" {
#endif
EXPORT32 long LZHCALL lzh_encode(uchar *inbuf, long inlen, uchar *outbuf);
EXPORT32 long LZHCALL lzh_decode(uchar *inbuf, long inlen, uchar *outbuf);
#ifdef __cplusplus
}
#endif
#ifdef __WATCOMC__ /* Use MSC standard (prepended underscore) */
#pragma aux lzh_encode "_*"
#pragma aux lzh_decode "_*"
#endif
src/hash/crc32.h 0 → 100644
View file @ 7e3e4714
/* crc32.h */
/* 32-bit CRC table and calculation macro */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* 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. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
long crc32tbl[]={ /* CRC polynomial 0xedb88320 */
0x00000000, 0x77073096, 0xee0e612c, 0x990951ba, 0x076dc419, 0x706af48f, 0xe963a535, 0x9e6495a3,
0x0edb8832, 0x79dcb8a4, 0xe0d5e91e, 0x97d2d988, 0x09b64c2b, 0x7eb17cbd, 0xe7b82d07, 0x90bf1d91,
0x1db71064, 0x6ab020f2, 0xf3b97148, 0x84be41de, 0x1adad47d, 0x6ddde4eb, 0xf4d4b551, 0x83d385c7,
0x136c9856, 0x646ba8c0, 0xfd62f97a, 0x8a65c9ec, 0x14015c4f, 0x63066cd9, 0xfa0f3d63, 0x8d080df5,
0x3b6e20c8, 0x4c69105e, 0xd56041e4, 0xa2677172, 0x3c03e4d1, 0x4b04d447, 0xd20d85fd, 0xa50ab56b,
0x35b5a8fa, 0x42b2986c, 0xdbbbc9d6, 0xacbcf940, 0x32d86ce3, 0x45df5c75, 0xdcd60dcf, 0xabd13d59,
0x26d930ac, 0x51de003a, 0xc8d75180, 0xbfd06116, 0x21b4f4b5, 0x56b3c423, 0xcfba9599, 0xb8bda50f,
0x2802b89e, 0x5f058808, 0xc60cd9b2, 0xb10be924, 0x2f6f7c87, 0x58684c11, 0xc1611dab, 0xb6662d3d,
0x76dc4190, 0x01db7106, 0x98d220bc, 0xefd5102a, 0x71b18589, 0x06b6b51f, 0x9fbfe4a5, 0xe8b8d433,
0x7807c9a2, 0x0f00f934, 0x9609a88e, 0xe10e9818, 0x7f6a0dbb, 0x086d3d2d, 0x91646c97, 0xe6635c01,
0x6b6b51f4, 0x1c6c6162, 0x856530d8, 0xf262004e, 0x6c0695ed, 0x1b01a57b, 0x8208f4c1, 0xf50fc457,
0x65b0d9c6, 0x12b7e950, 0x8bbeb8ea, 0xfcb9887c, 0x62dd1ddf, 0x15da2d49, 0x8cd37cf3, 0xfbd44c65,
0x4db26158, 0x3ab551ce, 0xa3bc0074, 0xd4bb30e2, 0x4adfa541, 0x3dd895d7, 0xa4d1c46d, 0xd3d6f4fb,
0x4369e96a, 0x346ed9fc, 0xad678846, 0xda60b8d0, 0x44042d73, 0x33031de5, 0xaa0a4c5f, 0xdd0d7cc9,
0x5005713c, 0x270241aa, 0xbe0b1010, 0xc90c2086, 0x5768b525, 0x206f85b3, 0xb966d409, 0xce61e49f,
0x5edef90e, 0x29d9c998, 0xb0d09822, 0xc7d7a8b4, 0x59b33d17, 0x2eb40d81, 0xb7bd5c3b, 0xc0ba6cad,
0xedb88320, 0x9abfb3b6, 0x03b6e20c, 0x74b1d29a, 0xead54739, 0x9dd277af, 0x04db2615, 0x73dc1683,
0xe3630b12, 0x94643b84, 0x0d6d6a3e, 0x7a6a5aa8, 0xe40ecf0b, 0x9309ff9d, 0x0a00ae27, 0x7d079eb1,
0xf00f9344, 0x8708a3d2, 0x1e01f268, 0x6906c2fe, 0xf762575d, 0x806567cb, 0x196c3671, 0x6e6b06e7,
0xfed41b76, 0x89d32be0, 0x10da7a5a, 0x67dd4acc, 0xf9b9df6f, 0x8ebeeff9, 0x17b7be43, 0x60b08ed5,
0xd6d6a3e8, 0xa1d1937e, 0x38d8c2c4, 0x4fdff252, 0xd1bb67f1, 0xa6bc5767, 0x3fb506dd, 0x48b2364b,
0xd80d2bda, 0xaf0a1b4c, 0x36034af6, 0x41047a60, 0xdf60efc3, 0xa867df55, 0x316e8eef, 0x4669be79,
0xcb61b38c, 0xbc66831a, 0x256fd2a0, 0x5268e236, 0xcc0c7795, 0xbb0b4703, 0x220216b9, 0x5505262f,
0xc5ba3bbe, 0xb2bd0b28, 0x2bb45a92, 0x5cb36a04, 0xc2d7ffa7, 0xb5d0cf31, 0x2cd99e8b, 0x5bdeae1d,
0x9b64c2b0, 0xec63f226, 0x756aa39c, 0x026d930a, 0x9c0906a9, 0xeb0e363f, 0x72076785, 0x05005713,
0x95bf4a82, 0xe2b87a14, 0x7bb12bae, 0x0cb61b38, 0x92d28e9b, 0xe5d5be0d, 0x7cdcefb7, 0x0bdbdf21,
0x86d3d2d4, 0xf1d4e242, 0x68ddb3f8, 0x1fda836e, 0x81be16cd, 0xf6b9265b, 0x6fb077e1, 0x18b74777,
0x88085ae6, 0xff0f6a70, 0x66063bca, 0x11010b5c, 0x8f659eff, 0xf862ae69, 0x616bffd3, 0x166ccf45,
0xa00ae278, 0xd70dd2ee, 0x4e048354, 0x3903b3c2, 0xa7672661, 0xd06016f7, 0x4969474d, 0x3e6e77db,
0xaed16a4a, 0xd9d65adc, 0x40df0b66, 0x37d83bf0, 0xa9bcae53, 0xdebb9ec5, 0x47b2cf7f, 0x30b5ffe9,
0xbdbdf21c, 0xcabac28a, 0x53b39330, 0x24b4a3a6, 0xbad03605, 0xcdd70693, 0x54de5729, 0x23d967bf,
0xb3667a2e, 0xc4614ab8, 0x5d681b02, 0x2a6f2b94, 0xb40bbe37, 0xc30c8ea1, 0x5a05df1b, 0x2d02ef8d
};
#define ucrc32(ch,crc) (crc32tbl[(crc^ch)&0xff]^(crc>>8))
src/sbbs3/Makefile.bor 0 → 100644
View file @ 7e3e4714
#########################################################################
# Makefile for Synchronet BBS #
# For use with Borland C++ Builder 5 or Borland C++ 5.5 for Win32 #
# @format.tab-size 4 #
#########################################################################
# Macros
DEBUG = 1 # Comment out for release (non-debug) version
CC = bcc32
LD = ilink32
OS = Win32
ODIR = $(CC).$(OS).dll
OFILE = obj
CFLAGS = -d -H -X- -WD -WM -I$(INCLUDE) -L$(LIB) -n$(ODIR) -q -w-csu
LFLAGS = -m -s -c -Tpd -Gi -L$(LIB) -I$(ODIR)
!ifdef DEBUG
CFLAGS = $(CFLAGS) -v -Od -D_DEBUG
LFLAGS = $(LFLAGS) -v
ODIR = $(ODIR).debug
!else
ODIR = $(ODIR).release
!endif
SBBS = $(ODIR)\sbbs.dll
FTPSRVR = $(ODIR)\ftpsrvr.dll
MAILSRVR= $(ODIR)\mailsrvr.dll
OBJS = $(ODIR)\ansiterm.$(OFILE)\
$(ODIR)\answer.$(OFILE)\
$(ODIR)\ars.$(OFILE)\
$(ODIR)\atcodes.$(OFILE)\
$(ODIR)\bat_xfer.$(OFILE)\
$(ODIR)\bulkmail.$(OFILE)\
$(ODIR)\chat.$(OFILE)\
$(ODIR)\chk_ar.$(OFILE)\
$(ODIR)\con_hi.$(OFILE)\
$(ODIR)\con_out.$(OFILE)\
$(ODIR)\data.$(OFILE)\
$(ODIR)\data_ovl.$(OFILE)\
$(ODIR)\date_str.$(OFILE)\
$(ODIR)\download.$(OFILE)\
$(ODIR)\email.$(OFILE)\
$(ODIR)\exec.$(OFILE)\
$(ODIR)\execfile.$(OFILE)\
$(ODIR)\execfunc.$(OFILE)\
$(ODIR)\execmisc.$(OFILE)\
$(ODIR)\execmsg.$(OFILE)\
$(ODIR)\fido.$(OFILE)\
$(ODIR)\file.$(OFILE)\
$(ODIR)\filedat.$(OFILE)\
$(ODIR)\getkey.$(OFILE)\
$(ODIR)\getmsg.$(OFILE)\
$(ODIR)\getnode.$(OFILE)\
$(ODIR)\getstr.$(OFILE)\
$(ODIR)\inkey.$(OFILE)\
$(ODIR)\listfile.$(OFILE)\
$(ODIR)\load_cfg.$(OFILE)\
$(ODIR)\logfile.$(OFILE)\
$(ODIR)\login.$(OFILE)\
$(ODIR)\logon.$(OFILE)\
$(ODIR)\logout.$(OFILE)\
$(ODIR)\lzh.$(OFILE)\
$(ODIR)\mail.$(OFILE)\
$(ODIR)\main.$(OFILE)\
$(ODIR)\misc.$(OFILE)\
$(ODIR)\msgtoqwk.$(OFILE)\
$(ODIR)\netmail.$(OFILE)\
$(ODIR)\newuser.$(OFILE)\
$(ODIR)\pack_qwk.$(OFILE)\
$(ODIR)\pack_rep.$(OFILE)\
$(ODIR)\postmsg.$(OFILE)\
$(ODIR)\prntfile.$(OFILE)\
$(ODIR)\putmsg.$(OFILE)\
$(ODIR)\putnode.$(OFILE)\
$(ODIR)\qwk.$(OFILE)\
$(ODIR)\qwktomsg.$(OFILE)\
$(ODIR)\readmail.$(OFILE)\
$(ODIR)\readmsgs.$(OFILE)\
$(ODIR)\ringbuf.$(OFILE)\
$(ODIR)\scandirs.$(OFILE)\
$(ODIR)\scansubs.$(OFILE)\
$(ODIR)\scfglib1.$(OFILE)\
$(ODIR)\scfglib2.$(OFILE)\
$(ODIR)\smblib.$(OFILE)\
$(ODIR)\sortdir.$(OFILE)\
$(ODIR)\str.$(OFILE)\
$(ODIR)\telgate.$(OFILE)\
$(ODIR)\telnet.$(OFILE)\
$(ODIR)\text_sec.$(OFILE)\
$(ODIR)\tmp_xfer.$(OFILE)\
$(ODIR)\un_qwk.$(OFILE)\
$(ODIR)\un_rep.$(OFILE)\
$(ODIR)\upload.$(OFILE)\
$(ODIR)\userdat.$(OFILE)\
$(ODIR)\useredit.$(OFILE)\
$(ODIR)\viewfile.$(OFILE)\
$(ODIR)\writemsg.$(OFILE)\
$(ODIR)\xtrn.$(OFILE)\
$(ODIR)\xtrn_sec.$(OFILE)
HEADERS = sbbs.h sbbsdefs.h scfgdefs.h gen_defs.h nodedefs.h text.h \
smblib.h smbdefs.h
SBBSDEFS= -DSBBS -DSBBS_EXPORTS -DSMB_GETMSGTXT -DSMBDLL -DLZHDLL
# Implicit C Compile Rule for SBBS.DLL
{.}.c.$(OFILE):
@echo Compiling (I) $< to $@ ...
$(CC) $(CFLAGS) -c $(SBBSDEFS) $<
# Implicit C++ Compile Rule for SBBS.DLL
{.}.cpp.$(OFILE):
@echo Compiling (I) $< to $@ ...
$(CC) $(CFLAGS) -c $(SBBSDEFS) $<
ALL: $(SBBS) $(FTPSRVR) $(MAILSRVR)
# SBBS DLL Link Rule
$(SBBS): $(OBJS) $(ODIR)\ver.$(OFILE)
@echo Linking $< ...
$(LD) $(LFLAGS) $(LIB)\c0d32.obj $(OBJS) $(ODIR)\ver.$(OFILE), $*, $*, \
$(LIB)\import32.lib $(LIB)\cw32mt.lib $(LIB)\ws2_32.lib
# Mail Server DLL Link Rule
$(MAILSRVR): mailsrvr.c mxlookup.c
@echo Compiling $< ...
$(CC) $(CFLAGS) -M -lGi -DMAILSRVR_EXPORTS mailsrvr.c mxlookup.c $(ODIR)\sbbs.lib
# FTP Server DLL Link Rule
$(FTPSRVR): ftpsrvr.c
@echo Compiling $< ...
$(CC) $(CFLAGS) -M -lGi -DFTPSRVR_EXPORTS ftpsrvr.c $(ODIR)\sbbs.lib
# Dependencies
$(ODIR)\answer.$(OFILE): $(HEADERS)
$(ODIR)\ars.$(OFILE): $(HEADERS) ars_defs.h
$(ODIR)\bat_xfer.$(OFILE): $(HEADERS)
$(ODIR)\bulkmail.$(OFILE): $(HEADERS)
$(ODIR)\chk_ar.$(OFILE): $(HEADERS) ars_defs.h
$(ODIR)\atcodes.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\chat.$(OFILE): $(HEADERS)
$(ODIR)\comio.$(OFILE): $(HEADERS)
$(ODIR)\con_hi.$(OFILE): $(HEADERS)
$(ODIR)\con_out.$(OFILE): $(HEADERS)
$(ODIR)\data.$(OFILE): $(HEADERS)
$(ODIR)\data_ovl.$(OFILE): $(HEADERS)
$(ODIR)\date_str.$(OFILE): $(HEADERS)
$(ODIR)\download.$(OFILE): $(HEADERS)
$(ODIR)\email.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\exec.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\execfile.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\execfunc.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\execmisc.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\execmsg.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\fido.$(OFILE): $(HEADERS)
$(ODIR)\file.$(OFILE): $(HEADERS)
$(ODIR)\filedat.$(OFILE): $(HEADERS)
$(ODIR)\getkey.$(OFILE): $(HEADERS)
$(ODIR)\getmsg.$(OFILE): $(HEADERS)
$(ODIR)\getnode.$(OFILE): $(HEADERS)
$(ODIR)\getstr.$(OFILE): $(HEADERS)
$(ODIR)\inkey.$(OFILE): $(HEADERS)
$(ODIR)\listfile.$(OFILE): $(HEADERS)
$(ODIR)\load_cfg.$(OFILE): $(HEADERS)
$(ODIR)\logfile.$(OFILE): $(HEADERS)
$(ODIR)\login.$(OFILE): $(HEADERS)
$(ODIR)\logon.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\logout.$(OFILE): $(HEADERS)
$(ODIR)\lzh.$(OFILE): $(HEADERS)
$(ODIR)\mail.$(OFILE): $(HEADERS)
$(ODIR)\main.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\misc.$(OFILE): $(HEADERS) ars_defs.h crc32.h
$(ODIR)\msgtoqwk.$(OFILE): $(HEADERS) qwk.h
$(ODIR)\netmail.$(OFILE): $(HEADERS) qwk.h
$(ODIR)\newuser.$(OFILE): $(HEADERS)
$(ODIR)\pack_qwk.$(OFILE): $(HEADERS) qwk.h post.h
$(ODIR)\pack_rep.$(OFILE): $(HEADERS) qwk.h post.h
$(ODIR)\postmsg.$(OFILE): $(HEADERS)
$(ODIR)\prntfile.$(OFILE): $(HEADERS)
$(ODIR)\putmsg.$(OFILE): $(HEADERS)
$(ODIR)\putnode.$(OFILE): $(HEADERS)
$(ODIR)\qwk.$(OFILE): $(HEADERS) qwk.h post.h
$(ODIR)\qwktomsg.$(OFILE): $(HEADERS) qwk.h
$(ODIR)\readmail.$(OFILE): $(HEADERS)
$(ODIR)\readmsgs.$(OFILE): $(HEADERS) post.h
$(ODIR)\ringbuf.$(OFILE): $(HEADERS)
$(ODIR)\scandirs.$(OFILE): $(HEADERS)
$(ODIR)\scansubs.$(OFILE): $(HEADERS)
$(ODIR)\scfglib1.$(OFILE): $(HEADERS) scfglib.h
$(ODIR)\scfglib2.$(OFILE): $(HEADERS) scfglib.h
$(ODIR)\smblib.$(OFILE): $(HEADERS)
$(ODIR)\sortdir.$(OFILE): $(HEADERS)
$(ODIR)\str.$(OFILE): $(HEADERS)
$(ODIR)\telgate.$(OFILE): $(HEADERS)
$(ODIR)\telmet.$(OFILE): $(HEADERS)
$(ODIR)\text_sec.$(OFILE): $(HEADERS)
$(ODIR)\tmp_xfer.$(OFILE): $(HEADERS)
$(ODIR)\un_qwk.$(OFILE): $(HEADERS) qwk.h
$(ODIR)\un_rep.$(OFILE): $(HEADERS) qwk.h
$(ODIR)\upload.$(OFILE): $(HEADERS)
$(ODIR)\userdat.$(OFILE): $(HEADERS)
$(ODIR)\useredit.$(OFILE): $(HEADERS)
$(ODIR)\getuser.$(OFILE): $(HEADERS)
$(ODIR)\ver.$(OFILE): $(HEADERS) $(OBJS)
$(ODIR)\viewfile.$(OFILE): $(HEADERS)
$(ODIR)\writemsg.$(OFILE): $(HEADERS)
$(ODIR)\xtrn.$(OFILE): $(HEADERS) cmdshell.h
$(ODIR)\xtrn_sec.$(OFILE): $(HEADERS)
src/sbbs3/ansiterm.cpp 0 → 100644
View file @ 7e3e4714
/* ansiterm.cpp */
/* Synchronet ANSI terminal functions */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* 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. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#include "sbbs.h"
#define TIMEOUT_ANSI_GETXY 5 // Seconds
/****************************************************************************/
/* Returns the ANSI code to obtain the value of atr. Mixed attributes */
/* high intensity colors, or background/forground cobinations don't work. */
/* A call to attr is more appropriate, being it is intelligent */
/****************************************************************************/
char *sbbs_t::ansi(int atr)
{
switch(atr) {
case BLINK:
return("\x1b[5m");
case HIGH:
return("\x1b[1m");
case BLACK:
return("\x1b[30m");
case RED:
return("\x1b[31m");
case GREEN:
return("\x1b[32m");
case BROWN:
return("\x1b[33m");
case BLUE:
return("\x1b[34m");
case MAGENTA:
return("\x1b[35m");
case CYAN:
return("\x1b[36m");
case LIGHTGRAY:
return("\x1b[37m");
case (RED<<4):
return("\x1b[41m");
case (GREEN<<4):
return("\x1b[42m");
case (BROWN<<4):
return("\x1b[43m");
case (BLUE<<4):
return("\x1b[44m");
case (MAGENTA<<4):
return("\x1b[45m");
case (CYAN<<4):
return("\x1b[46m");
case (LIGHTGRAY<<4):
return("\x1b[47m"); }
return("-Invalid use of ansi()-");
}
void sbbs_t::ansi_getlines()
{
if(useron.misc&ANSI && !useron.rows /* Auto-detect rows */
&& online==ON_REMOTE) { /* Remote */
SYNC;
putcom("\x1b[s\x1b[99B\x1b[6n\x1b[u");
while(online && !rioctl(RXBC) /* && !lkbrd(1) */)
checkline();
inkey(0); }
}
void sbbs_t::ansi_getxy(int* x, int* y)
{
int rsp=0, ch;
*x=0;
*y=0;
rputs("\x1b[6n"); /* Request cusor position */
time_t start=time(NULL);
sys_status&=~SS_ABORT;
while(online && !(sys_status&SS_ABORT)) {
if((ch=incom())!=NOINP) {
if(ch==ESC && rsp==0) {
rsp++;
start=time(NULL);
}
else if(ch=='[' && rsp==1) {
rsp++;
start=time(NULL);
}
else if(isdigit(ch) && rsp==2) {
(*y)*=10;
(*y)+=(ch&0xf);
start=time(NULL);
}
else if(ch==';' && rsp>=2) {
rsp++;
start=time(NULL);
}
else if(isdigit(ch) && rsp==3) {
(*x)*=10;
(*x)+=(ch&0xf);
start=time(NULL);
}
else if(ch=='R' && rsp)
break;
else
ungetkey(ch);
}
if(time(NULL)-start>TIMEOUT_ANSI_GETXY) {
lprintf("!Node %d: TIMEOUT in ansi_getxy", cfg.node_num);
break;
}
}
}
src/sbbs3/answer.cpp 0 → 100644
View file @ 7e3e4714
/* answer.cpp */
/* Synchronet answer "caller" function */
/* $Id$ */
/****************************************************************************
* @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* *
* Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
* *
* 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. *
* See the GNU General Public License for more details: gpl.txt or *
* http://www.fsf.org/copyleft/gpl.html *
* *
* Anonymous FTP access to the most recent released source is available at *
* ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
* *
* Anonymous CVS access to the development source and modification history *
* is available at cvs.synchro.net:/cvsroot/sbbs, example: *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs login *
* (just hit return, no password is necessary) *
* cvs -d :pserver:anonymous@cvs.synchro.net:/cvsroot/sbbs checkout src *
* *
* For Synchronet coding style and modification guidelines, see *
* http://www.synchro.net/source.html *
* *
* You are encouraged to submit any modifications (preferably in Unix diff *
* format) via e-mail to mods@synchro.net *
* *
* Note: If this box doesn't appear square, then you need to fix your tabs. *
****************************************************************************/
#include "sbbs.h"
#include "telnet.h"
bool sbbs_t::answer()
{
char str[256],str2[256],c;
int i,l;
struct tm * tm;
struct in_addr addr;
answertime=logontime=starttime=now=time(NULL);
/* Caller ID is IP address */
addr.S_un.S_addr=client_addr;
strcpy(cid,inet_ntoa(addr));
tm=localtime(&now);
if(tm==NULL)
return(false);
sprintf(str,"%02d:%02d%c %s %s %02d %u Node %3u"
,tm->tm_hour>12 ? tm->tm_hour-12 : tm->tm_hour==0 ? 12 : tm->tm_hour
,tm->tm_min,tm->tm_hour>=12 ? 'p' : 'a',wday[tm->tm_wday]
,mon[tm->tm_mon],tm->tm_mday,tm->tm_year+1900,cfg.node_num);
logline("@ ",str);
sprintf(str,"%s %s [%s]", connection, client_name, cid);
logline("@+:",str);
online=ON_REMOTE;
/* Detect terminal type */
mswait(200);
rioctl(IOFI); /* flush input buffer */
putcom( "\r\n" /* locate cursor at column 1 */
"\x1b[99B" /* locate cursor as far down as possible */
"\x1b[6n" /* Get cursor position */
"\x1b[!_" /* RIP? */
"\x1b[0t_" /* WIP? */
"\x1b[0m_" /* "Normal" colors */
"\x1b[2J" /* clear screen */
"\x1b[H" /* home cursor */
"\xC" /* clear screen (in case not ANSI) */
"\r" /* Move cursor left (in case previous char printed) */
);
i=l=0;
tos=1;
strcpy(str,VERSION_NOTICE);
strcat(str,COPYRIGHT_NOTICE);
center(str);
while(i++<50 && l<sizeof(str)-1) { /* wait up to 5 seconds for response */
c=(incom()&0x7f);
if(!c) {
mswait(100);
continue;
}
i=0;
if(l==0 && c!=ESC) // response must begin with escape char
continue;
str[l++]=c;
if(c=='R') { /* break immediately if response */
mswait(100);
break;
}
}
if(rioctl(RXBC)) /* wait a bit for extra RIP reply chars */
mswait(500);
while((c=(incom()&0x7f))!=0 && l<sizeof(str)-1)
str[l++]=c;
str[l]=0;
if(l) {
if(str[0]==ESC && str[1]=='[') {
autoterm|=(ANSI|COLOR);