regex-match.c 2.98 KB
Newer Older
1
/*
Per Cederqvist's avatar
Per Cederqvist committed
2
 * $Id: regex-match.c,v 1.2 1992/12/19 01:56:23 ceder Exp $
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 * Copyright (C) 1992  Lysator Academic Computer Association.
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM 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 1, or (at your option) 
 * any later version.
 * 
 * LysKOM is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */

/*
 * Regexp matching
 */

Per Cederqvist's avatar
Per Cederqvist committed
30
static char *rcsid = "$Id: regex-match.c,v 1.2 1992/12/19 01:56:23 ceder Exp $";
31
32
33
34
35
36
37
38
39

#include <sys/types.h>
#include <regex.h>

#include <kom-errno.h>
#include <kom-types.h>
#include "s-string.h"
#include "s-collat-tabs.h"
#include <services.h>
Per Cederqvist's avatar
Per Cederqvist committed
40
41
42
43
44
45
#include <server/smalloc.h>
#include "cache.h"
#include "log.h"
#include "manipulate.h"
#include "com.h"
#include "connections.h"
46
47
48
49

static Success
lookup_regexp (const String  regexp,
	       Conf_no_list  *result,
Per Cederqvist's avatar
Per Cederqvist committed
50
	       Bool	     want_persons)
51
52
{
    struct re_pattern_buffer pat_buf;
Per Cederqvist's avatar
Per Cederqvist committed
53
54
55
    Conf_no conf_no;
    String name = EMPTY_STRING;
    char *errmsg;
56
57
58
59
60
61

    /* +++ Unnecessary to allocate this much if only one conference matches. */
    result->conf_nos = tmp_alloc (cached_no_of_existing_conferences()
				  * sizeof(Conf_no));
    result->no_of_confs = 0;

Per Cederqvist's avatar
Per Cederqvist committed
62
63
    re_syntax_options = RE_SYNTAX_GREP;

64
    pat_buf.translate = swedish_collate_tab;
Per Cederqvist's avatar
Per Cederqvist committed
65
66
    pat_buf.translate = NULL;
    pat_buf.fastmap = 0;
67
68
69
    pat_buf.allocated = 0;
    pat_buf.buffer = 0;

Per Cederqvist's avatar
Per Cederqvist committed
70
    if (errmsg = re_compile_pattern(regexp.string, s_strlen(regexp), &pat_buf))
71
    {
Per Cederqvist's avatar
Per Cederqvist committed
72
	regfree(&pat_buf);
73
74
75
76
77
78
	kom_errno = KOM_REGEX_ERROR;
	return FAILURE;
    }

    for (conf_no = 0; (conf_no = traverse_conference(conf_no)) != 0;)
    {
Per Cederqvist's avatar
Per Cederqvist committed
79
80
	if (cached_get_conf_type(conf_no).letter_box == want_persons
	    &&  fast_access_perm (conf_no, ACTPERS, ACT_P) > none )
81
	{
Per Cederqvist's avatar
Per Cederqvist committed
82
83
	    name = cached_get_name(conf_no);
	    switch ( re_search (&pat_buf, name.string, s_strlen(name), 0,
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
				s_strlen(name), NULL) )
	    {
	    case -1:
		break;
	    case -2:
		log("Internal error in regex.");
		break;
	    default:
		/* It matched. (Ignore where it matched). */
		result->conf_nos[result->no_of_confs++] = conf_no;
		break;
	    }
	}
    }

Per Cederqvist's avatar
Per Cederqvist committed
99
100
101
    regfree(&pat_buf);

    return OK;
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
}

Success
re_lookup_person (const String  regexp,
		  Conf_no_list  *result)
{
    return lookup_regexp(regexp, result, TRUE);
}


Success
re_lookup_conf (const String  regexp,
		Conf_no_list  *result)
{
    return lookup_regexp(regexp, result, FALSE);
}