/* ************************************************************************
*  file: utility.c, Utility module.                       Part of DIKUMUD *
*  Usage: Utility procedures                                              *
*  Copyright (C) 1990, 1991 - see 'license.doc' for complete information. *
************************************************************************* */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>

#include "structs.h"
#include "utils.h"
#include "comm.h"
#include "screen.h"
#include <time.h>
#include <arpa/telnet.h>
#include <netinet/in.h>

extern struct time_data time_info;

int	MIN(int a, int b)
{
   return a < b ? a : b;
}


int	MAX(int a, int b)
{
   return a > b ? a : b;
}


/* creates a random number in interval [from;to] */
int	number(int from, int to)
{
   return((random() % (to - from + 1)) + from);
}



/* simulates dice roll */
int	dice(int number, int size)
{
   int	r;
   int	sum = 0;

   assert(size >= 1);

   for (r = 1; r <= number; r++)
      sum += ((random() % size) + 1);
   return(sum);
}



/* Create a duplicate of a string */
char	*str_dup(const char *source)
{
   char	*new;

   CREATE(new, char, strlen(source) + 1);
   return(strcpy(new, source));
}



/* returns: 0 if equal, 1 if arg1 > arg2, -1 if arg1 < arg2  */
/* scan 'till found different or end of both                 */
int	str_cmp(char *arg1, char *arg2)
{
   int	chk, i;

   for (i = 0; *(arg1 + i) || *(arg2 + i); i++)
      if (chk = LOWER(*(arg1 + i)) - LOWER(*(arg2 + i)))
	 if (chk < 0)
	    return (-1);
	 else
	    return (1);
   return(0);
}



/* returns: 0 if equal, 1 if arg1 > arg2, -1 if arg1 < arg2  */
/* scan 'till found different, end of both, or n reached     */
int	strn_cmp(char *arg1, char *arg2, int n)
{
   int	chk, i;

   for (i = 0; (*(arg1 + i) || *(arg2 + i)) && (n > 0); i++, n--)
      if (chk = LOWER(*(arg1 + i)) - LOWER(*(arg2 + i)))
	 if (chk < 0)
	    return (-1);
	 else
	    return (1);

   return(0);
}


/* log a death trap hit */
void	log_death_trap(struct char_data *ch)
{
   char	buf[150];
   extern struct room_data *world;

   sprintf(buf, "%s hit death trap #%d (%s)", GET_NAME(ch),
       world[ch->in_room].number, world[ch->in_room].name);
   syslog(buf, BRF, LEVEL_IMMORT, TRUE);
}


/* writes a string to the log */
void	log(char *str)
{
   long	ct;
   char	*tmstr;

   ct = time(0);
   tmstr = asctime(localtime(&ct));
   *(tmstr + strlen(tmstr) - 1) = '\0';
   fprintf(stderr, "%-19.19s :: %s\n", tmstr, str);
}


/* New PROC: syslog by Fen Jul 3, 1992 */

void syslog(char *str, char type, sbyte level, byte file)

{
   char	buf[256];
   extern struct descriptor_data *descriptor_list;
   struct descriptor_data *i;
   char *tmp;
   long	ct;  
   char	tp;

   ct  = time(0);
   tmp = asctime(localtime(&ct));

   if (file)
      fprintf(stderr, "%-19.19s :: %s\n", tmp, str);
   if (level<0)
      return;
  
    sprintf(buf, "[ %s ]\n\r", str );

    for (i=descriptor_list; i; i = i->next) 
       if (!i->connected && !PLR_FLAGGED(i->character, PLR_WRITING)) {
          tp = ((PRF_FLAGGED(i->character, PRF_LOG1) ? 1 : 0) +
                (PRF_FLAGGED(i->character, PRF_LOG2) ? 2 : 0));

          if ((GET_LEVEL(i->character)>=level) && (tp >= type)) {
	     send_to_char(CCGRN(i->character, C_NRM), i->character);
             send_to_char(buf, i->character);
	     send_to_char(CCNRM(i->character, C_NRM), i->character);
	  }
       }
   return;
}

/* End of Modification */



void	sprintbit(long vektor, char *names[], char *result)
{
   long	nr;

   *result = '\0';

   if (vektor < 0) {
      strcpy(result, "SPRINTBIT ERROR!");
      return;
   }

   for (nr = 0; vektor; vektor >>= 1) {
      if (IS_SET(1, vektor)) {
	 if (*names[nr] != '\n') {
	    strcat(result, names[nr]);
	    strcat(result, " ");
	 } else
	    strcat(result, "UNDEFINED ");
      }

      if (*names[nr] != '\n')
	 nr++;
   }

   if (!*result)
      strcat(result, "NOBITS");
}



void	sprinttype(int type, char *names[], char *result)
{
   int	nr;

   for (nr = 0; (*names[nr] != '\n'); nr++)
      ;
   if (type < nr)
      strcpy(result, names[type]);
   else
      strcpy(result, "UNDEFINED");
}


/* Calculate the REAL time passed over the last t2-t1 centuries (secs) */
struct time_info_data real_time_passed(time_t t2, time_t t1)
{
   long	secs;
   struct time_info_data now;

   secs = (long) (t2 - t1);

   now.hours = (secs / SECS_PER_REAL_HOUR) % 24;  /* 0..23 hours */
   secs -= SECS_PER_REAL_HOUR * now.hours;

   now.day = (secs / SECS_PER_REAL_DAY);          /* 0..34 days  */
   secs -= SECS_PER_REAL_DAY * now.day;

   now.month = -1;
   now.year  = -1;

   return now;
}



/* Calculate the MUD time passed over the last t2-t1 centuries (secs) */
struct time_info_data mud_time_passed(time_t t2, time_t t1)
{
   long	secs;
   struct time_info_data now;

   secs = (long) (t2 - t1);

   now.hours = (secs / SECS_PER_MUD_HOUR) % 24;  /* 0..23 hours */
   secs -= SECS_PER_MUD_HOUR * now.hours;

   now.day = (secs / SECS_PER_MUD_DAY) % 35;     /* 0..34 days  */
   secs -= SECS_PER_MUD_DAY * now.day;

   now.month = (secs / SECS_PER_MUD_MONTH) % 17; /* 0..16 months */
   secs -= SECS_PER_MUD_MONTH * now.month;

   now.year = (secs / SECS_PER_MUD_YEAR);        /* 0..XX? years */

   return now;
}



struct time_info_data age(struct char_data *ch)
{
   struct time_info_data player_age;

   player_age = mud_time_passed(time(0), ch->player.time.birth);

   player_age.year += 17;   /* All players start at 17 */

   return player_age;
}




/*
** Turn off echoing (specific to telnet client)
*/

void	echo_off(int sock)
{
   char	off_string[] = 
    {
      (char) IAC,
      (char) WILL,
      (char) TELOPT_ECHO,
      (char)  0,
   };

   (void) write(sock, off_string, sizeof(off_string));
}


/*
** Turn on echoing (specific to telnet client)
*/


void	echo_on(int sock)
{
   char	off_string[] = 
    {
      (char) IAC,
      (char) WONT,
      (char) TELOPT_ECHO,
      (char) TELOPT_NAOFFD,
      (char) TELOPT_NAOCRD,
      (char)  0,
   };

   (void) write(sock, off_string, sizeof(off_string));
}