1 /* j/6/fitz.c 2 ** 3 */ 4 #include "all.h" 5 6 7 /* functions 8 */ 9 static u3_noun _fitz_fiz(u3_noun yaz,u3_noun wix)10 _fitz_fiz(u3_noun yaz, 11 u3_noun wix) 12 { 13 c3_w yaz_w = u3r_met(3, yaz); 14 c3_w wix_w = u3r_met(3, wix); 15 c3_y yaz_y, wix_y; 16 17 yaz_y = (0 == yaz_w) ? 0 : u3r_byte((yaz_w - 1), yaz); 18 if ( (yaz_y < 'A') || (yaz_y > 'Z') ) yaz_y = 0; 19 20 wix_y = (0 == wix_w) ? 0 : u3r_byte((wix_w - 1), wix); 21 if ( (wix_y < 'A') || (wix_y > 'Z') ) wix_y = 0; 22 23 if ( yaz_y && wix_y ) { 24 if ( !wix_y || (wix_y > yaz_y) ) { 25 return c3n; 26 } 27 } 28 return c3y; 29 } 30 31 u3_noun u3qf_fitz(u3_noun yaz,u3_noun wix)32 u3qf_fitz(u3_noun yaz, 33 u3_noun wix) 34 { 35 c3_w i_w, met_w = c3_min(u3r_met(3, yaz), u3r_met(3, wix)); 36 37 if ( c3n == _fitz_fiz(yaz, wix) ) { 38 return c3n; 39 } 40 for ( i_w = 0; i_w < met_w; i_w++ ) { 41 c3_y yaz_y = u3r_byte(i_w, yaz); 42 c3_y wix_y = u3r_byte(i_w, wix); 43 44 if ( (yaz_y >= 'A') && (yaz_y <= 'Z') ) yaz_y = 0; 45 if ( (wix_y >= 'A') && (wix_y <= 'Z') ) wix_y = 0; 46 47 if ( yaz_y && wix_y && (yaz_y != wix_y) ) { 48 return c3n; 49 } 50 } 51 return c3y; 52 } 53 54 u3_noun u3wf_fitz(u3_noun cor)55 u3wf_fitz(u3_noun cor) 56 { 57 u3_noun yaz, wix; 58 59 if ( (c3n == u3r_mean(cor, u3x_sam_2, &yaz, u3x_sam_3, &wix, 0)) || 60 (c3n == u3ud(yaz)) || 61 (c3n == u3ud(wix)) ) 62 { 63 return u3m_bail(c3__fail); 64 } else { 65 return u3qf_fitz(yaz, wix); 66 } 67 } 68