开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
COMM.C
资源名称：mercwsrc.zip　[点击查看]
上传用户：kesirui
上传日期：2007-01-07
资源大小：263k
文件大小：51k
源码类别：

Internet/网络编程

开发平台：

WINDOWS

COMM.C：源码内容
  1. /***************************************************************************
  2.  *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
  3.  *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
  4.  *                                                                         *
  5.  *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
  6.  *  Chastain, Michael Quan, and Mitchell Tse.                              *
  7.  *                                                                         *
  8.  *  In order to use any part of this Merc Diku Mud, you must comply with   *
  9.  *  both the original Diku license in 'license.doc' as well the Merc       *
  10.  *  license in 'license.txt'.  In particular, you may not remove either of *
  11.  *  these copyright notices.                                               *
  12.  *                                                                         *
  13.  *  Thanks to abaddon for proof-reading our comm.c and pointing out bugs.  *
  14.  *  Any remaining bugs are, of course, our work, not his.  :)              *
  15.  *                                                                         *
  16.  *  Much time and thought has gone into this software and you are          *
  17.  *  benefitting.  We hope that you share your changes too.  What goes      *
  18.  *  around, comes around.                                                  *
  19.  ***************************************************************************/
  21. /*
  22.  * This file contains all of the OS-dependent stuff:
  23.  *   startup, signals, BSD sockets for tcp/ip, i/o, timing.
  24.  *
  25.  * The data flow for input is:
  26.  *    Game_loop ---> Read_from_descriptor ---> Read
  27.  *    Game_loop ---> Read_from_buffer
  28.  *
  29.  * The data flow for output is:
  30.  *    Game_loop ---> Process_Output ---> Write_to_descriptor -> Write
  31.  *
  32.  * The OS-dependent functions are Read_from_descriptor and Write_to_descriptor.
  33.  * -- Furey  26 Jan 1993
  34.  */
  36. #if defined(macintosh)
  37. #include <types.h>
  38. #else
  39. #include <sys/types.h>
  40. #ifndef WIN32s
  41. #include <sys/time.h>
  42. #endif // @@@
  43. #endif
  45. #include <ctype.h>
  46. #include <errno.h>
  47. #include <stdio.h>
  48. #include <stdlib.h>
  49. #include <string.h>
  50. #include <time.h>
  52. #include "merc.h"
  56. /*
  57.  * Malloc debugging stuff.
  58.  */
  59. #if defined(sun)
  60. #undef MALLOC_DEBUG
  61. #endif
  63. #if defined(MALLOC_DEBUG)
  64. #include <malloc.h>
  65. extern int malloc_debug args( ( int  ) );
  66. extern int malloc_verify args( ( void ) );
  67. #endif
  71. /*
  72.  * Signal handling.
  73.  * Apollo has a problem with __attribute(atomic) in signal.h,
  74.  *   I dance around it.
  75.  */
  76. #if defined(apollo)
  77. #define __attribute(x)
  78. #endif
  80. #if defined(unix)
  81. #include <signal.h>
  82. #endif
  84. #if defined(apollo)
  85. #undef __attribute
  86. #endif
  90. /*
  91.  * Socket and TCP/IP stuff.
  92.  */
  93. #if defined(macintosh) || defined(MSDOS)
  94. const char echo_off_str [] = { '' };
  95. const char echo_on_str [] = { '' };
  96. const char  go_ahead_str [] = { '' };
  97. #endif
  99. #if defined(unix)
  100. #include <fcntl.h>
  101. #ifndef WIN32s // @@@
  102. #include <netdb.h>
  103. #include <netinet/in.h>
  104. #include <sys/socket.h>
  105. #include <arpa/telnet.h>
  106. const char echo_off_str [] = { IAC, WILL, TELOPT_ECHO, '' };
  107. const char echo_on_str [] = { IAC, WONT, TELOPT_ECHO, '' };
  108. const char  go_ahead_str [] = { IAC, GA, '' };
  109. #endif
  110. #endif
  114. /*
  115.  * OS-dependent declarations.
  116.  */
  117. #if defined(_AIX)
  118. #include <sys/select.h>
  119. int accept args( ( int s, struct sockaddr *addr, int *addrlen ) );
  120. int bind args( ( int s, struct sockaddr *name, int namelen ) );
  121. void bzero args( ( char *b, int length ) );
  122. int getpeername args( ( int s, struct sockaddr *name, int *namelen ) );
  123. int getsockname args( ( int s, struct sockaddr *name, int *namelen ) );
  124. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  125. int listen args( ( int s, int backlog ) );
  126. int setsockopt args( ( int s, int level, int optname, void *optval,
  127.     int optlen ) );
  128. int socket args( ( int domain, int type, int protocol ) );
  129. #endif
  131. #if defined(apollo)
  132. #include <unistd.h>
  133. void bzero args( ( char *b, int length ) );
  134. #endif
  136. #if defined(__hpux)
  137. int accept args( ( int s, void *addr, int *addrlen ) );
  138. int bind args( ( int s, const void *addr, int addrlen ) );
  139. void bzero args( ( char *b, int length ) );
  140. int getpeername args( ( int s, void *addr, int *addrlen ) );
  141. int getsockname args( ( int s, void *name, int *addrlen ) );
  142. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  143. int listen args( ( int s, int backlog ) );
  144. int setsockopt args( ( int s, int level, int optname,
  145.   const void *optval, int optlen ) );
  146. int socket args( ( int domain, int type, int protocol ) );
  147. #endif
  149. #if     defined(interactive)
  150. #include <net/errno.h>
  151. #include <sys/fcntl.h>
  152. #endif
  154. #if defined(linux)
  155. int accept args( ( int s, struct sockaddr *addr, int *addrlen ) );
  156. int bind args( ( int s, struct sockaddr *name, int namelen ) );
  157. int close args( ( int fd ) );
  158. int getpeername args( ( int s, struct sockaddr *name, int *namelen ) );
  159. int getsockname args( ( int s, struct sockaddr *name, int *namelen ) );
  160. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  161. int listen args( ( int s, int backlog ) );
  162. int read args( ( int fd, char *buf, int nbyte ) );
  163. int select args( ( int width, fd_set *readfds, fd_set *writefds,
  164.     fd_set *exceptfds, struct timeval *timeout ) );
  165. int socket args( ( int domain, int type, int protocol ) );
  166. int write args( ( int fd, char *buf, int nbyte ) );
  167. #endif
  169. #if defined(macintosh)
  170. #include <console.h>
  171. #include <fcntl.h>
  172. #include <unix.h>
  173. struct timeval
  174. {
  175. time_t tv_sec;
  176. time_t tv_usec;
  177. };
  178. #if !defined(isascii)
  179. #define isascii(c) ( (c) < 0200 )
  180. #endif
  181. static long theKeys [4];
  183. int gettimeofday args( ( struct timeval *tp, void *tzp ) );
  184. #endif
  186. #if defined(MIPS_OS)
  187. extern int errno;
  188. #endif
  190. #if defined(MSDOS)
  191. int gettimeofday args( ( struct timeval *tp, void *tzp ) );
  192. int kbhit args( ( void ) );
  193. #endif
  195. #if defined(WIN32s)
  196. int gettimeofday args( ( struct timeval *tp, void *tzp ) );
  197. #endif
  199. #if defined(NeXT)
  200. int close args( ( int fd ) );
  201. int fcntl args( ( int fd, int cmd, int arg ) );
  202. #if !defined(htons)
  203. u_short htons args( ( u_short hostshort ) );
  204. #endif
  205. #if !defined(ntohl)
  206. u_long ntohl args( ( u_long hostlong ) );
  207. #endif
  208. int read args( ( int fd, char *buf, int nbyte ) );
  209. int select args( ( int width, fd_set *readfds, fd_set *writefds,
  210.     fd_set *exceptfds, struct timeval *timeout ) );
  211. int write args( ( int fd, char *buf, int nbyte ) );
  212. #endif
  214. #if defined(sequent)
  215. int accept args( ( int s, struct sockaddr *addr, int *addrlen ) );
  216. int bind args( ( int s, struct sockaddr *name, int namelen ) );
  217. int close args( ( int fd ) );
  218. int fcntl args( ( int fd, int cmd, int arg ) );
  219. int getpeername args( ( int s, struct sockaddr *name, int *namelen ) );
  220. int getsockname args( ( int s, struct sockaddr *name, int *namelen ) );
  221. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  222. #if !defined(htons)
  223. u_short htons args( ( u_short hostshort ) );
  224. #endif
  225. int listen args( ( int s, int backlog ) );
  226. #if !defined(ntohl)
  227. u_long ntohl args( ( u_long hostlong ) );
  228. #endif
  229. int read args( ( int fd, char *buf, int nbyte ) );
  230. int select args( ( int width, fd_set *readfds, fd_set *writefds,
  231.     fd_set *exceptfds, struct timeval *timeout ) );
  232. int setsockopt args( ( int s, int level, int optname, caddr_t optval,
  233.     int optlen ) );
  234. int socket args( ( int domain, int type, int protocol ) );
  235. int write args( ( int fd, char *buf, int nbyte ) );
  236. #endif
  238. /*
  239.  * This includes Solaris SYSV as well
  240.  */
  242. #if defined(sun)
  243. int accept args( ( int s, struct sockaddr *addr, int *addrlen ) );
  244. int bind args( ( int s, struct sockaddr *name, int namelen ) );
  245. void bzero args( ( char *b, int length ) );
  246. int close args( ( int fd ) );
  247. int getpeername args( ( int s, struct sockaddr *name, int *namelen ) );
  248. int getsockname args( ( int s, struct sockaddr *name, int *namelen ) );
  249. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  250. int listen args( ( int s, int backlog ) );
  251. int read args( ( int fd, char *buf, int nbyte ) );
  252. int select args( ( int width, fd_set *readfds, fd_set *writefds,
  253.     fd_set *exceptfds, struct timeval *timeout ) );
  254. #if defined(SYSV)
  255. int     setsockopt      args( ( int s, int level, int optname,
  256.     const char *optval, int optlen ) );
  257. #else
  258. int setsockopt args( ( int s, int level, int optname, void *optval,
  259.     int optlen ) );
  260. #endif
  261. int socket args( ( int domain, int type, int protocol ) );
  262. int write args( ( int fd, char *buf, int nbyte ) );
  263. #endif
  265. #if defined(ultrix)
  266. int accept args( ( int s, struct sockaddr *addr, int *addrlen ) );
  267. int bind args( ( int s, struct sockaddr *name, int namelen ) );
  268. void bzero args( ( char *b, int length ) );
  269. int close args( ( int fd ) );
  270. int getpeername args( ( int s, struct sockaddr *name, int *namelen ) );
  271. int getsockname args( ( int s, struct sockaddr *name, int *namelen ) );
  272. int gettimeofday args( ( struct timeval *tp, struct timezone *tzp ) );
  273. int listen args( ( int s, int backlog ) );
  274. int read args( ( int fd, char *buf, int nbyte ) );
  275. int select args( ( int width, fd_set *readfds, fd_set *writefds,
  276.     fd_set *exceptfds, struct timeval *timeout ) );
  277. int setsockopt args( ( int s, int level, int optname, void *optval,
  278.     int optlen ) );
  279. int socket args( ( int domain, int type, int protocol ) );
  280. int write args( ( int fd, char *buf, int nbyte ) );
  281. #endif
  285. /*
  286.  * Global variables.
  287.  */
  288. DESCRIPTOR_DATA *   descriptor_free; /* Free list for descriptors */
  289. DESCRIPTOR_DATA *   descriptor_list; /* All open descriptors */
  290. DESCRIPTOR_DATA *   d_next; /* Next descriptor in loop */
  291. FILE *     fpReserve; /* Reserved file handle */
  292. bool     god; /* All new chars are gods! */
  293. bool     merc_down; /* Shutdown */
  294. bool     wizlock; /* Game is wizlocked */
  295. char     str_boot_time[MAX_INPUT_LENGTH];
  296. time_t     current_time; /* Time of this pulse */
  300. /*
  301.  * OS-dependent local functions.
  302.  */
  303. #if defined(macintosh) || defined(MSDOS)
  304. void game_loop_mac_msdos args( ( void ) );
  305. bool read_from_descriptor args( ( DESCRIPTOR_DATA *d ) );
  306. bool write_to_descriptor args( ( int desc, char *txt, int length ) );
  307. #endif
  309. #if defined(unix)
  310. void game_loop_unix args( ( int control ) );
  311. int init_socket args( ( int port ) );
  312. void new_descriptor args( ( int control ) );
  313. bool read_from_descriptor args( ( DESCRIPTOR_DATA *d ) );
  314. bool write_to_descriptor args( ( int desc, char *txt, int length ) );
  315. #endif
  320. /*
  321.  * Other local functions (OS-independent).
  322.  */
  323. bool check_parse_name args( ( char *name ) );
  324. bool check_reconnect args( ( DESCRIPTOR_DATA *d, char *name,
  325.     bool fConn ) );
  326. bool check_playing args( ( DESCRIPTOR_DATA *d, char *name ) );
  327. int main args( ( int argc, char **argv ) );
  328. void nanny args( ( DESCRIPTOR_DATA *d, char *argument ) );
  329. bool process_output args( ( DESCRIPTOR_DATA *d, bool fPrompt ) );
  330. void read_from_buffer args( ( DESCRIPTOR_DATA *d ) );
  331. void stop_idling args( ( CHAR_DATA *ch ) );
  332. void    bust_a_prompt           args( ( CHAR_DATA *ch ) );
  334. #ifdef WIN32s
  335. #include <winsock.h>
  336. int close(SOCKET s) { return closesocket(s); }
  337. #endif
  339. int main( int argc, char **argv )
  340. {
  341.     struct timeval now_time;
  342.     int port;
  344. #if defined(unix)
  345.     int control;
  346. #endif
  348.     /*
  349.      * Memory debugging if needed.
  350.      */
  351. #if defined(MALLOC_DEBUG)
  352.     malloc_debug( 2 );
  353. #endif
  355.     /*
  356.      * Init time.
  357.      */
  358.     gettimeofday( &now_time, NULL );
  359.     current_time = (time_t) now_time.tv_sec;
  360.     strcpy( str_boot_time, ctime( &current_time ) );
  362.     /*
  363.      * Macintosh console initialization.
  364.      */
  365. #if defined(macintosh)
  366.     console_options.nrows = 31;
  367.     cshow( stdout );
  368.     csetmode( C_RAW, stdin );
  369.     cecho2file( "log file", 1, stderr );
  370. #endif
  372.     /*
  373.      * Reserve one channel for our use.
  374.      */
  375.     if ( ( fpReserve = fopen( NULL_FILE, "r" ) ) == NULL )
  376.     {
  377. perror( NULL_FILE );
  378. exit( 1 );
  379.     }
  381.     /*
  382.      * Get the port number.
  383.      */
  384.     port = 1234;
  385.     if ( argc > 1 )
  386.     {
  387. if ( !is_number( argv[1] ) )
  388. {
  389.     fprintf( stderr, "Usage: %s [port #]n", argv[0] );
  390.     exit( 1 );
  391. }
  392. else if ( ( port = atoi( argv[1] ) ) <= 1024 )
  393. {
  394.     fprintf( stderr, "Port number must be above 1024.n" );
  395.     exit( 1 );
  396. }
  397.     }
  399.     /*
  400.      * Run the game.
  401.      */
  402. #if defined(macintosh) || defined(MSDOS)
  403.     boot_db( );
  404.     log_string( "Merc is ready to rock." );
  405.     game_loop_mac_msdos( );
  406. #endif
  408. #if defined(unix)
  409.     control = init_socket( port );
  410.     boot_db( );
  411.     sprintf( log_buf, "Merc is ready to rock on port %d.", port );
  412.     log_string( log_buf );
  413.     game_loop_unix( control );
  414.     close( control );
  415. #endif
  417.     /*
  418.      * That's all, folks.
  419.      */
  420.     log_string( "Normal termination of game." );
  421.     exit( 0 );
  422.     return 0;
  423. }
  427. #if defined(unix)
  428. int init_socket( int port )
  429. {
  430.     static struct sockaddr_in sa_zero;
  431.     struct sockaddr_in sa;
  432.     int x = 1; 
  433.     int fd;
  435.     if ( ( fd = socket( AF_INET, SOCK_STREAM, 0 ) ) < 0 )
  436.     {
  437. perror( "Init_socket: socket" );
  438. exit( 1 );
  439.     }
  441.     if ( setsockopt( fd, SOL_SOCKET, SO_REUSEADDR,
  442.     (char *) &x, sizeof(x) ) < 0 )
  443.     {
  444. perror( "Init_socket: SO_REUSEADDR" );
  445. close( fd );
  446. exit( 1 );
  447.     }
  449. #if defined(SO_DONTLINGER) && !defined(SYSV)
  450.     {
  451. struct linger ld;
  453. ld.l_onoff  = 1;
  454. ld.l_linger = 1000;
  456. if ( setsockopt( fd, SOL_SOCKET, SO_DONTLINGER,
  457. (char *) &ld, sizeof(ld) ) < 0 )
  458. {
  459.     perror( "Init_socket: SO_DONTLINGER" );
  460.     close( fd );
  461.     exit( 1 );
  462. }
  463.     }
  464. #endif
  466.     sa     = sa_zero;
  467.     sa.sin_family   = AF_INET;
  468.     sa.sin_port     = htons( port );
  470.     if ( bind( fd, (struct sockaddr *) &sa, sizeof(sa) ) < 0 )
  471.     {
  472. perror( "Init_socket: bind" );
  473. close( fd );
  474. exit( 1 );
  475.     }
  477.     if ( listen( fd, 3 ) < 0 )
  478.     {
  479. perror( "Init_socket: listen" );
  480. close( fd );
  481. exit( 1 );
  482.     }
  484.     return fd;
  485. }
  486. #endif
  490. #if defined(macintosh) || defined(MSDOS)
  491. void game_loop_mac_msdos( void )
  492. {
  493.     struct timeval last_time;
  494.     struct timeval now_time;
  495.     static DESCRIPTOR_DATA dcon;
  497.     gettimeofday( &last_time, NULL );
  498.     current_time = (time_t) last_time.tv_sec;
  500.     /*
  501.      * New_descriptor analogue.
  502.      */
  503.     dcon.descriptor = 0;
  504.     dcon.connected = CON_GET_NAME;
  505.     dcon.host = str_dup( "localhost" );
  506.     dcon.outsize = 2000;
  507.     dcon.outbuf = alloc_mem( dcon.outsize );
  508.     dcon.next = descriptor_list;
  509.     descriptor_list = &dcon;
  511.     /*
  512.      * Send the greeting.
  513.      */
  514.     {
  515. extern char * help_greeting;
  516. if ( help_greeting[0] == '.' )
  517.     write_to_buffer( &dcon, help_greeting+1, 0 );
  518. else
  519.     write_to_buffer( &dcon, help_greeting  , 0 );
  520.     }
  522.     /* Main loop */
  523.     while ( !merc_down )
  524.     {
  525. DESCRIPTOR_DATA *d;
  527. /*
  528.  * Process input.
  529.  */
  530. for ( d = descriptor_list; d != NULL; d = d_next )
  531. {
  532.     d_next = d->next;
  533.     d->fcommand = FALSE;
  535. #if defined(MSDOS)
  536.     if ( kbhit( ) )
  537. #endif
  538.     {
  539. if ( d->character != NULL )
  540.     d->character->timer = 0;
  541. if ( !read_from_descriptor( d ) )
  542. {
  543.     if ( d->character != NULL )
  544. save_char_obj( d->character );
  545.     d->outtop = 0;
  546.     close_socket( d );
  547.     continue;
  548. }
  549.     }
  551.     if ( d->character != NULL && d->character->wait > 0 )
  552.     {
  553. --d->character->wait;
  554. continue;
  555.     }
  557.     read_from_buffer( d );
  558.     if ( d->incomm[0] != '' )
  559.     {
  560. d->fcommand = TRUE;
  561. stop_idling( d->character );
  563. if ( d->connected == CON_PLAYING )
  564.     if ( d->showstr_point )
  565.         show_string( d, d->incomm );
  566.     else
  567.         interpret( d->character, d->incomm );
  568. else
  569.     nanny( d, d->incomm );
  571. d->incomm[0] = '';
  572.     }
  573. }
  577. /*
  578.  * Autonomous game motion.
  579.  */
  580. update_handler( );
  584. /*
  585.  * Output.
  586.  */
  587. for ( d = descriptor_list; d != NULL; d = d_next )
  588. {
  589.     d_next = d->next;
  591.     if ( ( d->fcommand || d->outtop > 0 ) )
  592.     {
  593. if ( !process_output( d, TRUE ) )
  594. {
  595.     if ( d->character != NULL )
  596. save_char_obj( d->character );
  597.     d->outtop = 0;
  598.     close_socket( d );
  599. }
  600.     }
  601. }
  605. /*
  606.  * Synchronize to a clock.
  607.  * Busy wait (blargh).
  608.  */
  609. now_time = last_time;
  610. for ( ; ; )
  611. {
  612.     int delta;
  614. #if defined(MSDOS)
  615.     if ( kbhit( ) )
  616. #endif
  617.     {
  618. if ( dcon.character != NULL )
  619.     dcon.character->timer = 0;
  620. if ( !read_from_descriptor( &dcon ) )
  621. {
  622.     if ( dcon.character != NULL )
  623. save_char_obj( d->character );
  624.     dcon.outtop = 0;
  625.     close_socket( &dcon );
  626. }
  627. #if defined(MSDOS)
  628. break;
  629. #endif
  630.     }
  632.     gettimeofday( &now_time, NULL );
  633.     delta = ( now_time.tv_sec  - last_time.tv_sec  ) * 1000 * 1000
  634.   + ( now_time.tv_usec - last_time.tv_usec );
  635.     if ( delta >= 1000000 / PULSE_PER_SECOND )
  636. break;
  637. }
  638. last_time    = now_time;
  639. current_time = (time_t) last_time.tv_sec;
  640.     }
  642.     return;
  643. }
  644. #endif
  648. #if defined(unix)
  649. void game_loop_unix( int control )
  650. {
  651.     static struct timeval null_time;
  652.     struct timeval last_time;
  654. #ifndef WIN32s
  655.     signal( SIGPIPE, SIG_IGN );
  656. #endif
  657.     gettimeofday( &last_time, NULL );
  658.     current_time = (time_t) last_time.tv_sec;
  660.     /* Main loop */
  661.     while ( !merc_down )
  662.     {
  663. fd_set in_set;
  664. fd_set out_set;
  665. fd_set exc_set;
  666. DESCRIPTOR_DATA *d;
  667. int maxdesc;
  669. #if defined(MALLOC_DEBUG)
  670. if ( malloc_verify( ) != 1 )
  671.     abort( );
  672. #endif
  674. /*
  675.  * Poll all active descriptors.
  676.  */
  677. FD_ZERO( &in_set  );
  678. FD_ZERO( &out_set );
  679. FD_ZERO( &exc_set );
  680. FD_SET( control, &in_set );
  681. maxdesc = control;
  682. for ( d = descriptor_list; d; d = d->next )
  683. {
  684.     maxdesc = UMAX( maxdesc, d->descriptor );
  685.     FD_SET( d->descriptor, &in_set  );
  686.     FD_SET( d->descriptor, &out_set );
  687.     FD_SET( d->descriptor, &exc_set );
  688. }
  690. if ( select( maxdesc+1, &in_set, &out_set, &exc_set, &null_time ) < 0 )
  691. {
  692.     perror( "Game_loop: select: poll" );
  693.     exit( 1 );
  694. }
  696. /*
  697.  * New connection?
  698.  */
  699. if ( FD_ISSET( control, &in_set ) )
  700.     new_descriptor( control );
  702. /*
  703.  * Kick out the freaky folks.
  704.  */
  705. for ( d = descriptor_list; d != NULL; d = d_next )
  706. {
  707.     d_next = d->next;   
  708.     if ( FD_ISSET( d->descriptor, &exc_set ) )
  709.     {
  710. FD_CLR( d->descriptor, &in_set  );
  711. FD_CLR( d->descriptor, &out_set );
  712. if ( d->character )
  713.     save_char_obj( d->character );
  714. d->outtop = 0;
  715. close_socket( d );
  716.     }
  717. }
  719. /*
  720.  * Process input.
  721.  */
  722. for ( d = descriptor_list; d != NULL; d = d_next )
  723. {
  724.     d_next = d->next;
  725.     d->fcommand = FALSE;
  727.     if ( FD_ISSET( d->descriptor, &in_set ) )
  728.     {
  729. if ( d->character != NULL )
  730.     d->character->timer = 0;
  731. if ( !read_from_descriptor( d ) )
  732. {
  733.     FD_CLR( d->descriptor, &out_set );
  734.     if ( d->character != NULL )
  735. save_char_obj( d->character );
  736.     d->outtop = 0;
  737.     close_socket( d );
  738.     continue;
  739. }
  740.     }
  742.     if ( d->character != NULL && d->character->wait > 0 )
  743.     {
  744. --d->character->wait;
  745. continue;
  746.     }
  748.     read_from_buffer( d );
  749.     if ( d->incomm[0] != '' )
  750.     {
  751. d->fcommand = TRUE;
  752. stop_idling( d->character );
  754. if ( d->connected == CON_PLAYING )
  755.     if ( d->showstr_point )
  756.         show_string( d, d->incomm );
  757.     else
  758.         interpret( d->character, d->incomm );
  759. else
  760.     nanny( d, d->incomm );
  762. d->incomm[0] = '';
  763.     }
  764. }
  768. /*
  769.  * Autonomous game motion.
  770.  */
  771. update_handler( );
  775. /*
  776.  * Output.
  777.  */
  778. for ( d = descriptor_list; d != NULL; d = d_next )
  779. {
  780.     d_next = d->next;
  782.     if ( ( d->fcommand || d->outtop > 0 )
  783.     &&   FD_ISSET(d->descriptor, &out_set) )
  784.     {
  785. if ( !process_output( d, TRUE ) )
  786. {
  787.     if ( d->character != NULL )
  788. save_char_obj( d->character );
  789.     d->outtop = 0;
  790.     close_socket( d );
  791. }
  792.     }
  793. }
  797. /*
  798.  * Synchronize to a clock.
  799.  * Sleep( last_time + 1/PULSE_PER_SECOND - now ).
  800.  * Careful here of signed versus unsigned arithmetic.
  801.  */
  802. {
  803.     struct timeval now_time;
  804.     long secDelta;
  805.     long usecDelta;
  807.     gettimeofday( &now_time, NULL );
  808.     usecDelta = ((int) last_time.tv_usec) - ((int) now_time.tv_usec)
  809. + 1000000 / PULSE_PER_SECOND;
  810.     secDelta = ((int) last_time.tv_sec ) - ((int) now_time.tv_sec );
  811.     while ( usecDelta < 0 )
  812.     {
  813. usecDelta += 1000000;
  814. secDelta  -= 1;
  815.     }
  817.     while ( usecDelta >= 1000000 )
  818.     {
  819. usecDelta -= 1000000;
  820. secDelta  += 1;
  821.     }
  823.     if ( secDelta > 0 || ( secDelta == 0 && usecDelta > 0 ) )
  824.     {
  825. struct timeval stall_time;
  827. stall_time.tv_usec = usecDelta;
  828. stall_time.tv_sec  = secDelta;
  829. if ( select( 0, NULL, NULL, NULL, &stall_time ) < 0 )
  830. {
  831.     perror( "Game_loop: select: stall" );
  832.     exit( 1 );
  833. }
  834.     }
  835. }
  837. gettimeofday( &last_time, NULL );
  838. current_time = (time_t) last_time.tv_sec;
  839.     }
  841.     return;
  842. }
  843. #endif
  847. #if defined(unix)
  848. void new_descriptor( int control )
  849. {
  850.     static DESCRIPTOR_DATA d_zero;
  851.     char buf[MAX_STRING_LENGTH];
  852.     DESCRIPTOR_DATA *dnew;
  853.     BAN_DATA *pban;
  854.     struct sockaddr_in sock;
  855.     struct hostent *from;
  856.     int desc;
  857.     int size;
  859.     size = sizeof(sock);
  860.     getsockname( control, (struct sockaddr *) &sock, &size );
  861.     if ( ( desc = accept( control, (struct sockaddr *) &sock, &size) ) < 0 )
  862.     {
  863. perror( "New_descriptor: accept" );
  864. return;
  865.     }
  867. #if !defined(FNDELAY)
  868. #define FNDELAY O_NDELAY
  869. #endif
  871. #ifndef WIN32s
  872.     if ( fcntl( desc, F_SETFL, FNDELAY ) == -1 )
  873.     {
  874. perror( "New_descriptor: fcntl: FNDELAY" );
  875. return;
  876.     }
  877. #endif
  879.     /*
  880.      * Cons a new descriptor.
  881.      */
  882.     if ( descriptor_free == NULL )
  883.     {
  884. dnew = alloc_perm( sizeof(*dnew) );
  885.     }
  886.     else
  887.     {
  888. dnew = descriptor_free;
  889. descriptor_free = descriptor_free->next;
  890.     }
  892.     *dnew = d_zero;
  893.     dnew->descriptor = desc;
  894.     dnew->connected = CON_GET_NAME;
  895.     dnew->showstr_head  = NULL;
  896.     dnew->showstr_point = NULL;
  897.     dnew->outsize = 2000;
  898.     dnew->outbuf = alloc_mem( dnew->outsize );
  900.     size = sizeof(sock);
  901.     if ( getpeername( desc, (struct sockaddr *) &sock, &size ) < 0 )
  902.     {
  903. perror( "New_descriptor: getpeername" );
  904. dnew->host = str_dup( "(unknown)" );
  905.     }
  906.     else
  907.     {
  908. /*
  909.  * Would be nice to use inet_ntoa here but it takes a struct arg,
  910.  * which ain't very compatible between gcc and system libraries.
  911.  */
  912. int addr;
  914. addr = ntohl( sock.sin_addr.s_addr );
  915. sprintf( buf, "%d.%d.%d.%d",
  916.     ( addr >> 24 ) & 0xFF, ( addr >> 16 ) & 0xFF,
  917.     ( addr >>  8 ) & 0xFF, ( addr       ) & 0xFF
  918.     );
  919. sprintf( log_buf, "Sock.sinaddr:  %s", buf );
  920. log_string( log_buf );
  921. from = gethostbyaddr( (char *) &sock.sin_addr,
  922.     sizeof(sock.sin_addr), AF_INET );
  923. dnew->host = str_dup( from ? from->h_name : buf );
  924.     }
  926.     /*
  927.      * Swiftest: I added the following to ban sites.  I don't
  928.      * endorse banning of sites, but Copper has few descriptors now
  929.      * and some people from certain sites keep abusing access by
  930.      * using automated 'autodialers' and leaving connections hanging.
  931.      *
  932.      * Furey: added suffix check by request of Nickel of HiddenWorlds.
  933.      */
  934.     for ( pban = ban_list; pban != NULL; pban = pban->next )
  935.     {
  936. if ( str_suffix( pban->name, dnew->host ) )
  937. {
  938.     write_to_descriptor( desc,
  939. "Your site has been banned from this Mud.nr", 0 );
  940.     close( desc );
  941.     free_string( dnew->host );
  942.     free_mem( dnew->outbuf, dnew->outsize );
  943.     dnew->next = descriptor_free;
  944.     descriptor_free = dnew;
  945.     return;
  946. }
  947.     }
  949.     /*
  950.      * Init descriptor data.
  951.      */
  952.     dnew->next = descriptor_list;
  953.     descriptor_list = dnew;
  955.     /*
  956.      * Send the greeting.
  957.      */
  958.     {
  959. extern char * help_greeting;
  960. if ( help_greeting[0] == '.' )
  961.     write_to_buffer( dnew, help_greeting+1, 0 );
  962. else
  963.     write_to_buffer( dnew, help_greeting  , 0 );
  964.     }
  966.     return;
  967. }
  968. #endif
  972. void close_socket( DESCRIPTOR_DATA *dclose )
  973. {
  974.     CHAR_DATA *ch;
  976.     if ( dclose->outtop > 0 )
  977. process_output( dclose, FALSE );
  979.     if ( dclose->snoop_by != NULL )
  980.     {
  981. write_to_buffer( dclose->snoop_by,
  982.     "Your victim has left the game.nr", 0 );
  983.     }
  985.     {
  986. DESCRIPTOR_DATA *d;
  988. for ( d = descriptor_list; d != NULL; d = d->next )
  989. {
  990.     if ( d->snoop_by == dclose )
  991. d->snoop_by = NULL;
  992. }
  993.     }
  995.     if ( ( ch = dclose->character ) != NULL )
  996.     {
  997. sprintf( log_buf, "Closing link to %s.", ch->name );
  998. log_string( log_buf );
  999. if ( dclose->connected == CON_PLAYING )
  1000. {
  1001.     act( "$n has lost $s link.", ch, NULL, NULL, TO_ROOM );
  1002.     ch->desc = NULL;
  1003. }
  1004. else
  1005. {
  1006.     free_char( dclose->character );
  1007. }
  1008.     }
  1010.     if ( d_next == dclose )
  1011. d_next = d_next->next;   
  1013.     if ( dclose == descriptor_list )
  1014.     {
  1015. descriptor_list = descriptor_list->next;
  1016.     }
  1017.     else
  1018.     {
  1019. DESCRIPTOR_DATA *d;
  1021. for ( d = descriptor_list; d && d->next != dclose; d = d->next )
  1022.     ;
  1023. if ( d != NULL )
  1024.     d->next = dclose->next;
  1025. else
  1026.     bug( "Close_socket: dclose not found.", 0 );
  1027.     }
  1029.     close( dclose->descriptor );
  1030.     free_string( dclose->host );
  1031.     dclose->next = descriptor_free;
  1032.     descriptor_free = dclose;
  1033. #if defined(MSDOS) || defined(macintosh)
  1034.     exit(1);
  1035. #endif
  1036.     return;
  1037. }
  1041. bool read_from_descriptor( DESCRIPTOR_DATA *d )
  1042. {
  1043.     int iStart;
  1045.     /* Hold horses if pending command already. */
  1046.     if ( d->incomm[0] != '' )
  1047. return TRUE;
  1049.     /* Check for overflow. */
  1050.     iStart = strlen(d->inbuf);
  1051.     if ( iStart >= sizeof(d->inbuf) - 10 )
  1052.     {
  1053. sprintf( log_buf, "%s input overflow!", d->host );
  1054. log_string( log_buf );
  1055. write_to_descriptor( d->descriptor,
  1056.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  1057. return FALSE;
  1058.     }
  1060.     /* Snarf input. */
  1061. #if defined(macintosh)
  1062.     for ( ; ; )
  1063.     {
  1064. int c;
  1065. c = getc( stdin );
  1066. if ( c == '' || c == EOF )
  1067.     break;
  1068. putc( c, stdout );
  1069. if ( c == 'r' )
  1070.     putc( 'n', stdout );
  1071. d->inbuf[iStart++] = c;
  1072. if ( iStart > sizeof(d->inbuf) - 10 )
  1073.     break;
  1074.     }
  1075. #endif
  1077. #if defined(MSDOS) || defined(unix)
  1078.     for ( ; ; )
  1079.     {
  1080. int nRead;
  1082. nRead = read( d->descriptor, d->inbuf + iStart,
  1083.     sizeof(d->inbuf) - 10 - iStart );
  1084. if ( nRead > 0 )
  1085. {
  1086.     iStart += nRead;
  1087.     if ( d->inbuf[iStart-1] == 'n' || d->inbuf[iStart-1] == 'r' )
  1088. break;
  1089. }
  1090. else if ( nRead == 0 )
  1091. {
  1092.     log_string( "EOF encountered on read." );
  1093.     return FALSE;
  1094. }
  1095. else if ( errno == EWOULDBLOCK )
  1096.     break;
  1097. else
  1098. {
  1099.     perror( "Read_from_descriptor" );
  1100.     return FALSE;
  1101. }
  1102.     }
  1103. #endif
  1105.     d->inbuf[iStart] = '';
  1106.     return TRUE;
  1107. }
  1111. /*
  1112.  * Transfer one line from input buffer to input line.
  1113.  */
  1114. void read_from_buffer( DESCRIPTOR_DATA *d )
  1115. {
  1116.     int i, j, k;
  1118.     /*
  1119.      * Hold horses if pending command already.
  1120.      */
  1121.     if ( d->incomm[0] != '' )
  1122. return;
  1124.     /*
  1125.      * Look for at least one new line.
  1126.      */
  1127.     for ( i = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  1128.     {
  1129. if ( d->inbuf[i] == '' )
  1130.     return;
  1131.     }
  1133.     /*
  1134.      * Canonical input processing.
  1135.      */
  1136.     for ( i = 0, k = 0; d->inbuf[i] != 'n' && d->inbuf[i] != 'r'; i++ )
  1137.     {
  1138. if ( k >= MAX_INPUT_LENGTH - 2 )
  1139. {
  1140.     write_to_descriptor( d->descriptor, "Line too long.nr", 0 );
  1142.     /* skip the rest of the line */
  1143.     for ( ; d->inbuf[i] != ''; i++ )
  1144.     {
  1145. if ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  1146.     break;
  1147.     }
  1148.     d->inbuf[i]   = 'n';
  1149.     d->inbuf[i+1] = '';
  1150.     break;
  1151. }
  1153. if ( d->inbuf[i] == 'b' && k > 0 )
  1154.     --k;
  1155. else if ( isascii(d->inbuf[i]) && isprint(d->inbuf[i]) )
  1156.     d->incomm[k++] = d->inbuf[i];
  1157.     }
  1159.     /*
  1160.      * Finish off the line.
  1161.      */
  1162.     if ( k == 0 )
  1163. d->incomm[k++] = ' ';
  1164.     d->incomm[k] = '';
  1166.     /*
  1167.      * Deal with bozos with #repeat 1000 ...
  1168.      */
  1169.     if ( k > 1 || d->incomm[0] == '!' )
  1170.     {
  1171.      if ( d->incomm[0] != '!' && strcmp( d->incomm, d->inlast ) )
  1172. {
  1173.     d->repeat = 0;
  1174. }
  1175. else
  1176. {
  1177.     if ( ++d->repeat >= 20 )
  1178.     {
  1179. sprintf( log_buf, "%s input spamming!", d->host );
  1180. log_string( log_buf );
  1181. write_to_descriptor( d->descriptor,
  1182.     "nr*** PUT A LID ON IT!!! ***nr", 0 );
  1183. strcpy( d->incomm, "quit" );
  1184.     }
  1185. }
  1186.     }
  1188.     /*
  1189.      * Do '!' substitution.
  1190.      */
  1191.     if ( d->incomm[0] == '!' )
  1192. strcpy( d->incomm, d->inlast );
  1193.     else
  1194. strcpy( d->inlast, d->incomm );
  1196.     /*
  1197.      * Shift the input buffer.
  1198.      */
  1199.     while ( d->inbuf[i] == 'n' || d->inbuf[i] == 'r' )
  1200. i++;
  1201.     for ( j = 0; ( d->inbuf[j] = d->inbuf[i+j] ) != ''; j++ )
  1202. ;
  1203.     return;
  1204. }
  1208. /*
  1209.  * Low level output function.
  1210.  */
  1211. bool process_output( DESCRIPTOR_DATA *d, bool fPrompt )
  1212. {
  1213.     extern bool merc_down;
  1215.     /*
  1216.      * Bust a prompt.
  1217.      */
  1218.     if ( fPrompt && !merc_down && d->connected == CON_PLAYING )
  1219.         if ( d->showstr_point )
  1220.     write_to_buffer( d,
  1221.   "[Please type (c)ontinue, (r)efresh, (b)ack, (h)elp, (q)uit, or RETURN]:  ",
  1222.     0 );
  1223. else
  1224. {
  1225.     CHAR_DATA *ch;
  1227.     ch = d->original ? d->original : d->character;
  1228.     if ( IS_SET(ch->act, PLR_BLANK) )
  1229.         write_to_buffer( d, "nr", 2 );
  1231.     if ( IS_SET(ch->act, PLR_PROMPT) )
  1232.         bust_a_prompt( ch );
  1234.     if ( IS_SET(ch->act, PLR_TELNET_GA) )
  1235.         write_to_buffer( d, go_ahead_str, 0 );
  1236. }
  1238.     /*
  1239.      * Short-circuit if nothing to write.
  1240.      */
  1241.     if ( d->outtop == 0 )
  1242. return TRUE;
  1244.     /*
  1245.      * Snoop-o-rama.
  1246.      */
  1247.     if ( d->snoop_by != NULL )
  1248.     {
  1249. write_to_buffer( d->snoop_by, "% ", 2 );
  1250. write_to_buffer( d->snoop_by, d->outbuf, d->outtop );
  1251.     }
  1253.     /*
  1254.      * OS-dependent output.
  1255.      */
  1256.     if ( !write_to_descriptor( d->descriptor, d->outbuf, d->outtop ) )
  1257.     {
  1258. d->outtop = 0;
  1259. return FALSE;
  1260.     }
  1261.     else
  1262.     {
  1263. d->outtop = 0;
  1264. return TRUE;
  1265.     }
  1266. }
  1268. /*
  1269.  * Bust a prompt (player settable prompt)
  1270.  * coded by Morgenes for Aldara Mud
  1271.  */
  1272. void bust_a_prompt( CHAR_DATA *ch )
  1273. {
  1274.    char buf[MAX_STRING_LENGTH];
  1275.    char buf2[MAX_STRING_LENGTH];
  1276.    const char *str;
  1277.    const char *i;
  1278.    char *point;
  1280.    if( ch->prompt == NULL || ch->prompt[0] == '' )
  1281.    {
  1282.       send_to_char( "nrnr", ch );
  1283.       return;
  1284.    }
  1286.    point = buf;
  1287.    str = ch->prompt;
  1288.    while( *str != '' )
  1289.    {
  1290.       if( *str != '%' )
  1291.       {
  1292.          *point++ = *str++;
  1293.          continue;
  1294.       }
  1295.       ++str;
  1296.       switch( *str )
  1297.       {
  1298.          default :
  1299.             i = " "; break;
  1300.          case 'h' :
  1301.             sprintf( buf2, "%d", ch->hit );
  1302.             i = buf2; break;
  1303.          case 'H' :
  1304.             sprintf( buf2, "%d", ch->max_hit );
  1305.             i = buf2; break;
  1306.          case 'm' :
  1307.             sprintf( buf2, "%d", ch->mana );
  1308.             i = buf2; break;
  1309.          case 'M' :
  1310.             sprintf( buf2, "%d", ch->max_mana );
  1311.             i = buf2; break;
  1312.          case 'v' :
  1313.             sprintf( buf2, "%d", ch->move );
  1314.             i = buf2; break;
  1315.          case 'V' :
  1316.             sprintf( buf2, "%d", ch->max_move );
  1317.             i = buf2; break;
  1318.          case 'x' :
  1319.             sprintf( buf2, "%d", ch->exp );
  1320.             i = buf2; break;
  1321.          case 'g' :
  1322.             sprintf( buf2, "%d", ch->gold);
  1323.             i = buf2; break;
  1324.          case 'a' :
  1325.             if( ch->level < 5 )
  1326.                sprintf( buf2, "%d", ch->alignment );
  1327.             else
  1328.                sprintf( buf2, "%s", IS_GOOD(ch) ? "good" : IS_EVIL(ch) ? 
  1329.                 "evil" : "neutral" );
  1330.             i = buf2; break;
  1331.          case 'r' :
  1332.             if( ch->in_room != NULL )
  1333.                sprintf( buf2, "%s", ch->in_room->name );
  1334.             else
  1335.                sprintf( buf2, " " );
  1336.             i = buf2; break;
  1337.          case 'R' :
  1338.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1339.                sprintf( buf2, "%d", ch->in_room->vnum );
  1340.             else
  1341.                sprintf( buf2, " " );
  1342.             i = buf2; break;
  1343.          case 'z' :
  1344.             if( IS_IMMORTAL( ch ) && ch->in_room != NULL )
  1345.                sprintf( buf2, "%s", ch->in_room->area->name );
  1346.             else
  1347.                sprintf( buf2, " " );
  1348.             i = buf2; break;
  1349.          case '%' :
  1350.             sprintf( buf2, "%%" );
  1351.             i = buf2; break;
  1352.       } 
  1353.       ++str;
  1354.       while( (*point = *i) != '' )
  1355.          ++point, ++i;      
  1356.    }
  1357.    write_to_buffer( ch->desc, buf, point - buf );
  1358.    return;
  1359. }
  1361. /*
  1362.  * Append onto an output buffer.
  1363.  */
  1364. void write_to_buffer( DESCRIPTOR_DATA *d, const char *txt, int length )
  1365. {
  1366.     /*
  1367.      * Find length in case caller didn't.
  1368.      */
  1369.     if ( length <= 0 )
  1370. length = strlen(txt);
  1372.     /*
  1373.      * Initial nr if needed.
  1374.      */
  1375.     if ( d->outtop == 0 && !d->fcommand )
  1376.     {
  1377. d->outbuf[0] = 'n';
  1378. d->outbuf[1] = 'r';
  1379. d->outtop = 2;
  1380.     }
  1382.     /*
  1383.      * Expand the buffer as needed.
  1384.      */
  1385.     while ( d->outtop + length >= d->outsize )
  1386.     {
  1387. char *outbuf;
  1389. outbuf      = alloc_mem( 2 * d->outsize );
  1390. strncpy( outbuf, d->outbuf, d->outtop );
  1391. free_mem( d->outbuf, d->outsize );
  1392. d->outbuf   = outbuf;
  1393. d->outsize *= 2;
  1394.     }
  1396.     /*
  1397.      * Copy.
  1398.      */
  1399.     strcpy( d->outbuf + d->outtop, txt );
  1400.     d->outtop += length;
  1401.     return;
  1402. }
  1406. /*
  1407.  * Lowest level output function.
  1408.  * Write a block of text to the file descriptor.
  1409.  * If this gives errors on very long blocks (like 'ofind all'),
  1410.  *   try lowering the max block size.
  1411.  */
  1412. bool write_to_descriptor( int desc, char *txt, int length )
  1413. {
  1414.     int iStart;
  1415.     int nWrite;
  1416.     int nBlock;
  1418. #if defined(macintosh) || defined(MSDOS)
  1419.     if ( desc == 0 )
  1420. desc = 1;
  1421. #endif
  1423.     if ( length <= 0 )
  1424. length = strlen(txt);
  1426.     for ( iStart = 0; iStart < length; iStart += nWrite )
  1427.     {
  1428. nBlock = UMIN( length - iStart, 4096 );
  1429. if ( ( nWrite = write( desc, txt + iStart, nBlock ) ) < 0 )
  1430.     { perror( "Write_to_descriptor" ); return FALSE; }
  1431.     } 
  1433.     return TRUE;
  1434. }
  1438. /*
  1439.  * Deal with sockets that haven't logged in yet.
  1440.  */
  1441. void nanny( DESCRIPTOR_DATA *d, char *argument )
  1442. {
  1443.     char buf[MAX_STRING_LENGTH];
  1444.     CHAR_DATA *ch;
  1445.     NOTE_DATA *pnote;
  1446.     char *pwdnew;
  1447.     char *p;
  1448.     int iClass;
  1449.     int lines;
  1450.     int notes;
  1451.     bool fOld;
  1453.     while ( isspace(*argument) )
  1454. argument++;
  1456.     ch = d->character;
  1458.     switch ( d->connected )
  1459.     {
  1461.     default:
  1462. bug( "Nanny: bad d->connected %d.", d->connected );
  1463. close_socket( d );
  1464. return;
  1466.     case CON_GET_NAME:
  1467. if ( argument[0] == '' )
  1468. {
  1469.     close_socket( d );
  1470.     return;
  1471. }
  1473. argument[0] = UPPER(argument[0]);
  1474. if ( !check_parse_name( argument ) )
  1475. {
  1476.     write_to_buffer( d, "Illegal name, try another.nrName: ", 0 );
  1477.     return;
  1478. }
  1480. fOld = load_char_obj( d, argument );
  1481. ch   = d->character;
  1483. if ( IS_SET(ch->act, PLR_DENY) )
  1484. {
  1485.     sprintf( log_buf, "Denying access to %s@%s.", argument, d->host );
  1486.     log_string( log_buf );
  1487.     write_to_buffer( d, "You are denied access.nr", 0 );
  1488.     close_socket( d );
  1489.     return;
  1490. }
  1492. if ( check_reconnect( d, argument, FALSE ) )
  1493. {
  1494.     fOld = TRUE;
  1495. }
  1496. else
  1497. {
  1498.     if ( wizlock && !IS_HERO( ch ) && !ch->wizbit )
  1499.     {
  1500. write_to_buffer( d, "The game is wizlocked.nr", 0 );
  1501. close_socket( d );
  1502. return;
  1503.     }
  1504. }
  1506. if ( fOld )
  1507. {
  1508.     /* Old player */
  1509.     write_to_buffer( d, "Password: ", 0 );
  1510.     write_to_buffer( d, echo_off_str, 0 );
  1511.     d->connected = CON_GET_OLD_PASSWORD;
  1512.     return;
  1513. }
  1514. else
  1515. {
  1516.     /* New player */
  1517.     /* New characters with same name fix by Salem's Lot */
  1518.     if ( check_playing( d, ch->name ) )
  1519.         return;
  1520.     sprintf( buf, "Did I get that right, %s (Y/N)? ", argument );
  1521.     write_to_buffer( d, buf, 0 );
  1522.     d->connected = CON_CONFIRM_NEW_NAME;
  1523.     return;
  1524. }
  1525. break;
  1527.     case CON_GET_OLD_PASSWORD:
  1528. #if defined(unix)
  1529. write_to_buffer( d, "nr", 2 );
  1530. #endif
  1532. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1533. {
  1534.     write_to_buffer( d, "Wrong password.nr", 0 );
  1535.     close_socket( d );
  1536.     return;
  1537. }
  1539. write_to_buffer( d, echo_on_str, 0 );
  1541. if ( check_reconnect( d, ch->name, TRUE ) )
  1542.     return;
  1544. if ( check_playing( d, ch->name ) )
  1545.     return;
  1546.     
  1547. sprintf( log_buf, "%s@%s has connected.", ch->name, d->host );
  1548. log_string( log_buf );
  1549. lines = ch->pcdata->pagelen;
  1550. ch->pcdata->pagelen = 20;
  1551. if ( IS_HERO(ch) )
  1552.     do_help( ch, "imotd" );
  1553. do_help( ch, "motd" );
  1554. ch->pcdata->pagelen = lines;
  1555. d->connected = CON_READ_MOTD;
  1556. break;
  1558.     case CON_CONFIRM_NEW_NAME:
  1559. switch ( *argument )
  1560. {
  1561. case 'y': case 'Y':
  1562.     sprintf( buf, "New character.nrGive me a password for %s: %s",
  1563. ch->name, echo_off_str );
  1564.     write_to_buffer( d, buf, 0 );
  1565.     d->connected = CON_GET_NEW_PASSWORD;
  1566.     break;
  1568. case 'n': case 'N':
  1569.     write_to_buffer( d, "Ok, what IS it, then? ", 0 );
  1570.     free_char( d->character );
  1571.     d->character = NULL;
  1572.     d->connected = CON_GET_NAME;
  1573.     break;
  1575. default:
  1576.     write_to_buffer( d, "Please type Yes or No? ", 0 );
  1577.     break;
  1578. }
  1579. break;
  1581.     case CON_GET_NEW_PASSWORD:
  1582. #if defined(unix)
  1583. write_to_buffer( d, "nr", 2 );
  1584. #endif
  1586. if ( strlen(argument) < 5 )
  1587. {
  1588.     write_to_buffer( d,
  1589. "Password must be at least five characters long.nrPassword: ",
  1590. 0 );
  1591.     return;
  1592. }
  1594. pwdnew = crypt( argument, ch->name );
  1595. for ( p = pwdnew; *p != ''; p++ )
  1596. {
  1597.     if ( *p == '~' )
  1598.     {
  1599. write_to_buffer( d,
  1600.     "New password not acceptable, try again.nrPassword: ",
  1601.     0 );
  1602. return;
  1603.     }
  1604. }
  1606. free_string( ch->pcdata->pwd );
  1607. ch->pcdata->pwd = str_dup( pwdnew );
  1608. write_to_buffer( d, "Please retype password: ", 0 );
  1609. d->connected = CON_CONFIRM_NEW_PASSWORD;
  1610. break;
  1612.     case CON_CONFIRM_NEW_PASSWORD:
  1613. #if defined(unix)
  1614. write_to_buffer( d, "nr", 2 );
  1615. #endif
  1617. if ( strcmp( crypt( argument, ch->pcdata->pwd ), ch->pcdata->pwd ) )
  1618. {
  1619.     write_to_buffer( d, "Passwords don't match.nrRetype password: ",
  1620. 0 );
  1621.     d->connected = CON_GET_NEW_PASSWORD;
  1622.     return;
  1623. }
  1625. write_to_buffer( d, echo_on_str, 0 );
  1626. write_to_buffer( d, "What is your sex (M/F/N)? ", 0 );
  1627. d->connected = CON_GET_NEW_SEX;
  1628. break;
  1630.     case CON_GET_NEW_SEX:
  1631. switch ( argument[0] )
  1632. {
  1633. case 'm': case 'M': ch->sex = SEX_MALE;    break;
  1634. case 'f': case 'F': ch->sex = SEX_FEMALE;  break;
  1635. case 'n': case 'N': ch->sex = SEX_NEUTRAL; break;
  1636. default:
  1637.     write_to_buffer( d, "That's not a sex.nrWhat IS your sex? ", 0 );
  1638.     return;
  1639. }
  1641. strcpy( buf, "Select a class [" );
  1642. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1643. {
  1644.     if ( iClass > 0 )
  1645. strcat( buf, " " );
  1646.     strcat( buf, class_table[iClass].who_name );
  1647. }
  1648. strcat( buf, "]: " );
  1649. write_to_buffer( d, buf, 0 );
  1650. d->connected = CON_GET_NEW_CLASS;
  1651. break;
  1653.     case CON_GET_NEW_CLASS:
  1654. for ( iClass = 0; iClass < MAX_CLASS; iClass++ )
  1655. {
  1656.     if ( !str_cmp( argument, class_table[iClass].who_name ) )
  1657.     {
  1658. ch->class = iClass;
  1659. break;
  1660.     }
  1661. }
  1663. if ( iClass == MAX_CLASS )
  1664. {
  1665.     write_to_buffer( d,
  1666. "That's not a class.nrWhat IS your class? ", 0 );
  1667.     return;
  1668. }
  1670. sprintf( log_buf, "%s@%s new player.", ch->name, d->host );
  1671. log_string( log_buf );
  1672. write_to_buffer( d, "nr", 2 );
  1673. ch->pcdata->pagelen = 20;
  1674. ch->prompt = "<%hhp %mm %vmv> ";
  1675. do_help( ch, "motd" );
  1676. d->connected = CON_READ_MOTD;
  1677. break;
  1679.     case CON_READ_MOTD:
  1680. ch->next = char_list;
  1681. char_list = ch;
  1682. d->connected = CON_PLAYING;
  1684. send_to_char(
  1685.     "nrWelcome to Merc Diku Mud.  May your visit here be ... Mercenary.nr",
  1686.     ch );
  1688. if ( ch->level == 0 )
  1689. {
  1690.     OBJ_DATA *obj;
  1692.     switch ( class_table[ch->class].attr_prime )
  1693.     {
  1694.     case APPLY_STR: ch->pcdata->perm_str = 16; break;
  1695.     case APPLY_INT: ch->pcdata->perm_int = 16; break;
  1696.     case APPLY_WIS: ch->pcdata->perm_wis = 16; break;
  1697.     case APPLY_DEX: ch->pcdata->perm_dex = 16; break;
  1698.     case APPLY_CON: ch->pcdata->perm_con = 16; break;
  1699.     }
  1701.     ch->level = 1;
  1702.     ch->exp = 1000;
  1703.     ch->hit = ch->max_hit;
  1704.     ch->mana = ch->max_mana;
  1705.     ch->move = ch->max_move;
  1706.     sprintf( buf, "the %s",
  1707. title_table [ch->class] [ch->level]
  1708. [ch->sex == SEX_FEMALE ? 1 : 0] );
  1709.     set_title( ch, buf );
  1711.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_BANNER), 0 );
  1712.     obj_to_char( obj, ch );
  1713.     equip_char( ch, obj, WEAR_LIGHT );
  1715.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_VEST), 0 );
  1716.     obj_to_char( obj, ch );
  1717.     equip_char( ch, obj, WEAR_BODY );
  1719.     obj = create_object( get_obj_index(OBJ_VNUM_SCHOOL_SHIELD), 0 );
  1720.     obj_to_char( obj, ch );
  1721.     equip_char( ch, obj, WEAR_SHIELD );
  1723.     obj = create_object( get_obj_index(class_table[ch->class].weapon),
  1724. 0 );
  1725.     obj_to_char( obj, ch );
  1726.     equip_char( ch, obj, WEAR_WIELD );
  1728.     char_to_room( ch, get_room_index( ROOM_VNUM_SCHOOL ) );
  1729. }
  1730. else if ( ch->in_room != NULL )
  1731. {
  1732.     char_to_room( ch, ch->in_room );
  1733. }
  1734. else if ( IS_IMMORTAL(ch) )
  1735. {
  1736.     char_to_room( ch, get_room_index( ROOM_VNUM_CHAT ) );
  1737. }
  1738. else
  1739. {
  1740.     char_to_room( ch, get_room_index( ROOM_VNUM_TEMPLE ) );
  1741. }
  1743. act( "$n has entered the game.", ch, NULL, NULL, TO_ROOM );
  1744. do_look( ch, "auto" );
  1745. /* check for new notes */
  1746. notes = 0;
  1748. for ( pnote = note_list; pnote != NULL; pnote = pnote->next )
  1749.     if ( is_note_to( ch, pnote ) && str_cmp( ch->name, pnote->sender )
  1750. && pnote->date_stamp > ch->last_note )
  1751.         notes++;
  1753. if ( notes == 1 )
  1754.     send_to_char( "nrYou have one new note waiting.nr", ch );
  1755. else
  1756.     if ( notes > 1 )
  1757.     {
  1758. sprintf( buf, "nrYou have %d new notes waiting.nr",
  1759. notes );
  1760. send_to_char( buf, ch );
  1761.     }
  1763. break;
  1764.     }
  1766.     return;
  1767. }
  1771. /*
  1772.  * Parse a name for acceptability.
  1773.  */
  1774. bool check_parse_name( char *name )
  1775. {
  1776.     /*
  1777.      * Reserved words.
  1778.      */
  1779.     if ( is_name( name, "all auto immortal self someone" ) )
  1780. return FALSE;
  1782.     /*
  1783.      * Length restrictions.
  1784.      */
  1785.     if ( strlen(name) <  3 )
  1786. return FALSE;
  1788. #if defined(MSDOS)
  1789.     if ( strlen(name) >  8 )
  1790. return FALSE;
  1791. #endif
  1793. #if defined(macintosh) || defined(unix)
  1794.     if ( strlen(name) > 12 )
  1795. return FALSE;
  1796. #endif
  1798.     /*
  1799.      * Alphanumerics only.
  1800.      * Lock out IllIll twits.
  1801.      */
  1802.     {
  1803. char *pc;
  1804. bool fIll;
  1806. fIll = TRUE;
  1807. for ( pc = name; *pc != ''; pc++ )
  1808. {
  1809.     if ( !isalpha(*pc) )
  1810. return FALSE;
  1811.     if ( LOWER(*pc) != 'i' && LOWER(*pc) != 'l' )
  1812. fIll = FALSE;
  1813. }
  1815. if ( fIll )
  1816.     return FALSE;
  1817.     }
  1819.     /*
  1820.      * Prevent players from naming themselves after mobs.
  1821.      */
  1822.     {
  1823. extern MOB_INDEX_DATA *mob_index_hash[MAX_KEY_HASH];
  1824. MOB_INDEX_DATA *pMobIndex;
  1825. int iHash;
  1827. for ( iHash = 0; iHash < MAX_KEY_HASH; iHash++ )
  1828. {
  1829.     for ( pMobIndex  = mob_index_hash[iHash];
  1830.   pMobIndex != NULL;
  1831.   pMobIndex  = pMobIndex->next )
  1832.     {
  1833. if ( is_name( name, pMobIndex->player_name ) )
  1834.     return FALSE;
  1835.     }
  1836. }
  1837.     }
  1839.     return TRUE;
  1840. }
  1844. /*
  1845.  * Look for link-dead player to reconnect.
  1846.  */
  1847. bool check_reconnect( DESCRIPTOR_DATA *d, char *name, bool fConn )
  1848. {
  1849.     CHAR_DATA *ch;
  1850.     OBJ_DATA *obj;
  1852.     for ( ch = char_list; ch != NULL; ch = ch->next )
  1853.     {
  1854. if ( !IS_NPC(ch)
  1855. && ( !fConn || ch->desc == NULL )
  1856. &&   !str_cmp( d->character->name, ch->name ) )
  1857. {
  1858.     if ( fConn == FALSE )
  1859.     {
  1860. free_string( d->character->pcdata->pwd );
  1861. d->character->pcdata->pwd = str_dup( ch->pcdata->pwd );
  1862.     }
  1863.     else
  1864.     {
  1865. free_char( d->character );
  1866. d->character = ch;
  1867. ch->desc  = d;
  1868. ch->timer  = 0;
  1869. send_to_char( "Reconnecting.nr", ch );
  1870. act( "$n has reconnected.", ch, NULL, NULL, TO_ROOM );
  1871. sprintf( log_buf, "%s@%s reconnected.", ch->name, d->host );
  1872. log_string( log_buf );
  1873. d->connected = CON_PLAYING;
  1875. /*
  1876.  * Contributed by Gene Choi
  1877.  */
  1878. if ( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) != NULL
  1879.     && obj->item_type == ITEM_LIGHT
  1880.     && obj->value[2] != 0
  1881.     && ch->in_room != NULL )
  1882.     ++ch->in_room->light;
  1883.     }
  1884.     return TRUE;
  1885. }
  1886.     }
  1888.     return FALSE;
  1889. }
  1893. /*
  1894.  * Check if already playing.
  1895.  */
  1896. bool check_playing( DESCRIPTOR_DATA *d, char *name )
  1897. {
  1898.     DESCRIPTOR_DATA *dold;
  1900.     for ( dold = descriptor_list; dold; dold = dold->next )
  1901.     {
  1902. if ( dold != d
  1903. &&   dold->character != NULL
  1904. &&   dold->connected != CON_GET_NAME
  1905. &&   dold->connected != CON_GET_OLD_PASSWORD
  1906. &&   !str_cmp( name, dold->original
  1907.          ? dold->original->name : dold->character->name ) )
  1908. {
  1909.     write_to_buffer( d, "Already playing.nrName: ", 0 );
  1910.     d->connected = CON_GET_NAME;
  1911.     if ( d->character != NULL )
  1912.     {
  1913. free_char( d->character );
  1914. d->character = NULL;
  1915.     }
  1916.     return TRUE;
  1917. }
  1918.     }
  1920.     return FALSE;
  1921. }
  1925. void stop_idling( CHAR_DATA *ch )
  1926. {
  1927.     if ( ch == NULL
  1928.     ||   ch->desc == NULL
  1929.     ||   ch->desc->connected != CON_PLAYING
  1930.     ||   ch->was_in_room == NULL 
  1931.     ||   ch->in_room != get_room_index( ROOM_VNUM_LIMBO ) )
  1932. return;
  1934.     ch->timer = 0;
  1935.     char_from_room( ch );
  1936.     char_to_room( ch, ch->was_in_room );
  1937.     ch->was_in_room = NULL;
  1938.     act( "$n has returned from the void.", ch, NULL, NULL, TO_ROOM );
  1939.     return;
  1940. }
  1943. /*
  1944.  * Write to one char.
  1945.  */
  1946. void send_to_char( const char *txt, CHAR_DATA *ch )
  1947. {
  1948.     if ( txt == NULL || ch->desc == NULL )
  1949.         return;
  1950.     ch->desc->showstr_head = alloc_mem( strlen( txt ) + 1 );
  1951.     strcpy( ch->desc->showstr_head, txt );
  1952.     ch->desc->showstr_point = ch->desc->showstr_head;
  1953.     show_string( ch->desc, "" );
  1955. }
  1957. /* The heart of the pager.  Thanks to N'Atas-Ha, ThePrincedom
  1958.    for porting this SillyMud code for MERC 2.0 and laying down the groundwork.
  1959.    Thanks to Blackstar, hopper.cs.uiowa.edu 4000 for which
  1960.    the improvements to the pager was modeled from.  - Kahn */
  1962. void show_string(struct descriptor_data *d, char *input)
  1963. {
  1964.   char buffer[ MAX_STRING_LENGTH ];
  1965.   char buf[ MAX_INPUT_LENGTH ];
  1966.   register char *scan, *chk;
  1967.   int lines = 0, toggle=1;
  1969.   one_argument(input, buf);
  1971.   switch( UPPER( buf[0] ) )
  1972.   {
  1973.   case '':
  1974.   case 'C': /* show next page of text */
  1975.     lines = 0;
  1976.     break;
  1978.   case 'R': /* refresh current page of text */
  1979.     lines = - 1 - (d->character->pcdata->pagelen);
  1980.     break;
  1982.   case 'B': /* scroll back a page of text */
  1983.     lines = -(2*d->character->pcdata->pagelen);
  1984.     break;
  1986.   case 'H': /* Show some help */
  1987.     write_to_buffer( d,
  1988.         "C, or Return = continue, R = redraw this page,nr", 0 );
  1989.     write_to_buffer( d,
  1990.         "B = back one page, H = this help, Q or other keys = exit.nrnr",
  1991.     0 );
  1992.     lines = - 1 - (d->character->pcdata->pagelen);
  1993.     break;
  1995.   default: /*otherwise, stop the text viewing */
  1996.     if ( d->showstr_head )
  1997.     {
  1998.       free_string( d->showstr_head );
  1999.       d->showstr_head  = 0;
  2000.     }
  2001.     d->showstr_point = 0;
  2002.     return;
  2004.   }
  2006.   /* do any backing up necessary */
  2007.   if (lines < 0)
  2008.   {
  2009.     for ( scan = d->showstr_point; scan > d->showstr_head; scan-- )
  2010.          if ( ( *scan == 'n' ) || ( *scan == 'r' ) )
  2011.  {
  2012.      toggle = -toggle;
  2013.      if ( toggle < 0 )
  2014.          if ( !( ++lines ) )
  2015.      break;
  2016.  }
  2017.     d->showstr_point = scan;
  2018.   }
  2020.   /* show a chunk */
  2021.   lines  = 0;
  2022.   toggle = 1;
  2023.   for ( scan = buffer; ; scan++, d->showstr_point++ )
  2024.        if ( ( ( *scan = *d->showstr_point ) == 'n' || *scan == 'r' )
  2025.    && ( toggle = -toggle ) < 0 )
  2026.    lines++;
  2027.        else
  2028.    if ( !*scan || ( d->character && !IS_NPC( d->character )
  2029.   && lines >= d->character->pcdata->pagelen) )
  2030.    {
  2032.        *scan = '';
  2033.        write_to_buffer( d, buffer, strlen( buffer ) );
  2035.      /* See if this is the end (or near the end) of the string */
  2036.        for ( chk = d->showstr_point; isspace( *chk ); chk++ );
  2037.        if ( !*chk )
  2038.        {
  2039.    if ( d->showstr_head )
  2040.    {
  2041.       free_string( d->showstr_head );
  2042.       d->showstr_head  = 0;
  2043.    }
  2044.    d->showstr_point = 0;
  2045.        }
  2046.        return;
  2047.    }
  2049.   return;
  2050. }
  2052. /*
  2053.  * The primary output interface for formatted output.
  2054.  */
  2055. void act( const char *format, CHAR_DATA *ch, const void *arg1,
  2056.  const void *arg2, int type )
  2057. {
  2058.     static char * const he_she [] = { "it",  "he",  "she" };
  2059.     static char * const him_her [] = { "it",  "him", "her" };
  2060.     static char * const his_her [] = { "its", "his", "her" };
  2062.     char buf[MAX_STRING_LENGTH];
  2063.     char fname[MAX_INPUT_LENGTH];
  2064.     CHAR_DATA *to;
  2065.     CHAR_DATA *vch = (CHAR_DATA *) arg2;
  2066.     OBJ_DATA *obj1 = (OBJ_DATA  *) arg1;
  2067.     OBJ_DATA *obj2 = (OBJ_DATA  *) arg2;
  2068.     const char *str;
  2069.     const char *i;
  2070.     char *point;
  2072.     /*
  2073.      * Discard null and zero-length messages.
  2074.      */
  2075.     if ( format == NULL || format[0] == '' )
  2076. return;
  2078.     to = ch->in_room->people;
  2079.     if ( type == TO_VICT )
  2080.     {
  2081. if ( vch == NULL )
  2082. {
  2083.     bug( "Act: null vch with TO_VICT.", 0 );
  2084.     return;
  2085. }
  2086. to = vch->in_room->people;
  2087.     }
  2088.     
  2089.     for ( ; to != NULL; to = to->next_in_room )
  2090.     {
  2091. if ( ( to->desc == NULL 
  2092.     && ( IS_NPC( to ) && !(to->pIndexData->progtypes & ACT_PROG ) ) )
  2093.     || !IS_AWAKE(to) )
  2094.     continue;
  2096. if ( type == TO_CHAR && to != ch )
  2097.     continue;
  2098. if ( type == TO_VICT && ( to != vch || to == ch ) )
  2099.     continue;
  2100. if ( type == TO_ROOM && to == ch )
  2101.     continue;
  2102. if ( type == TO_NOTVICT && (to == ch || to == vch) )
  2103.     continue;
  2105. point = buf;
  2106. str = format;
  2107. while ( *str != '' )
  2108. {
  2109.     if ( *str != '$' )
  2110.     {
  2111. *point++ = *str++;
  2112. continue;
  2113.     }
  2114.     ++str;
  2116.     if ( arg2 == NULL && *str >= 'A' && *str <= 'Z' )
  2117.     {
  2118. bug( "Act: missing arg2 for code %d.", *str );
  2119. i = " <@@@> ";
  2120.     }
  2121.     else
  2122.     {
  2123. switch ( *str )
  2124. {
  2125. default:  bug( "Act: bad code %d.", *str );
  2126.   i = " <@@@> "; break;
  2127. /* Thx alex for 't' idea */
  2128. case 't': i = (char *) arg1; break;
  2129. case 'T': i = (char *) arg2;           break;
  2130. case 'n': i = PERS( ch,  to  ); break;
  2131. case 'N': i = PERS( vch, to  ); break;
  2132. case 'e': i = he_she  [URANGE(0, ch  ->sex, 2)]; break;
  2133. case 'E': i = he_she  [URANGE(0, vch ->sex, 2)]; break;
  2134. case 'm': i = him_her [URANGE(0, ch  ->sex, 2)]; break;
  2135. case 'M': i = him_her [URANGE(0, vch ->sex, 2)]; break;
  2136. case 's': i = his_her [URANGE(0, ch  ->sex, 2)]; break;
  2137. case 'S': i = his_her [URANGE(0, vch ->sex, 2)]; break;
  2139. case 'p':
  2140.     i = can_see_obj( to, obj1 )
  2141.     ? obj1->short_descr
  2142.     : "something";
  2143.     break;
  2145. case 'P':
  2146.     i = can_see_obj( to, obj2 )
  2147.     ? obj2->short_descr
  2148.     : "something";
  2149.     break;
  2151. case 'd':
  2152.     if ( arg2 == NULL || ((char *) arg2)[0] == '' )
  2153.     {
  2154. i = "door";
  2155.     }
  2156.     else
  2157.     {
  2158. one_argument( (char *) arg2, fname );
  2159. i = fname;
  2160.     }
  2161.     break;
  2162. }
  2163.     }
  2165.     ++str;
  2166.     while ( ( *point = *i ) != '' )
  2167. ++point, ++i;
  2168. }
  2170. *point++ = 'n';
  2171. *point++ = 'r';
  2172. buf[0]   = UPPER(buf[0]);
  2173. if (to->desc)
  2174.   write_to_buffer( to->desc, buf, point - buf );
  2175. if (MOBtrigger)
  2176.   mprog_act_trigger( buf, to, ch, obj1, vch );
  2177.                                             /* Added by Kahn */
  2178.     }
  2180.     MOBtrigger = TRUE;
  2181.     return;
  2182. }
  2186. /*
  2187.  * Macintosh support functions.
  2188.  */
  2189. #if defined(macintosh)
  2190. int gettimeofday( struct timeval *tp, void *tzp )
  2191. {
  2192.     tp->tv_sec  = time( NULL );
  2193.     tp->tv_usec = 0;
  2194. }
  2195. #endif