Exemple #1
0
/*ARGSUSED*/
_chat_init_config_func( int indx, char *rec, void *arg )
{
  char *equals;
  int i;
  strip_trailing_space(rec);

  if ((equals = strchr(rec, '=')) == NULL) return S_OK;
  *equals++ = '\0';
  strip_trailing_space(rec);
  strip_trailing_space(equals);
  while (*rec && isspace(*rec)) rec++;
  while (*equals && isspace(*equals)) equals++;

  if (!strcasecmp(rec, "mainroom")) {
    if (*equals != '\0') strncpy(mainroom, equals, NAMELEN);
  }
  else if (!strcasecmp(rec, "operators")) {
    _chat_config_form_list(&manager_list, equals);
  }
  else if (!strcasecmp(rec, "restricted")) {
    _chat_config_form_list(&restricted_list, equals); 
  }
  else if (!strcasecmp(rec, "nopunct")) {
    no_punct_in_chatids = (*equals == 'Y' || *equals == 'y');
  }
  return S_OK;
}
void say_formal(char* hours_buffer, char* minutes_buffer, int hours, int minutes) {
    memset(hours_buffer, 0, TIME_BUFFER_SIZE / 2);
    memset(minutes_buffer, 0, TIME_BUFFER_SIZE);

    hours = hours % 12;
    append_string(hours_buffer, HOURS_NOMINATIVE[hours], true);

    if (minutes <= 9) {
        append_string(minutes_buffer, MINUTES_NOMINATIVE_ONES[0], true);
        append_string(minutes_buffer, MINUTES_NOMINATIVE_ONES[minutes], true);
    } else {
        if (minutes > 9 && minutes < 20) {
            minutes = minutes % 10;
            append_string(minutes_buffer, MINUTES_NOMINATIVE_TEENS[minutes], true);
        }
        else {
            int minutes_ones = minutes % 10;
            int minutes_tens = (minutes - minutes_ones) / 10;
            append_string(minutes_buffer, MINUTES_NOMINATIVE_TENS[minutes_tens], true);
            if (minutes_ones > 0) {
                append_string(minutes_buffer, MINUTES_NOMINATIVE_ONES[minutes_ones], true);
            }
        }
    }

    strip_trailing_space(hours_buffer);
    strip_trailing_space(minutes_buffer);
}
Exemple #3
0
// Find path of source file SOURCE
string dbx_path(const string& source)
{
    string path;
    if (gdb->has_setenv_command() && gdb->has_edit_command())
    {
	// The DBX `file' command issues only the base name of the
	// current file.  The `edit' command, however, invokes an
	// editor with the entire path.  So, we misuse the `edit'
	// command such that it reports the entire path.
	gdb_question("setenv EDITOR \"echo\"");
	path = gdb_question("edit " + source);
	gdb_question(string("setenv EDITOR ") + 
		     quote(getenv("EDITOR") ? getenv("EDITOR") : "vi"));
    }
    else if (gdb->type() == DBX)
    {
	// We have DBX, but no `setenv' and no `edit' command.  Check
	// whether the `file' command with no arguments provides the
	// full path, as in AIX DBX 3.1.  This shouldn't affect other
	// DBX variants as `file' will simply return the same thing
	// already contained in source.
	gdb_question("file " + source);
	path = gdb_question("file");
    }

    strip_leading_space(path);
    if (!path.contains('/', 0) || path.contains(' '))
	path = source;		// Sanity check

    strip_trailing_space(path);
    return path;
}
Exemple #4
0
// Add ARG to the list of arguments
static void add_argument(string arg, StringArray& arguments, 
			 string& last, bool& updated)
{
    strip_trailing_space(arg);
    while (arg.length() > 0 && isspace(arg[0]))
	arg = arg.after(0);

    last = arg;

    // Insertion sort
    int i;
    for (i = 0; i < arguments.size(); i++)
    {
	int cmp = compare(arguments[i], arg);
	if (cmp == 0)
	    return;		// Already present
	if (cmp > 0)
	    break;
    }

    arguments += "<dummy>";

    for (int j = arguments.size() - 1; j > i; j--)
	arguments[j] = arguments[j - 1];
    arguments[i] = arg;

    updated = false;
}
Exemple #5
0
// Store first function name in ANSWER after INDEX in BUFFER
static void fetch_function(const string& answer, int index, string& buffer,
			   bool in_required = false)
{
    if (!buffer.empty())
	return;			// Already have a function

    string line = answer.from(index);
    line = line.before('\n');
    if (in_required)
	line = line.after(" in ");

    // The function name is the word before the opening parenthesis
    line = line.before('(');
    strip_trailing_space(line);
    int ws_index = line.index(' ', -1) + 1;
    line = line.from(ws_index);
    strip_leading_space(line);
    if (!line.empty() && line.contains(rxidentifier, 0))
	buffer = line;
}
Exemple #6
0
chat_query_user(char *cbuf)
{
  ACCOUNT acct;
  char buf[80];
  int in_now = 0;
  while (*cbuf && !isspace(*cbuf)) cbuf++;
  while (*cbuf && isspace(*cbuf)) cbuf++;
  strip_trailing_space(cbuf);
  if (!HasPerm(C_QUERY)) {
    printchatline("*** You do not have permission to query");
    return 0;
  }
  if (*cbuf == '\0') {
    printchatline("*** You must specify a userid to query");
    return 0;
  }
  if (bbs_query(cbuf, &acct) != S_OK) {
    sprintf(buf, "*** Userid '%s' not found", cbuf);
    printchatline(buf);
    return 0;
  }     
  bbs_enum_users(20, 0, acct.userid, _query_if_logged_in, &in_now);
  printchatline("***");
  sprintf(buf, "*** %s (%s):", acct.userid, acct.username);
  printchatline(buf);
  if (acct.lastlogin == 0)
    strcpy(buf, "*** Never logged in.");
  else sprintf(buf, "*** %s from %s %s %s", 
               in_now ? "Logged in" : "Last login", 
               acct.fromhost, in_now ? "since" : "at", 
               Ctime((time_t *)&acct.lastlogin));
  printchatline(buf);
  if (acct.realname[0] != '\0') {
    sprintf(buf, "*** Real name: %s", acct.realname);
    printchatline(buf);
  }
  return 0;
}
Exemple #7
0
string dbx_lookup(const string& func_name, bool silent)
{
    // Protect against `1' or `' being looked up as function names
    if (!func_name.contains(rxidentifier, 0))
	return "";		// Bad function name

    if (pos_cache.has(func_name))
    {
	string pos = pos_cache[func_name];
	if (silent || !pos.empty())
	    return pos;
    }

    string reply;
    switch (gdb->type())
    {
    case DBG:
    case DBX:
    case GDB:
    case JDB:
    case PYDB:
	reply = gdb_question("list " + func_name, 0, true);
	break;

    case XDB:
	reply = gdb_question("v " + func_name, 0, true);
	break;

    case PERL:
	reply = gdb_question("l " + func_name, 0, true);
	break;

    case BASH:
	reply = gdb_question("l " + func_name, 0, true);
	break;

    case MAKE:
	reply = gdb_question("target " + func_name, 0, true);
	break;
    }

    if (reply == NO_GDB_ANSWER)
    {
	// post_gdb_busy();
	return "";
    }

    string file = "";
    int line    = 0;
    switch (gdb->type())
    {
    case GDB:
    case PYDB:	// XXX
    {
	file = reply.from('\"');
	file = file.before('\"');
	const string line_s = reply.after("Line ");
	line = atoi(line_s.chars());
	break;
    }

    case DBX:
	line = line_of_listing(reply, silent);
	if (line > 0)
	{
	    file = gdb_question("file");
	    strip_trailing_space(file);
	}
	break;

    case BASH:
    case DBG:
    case JDB:
    case MAKE:
    case PERL:
	line = line_of_listing(reply, silent);
	file = source_view->line_of_cursor();
	file = file.before(':');
	break;

    case XDB:
    {
#if RUNTIME_REGEX
	static regex rxcolons("[^:]*:[^:]*: *[0-9][0-9]*.*");
#endif
	if (reply.matches(rxcolons))
	{
	    file = reply.before(':');
	    reply = reply.after(':'); // Skip file
	    reply = reply.after(':'); // Skip function
	    strip_leading_space(reply);
	    const string line_s = reply.before(':');
	    line = atoi(line_s.chars());
	}
	else
	{
	    // post_gdb_message(reply);
	    return "";
	}
	break;
    }
    }

    string pos = "";
    if (line > 0)
	pos = file + ":" + itostring(line);

    pos_cache[func_name] = pos;
    return pos;
}
Exemple #8
0
void PosBuffer::filter_dbg(string& answer)
{
    int idx1, idx2;
    
    if (already_read != PosComplete && !answer.contains('\n'))
    {
	// Position info is incomplete
	answer_buffer = answer;
	answer = "";
	already_read = PosPart;
	return;
    }

    idx1 = 0;
    while (idx1 < (int)answer.length())
    {
        idx2 = answer.index('\n', idx1);
	if (idx2 < 0) idx2 = answer.length();	
	string line = answer.at(idx1, idx2 - idx1);
	if (line.contains('\n'))
	    line = line.before('\n');
	strip_trailing_space(line);
		
	// DBG uses a format like `test.php:4 <main>\n echo $a."hello world."'
#if RUNTIME_REGEX
	static regex rxdbgpos("[^ \t]*:[ \t]*[1-9][0-9]*[ \t]*<.*>");
	static regex rxdbgframepos("#[0-9]*[ \t]*<.*>[ \t]*at[ \t]*[^ \t]*:[ \t]*[1-9][0-9]*");
#endif
	if (line.matches(rxdbgpos)) 
	{
	    string file = line.before(':');
	    line = line.after(':');
		    
	    string line_no = line;
	    strip_leading_space(line_no);
	    line_no = line_no.before(' ');
	    
	    line = line.after('<');
	    func_buffer  = line.before('>');
	    strip_leading_space(func_buffer);
		    
	    pos_buffer   = file + ":" + line_no;
	    
	    // Delete this line from output
	    answer.at(idx1, idx2 - idx1 + 1) = "";
	    already_read = PosComplete;
	    break;

	} else if (line.matches(rxdbgframepos)) 
	{
	    string addr = line.before(">");
	    func_buffer = addr.after('<');
	    strip_leading_space(func_buffer);
	    
	    string file = line.after(">");
	    file = file.after("at");
	    strip_leading_space(file);
	    
	    string line_no = file.after(':');
	    strip_leading_space(line_no);
	
	    file = file.before(':');
	    	    
	    pos_buffer   = file + ":" + line_no;
	    
	    // Delete this line from output
	    answer.at(idx1, idx2 - idx1 + 1) = "";
	    already_read = PosComplete;
	    break;
	}
	
	idx1 = idx2+1;
    }
}
Exemple #9
0
void PosBuffer::filter_bash(string& answer)
{
    // Check for regular source info
    int index1 = answer.index ("\032\032");
	    
    if (index1 < 0) 
    {
	int index_p = answer.index ("\032");
	if (index_p >= 0 && index_p == int(answer.length()) - 1)
	{
	    // Possible begin of position info at end of ANSWER
	    answer_buffer = "\032";
	    answer = answer.before (index_p);
	    already_read = PosPart;
	    return;
	}
    }
    else
    {
	// ANSWER contains position info
	int index2 = answer.index("\n", index1);
	    
	if (index2 == -1)
	{
	    // Position info is incomplete
	    answer_buffer = answer.from (index1);
	    answer = answer.before (index1);
	    already_read = PosPart;
	    return;
	}
	else
	{
	    assert (index1 < index2);
	    
	    // Position info is complete
	    already_read = PosComplete;
	    pos_buffer = answer.at(index1 + 2, index2 - (index1 + 2));
	    answer.at(index1, index2 - index1 + 1) = "";
	}
    }

    if (already_read != PosComplete)
    {
	// Try '(FILE:LINE):\n';

	// INDEX points at the start of a line
	int index = 0;
	while (index >= 0 && !answer.empty())
	{
	    string line = answer.from(index);
	    if (line.contains('\n'))
		line = line.before('\n');
	    strip_trailing_space(line);
		    
#if RUNTIME_REGEX
	    static regex rxbashpos("[(][^:]*:[1-9][0-9]*[)]:");
#endif
	    if (line.matches(rxbashpos))
	    {
		// Fetch position
		pos_buffer = line.after('(');
		pos_buffer = pos_buffer.before(')');
		already_read = PosComplete;

		// Delete this line from output
		int next_index = answer.index('\n', index);
		if (next_index < 0)
		    next_index = answer.length();
		else
		    next_index++;
		answer.at(index, next_index - index) = "";
		break;
	    }
	    else
	    {
		// Look at next line
		index = answer.index('\n', index);
		if (index >= 0)
		    index++;
	    }
	}
    }
}
Exemple #10
0
void PosBuffer::filter_xdb(string& answer)
{
    if (already_read != PosComplete && !answer.contains('\n'))
    {
	// Position info is incomplete
	answer_buffer = answer;
	answer = "";
	already_read = PosPart;
	return;
    }

    // INDEX points at the start of a line
    int index = 0;
    while (index >= 0 && !answer.empty())
    {
	string line = answer.from(index);
	if (line.contains('\n'))
	    line = line.before('\n');
	strip_trailing_space(line);
		
	// XDB uses a format like `ctest.c: main: 4: int a = 33;'
#if RUNTIME_REGEX
	static regex rxxdbpos("[^ \t]*:.*: [1-9][0-9]*[: ].*");
#endif
	if (line.matches(rxxdbpos))
	{
	    string file = line.before(':');
	    line = line.after(':');
		    
	    // The function name may contain "::"
	    string func = line;
	    while (line.contains("::"))
		line = line.after("::");
	    line = line.from(':');
	    func = func.before(line);
		    
	    line = line.after(':');
	    string line_no = line.before(':');
		    
	    strip_leading_space(func);
	    strip_leading_space(line_no);
	    line_no = line_no.through(rxint);
		    
	    pos_buffer   = file + ":" + line_no;
	    func_buffer  = func;
	    already_read = PosComplete;
		    
	    // Delete this line from output
	    int next_index = answer.index('\n', index);
	    if (next_index < 0)
		next_index = answer.length();
	    else
		next_index++;
	    answer.at(index, next_index - index) = "";
	    break;
	}
	else
	{
	    // Look at next line
	    index = answer.index('\n', index);
	    if (index >= 0)
		index++;
	}
    }
	    
    // Check for trailing `:' in last line
    index = answer.index('\n', -1) + 1;
    if (already_read != PosComplete 
	&& answer.index(':', index) >= 0)
    {
	answer_buffer = answer.from(index);
	answer.from(index) = "";
	already_read = PosPart;
	return;
    }
}
Exemple #11
0
void PosBuffer::filter_jdb(string& answer)
{
    if (already_read != PosComplete && !answer.contains('\n'))
    {
	// Position info is incomplete
	answer_buffer = answer;
	answer = "";
	already_read = PosPart;
	return;
    }

    int index = 0;
    while (index >= 0 && !answer.empty())
    {
	string line = answer.from(index);
	if (line.contains('\n'))
	    line = line.before('\n');
	strip_trailing_space(line);

	// Having reached a breakpoint, JDB 1.1 uses a format like
	// `(HelloWorld:3)'.
	// Having loaded a class, JDB uses `class(foo.bar.HelloWorld)'.

	// This may be prefixed by the fully qualified class
	// name (`path'), as in
	// `GlobalView.Map.MapController.createMap (MapController:53)'.
	// In such a case, prefer the fully qualified name.
#if RUNTIME_REGEX
	static regex 
	    rxjdbpos("((class|interface)[(][A-Za-z][A-Za-z0-9.]*[)]|"
		     "[(][A-Za-z][A-Za-z0-9.]*:[1-9][0-9]*[)])");
#endif
	if (gdb->has_debug_command() && line.matches(rxjdbpos))
	{
	    string file = line.after('(');
	    file = file.before(')');
	    string line_no = "0";
	    if (file.contains(':'))
	    {
		line_no = file.after(':');
		file = file.before(':');
	    }
 
	    // Check whether a fully qualified class name is prepended
	    int class_index = line.index('(') - 1;
	    while (class_index >= 0 && line[class_index] == ' ')
		class_index--;
	    while (class_index >= 1 && line[class_index - 1] != ' ')
		class_index--;
	    if (class_index >= 0)
	    {
		string class_name = line.from(class_index);
		class_name = class_name.before('(');
		strip_trailing_space(class_name);
		if (class_name.contains('.') && 
		    class_name.matches(rxchain))
		{
		    // Strip method
		    class_name = class_name.before('.', -1);

		    if (class_name.contains("." + file))
		    {
			// CLASS_NAME is more qualified - use it
			file = class_name;
		    }
		}
	    }

	    pos_buffer	 = file + ":" + line_no;
	    already_read = PosComplete;

#if 0
	    // Delete this line from output
	    int next_index = answer.index('\n', index);
	    if (next_index < 0)
		next_index = answer.length();
	    else
		next_index++;
	    answer.at(index, next_index - index) = "";
#endif
	    break;
	}
	else if (line.contains("line="))
	{
	    // JDB 1.2 output format:
	    // `Step completed: thread="main", jtest.array_test(), 
	    //  line=77, bci=206'

	    string line_no = line.after("line=");
	    line_no = line_no.before(", ");

	    string class_name = line.after(", ");
	    class_name = class_name.before(", ");
	    if (class_name.contains("("))
	    {
		// Within a method
		class_name = class_name.before('(');
		if (class_name.contains("."))
		    class_name = class_name.before('.', -1);
	    }

	    string file = class_name;
	    strip_space(file);

	    pos_buffer	 = file + ":" + line_no;
	    already_read = PosComplete;

	    break;
	}
	else
	{
	    // Look at next line
	    index = answer.index('\n', index);
	    if (index >= 0)
		index++;
	}
    }
}
Exemple #12
0
int
cddb_handle_data (const char *data, char **artist, char **dtitle,
		  char *titles[], int *totaltracks, char **year,
		  char **dgenre)
{
  char *row, *mark;
  const char *tmp = data;
  int i, j, counter = 0, track, previoustrack = 100, ttcounter = 0;
  char *tempstr;

  if (strncmp (data, "# xmcd", 6) != 0)
    return -1;

  (*dtitle) = NULL;

  while (*tmp != 0)
    {				/* check against end of string */

      /* get the row */
      i = strcspn (tmp, "\r\n");
      while (tmp[i] == '\r' || tmp[i] == '\n')
	i++;

      row = (char *) malloc (i + 1);
      strncpy (row, tmp, i);
      row[i] = 0;
      tmp += i;

      /* eval the row */
      if (strncmp (row, "DYEAR", 5) == 0)
	{			/* CD Year */
	  tempstr = malloc (MAX_YEAR_LENGTH);
	  strcpy (tempstr, row);
	  tempstr = strchr (row, '=');
	  tempstr++;
	  j = strlen (tempstr);

	  (*year) = (char *) malloc (j + 1);

	  strncpy ((*year), tempstr, (j + 1));
	  remove_non_unix_chars (*year);
	}
      else if (strncmp (row, "DGENRE", 6) == 0)
	{			/* Disc Genre */
	  tempstr = malloc (MAX_GENRE_LENGTH);
	  strcpy (tempstr, row);
	  tempstr = strchr (row, '=');
	  tempstr++;

	  j = strlen (tempstr);
	  (*dgenre) = (char *) malloc (j + 1);
	  strncpy ((*dgenre), tempstr, (j + 1));
	  remove_non_unix_chars (*dgenre);
	}
      else if (strncmp (row, "TTITLE", 6) == 0)
	{			/* Track Title */
	  /* get the track number before going on */
	  /* skip the TTITLE */
	  mark = row + 6;
	  counter = 0;

	  /* convert ascii -> int */
	  while (*mark != '=')
	    {
	      counter *= 10;
	      counter += *mark - 0x30;
	      mark++;
	    }
	  mark++;		/* and skip the '=' */
	  track = counter;

	  if (previoustrack != track)
	    ttcounter++;

	  /* create the filename. Append previous title if necessary */
	  tempstr = malloc (MAX_TITLE_LENGTH);
	  if (previoustrack == track)
	    strcpy (tempstr, titles[track]);
	  else
	    strcpy (tempstr, "");

	  /* put in the track name */
	  titles[track] = strcat (tempstr, mark);

	  strip_trailing_space (&titles[track]);
	  strip_leading_space (&titles[track]);

	  previoustrack = track;

	  remove_non_unix_chars (titles[track]);

#ifdef DEBUG
	  printf ("Track %d: %s\n", track, titles[track]);
#endif
	}
      else if ((strncmp (row, "DTITLE", 6) == 0) && (*dtitle == NULL))
	{			/* CD Title */
	  i = strcspn (row, "=");
	  i++;			/* skip to the data */
	  mark = row + i;

	  // tm:  hack around bogus CDDB entries
	  if (strstr (mark, " / "))
	    {
	      j = strstr (mark, " / ") - mark + 1;
	      (*artist) = (char *) malloc (j + 1);
	      strncpy ((*artist), mark, j);
	      (*artist)[j] = 0;
	      (*dtitle) = (char *) malloc (strlen (mark) - j);
	      mark = mark + j + 1;
	      strcpy ((*dtitle), mark);
	    }
	  else
	    {
#ifdef DEBUG
	      printf
		("malformed DTITLE, copying full DTITLE into both artist and dtitle\n");
#endif
	      j = strlen (mark);
	      (*artist) = (char *) malloc (j + 1);
	      strncpy ((*artist), mark, j);
	      (*artist)[j] = 0;
	      (*dtitle) = (char *) malloc (j + 1);
	      strncpy ((*dtitle), mark, j);
	      (*dtitle)[j] = 0;
	    }

	  strip_trailing_space (artist);
	  strip_leading_space (artist);
	  strip_trailing_space (dtitle);
	  strip_leading_space (dtitle);

	  remove_non_unix_chars (*artist);
	  remove_non_unix_chars (*dtitle);
	  convert_slashes (*artist, '_');	// dc: _ Artist, - others
	  convert_slashes (*dtitle, '-');
#ifdef CONVERT_SPACES_IN_ID3_DATA
	  if (((int) config_read (CONF_CDDB_CONVSPC)) == TRUE)
	    {
	      convert_spaces (*artist, '_');
	      convert_spaces (*dtitle, '_');
	    }
#endif
#ifdef DEBUG
	  printf ("Artist: %s\n", (*artist));
	  printf ("Dtitle: %s\n", (*dtitle));
#endif
	}

      /* ignore any other results */
      free (row);
    }

  *totaltracks = ttcounter;
  return 0;
}