Eine aufbereitete Darstellung der Quelle

 
     
 
 
Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

Benutzer

Quelle  stem_UTF_8_spanish.c

  Sprache: C
 

/* Generated by Snowball 2.2.0 - https://snowballstem.org/ */

#include "header.h"

#ifdef __cplusplus
extern "C" {
#endif
extern int spanish_UTF_8_stem(struct SN_env * z);
#ifdef __cplusplus
}
#endif
static int r_residual_suffix(struct SN_env * z);
static int r_verb_suffix(struct SN_env * z);
static int r_y_verb_suffix(struct SN_env * z);
static int r_standard_suffix(struct SN_env * z);
static int r_attached_pronoun(struct SN_env * z);
static int r_R2(struct SN_env * z);
static int r_R1(struct SN_env * z);
static int r_RV(struct SN_env * z);
static int r_mark_regions(struct SN_env * z);
static int r_postlude(struct SN_env * z);
#ifdef __cplusplus
extern "C" {
#endif


extern struct SN_env * spanish_UTF_8_create_env(void);
extern void spanish_UTF_8_close_env(struct SN_env * z);


#ifdef __cplusplus
}
#endif
static const symbol s_0_1[2] = { 0xC3, 0xA1 };
static const symbol s_0_2[2] = { 0xC3, 0xA9 };
static const symbol s_0_3[2] = { 0xC3, 0xAD };
static const symbol s_0_4[2] = { 0xC3, 0xB3 };
static const symbol s_0_5[2] = { 0xC3, 0xBA };

static const struct among a_0[6] =
{
00, -160},
2, s_0_1, 010},
2, s_0_2, 020},
2, s_0_3, 030},
2, s_0_4, 040},
2, s_0_5, 050}
};

static const symbol s_1_0[2] = { 'l''a' };
static const symbol s_1_1[4] = { 's''e''l''a' };
static const symbol s_1_2[2] = { 'l''e' };
static const symbol s_1_3[2] = { 'm''e' };
static const symbol s_1_4[2] = { 's''e' };
static const symbol s_1_5[2] = { 'l''o' };
static const symbol s_1_6[4] = { 's''e''l''o' };
static const symbol s_1_7[3] = { 'l''a''s' };
static const symbol s_1_8[5] = { 's''e''l''a''s' };
static const symbol s_1_9[3] = { 'l''e''s' };
static const symbol s_1_10[3] = { 'l''o''s' };
static const symbol s_1_11[5] = { 's''e''l''o''s' };
static const symbol s_1_12[3] = { 'n''o''s' };

static const struct among a_1[13] =
{
2, s_1_0, -1, -10},
4, s_1_1, 0, -10},
2, s_1_2, -1, -10},
2, s_1_3, -1, -10},
2, s_1_4, -1, -10},
2, s_1_5, -1, -10},
4, s_1_6, 5, -10},
3, s_1_7, -1, -10},
5, s_1_8, 7, -10},
3, s_1_9, -1, -10},
3, s_1_10, -1, -10},
5, s_1_11, 10, -10},
3, s_1_12, -1, -10}
};

static const symbol s_2_0[4] = { 'a''n''d''o' };
static const symbol s_2_1[5] = { 'i''e''n''d''o' };
static const symbol s_2_2[5] = { 'y''e''n''d''o' };
static const symbol s_2_3[5] = { 0xC3, 0xA1, 'n''d''o' };
static const symbol s_2_4[6] = { 'i'0xC3, 0xA9, 'n''d''o' };
static const symbol s_2_5[2] = { 'a''r' };
static const symbol s_2_6[2] = { 'e''r' };
static const symbol s_2_7[2] = { 'i''r' };
static const symbol s_2_8[3] = { 0xC3, 0xA1, 'r' };
static const symbol s_2_9[3] = { 0xC3, 0xA9, 'r' };
static const symbol s_2_10[3] = { 0xC3, 0xAD, 'r' };

static const struct among a_2[11] =
{
4, s_2_0, -160},
5, s_2_1, -160},
5, s_2_2, -170},
5, s_2_3, -120},
6, s_2_4, -110},
2, s_2_5, -160},
2, s_2_6, -160},
2, s_2_7, -160},
3, s_2_8, -130},
3, s_2_9, -140},
3, s_2_10, -150}
};

static const symbol s_3_0[2] = { 'i''c' };
static const symbol s_3_1[2] = { 'a''d' };
static const symbol s_3_2[2] = { 'o''s' };
static const symbol s_3_3[2] = { 'i''v' };

static const struct among a_3[4] =
{
2, s_3_0, -1, -10},
2, s_3_1, -1, -10},
2, s_3_2, -1, -10},
2, s_3_3, -110}
};

static const symbol s_4_0[4] = { 'a''b''l''e' };
static const symbol s_4_1[4] = { 'i''b''l''e' };
static const symbol s_4_2[4] = { 'a''n''t''e' };

static const struct among a_4[3] =
{
4, s_4_0, -110},
4, s_4_1, -110},
4, s_4_2, -110}
};

static const symbol s_5_0[2] = { 'i''c' };
static const symbol s_5_1[4] = { 'a''b''i''l' };
static const symbol s_5_2[2] = { 'i''v' };

static const struct among a_5[3] =
{
2, s_5_0, -110},
4, s_5_1, -110},
2, s_5_2, -110}
};

static const symbol s_6_0[3] = { 'i''c''a' };
static const symbol s_6_1[5] = { 'a''n''c''i''a' };
static const symbol s_6_2[5] = { 'e''n''c''i''a' };
static const symbol s_6_3[5] = { 'a''d''o''r''a' };
static const symbol s_6_4[3] = { 'o''s''a' };
static const symbol s_6_5[4] = { 'i''s''t''a' };
static const symbol s_6_6[3] = { 'i''v''a' };
static const symbol s_6_7[4] = { 'a''n''z''a' };
static const symbol s_6_8[6] = { 'l''o''g'0xC3, 0xAD, 'a' };
static const symbol s_6_9[4] = { 'i''d''a''d' };
static const symbol s_6_10[4] = { 'a''b''l''e' };
static const symbol s_6_11[4] = { 'i''b''l''e' };
static const symbol s_6_12[4] = { 'a''n''t''e' };
static const symbol s_6_13[5] = { 'm''e''n''t''e' };
static const symbol s_6_14[6] = { 'a''m''e''n''t''e' };
static const symbol s_6_15[6] = { 'a''c''i'0xC3, 0xB3, 'n' };
static const symbol s_6_16[6] = { 'u''c''i'0xC3, 0xB3, 'n' };
static const symbol s_6_17[3] = { 'i''c''o' };
static const symbol s_6_18[4] = { 'i''s''m''o' };
static const symbol s_6_19[3] = { 'o''s''o' };
static const symbol s_6_20[7] = { 'a''m''i''e''n''t''o' };
static const symbol s_6_21[7] = { 'i''m''i''e''n''t''o' };
static const symbol s_6_22[3] = { 'i''v''o' };
static const symbol s_6_23[4] = { 'a''d''o''r' };
static const symbol s_6_24[4] = { 'i''c''a''s' };
static const symbol s_6_25[6] = { 'a''n''c''i''a''s' };
static const symbol s_6_26[6] = { 'e''n''c''i''a''s' };
static const symbol s_6_27[6] = { 'a''d''o''r''a''s' };
static const symbol s_6_28[4] = { 'o''s''a''s' };
static const symbol s_6_29[5] = { 'i''s''t''a''s' };
static const symbol s_6_30[4] = { 'i''v''a''s' };
static const symbol s_6_31[5] = { 'a''n''z''a''s' };
static const symbol s_6_32[7] = { 'l''o''g'0xC3, 0xAD, 'a''s' };
static const symbol s_6_33[6] = { 'i''d''a''d''e''s' };
static const symbol s_6_34[5] = { 'a''b''l''e''s' };
static const symbol s_6_35[5] = { 'i''b''l''e''s' };
static const symbol s_6_36[7] = { 'a''c''i''o''n''e''s' };
static const symbol s_6_37[7] = { 'u''c''i''o''n''e''s' };
static const symbol s_6_38[6] = { 'a''d''o''r''e''s' };
static const symbol s_6_39[5] = { 'a''n''t''e''s' };
static const symbol s_6_40[4] = { 'i''c''o''s' };
static const symbol s_6_41[5] = { 'i''s''m''o''s' };
static const symbol s_6_42[4] = { 'o''s''o''s' };
static const symbol s_6_43[8] = { 'a''m''i''e''n''t''o''s' };
static const symbol s_6_44[8] = { 'i''m''i''e''n''t''o''s' };
static const symbol s_6_45[4] = { 'i''v''o''s' };

static const struct among a_6[46] =
{
3, s_6_0, -110},
5, s_6_1, -120},
5, s_6_2, -150},
5, s_6_3, -120},
3, s_6_4, -110},
4, s_6_5, -110},
3, s_6_6, -190},
4, s_6_7, -110},
6, s_6_8, -130},
4, s_6_9, -180},
4, s_6_10, -110},
4, s_6_11, -110},
4, s_6_12, -120},
5, s_6_13, -170},
6, s_6_14, 1360},
6, s_6_15, -120},
6, s_6_16, -140},
3, s_6_17, -110},
4, s_6_18, -110},
3, s_6_19, -110},
7, s_6_20, -110},
7, s_6_21, -110},
3, s_6_22, -190},
4, s_6_23, -120},
4, s_6_24, -110},
6, s_6_25, -120},
6, s_6_26, -150},
6, s_6_27, -120},
4, s_6_28, -110},
5, s_6_29, -110},
4, s_6_30, -190},
5, s_6_31, -110},
7, s_6_32, -130},
6, s_6_33, -180},
5, s_6_34, -110},
5, s_6_35, -110},
7, s_6_36, -120},
7, s_6_37, -140},
6, s_6_38, -120},
5, s_6_39, -120},
4, s_6_40, -110},
5, s_6_41, -110},
4, s_6_42, -110},
8, s_6_43, -110},
8, s_6_44, -110},
4, s_6_45, -190}
};

static const symbol s_7_0[2] = { 'y''a' };
static const symbol s_7_1[2] = { 'y''e' };
static const symbol s_7_2[3] = { 'y''a''n' };
static const symbol s_7_3[3] = { 'y''e''n' };
static const symbol s_7_4[5] = { 'y''e''r''o''n' };
static const symbol s_7_5[5] = { 'y''e''n''d''o' };
static const symbol s_7_6[2] = { 'y''o' };
static const symbol s_7_7[3] = { 'y''a''s' };
static const symbol s_7_8[3] = { 'y''e''s' };
static const symbol s_7_9[4] = { 'y''a''i''s' };
static const symbol s_7_10[5] = { 'y''a''m''o''s' };
static const symbol s_7_11[3] = { 'y'0xC3, 0xB3 };

static const struct among a_7[12] =
{
2, s_7_0, -110},
2, s_7_1, -110},
3, s_7_2, -110},
3, s_7_3, -110},
5, s_7_4, -110},
5, s_7_5, -110},
2, s_7_6, -110},
3, s_7_7, -110},
3, s_7_8, -110},
4, s_7_9, -110},
5, s_7_10, -110},
3, s_7_11, -110}
};

static const symbol s_8_0[3] = { 'a''b''a' };
static const symbol s_8_1[3] = { 'a''d''a' };
static const symbol s_8_2[3] = { 'i''d''a' };
static const symbol s_8_3[3] = { 'a''r''a' };
static const symbol s_8_4[4] = { 'i''e''r''a' };
static const symbol s_8_5[3] = { 0xC3, 0xAD, 'a' };
static const symbol s_8_6[5] = { 'a''r'0xC3, 0xAD, 'a' };
static const symbol s_8_7[5] = { 'e''r'0xC3, 0xAD, 'a' };
static const symbol s_8_8[5] = { 'i''r'0xC3, 0xAD, 'a' };
static const symbol s_8_9[2] = { 'a''d' };
static const symbol s_8_10[2] = { 'e''d' };
static const symbol s_8_11[2] = { 'i''d' };
static const symbol s_8_12[3] = { 'a''s''e' };
static const symbol s_8_13[4] = { 'i''e''s''e' };
static const symbol s_8_14[4] = { 'a''s''t''e' };
static const symbol s_8_15[4] = { 'i''s''t''e' };
static const symbol s_8_16[2] = { 'a''n' };
static const symbol s_8_17[4] = { 'a''b''a''n' };
static const symbol s_8_18[4] = { 'a''r''a''n' };
static const symbol s_8_19[5] = { 'i''e''r''a''n' };
static const symbol s_8_20[4] = { 0xC3, 0xAD, 'a''n' };
static const symbol s_8_21[6] = { 'a''r'0xC3, 0xAD, 'a''n' };
static const symbol s_8_22[6] = { 'e''r'0xC3, 0xAD, 'a''n' };
static const symbol s_8_23[6] = { 'i''r'0xC3, 0xAD, 'a''n' };
static const symbol s_8_24[2] = { 'e''n' };
static const symbol s_8_25[4] = { 'a''s''e''n' };
static const symbol s_8_26[5] = { 'i''e''s''e''n' };
static const symbol s_8_27[4] = { 'a''r''o''n' };
static const symbol s_8_28[5] = { 'i''e''r''o''n' };
static const symbol s_8_29[5] = { 'a''r'0xC3, 0xA1, 'n' };
static const symbol s_8_30[5] = { 'e''r'0xC3, 0xA1, 'n' };
static const symbol s_8_31[5] = { 'i''r'0xC3, 0xA1, 'n' };
static const symbol s_8_32[3] = { 'a''d''o' };
static const symbol s_8_33[3] = { 'i''d''o' };
static const symbol s_8_34[4] = { 'a''n''d''o' };
static const symbol s_8_35[5] = { 'i''e''n''d''o' };
static const symbol s_8_36[2] = { 'a''r' };
static const symbol s_8_37[2] = { 'e''r' };
static const symbol s_8_38[2] = { 'i''r' };
static const symbol s_8_39[2] = { 'a''s' };
static const symbol s_8_40[4] = { 'a''b''a''s' };
static const symbol s_8_41[4] = { 'a''d''a''s' };
static const symbol s_8_42[4] = { 'i''d''a''s' };
static const symbol s_8_43[4] = { 'a''r''a''s' };
static const symbol s_8_44[5] = { 'i''e''r''a''s' };
static const symbol s_8_45[4] = { 0xC3, 0xAD, 'a''s' };
static const symbol s_8_46[6] = { 'a''r'0xC3, 0xAD, 'a''s' };
static const symbol s_8_47[6] = { 'e''r'0xC3, 0xAD, 'a''s' };
static const symbol s_8_48[6] = { 'i''r'0xC3, 0xAD, 'a''s' };
static const symbol s_8_49[2] = { 'e''s' };
static const symbol s_8_50[4] = { 'a''s''e''s' };
static const symbol s_8_51[5] = { 'i''e''s''e''s' };
static const symbol s_8_52[5] = { 'a''b''a''i''s' };
static const symbol s_8_53[5] = { 'a''r''a''i''s' };
static const symbol s_8_54[6] = { 'i''e''r''a''i''s' };
static const symbol s_8_55[5] = { 0xC3, 0xAD, 'a''i''s' };
static const symbol s_8_56[7] = { 'a''r'0xC3, 0xAD, 'a''i''s' };
static const symbol s_8_57[7] = { 'e''r'0xC3, 0xAD, 'a''i''s' };
static const symbol s_8_58[7] = { 'i''r'0xC3, 0xAD, 'a''i''s' };
static const symbol s_8_59[5] = { 'a''s''e''i''s' };
static const symbol s_8_60[6] = { 'i''e''s''e''i''s' };
static const symbol s_8_61[6] = { 'a''s''t''e''i''s' };
static const symbol s_8_62[6] = { 'i''s''t''e''i''s' };
static const symbol s_8_63[4] = { 0xC3, 0xA1, 'i''s' };
static const symbol s_8_64[4] = { 0xC3, 0xA9, 'i''s' };
static const symbol s_8_65[6] = { 'a''r'0xC3, 0xA9, 'i''s' };
static const symbol s_8_66[6] = { 'e''r'0xC3, 0xA9, 'i''s' };
static const symbol s_8_67[6] = { 'i''r'0xC3, 0xA9, 'i''s' };
static const symbol s_8_68[4] = { 'a''d''o''s' };
static const symbol s_8_69[4] = { 'i''d''o''s' };
static const symbol s_8_70[4] = { 'a''m''o''s' };
static const symbol s_8_71[7] = { 0xC3, 0xA1, 'b''a''m''o''s' };
static const symbol s_8_72[7] = { 0xC3, 0xA1, 'r''a''m''o''s' };
static const symbol s_8_73[8] = { 'i'0xC3, 0xA9, 'r''a''m''o''s' };
static const symbol s_8_74[6] = { 0xC3, 0xAD, 'a''m''o''s' };
static const symbol s_8_75[8] = { 'a''r'0xC3, 0xAD, 'a''m''o''s' };
static const symbol s_8_76[8] = { 'e''r'0xC3, 0xAD, 'a''m''o''s' };
static const symbol s_8_77[8] = { 'i''r'0xC3, 0xAD, 'a''m''o''s' };
static const symbol s_8_78[4] = { 'e''m''o''s' };
static const symbol s_8_79[6] = { 'a''r''e''m''o''s' };
static const symbol s_8_80[6] = { 'e''r''e''m''o''s' };
static const symbol s_8_81[6] = { 'i''r''e''m''o''s' };
static const symbol s_8_82[7] = { 0xC3, 0xA1, 's''e''m''o''s' };
static const symbol s_8_83[8] = { 'i'0xC3, 0xA9, 's''e''m''o''s' };
static const symbol s_8_84[4] = { 'i''m''o''s' };
static const symbol s_8_85[5] = { 'a''r'0xC3, 0xA1, 's' };
static const symbol s_8_86[5] = { 'e''r'0xC3, 0xA1, 's' };
static const symbol s_8_87[5] = { 'i''r'0xC3, 0xA1, 's' };
static const symbol s_8_88[3] = { 0xC3, 0xAD, 's' };
static const symbol s_8_89[4] = { 'a''r'0xC3, 0xA1 };
static const symbol s_8_90[4] = { 'e''r'0xC3, 0xA1 };
static const symbol s_8_91[4] = { 'i''r'0xC3, 0xA1 };
static const symbol s_8_92[4] = { 'a''r'0xC3, 0xA9 };
static const symbol s_8_93[4] = { 'e''r'0xC3, 0xA9 };
static const symbol s_8_94[4] = { 'i''r'0xC3, 0xA9 };
static const symbol s_8_95[3] = { 'i'0xC3, 0xB3 };

static const struct among a_8[96] =
{
3, s_8_0, -120},
3, s_8_1, -120},
3, s_8_2, -120},
3, s_8_3, -120},
4, s_8_4, -120},
3, s_8_5, -120},
5, s_8_6, 520},
5, s_8_7, 520},
5, s_8_8, 520},
2, s_8_9, -120},
2, s_8_10, -120},
2, s_8_11, -120},
3, s_8_12, -120},
4, s_8_13, -120},
4, s_8_14, -120},
4, s_8_15, -120},
2, s_8_16, -120},
4, s_8_17, 1620},
4, s_8_18, 1620},
5, s_8_19, 1620},
4, s_8_20, 1620},
6, s_8_21, 2020},
6, s_8_22, 2020},
6, s_8_23, 2020},
2, s_8_24, -110},
4, s_8_25, 2420},
5, s_8_26, 2420},
4, s_8_27, -120},
5, s_8_28, -120},
5, s_8_29, -120},
5, s_8_30, -120},
5, s_8_31, -120},
3, s_8_32, -120},
3, s_8_33, -120},
4, s_8_34, -120},
5, s_8_35, -120},
2, s_8_36, -120},
2, s_8_37, -120},
2, s_8_38, -120},
2, s_8_39, -120},
4, s_8_40, 3920},
4, s_8_41, 3920},
4, s_8_42, 3920},
4, s_8_43, 3920},
5, s_8_44, 3920},
4, s_8_45, 3920},
6, s_8_46, 4520},
6, s_8_47, 4520},
6, s_8_48, 4520},
2, s_8_49, -110},
4, s_8_50, 4920},
5, s_8_51, 4920},
5, s_8_52, -120},
5, s_8_53, -120},
6, s_8_54, -120},
5, s_8_55, -120},
7, s_8_56, 5520},
7, s_8_57, 5520},
7, s_8_58, 5520},
5, s_8_59, -120},
6, s_8_60, -120},
6, s_8_61, -120},
6, s_8_62, -120},
4, s_8_63, -120},
4, s_8_64, -110},
6, s_8_65, 6420},
6, s_8_66, 6420},
6, s_8_67, 6420},
4, s_8_68, -120},
4, s_8_69, -120},
4, s_8_70, -120},
7, s_8_71, 7020},
7, s_8_72, 7020},
8, s_8_73, 7020},
6, s_8_74, 7020},
8, s_8_75, 7420},
8, s_8_76, 7420},
8, s_8_77, 7420},
4, s_8_78, -110},
6, s_8_79, 7820},
6, s_8_80, 7820},
6, s_8_81, 7820},
7, s_8_82, 7820},
8, s_8_83, 7820},
4, s_8_84, -120},
5, s_8_85, -120},
5, s_8_86, -120},
5, s_8_87, -120},
3, s_8_88, -120},
4, s_8_89, -120},
4, s_8_90, -120},
4, s_8_91, -120},
4, s_8_92, -120},
4, s_8_93, -120},
4, s_8_94, -120},
3, s_8_95, -120}
};

static const symbol s_9_0[1] = { 'a' };
static const symbol s_9_1[1] = { 'e' };
static const symbol s_9_2[1] = { 'o' };
static const symbol s_9_3[2] = { 'o''s' };
static const symbol s_9_4[2] = { 0xC3, 0xA1 };
static const symbol s_9_5[2] = { 0xC3, 0xA9 };
static const symbol s_9_6[2] = { 0xC3, 0xAD };
static const symbol s_9_7[2] = { 0xC3, 0xB3 };

static const struct among a_9[8] =
{
1, s_9_0, -110},
1, s_9_1, -120},
1, s_9_2, -110},
2, s_9_3, -110},
2, s_9_4, -110},
2, s_9_5, -120},
2, s_9_6, -110},
2, s_9_7, -110}
};

static const unsigned char g_v[] = { 1765160000000000000117410 };

static const symbol s_0[] = { 'a' };
static const symbol s_1[] = { 'e' };
static const symbol s_2[] = { 'i' };
static const symbol s_3[] = { 'o' };
static const symbol s_4[] = { 'u' };
static const symbol s_5[] = { 'i''e''n''d''o' };
static const symbol s_6[] = { 'a''n''d''o' };
static const symbol s_7[] = { 'a''r' };
static const symbol s_8[] = { 'e''r' };
static const symbol s_9[] = { 'i''r' };
static const symbol s_10[] = { 'i''c' };
static const symbol s_11[] = { 'l''o''g' };
static const symbol s_12[] = { 'u' };
static const symbol s_13[] = { 'e''n''t''e' };
static const symbol s_14[] = { 'a''t' };
static const symbol s_15[] = { 'a''t' };

static int r_mark_regions(struct SN_env * z) {
    z->I[2] = z->l;
    z->I[1] = z->l;
    z->I[0] = z->l;
    {   int c1 = z->c;
        {   int c2 = z->c;
            if (in_grouping_U(z, g_v, 972520)) goto lab2;
            {   int c3 = z->c;
                if (out_grouping_U(z, g_v, 972520)) goto lab4;

                {
                    int ret = out_grouping_U(z, g_v, 972521);
                    if (ret < 0goto lab4;
                    z->c += ret;
                }
                goto lab3;
            lab4:
                z->c = c3;
                if (in_grouping_U(z, g_v, 972520)) goto lab2;

                {
                    int ret = in_grouping_U(z, g_v, 972521);
                    if (ret < 0goto lab2;
                    z->c += ret;
                }
            }
        lab3:
            goto lab1;
        lab2:
            z->c = c2;
            if (out_grouping_U(z, g_v, 972520)) goto lab0;
            {   int c4 = z->c;
                if (out_grouping_U(z, g_v, 972520)) goto lab6;

                {
                    int ret = out_grouping_U(z, g_v, 972521);
                    if (ret < 0goto lab6;
                    z->c += ret;
                }
                goto lab5;
            lab6:
                z->c = c4;
                if (in_grouping_U(z, g_v, 972520)) goto lab0;
                {   int ret = skip_utf8(z->p, z->c, z->l, 1);
                    if (ret < 0goto lab0;
                    z->c = ret;
                }
            }
        lab5:
            ;
        }
    lab1:
        z->I[2] = z->c;
    lab0:
        z->c = c1;
    }
    {   int c5 = z->c;

        {
            int ret = out_grouping_U(z, g_v, 972521);
            if (ret < 0goto lab7;
            z->c += ret;
        }

        {
            int ret = in_grouping_U(z, g_v, 972521);
            if (ret < 0goto lab7;
            z->c += ret;
        }
        z->I[1] = z->c;

        {
            int ret = out_grouping_U(z, g_v, 972521);
            if (ret < 0goto lab7;
            z->c += ret;
        }

        {
            int ret = in_grouping_U(z, g_v, 972521);
            if (ret < 0goto lab7;
            z->c += ret;
        }
        z->I[0] = z->c;
    lab7:
        z->c = c5;
    }
    return 1;
}

static int r_postlude(struct SN_env * z) {
    int among_var;
    while(1) {
        int c1 = z->c;
        z->bra = z->c;
        if (z->c + 1 >= z->l || z->p[z->c + 1] >> 5 != 5 || !((67641858 >> (z->p[z->c + 1] & 0x1f)) & 1)) among_var 6else
        among_var = find_among(z, a_0, 6);
        z->ket = z->c;
        switch (among_var) {
            case 1:
                {   int ret = slice_from_s(z, 1, s_0);
                    if (ret < 0return ret;
                }
                break;
            case 2:
                {   int ret = slice_from_s(z, 1, s_1);
                    if (ret < 0return ret;
                }
                break;
            case 3:
                {   int ret = slice_from_s(z, 1, s_2);
                    if (ret < 0return ret;
                }
                break;
            case 4:
                {   int ret = slice_from_s(z, 1, s_3);
                    if (ret < 0return ret;
                }
                break;
            case 5:
                {   int ret = slice_from_s(z, 1, s_4);
                    if (ret < 0return ret;
                }
                break;
            case 6:
                {   int ret = skip_utf8(z->p, z->c, z->l, 1);
                    if (ret < 0goto lab0;
                    z->c = ret;
                }
                break;
        }
        continue;
    lab0:
        z->c = c1;
        break;
    }
    return 1;
}

static int r_RV(struct SN_env * z) {
    return z->I[2] <= z->c;
}

static int r_R1(struct SN_env * z) {
    return z->I[1] <= z->c;
}

static int r_R2(struct SN_env * z) {
    return z->I[0] <= z->c;
}

static int r_attached_pronoun(struct SN_env * z) {
    int among_var;
    z->ket = z->c;
    if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((557090 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
    if (!find_among_b(z, a_1, 13)) return 0;
    z->bra = z->c;
    if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 111 && z->p[z->c - 1] != 114)) return 0;
    among_var = find_among_b(z, a_2, 11);
    if (!among_var) return 0;
    {   int ret = r_RV(z);
        if (ret <= 0return ret;
    }
    switch (among_var) {
        case 1:
            z->bra = z->c;
            {   int ret = slice_from_s(z, 5, s_5);
                if (ret < 0return ret;
            }
            break;
        case 2:
            z->bra = z->c;
            {   int ret = slice_from_s(z, 4, s_6);
                if (ret < 0return ret;
            }
            break;
        case 3:
            z->bra = z->c;
            {   int ret = slice_from_s(z, 2, s_7);
                if (ret < 0return ret;
            }
            break;
        case 4:
            z->bra = z->c;
            {   int ret = slice_from_s(z, 2, s_8);
                if (ret < 0return ret;
            }
            break;
        case 5:
            z->bra = z->c;
            {   int ret = slice_from_s(z, 2, s_9);
                if (ret < 0return ret;
            }
            break;
        case 6:
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
        case 7:
            if (z->c <= z->lb || z->p[z->c - 1] != 'u'return 0;
            z->c--;
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
    }
    return 1;
}

static int r_standard_suffix(struct SN_env * z) {
    int among_var;
    z->ket = z->c;
    if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((835634 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
    among_var = find_among_b(z, a_6, 46);
    if (!among_var) return 0;
    z->bra = z->c;
    switch (among_var) {
        case 1:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
        case 2:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m1 = z->l - z->c; (void)m1;
                z->ket = z->c;
                if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m1; goto lab0; }
                z->bra = z->c;
                {   int ret = r_R2(z);
                    if (ret == 0) { z->c = z->l - m1; goto lab0; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
            lab0:
                ;
            }
            break;
        case 3:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_from_s(z, 3, s_11);
                if (ret < 0return ret;
            }
            break;
        case 4:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_from_s(z, 1, s_12);
                if (ret < 0return ret;
            }
            break;
        case 5:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_from_s(z, 4, s_13);
                if (ret < 0return ret;
            }
            break;
        case 6:
            {   int ret = r_R1(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m2 = z->l - z->c; (void)m2;
                z->ket = z->c;
                if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((4718616 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->c = z->l - m2; goto lab1; }
                among_var = find_among_b(z, a_3, 4);
                if (!among_var) { z->c = z->l - m2; goto lab1; }
                z->bra = z->c;
                {   int ret = r_R2(z);
                    if (ret == 0) { z->c = z->l - m2; goto lab1; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
                switch (among_var) {
                    case 1:
                        z->ket = z->c;
                        if (!(eq_s_b(z, 2, s_14))) { z->c = z->l - m2; goto lab1; }
                        z->bra = z->c;
                        {   int ret = r_R2(z);
                            if (ret == 0) { z->c = z->l - m2; goto lab1; }
                            if (ret < 0return ret;
                        }
                        {   int ret = slice_del(z);
                            if (ret < 0return ret;
                        }
                        break;
                }
            lab1:
                ;
            }
            break;
        case 7:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m3 = z->l - z->c; (void)m3;
                z->ket = z->c;
                if (z->c - 3 <= z->lb || z->p[z->c - 1] != 101) { z->c = z->l - m3; goto lab2; }
                if (!find_among_b(z, a_4, 3)) { z->c = z->l - m3; goto lab2; }
                z->bra = z->c;
                {   int ret = r_R2(z);
                    if (ret == 0) { z->c = z->l - m3; goto lab2; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
            lab2:
                ;
            }
            break;
        case 8:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m4 = z->l - z->c; (void)m4;
                z->ket = z->c;
                if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((4198408 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->c = z->l - m4; goto lab3; }
                if (!find_among_b(z, a_5, 3)) { z->c = z->l - m4; goto lab3; }
                z->bra = z->c;
                {   int ret = r_R2(z);
                    if (ret == 0) { z->c = z->l - m4; goto lab3; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
            lab3:
                ;
            }
            break;
        case 9:
            {   int ret = r_R2(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m5 = z->l - z->c; (void)m5;
                z->ket = z->c;
                if (!(eq_s_b(z, 2, s_15))) { z->c = z->l - m5; goto lab4; }
                z->bra = z->c;
                {   int ret = r_R2(z);
                    if (ret == 0) { z->c = z->l - m5; goto lab4; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
            lab4:
                ;
            }
            break;
    }
    return 1;
}

static int r_y_verb_suffix(struct SN_env * z) {

    {   int mlimit1;
        if (z->c < z->I[2]) return 0;
        mlimit1 = z->lb; z->lb = z->I[2];
        z->ket = z->c;
        if (!find_among_b(z, a_7, 12)) { z->lb = mlimit1; return 0; }
        z->bra = z->c;
        z->lb = mlimit1;
    }
    if (z->c <= z->lb || z->p[z->c - 1] != 'u'return 0;
    z->c--;
    {   int ret = slice_del(z);
        if (ret < 0return ret;
    }
    return 1;
}

static int r_verb_suffix(struct SN_env * z) {
    int among_var;

    {   int mlimit1;
        if (z->c < z->I[2]) return 0;
        mlimit1 = z->lb; z->lb = z->I[2];
        z->ket = z->c;
        among_var = find_among_b(z, a_8, 96);
        if (!among_var) { z->lb = mlimit1; return 0; }
        z->bra = z->c;
        z->lb = mlimit1;
    }
    switch (among_var) {
        case 1:
            {   int m2 = z->l - z->c; (void)m2;
                if (z->c <= z->lb || z->p[z->c - 1] != 'u') { z->c = z->l - m2; goto lab0; }
                z->c--;
                {   int m_test3 = z->l - z->c;
                    if (z->c <= z->lb || z->p[z->c - 1] != 'g') { z->c = z->l - m2; goto lab0; }
                    z->c--;
                    z->c = z->l - m_test3;
                }
            lab0:
                ;
            }
            z->bra = z->c;
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
        case 2:
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
    }
    return 1;
}

static int r_residual_suffix(struct SN_env * z) {
    int among_var;
    z->ket = z->c;
    among_var = find_among_b(z, a_9, 8);
    if (!among_var) return 0;
    z->bra = z->c;
    switch (among_var) {
        case 1:
            {   int ret = r_RV(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            break;
        case 2:
            {   int ret = r_RV(z);
                if (ret <= 0return ret;
            }
            {   int ret = slice_del(z);
                if (ret < 0return ret;
            }
            {   int m1 = z->l - z->c; (void)m1;
                z->ket = z->c;
                if (z->c <= z->lb || z->p[z->c - 1] != 'u') { z->c = z->l - m1; goto lab0; }
                z->c--;
                z->bra = z->c;
                {   int m_test2 = z->l - z->c;
                    if (z->c <= z->lb || z->p[z->c - 1] != 'g') { z->c = z->l - m1; goto lab0; }
                    z->c--;
                    z->c = z->l - m_test2;
                }
                {   int ret = r_RV(z);
                    if (ret == 0) { z->c = z->l - m1; goto lab0; }
                    if (ret < 0return ret;
                }
                {   int ret = slice_del(z);
                    if (ret < 0return ret;
                }
            lab0:
                ;
            }
            break;
    }
    return 1;
}

extern int spanish_UTF_8_stem(struct SN_env * z) {

    {   int ret = r_mark_regions(z);
        if (ret < 0return ret;
    }
    z->lb = z->c; z->c = z->l;

    {   int m1 = z->l - z->c; (void)m1;
        {   int ret = r_attached_pronoun(z);
            if (ret < 0return ret;
        }
        z->c = z->l - m1;
    }
    {   int m2 = z->l - z->c; (void)m2;
        {   int m3 = z->l - z->c; (void)m3;
            {   int ret = r_standard_suffix(z);
                if (ret == 0goto lab2;
                if (ret < 0return ret;
            }
            goto lab1;
        lab2:
            z->c = z->l - m3;
            {   int ret = r_y_verb_suffix(z);
                if (ret == 0goto lab3;
                if (ret < 0return ret;
            }
            goto lab1;
        lab3:
            z->c = z->l - m3;
            {   int ret = r_verb_suffix(z);
                if (ret == 0goto lab0;
                if (ret < 0return ret;
            }
        }
    lab1:
    lab0:
        z->c = z->l - m2;
    }
    {   int m4 = z->l - z->c; (void)m4;
        {   int ret = r_residual_suffix(z);
            if (ret < 0return ret;
        }
        z->c = z->l - m4;
    }
    z->c = z->lb;
    {   int c5 = z->c;
        {   int ret = r_postlude(z);
            if (ret < 0return ret;
        }
        z->c = c5;
    }
    return 1;
}

extern struct SN_env * spanish_UTF_8_create_env(void) { return SN_create_env(03); }

extern void spanish_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 0); }


Messung V0.5 in Prozent
C=100 H=90 G=95

¤ Dauer der Verarbeitung: 0.25 Sekunden  (vorverarbeitet am  2026-08-08) ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

PVS Prover

Isabelle Prover

NIST Cobol Testsuite

Cephes Mathematical Library

Vienna Development Method

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.






                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Open Source Software

     Quellcodebibliothek
     Eigene Quellcodes
     Fremde Quellcodes
     Suchen

Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik

Statistik
#Sources=141584
#Domains=752002