… | |
… | |
2661 | list () |
2661 | list () |
2662 | PPCODE: |
2662 | PPCODE: |
2663 | for_all_regions (rgn) |
2663 | for_all_regions (rgn) |
2664 | XPUSHs (sv_2mortal (to_sv (rgn))); |
2664 | XPUSHs (sv_2mortal (to_sv (rgn))); |
2665 | |
2665 | |
2666 | region *find (utf8_string name) |
|
|
2667 | PROTOTYPE: $ |
|
|
2668 | CODE: |
|
|
2669 | RETVAL = region::find (name); |
|
|
2670 | OUTPUT: RETVAL |
|
|
2671 | |
|
|
2672 | int specificity (region *rgn) |
2666 | int specificity (region *rgn) |
2673 | CODE: |
2667 | CODE: |
2674 | RETVAL = 0; |
2668 | RETVAL = 0; |
2675 | while (rgn = rgn->parent) |
2669 | while (rgn = rgn->parent) |
2676 | RETVAL++; |
2670 | RETVAL++; |