Subversion Repositories wimsdev

Rev

Rev 8148 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8148 Rev 8880
Line 14... Line 14...
14 
 *  along with this program; if not, write to the Free Software
 14 
 *  along with this program; if not, write to the Free Software
15 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 15 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
16 
 */
 16 
 */
17 
 
 17 
 
18 
#include "../Lib/libwims.h"
 18 
#include "../Lib/libwims.h"
19 
 
 - 
 
20 
char *bufprep(char *p)
 - 
 
21 
{
 - 
 
22 
/*  singlespace(p); strip_trailing_spaces(p); return find_word_start(p); */
 - 
 
23 
    nospace(p); return p;
 - 
 
24 
}
 - 
 
25 
 
 - 
 
26 
char *parend(char *p)
 - 
 
27 
{
 - 
 
28 
    char *pp; int t;
 - 
 
29 
    t=0; for(pp=p;*pp;pp++) {
 - 
 
30 
      if(*pp=='(') t++;
 - 
 
31 
      if(*pp==')') {t--; if(t==0) return pp; if(t<0) return NULL;}
 - 
 
32 
    }
 - 
 
33 
    return NULL;
 - 
 
34 
}
 - 
 
35 
 
 19 
 
36 
char *relation_type[]={
 20 
char *relation_type[]={
37 
    "sametext","samecase",
 21 
    "sametext","samecase",
38 
    "in",  "wordof","itemof","lineof","varof","variableof"
 22 
    "in",  "wordof","itemof","lineof","varof","variableof"
39 
};
 23 
};