|
Last change
on this file since 13 was 13, checked in by rjmcnab, 25 years ago |
|
* empty log message *
|
-
Property svn:keywords
set to
Author Date Id Revision
|
|
File size:
617 bytes
|
| Line | |
|---|
| 1 |
|
|---|
| 2 | static char * frenchstem (word)
|
|---|
| 3 | char *word;
|
|---|
| 4 | {
|
|---|
| 5 | int len = strlen(word)-1;
|
|---|
| 6 | if (len > 4) {
|
|---|
| 7 | if (word[len]=='x') {
|
|---|
| 8 | if (word[len-1]=='u' && word[len-2]=='a') {
|
|---|
| 9 | word[len-1]='l';
|
|---|
| 10 | }
|
|---|
| 11 | word[len]='\0';
|
|---|
| 12 | return(word);
|
|---|
| 13 | }
|
|---|
| 14 | else {
|
|---|
| 15 | if (word[len]=='s')
|
|---|
| 16 | {word[len]='\0';len--;}
|
|---|
| 17 | if (word[len]=='r')
|
|---|
| 18 | {word[len]='\0';len--;}
|
|---|
| 19 | if (word[len]=='e')
|
|---|
| 20 | {word[len]='\0';len--;}
|
|---|
| 21 | if (word[len]=='é') /* letter with accent e + ' */
|
|---|
| 22 | {word[len]='\0';len--;}
|
|---|
| 23 | if (word[len] == word[len-1])
|
|---|
| 24 | word[len]='\0';
|
|---|
| 25 | } /* end else */
|
|---|
| 26 | } /* end if (len > 4) */
|
|---|
| 27 | return(word);
|
|---|
| 28 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
