diff options
Diffstat (limited to 'src/environment.c')
| -rw-r--r-- | src/environment.c | 678 |
1 files changed, 339 insertions, 339 deletions
diff --git a/src/environment.c b/src/environment.c index f43e8daf..54fcdf33 100644 --- a/src/environment.c +++ b/src/environment.c @@ -30,13 +30,13 @@ static type_t *declare_type(env_t *env, const char *def_str) DeclareMatch(def, statements->ast, StructDef); prebind_statement(env, statements->ast); bind_statement(env, statements->ast); - return Table$str_get(*env->types, def->name); + return Tableヽstr_get(*env->types, def->name); } case EnumDef: { DeclareMatch(def, statements->ast, EnumDef); prebind_statement(env, statements->ast); bind_statement(env, statements->ast); - return Table$str_get(*env->types, def->name); + return Tableヽstr_get(*env->types, def->name); } default: errx(1, "Not a type definition: %s", def_str); } @@ -45,9 +45,9 @@ static type_t *declare_type(env_t *env, const char *def_str) static type_t *bind_type(env_t *env, const char *name, type_t *type) { - if (Table$str_get(*env->types, name)) + if (Tableヽstr_get(*env->types, name)) errx(1, "Duplicate binding for type: %s", name); - Table$str_set(env->types, name, type); + Tableヽstr_set(env->types, name, type); return type; } @@ -82,165 +82,165 @@ env_t *global_env(bool source_mapping) Text_t typeinfo; List_t namespace; } global_types[] = { - {"Void", Type(VoidType), Text("Void_t"), Text("Void$info"), {}}, - {"Abort", Type(AbortType), Text("void"), Text("Abort$info"), {}}, - {"Memory", Type(MemoryType), Text("Memory_t"), Text("Memory$info"), {}}, - {"Bool", Type(BoolType), Text("Bool_t"), Text("Bool$info"), TypedList(ns_entry_t, - {"parse", "Bool$parse", "func(text:Text, remainder:&Text? = none -> Bool?)"}, + {"Void", Type(VoidType), Text("Void_t"), Text("Voidヽinfo"), {}}, + {"Abort", Type(AbortType), Text("void"), Text("Abortヽinfo"), {}}, + {"Memory", Type(MemoryType), Text("Memory_t"), Text("Memoryヽinfo"), {}}, + {"Bool", Type(BoolType), Text("Bool_t"), Text("Boolヽinfo"), TypedList(ns_entry_t, + {"parse", "Boolヽparse", "func(text:Text, remainder:&Text? = none -> Bool?)"}, )}, - {"Byte", Type(ByteType), Text("Byte_t"), Text("Byte$info"), TypedList(ns_entry_t, - {"get_bit", "Byte$get_bit", "func(x:Byte, bit_index:Int -> Bool)"}, - {"hex", "Byte$hex", "func(byte:Byte, uppercase=yes, prefix=no -> Text)"}, - {"is_between", "Byte$is_between", "func(x:Byte, low:Byte, high:Byte -> Bool)"}, - {"max", "Byte$max", "Byte"}, - {"min", "Byte$min", "Byte"}, - {"parse", "Byte$parse", "func(text:Text, remainder:&Text? = none -> Byte?)"}, - {"to", "Byte$to", "func(first:Byte, last:Byte, step:Int8?=none -> func(->Byte?))"}, + {"Byte", Type(ByteType), Text("Byte_t"), Text("Byteヽinfo"), TypedList(ns_entry_t, + {"get_bit", "Byteヽget_bit", "func(x:Byte, bit_index:Int -> Bool)"}, + {"hex", "Byteヽhex", "func(byte:Byte, uppercase=yes, prefix=no -> Text)"}, + {"is_between", "Byteヽis_between", "func(x:Byte, low:Byte, high:Byte -> Bool)"}, + {"max", "Byteヽmax", "Byte"}, + {"min", "Byteヽmin", "Byte"}, + {"parse", "Byteヽparse", "func(text:Text, remainder:&Text? = none -> Byte?)"}, + {"to", "Byteヽto", "func(first:Byte, last:Byte, step:Int8?=none -> func(->Byte?))"}, )}, - {"Int", Type(BigIntType), Text("Int_t"), Text("Int$info"), TypedList(ns_entry_t, - {"abs", "Int$abs", "func(x:Int -> Int)"}, - {"bit_and", "Int$bit_and", "func(x,y:Int -> Int)"}, - {"bit_or", "Int$bit_or", "func(x,y:Int -> Int)"}, - {"bit_xor", "Int$bit_xor", "func(x,y:Int -> Int)"}, - {"choose", "Int$choose", "func(x,y:Int -> Int)"}, - {"clamped", "Int$clamped", "func(x,low,high:Int -> Int)"}, - {"divided_by", "Int$divided_by", "func(x,y:Int -> Int)"}, - {"factorial", "Int$factorial", "func(x:Int -> Int)"}, - {"gcd", "Int$gcd", "func(x,y:Int -> Int)"}, - {"get_bit", "Int$get_bit", "func(x,bit_index:Int -> Bool)"}, - {"hex", "Int$hex", "func(i:Int, digits=0, uppercase=yes, prefix=yes -> Text)"}, - {"is_between", "Int$is_between", "func(x:Int,low:Int,high:Int -> Bool)"}, - {"is_prime", "Int$is_prime", "func(x:Int,reps=50 -> Bool)"}, - {"left_shifted", "Int$left_shifted", "func(x,y:Int -> Int)"}, - {"minus", "Int$minus", "func(x,y:Int -> Int)"}, - {"modulo", "Int$modulo", "func(x,y:Int -> Int)"}, - {"modulo1", "Int$modulo1", "func(x,y:Int -> Int)"}, - {"negated", "Int$negated", "func(x:Int -> Int)"}, - {"negative", "Int$negative", "func(x:Int -> Int)"}, - {"next_prime", "Int$next_prime", "func(x:Int -> Int)"}, - {"octal", "Int$octal", "func(i:Int, digits=0, prefix=yes -> Text)"}, - {"onward", "Int$onward", "func(first:Int,step=1 -> func(->Int?))"}, - {"parse", "Int$parse", "func(text:Text, remainder:&Text? = none -> Int?)"}, - {"plus", "Int$plus", "func(x,y:Int -> Int)"}, - {"power", "Int$power", "func(base:Int,exponent:Int -> Int)"}, + {"Int", Type(BigIntType), Text("Int_t"), Text("Intヽinfo"), TypedList(ns_entry_t, + {"abs", "Intヽabs", "func(x:Int -> Int)"}, + {"bit_and", "Intヽbit_and", "func(x,y:Int -> Int)"}, + {"bit_or", "Intヽbit_or", "func(x,y:Int -> Int)"}, + {"bit_xor", "Intヽbit_xor", "func(x,y:Int -> Int)"}, + {"choose", "Intヽchoose", "func(x,y:Int -> Int)"}, + {"clamped", "Intヽclamped", "func(x,low,high:Int -> Int)"}, + {"divided_by", "Intヽdivided_by", "func(x,y:Int -> Int)"}, + {"factorial", "Intヽfactorial", "func(x:Int -> Int)"}, + {"gcd", "Intヽgcd", "func(x,y:Int -> Int)"}, + {"get_bit", "Intヽget_bit", "func(x,bit_index:Int -> Bool)"}, + {"hex", "Intヽhex", "func(i:Int, digits=0, uppercase=yes, prefix=yes -> Text)"}, + {"is_between", "Intヽis_between", "func(x:Int,low:Int,high:Int -> Bool)"}, + {"is_prime", "Intヽis_prime", "func(x:Int,reps=50 -> Bool)"}, + {"left_shifted", "Intヽleft_shifted", "func(x,y:Int -> Int)"}, + {"minus", "Intヽminus", "func(x,y:Int -> Int)"}, + {"modulo", "Intヽmodulo", "func(x,y:Int -> Int)"}, + {"modulo1", "Intヽmodulo1", "func(x,y:Int -> Int)"}, + {"negated", "Intヽnegated", "func(x:Int -> Int)"}, + {"negative", "Intヽnegative", "func(x:Int -> Int)"}, + {"next_prime", "Intヽnext_prime", "func(x:Int -> Int)"}, + {"octal", "Intヽoctal", "func(i:Int, digits=0, prefix=yes -> Text)"}, + {"onward", "Intヽonward", "func(first:Int,step=1 -> func(->Int?))"}, + {"parse", "Intヽparse", "func(text:Text, remainder:&Text? = none -> Int?)"}, + {"plus", "Intヽplus", "func(x,y:Int -> Int)"}, + {"power", "Intヽpower", "func(base:Int,exponent:Int -> Int)"}, #if __GNU_MP_VERSION >= 6 #if __GNU_MP_VERSION_MINOR >= 3 - {"prev_prime", "Int$prev_prime", "func(x:Int -> Int?)"}, + {"prev_prime", "Intヽprev_prime", "func(x:Int -> Int?)"}, #endif #endif - {"right_shifted", "Int$right_shifted", "func(x,y:Int -> Int)"}, - {"sqrt", "Int$sqrt", "func(x:Int -> Int?)"}, - {"times", "Int$times", "func(x,y:Int -> Int)"}, - {"to", "Int$to", "func(first:Int,last:Int,step:Int?=none -> func(->Int?))"}, + {"right_shifted", "Intヽright_shifted", "func(x,y:Int -> Int)"}, + {"sqrt", "Intヽsqrt", "func(x:Int -> Int?)"}, + {"times", "Intヽtimes", "func(x,y:Int -> Int)"}, + {"to", "Intヽto", "func(first:Int,last:Int,step:Int?=none -> func(->Int?))"}, )}, - {"Int64", Type(IntType, .bits=TYPE_IBITS64), Text("Int64_t"), Text("Int64$info"), TypedList(ns_entry_t, + {"Int64", Type(IntType, .bits=TYPE_IBITS64), Text("Int64_t"), Text("Int64ヽinfo"), TypedList(ns_entry_t, {"abs", "labs", "func(i:Int64 -> Int64)"}, - {"bits", "Int64$bits", "func(x:Int64 -> [Bool])"}, - {"clamped", "Int64$clamped", "func(x,low,high:Int64 -> Int64)"}, - {"divided_by", "Int64$divided_by", "func(x,y:Int64 -> Int64)"}, - {"gcd", "Int64$gcd", "func(x,y:Int64 -> Int64)"}, - {"parse", "Int64$parse", "func(text:Text, remainder:&Text? = none -> Int64?)"}, - {"get_bit", "Int64$get_bit", "func(x:Int64, bit_index:Int -> Bool)"}, - {"hex", "Int64$hex", "func(i:Int64, digits=0, uppercase=yes, prefix=yes -> Text)"}, - {"is_between", "Int64$is_between", "func(x:Int64,low:Int64,high:Int64 -> Bool)"}, - {"max", "Int64$max", "Int64"}, - {"min", "Int64$min", "Int64"}, - {"modulo", "Int64$modulo", "func(x,y:Int64 -> Int64)"}, - {"modulo1", "Int64$modulo1", "func(x,y:Int64 -> Int64)"}, - {"octal", "Int64$octal", "func(i:Int64, digits=0, prefix=yes -> Text)"}, - {"onward", "Int64$onward", "func(first:Int64,step=Int64(1) -> func(->Int64?))"}, - {"to", "Int64$to", "func(first:Int64,last:Int64,step:Int64?=none -> func(->Int64?))"}, - {"unsigned_left_shifted", "Int64$unsigned_left_shifted", "func(x:Int64,y:Int64 -> Int64)"}, - {"unsigned_right_shifted", "Int64$unsigned_right_shifted", "func(x:Int64,y:Int64 -> Int64)"}, - {"wrapping_minus", "Int64$wrapping_minus", "func(x:Int64,y:Int64 -> Int64)"}, - {"wrapping_plus", "Int64$wrapping_plus", "func(x:Int64,y:Int64 -> Int64)"}, + {"bits", "Int64ヽbits", "func(x:Int64 -> [Bool])"}, + {"clamped", "Int64ヽclamped", "func(x,low,high:Int64 -> Int64)"}, + {"divided_by", "Int64ヽdivided_by", "func(x,y:Int64 -> Int64)"}, + {"gcd", "Int64ヽgcd", "func(x,y:Int64 -> Int64)"}, + {"parse", "Int64ヽparse", "func(text:Text, remainder:&Text? = none -> Int64?)"}, + {"get_bit", "Int64ヽget_bit", "func(x:Int64, bit_index:Int -> Bool)"}, + {"hex", "Int64ヽhex", "func(i:Int64, digits=0, uppercase=yes, prefix=yes -> Text)"}, + {"is_between", "Int64ヽis_between", "func(x:Int64,low:Int64,high:Int64 -> Bool)"}, + {"max", "Int64ヽmax", "Int64"}, + {"min", "Int64ヽmin", "Int64"}, + {"modulo", "Int64ヽmodulo", "func(x,y:Int64 -> Int64)"}, + {"modulo1", "Int64ヽmodulo1", "func(x,y:Int64 -> Int64)"}, + {"octal", "Int64ヽoctal", "func(i:Int64, digits=0, prefix=yes -> Text)"}, + {"onward", "Int64ヽonward", "func(first:Int64,step=Int64(1) -> func(->Int64?))"}, + {"to", "Int64ヽto", "func(first:Int64,last:Int64,step:Int64?=none -> func(->Int64?))"}, + {"unsigned_left_shifted", "Int64ヽunsigned_left_shifted", "func(x:Int64,y:Int64 -> Int64)"}, + {"unsigned_right_shifted", "Int64ヽunsigned_right_shifted", "func(x:Int64,y:Int64 -> Int64)"}, + {"wrapping_minus", "Int64ヽwrapping_minus", "func(x:Int64,y:Int64 -> Int64)"}, + {"wrapping_plus", "Int64ヽwrapping_plus", "func(x:Int64,y:Int64 -> Int64)"}, )}, - {"Int32", Type(IntType, .bits=TYPE_IBITS32), Text("Int32_t"), Text("Int32$info"), TypedList(ns_entry_t, + {"Int32", Type(IntType, .bits=TYPE_IBITS32), Text("Int32_t"), Text("Int32ヽinfo"), TypedList(ns_entry_t, {"abs", "abs", "func(i:Int32 -> Int32)"}, - {"bits", "Int32$bits", "func(x:Int32 -> [Bool])"}, - {"clamped", "Int32$clamped", "func(x,low,high:Int32 -> Int32)"}, - {"divided_by", "Int32$divided_by", "func(x,y:Int32 -> Int32)"}, - {"gcd", "Int32$gcd", "func(x,y:Int32 -> Int32)"}, - {"parse", "Int32$parse", "func(text:Text, remainder:&Text? = none -> Int32?)"}, - {"get_bit", "Int32$get_bit", "func(x:Int32, bit_index:Int -> Bool)"}, - {"hex", "Int32$hex", "func(i:Int32, digits=0, uppercase=yes, prefix=yes -> Text)"}, - {"is_between", "Int32$is_between", "func(x:Int32,low:Int32,high:Int32 -> Bool)"}, - {"max", "Int32$max", "Int32"}, - {"min", "Int32$min", "Int32"}, - {"modulo", "Int32$modulo", "func(x,y:Int32 -> Int32)"}, - {"modulo1", "Int32$modulo1", "func(x,y:Int32 -> Int32)"}, - {"octal", "Int32$octal", "func(i:Int32, digits=0, prefix=yes -> Text)"}, - {"onward", "Int32$onward", "func(first:Int32,step=Int32(1) -> func(->Int32?))"}, - {"to", "Int32$to", "func(first:Int32,last:Int32,step:Int32?=none -> func(->Int32?))"}, - {"unsigned_left_shifted", "Int32$unsigned_left_shifted", "func(x:Int32,y:Int32 -> Int32)"}, - {"unsigned_right_shifted", "Int32$unsigned_right_shifted", "func(x:Int32,y:Int32 -> Int32)"}, - {"wrapping_minus", "Int32$wrapping_minus", "func(x:Int32,y:Int32 -> Int32)"}, - {"wrapping_plus", "Int32$wrapping_plus", "func(x:Int32,y:Int32 -> Int32)"}, + {"bits", "Int32ヽbits", "func(x:Int32 -> [Bool])"}, + {"clamped", "Int32ヽclamped", "func(x,low,high:Int32 -> Int32)"}, + {"divided_by", "Int32ヽdivided_by", "func(x,y:Int32 -> Int32)"}, + {"gcd", "Int32ヽgcd", "func(x,y:Int32 -> Int32)"}, + {"parse", "Int32ヽparse", "func(text:Text, remainder:&Text? = none -> Int32?)"}, + {"get_bit", "Int32ヽget_bit", "func(x:Int32, bit_index:Int -> Bool)"}, + {"hex", "Int32ヽhex", "func(i:Int32, digits=0, uppercase=yes, prefix=yes -> Text)"}, + {"is_between", "Int32ヽis_between", "func(x:Int32,low:Int32,high:Int32 -> Bool)"}, + {"max", "Int32ヽmax", "Int32"}, + {"min", "Int32ヽmin", "Int32"}, + {"modulo", "Int32ヽmodulo", "func(x,y:Int32 -> Int32)"}, + {"modulo1", "Int32ヽmodulo1", "func(x,y:Int32 -> Int32)"}, + {"octal", "Int32ヽoctal", "func(i:Int32, digits=0, prefix=yes -> Text)"}, + {"onward", "Int32ヽonward", "func(first:Int32,step=Int32(1) -> func(->Int32?))"}, + {"to", "Int32ヽto", "func(first:Int32,last:Int32,step:Int32?=none -> func(->Int32?))"}, + {"unsigned_left_shifted", "Int32ヽunsigned_left_shifted", "func(x:Int32,y:Int32 -> Int32)"}, + {"unsigned_right_shifted", "Int32ヽunsigned_right_shifted", "func(x:Int32,y:Int32 -> Int32)"}, + {"wrapping_minus", "Int32ヽwrapping_minus", "func(x:Int32,y:Int32 -> Int32)"}, + {"wrapping_plus", "Int32ヽwrapping_plus", "func(x:Int32,y:Int32 -> Int32)"}, )}, - {"Int16", Type(IntType, .bits=TYPE_IBITS16), Text("Int16_t"), Text("Int16$info"), TypedList(ns_entry_t, + {"Int16", Type(IntType, .bits=TYPE_IBITS16), Text("Int16_t"), Text("Int16ヽinfo"), TypedList(ns_entry_t, {"abs", "abs", "func(i:Int16 -> Int16)"}, - {"bits", "Int16$bits", "func(x:Int16 -> [Bool])"}, - {"clamped", "Int16$clamped", "func(x,low,high:Int16 -> Int16)"}, - {"divided_by", "Int16$divided_by", "func(x,y:Int16 -> Int16)"}, - {"gcd", "Int16$gcd", "func(x,y:Int16 -> Int16)"}, - {"parse", "Int16$parse", "func(text:Text, remainder:&Text? = none -> Int16?)"}, - {"get_bit", "Int16$get_bit", "func(x:Int16, bit_index:Int -> Bool)"}, - {"hex", "Int16$hex", "func(i:Int16, digits=0, uppercase=yes, prefix=yes -> Text)"}, - {"is_between", "Int16$is_between", "func(x:Int16,low:Int16,high:Int16 -> Bool)"}, - {"max", "Int16$max", "Int16"}, - {"min", "Int16$min", "Int16"}, - {"modulo", "Int16$modulo", "func(x,y:Int16 -> Int16)"}, - {"modulo1", "Int16$modulo1", "func(x,y:Int16 -> Int16)"}, - {"octal", "Int16$octal", "func(i:Int16, digits=0, prefix=yes -> Text)"}, - {"onward", "Int16$onward", "func(first:Int16,step=Int16(1) -> func(->Int16?))"}, - {"to", "Int16$to", "func(first:Int16,last:Int16,step:Int16?=none -> func(->Int16?))"}, - {"unsigned_left_shifted", "Int16$unsigned_left_shifted", "func(x:Int16,y:Int16 -> Int16)"}, - {"unsigned_right_shifted", "Int16$unsigned_right_shifted", "func(x:Int16,y:Int16 -> Int16)"}, - {"wrapping_minus", "Int16$wrapping_minus", "func(x:Int16,y:Int16 -> Int16)"}, - {"wrapping_plus", "Int16$wrapping_plus", "func(x:Int16,y:Int16 -> Int16)"}, + {"bits", "Int16ヽbits", "func(x:Int16 -> [Bool])"}, + {"clamped", "Int16ヽclamped", "func(x,low,high:Int16 -> Int16)"}, + {"divided_by", "Int16ヽdivided_by", "func(x,y:Int16 -> Int16)"}, + {"gcd", "Int16ヽgcd", "func(x,y:Int16 -> Int16)"}, + {"parse", "Int16ヽparse", "func(text:Text, remainder:&Text? = none -> Int16?)"}, + {"get_bit", "Int16ヽget_bit", "func(x:Int16, bit_index:Int -> Bool)"}, + {"hex", "Int16ヽhex", "func(i:Int16, digits=0, uppercase=yes, prefix=yes -> Text)"}, + {"is_between", "Int16ヽis_between", "func(x:Int16,low:Int16,high:Int16 -> Bool)"}, + {"max", "Int16ヽmax", "Int16"}, + {"min", "Int16ヽmin", "Int16"}, + {"modulo", "Int16ヽmodulo", "func(x,y:Int16 -> Int16)"}, + {"modulo1", "Int16ヽmodulo1", "func(x,y:Int16 -> Int16)"}, + {"octal", "Int16ヽoctal", "func(i:Int16, digits=0, prefix=yes -> Text)"}, + {"onward", "Int16ヽonward", "func(first:Int16,step=Int16(1) -> func(->Int16?))"}, + {"to", "Int16ヽto", "func(first:Int16,last:Int16,step:Int16?=none -> func(->Int16?))"}, + {"unsigned_left_shifted", "Int16ヽunsigned_left_shifted", "func(x:Int16,y:Int16 -> Int16)"}, + {"unsigned_right_shifted", "Int16ヽunsigned_right_shifted", "func(x:Int16,y:Int16 -> Int16)"}, + {"wrapping_minus", "Int16ヽwrapping_minus", "func(x:Int16,y:Int16 -> Int16)"}, + {"wrapping_plus", "Int16ヽwrapping_plus", "func(x:Int16,y:Int16 -> Int16)"}, )}, - {"Int8", Type(IntType, .bits=TYPE_IBITS8), Text("Int8_t"), Text("Int8$info"), TypedList(ns_entry_t, + {"Int8", Type(IntType, .bits=TYPE_IBITS8), Text("Int8_t"), Text("Int8ヽinfo"), TypedList(ns_entry_t, {"abs", "abs", "func(i:Int8 -> Int8)"}, - {"bits", "Int8$bits", "func(x:Int8 -> [Bool])"}, - {"clamped", "Int8$clamped", "func(x,low,high:Int8 -> Int8)"}, - {"divided_by", "Int8$divided_by", "func(x,y:Int8 -> Int8)"}, - {"gcd", "Int8$gcd", "func(x,y:Int8 -> Int8)"}, - {"parse", "Int8$parse", "func(text:Text, remainder:&Text? = none -> Int8?)"}, - {"get_bit", "Int8$get_bit", "func(x:Int8, bit_index:Int -> Bool)"}, - {"hex", "Int8$hex", "func(i:Int8, digits=0, uppercase=yes, prefix=yes -> Text)"}, - {"is_between", "Int8$is_between", "func(x:Int8,low:Int8,high:Int8 -> Bool)"}, - {"max", "Int8$max", "Int8"}, - {"min", "Int8$min", "Int8"}, - {"modulo", "Int8$modulo", "func(x,y:Int8 -> Int8)"}, - {"modulo1", "Int8$modulo1", "func(x,y:Int8 -> Int8)"}, - {"octal", "Int8$octal", "func(i:Int8, digits=0, prefix=yes -> Text)"}, - {"onward", "Int8$onward", "func(first:Int8,step=Int8(1) -> func(->Int8?))"}, - {"to", "Int8$to", "func(first:Int8,last:Int8,step:Int8?=none -> func(->Int8?))"}, - {"unsigned_left_shifted", "Int8$unsigned_left_shifted", "func(x:Int8,y:Int8 -> Int8)"}, - {"unsigned_right_shifted", "Int8$unsigned_right_shifted", "func(x:Int8,y:Int8 -> Int8)"}, - {"wrapping_minus", "Int8$wrapping_minus", "func(x:Int8,y:Int8 -> Int8)"}, - {"wrapping_plus", "Int8$wrapping_plus", "func(x:Int8,y:Int8 -> Int8)"}, + {"bits", "Int8ヽbits", "func(x:Int8 -> [Bool])"}, + {"clamped", "Int8ヽclamped", "func(x,low,high:Int8 -> Int8)"}, + {"divided_by", "Int8ヽdivided_by", "func(x,y:Int8 -> Int8)"}, + {"gcd", "Int8ヽgcd", "func(x,y:Int8 -> Int8)"}, + {"parse", "Int8ヽparse", "func(text:Text, remainder:&Text? = none -> Int8?)"}, + {"get_bit", "Int8ヽget_bit", "func(x:Int8, bit_index:Int -> Bool)"}, + {"hex", "Int8ヽhex", "func(i:Int8, digits=0, uppercase=yes, prefix=yes -> Text)"}, + {"is_between", "Int8ヽis_between", "func(x:Int8,low:Int8,high:Int8 -> Bool)"}, + {"max", "Int8ヽmax", "Int8"}, + {"min", "Int8ヽmin", "Int8"}, + {"modulo", "Int8ヽmodulo", "func(x,y:Int8 -> Int8)"}, + {"modulo1", "Int8ヽmodulo1", "func(x,y:Int8 -> Int8)"}, + {"octal", "Int8ヽoctal", "func(i:Int8, digits=0, prefix=yes -> Text)"}, + {"onward", "Int8ヽonward", "func(first:Int8,step=Int8(1) -> func(->Int8?))"}, + {"to", "Int8ヽto", "func(first:Int8,last:Int8,step:Int8?=none -> func(->Int8?))"}, + {"unsigned_left_shifted", "Int8ヽunsigned_left_shifted", "func(x:Int8,y:Int8 -> Int8)"}, + {"unsigned_right_shifted", "Int8ヽunsigned_right_shifted", "func(x:Int8,y:Int8 -> Int8)"}, + {"wrapping_minus", "Int8ヽwrapping_minus", "func(x:Int8,y:Int8 -> Int8)"}, + {"wrapping_plus", "Int8ヽwrapping_plus", "func(x:Int8,y:Int8 -> Int8)"}, )}, #define C(name) {#name, "M_"#name, "Num"} #define F(name) {#name, #name, "func(n:Num -> Num)"} #define F_opt(name) {#name, #name, "func(n:Num -> Num?)"} #define F2(name) {#name, #name, "func(x,y:Num -> Num)"} - {"Num", Type(NumType, .bits=TYPE_NBITS64), Text("Num_t"), Text("Num$info"), TypedList(ns_entry_t, - {"near", "Num$near", "func(x,y:Num, ratio=1e-9, min_epsilon=1e-9 -> Bool)"}, - {"clamped", "Num$clamped", "func(x,low,high:Num -> Num)"}, - {"percent", "Num$percent", "func(n:Num,precision=0.01 -> Text)"}, - {"with_precision", "Num$with_precision", "func(n:Num,precision:Num -> Num)"}, - {"is_between", "Num$is_between", "func(x:Num,low:Num,high:Num -> Bool)"}, - {"isinf", "Num$isinf", "func(n:Num -> Bool)"}, - {"isfinite", "Num$isfinite", "func(n:Num -> Bool)"}, - {"modulo", "Num$mod", "func(x,y:Num -> Num)"}, - {"modulo1", "Num$mod1", "func(x,y:Num -> Num)"}, + {"Num", Type(NumType, .bits=TYPE_NBITS64), Text("Num_t"), Text("Numヽinfo"), TypedList(ns_entry_t, + {"near", "Numヽnear", "func(x,y:Num, ratio=1e-9, min_epsilon=1e-9 -> Bool)"}, + {"clamped", "Numヽclamped", "func(x,low,high:Num -> Num)"}, + {"percent", "Numヽpercent", "func(n:Num,precision=0.01 -> Text)"}, + {"with_precision", "Numヽwith_precision", "func(n:Num,precision:Num -> Num)"}, + {"is_between", "Numヽis_between", "func(x:Num,low:Num,high:Num -> Bool)"}, + {"isinf", "Numヽisinf", "func(n:Num -> Bool)"}, + {"isfinite", "Numヽisfinite", "func(n:Num -> Bool)"}, + {"modulo", "Numヽmod", "func(x,y:Num -> Num)"}, + {"modulo1", "Numヽmod1", "func(x,y:Num -> Num)"}, C(2_SQRTPI), C(E), C(PI_2), C(2_PI), C(1_PI), C(LN10), C(LN2), C(LOG2E), C(PI), C(PI_4), C(SQRT2), C(SQRT1_2), {"INF", "(Num_t)(INFINITY)", "Num"}, {"TAU", "(Num_t)(2.*M_PI)", "Num"}, - {"mix", "Num$mix", "func(amount,x,y:Num -> Num)"}, - {"parse", "Num$parse", "func(text:Text, remainder:&Text? = none -> Num?)"}, + {"mix", "Numヽmix", "func(amount,x,y:Num -> Num)"}, + {"parse", "Numヽparse", "func(text:Text, remainder:&Text? = none -> Num?)"}, {"abs", "fabs", "func(n:Num -> Num)"}, F_opt(acos), F_opt(acosh), F_opt(asin), F(asinh), F(atan), F_opt(atanh), F(cbrt), F(ceil), F_opt(cos), F(cosh), F(erf), F(erfc), @@ -257,23 +257,23 @@ env_t *global_env(bool source_mapping) #define F(name) {#name, #name"f", "func(n:Num32 -> Num32)"} #define F_opt(name) {#name, #name"f", "func(n:Num32 -> Num32?)"} #define F2(name) {#name, #name"f", "func(x,y:Num32 -> Num32)"} - {"Num32", Type(NumType, .bits=TYPE_NBITS32), Text("Num32_t"), Text("Num32$info"), TypedList(ns_entry_t, - {"near", "Num32$near", "func(x,y:Num32, ratio=Num32(1e-9), min_epsilon=Num32(1e-9) -> Bool)"}, - {"clamped", "Num32$clamped", "func(x,low,high:Num32 -> Num32)"}, - {"percent", "Num32$percent", "func(n:Num32,precision=Num32(.01) -> Text)"}, - {"with_precision", "Num32$with_precision", "func(n:Num32,precision:Num32 -> Num32)"}, - {"is_between", "Num32$is_between", "func(x:Num32,low:Num32,high:Num32 -> Bool)"}, - {"isinf", "Num32$isinf", "func(n:Num32 -> Bool)"}, - {"isfinite", "Num32$isfinite", "func(n:Num32 -> Bool)"}, + {"Num32", Type(NumType, .bits=TYPE_NBITS32), Text("Num32_t"), Text("Num32ヽinfo"), TypedList(ns_entry_t, + {"near", "Num32ヽnear", "func(x,y:Num32, ratio=Num32(1e-9), min_epsilon=Num32(1e-9) -> Bool)"}, + {"clamped", "Num32ヽclamped", "func(x,low,high:Num32 -> Num32)"}, + {"percent", "Num32ヽpercent", "func(n:Num32,precision=Num32(.01) -> Text)"}, + {"with_precision", "Num32ヽwith_precision", "func(n:Num32,precision:Num32 -> Num32)"}, + {"is_between", "Num32ヽis_between", "func(x:Num32,low:Num32,high:Num32 -> Bool)"}, + {"isinf", "Num32ヽisinf", "func(n:Num32 -> Bool)"}, + {"isfinite", "Num32ヽisfinite", "func(n:Num32 -> Bool)"}, C(2_SQRTPI), C(E), C(PI_2), C(2_PI), C(1_PI), C(LN10), C(LN2), C(LOG2E), C(PI), C(PI_4), C(SQRT2), C(SQRT1_2), {"INF", "(Num32_t)(INFINITY)", "Num32"}, {"TAU", "(Num32_t)(2.f*M_PI)", "Num32"}, - {"mix", "Num32$mix", "func(amount,x,y:Num32 -> Num32)"}, - {"parse", "Num32$parse", "func(text:Text, remainder:&Text? = none -> Num32?)"}, + {"mix", "Num32ヽmix", "func(amount,x,y:Num32 -> Num32)"}, + {"parse", "Num32ヽparse", "func(text:Text, remainder:&Text? = none -> Num32?)"}, {"abs", "fabsf", "func(n:Num32 -> Num32)"}, - {"modulo", "Num32$mod", "func(x,y:Num32 -> Num32)"}, - {"modulo1", "Num32$mod1", "func(x,y:Num32 -> Num32)"}, + {"modulo", "Num32ヽmod", "func(x,y:Num32 -> Num32)"}, + {"modulo1", "Num32ヽmod1", "func(x,y:Num32 -> Num32)"}, F_opt(acos), F_opt(acosh), F_opt(asin), F(asinh), F(atan), F_opt(atanh), F(cbrt), F(ceil), F_opt(cos), F(cosh), F(erf), F(erfc), F(exp), F(exp2), F(expm1), F(floor), F(j0), F(j1), F_opt(log), F_opt(log10), F_opt(log1p), @@ -281,105 +281,105 @@ env_t *global_env(bool source_mapping) F_opt(tan), F(tanh), F_opt(tgamma), F(trunc), F_opt(y0), F_opt(y1), F2(atan2), F2(copysign), F2(fdim), F2(hypot), F2(nextafter), )}, - {"CString", Type(CStringType), Text("char*"), Text("CString$info"), TypedList(ns_entry_t, - {"as_text", "Text$from_str", "func(str:CString -> Text)"}, + {"CString", Type(CStringType), Text("char*"), Text("CStringヽinfo"), TypedList(ns_entry_t, + {"as_text", "Textヽfrom_str", "func(str:CString -> Text)"}, )}, #undef F2 #undef F_opt #undef F #undef C - {"PathType", PATH_TYPE_TYPE, Text("PathType_t"), Text("PathType$info"), TypedList(ns_entry_t, - {"Relative", "((PathType_t){.$tag=PATH_RELATIVE})", "PathType"}, - {"Absolute", "((PathType_t){.$tag=PATH_ABSOLUTE})", "PathType"}, - {"Home", "((PathType_t){.$tag=PATH_HOME})", "PathType"}, + {"PathType", PATH_TYPE_TYPE, Text("PathType_t"), Text("PathTypeヽinfo"), TypedList(ns_entry_t, + {"Relative", "((PathType_t){.ヽtag=PATH_RELATIVE})", "PathType"}, + {"Absolute", "((PathType_t){.ヽtag=PATH_ABSOLUTE})", "PathType"}, + {"Home", "((PathType_t){.ヽtag=PATH_HOME})", "PathType"}, )}, - {"Path", PATH_TYPE, Text("Path_t"), Text("Path$info"), TypedList(ns_entry_t, - {"accessed", "Path$accessed", "func(path:Path, follow_symlinks=yes -> Int64?)"}, - {"append", "Path$append", "func(path:Path, text:Text, permissions=Int32(0o644))"}, - {"append_bytes", "Path$append_bytes", "func(path:Path, bytes:[Byte], permissions=Int32(0o644))"}, - {"base_name", "Path$base_name", "func(path:Path -> Text)"}, - {"by_line", "Path$by_line", "func(path:Path -> func(->Text?)?)"}, - {"can_execute", "Path$can_execute", "func(path:Path -> Bool)"}, - {"can_read", "Path$can_read", "func(path:Path -> Bool)"}, - {"can_write", "Path$can_write", "func(path:Path -> Bool)"}, - {"changed", "Path$changed", "func(path:Path, follow_symlinks=yes -> Int64?)"}, - {"child", "Path$child", "func(path:Path, child:Text -> Path)"}, - {"children", "Path$children", "func(path:Path, include_hidden=no -> [Path])"}, - {"concatenated_with", "Path$concat", "func(a,b:Path -> Path)"}, - {"create_directory", "Path$create_directory", "func(path:Path, permissions=Int32(0o755))"}, - {"current_dir", "Path$current_dir", "func(->Path)"}, - {"exists", "Path$exists", "func(path:Path -> Bool)"}, - {"expand_home", "Path$expand_home", "func(path:Path -> Path)"}, - {"extension", "Path$extension", "func(path:Path, full=yes -> Text)"}, - {"files", "Path$children", "func(path:Path, include_hidden=no -> [Path])"}, - {"from_components", "Path$from_components", "func(components:[Text] -> Path)"}, - {"glob", "Path$glob", "func(path:Path -> [Path])"}, - {"group", "Path$group", "func(path:Path, follow_symlinks=yes -> Text?)"}, - {"has_extension", "Path$has_extension", "func(path:Path, extension:Text -> Bool)"}, - {"is_directory", "Path$is_directory", "func(path:Path, follow_symlinks=yes -> Bool)"}, - {"is_file", "Path$is_file", "func(path:Path, follow_symlinks=yes -> Bool)"}, - {"is_pipe", "Path$is_pipe", "func(path:Path, follow_symlinks=yes -> Bool)"}, - {"is_socket", "Path$is_socket", "func(path:Path, follow_symlinks=yes -> Bool)"}, - {"is_symlink", "Path$is_symlink", "func(path:Path -> Bool)"}, - {"modified", "Path$modified", "func(path:Path, follow_symlinks=yes -> Int64?)"}, - {"owner", "Path$owner", "func(path:Path, follow_symlinks=yes -> Text?)"}, - {"parent", "Path$parent", "func(path:Path -> Path)"}, - {"read", "Path$read", "func(path:Path -> Text?)"}, - {"read_bytes", "Path$read_bytes", "func(path:Path, limit:Int?=none -> [Byte]?)"}, - {"relative_to", "Path$relative_to", "func(path:Path, relative_to:Path -> Path)"}, - {"remove", "Path$remove", "func(path:Path, ignore_missing=no)"}, - {"resolved", "Path$resolved", "func(path:Path, relative_to=(./) -> Path)"}, - {"set_owner", "Path$set_owner", "func(path:Path, owner:Text?=none, group:Text?=none, follow_symlinks=yes)"}, - {"sibling", "Path$sibling", "func(path:Path, name:Text -> Path)"}, - {"subdirectories", "Path$children", "func(path:Path, include_hidden=no -> [Path])"}, - {"unique_directory", "Path$unique_directory", "func(path:Path -> Path)"}, - {"write", "Path$write", "func(path:Path, text:Text, permissions=Int32(0o644))"}, - {"write_bytes", "Path$write_bytes", "func(path:Path, bytes:[Byte], permissions=Int32(0o644))"}, - {"write_unique", "Path$write_unique", "func(path:Path, text:Text -> Path)"}, - {"write_unique_bytes", "Path$write_unique_bytes", "func(path:Path, bytes:[Byte] -> Path)"}, + {"Path", PATH_TYPE, Text("Path_t"), Text("Pathヽinfo"), TypedList(ns_entry_t, + {"accessed", "Pathヽaccessed", "func(path:Path, follow_symlinks=yes -> Int64?)"}, + {"append", "Pathヽappend", "func(path:Path, text:Text, permissions=Int32(0o644))"}, + {"append_bytes", "Pathヽappend_bytes", "func(path:Path, bytes:[Byte], permissions=Int32(0o644))"}, + {"base_name", "Pathヽbase_name", "func(path:Path -> Text)"}, + {"by_line", "Pathヽby_line", "func(path:Path -> func(->Text?)?)"}, + {"can_execute", "Pathヽcan_execute", "func(path:Path -> Bool)"}, + {"can_read", "Pathヽcan_read", "func(path:Path -> Bool)"}, + {"can_write", "Pathヽcan_write", "func(path:Path -> Bool)"}, + {"changed", "Pathヽchanged", "func(path:Path, follow_symlinks=yes -> Int64?)"}, + {"child", "Pathヽchild", "func(path:Path, child:Text -> Path)"}, + {"children", "Pathヽchildren", "func(path:Path, include_hidden=no -> [Path])"}, + {"concatenated_with", "Pathヽconcat", "func(a,b:Path -> Path)"}, + {"create_directory", "Pathヽcreate_directory", "func(path:Path, permissions=Int32(0o755))"}, + {"current_dir", "Pathヽcurrent_dir", "func(->Path)"}, + {"exists", "Pathヽexists", "func(path:Path -> Bool)"}, + {"expand_home", "Pathヽexpand_home", "func(path:Path -> Path)"}, + {"extension", "Pathヽextension", "func(path:Path, full=yes -> Text)"}, + {"files", "Pathヽchildren", "func(path:Path, include_hidden=no -> [Path])"}, + {"from_components", "Pathヽfrom_components", "func(components:[Text] -> Path)"}, + {"glob", "Pathヽglob", "func(path:Path -> [Path])"}, + {"group", "Pathヽgroup", "func(path:Path, follow_symlinks=yes -> Text?)"}, + {"has_extension", "Pathヽhas_extension", "func(path:Path, extension:Text -> Bool)"}, + {"is_directory", "Pathヽis_directory", "func(path:Path, follow_symlinks=yes -> Bool)"}, + {"is_file", "Pathヽis_file", "func(path:Path, follow_symlinks=yes -> Bool)"}, + {"is_pipe", "Pathヽis_pipe", "func(path:Path, follow_symlinks=yes -> Bool)"}, + {"is_socket", "Pathヽis_socket", "func(path:Path, follow_symlinks=yes -> Bool)"}, + {"is_symlink", "Pathヽis_symlink", "func(path:Path -> Bool)"}, + {"modified", "Pathヽmodified", "func(path:Path, follow_symlinks=yes -> Int64?)"}, + {"owner", "Pathヽowner", "func(path:Path, follow_symlinks=yes -> Text?)"}, + {"parent", "Pathヽparent", "func(path:Path -> Path)"}, + {"read", "Pathヽread", "func(path:Path -> Text?)"}, + {"read_bytes", "Pathヽread_bytes", "func(path:Path, limit:Int?=none -> [Byte]?)"}, + {"relative_to", "Pathヽrelative_to", "func(path:Path, relative_to:Path -> Path)"}, + {"remove", "Pathヽremove", "func(path:Path, ignore_missing=no)"}, + {"resolved", "Pathヽresolved", "func(path:Path, relative_to=(./) -> Path)"}, + {"set_owner", "Pathヽset_owner", "func(path:Path, owner:Text?=none, group:Text?=none, follow_symlinks=yes)"}, + {"sibling", "Pathヽsibling", "func(path:Path, name:Text -> Path)"}, + {"subdirectories", "Pathヽchildren", "func(path:Path, include_hidden=no -> [Path])"}, + {"unique_directory", "Pathヽunique_directory", "func(path:Path -> Path)"}, + {"write", "Pathヽwrite", "func(path:Path, text:Text, permissions=Int32(0o644))"}, + {"write_bytes", "Pathヽwrite_bytes", "func(path:Path, bytes:[Byte], permissions=Int32(0o644))"}, + {"write_unique", "Pathヽwrite_unique", "func(path:Path, text:Text -> Path)"}, + {"write_unique_bytes", "Pathヽwrite_unique_bytes", "func(path:Path, bytes:[Byte] -> Path)"}, )}, - {"Text", TEXT_TYPE, Text("Text_t"), Text("Text$info"), TypedList(ns_entry_t, - {"as_c_string", "Text$as_c_string", "func(text:Text -> CString)"}, - {"at", "Text$cluster", "func(text:Text, index:Int -> Text)"}, - {"by_line", "Text$by_line", "func(text:Text -> func(->Text?))"}, - {"by_split", "Text$by_split", "func(text:Text, delimiter='' -> func(->Text?))"}, - {"by_split_any", "Text$by_split_any", "func(text:Text, delimiters=' \\t\\r\\n' -> func(->Text?))"}, - {"bytes", "Text$utf8_bytes", "func(text:Text -> [Byte])"}, - {"caseless_equals", "Text$equal_ignoring_case", "func(a,b:Text, language='C' -> Bool)"}, - {"codepoint_names", "Text$codepoint_names", "func(text:Text -> [Text])"}, - {"ends_with", "Text$ends_with", "func(text,suffix:Text, remainder:&Text? = none -> Bool)"}, - {"from", "Text$from", "func(text:Text, first:Int -> Text)"}, - {"from_bytes", "Text$from_bytes", "func(bytes:[Byte] -> Text?)"}, - {"from_c_string", "Text$from_str", "func(str:CString -> Text?)"}, - {"from_codepoint_names", "Text$from_codepoint_names", "func(codepoint_names:[Text] -> Text?)"}, - {"from_codepoints", "Text$from_codepoints", "func(codepoints:[Int32] -> Text)"}, - {"from_text", "Path$from_text", "func(text:Text -> Path)"}, - {"has", "Text$has", "func(text:Text, target:Text -> Bool)"}, - {"join", "Text$join", "func(glue:Text, pieces:[Text] -> Text)"}, - {"layout", "Text$layout", "func(text:Text -> Text)"}, - {"left_pad", "Text$left_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, - {"lines", "Text$lines", "func(text:Text -> [Text])"}, - {"lower", "Text$lower", "func(text:Text, language='C' -> Text)"}, - {"memory_size", "Text$memory_size", "func(text:Text -> Int)"}, - {"middle_pad", "Text$middle_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, - {"quoted", "Text$quoted", "func(text:Text, color=no, quotation_mark='\"' -> Text)"}, - {"repeat", "Text$repeat", "func(text:Text, count:Int -> Text)"}, - {"replace", "Text$replace", "func(text:Text, target:Text, replacement:Text -> Text)"}, - {"reversed", "Text$reversed", "func(text:Text -> Text)"}, - {"right_pad", "Text$right_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, - {"slice", "Text$slice", "func(text:Text, from=1, to=-1 -> Text)"}, - {"split", "Text$split", "func(text:Text, delimiter='' -> [Text])"}, - {"split_any", "Text$split_any", "func(text:Text, delimiters=' \\t\\r\\n' -> [Text])"}, - {"starts_with", "Text$starts_with", "func(text,prefix:Text, remainder:&Text? = none -> Bool)"}, - {"title", "Text$title", "func(text:Text, language='C' -> Text)"}, - {"to", "Text$to", "func(text:Text, last:Int -> Text)"}, - {"translate", "Text$translate", "func(text:Text, translations:{Text=Text} -> Text)"}, - {"trim", "Text$trim", "func(text:Text, to_trim=\" \t\r\n\", left=yes, right=yes -> Text)"}, - {"upper", "Text$upper", "func(text:Text, language='C' -> Text)"}, - {"utf32_codepoints", "Text$utf32_codepoints", "func(text:Text -> [Int32])"}, - {"width", "Text$width", "func(text:Text, language='C' -> Int)"}, - {"without_prefix", "Text$without_prefix", "func(text,prefix:Text -> Text)"}, - {"without_suffix", "Text$without_suffix", "func(text,suffix:Text -> Text)"}, + {"Text", TEXT_TYPE, Text("Text_t"), Text("Textヽinfo"), TypedList(ns_entry_t, + {"as_c_string", "Textヽas_c_string", "func(text:Text -> CString)"}, + {"at", "Textヽcluster", "func(text:Text, index:Int -> Text)"}, + {"by_line", "Textヽby_line", "func(text:Text -> func(->Text?))"}, + {"by_split", "Textヽby_split", "func(text:Text, delimiter='' -> func(->Text?))"}, + {"by_split_any", "Textヽby_split_any", "func(text:Text, delimiters=' \\t\\r\\n' -> func(->Text?))"}, + {"bytes", "Textヽutf8_bytes", "func(text:Text -> [Byte])"}, + {"caseless_equals", "Textヽequal_ignoring_case", "func(a,b:Text, language='C' -> Bool)"}, + {"codepoint_names", "Textヽcodepoint_names", "func(text:Text -> [Text])"}, + {"ends_with", "Textヽends_with", "func(text,suffix:Text, remainder:&Text? = none -> Bool)"}, + {"from", "Textヽfrom", "func(text:Text, first:Int -> Text)"}, + {"from_bytes", "Textヽfrom_bytes", "func(bytes:[Byte] -> Text?)"}, + {"from_c_string", "Textヽfrom_str", "func(str:CString -> Text?)"}, + {"from_codepoint_names", "Textヽfrom_codepoint_names", "func(codepoint_names:[Text] -> Text?)"}, + {"from_codepoints", "Textヽfrom_codepoints", "func(codepoints:[Int32] -> Text)"}, + {"from_text", "Pathヽfrom_text", "func(text:Text -> Path)"}, + {"has", "Textヽhas", "func(text:Text, target:Text -> Bool)"}, + {"join", "Textヽjoin", "func(glue:Text, pieces:[Text] -> Text)"}, + {"layout", "Textヽlayout", "func(text:Text -> Text)"}, + {"left_pad", "Textヽleft_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, + {"lines", "Textヽlines", "func(text:Text -> [Text])"}, + {"lower", "Textヽlower", "func(text:Text, language='C' -> Text)"}, + {"memory_size", "Textヽmemory_size", "func(text:Text -> Int)"}, + {"middle_pad", "Textヽmiddle_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, + {"quoted", "Textヽquoted", "func(text:Text, color=no, quotation_mark='\"' -> Text)"}, + {"repeat", "Textヽrepeat", "func(text:Text, count:Int -> Text)"}, + {"replace", "Textヽreplace", "func(text:Text, target:Text, replacement:Text -> Text)"}, + {"reversed", "Textヽreversed", "func(text:Text -> Text)"}, + {"right_pad", "Textヽright_pad", "func(text:Text, count:Int, pad=' ', language='C' -> Text)"}, + {"slice", "Textヽslice", "func(text:Text, from=1, to=-1 -> Text)"}, + {"split", "Textヽsplit", "func(text:Text, delimiter='' -> [Text])"}, + {"split_any", "Textヽsplit_any", "func(text:Text, delimiters=' \\t\\r\\n' -> [Text])"}, + {"starts_with", "Textヽstarts_with", "func(text,prefix:Text, remainder:&Text? = none -> Bool)"}, + {"title", "Textヽtitle", "func(text:Text, language='C' -> Text)"}, + {"to", "Textヽto", "func(text:Text, last:Int -> Text)"}, + {"translate", "Textヽtranslate", "func(text:Text, translations:{Text=Text} -> Text)"}, + {"trim", "Textヽtrim", "func(text:Text, to_trim=\" \t\r\n\", left=yes, right=yes -> Text)"}, + {"upper", "Textヽupper", "func(text:Text, language='C' -> Text)"}, + {"utf32_codepoints", "Textヽutf32_codepoints", "func(text:Text -> [Int32])"}, + {"width", "Textヽwidth", "func(text:Text, language='C' -> Int)"}, + {"without_prefix", "Textヽwithout_prefix", "func(text,prefix:Text -> Text)"}, + {"without_suffix", "Textヽwithout_suffix", "func(text,suffix:Text -> Text)"}, )}, }; @@ -400,12 +400,12 @@ env_t *global_env(bool source_mapping) if (ns_env == NULL) ns_env = namespace_env(env, global_types[i].name); binding_t *binding = new(binding_t, .type=Type(TypeInfoType, .name=global_types[i].name, .type=global_types[i].type, .env=ns_env), .code=global_types[i].typeinfo); - Table$str_set(env->globals, global_types[i].name, binding); - Table$str_set(env->types, global_types[i].name, global_types[i].type); + Tableヽstr_set(env->globals, global_types[i].name, binding); + Tableヽstr_set(env->types, global_types[i].name, global_types[i].type); } for (size_t i = 0; i < sizeof(global_types)/sizeof(global_types[0]); i++) { - binding_t *type_binding = Table$str_get(*env->globals, global_types[i].name); + binding_t *type_binding = Tableヽstr_get(*env->globals, global_types[i].name); assert(type_binding); env_t *ns_env = Match(type_binding->type, TypeInfoType)->env; for (int64_t j = 0; j < global_types[i].namespace.length; j++) { @@ -413,7 +413,7 @@ env_t *global_env(bool source_mapping) type_t *type = parse_type_string(ns_env, entry->type_str); if (!type) compiler_err(NULL, NULL, NULL, "Couldn't parse type string: ", entry->type_str); if (type->tag == ClosureType) type = Match(type, ClosureType)->fn; - set_binding(ns_env, entry->name, type, Text$from_str(entry->code)); + set_binding(ns_env, entry->name, type, Textヽfrom_str(entry->code)); } } @@ -424,99 +424,99 @@ env_t *global_env(bool source_mapping) struct { const char *c_name, *type_str; } constructor_infos[] = {__VA_ARGS__}; \ for (size_t i = 0; i < sizeof(constructor_infos)/sizeof(constructor_infos[0]); i++) { \ type_t *t = parse_type_string(ns_env, constructor_infos[i].type_str); \ - List$insert(&ns_env->namespace->constructors, \ - ((binding_t[1]){{.code=Text$from_str(constructor_infos[i].c_name), \ + Listヽinsert(&ns_env->namespace->constructors, \ + ((binding_t[1]){{.code=Textヽfrom_str(constructor_infos[i].c_name), \ .type=Match(t, ClosureType)->fn}}), I(0), sizeof(binding_t)); \ } \ } while (0) ADD_CONSTRUCTORS("Bool", - {"Bool$from_byte", "func(b:Byte -> Bool)"}, - {"Bool$from_int8", "func(i:Int8 -> Bool)"}, - {"Bool$from_int16", "func(i:Int16 -> Bool)"}, - {"Bool$from_int32", "func(i:Int32 -> Bool)"}, - {"Bool$from_int64", "func(i:Int64 -> Bool)"}, - {"Bool$from_int", "func(i:Int -> Bool)"}); + {"Boolヽfrom_byte", "func(b:Byte -> Bool)"}, + {"Boolヽfrom_int8", "func(i:Int8 -> Bool)"}, + {"Boolヽfrom_int16", "func(i:Int16 -> Bool)"}, + {"Boolヽfrom_int32", "func(i:Int32 -> Bool)"}, + {"Boolヽfrom_int64", "func(i:Int64 -> Bool)"}, + {"Boolヽfrom_int", "func(i:Int -> Bool)"}); ADD_CONSTRUCTORS("Byte", - {"Byte$from_bool", "func(b:Bool -> Byte)"}, - {"Byte$from_int8", "func(i:Int8 -> Byte)"}, - {"Byte$from_int16", "func(i:Int16, truncate=no -> Byte)"}, - {"Byte$from_int32", "func(i:Int32, truncate=no -> Byte)"}, - {"Byte$from_int64", "func(i:Int64, truncate=no -> Byte)"}, - {"Byte$from_int", "func(i:Int, truncate=no -> Byte)"}); + {"Byteヽfrom_bool", "func(b:Bool -> Byte)"}, + {"Byteヽfrom_int8", "func(i:Int8 -> Byte)"}, + {"Byteヽfrom_int16", "func(i:Int16, truncate=no -> Byte)"}, + {"Byteヽfrom_int32", "func(i:Int32, truncate=no -> Byte)"}, + {"Byteヽfrom_int64", "func(i:Int64, truncate=no -> Byte)"}, + {"Byteヽfrom_int", "func(i:Int, truncate=no -> Byte)"}); ADD_CONSTRUCTORS("Int", - {"Int$from_bool", "func(b:Bool -> Int)"}, - {"Int$from_byte", "func(b:Byte -> Int)"}, - {"Int$from_int8", "func(i:Int8 -> Int)"}, - {"Int$from_int16", "func(i:Int16 -> Int)"}, - {"Int$from_int32", "func(i:Int32 -> Int)"}, - {"Int$from_int64", "func(i:Int64 -> Int)"}, - {"Int$from_num", "func(n:Num, truncate=no -> Int)"}, - {"Int$from_num32", "func(n:Num32, truncate=no -> Int)"}); + {"Intヽfrom_bool", "func(b:Bool -> Int)"}, + {"Intヽfrom_byte", "func(b:Byte -> Int)"}, + {"Intヽfrom_int8", "func(i:Int8 -> Int)"}, + {"Intヽfrom_int16", "func(i:Int16 -> Int)"}, + {"Intヽfrom_int32", "func(i:Int32 -> Int)"}, + {"Intヽfrom_int64", "func(i:Int64 -> Int)"}, + {"Intヽfrom_num", "func(n:Num, truncate=no -> Int)"}, + {"Intヽfrom_num32", "func(n:Num32, truncate=no -> Int)"}); ADD_CONSTRUCTORS("Int64", - {"Int64$from_bool", "func(b:Bool -> Int64)"}, - {"Int64$from_byte", "func(b:Byte -> Int64)"}, - {"Int64$from_int8", "func(i:Int8 -> Int64)"}, - {"Int64$from_int16", "func(i:Int16 -> Int64)"}, - {"Int64$from_int32", "func(i:Int32 -> Int64)"}, - {"Int64$from_int", "func(i:Int, truncate=no -> Int64)"}, - {"Int64$from_num", "func(n:Num, truncate=no -> Int64)"}, - {"Int64$from_num32", "func(n:Num32, truncate=no -> Int64)"}); + {"Int64ヽfrom_bool", "func(b:Bool -> Int64)"}, + {"Int64ヽfrom_byte", "func(b:Byte -> Int64)"}, + {"Int64ヽfrom_int8", "func(i:Int8 -> Int64)"}, + {"Int64ヽfrom_int16", "func(i:Int16 -> Int64)"}, + {"Int64ヽfrom_int32", "func(i:Int32 -> Int64)"}, + {"Int64ヽfrom_int", "func(i:Int, truncate=no -> Int64)"}, + {"Int64ヽfrom_num", "func(n:Num, truncate=no -> Int64)"}, + {"Int64ヽfrom_num32", "func(n:Num32, truncate=no -> Int64)"}); ADD_CONSTRUCTORS("Int32", - {"Int32$from_bool", "func(b:Bool -> Int32)"}, - {"Int32$from_byte", "func(b:Byte -> Int32)"}, - {"Int32$from_int8", "func(i:Int8 -> Int32)"}, - {"Int32$from_int16", "func(i:Int16 -> Int32)"}, - {"Int32$from_int64", "func(i:Int64, truncate=no -> Int32)"}, - {"Int32$from_int", "func(i:Int, truncate=no -> Int32)"}, - {"Int32$from_num", "func(n:Num, truncate=no -> Int32)"}, - {"Int32$from_num32", "func(n:Num32, truncate=no -> Int32)"}); + {"Int32ヽfrom_bool", "func(b:Bool -> Int32)"}, + {"Int32ヽfrom_byte", "func(b:Byte -> Int32)"}, + {"Int32ヽfrom_int8", "func(i:Int8 -> Int32)"}, + {"Int32ヽfrom_int16", "func(i:Int16 -> Int32)"}, + {"Int32ヽfrom_int64", "func(i:Int64, truncate=no -> Int32)"}, + {"Int32ヽfrom_int", "func(i:Int, truncate=no -> Int32)"}, + {"Int32ヽfrom_num", "func(n:Num, truncate=no -> Int32)"}, + {"Int32ヽfrom_num32", "func(n:Num32, truncate=no -> Int32)"}); ADD_CONSTRUCTORS("Int16", - {"Int16$from_bool", "func(b:Bool -> Int16)"}, - {"Int16$from_byte", "func(b:Byte -> Int16)"}, - {"Int16$from_int8", "func(i:Int8 -> Int16)"}, - {"Int16$from_int32", "func(i:Int32, truncate=no -> Int16)"}, - {"Int16$from_int64", "func(i:Int64, truncate=no -> Int16)"}, - {"Int16$from_int", "func(i:Int, truncate=no -> Int16)"}, - {"Int16$from_num", "func(n:Num, truncate=no -> Int16)"}, - {"Int16$from_num32", "func(n:Num32, truncate=no -> Int16)"}); + {"Int16ヽfrom_bool", "func(b:Bool -> Int16)"}, + {"Int16ヽfrom_byte", "func(b:Byte -> Int16)"}, + {"Int16ヽfrom_int8", "func(i:Int8 -> Int16)"}, + {"Int16ヽfrom_int32", "func(i:Int32, truncate=no -> Int16)"}, + {"Int16ヽfrom_int64", "func(i:Int64, truncate=no -> Int16)"}, + {"Int16ヽfrom_int", "func(i:Int, truncate=no -> Int16)"}, + {"Int16ヽfrom_num", "func(n:Num, truncate=no -> Int16)"}, + {"Int16ヽfrom_num32", "func(n:Num32, truncate=no -> Int16)"}); ADD_CONSTRUCTORS("Int8", - {"Int8$from_bool", "func(b:Bool -> Int8)"}, - {"Int8$from_byte", "func(b:Byte -> Int8)"}, - {"Int8$from_int16", "func(i:Int16, truncate=no -> Int8)"}, - {"Int8$from_int32", "func(i:Int32, truncate=no -> Int8)"}, - {"Int8$from_int64", "func(i:Int64, truncate=no -> Int8)"}, - {"Int8$from_int", "func(i:Int, truncate=no -> Int8)"}, - {"Int8$from_num", "func(n:Num, truncate=no -> Int8)"}, - {"Int8$from_num32", "func(n:Num32, truncate=no -> Int8)"}); + {"Int8ヽfrom_bool", "func(b:Bool -> Int8)"}, + {"Int8ヽfrom_byte", "func(b:Byte -> Int8)"}, + {"Int8ヽfrom_int16", "func(i:Int16, truncate=no -> Int8)"}, + {"Int8ヽfrom_int32", "func(i:Int32, truncate=no -> Int8)"}, + {"Int8ヽfrom_int64", "func(i:Int64, truncate=no -> Int8)"}, + {"Int8ヽfrom_int", "func(i:Int, truncate=no -> Int8)"}, + {"Int8ヽfrom_num", "func(n:Num, truncate=no -> Int8)"}, + {"Int8ヽfrom_num32", "func(n:Num32, truncate=no -> Int8)"}); ADD_CONSTRUCTORS("Num", - {"Num$from_bool", "func(b:Bool -> Num)"}, - {"Num$from_byte", "func(b:Byte -> Num)"}, - {"Num$from_int8", "func(i:Int8 -> Num)"}, - {"Num$from_int16", "func(i:Int16 -> Num)"}, - {"Num$from_int32", "func(i:Int32 -> Num)"}, - {"Num$from_int64", "func(i:Int64, truncate=no -> Num)"}, - {"Num$from_int", "func(i:Int, truncate=no -> Num)"}, - {"Num$from_num32", "func(n:Num32 -> Num)"}); + {"Numヽfrom_bool", "func(b:Bool -> Num)"}, + {"Numヽfrom_byte", "func(b:Byte -> Num)"}, + {"Numヽfrom_int8", "func(i:Int8 -> Num)"}, + {"Numヽfrom_int16", "func(i:Int16 -> Num)"}, + {"Numヽfrom_int32", "func(i:Int32 -> Num)"}, + {"Numヽfrom_int64", "func(i:Int64, truncate=no -> Num)"}, + {"Numヽfrom_int", "func(i:Int, truncate=no -> Num)"}, + {"Numヽfrom_num32", "func(n:Num32 -> Num)"}); ADD_CONSTRUCTORS("Num32", - {"Num32$from_bool", "func(b:Bool -> Num32)"}, - {"Num32$from_byte", "func(b:Byte -> Num32)"}, - {"Num32$from_int8", "func(i:Int8 -> Num32)"}, - {"Num32$from_int16", "func(i:Int16 -> Num32)"}, - {"Num32$from_int32", "func(i:Int32, truncate=no -> Num32)"}, - {"Num32$from_int64", "func(i:Int64, truncate=no -> Num32)"}, - {"Num32$from_int", "func(i:Int, truncate=no -> Num32)"}, - {"Num32$from_num", "func(n:Num -> Num32)"}); + {"Num32ヽfrom_bool", "func(b:Bool -> Num32)"}, + {"Num32ヽfrom_byte", "func(b:Byte -> Num32)"}, + {"Num32ヽfrom_int8", "func(i:Int8 -> Num32)"}, + {"Num32ヽfrom_int16", "func(i:Int16 -> Num32)"}, + {"Num32ヽfrom_int32", "func(i:Int32, truncate=no -> Num32)"}, + {"Num32ヽfrom_int64", "func(i:Int64, truncate=no -> Num32)"}, + {"Num32ヽfrom_int", "func(i:Int, truncate=no -> Num32)"}, + {"Num32ヽfrom_num", "func(n:Num -> Num32)"}); ADD_CONSTRUCTORS("Path", - {"Path$escape_text", "func(text:Text -> Path)"}, - {"Path$escape_path", "func(path:Path -> Path)"}, - {"Int$value_as_text", "func(i:Int -> Path)"}); - ADD_CONSTRUCTORS("CString", {"Text$as_c_string", "func(text:Text -> CString)"}); + {"Pathヽescape_text", "func(text:Text -> Path)"}, + {"Pathヽescape_path", "func(path:Path -> Path)"}, + {"Intヽvalue_as_text", "func(i:Int -> Path)"}); + ADD_CONSTRUCTORS("CString", {"Textヽas_c_string", "func(text:Text -> CString)"}); #undef ADD_CONSTRUCTORS set_binding(namespace_env(env, "Path"), "from_text", NewFunctionType(PATH_TYPE, {.name="text", .type=TEXT_TYPE}), - Text("Path$from_text")); + Text("Pathヽfrom_text")); struct { const char *name, *code, *type_str; @@ -537,7 +537,7 @@ env_t *global_env(bool source_mapping) type_t *type = parse_type_string(env, global_vars[i].type_str); if (!type) compiler_err(NULL, NULL, NULL, "Couldn't parse type string for ", global_vars[i].name, ": ", global_vars[i].type_str); if (type->tag == ClosureType) type = Match(type, ClosureType)->fn; - Table$str_set(env->globals, global_vars[i].name, new(binding_t, .type=type, .code=Text$from_str(global_vars[i].code))); + Tableヽstr_set(env->globals, global_vars[i].name, new(binding_t, .type=type, .code=Textヽfrom_str(global_vars[i].code))); } _global_env = env; @@ -547,14 +547,14 @@ env_t *global_env(bool source_mapping) env_t *load_module_env(env_t *env, ast_t *ast) { const char *name = ast->file->filename; - env_t *cached = Table$str_get(*env->imports, name); + env_t *cached = Tableヽstr_get(*env->imports, name); if (cached) return cached; env_t *module_env = fresh_scope(env); module_env->code = new(compilation_unit_t); module_env->namespace_bindings = module_env->locals; module_env->id_suffix = get_id_suffix(ast->file->filename); - Table$str_set(module_env->imports, name, module_env); + Tableヽstr_set(module_env->imports, name, module_env); ast_list_t *statements = Match(ast, Block)->statements; visit_topologically(statements, (Closure_t){.fn=(void*)prebind_statement, .userdata=module_env}); @@ -584,7 +584,7 @@ env_t *with_enum_scope(env_t *env, type_t *t) continue; binding_t *b = get_binding(ns_env, tag->name); assert(b); - Table$str_set(env->locals, tag->name, b); + Tableヽstr_set(env->locals, tag->name, b); } return env; } @@ -607,10 +607,10 @@ env_t *for_scope(env_t *env, ast_t *ast) vars[num_vars++] = Match(var->ast, Var)->name; } if (num_vars == 1) { - set_binding(scope, vars[0], item_t, Texts("_$", vars[0])); + set_binding(scope, vars[0], item_t, USER_ID(vars[0])); } else if (num_vars == 2) { - set_binding(scope, vars[0], INT_TYPE, Texts("_$", vars[0])); - set_binding(scope, vars[1], item_t, Texts("_$", vars[1])); + set_binding(scope, vars[0], INT_TYPE, USER_ID(vars[0])); + set_binding(scope, vars[1], item_t, USER_ID(vars[1])); } return scope; } @@ -620,7 +620,7 @@ env_t *for_scope(env_t *env, ast_t *ast) code_err(for_->vars->next->ast, "This is too many variables for this loop"); type_t *item_type = Match(iter_t, SetType)->item_type; const char *name = Match(for_->vars->ast, Var)->name; - set_binding(scope, name, item_type, Texts("_$", name)); + set_binding(scope, name, item_type, USER_ID(name)); } return scope; } @@ -635,11 +635,11 @@ env_t *for_scope(env_t *env, ast_t *ast) type_t *key_t = Match(iter_t, TableType)->key_type; if (num_vars == 1) { - set_binding(scope, vars[0], key_t, Texts("_$", vars[0])); + set_binding(scope, vars[0], key_t, USER_ID(vars[0])); } else if (num_vars == 2) { - set_binding(scope, vars[0], key_t, Texts("_$", vars[0])); + set_binding(scope, vars[0], key_t, USER_ID(vars[0])); type_t *value_t = Match(iter_t, TableType)->value_type; - set_binding(scope, vars[1], value_t, Texts("_$", vars[1])); + set_binding(scope, vars[1], value_t, USER_ID(vars[1])); } return scope; } @@ -648,7 +648,7 @@ env_t *for_scope(env_t *env, ast_t *ast) if (for_->vars->next) code_err(for_->vars->next->ast, "This is too many variables for this loop"); const char *var = Match(for_->vars->ast, Var)->name; - set_binding(scope, var, INT_TYPE, Texts("_$", var)); + set_binding(scope, var, INT_TYPE, USER_ID(var)); } return scope; } @@ -660,7 +660,7 @@ env_t *for_scope(env_t *env, ast_t *ast) code_err(for_->vars->next->ast, "This is too many variables for this loop"); const char *var = Match(for_->vars->ast, Var)->name; type_t *non_opt_type = fn->ret->tag == OptionalType ? Match(fn->ret, OptionalType)->type : fn->ret; - set_binding(scope, var, non_opt_type, Texts("_$", var)); + set_binding(scope, var, non_opt_type, USER_ID(var)); } return scope; } @@ -677,7 +677,7 @@ env_t *get_namespace_by_type(env_t *env, type_t *t) case TableType: return NULL; case CStringType: case BoolType: case IntType: case BigIntType: case NumType: case ByteType: { - binding_t *b = get_binding(env, Text$as_c_string(type_to_text(t))); + binding_t *b = get_binding(env, Textヽas_c_string(type_to_text(t))); assert(b); return Match(b->type, TypeInfoType)->env; } @@ -715,7 +715,7 @@ env_t *namespace_env(env_t *env, const char *namespace_name) PUREFUNC binding_t *get_binding(env_t *env, const char *name) { - return Table$str_get(*env->locals, name); + return Tableヽstr_get(*env->locals, name); } binding_t *get_namespace_binding(env_t *env, ast_t *self, const char *name) @@ -776,7 +776,7 @@ PUREFUNC binding_t *get_metamethod_binding(env_t *env, ast_e tag, ast_t *lhs, as void set_binding(env_t *env, const char *name, type_t *type, Text_t code) { assert(name); - Table$str_set(env->locals, name, new(binding_t, .type=type, .code=code)); + Tableヽstr_set(env->locals, name, new(binding_t, .type=type, .code=code)); } // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0 |