Subversion Repositories wimsdev

Rev

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

Rev 8303 Rev 8880
Line 12... Line 12...
12 
 *
 12 
 *
13 
 *  You should have received a copy of the GNU General Public License
 13 
 *  You should have received a copy of the GNU General Public License
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 
#include "wims.h"
 18 
#include "wims.h"
18 
 
 - 
 
19 
char *bufprep(char *p)
 - 
 
20 
{
 - 
 
21 
/*  singlespace(p); strip_trailing_spaces(p); return find_word_start(p); */
 - 
 
22 
    nospace(p); return p;
 - 
 
23 
}
 - 
 
24 
 
 - 
 
25 
char *parend(char *p)
 - 
 
26 
{
 - 
 
27 
    char *pp; int t;
 - 
 
28 
    t=0; for(pp=p;*pp;pp++) {
 - 
 
29 
     if(*pp=='(') t++;
 - 
 
30 
     if(*pp==')') {t--; if(t==0) return pp; if(t<0) return NULL;}
 - 
 
31 
    }
 - 
 
32 
    return NULL;
 - 
 
33 
}
 - 
 
34 
 
 19 
 
35 
char *relation_type[]={
 20 
char *relation_type[]={
36 
    "sametext","samecase",
 21 
    "sametext","samecase",
37 
    "in",  "wordof","itemof","lineof","varof","variableof"
 22 
    "in",  "wordof","itemof","lineof","varof","variableof"
38 
};
 23 
};