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
|
%{
#include "indian.h"
char word[1000], outstr[1000];
int process_it(struct tabl *, int, char *);
int my_yyinput(char *, int);
#undef YY_INPUT
#undef YY_DECL
#define YY_INPUT(inp,result,maxlen) { \
(result = (word[0] == '\0') ? YY_NULL : my_yyinput(inp,maxlen)); \
word[0] = '\0'; \
}
#define YY_DECL int yylex (struct tabl *table, int sz)
%}
CNS [-]
VOWELS [-]
MATRAS [-]
VOWMOD []
HALMWA []
NUKTA []
NON_DEV [M]
DIGIT_STOP [-]
%%
{VOWELS}?{VOWMOD}?{NUKTA}? |
{CNS}{VOWMOD}?{HALMWA}?{NON_DEV} |
({CNS}{NUKTA}?{HALMWA})*{CNS}{NUKTA}?{HALMWA}?{HALMWA}?{MATRAS}?{VOWMOD}? |
{MATRAS} |
{DIGIT_STOP} |
{CNS}?{HALMWA}{NUKTA}?{CNS}? process_it(table, sz, yytext);
%%
int my_yyinput(char *buf, int max_size) {
strcpy(buf,word);
return strlen(word);
}
char *split(struct tabl *table, char *input1, int sz) {
memset(outstr,0,1000);
strcpy(word,input1);
splitlex(table, sz);
return outstr;
}
int process_it(struct tabl *table, int sz, char *inpword) {
char *p;
size_t len;
char tmp;
int i;
len = strlen(inpword);
tmp = '\0';
while(1) {
for(i = len; i > 0; i--) {
tmp = inpword[i];
inpword[i] = '\0';
p = binsearch(table, sz, inpword);
inpword[i] = tmp;
if(p) {
strcat(outstr,p);
break;
}
}
if(i == 0) i = 1;
if((len -= i) > 0) {
inpword += i;
}
else {
break;
}
}
return 1;
}
int splitwrap(){
return 1;
}
|
