1
2
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#include "tintin.h"
#include "protos/globals.h"
#include "protos/print.h"
#include "protos/parse.h"
#include "protos/utils.h"
#ifdef HAVE_REGCOMP
#include <sys/types.h>
#include <regex.h>
extern struct session *if_command(const char *arg, struct session *ses);
static bool check_regexp(char *line, char *action, pvars_t *vars, struct session *ses)
{
regex_t preg;
regmatch_t pmatch[10];
if (regcomp(&preg, action, REG_EXTENDED))
{
tintin_eprintf(ses, "#invalid regular expression: {%s}", action);
return false;
}
if (regexec(&preg, line, vars?10:0, pmatch, 0))
{
regfree(&preg);
return false;
}
if (vars)
for (int i = 0; i < 10; i++)
{
if (pmatch[i].rm_so != -1)
{
memcpy((*vars)[i], line+pmatch[i].rm_so,
pmatch[i].rm_eo-pmatch[i].rm_so);
*((*vars)[i] + pmatch[i].rm_eo-pmatch[i].rm_so) = '\0';
}
else
(*vars)[i][0]=0;
}
regfree(&preg);
return true;
}
/*********************/
/* the #grep command */
/*********************/
void grep_command(const char *arg, struct session *ses)
{
pvars_t vars, *lastpvars;
char left[BUFFER_SIZE], line[BUFFER_SIZE], right[BUFFER_SIZE];
bool flag=false;
arg=get_arg(arg, left, 0, ses);
arg=get_arg(arg, line, 0, ses);
arg=get_arg_in_braces(arg, right, 0);
if (!*left || !*right)
{
tintin_eprintf(ses, "#ERROR: valid syntax is: #grep <pattern> <line> <command> [#else ...]");
return;
}
if (check_regexp(line, left, &vars, ses))
{
lastpvars = pvars;
pvars = &vars;
parse_input(right, true, ses);
pvars = lastpvars;
flag=true;
}
arg=get_arg_in_braces(arg, left, 0);
if (*left == tintin_char)
{
if (is_abrev(left + 1, "else"))
{
get_arg_in_braces(arg, right, 1);
if (!flag)
parse_input(right, true, ses);
return;
}
if (is_abrev(left + 1, "elif"))
{
if (!flag)
if_command(arg, ses);
return;
}
}
if (*left)
tintin_eprintf(ses, "#ERROR: cruft after #grep: {%s}", left);
}
/********************/
/* the #grep inline */
/********************/
int grep_inline(const char *arg, struct session *ses)
{
char left[BUFFER_SIZE], line[BUFFER_SIZE];
arg=get_arg(arg, left, 0, ses);
arg=get_arg(arg, line, 1, ses);
if (!*left)
{
tintin_eprintf(ses, "#ERROR: valid syntax is: (#grep <pattern> <line>)");
return 0;
}
return check_regexp(line, left, 0, ses);
}
#endif
|
