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