+++ /dev/null
-/* This C file is generated by NIT to compile module standard___string. */
-#include "standard___string._sep.h"
-static const char LOCATE_standard___string___AbstractString___items[] = "string::AbstractString::items";
-val_t standard___string___AbstractString___items(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 32;
- fra.me.meth = LOCATE_standard___string___AbstractString___items;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:32 */
- REGB0 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 32);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___AbstractString_____bra[] = "string::AbstractString::(abstract_collection::SequenceRead::[])";
-val_t standard___string___AbstractString_____bra(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 34;
- fra.me.meth = LOCATE_standard___string___AbstractString_____bra;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:37 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 37);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB0 = TAG_Char(UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:37 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___AbstractString___substring[] = "string::AbstractString::substring";
-val_t standard___string___AbstractString___substring(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- static val_t once_value_3; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 39;
- fra.me.meth = LOCATE_standard___string___AbstractString___substring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- REGB1 = p2;
- /* ../lib/standard/string.nit:51 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:51 */
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 51);
- }
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:52 */
- REGB1 = REGB2;
- /* ../lib/standard/string.nit:53 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:53 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(0);
- REGB0 = REGB2;
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:54 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:54 */
- REGB1 = REGB2;
- }
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:55 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:56 */
- fra.me.REG[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB2);
- /* ../lib/standard/string.nit:57 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:57 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:58 */
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 58);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB2 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:58 */
- CALL_standard___collection___abstract_collection___Sequence___push(fra.me.REG[1])(fra.me.REG[1], REGB2);
- /* ../lib/standard/string.nit:59 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:59 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/string.nit:57 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/string.nit:61 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label2;
- } else {
- /* ../lib/standard/string.nit:63 */
- if (!once_value_3) {
- fra.me.REG[0] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- once_value_3 = fra.me.REG[0];
- register_static_object(&once_value_3);
- } else fra.me.REG[0] = once_value_3;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[1] = fra.me.REG[0];
- goto label2;
- }
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___AbstractString___substring_from[] = "string::AbstractString::substring_from";
-val_t standard___string___AbstractString___substring_from(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 67;
- fra.me.meth = LOCATE_standard___string___AbstractString___substring_from;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:76 */
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 76);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:247 */
- REGB1 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:77 */
- fra.me.REG[0] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB0, REGB1);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___AbstractString___has_substring[] = "string::AbstractString::has_substring";
-val_t standard___string___AbstractString___has_substring(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 80;
- fra.me.meth = LOCATE_standard___string___AbstractString___has_substring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = p2;
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/string.nit:86 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:88 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 88);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:89 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 89);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:90 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:90 */
- REGB1 = REGB3;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- goto label1;
- }
- /* ../lib/standard/string.nit:91 */
- REGB3 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 91);
- }
- REGB3 = ATTR_standard___string___String____index_from(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:92 */
- REGB2 = REGB4;
- /* ../lib/standard/string.nit:93 */
- while(1) {
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:93 */
- if (UNTAG_Bool(REGB4)) {
- /* ../lib/standard/string.nit:970 */
- REGB4 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- REGB5 = TAG_Char(UNBOX_NativeString(fra.me.REG[3])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/string.nit:94 */
- REGB6 = TAG_Bool(IS_EQUAL_OO(REGB4,REGB5));
- if (UNTAG_Bool(REGB6)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB5 = TAG_Bool((REGB4)==(REGB5));
- /* ../lib/standard/string.nit:94 */
- REGB6 = REGB5;
- }
- REGB6 = TAG_Bool(!UNTAG_Bool(REGB6));
- if (UNTAG_Bool(REGB6)) {
- REGB6 = TAG_Bool(0);
- REGB1 = REGB6;
- goto label1;
- }
- /* ../lib/standard/string.nit:95 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB6 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:95 */
- REGB0 = REGB6;
- /* ../lib/standard/string.nit:96 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB6 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:96 */
- REGB2 = REGB6;
- } else {
- /* ../lib/standard/string.nit:93 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:98 */
- REGB2 = TAG_Bool(1);
- REGB1 = REGB2;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___AbstractString___has_prefix[] = "string::AbstractString::has_prefix";
-val_t standard___string___AbstractString___has_prefix(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 101;
- fra.me.meth = LOCATE_standard___string___AbstractString___has_prefix;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:105 */
- REGB0 = TAG_Int(0);
- REGB0 = CALL_standard___string___AbstractString___has_substring(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], REGB0);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___AbstractString___has_suffix[] = "string::AbstractString::has_suffix";
-val_t standard___string___AbstractString___has_suffix(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 107;
- fra.me.meth = LOCATE_standard___string___AbstractString___has_suffix;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:247 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:111 */
- REGB1 = CALL_standard___string___AbstractString___has_substring(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1], REGB1);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___AbstractString___to_i[] = "string::AbstractString::to_i";
-val_t standard___string___AbstractString___to_i(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 113;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_i;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:120 */
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___String___to_cstring(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:981 */
- REGB0 = TAG_Int(atoi(UNBOX_NativeString(fra.me.REG[0])));
- /* ../lib/standard/string.nit:120 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___AbstractString___to_f[] = "string::AbstractString::to_f";
-val_t standard___string___AbstractString___to_f(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 123;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_f;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:131 */
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___String___to_cstring(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___NativeString___atof(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___AbstractString___to_hex[] = "string::AbstractString::to_hex";
-val_t standard___string___AbstractString___to_hex(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 134;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_hex;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:135 */
- REGB0 = TAG_Int(16);
- REGB0 = CALL_standard___string___AbstractString___a_to(fra.me.REG[0])(fra.me.REG[0], REGB0);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___AbstractString___a_to[] = "string::AbstractString::a_to";
-val_t standard___string___AbstractString___a_to(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 137;
- fra.me.meth = LOCATE_standard___string___AbstractString___a_to;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:137 */
- fra.me.REG[1] = REGB0;
- /* ../lib/standard/string.nit:142 */
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = REGB0;
- /* ../lib/standard/string.nit:143 */
- REGB0 = TAG_Bool(0);
- fra.me.REG[3] = REGB0;
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___string___AbstractString___a_to_1));
- switch ((&(fra.me))->has_broke) {
- case 0: break;
- case 1: (&(fra.me))->has_broke = 0; goto label3;
- }
- /* ../lib/standard/string.nit:160 */
- if (UNTAG_Bool(fra.me.REG[3])) {
- /* ../lib/standard/kernel.nit:246 */
- REGB0 = TAG_Int(-UNTAG_Int(fra.me.REG[2]));
- /* ../lib/standard/string.nit:161 */
- fra.me.REG[0] = REGB0;
- goto label3;
- } else {
- /* ../lib/standard/string.nit:163 */
- fra.me.REG[0] = fra.me.REG[2];
- goto label3;
- }
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
- void OC_standard___string___AbstractString___a_to_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- fun_t CREG[1];
- val_t tmp;
- /* ../lib/standard/string.nit:145 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___AbstractString___a_to;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- REGB0 = fra.me.REG[0];
- /* ../lib/standard/string.nit:147 */
- REGB0 = CALL_standard___kernel___Char___to_i(REGB0)(REGB0);
- REGB1 = TAG_Bool(VAL_ISA(closctx->REG[1], VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(closctx->REG[1]));
- /* ../lib/standard/string.nit:148 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:149 */
- if (UNTAG_Bool(closctx->REG[3])) {
- /* ../lib/standard/kernel.nit:246 */
- REGB1 = TAG_Int(-UNTAG_Int(closctx->REG[2]));
- /* ../lib/standard/string.nit:150 */
- closctx->REG[0] = REGB1;
- closctx->has_broke = 1;
- goto label2;
- } else {
- /* ../lib/standard/string.nit:152 */
- closctx->REG[0] = closctx->REG[2];
- closctx->has_broke = 1;
- goto label2;
- }
- } else {
- /* ../lib/standard/string.nit:154 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:154 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:155 */
- REGB1 = TAG_Bool(1);
- closctx->REG[3] = REGB1;
- } else {
- /* ../lib/standard/kernel.nit:248 */
- REGB1 = TAG_Int(UNTAG_Int(closctx->REG[2])*UNTAG_Int(closctx->REG[1]));
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:157 */
- closctx->REG[2] = REGB0;
- }
- }
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_standard___string___AbstractString___is_numeric[] = "string::AbstractString::is_numeric";
-val_t standard___string___AbstractString___is_numeric(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 167;
- fra.me.meth = LOCATE_standard___string___AbstractString___is_numeric;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:175 */
- REGB0 = TAG_Bool(0);
- fra.me.REG[1] = REGB0;
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___string___AbstractString___is_numeric_1));
- switch ((&(fra.me))->has_broke) {
- case 0: break;
- case 1: (&(fra.me))->has_broke = 0; goto label3;
- }
- /* ../lib/standard/string.nit:188 */
- REGB0 = TAG_Bool(1);
- fra.me.REG[0] = REGB0;
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
- void OC_standard___string___AbstractString___is_numeric_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- fun_t CREG[1];
- val_t tmp;
- /* ../lib/standard/string.nit:176 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___AbstractString___is_numeric;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- REGB0 = fra.me.REG[0];
- /* ../lib/standard/string.nit:178 */
- REGB1 = CALL_standard___string___Char___is_numeric(REGB0)(REGB0);
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:180 */
- REGB1 = TAG_Char('.');
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:180 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(1);
- } else {
- REGB1 = TAG_Char(',');
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:180 */
- REGB3 = REGB1;
- }
- REGB2 = REGB3;
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(!UNTAG_Bool(closctx->REG[1]));
- } else {
- REGB3 = TAG_Bool(0);
- REGB2 = REGB3;
- }
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:182 */
- REGB2 = TAG_Bool(1);
- closctx->REG[1] = REGB2;
- } else {
- /* ../lib/standard/string.nit:184 */
- REGB2 = TAG_Bool(0);
- closctx->REG[0] = REGB2;
- closctx->has_broke = 1;
- goto label2;
- }
- }
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_standard___string___AbstractString___to_upper[] = "string::AbstractString::to_upper";
-val_t standard___string___AbstractString___to_upper(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 191;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_upper;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:196 */
- fra.me.REG[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB0);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___string___AbstractString___to_upper_1));
- /* ../lib/standard/string.nit:198 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
- void OC_standard___string___AbstractString___to_upper_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- fun_t CREG[1];
- val_t tmp;
- /* ../lib/standard/string.nit:197 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_upper;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- REGB0 = fra.me.REG[0];
- REGB0 = CALL_standard___kernel___Char___to_upper(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[1])(closctx->REG[1], REGB0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_standard___string___AbstractString___to_lower[] = "string::AbstractString::to_lower";
-val_t standard___string___AbstractString___to_lower(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 201;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_lower;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:206 */
- fra.me.REG[1] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB0);
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___string___AbstractString___to_lower_1));
- /* ../lib/standard/string.nit:208 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
- void OC_standard___string___AbstractString___to_lower_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- fun_t CREG[1];
- val_t tmp;
- /* ../lib/standard/string.nit:207 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___AbstractString___to_lower;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- REGB0 = fra.me.REG[0];
- REGB0 = CALL_standard___kernel___Char___to_lower(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(closctx->REG[1])(closctx->REG[1], REGB0);
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_standard___string___AbstractString___trim[] = "string::AbstractString::trim";
-val_t standard___string___AbstractString___trim(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 211;
- fra.me.meth = LOCATE_standard___string___AbstractString___trim;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:218 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 218);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:218 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- }
- /* ../lib/standard/string.nit:220 */
- REGB2 = TAG_Int(0);
- /* ../lib/standard/string.nit:221 */
- while(1) {
- REGB1 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB2);
- /* ../lib/standard/kernel.nit:471 */
- REGB1 = TAG_Int((unsigned char)UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:221 */
- REGB0 = TAG_Int(32);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:221 */
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/string.nit:222 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:222 */
- REGB2 = REGB0;
- /* ../lib/standard/string.nit:223 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 223);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB0));
- if (UNTAG_Bool(REGB1)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB0 = TAG_Bool((REGB2)==(REGB0));
- /* ../lib/standard/string.nit:223 */
- REGB1 = REGB0;
- }
- if (UNTAG_Bool(REGB1)) {
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB1);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- } else {
- /* ../lib/standard/string.nit:221 */
- goto label3;
- }
- }
- label3: while(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:226 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:227 */
- while(1) {
- REGB1 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB0);
- /* ../lib/standard/kernel.nit:471 */
- REGB1 = TAG_Int((unsigned char)UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:227 */
- REGB3 = TAG_Int(32);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:227 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:228 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:228 */
- REGB0 = REGB3;
- /* ../lib/standard/string.nit:229 */
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB2));
- /* ../lib/standard/string.nit:229 */
- REGB3 = REGB1;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB2);
- fra.me.REG[2] = CALL_standard___string___Object___to_s(REGB3)(REGB3);
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- } else {
- /* ../lib/standard/string.nit:227 */
- goto label4;
- }
- }
- label4: while(0);
- /* ../lib/standard/kernel.nit:247 */
- REGB0 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:231 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:231 */
- fra.me.REG[0] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB2, REGB3);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___AbstractString___output[] = "string::AbstractString::(kernel::Object::output)";
-void standard___string___AbstractString___output(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 234;
- fra.me.meth = LOCATE_standard___string___AbstractString___output;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:236 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/string.nit:237 */
- while(1) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:237 */
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:238 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 238);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB1 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/kernel.nit:436 */
- printf("%c", (unsigned char)UNTAG_Char(REGB1));;
- /* ../lib/standard/string.nit:239 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:239 */
- REGB0 = REGB1;
- } else {
- /* ../lib/standard/string.nit:237 */
- goto label1;
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___String___index_from[] = "string::String::index_from";
-val_t standard___string___String___index_from(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 252;
- fra.me.meth = LOCATE_standard___string___String___index_from;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:252 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 252);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___String___index_to[] = "string::String::index_to";
-val_t standard___string___String___index_to(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 255;
- fra.me.meth = LOCATE_standard___string___String___index_to;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:255 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 255);
- }
- REGB0 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___String_____bra[] = "string::String::(abstract_collection::SequenceRead::[])";
-val_t standard___string___String_____bra(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 262;
- fra.me.meth = LOCATE_standard___string___String_____bra;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:263 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:263 */
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 263);
- }
- /* ../lib/standard/string.nit:266 */
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 266);
- }
- REGB1 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:266 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 266);
- }
- REGB2 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:266 */
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 266);
- }
- /* ../lib/standard/string.nit:267 */
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 267);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 267);
- }
- REGB2 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:970 */
- REGB2 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/string.nit:267 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB2;
-}
-static const char LOCATE_standard___string___String___substring[] = "string::String::(string::AbstractString::substring)";
-val_t standard___string___String___substring(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 270;
- fra.me.meth = LOCATE_standard___string___String___substring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- REGB1 = p2;
- /* ../lib/standard/string.nit:272 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)>=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:272 */
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 272);
- }
- /* ../lib/standard/string.nit:274 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:274 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:275 */
- REGB1 = REGB2;
- /* ../lib/standard/string.nit:276 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:276 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(0);
- REGB1 = REGB2;
- }
- /* ../lib/standard/string.nit:277 */
- REGB2 = TAG_Int(0);
- REGB0 = REGB2;
- }
- /* ../lib/standard/string.nit:280 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 280);
- }
- REGB2 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:282 */
- REGB3 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 282);
- }
- REGB3 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:282 */
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 282);
- }
- REGB3 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 282);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- fra.me.REG[1] = NEW_String_standard___string___String___from_substring(REGB0, REGB3, fra.me.REG[1]);
- goto label1;
- }
- /* ../lib/standard/string.nit:284 */
- REGB3 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB3));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB3 = TAG_Bool((REGB1)==(REGB3));
- /* ../lib/standard/string.nit:284 */
- REGB2 = REGB3;
- }
- if (UNTAG_Bool(REGB2)) {
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB2 = TAG_Int(0);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB2);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:286 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:286 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 286);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- fra.me.REG[0] = NEW_String_standard___string___String___from_substring(REGB0, REGB2, fra.me.REG[0]);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String___substring_from[] = "string::String::(string::AbstractString::substring_from)";
-val_t standard___string___String___substring_from(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 289;
- fra.me.meth = LOCATE_standard___string___String___substring_from;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:291 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 291);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:291 */
- if (UNTAG_Bool(REGB1)) {
- if (!once_value_1) {
- fra.me.REG[1] = BOX_NativeString("");
- REGB1 = TAG_Int(0);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB1);
- once_value_1 = fra.me.REG[1];
- register_static_object(&once_value_1);
- } else fra.me.REG[1] = once_value_1;
- fra.me.REG[1] = fra.me.REG[1];
- goto label2;
- }
- /* ../lib/standard/string.nit:292 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:292 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Int(0);
- REGB0 = REGB1;
- }
- /* ../lib/standard/string.nit:293 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 293);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB0, REGB1);
- fra.me.REG[1] = fra.me.REG[0];
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String___has_substring[] = "string::String::(string::AbstractString::has_substring)";
-val_t standard___string___String___has_substring(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 296;
- fra.me.meth = LOCATE_standard___string___String___has_substring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = p2;
- /* ../lib/standard/string.nit:298 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 298);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:301 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 301);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:303 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 303);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- /* ../lib/standard/string.nit:305 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 305);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:305 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:305 */
- REGB1 = REGB3;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- goto label1;
- }
- /* ../lib/standard/string.nit:307 */
- REGB3 = CALL_standard___string___String___index_from(fra.me.REG[1])(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:308 */
- REGB2 = REGB4;
- /* ../lib/standard/string.nit:309 */
- REGB4 = CALL_standard___string___String___index_from(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:309 */
- REGB0 = REGB4;
- /* ../lib/standard/string.nit:311 */
- while(1) {
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:311 */
- if (UNTAG_Bool(REGB4)) {
- /* ../lib/standard/string.nit:970 */
- REGB4 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- REGB5 = TAG_Char(UNBOX_NativeString(fra.me.REG[3])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/string.nit:312 */
- REGB6 = TAG_Bool(IS_EQUAL_OO(REGB4,REGB5));
- if (UNTAG_Bool(REGB6)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB5 = TAG_Bool((REGB4)==(REGB5));
- /* ../lib/standard/string.nit:312 */
- REGB6 = REGB5;
- }
- REGB6 = TAG_Bool(!UNTAG_Bool(REGB6));
- if (UNTAG_Bool(REGB6)) {
- REGB6 = TAG_Bool(0);
- REGB1 = REGB6;
- goto label1;
- }
- /* ../lib/standard/string.nit:313 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB6 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:313 */
- REGB0 = REGB6;
- /* ../lib/standard/string.nit:314 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB6 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:314 */
- REGB2 = REGB6;
- } else {
- /* ../lib/standard/string.nit:311 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:317 */
- REGB2 = TAG_Bool(1);
- REGB1 = REGB2;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___String___to_upper[] = "string::String::(string::AbstractString::to_upper)";
-val_t standard___string___String___to_upper(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 320;
- fra.me.meth = LOCATE_standard___string___String___to_upper;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:322 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 322);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:323 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/string.nit:325 */
- REGB0 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 325);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:326 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 326);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:327 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 327);
- }
- REGB2 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- /* ../lib/standard/string.nit:329 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:329 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:970 */
- REGB3 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:330 */
- REGB3 = CALL_standard___kernel___Char___to_upper(REGB3)(REGB3);
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB1)]=UNTAG_Char(REGB3);;
- /* ../lib/standard/string.nit:331 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:331 */
- REGB1 = REGB3;
- /* ../lib/standard/string.nit:332 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:332 */
- REGB0 = REGB3;
- } else {
- /* ../lib/standard/string.nit:329 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:335 */
- REGB1 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB0)]=UNTAG_Char(REGB1);;
- /* ../lib/standard/string.nit:337 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 337);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB1);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String___to_lower[] = "string::String::(string::AbstractString::to_lower)";
-val_t standard___string___String___to_lower(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 340;
- fra.me.meth = LOCATE_standard___string___String___to_lower;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:342 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 342);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:343 */
- REGB1 = TAG_Int(0);
- /* ../lib/standard/string.nit:345 */
- REGB0 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 345);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:346 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 346);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:347 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 347);
- }
- REGB2 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- /* ../lib/standard/string.nit:349 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:349 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:970 */
- REGB3 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:350 */
- REGB3 = CALL_standard___kernel___Char___to_lower(REGB3)(REGB3);
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB1)]=UNTAG_Char(REGB3);;
- /* ../lib/standard/string.nit:351 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:351 */
- REGB1 = REGB3;
- /* ../lib/standard/string.nit:352 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:352 */
- REGB0 = REGB3;
- } else {
- /* ../lib/standard/string.nit:349 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:355 */
- REGB1 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB0)]=UNTAG_Char(REGB1);;
- /* ../lib/standard/string.nit:357 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 357);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB1);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String___trim[] = "string::String::(string::AbstractString::trim)";
-val_t standard___string___String___trim(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 360;
- fra.me.meth = LOCATE_standard___string___String___trim;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:362 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 362);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:362 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- }
- /* ../lib/standard/string.nit:364 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 364);
- }
- REGB2 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:365 */
- while(1) {
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 365);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB1 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/kernel.nit:471 */
- REGB1 = TAG_Int((unsigned char)UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:365 */
- REGB0 = TAG_Int(32);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:365 */
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/string.nit:366 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:366 */
- REGB2 = REGB0;
- /* ../lib/standard/string.nit:367 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 367);
- }
- REGB0 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:367 */
- REGB0 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB0)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* ../lib/standard/string.nit:367 */
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- } else {
- /* ../lib/standard/string.nit:365 */
- goto label3;
- }
- }
- label3: while(0);
- /* ../lib/standard/string.nit:370 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 370);
- }
- REGB0 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- /* ../lib/standard/string.nit:371 */
- while(1) {
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 371);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB1 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/kernel.nit:471 */
- REGB1 = TAG_Int((unsigned char)UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:371 */
- REGB3 = TAG_Int(32);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:371 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:372 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:372 */
- REGB0 = REGB3;
- /* ../lib/standard/string.nit:373 */
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB2));
- /* ../lib/standard/string.nit:373 */
- REGB3 = REGB1;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 373);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB3 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/string.nit:373 */
- fra.me.REG[2] = CALL_standard___string___Object___to_s(REGB3)(REGB3);
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- } else {
- /* ../lib/standard/string.nit:371 */
- goto label4;
- }
- }
- label4: while(0);
- /* ../lib/standard/string.nit:375 */
- REGB3 = CALL_standard___string___String___index_from(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:247 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:375 */
- REGB2 = REGB3;
- /* ../lib/standard/string.nit:376 */
- REGB3 = CALL_standard___string___String___index_from(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:247 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:376 */
- REGB0 = REGB3;
- /* ../lib/standard/kernel.nit:247 */
- REGB0 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:377 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:377 */
- fra.me.REG[0] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB2, REGB3);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String___output[] = "string::String::(kernel::Object::output)";
-void standard___string___String___output(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 380;
- fra.me.meth = LOCATE_standard___string___String___output;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:382 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 382);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:383 */
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 383);
- }
- REGB1 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- /* ../lib/standard/string.nit:384 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:384 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:385 */
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 385);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB2 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/kernel.nit:436 */
- printf("%c", (unsigned char)UNTAG_Char(REGB2));;
- /* ../lib/standard/string.nit:386 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:386 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/string.nit:384 */
- goto label1;
- }
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___String___from_substring[] = "string::String::from_substring";
-void standard___string___String___from_substring(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table){
- int itpos0 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___String].i;
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- if (init_table[itpos0]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 394;
- fra.me.meth = LOCATE_standard___string___String___from_substring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- REGB1 = p2;
- fra.me.REG[1] = p3;
- /* ../lib/standard/string.nit:402 */
- ATTR_standard___string___AbstractString____items(fra.me.REG[0]) = fra.me.REG[1];
- /* ../lib/standard/string.nit:403 */
- ATTR_standard___string___String____index_from(fra.me.REG[0]) = REGB0;
- /* ../lib/standard/string.nit:404 */
- ATTR_standard___string___String____index_to(fra.me.REG[0]) = REGB1;
- /* ../lib/standard/kernel.nit:247 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:405 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:405 */
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]) = REGB1;
- stack_frame_head = fra.me.prev;
- init_table[itpos0] = 1;
- return;
-}
-static const char LOCATE_standard___string___String___with_infos[] = "string::String::with_infos";
-void standard___string___String___with_infos(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4, int* init_table){
- int itpos1 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___String].i;
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- if (init_table[itpos1]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 408;
- fra.me.meth = LOCATE_standard___string___String___with_infos;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = p2;
- REGB1 = p3;
- REGB2 = p4;
- /* ../lib/standard/string.nit:410 */
- ATTR_standard___string___AbstractString____items(fra.me.REG[0]) = fra.me.REG[1];
- /* ../lib/standard/string.nit:411 */
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]) = REGB0;
- /* ../lib/standard/string.nit:412 */
- ATTR_standard___string___String____index_from(fra.me.REG[0]) = REGB1;
- /* ../lib/standard/string.nit:413 */
- ATTR_standard___string___String____index_to(fra.me.REG[0]) = REGB2;
- stack_frame_head = fra.me.prev;
- init_table[itpos1] = 1;
- return;
-}
-static const char LOCATE_standard___string___String___to_cstring[] = "string::String::to_cstring";
-val_t standard___string___String___to_cstring(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 416;
- fra.me.meth = LOCATE_standard___string___String___to_cstring;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:419 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 419);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:419 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_to(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_to", LOCATE_standard___string, 419);
- }
- REGB0 = ATTR_standard___string___String____index_to(fra.me.REG[0]);
- fra.me.REG[1] = CALL_standard___string___AbstractString___items(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = CALL_standard___string___NativeString___cstring_length(fra.me.REG[1])(fra.me.REG[1]);
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:419 */
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB3));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB3 = TAG_Bool((REGB0)==(REGB3));
- /* ../lib/standard/string.nit:419 */
- REGB2 = REGB3;
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:420 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 420);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB2) * sizeof(char))));
- /* ../lib/standard/string.nit:421 */
- fra.me.REG[2] = CALL_standard___string___AbstractString___items(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 421);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 421);
- }
- REGB1 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- REGB3 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB3), UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB1), UNTAG_Int(REGB2));;
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:422 */
- REGB1 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB3)]=UNTAG_Char(REGB1);;
- /* ../lib/standard/string.nit:423 */
- goto label1;
- }
- /* ../lib/standard/string.nit:425 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 425);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___String_____eqeq[] = "string::String::(kernel::Object::==)";
-val_t standard___string___String_____eqeq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 428;
- fra.me.meth = LOCATE_standard___string___String_____eqeq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:430 */
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_standard___string___String, ID_standard___string___String)) /*cast String*/;
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(1);
- } else {
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(0);
- goto label1;
- }
- /* ../lib/standard/string.nit:432 */
- REGB1 = CALL_standard___kernel___Object___object_id(fra.me.REG[0])(fra.me.REG[0]);
- REGB2 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 432);
- }
- REGB2 = CALL_standard___kernel___Object___object_id(fra.me.REG[1])(fra.me.REG[1]);
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Bool((REGB1)==(REGB2));
- /* ../lib/standard/string.nit:432 */
- REGB3 = REGB2;
- }
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(1);
- REGB0 = REGB3;
- goto label1;
- }
- /* ../lib/standard/string.nit:434 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 434);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:436 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 436);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- REGB1 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB3));
- if (UNTAG_Bool(REGB1)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Bool((REGB2)==(REGB3));
- /* ../lib/standard/string.nit:436 */
- REGB1 = REGB2;
- }
- REGB1 = TAG_Bool(!UNTAG_Bool(REGB1));
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- goto label1;
- }
- /* ../lib/standard/string.nit:438 */
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 438);
- }
- REGB1 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:439 */
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 439);
- }
- REGB2 = ATTR_standard___string___String____index_from(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:443 */
- REGB4 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 443);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- /* ../lib/standard/string.nit:444 */
- REGB4 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 444);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:446 */
- while(1) {
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:446 */
- if (UNTAG_Bool(REGB4)) {
- /* ../lib/standard/string.nit:970 */
- REGB4 = TAG_Char(UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB1)]);
- REGB5 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/string.nit:447 */
- REGB6 = TAG_Bool(IS_EQUAL_OO(REGB4,REGB5));
- if (UNTAG_Bool(REGB6)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB5 = TAG_Bool((REGB4)==(REGB5));
- /* ../lib/standard/string.nit:447 */
- REGB6 = REGB5;
- }
- REGB6 = TAG_Bool(!UNTAG_Bool(REGB6));
- if (UNTAG_Bool(REGB6)) {
- REGB6 = TAG_Bool(0);
- REGB0 = REGB6;
- goto label1;
- }
- /* ../lib/standard/string.nit:448 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB6 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:448 */
- REGB1 = REGB6;
- /* ../lib/standard/string.nit:449 */
- REGB6 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB6 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:449 */
- REGB2 = REGB6;
- } else {
- /* ../lib/standard/string.nit:446 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:452 */
- REGB2 = TAG_Bool(1);
- REGB0 = REGB2;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___String_____l[] = "string::String::(kernel::Comparable::<)";
-val_t standard___string___String_____l(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t REGB7;
- val_t REGB8;
- val_t REGB9;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 455;
- fra.me.meth = LOCATE_standard___string___String_____l;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], VTCOLOR_standard___kernel___Comparable___OTHER(fra.me.REG[0]), VTID_standard___kernel___Comparable___OTHER(fra.me.REG[0]))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___string, 0);
- }
- /* ../lib/standard/string.nit:460 */
- REGB0 = CALL_standard___kernel___Object___object_id(fra.me.REG[0])(fra.me.REG[0]);
- REGB1 = CALL_standard___kernel___Object___object_id(fra.me.REG[1])(fra.me.REG[1]);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:460 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(0);
- goto label1;
- }
- /* ../lib/standard/string.nit:465 */
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 465);
- }
- REGB1 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:466 */
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 466);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[1]);
- /* ../lib/standard/string.nit:468 */
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 468);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:469 */
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 469);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- /* ../lib/standard/string.nit:471 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 471);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:472 */
- REGB4 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 472);
- }
- REGB4 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:476 */
- while(1) {
- REGB6 = TAG_Bool(VAL_ISA(REGB5, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB6)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB6 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB5));
- /* ../lib/standard/string.nit:476 */
- if (UNTAG_Bool(REGB6)) {
- /* ../lib/standard/string.nit:970 */
- REGB6 = TAG_Char(UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB1)]);
- REGB7 = TAG_Char(UNBOX_NativeString(fra.me.REG[3])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:480 */
- REGB8 = TAG_Bool(IS_EQUAL_OO(REGB6,REGB7));
- if (UNTAG_Bool(REGB8)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB9 = TAG_Bool((REGB6)==(REGB7));
- /* ../lib/standard/string.nit:480 */
- REGB8 = REGB9;
- }
- REGB8 = TAG_Bool(!UNTAG_Bool(REGB8));
- if (UNTAG_Bool(REGB8)) {
- REGB8 = TAG_Bool(VAL_ISA(REGB7, VTCOLOR_standard___kernel___Comparable___OTHER(REGB6), VTID_standard___kernel___Comparable___OTHER(REGB6))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB8)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:439 */
- REGB7 = TAG_Bool(UNTAG_Char(REGB6)<UNTAG_Char(REGB7));
- /* ../lib/standard/string.nit:481 */
- if (UNTAG_Bool(REGB7)) {
- REGB7 = TAG_Bool(1);
- REGB2 = REGB7;
- goto label1;
- }
- /* ../lib/standard/string.nit:482 */
- REGB7 = TAG_Bool(0);
- REGB2 = REGB7;
- goto label1;
- }
- /* ../lib/standard/string.nit:485 */
- REGB7 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB7 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB7));
- /* ../lib/standard/string.nit:485 */
- REGB1 = REGB7;
- /* ../lib/standard/string.nit:486 */
- REGB7 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB7 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB7));
- /* ../lib/standard/string.nit:486 */
- REGB0 = REGB7;
- } else {
- /* ../lib/standard/string.nit:476 */
- goto label2;
- }
- }
- label2: while(0);
- REGB0 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB4 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:489 */
- REGB2 = REGB4;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB2;
-}
-static const char LOCATE_standard___string___String_____plus[] = "string::String::+";
-val_t standard___string___String_____plus(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 492;
- fra.me.meth = LOCATE_standard___string___String_____plus;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:497 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 497);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:498 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 498);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:502 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[2] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB4) * sizeof(char))));
- /* ../lib/standard/string.nit:504 */
- REGB4 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 504);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- REGB4 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 504);
- }
- REGB4 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- REGB3 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB3), UNBOX_NativeString(fra.me.REG[3])+UNTAG_Int(REGB4), UNTAG_Int(REGB0));;
- /* ../lib/standard/string.nit:505 */
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 505);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- REGB3 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 505);
- }
- REGB3 = ATTR_standard___string___String____index_from(fra.me.REG[1]);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB0), UNBOX_NativeString(fra.me.REG[3])+UNTAG_Int(REGB3), UNTAG_Int(REGB1));;
- /* ../lib/standard/string.nit:507 */
- REGB0 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[2])[UNTAG_Int(REGB2)]=UNTAG_Char(REGB0);;
- /* ../lib/standard/string.nit:509 */
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB2);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
-}
-static const char LOCATE_standard___string___String_____star[] = "string::String::*";
-val_t standard___string___String_____star(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 512;
- fra.me.meth = LOCATE_standard___string___String_____star;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:519 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:519 */
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 519);
- }
- /* ../lib/standard/string.nit:521 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 521);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:248 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)*UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:525 */
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 525);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:527 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[0] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB3) * sizeof(char))));
- /* ../lib/standard/string.nit:529 */
- REGB3 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB2)]=UNTAG_Char(REGB3);;
- /* ../lib/standard/string.nit:531 */
- REGB3 = TAG_Int(0);
- /* ../lib/standard/string.nit:533 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:393 */
- while(1) {
- REGB5 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4), VTID_standard___kernel___Comparable___OTHER(REGB4))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB5 = TAG_Bool(UNTAG_Int(REGB4)<=UNTAG_Int(REGB0));
- /* ../lib/standard/kernel.nit:393 */
- if (UNTAG_Bool(REGB5)) {
- /* ../lib/standard/string.nit:534 */
- REGB5 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[0])+UNTAG_Int(REGB3), UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB5), UNTAG_Int(REGB1));;
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:535 */
- REGB3 = REGB5;
- /* ../lib/standard/kernel.nit:395 */
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB4)+UNTAG_Int(REGB5));
- /* ../lib/standard/kernel.nit:395 */
- REGB4 = REGB5;
- } else {
- /* ../lib/standard/kernel.nit:393 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/string.nit:538 */
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB2);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___String___to_s[] = "string::String::(string::Object::to_s)";
-val_t standard___string___String___to_s(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 541;
- fra.me.meth = LOCATE_standard___string___String___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:541 */
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___String___hash[] = "string::String::(hash::Object::hash)";
-val_t standard___string___String___hash(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 543;
- fra.me.meth = LOCATE_standard___string___String___hash;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:546 */
- REGB0 = TAG_Int(5381);
- /* ../lib/standard/string.nit:547 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 547);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:549 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 549);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:550 */
- REGB1 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 550);
- }
- REGB1 = ATTR_standard___string___String____index_from(fra.me.REG[0]);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:552 */
- REGB2 = REGB3;
- /* ../lib/standard/string.nit:554 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:554 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:555 */
- REGB3 = TAG_Int(32);
- /* ../lib/standard/kernel.nit:248 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)*UNTAG_Int(REGB3));
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:555 */
- REGB4 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 555);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:970 */
- REGB4 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB2)]);
- /* ../lib/standard/kernel.nit:471 */
- REGB4 = TAG_Int((unsigned char)UNTAG_Char(REGB4));
- /* ../lib/standard/kernel.nit:245 */
- REGB4 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:555 */
- REGB0 = REGB4;
- /* ../lib/standard/string.nit:556 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB4 = TAG_Int(UNTAG_Int(REGB2)-UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:556 */
- REGB2 = REGB4;
- } else {
- /* ../lib/standard/string.nit:554 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/string.nit:559 */
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___Buffer_____braeq[] = "string::Buffer::(abstract_collection::Sequence::[]=)";
-void standard___string___Buffer_____braeq(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 572;
- fra.me.meth = LOCATE_standard___string___Buffer_____braeq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- REGB1 = p2;
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:574 */
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Bool((REGB0)==(REGB2));
- /* ../lib/standard/string.nit:574 */
- REGB3 = REGB2;
- }
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:575 */
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[0])(fra.me.REG[0], REGB1);
- /* ../lib/standard/string.nit:576 */
- goto label1;
- }
- /* ../lib/standard/string.nit:578 */
- REGB3 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:578 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB3));
- } else {
- /* ../lib/standard/string.nit:578 */
- REGB2 = TAG_Bool(0);
- REGB3 = REGB2;
- }
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 578);
- }
- /* ../lib/standard/string.nit:579 */
- REGB3 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 579);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB0)]=UNTAG_Char(REGB1);;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Buffer___add[] = "string::Buffer::(abstract_collection::SimpleCollection::add)";
-void standard___string___Buffer___add(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 582;
- fra.me.meth = LOCATE_standard___string___Buffer___add;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:584 */
- REGB1 = TAG_Bool(ATTR_standard___string___Buffer____capacity(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string, 584);
- }
- REGB1 = ATTR_standard___string___Buffer____capacity(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:584 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:584 */
- REGB1 = TAG_Int(5);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:584 */
- CALL_standard___collection___array___AbstractArray___enlarge(fra.me.REG[0])(fra.me.REG[0], REGB1);
- }
- /* ../lib/standard/string.nit:585 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 585);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB1)]=UNTAG_Char(REGB0);;
- /* ../lib/standard/string.nit:586 */
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:586 */
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]) = REGB1;
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Buffer___enlarge[] = "string::Buffer::(array::AbstractArray::enlarge)";
-void standard___string___Buffer___enlarge(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 589;
- fra.me.meth = LOCATE_standard___string___Buffer___enlarge;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:591 */
- REGB1 = TAG_Bool(ATTR_standard___string___Buffer____capacity(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string, 591);
- }
- REGB1 = ATTR_standard___string___Buffer____capacity(fra.me.REG[0]);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:592 */
- if (UNTAG_Bool(REGB2)) {
- goto label1;
- }
- /* ../lib/standard/string.nit:593 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:593 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Int(2);
- /* ../lib/standard/kernel.nit:248 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)*UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:593 */
- REGB3 = TAG_Int(2);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:593 */
- REGB1 = REGB3;
- } else {
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:594 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB0) * sizeof(char))));
- /* ../lib/standard/string.nit:595 */
- REGB0 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 595);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:595 */
- REGB3 = TAG_Int(0);
- REGB2 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB2), UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB3), UNTAG_Int(REGB0));;
- /* ../lib/standard/string.nit:596 */
- ATTR_standard___string___AbstractString____items(fra.me.REG[0]) = fra.me.REG[1];
- /* ../lib/standard/string.nit:597 */
- ATTR_standard___string___Buffer____capacity(fra.me.REG[0]) = REGB1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Buffer___append[] = "string::Buffer::(abstract_collection::Sequence::append)";
-void standard___string___Buffer___append(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 600;
- fra.me.meth = LOCATE_standard___string___Buffer___append;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:600 */
- fra.me.REG[2] = fra.me.REG[0];
- fra.me.REG[3] = fra.me.REG[1];
- /* ../lib/standard/string.nit:602 */
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[3], COLOR_standard___string___String, ID_standard___string___String)) /*cast String*/;
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[3]);
- /* ../lib/standard/string.nit:604 */
- REGB1 = TAG_Bool(ATTR_standard___string___Buffer____capacity(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string, 604);
- }
- REGB1 = ATTR_standard___string___Buffer____capacity(fra.me.REG[2]);
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 604);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:604 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 604);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:604 */
- CALL_standard___collection___array___AbstractArray___enlarge(fra.me.REG[2])(fra.me.REG[2], REGB2);
- }
- /* ../lib/standard/string.nit:605 */
- fra.me.REG[4] = CALL_standard___string___AbstractString___items(fra.me.REG[3])(fra.me.REG[3]);
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 605);
- }
- fra.me.REG[5] = ATTR_standard___string___AbstractString____items(fra.me.REG[2]);
- REGB2 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[3])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 605);
- }
- REGB2 = ATTR_standard___string___String____index_from(fra.me.REG[3]);
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 605);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[5])+UNTAG_Int(REGB1), UNBOX_NativeString(fra.me.REG[4])+UNTAG_Int(REGB2), UNTAG_Int(REGB0));;
- /* ../lib/standard/string.nit:606 */
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:245 */
- REGB0 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:606 */
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]) = REGB0;
- } else {
- /* ../lib/standard/string.nit:608 */
- CALL_SUPER_standard___string___Buffer___append(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[1]);
- }
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Buffer___to_s[] = "string::Buffer::(string::Object::to_s)";
-val_t standard___string___Buffer___to_s(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 612;
- fra.me.meth = LOCATE_standard___string___Buffer___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:615 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:616 */
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 616);
- }
- fra.me.REG[2] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB2), UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB1), UNTAG_Int(REGB0));;
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:619 */
- REGB1 = TAG_Char('\0');
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB2)]=UNTAG_Char(REGB1);;
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:621 */
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB1);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Buffer_____l[] = "string::Buffer::(kernel::Comparable::<)";
-val_t standard___string___Buffer_____l(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 624;
- fra.me.meth = LOCATE_standard___string___Buffer_____l;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = TAG_Bool(VAL_ISA(fra.me.REG[1], VTCOLOR_standard___kernel___Comparable___OTHER(fra.me.REG[0]), VTID_standard___kernel___Comparable___OTHER(fra.me.REG[0]))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___string, 0);
- }
- /* ../lib/standard/string.nit:626 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/string.nit:629 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:629 */
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB2));
- } else {
- /* ../lib/standard/string.nit:629 */
- REGB4 = TAG_Bool(0);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:630 */
- REGB3 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB0);
- /* ../lib/standard/kernel.nit:471 */
- REGB3 = TAG_Int((unsigned char)UNTAG_Char(REGB3));
- /* ../lib/standard/string.nit:631 */
- REGB4 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[1])(fra.me.REG[1], REGB0);
- /* ../lib/standard/kernel.nit:471 */
- REGB4 = TAG_Int((unsigned char)UNTAG_Char(REGB4));
- REGB5 = TAG_Bool(VAL_ISA(REGB4, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB5)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB5 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:632 */
- if (UNTAG_Bool(REGB5)) {
- /* ../lib/standard/string.nit:633 */
- REGB5 = TAG_Bool(1);
- goto label1;
- } else {
- REGB6 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4), VTID_standard___kernel___Comparable___OTHER(REGB4))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB6)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB4)<UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:634 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:635 */
- REGB3 = TAG_Bool(0);
- REGB5 = REGB3;
- goto label1;
- }
- }
- /* ../lib/standard/string.nit:637 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:637 */
- REGB0 = REGB3;
- } else {
- /* ../lib/standard/string.nit:629 */
- goto label2;
- }
- }
- label2: while(0);
- REGB0 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:639 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:640 */
- REGB2 = TAG_Bool(1);
- REGB5 = REGB2;
- goto label1;
- } else {
- /* ../lib/standard/string.nit:642 */
- REGB2 = TAG_Bool(0);
- REGB5 = REGB2;
- goto label1;
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB5;
-}
-static const char LOCATE_standard___string___Buffer___init[] = "string::Buffer::init";
-void standard___string___Buffer___init(val_t p0, int* init_table){
- int itpos2 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___Buffer].i;
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- if (init_table[itpos2]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 646;
- fra.me.meth = LOCATE_standard___string___Buffer___init;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:649 */
- REGB0 = TAG_Int(5);
- CALL_standard___string___Buffer___with_capacity(fra.me.REG[0])(fra.me.REG[0], REGB0, init_table);
- stack_frame_head = fra.me.prev;
- init_table[itpos2] = 1;
- return;
-}
-static const char LOCATE_standard___string___Buffer___from[] = "string::Buffer::from";
-void standard___string___Buffer___from(val_t p0, val_t p1, int* init_table){
- int itpos3 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___Buffer].i;
- struct {struct stack_frame_t me; val_t MORE_REG[3];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- if (init_table[itpos3]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 652;
- fra.me.meth = LOCATE_standard___string___Buffer___from;
- fra.me.has_broke = 0;
- fra.me.REG_size = 4;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/string.nit:654 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:654 */
- ATTR_standard___string___Buffer____capacity(fra.me.REG[0]) = REGB1;
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/string.nit:655 */
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]) = REGB1;
- /* ../lib/standard/string.nit:656 */
- REGB1 = TAG_Bool(ATTR_standard___string___Buffer____capacity(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string, 656);
- }
- REGB1 = ATTR_standard___string___Buffer____capacity(fra.me.REG[0]);
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[2] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:656 */
- ATTR_standard___string___AbstractString____items(fra.me.REG[0]) = fra.me.REG[2];
- /* ../lib/standard/string.nit:657 */
- fra.me.REG[2] = CALL_standard___string___AbstractString___items(fra.me.REG[1])(fra.me.REG[1]);
- REGB1 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 657);
- }
- fra.me.REG[3] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___string, 657);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- REGB0 = TAG_Bool(ATTR_standard___string___String____index_from(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_index_from", LOCATE_standard___string, 657);
- }
- REGB0 = ATTR_standard___string___String____index_from(fra.me.REG[1]);
- REGB2 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[3])+UNTAG_Int(REGB2), UNBOX_NativeString(fra.me.REG[2])+UNTAG_Int(REGB0), UNTAG_Int(REGB1));;
- stack_frame_head = fra.me.prev;
- init_table[itpos3] = 1;
- return;
-}
-static const char LOCATE_standard___string___Buffer___with_capacity[] = "string::Buffer::with_capacity";
-void standard___string___Buffer___with_capacity(val_t p0, val_t p1, int* init_table){
- int itpos4 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___Buffer].i;
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- if (init_table[itpos4]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 660;
- fra.me.meth = LOCATE_standard___string___Buffer___with_capacity;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:663 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:663 */
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 663);
- }
- /* ../lib/standard/string.nit:665 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:665 */
- ATTR_standard___string___AbstractString____items(fra.me.REG[0]) = fra.me.REG[1];
- /* ../lib/standard/string.nit:666 */
- ATTR_standard___string___Buffer____capacity(fra.me.REG[0]) = REGB0;
- /* ../lib/standard/string.nit:667 */
- REGB0 = TAG_Int(0);
- ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]) = REGB0;
- stack_frame_head = fra.me.prev;
- init_table[itpos4] = 1;
- return;
-}
-static const char LOCATE_standard___string___Buffer_____eqeq[] = "string::Buffer::(kernel::Object::==)";
-val_t standard___string___Buffer_____eqeq(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 670;
- fra.me.meth = LOCATE_standard___string___Buffer_____eqeq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:672 */
- REGB0 = TAG_Bool((fra.me.REG[1]!=NIT_NULL) && VAL_ISA(fra.me.REG[1], COLOR_standard___string___Buffer, ID_standard___string___Buffer)) /*cast Buffer*/;
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(1);
- } else {
- REGB1 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- REGB0 = REGB1;
- }
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(0);
- goto label1;
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:674 */
- REGB2 = TAG_Bool(fra.me.REG[1]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 674);
- }
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[1]);
- /* ../lib/standard/string.nit:674 */
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB2 = TAG_Bool((REGB2)==(REGB1));
- /* ../lib/standard/string.nit:674 */
- REGB3 = REGB2;
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(0);
- REGB0 = REGB3;
- goto label1;
- }
- /* ../lib/standard/string.nit:675 */
- REGB3 = TAG_Int(0);
- /* ../lib/standard/string.nit:676 */
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 676);
- }
- fra.me.REG[0] = ATTR_standard___string___AbstractString____items(fra.me.REG[0]);
- /* ../lib/standard/string.nit:677 */
- REGB2 = TAG_Bool(ATTR_standard___string___AbstractString____items(fra.me.REG[1])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_items", LOCATE_standard___string, 677);
- }
- fra.me.REG[1] = ATTR_standard___string___AbstractString____items(fra.me.REG[1]);
- /* ../lib/standard/string.nit:678 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB3), VTID_standard___kernel___Comparable___OTHER(REGB3))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB3)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:678 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:970 */
- REGB2 = TAG_Char(UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB3)]);
- REGB4 = TAG_Char(UNBOX_NativeString(fra.me.REG[1])[UNTAG_Int(REGB3)]);
- /* ../lib/standard/string.nit:679 */
- REGB5 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB4));
- if (UNTAG_Bool(REGB5)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB4 = TAG_Bool((REGB2)==(REGB4));
- /* ../lib/standard/string.nit:679 */
- REGB5 = REGB4;
- }
- REGB5 = TAG_Bool(!UNTAG_Bool(REGB5));
- if (UNTAG_Bool(REGB5)) {
- REGB5 = TAG_Bool(0);
- REGB0 = REGB5;
- goto label1;
- }
- /* ../lib/standard/string.nit:680 */
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB5));
- /* ../lib/standard/string.nit:680 */
- REGB3 = REGB5;
- } else {
- /* ../lib/standard/string.nit:678 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:682 */
- REGB3 = TAG_Bool(1);
- REGB0 = REGB3;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___Buffer___capacity[] = "string::Buffer::capacity";
-val_t standard___string___Buffer___capacity(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 685;
- fra.me.meth = LOCATE_standard___string___Buffer___capacity;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:685 */
- REGB0 = TAG_Bool(ATTR_standard___string___Buffer____capacity(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_capacity", LOCATE_standard___string, 685);
- }
- REGB0 = ATTR_standard___string___Buffer____capacity(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___Object___to_s[] = "string::Object::to_s";
-val_t standard___string___Object___to_s(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 693;
- fra.me.meth = LOCATE_standard___string___Object___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:694 */
- fra.me.REG[0] = CALL_standard___string___Object___inspect(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Object___native_class_name[] = "string::Object::native_class_name";
-val_t standard___string___Object___native_class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 696;
- fra.me.meth = LOCATE_standard___string___Object___native_class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:696 */
- fra.me.REG[0] = BOX_NativeString(VAL2VFT(fra.me.REG[0])[2].cname);;
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Object___class_name[] = "string::Object::class_name";
-val_t standard___string___Object___class_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 699;
- fra.me.meth = LOCATE_standard___string___Object___class_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:702 */
- fra.me.REG[0] = CALL_standard___string___Object___native_class_name(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Object___inspect[] = "string::Object::inspect";
-val_t standard___string___Object___inspect(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 704;
- fra.me.meth = LOCATE_standard___string___Object___inspect;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:708 */
- REGB0 = TAG_Int(3);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("<");
- REGB0 = TAG_Int(1);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- fra.me.REG[0] = CALL_standard___string___Object___inspect_head(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString(">");
- REGB0 = TAG_Int(1);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Object___inspect_head[] = "string::Object::inspect_head";
-val_t standard___string___Object___inspect_head(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_3; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 711;
- fra.me.meth = LOCATE_standard___string___Object___inspect_head;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:715 */
- REGB0 = TAG_Int(5);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- fra.me.REG[2] = CALL_standard___string___Object___class_name(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- if (!once_value_2) {
- fra.me.REG[2] = BOX_NativeString(":#");
- REGB0 = TAG_Int(2);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0);
- once_value_2 = fra.me.REG[2];
- register_static_object(&once_value_2);
- } else fra.me.REG[2] = once_value_2;
- fra.me.REG[2] = fra.me.REG[2];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- REGB0 = CALL_standard___kernel___Object___object_id(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___Int___to_hex(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- if (!once_value_3) {
- fra.me.REG[0] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- once_value_3 = fra.me.REG[0];
- register_static_object(&once_value_3);
- } else fra.me.REG[0] = once_value_3;
- fra.me.REG[0] = fra.me.REG[0];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[0]);
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label4;
- label4: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Object___args[] = "string::Object::args";
-val_t standard___string___Object___args(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 718;
- fra.me.meth = LOCATE_standard___string___Object___args;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:720 */
- fra.me.REG[0] = CALL_standard___kernel___Object___sys(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___Object___args(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Bool___to_s[] = "string::Bool::(string::Object::to_s)";
-val_t standard___string___Bool___to_s(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_2; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 725;
- fra.me.meth = LOCATE_standard___string___Bool___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:729 */
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/string.nit:730 */
- if (!once_value_1) {
- if (!once_value_2) {
- fra.me.REG[0] = BOX_NativeString("true");
- REGB0 = TAG_Int(4);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- once_value_2 = fra.me.REG[0];
- register_static_object(&once_value_2);
- } else fra.me.REG[0] = once_value_2;
- fra.me.REG[0] = fra.me.REG[0];
- once_value_1 = fra.me.REG[0];
- register_static_object(&once_value_1);
- } else fra.me.REG[0] = once_value_1;
- fra.me.REG[0] = fra.me.REG[0];
- goto label3;
- } else {
- /* ../lib/standard/string.nit:732 */
- if (!once_value_4) {
- if (!once_value_5) {
- fra.me.REG[1] = BOX_NativeString("false");
- REGB0 = TAG_Int(5);
- fra.me.REG[1] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[1])(fra.me.REG[1], REGB0);
- once_value_5 = fra.me.REG[1];
- register_static_object(&once_value_5);
- } else fra.me.REG[1] = once_value_5;
- fra.me.REG[1] = fra.me.REG[1];
- once_value_4 = fra.me.REG[1];
- register_static_object(&once_value_4);
- } else fra.me.REG[1] = once_value_4;
- fra.me.REG[1] = fra.me.REG[1];
- fra.me.REG[0] = fra.me.REG[1];
- goto label3;
- }
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Int___fill_buffer[] = "string::Int::fill_buffer";
-void standard___string___Int___fill_buffer(val_t p0, val_t p1, val_t p2, val_t p3){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 738;
- fra.me.meth = LOCATE_standard___string___Int___fill_buffer;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- fra.me.REG[0] = p1;
- REGB1 = p2;
- REGB2 = p3;
- /* ../lib/standard/string.nit:744 */
- REGB2 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:744 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/kernel.nit:246 */
- REGB2 = TAG_Int(-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:746 */
- REGB3 = TAG_Int(0);
- REGB4 = TAG_Char('-');
- CALL_standard___collection___abstract_collection___Sequence_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB3, REGB4);
- } else {
- /* ../lib/standard/string.nit:747 */
- REGB4 = TAG_Int(0);
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB4));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB4 = TAG_Bool((REGB0)==(REGB4));
- /* ../lib/standard/string.nit:747 */
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:748 */
- REGB3 = TAG_Int(0);
- REGB4 = TAG_Char('0');
- CALL_standard___collection___abstract_collection___Sequence_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB3, REGB4);
- /* ../lib/standard/string.nit:749 */
- goto label1;
- } else {
- /* ../lib/standard/string.nit:751 */
- REGB2 = REGB0;
- }
- }
- /* ../lib/standard/string.nit:754 */
- REGB0 = CALL_standard___kernel___Int___digit_count(REGB0)(REGB0, REGB1);
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB4 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB4));
- /* ../lib/standard/string.nit:755 */
- while(1) {
- REGB0 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB4), VTID_standard___kernel___Comparable___OTHER(REGB4))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB4)>=UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:755 */
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Int(0);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB0 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB0));
- } else {
- /* ../lib/standard/string.nit:755 */
- REGB3 = TAG_Bool(0);
- REGB0 = REGB3;
- }
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/kernel.nit:250 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)%UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:756 */
- REGB0 = CALL_standard___kernel___Int___to_c(REGB0)(REGB0);
- CALL_standard___collection___abstract_collection___Sequence_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB4, REGB0);
- /* ../lib/standard/kernel.nit:249 */
- REGB0 = TAG_Int(UNTAG_Int(REGB2)/UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:757 */
- REGB2 = REGB0;
- /* ../lib/standard/string.nit:758 */
- REGB0 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB0 = TAG_Int(UNTAG_Int(REGB4)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:758 */
- REGB4 = REGB0;
- } else {
- /* ../lib/standard/string.nit:755 */
- goto label2;
- }
- }
- label2: while(0);
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Int___native_int_to_s[] = "string::Int::native_int_to_s";
-val_t standard___string___Int___native_int_to_s(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 762;
- fra.me.meth = LOCATE_standard___string___Int___native_int_to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- REGB1 = p1;
- /* ../lib/standard/string.nit:762 */
- fra.me.REG[0] = Int_native_int_to_s___out(REGB0, REGB1);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Int___to_s[] = "string::Int::(string::Object::to_s)";
-val_t standard___string___Int___to_s(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 765;
- fra.me.meth = LOCATE_standard___string___Int___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:770 */
- REGB1 = TAG_Int(10);
- REGB1 = CALL_standard___kernel___Int___digit_count(REGB0)(REGB0, REGB1);
- /* ../lib/standard/string.nit:771 */
- fra.me.REG[0] = CALL_standard___string___Int___native_int_to_s(REGB0)(REGB0, REGB1);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Int___to_hex[] = "string::Int::to_hex";
-val_t standard___string___Int___to_hex(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 774;
- fra.me.meth = LOCATE_standard___string___Int___to_hex;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:775 */
- REGB1 = TAG_Int(16);
- REGB2 = TAG_Bool(0);
- fra.me.REG[0] = CALL_standard___string___Int___to_base(REGB0)(REGB0, REGB1, REGB2);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Int___to_base[] = "string::Int::to_base";
-val_t standard___string___Int___to_base(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 777;
- fra.me.meth = LOCATE_standard___string___Int___to_base;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- REGB1 = p1;
- REGB2 = p2;
- /* ../lib/standard/string.nit:780 */
- REGB3 = CALL_standard___kernel___Int___digit_count(REGB0)(REGB0, REGB1);
- /* ../lib/standard/string.nit:781 */
- if (!once_value_1) {
- fra.me.REG[0] = BOX_NativeString(" ");
- REGB4 = TAG_Int(1);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB4);
- once_value_1 = fra.me.REG[0];
- register_static_object(&once_value_1);
- } else fra.me.REG[0] = once_value_1;
- fra.me.REG[0] = fra.me.REG[0];
- fra.me.REG[0] = CALL_standard___string___String_____star(fra.me.REG[0])(fra.me.REG[0], REGB3);
- fra.me.REG[0] = NEW_Buffer_standard___string___Buffer___from(fra.me.REG[0]);
- /* ../lib/standard/string.nit:782 */
- CALL_standard___string___Int___fill_buffer(REGB0)(REGB0, fra.me.REG[0], REGB1, REGB2);
- /* ../lib/standard/string.nit:783 */
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Float___to_s[] = "string::Float::(string::Object::to_s)";
-val_t standard___string___Float___to_s(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t REGB5;
- val_t REGB6;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 788;
- fra.me.meth = LOCATE_standard___string___Float___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:790 */
- REGB0 = TAG_Int(3);
- fra.me.REG[0] = CALL_standard___string___Float___to_precision(fra.me.REG[0])(fra.me.REG[0], REGB0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB0 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB0 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:792 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:393 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:241 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB1)<=UNTAG_Int(REGB2));
- /* ../lib/standard/kernel.nit:393 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:792 */
- REGB3 = REGB1;
- /* ../lib/standard/string.nit:793 */
- REGB4 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB4 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB4));
- REGB3 = TAG_Int(UNTAG_Int(REGB4)-UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:794 */
- REGB4 = CALL_standard___collection___abstract_collection___SequenceRead_____bra(fra.me.REG[0])(fra.me.REG[0], REGB3);
- /* ../lib/standard/string.nit:795 */
- REGB5 = TAG_Char('0');
- REGB6 = TAG_Bool(IS_EQUAL_OO(REGB4,REGB5));
- if (UNTAG_Bool(REGB6)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB5 = TAG_Bool((REGB4)==(REGB5));
- /* ../lib/standard/string.nit:795 */
- REGB6 = REGB5;
- }
- if (UNTAG_Bool(REGB6)) {
- /* ../lib/standard/string.nit:796 */
- goto label1;
- } else {
- /* ../lib/standard/string.nit:797 */
- REGB6 = TAG_Char('.');
- REGB5 = TAG_Bool(IS_EQUAL_OO(REGB4,REGB6));
- if (UNTAG_Bool(REGB5)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB6 = TAG_Bool((REGB4)==(REGB6));
- /* ../lib/standard/string.nit:797 */
- REGB5 = REGB6;
- }
- if (UNTAG_Bool(REGB5)) {
- /* ../lib/standard/string.nit:798 */
- REGB5 = TAG_Int(0);
- REGB6 = TAG_Int(2);
- /* ../lib/standard/kernel.nit:245 */
- REGB6 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB6));
- /* ../lib/standard/string.nit:798 */
- fra.me.REG[1] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB5, REGB6);
- goto label2;
- } else {
- /* ../lib/standard/string.nit:800 */
- REGB6 = TAG_Int(0);
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB3)+UNTAG_Int(REGB5));
- /* ../lib/standard/string.nit:800 */
- fra.me.REG[2] = CALL_standard___string___AbstractString___substring(fra.me.REG[0])(fra.me.REG[0], REGB6, REGB5);
- fra.me.REG[1] = fra.me.REG[2];
- goto label2;
- }
- }
- label1: while(0);
- /* ../lib/standard/kernel.nit:395 */
- REGB5 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB5 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB5));
- /* ../lib/standard/kernel.nit:395 */
- REGB1 = REGB5;
- } else {
- /* ../lib/standard/kernel.nit:393 */
- goto label3;
- }
- }
- label3: while(0);
- /* ../lib/standard/string.nit:803 */
- fra.me.REG[1] = fra.me.REG[0];
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Float___to_precision[] = "string::Float::to_precision";
-val_t standard___string___Float___to_precision(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[4];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 806;
- fra.me.meth = LOCATE_standard___string___Float___to_precision;
- fra.me.has_broke = 0;
- fra.me.REG_size = 5;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:809 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(IS_EQUAL_OO(REGB0,REGB1));
- if (UNTAG_Bool(REGB2)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB0)==(REGB1));
- /* ../lib/standard/string.nit:809 */
- REGB2 = REGB1;
- }
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/kernel.nit:220 */
- REGB2 = TAG_Int((bigint)UNBOX_Float(fra.me.REG[0]));
- /* ../lib/standard/string.nit:809 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- goto label1;
- }
- /* ../lib/standard/string.nit:810 */
- fra.me.REG[2] = fra.me.REG[0];
- /* ../lib/standard/string.nit:811 */
- REGB2 = TAG_Int(0);
- /* ../lib/standard/kernel.nit:399 */
- REGB1 = REGB0;
- /* ../lib/standard/kernel.nit:404 */
- while(1) {
- REGB3 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB1));
- /* ../lib/standard/kernel.nit:404 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:811 */
- fra.me.REG[3] = BOX_Float(10.0);
- /* ../lib/standard/kernel.nit:217 */
- fra.me.REG[3] = BOX_Float(UNBOX_Float(fra.me.REG[2])*UNBOX_Float(fra.me.REG[3]));
- /* ../lib/standard/string.nit:811 */
- fra.me.REG[2] = fra.me.REG[3];
- /* ../lib/standard/kernel.nit:406 */
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB2)+UNTAG_Int(REGB3));
- /* ../lib/standard/kernel.nit:406 */
- REGB2 = REGB3;
- } else {
- /* ../lib/standard/kernel.nit:404 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:812 */
- fra.me.REG[3] = BOX_Float(0.0);
- /* ../lib/standard/kernel.nit:213 */
- REGB2 = TAG_Bool(UNBOX_Float(fra.me.REG[0])>UNBOX_Float(fra.me.REG[3]));
- /* ../lib/standard/string.nit:812 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:813 */
- fra.me.REG[3] = BOX_Float(0.5);
- /* ../lib/standard/kernel.nit:214 */
- fra.me.REG[3] = BOX_Float(UNBOX_Float(fra.me.REG[2])+UNBOX_Float(fra.me.REG[3]));
- /* ../lib/standard/string.nit:813 */
- fra.me.REG[2] = fra.me.REG[3];
- } else {
- /* ../lib/standard/string.nit:815 */
- fra.me.REG[3] = BOX_Float(0.5);
- /* ../lib/standard/kernel.nit:216 */
- fra.me.REG[3] = BOX_Float(UNBOX_Float(fra.me.REG[2])-UNBOX_Float(fra.me.REG[3]));
- /* ../lib/standard/string.nit:815 */
- fra.me.REG[2] = fra.me.REG[3];
- }
- /* ../lib/standard/kernel.nit:220 */
- REGB2 = TAG_Int((bigint)UNBOX_Float(fra.me.REG[2]));
- /* ../lib/standard/string.nit:818 */
- REGB1 = TAG_Int(0);
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB2,REGB1));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:237 */
- REGB1 = TAG_Bool((REGB2)==(REGB1));
- /* ../lib/standard/string.nit:818 */
- REGB3 = REGB1;
- }
- if (UNTAG_Bool(REGB3)) {
- if (!once_value_3) {
- fra.me.REG[2] = BOX_NativeString("0.0");
- REGB3 = TAG_Int(3);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB3);
- once_value_3 = fra.me.REG[2];
- register_static_object(&once_value_3);
- } else fra.me.REG[2] = once_value_3;
- fra.me.REG[2] = fra.me.REG[2];
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- /* ../lib/standard/string.nit:819 */
- fra.me.REG[2] = CALL_standard___string___Object___to_s(REGB2)(REGB2);
- /* ../lib/standard/collection/array.nit:24 */
- REGB2 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB2 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- REGB3 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:244 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:821 */
- if (UNTAG_Bool(REGB3)) {
- /* ../lib/standard/string.nit:822 */
- REGB3 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:247 */
- REGB1 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:822 */
- fra.me.REG[3] = CALL_standard___string___AbstractString___substring(fra.me.REG[2])(fra.me.REG[2], REGB3, REGB1);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- /* ../lib/standard/kernel.nit:247 */
- REGB1 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:823 */
- fra.me.REG[0] = CALL_standard___string___AbstractString___substring(fra.me.REG[2])(fra.me.REG[2], REGB1, REGB0);
- /* ../lib/standard/string.nit:824 */
- if (!once_value_4) {
- fra.me.REG[4] = BOX_NativeString(".");
- REGB1 = TAG_Int(1);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1);
- once_value_4 = fra.me.REG[4];
- register_static_object(&once_value_4);
- } else fra.me.REG[4] = once_value_4;
- fra.me.REG[4] = fra.me.REG[4];
- fra.me.REG[4] = CALL_standard___string___String_____plus(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[4]);
- fra.me.REG[0] = CALL_standard___string___String_____plus(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[0]);
- fra.me.REG[1] = fra.me.REG[0];
- goto label1;
- } else {
- /* ../lib/standard/string.nit:826 */
- if (!once_value_5) {
- fra.me.REG[0] = BOX_NativeString("0.");
- REGB1 = TAG_Int(2);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB1);
- once_value_5 = fra.me.REG[0];
- register_static_object(&once_value_5);
- } else fra.me.REG[0] = once_value_5;
- fra.me.REG[0] = fra.me.REG[0];
- if (!once_value_6) {
- fra.me.REG[4] = BOX_NativeString("0");
- REGB1 = TAG_Int(1);
- fra.me.REG[4] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[4])(fra.me.REG[4], REGB1);
- once_value_6 = fra.me.REG[4];
- register_static_object(&once_value_6);
- } else fra.me.REG[4] = once_value_6;
- fra.me.REG[4] = fra.me.REG[4];
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:826 */
- fra.me.REG[4] = CALL_standard___string___String_____star(fra.me.REG[4])(fra.me.REG[4], REGB2);
- fra.me.REG[4] = CALL_standard___string___String_____plus(fra.me.REG[0])(fra.me.REG[0], fra.me.REG[4]);
- fra.me.REG[2] = CALL_standard___string___String_____plus(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[2]);
- fra.me.REG[1] = fra.me.REG[2];
- goto label1;
- }
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Float___to_precision_native[] = "string::Float::to_precision_native";
-val_t standard___string___Float___to_precision_native(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 830;
- fra.me.meth = LOCATE_standard___string___Float___to_precision_native;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:830 */
- fra.me.REG[0] = Float_to_precision_native___out(fra.me.REG[0], REGB0);
- ;
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Char___to_s[] = "string::Char::(string::Object::to_s)";
-val_t standard___string___Char___to_s(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 843;
- fra.me.meth = LOCATE_standard___string___Char___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:846 */
- REGB1 = TAG_Int(1);
- fra.me.REG[0] = NEW_Buffer_standard___string___Buffer___with_capacity(REGB1);
- /* ../lib/standard/string.nit:847 */
- REGB1 = TAG_Int(0);
- CALL_standard___collection___abstract_collection___Sequence_____braeq(fra.me.REG[0])(fra.me.REG[0], REGB1, REGB0);
- /* ../lib/standard/string.nit:848 */
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Char___is_numeric[] = "string::Char::is_numeric";
-val_t standard___string___Char___is_numeric(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 851;
- fra.me.meth = LOCATE_standard___string___Char___is_numeric;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:854 */
- REGB1 = TAG_Char('0');
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:440 */
- REGB1 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:854 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Char('9');
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:438 */
- REGB1 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB1));
- } else {
- /* ../lib/standard/string.nit:854 */
- REGB0 = TAG_Bool(0);
- REGB1 = REGB0;
- }
- if (UNTAG_Bool(REGB1)) {
- /* ../lib/standard/string.nit:856 */
- REGB1 = TAG_Bool(1);
- goto label1;
- }
- /* ../lib/standard/string.nit:858 */
- REGB0 = TAG_Bool(0);
- REGB1 = REGB0;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___Char___is_alpha[] = "string::Char::is_alpha";
-val_t standard___string___Char___is_alpha(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 861;
- fra.me.meth = LOCATE_standard___string___Char___is_alpha;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:864 */
- REGB1 = TAG_Char('a');
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:440 */
- REGB1 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB1));
- /* ../lib/standard/string.nit:864 */
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Char('z');
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:438 */
- REGB1 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB1));
- } else {
- /* ../lib/standard/string.nit:864 */
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- REGB2 = TAG_Char('A');
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:440 */
- REGB2 = TAG_Bool(UNTAG_Char(REGB0)>=UNTAG_Char(REGB2));
- /* ../lib/standard/string.nit:864 */
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Char('Z');
- REGB3 = TAG_Bool(VAL_ISA(REGB2, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:438 */
- REGB2 = TAG_Bool(UNTAG_Char(REGB0)<=UNTAG_Char(REGB2));
- } else {
- /* ../lib/standard/string.nit:864 */
- REGB0 = TAG_Bool(0);
- REGB2 = REGB0;
- }
- REGB1 = REGB2;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- goto label1;
- }
- /* ../lib/standard/string.nit:865 */
- REGB2 = TAG_Bool(0);
- REGB1 = REGB2;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___Char___is_alphanumeric[] = "string::Char::is_alphanumeric";
-val_t standard___string___Char___is_alphanumeric(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 868;
- fra.me.meth = LOCATE_standard___string___Char___is_alphanumeric;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- REGB0 = p0;
- /* ../lib/standard/string.nit:871 */
- REGB1 = CALL_standard___string___Char___is_numeric(REGB0)(REGB0);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- } else {
- REGB0 = CALL_standard___string___Char___is_alpha(REGB0)(REGB0);
- REGB1 = REGB0;
- }
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(1);
- goto label1;
- }
- /* ../lib/standard/string.nit:872 */
- REGB0 = TAG_Bool(0);
- REGB1 = REGB0;
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return REGB1;
-}
-static const char LOCATE_standard___string___Collection___to_s[] = "string::Collection::(string::Object::to_s)";
-val_t standard___string___Collection___to_s(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 877;
- fra.me.meth = LOCATE_standard___string___Collection___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:880 */
- fra.me.REG[1] = NEW_Buffer_standard___string___Buffer___init();
- CALL_standard___collection___abstract_collection___Collection___iterate(fra.me.REG[0])(fra.me.REG[0], (&(fra.me)), ((fun_t)OC_standard___string___Collection___to_s_1));
- /* ../lib/standard/string.nit:882 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
- void OC_standard___string___Collection___to_s_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- fun_t CREG[1];
- val_t tmp;
- /* ../lib/standard/string.nit:881 */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___Collection___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.closure_ctx = closctx_param;
- fra.me.closure_funs = CREG;
- fra.me.REG[0] = p0;
- CREG[0] = clos_fun0;
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[0])(fra.me.REG[0], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[0]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 881);
- }
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- CALL_standard___collection___abstract_collection___Sequence___append(closctx->REG[1])(closctx->REG[1], fra.me.REG[0]);
- }
- stack_frame_head = fra.me.prev;
- return;
- }
-static const char LOCATE_standard___string___Collection___join[] = "string::Collection::join";
-val_t standard___string___Collection___join(val_t p0, val_t p1){
- struct {struct stack_frame_t me; val_t MORE_REG[5];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 885;
- fra.me.meth = LOCATE_standard___string___Collection___join;
- fra.me.has_broke = 0;
- fra.me.REG_size = 6;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- /* ../lib/standard/string.nit:891 */
- REGB0 = CALL_standard___collection___abstract_collection___Collection___is_empty(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- if (!once_value_1) {
- fra.me.REG[2] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[2] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[2])(fra.me.REG[2], REGB0);
- once_value_1 = fra.me.REG[2];
- register_static_object(&once_value_1);
- } else fra.me.REG[2] = once_value_1;
- fra.me.REG[2] = fra.me.REG[2];
- goto label2;
- }
- /* ../lib/standard/string.nit:893 */
- fra.me.REG[3] = NEW_Buffer_standard___string___Buffer___init();
- /* ../lib/standard/string.nit:896 */
- fra.me.REG[0] = CALL_standard___collection___abstract_collection___Collection___iterator(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:897 */
- fra.me.REG[4] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:898 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 898);
- }
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- }
- /* ../lib/standard/string.nit:901 */
- CALL_standard___collection___abstract_collection___Iterator___next(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:902 */
- while(1) {
- REGB0 = CALL_standard___collection___abstract_collection___Iterator___is_ok(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/string.nit:903 */
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[1]);
- /* ../lib/standard/string.nit:904 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___Iterator___item(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[4] = fra.me.REG[5];
- /* ../lib/standard/string.nit:905 */
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[4])(fra.me.REG[4], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Bool(fra.me.REG[4]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 905);
- }
- fra.me.REG[5] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[3])(fra.me.REG[3], fra.me.REG[5]);
- }
- /* ../lib/standard/string.nit:906 */
- CALL_standard___collection___abstract_collection___Iterator___next(fra.me.REG[0])(fra.me.REG[0]);
- } else {
- /* ../lib/standard/string.nit:902 */
- goto label3;
- }
- }
- label3: while(0);
- /* ../lib/standard/string.nit:908 */
- fra.me.REG[3] = CALL_standard___string___Object___to_s(fra.me.REG[3])(fra.me.REG[3]);
- fra.me.REG[2] = fra.me.REG[3];
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[2];
-}
-static const char LOCATE_standard___string___Array___to_s[] = "string::Array::(string::Object::to_s)";
-val_t standard___string___Array___to_s(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t REGB4;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 913;
- fra.me.meth = LOCATE_standard___string___Array___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:916 */
- fra.me.REG[1] = NEW_Buffer_standard___string___Buffer___init();
- /* ../lib/standard/string.nit:917 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/collection/array.nit:24 */
- REGB1 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0])!=NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 24);
- }
- REGB1 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[0]);
- /* ../lib/standard/string.nit:919 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB0)<UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:919 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/collection/array.nit:279 */
- fra.me.REG[2] = fra.me.REG[0];
- REGB2 = REGB0;
- /* ../lib/standard/collection/array.nit:281 */
- REGB3 = TAG_Int(0);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)>=UNTAG_Int(REGB3));
- /* ../lib/standard/collection/array.nit:281 */
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2])!=NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Uninitialized attribute %s", "_length", LOCATE_standard___collection___array, 281);
- }
- REGB3 = ATTR_standard___collection___array___AbstractArrayRead____length(fra.me.REG[2]);
- REGB4 = TAG_Bool(VAL_ISA(REGB3, VTCOLOR_standard___kernel___Comparable___OTHER(REGB2), VTID_standard___kernel___Comparable___OTHER(REGB2))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB4)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB3 = TAG_Bool(UNTAG_Int(REGB2)<UNTAG_Int(REGB3));
- } else {
- /* ../lib/standard/collection/array.nit:281 */
- REGB4 = TAG_Bool(0);
- REGB3 = REGB4;
- }
- if (UNTAG_Bool(REGB3)) {
- } else {
- nit_abort("Assert '%s' failed", "index", LOCATE_standard___collection___array, 281);
- }
- /* ../lib/standard/collection/array.nit:282 */
- fra.me.REG[2] = ATTR_standard___collection___array___Array____items(fra.me.REG[2]);
- REGB3 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___collection___array, 282);
- }
- /* ../lib/standard/collection/array.nit:725 */
- fra.me.REG[2] = ((Nit_NativeArray)fra.me.REG[2])->val[UNTAG_Int(REGB2)];
- /* ../lib/standard/collection/array.nit:282 */
- goto label1;
- label1: while(0);
- /* ../lib/standard/string.nit:921 */
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- } else {
- REGB3 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Bool(0);
- REGB2 = REGB3;
- } else {
- REGB3 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB2 = REGB3;
- }
- }
- REGB2 = TAG_Bool(!UNTAG_Bool(REGB2));
- if (UNTAG_Bool(REGB2)) {
- REGB2 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB2)) {
- nit_abort("Reciever is null", NULL, LOCATE_standard___string, 921);
- }
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[1])(fra.me.REG[1], fra.me.REG[2]);
- }
- /* ../lib/standard/string.nit:922 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:922 */
- REGB0 = REGB2;
- } else {
- /* ../lib/standard/string.nit:919 */
- goto label2;
- }
- }
- label2: while(0);
- /* ../lib/standard/string.nit:924 */
- fra.me.REG[1] = CALL_standard___string___Object___to_s(fra.me.REG[1])(fra.me.REG[1]);
- goto label3;
- label3: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Map___join[] = "string::Map::join";
-val_t standard___string___Map___join(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me; val_t MORE_REG[8];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- static val_t once_value_1; /* Once value */
- static val_t once_value_3; /* Once value */
- static val_t once_value_4; /* Once value */
- static val_t once_value_5; /* Once value */
- static val_t once_value_6; /* Once value */
- static val_t once_value_7; /* Once value */
- static val_t once_value_8; /* Once value */
- static val_t once_value_9; /* Once value */
- static val_t once_value_10; /* Once value */
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 929;
- fra.me.meth = LOCATE_standard___string___Map___join;
- fra.me.has_broke = 0;
- fra.me.REG_size = 9;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[3] = NIT_NULL;
- fra.me.REG[4] = NIT_NULL;
- fra.me.REG[5] = NIT_NULL;
- fra.me.REG[6] = NIT_NULL;
- fra.me.REG[7] = NIT_NULL;
- fra.me.REG[8] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- fra.me.REG[2] = p2;
- /* ../lib/standard/string.nit:939 */
- REGB0 = CALL_standard___collection___abstract_collection___MapRead___is_empty(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- if (!once_value_1) {
- fra.me.REG[3] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[3] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[3])(fra.me.REG[3], REGB0);
- once_value_1 = fra.me.REG[3];
- register_static_object(&once_value_1);
- } else fra.me.REG[3] = once_value_1;
- fra.me.REG[3] = fra.me.REG[3];
- goto label2;
- }
- /* ../lib/standard/string.nit:941 */
- fra.me.REG[4] = NEW_Buffer_standard___string___Buffer___init();
- /* ../lib/standard/string.nit:944 */
- fra.me.REG[0] = CALL_standard___collection___abstract_collection___MapRead___iterator(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:945 */
- fra.me.REG[5] = CALL_standard___collection___abstract_collection___MapIterator___key(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:946 */
- fra.me.REG[6] = CALL_standard___collection___abstract_collection___MapIterator___item(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:947 */
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Int(7);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_3) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_3 = fra.me.REG[8];
- register_static_object(&once_value_3);
- } else fra.me.REG[8] = once_value_3;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_4) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_4 = fra.me.REG[8];
- register_static_object(&once_value_4);
- } else fra.me.REG[8] = once_value_4;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
- if (!once_value_5) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_5 = fra.me.REG[8];
- register_static_object(&once_value_5);
- } else fra.me.REG[8] = once_value_5;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_6) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_6 = fra.me.REG[8];
- register_static_object(&once_value_6);
- } else fra.me.REG[8] = once_value_6;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
- }
- /* ../lib/standard/string.nit:950 */
- CALL_standard___collection___abstract_collection___MapIterator___next(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:951 */
- while(1) {
- REGB0 = CALL_standard___collection___abstract_collection___MapIterator___is_ok(fra.me.REG[0])(fra.me.REG[0]);
- if (UNTAG_Bool(REGB0)) {
- /* ../lib/standard/string.nit:952 */
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[1]);
- /* ../lib/standard/string.nit:953 */
- fra.me.REG[7] = CALL_standard___collection___abstract_collection___MapIterator___key(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[5] = fra.me.REG[7];
- /* ../lib/standard/string.nit:954 */
- fra.me.REG[7] = CALL_standard___collection___abstract_collection___MapIterator___item(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[6] = fra.me.REG[7];
- /* ../lib/standard/string.nit:955 */
- REGB0 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[6]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[6])(fra.me.REG[6], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- REGB0 = TAG_Bool(!UNTAG_Bool(REGB0));
- if (UNTAG_Bool(REGB0)) {
- REGB0 = TAG_Int(7);
- fra.me.REG[7] = NEW_Array_standard___collection___array___Array___with_capacity(REGB0);
- if (!once_value_7) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_7 = fra.me.REG[8];
- register_static_object(&once_value_7);
- } else fra.me.REG[8] = once_value_7;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[5])(fra.me.REG[5]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_8) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_8 = fra.me.REG[8];
- register_static_object(&once_value_8);
- } else fra.me.REG[8] = once_value_8;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[2]);
- if (!once_value_9) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_9 = fra.me.REG[8];
- register_static_object(&once_value_9);
- } else fra.me.REG[8] = once_value_9;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[8] = CALL_standard___string___Object___to_s(fra.me.REG[6])(fra.me.REG[6]);
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- if (!once_value_10) {
- fra.me.REG[8] = BOX_NativeString("");
- REGB0 = TAG_Int(0);
- fra.me.REG[8] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[8])(fra.me.REG[8], REGB0);
- once_value_10 = fra.me.REG[8];
- register_static_object(&once_value_10);
- } else fra.me.REG[8] = once_value_10;
- fra.me.REG[8] = fra.me.REG[8];
- CALL_standard___collection___abstract_collection___SimpleCollection___add(fra.me.REG[7])(fra.me.REG[7], fra.me.REG[8]);
- fra.me.REG[7] = CALL_standard___string___Object___to_s(fra.me.REG[7])(fra.me.REG[7]);
- CALL_standard___collection___abstract_collection___Sequence___append(fra.me.REG[4])(fra.me.REG[4], fra.me.REG[7]);
- }
- /* ../lib/standard/string.nit:956 */
- CALL_standard___collection___abstract_collection___MapIterator___next(fra.me.REG[0])(fra.me.REG[0]);
- } else {
- /* ../lib/standard/string.nit:951 */
- goto label11;
- }
- }
- label11: while(0);
- /* ../lib/standard/string.nit:958 */
- fra.me.REG[4] = CALL_standard___string___Object___to_s(fra.me.REG[4])(fra.me.REG[4]);
- fra.me.REG[3] = fra.me.REG[4];
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[3];
-}
-static const char LOCATE_standard___string___NativeString_____bra[] = "string::NativeString::[]";
-val_t standard___string___NativeString_____bra(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 970;
- fra.me.meth = LOCATE_standard___string___NativeString_____bra;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:970 */
- REGB0 = TAG_Char(UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB0)]);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___NativeString_____braeq[] = "string::NativeString::[]=";
-void standard___string___NativeString_____braeq(val_t p0, val_t p1, val_t p2){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 971;
- fra.me.meth = LOCATE_standard___string___NativeString_____braeq;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- REGB1 = p2;
- /* ../lib/standard/string.nit:971 */
- UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB0)]=UNTAG_Char(REGB1);;
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___NativeString___copy_to[] = "string::NativeString::copy_to";
-void standard___string___NativeString___copy_to(val_t p0, val_t p1, val_t p2, val_t p3, val_t p4){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 972;
- fra.me.meth = LOCATE_standard___string___NativeString___copy_to;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- fra.me.REG[1] = p1;
- REGB0 = p2;
- REGB1 = p3;
- REGB2 = p4;
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB2), UNBOX_NativeString(fra.me.REG[0])+UNTAG_Int(REGB1), UNTAG_Int(REGB0));;
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___NativeString___cstring_length[] = "string::NativeString::cstring_length";
-val_t standard___string___NativeString___cstring_length(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t REGB3;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 974;
- fra.me.meth = LOCATE_standard___string___NativeString___cstring_length;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:977 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/string.nit:978 */
- while(1) {
- /* ../lib/standard/string.nit:970 */
- REGB1 = TAG_Char(UNBOX_NativeString(fra.me.REG[0])[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:978 */
- REGB2 = TAG_Char('\0');
- REGB3 = TAG_Bool(IS_EQUAL_OO(REGB1,REGB2));
- if (UNTAG_Bool(REGB3)) {
- } else {
- /* ../lib/standard/kernel.nit:434 */
- REGB2 = TAG_Bool((REGB1)==(REGB2));
- /* ../lib/standard/string.nit:978 */
- REGB3 = REGB2;
- }
- REGB3 = TAG_Bool(!UNTAG_Bool(REGB3));
- if (UNTAG_Bool(REGB3)) {
- REGB3 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB3 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB3));
- /* ../lib/standard/string.nit:978 */
- REGB0 = REGB3;
- } else {
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/string.nit:979 */
- goto label2;
- label2: while(0);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___NativeString___atoi[] = "string::NativeString::atoi";
-val_t standard___string___NativeString___atoi(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 981;
- fra.me.meth = LOCATE_standard___string___NativeString___atoi;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:981 */
- REGB0 = TAG_Int(atoi(UNBOX_NativeString(fra.me.REG[0])));
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___NativeString___atof[] = "string::NativeString::atof";
-val_t standard___string___NativeString___atof(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 982;
- fra.me.meth = LOCATE_standard___string___NativeString___atof;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:982 */
- fra.me.REG[0] = NativeString_atof___out(fra.me.REG[0]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___NativeString___to_s[] = "string::NativeString::(string::Object::to_s)";
-val_t standard___string___NativeString___to_s(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 984;
- fra.me.meth = LOCATE_standard___string___NativeString___to_s;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:986 */
- REGB0 = CALL_standard___string___NativeString___cstring_length(fra.me.REG[0])(fra.me.REG[0]);
- fra.me.REG[0] = CALL_standard___string___NativeString___to_s_with_length(fra.me.REG[0])(fra.me.REG[0], REGB0);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___NativeString___to_s_with_length[] = "string::NativeString::to_s_with_length";
-val_t standard___string___NativeString___to_s_with_length(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 989;
- fra.me.meth = LOCATE_standard___string___NativeString___to_s_with_length;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:991 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Bool(VAL_ISA(REGB1, VTCOLOR_standard___kernel___Comparable___OTHER(REGB0), VTID_standard___kernel___Comparable___OTHER(REGB0))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:243 */
- REGB1 = TAG_Bool(UNTAG_Int(REGB0)>=UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:991 */
- if (UNTAG_Bool(REGB1)) {
- } else {
- nit_abort("Assert failed", NULL, LOCATE_standard___string, 991);
- }
- /* ../lib/standard/string.nit:992 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:992 */
- fra.me.REG[0] = NEW_String_standard___string___String___with_infos(fra.me.REG[0], REGB0, REGB1, REGB2);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___NativeString___to_s_with_copy[] = "string::NativeString::to_s_with_copy";
-val_t standard___string___NativeString___to_s_with_copy(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[1];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 995;
- fra.me.meth = LOCATE_standard___string___NativeString___to_s_with_copy;
- fra.me.has_broke = 0;
- fra.me.REG_size = 2;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:997 */
- REGB0 = CALL_standard___string___NativeString___cstring_length(fra.me.REG[0])(fra.me.REG[0]);
- /* ../lib/standard/string.nit:998 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)+UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[1] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB1) * sizeof(char))));
- /* ../lib/standard/string.nit:999 */
- REGB1 = TAG_Int(0);
- REGB2 = TAG_Int(0);
- /* ../lib/standard/string.nit:972 */
- (void)memcpy(UNBOX_NativeString(fra.me.REG[1])+UNTAG_Int(REGB2), UNBOX_NativeString(fra.me.REG[0])+UNTAG_Int(REGB1), UNTAG_Int(REGB0));;
- /* ../lib/standard/string.nit:1000 */
- REGB2 = TAG_Int(0);
- REGB1 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB1 = TAG_Int(UNTAG_Int(REGB0)-UNTAG_Int(REGB1));
- /* ../lib/standard/string.nit:1000 */
- fra.me.REG[1] = NEW_String_standard___string___String___with_infos(fra.me.REG[1], REGB0, REGB2, REGB1);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___NativeString___init[] = "string::NativeString::init";
-void standard___string___NativeString___init(val_t p0, int* init_table){
- int itpos5 = VAL2OBJ(p0)->vft[INIT_TABLE_POS_standard___string___NativeString].i;
- struct {struct stack_frame_t me;} fra;
- val_t tmp;
- if (init_table[itpos5]) return;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 0;
- fra.me.meth = LOCATE_standard___string___NativeString___init;
- fra.me.has_broke = 0;
- fra.me.REG_size = 0;
- fra.me.nitni_local_ref_head = NULL;
- stack_frame_head = fra.me.prev;
- init_table[itpos5] = 1;
- return;
-}
-static const char LOCATE_standard___string___StringCapable___calloc_string[] = "string::StringCapable::calloc_string";
-val_t standard___string___StringCapable___calloc_string(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1007;
- fra.me.meth = LOCATE_standard___string___StringCapable___calloc_string;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:1007 */
- fra.me.REG[0] = BOX_NativeString((char*)raw_alloc((UNTAG_Int(REGB0) * sizeof(char))));
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Sys___args[] = "string::Sys::(string::Object::args)";
-val_t standard___string___Sys___args(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1013;
- fra.me.meth = LOCATE_standard___string___Sys___args;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:1013 */
- fra.me.REG[1] = fra.me.REG[0];
- /* ../lib/standard/string.nit:1015 */
- fra.me.REG[2] = ATTR_standard___string___Sys____args_cache(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- REGB1 = TAG_Bool(fra.me.REG[2]==NIT_NULL);
- if (UNTAG_Bool(REGB1)) {
- REGB1 = TAG_Bool(0);
- REGB0 = REGB1;
- } else {
- REGB1 = CALL_standard___kernel___Object_____eqeq(fra.me.REG[2])(fra.me.REG[2], NIT_NULL);
- REGB0 = REGB1;
- }
- }
- if (UNTAG_Bool(REGB0)) {
- CALL_standard___string___Sys___init_args(fra.me.REG[1])(fra.me.REG[1]);
- }
- /* ../lib/standard/string.nit:1016 */
- fra.me.REG[1] = ATTR_standard___string___Sys____args_cache(fra.me.REG[1]);
- REGB0 = TAG_Bool(fra.me.REG[1]!=NIT_NULL);
- if (UNTAG_Bool(REGB0)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___string, 1016);
- }
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[1];
-}
-static const char LOCATE_standard___string___Sys___program_name[] = "string::Sys::program_name";
-val_t standard___string___Sys___program_name(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1019;
- fra.me.meth = LOCATE_standard___string___Sys___program_name;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:1022 */
- REGB0 = TAG_Int(0);
- /* ../lib/standard/string.nit:1041 */
- fra.me.REG[0] = BOX_NativeString(glob_argv[UNTAG_Int(REGB0)]);
- /* ../lib/standard/string.nit:1022 */
- fra.me.REG[0] = CALL_standard___string___Object___to_s(fra.me.REG[0])(fra.me.REG[0]);
- goto label1;
- label1: while(0);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}
-static const char LOCATE_standard___string___Sys___init_args[] = "string::Sys::init_args";
-void standard___string___Sys___init_args(val_t p0){
- struct {struct stack_frame_t me; val_t MORE_REG[2];} fra;
- val_t REGB0;
- val_t REGB1;
- val_t REGB2;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1025;
- fra.me.meth = LOCATE_standard___string___Sys___init_args;
- fra.me.has_broke = 0;
- fra.me.REG_size = 3;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[1] = NIT_NULL;
- fra.me.REG[2] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:1038 */
- REGB0 = TAG_Int(glob_argc);
- /* ../lib/standard/string.nit:1029 */
- REGB1 = TAG_Int(0);
- fra.me.REG[1] = NEW_Array_standard___collection___array___Array___with_capacity(REGB1);
- /* ../lib/standard/string.nit:1030 */
- REGB1 = TAG_Int(1);
- /* ../lib/standard/string.nit:1031 */
- while(1) {
- REGB2 = TAG_Bool(VAL_ISA(REGB0, VTCOLOR_standard___kernel___Comparable___OTHER(REGB1), VTID_standard___kernel___Comparable___OTHER(REGB1))) /*cast OTHER*/;
- if (UNTAG_Bool(REGB2)) {
- } else {
- nit_abort("Cast failed", NULL, LOCATE_standard___kernel, 0);
- }
- /* ../lib/standard/kernel.nit:242 */
- REGB2 = TAG_Bool(UNTAG_Int(REGB1)<UNTAG_Int(REGB0));
- /* ../lib/standard/string.nit:1031 */
- if (UNTAG_Bool(REGB2)) {
- /* ../lib/standard/string.nit:1032 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:247 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)-UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:1041 */
- fra.me.REG[2] = BOX_NativeString(glob_argv[UNTAG_Int(REGB1)]);
- /* ../lib/standard/string.nit:1032 */
- fra.me.REG[2] = CALL_standard___string___Object___to_s(fra.me.REG[2])(fra.me.REG[2]);
- CALL_standard___collection___abstract_collection___Sequence_____braeq(fra.me.REG[1])(fra.me.REG[1], REGB2, fra.me.REG[2]);
- /* ../lib/standard/string.nit:1033 */
- REGB2 = TAG_Int(1);
- /* ../lib/standard/kernel.nit:245 */
- REGB2 = TAG_Int(UNTAG_Int(REGB1)+UNTAG_Int(REGB2));
- /* ../lib/standard/string.nit:1033 */
- REGB1 = REGB2;
- } else {
- /* ../lib/standard/string.nit:1031 */
- goto label1;
- }
- }
- label1: while(0);
- /* ../lib/standard/string.nit:1035 */
- ATTR_standard___string___Sys____args_cache(fra.me.REG[0]) = fra.me.REG[1];
- stack_frame_head = fra.me.prev;
- return;
-}
-static const char LOCATE_standard___string___Sys___native_argc[] = "string::Sys::native_argc";
-val_t standard___string___Sys___native_argc(val_t p0){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1038;
- fra.me.meth = LOCATE_standard___string___Sys___native_argc;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- /* ../lib/standard/string.nit:1038 */
- REGB0 = TAG_Int(glob_argc);
- stack_frame_head = fra.me.prev;
- return REGB0;
-}
-static const char LOCATE_standard___string___Sys___native_argv[] = "string::Sys::native_argv";
-val_t standard___string___Sys___native_argv(val_t p0, val_t p1){
- struct {struct stack_frame_t me;} fra;
- val_t REGB0;
- val_t tmp;
- fra.me.prev = stack_frame_head; stack_frame_head = &fra.me;
- fra.me.file = LOCATE_standard___string;
- fra.me.line = 1041;
- fra.me.meth = LOCATE_standard___string___Sys___native_argv;
- fra.me.has_broke = 0;
- fra.me.REG_size = 1;
- fra.me.nitni_local_ref_head = NULL;
- fra.me.REG[0] = NIT_NULL;
- fra.me.REG[0] = p0;
- REGB0 = p1;
- /* ../lib/standard/string.nit:1041 */
- fra.me.REG[0] = BOX_NativeString(glob_argv[UNTAG_Int(REGB0)]);
- stack_frame_head = fra.me.prev;
- return fra.me.REG[0];
-}