PostgreSQL Source Code git master
All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
stem_UTF_8_porter.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_envporter_UTF_8_create_env (void)
 
void porter_UTF_8_close_env (struct SN_env *z)
 
int porter_UTF_8_stem (struct SN_env *z)
 

Function Documentation

◆ porter_UTF_8_close_env()

void porter_UTF_8_close_env ( struct SN_env z)

Definition at line 722 of file stem_UTF_8_porter.c.

722{ SN_close_env(z, 0); }
void SN_close_env(struct SN_env *z, int S_size)
Definition: api.c:34

References SN_close_env().

◆ porter_UTF_8_create_env()

struct SN_env * porter_UTF_8_create_env ( void  )

Definition at line 720 of file stem_UTF_8_porter.c.

720{ return SN_create_env(0, 3); }
struct SN_env * SN_create_env(int S_size, int I_size)
Definition: api.c:3

References SN_create_env().

◆ porter_UTF_8_stem()

int porter_UTF_8_stem ( struct SN_env z)

Definition at line 564 of file stem_UTF_8_porter.c.

564 {
565 z->I[2] = 0;
566 { int c1 = z->c;
567 z->bra = z->c;
568 if (z->c == z->l || z->p[z->c] != 'y') goto lab0;
569 z->c++;
570 z->ket = z->c;
571 { int ret = slice_from_s(z, 1, s_21);
572 if (ret < 0) return ret;
573 }
574 z->I[2] = 1;
575 lab0:
576 z->c = c1;
577 }
578 { int c2 = z->c;
579 while(1) {
580 int c3 = z->c;
581 while(1) {
582 int c4 = z->c;
583 if (in_grouping_U(z, g_v, 97, 121, 0)) goto lab3;
584 z->bra = z->c;
585 if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
586 z->c++;
587 z->ket = z->c;
588 z->c = c4;
589 break;
590 lab3:
591 z->c = c4;
592 { int ret = skip_utf8(z->p, z->c, z->l, 1);
593 if (ret < 0) goto lab2;
594 z->c = ret;
595 }
596 }
597 { int ret = slice_from_s(z, 1, s_22);
598 if (ret < 0) return ret;
599 }
600 z->I[2] = 1;
601 continue;
602 lab2:
603 z->c = c3;
604 break;
605 }
606 z->c = c2;
607 }
608 z->I[1] = z->l;
609 z->I[0] = z->l;
610 { int c5 = z->c;
611 {
612 int ret = out_grouping_U(z, g_v, 97, 121, 1);
613 if (ret < 0) goto lab4;
614 z->c += ret;
615 }
616 {
617 int ret = in_grouping_U(z, g_v, 97, 121, 1);
618 if (ret < 0) goto lab4;
619 z->c += ret;
620 }
621 z->I[1] = z->c;
622 {
623 int ret = out_grouping_U(z, g_v, 97, 121, 1);
624 if (ret < 0) goto lab4;
625 z->c += ret;
626 }
627 {
628 int ret = in_grouping_U(z, g_v, 97, 121, 1);
629 if (ret < 0) goto lab4;
630 z->c += ret;
631 }
632 z->I[0] = z->c;
633 lab4:
634 z->c = c5;
635 }
636 z->lb = z->c; z->c = z->l;
637
638 { int m6 = z->l - z->c; (void)m6;
639 { int ret = r_Step_1a(z);
640 if (ret < 0) return ret;
641 }
642 z->c = z->l - m6;
643 }
644 { int m7 = z->l - z->c; (void)m7;
645 { int ret = r_Step_1b(z);
646 if (ret < 0) return ret;
647 }
648 z->c = z->l - m7;
649 }
650 { int m8 = z->l - z->c; (void)m8;
651 { int ret = r_Step_1c(z);
652 if (ret < 0) return ret;
653 }
654 z->c = z->l - m8;
655 }
656 { int m9 = z->l - z->c; (void)m9;
657 { int ret = r_Step_2(z);
658 if (ret < 0) return ret;
659 }
660 z->c = z->l - m9;
661 }
662 { int m10 = z->l - z->c; (void)m10;
663 { int ret = r_Step_3(z);
664 if (ret < 0) return ret;
665 }
666 z->c = z->l - m10;
667 }
668 { int m11 = z->l - z->c; (void)m11;
669 { int ret = r_Step_4(z);
670 if (ret < 0) return ret;
671 }
672 z->c = z->l - m11;
673 }
674 { int m12 = z->l - z->c; (void)m12;
675 { int ret = r_Step_5a(z);
676 if (ret < 0) return ret;
677 }
678 z->c = z->l - m12;
679 }
680 { int m13 = z->l - z->c; (void)m13;
681 { int ret = r_Step_5b(z);
682 if (ret < 0) return ret;
683 }
684 z->c = z->l - m13;
685 }
686 z->c = z->lb;
687 { int c14 = z->c;
688 if (!(z->I[2])) goto lab5;
689 while(1) {
690 int c15 = z->c;
691 while(1) {
692 int c16 = z->c;
693 z->bra = z->c;
694 if (z->c == z->l || z->p[z->c] != 'Y') goto lab7;
695 z->c++;
696 z->ket = z->c;
697 z->c = c16;
698 break;
699 lab7:
700 z->c = c16;
701 { int ret = skip_utf8(z->p, z->c, z->l, 1);
702 if (ret < 0) goto lab6;
703 z->c = ret;
704 }
705 }
706 { int ret = slice_from_s(z, 1, s_23);
707 if (ret < 0) return ret;
708 }
709 continue;
710 lab6:
711 z->c = c15;
712 break;
713 }
714 lab5:
715 z->c = c14;
716 }
717 return 1;
718}
static int r_Step_5b(struct SN_env *z)
static int r_Step_3(struct SN_env *z)
static const symbol s_21[]
static const symbol s_23[]
static int r_Step_1c(struct SN_env *z)
static int r_Step_5a(struct SN_env *z)
static const symbol s_22[]
static int r_Step_1a(struct SN_env *z)
static int r_Step_4(struct SN_env *z)
static int r_Step_2(struct SN_env *z)
static int r_Step_1b(struct SN_env *z)
static const unsigned char g_v[]
int lb
Definition: api.h:16
symbol * p
Definition: api.h:15
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int c
Definition: api.h:16
int bra
Definition: api.h:16
int l
Definition: api.h:16
int out_grouping_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:141
int in_grouping_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:117
int skip_utf8(const symbol *p, int c, int limit, int n)
Definition: utilities.c:27
int slice_from_s(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:422

References SN_env::bra, SN_env::c, g_v, SN_env::I, in_grouping_U(), SN_env::ket, SN_env::l, SN_env::lb, out_grouping_U(), SN_env::p, r_Step_1a(), r_Step_1b(), r_Step_1c(), r_Step_2(), r_Step_3(), r_Step_4(), r_Step_5a(), r_Step_5b(), s_21, s_22, s_23, skip_utf8(), and slice_from_s().