PostgreSQL Source Code  git master
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
stem_UTF_8_danish.h File Reference
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions

struct SN_envdanish_UTF_8_create_env (void)
 
void danish_UTF_8_close_env (struct SN_env *z)
 
int danish_UTF_8_stem (struct SN_env *z)
 

Function Documentation

void danish_UTF_8_close_env ( struct SN_env z)

Definition at line 338 of file stem_UTF_8_danish.c.

References SN_close_env().

338 { SN_close_env(z, 1); }
void SN_close_env(struct SN_env *z, int S_size)
Definition: api.c:40
struct SN_env* danish_UTF_8_create_env ( void  )

Definition at line 336 of file stem_UTF_8_danish.c.

References SN_create_env().

336 { return SN_create_env(1, 2, 0); }
struct SN_env * SN_create_env(int S_size, int I_size, int B_size)
Definition: api.c:3
int danish_UTF_8_stem ( struct SN_env z)

Definition at line 289 of file stem_UTF_8_danish.c.

References SN_env::c, SN_env::l, SN_env::lb, r_consonant_pair(), r_main_suffix(), r_mark_regions(), r_other_suffix(), and r_undouble().

289  {
290  { int c1 = z->c; /* do, line 84 */
291  { int ret = r_mark_regions(z);
292  if (ret == 0) goto lab0; /* call mark_regions, line 84 */
293  if (ret < 0) return ret;
294  }
295  lab0:
296  z->c = c1;
297  }
298  z->lb = z->c; z->c = z->l; /* backwards, line 85 */
299 
300  { int m2 = z->l - z->c; (void)m2; /* do, line 86 */
301  { int ret = r_main_suffix(z);
302  if (ret == 0) goto lab1; /* call main_suffix, line 86 */
303  if (ret < 0) return ret;
304  }
305  lab1:
306  z->c = z->l - m2;
307  }
308  { int m3 = z->l - z->c; (void)m3; /* do, line 87 */
309  { int ret = r_consonant_pair(z);
310  if (ret == 0) goto lab2; /* call consonant_pair, line 87 */
311  if (ret < 0) return ret;
312  }
313  lab2:
314  z->c = z->l - m3;
315  }
316  { int m4 = z->l - z->c; (void)m4; /* do, line 88 */
317  { int ret = r_other_suffix(z);
318  if (ret == 0) goto lab3; /* call other_suffix, line 88 */
319  if (ret < 0) return ret;
320  }
321  lab3:
322  z->c = z->l - m4;
323  }
324  { int m5 = z->l - z->c; (void)m5; /* do, line 89 */
325  { int ret = r_undouble(z);
326  if (ret == 0) goto lab4; /* call undouble, line 89 */
327  if (ret < 0) return ret;
328  }
329  lab4:
330  z->c = z->l - m5;
331  }
332  z->c = z->lb;
333  return 1;
334 }
static int r_mark_regions(struct SN_env *z)
int c
Definition: api.h:16
static int r_main_suffix(struct SN_env *z)
int lb
Definition: api.h:16
static int r_other_suffix(struct SN_env *z)
static int r_consonant_pair(struct SN_env *z)
static int r_undouble(struct SN_env *z)
int l
Definition: api.h:16