|| Generated Sapl file for SaplTokenizer.icl


SaplTokenizer.rnoarg_29 !<{_v+_0}> start_1 t_2 length_3 = _predefined._Tuple3 start_1 (<{StdOverloaded.get_+_0}> <{_v+_0}> start_1 length_3) t_2
SaplTokenizer.anon_26 prev_0 !str_1 !base_2 = StdBool.not (FastString.matchAt "}>" str_1 base_2)
SaplTokenizer.find_first_string !line_0 !start_1 f_2 = if (<{StdInt.==_16}> start_1 (_SystemArray.size_20 line_0)) (_SystemArray.size_20 line_0) (if (f_2 (_SystemArray.select_19 line_0 (<{StdInt.-_7}> start_1 1)) line_0 start_1) (SaplTokenizer.find_first_string line_0 (<{StdInt.+_6}> start_1 1) f_2) start_1)
SaplTokenizer.return_30 start_0 !_x_1 = select _x_1 (\ a_1_0 newbase_1_1 = _predefined._Tuple3 start_0 newbase_1_1 a_1_0)
SaplTokenizer.anon_27 prev_0 !str_1 !base_2 = StdBool.not (FastString.matchAt "}>" str_1 base_2)
SaplTokenizer.anon_25 s_0 !c_1 = StdBool.not (<{StdChar.==_18}> c_1 '\n')
SaplTokenizer.not_eol = SaplTokenizer.anon_25
SaplTokenizer.find_first_char !line_0 !start_1 f_2 = if (<{StdInt.==_16}> start_1 (_SystemArray.size_20 line_0)) (_SystemArray.size_20 line_0) (if (f_2 (<{SaplTokenizer._if;51;12_43}> (<{StdInt.<_17}> 1 start_1) line_0 start_1) (_SystemArray.select_19 line_0 start_1)) (SaplTokenizer.find_first_char line_0 (<{StdInt.+_6}> start_1 1) f_2) start_1)
<{SaplTokenizer._if;51;12_43}> !_x_0 !line_1 !start_2 = if (<{StdBool.==_3}> _x_0 True) (_SystemArray.update_21 (_SystemArray.update_21 (_SystemArray._createArray_16 2) 1 (_SystemArray.select_19 line_1 (<{StdInt.-_7}> start_2 1))) 0 (_SystemArray.select_19 line_1 (<{StdInt.-_7}> start_2 2))) (<{SaplTokenizer._if;51;12_43_def0}> _x_0 line_1 start_2)
<{SaplTokenizer._if;51;12_43_def0}> !_x_0 !line_1 !start_2 = _SystemArray.update_21 (_SystemArray._createArray_16 1) 0 (_SystemArray.select_19 line_1 (<{StdInt.-_7}> start_2 1))
SaplTokenizer.is_string_stopchar prev_0 !char_1 = if (SaplTokenizer.is_string_stopchar_select0 prev_0 char_1) (if (StdBool.not (FastString.endsWith "\\" prev_0)) True (FastString.endsWith "\\\\" prev_0)) False
SaplTokenizer.is_string_stopchar_select0 prev_0 !char_1 = if (<{StdChar.==_18}> char_1 '"') True (<{StdChar.==_18}> char_1 '\n')
SaplTokenizer.anon_21 s_0 !c_1 = StdBool.not (SaplTokenizer.is_string_stopchar s_0 c_1)
SaplTokenizer.not_string_stopchar = SaplTokenizer.anon_21
SaplTokenizer.is_char_stopchar prev_0 !char_1 = if (SaplTokenizer.is_char_stopchar_select0 prev_0 char_1) (if (StdBool.not (FastString.endsWith "\\" prev_0)) True (FastString.endsWith "\\\\" prev_0)) False
SaplTokenizer.is_char_stopchar_select0 prev_0 !char_1 = if (<{StdChar.==_18}> char_1 '\'') True (<{StdChar.==_18}> char_1 '\n')
SaplTokenizer.anon_22 s_0 !c_1 = StdBool.not (SaplTokenizer.is_char_stopchar s_0 c_1)
SaplTokenizer.not_char_stopchar = SaplTokenizer.anon_22
SaplTokenizer.is_numchar prev_0 !char_1 = StdChar.isDigit char_1
SaplTokenizer.tstr_28 !<{_v%_0}> line_1 start_2 stop_3 = <{StdOverloaded.get_%_11}> <{_v%_0}> line_1 (_predefined._Tuple2 start_2 (<{StdInt.-_7}> stop_3 1))
SaplTokenizer.tstr_39 !line_0 !start_1 !stop_2 = <{StdString.%_10}> line_0 (_predefined._Tuple2 start_1 (<{StdInt.-_7}> stop_2 1))
SaplTokenizer.numberToken_31 line_0 start_1 p1_2 = let fpart_1_0 = SaplTokenizer.find_first_char line_0 (<{StdInt.+_6}> start_1 p1_2) SaplTokenizer.is_numchar, _x_1_1 = <{SaplTokenizer._if;133;26_45}> (SaplTokenizer._f44_44 (<{StdInt.<_17}> fpart_1_0 (_SystemArray.size_20 line_0)) line_0 fpart_1_0) line_0 fpart_1_0, stop_1_2 = _predefined.tupsels2v1 _x_1_1 in SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TConst (<{SaplTokenizer._if;135;27_46}> (_predefined.tupsels2v0 _x_1_1) line_0 start_1 stop_1_2)) stop_1_2)
<{SaplTokenizer._if;135;27_46}> !_x_0 line_1 start_2 stop_3 = if (<{StdBool.==_3}> _x_0 True) (SaplTokenizer.CReal (StdReal.toReal_15 (SaplTokenizer.tstr_39 line_1 start_2 stop_3))) (<{SaplTokenizer._if;135;27_46_def0}> _x_0 line_1 start_2 stop_3)
<{SaplTokenizer._if;135;27_46_def0}> !_x_0 line_1 start_2 stop_3 = SaplTokenizer.CInt (StdInt.toInt_23 (SaplTokenizer.tstr_39 line_1 start_2 stop_3))
<{SaplTokenizer._if;133;26_45}> !_x_0 line_1 fpart_2 = if (<{StdBool.==_3}> _x_0 True) (_predefined._Tuple2 True (SaplTokenizer.find_first_char line_1 (<{StdInt.+_6}> fpart_2 1) SaplTokenizer.is_numchar)) (<{SaplTokenizer._if;133;26_45_def0}> _x_0 line_1 fpart_2)
<{SaplTokenizer._if;133;26_45_def0}> !_x_0 line_1 fpart_2 = _predefined._Tuple2 False fpart_2
SaplTokenizer._f44_44 !_x_0 line_1 fpart_2 = if (<{StdBool.==_3}> _x_0 True) (<{StdChar.==_18}> (_SystemArray.select_19 line_1 fpart_2) '.') (SaplTokenizer._f44_44_def0 _x_0 line_1 fpart_2)
SaplTokenizer._f44_44_def0 !_x_0 line_1 fpart_2 = False
SaplTokenizer.is_stopchar prev_0 !char_1 = if (<{StdChar.==_18}> char_1 '=') True (if (<{StdChar.==_18}> char_1 ':') True (if (<{StdChar.==_18}> char_1 ')') True (if (<{StdChar.==_18}> char_1 '(') True (if (<{StdChar.==_18}> char_1 '|') True (if (<{StdChar.==_18}> char_1 '{') True (if (<{StdChar.==_18}> char_1 '}') True (if (<{StdChar.==_18}> char_1 ',') True (if (<{StdChar.==_18}> char_1 ';') True (StdChar.isSpace char_1)))))))))
SaplTokenizer.anon_20 s_0 !c_1 = StdBool.not (SaplTokenizer.is_stopchar s_0 c_1)
SaplTokenizer.not_stopchar = SaplTokenizer.anon_20
SaplTokenizer.anon_24 s_0 !c_1 = if (StdChar.isSpace c_1) (StdBool.not (<{StdChar.==_18}> c_1 '\n')) False
SaplTokenizer.is_space = SaplTokenizer.anon_24
SaplTokenizer.rnoarg_40 start_0 t_1 length_2 = _predefined._Tuple3 start_0 (<{StdInt.+_6}> start_0 length_2) t_1
SaplTokenizer.read_token !base_0 !line_1 = let start_1_0 = SaplTokenizer.find_first_char line_1 base_0 SaplTokenizer.is_space in SaplTokenizer.read_token_select22 start_1_0 base_0 line_1
SaplTokenizer.read_token_select0 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) ';') True (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '\n')
SaplTokenizer.read_token_select1 start_1_0 !base_0 !line_1 = if (StdChar.isDigit (_SystemArray.select_19 line_1 start_1_0)) (SaplTokenizer.numberToken_31 line_1 start_1_0 0) (let stop_2_0 = SaplTokenizer.find_first_char line_1 start_1_0 SaplTokenizer.not_stopchar, str_2_1 = SaplTokenizer.tstr_39 line_1 start_1_0 stop_2_0 in <{SaplTokenizer._c;111;11_47}> str_2_1 start_1_0 stop_2_0)
SaplTokenizer.read_token_select2 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '-') (SaplTokenizer.numberToken_31 line_1 start_1_0 1) (SaplTokenizer.read_token_select1 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select3 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '+') (SaplTokenizer.numberToken_31 line_1 start_1_0 1) (SaplTokenizer.read_token_select2 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select4 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '\'') (let stop_2_0 = SaplTokenizer.find_first_char line_1 (<{StdInt.+_6}> start_1_0 1) SaplTokenizer.not_char_stopchar in SaplTokenizer.return_30 start_1_0 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CChar (<{StdString.%_10}> line_1 (_predefined._Tuple2 (<{StdInt.+_6}> start_1_0 1) (<{StdInt.-_7}> stop_2_0 1))))) (<{StdInt.+_6}> stop_2_0 1))) (SaplTokenizer.read_token_select3 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select5 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '"') (let stop_2_0 = SaplTokenizer.find_first_char line_1 (<{StdInt.+_6}> start_1_0 1) SaplTokenizer.not_string_stopchar in SaplTokenizer.return_30 start_1_0 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CString (<{StdString.%_10}> line_1 (_predefined._Tuple2 (<{StdInt.+_6}> start_1_0 1) (<{StdInt.-_7}> stop_2_0 1))))) (<{StdInt.+_6}> stop_2_0 1))) (SaplTokenizer.read_token_select4 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select6 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '}') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TCloseBracket 1) (SaplTokenizer.read_token_select5 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select7 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '{') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TOpenBracket 1) (SaplTokenizer.read_token_select6 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select8 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) ')') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TCloseParenthesis 1) (SaplTokenizer.read_token_select7 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select9 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '(') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TOpenParenthesis 1) (SaplTokenizer.read_token_select8 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select10 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) ',') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TColon 1) (SaplTokenizer.read_token_select9 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select11 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '\\') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TLambda 1) (SaplTokenizer.read_token_select10 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select12 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '@') (SaplTokenizer.read_token (<{StdInt.+_6}> start_1_0 1) line_1) (SaplTokenizer.read_token_select11 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select13 start_1_0 !base_0 !line_1 = if (FastString.matchAt ":==" line_1 start_1_0) (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TMacroAssignmentOp 3) (SaplTokenizer.read_token_select12 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select14 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '=') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TAssignmentOp 1) (SaplTokenizer.read_token_select13 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select15 start_1_0 !base_0 !line_1 = if (<{StdChar.==_18}> (_SystemArray.select_19 line_1 start_1_0) '|') (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TVerticalBar 1) (SaplTokenizer.read_token_select14 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select16 start_1_0 !base_0 !line_1 = if (FastString.matchAt "||" line_1 start_1_0) (SaplTokenizer.read_token (SaplTokenizer.find_first_char line_1 (<{StdInt.+_6}> start_1_0 2) SaplTokenizer.not_eol) line_1) (SaplTokenizer.read_token_select15 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select17 start_1_0 !base_0 !line_1 = if (FastString.matchAt "::" line_1 start_1_0) (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TTypeDef 2) (SaplTokenizer.read_token_select16 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select18 start_1_0 !base_0 !line_1 = if (FastString.matchAt "=:" line_1 start_1_0) (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TCAFAssignmentOp 2) (SaplTokenizer.read_token_select17 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select19 start_1_0 !base_0 !line_1 = if (FastString.matchAt "<{" line_1 start_1_0) (let stop_2_0 = SaplTokenizer.find_first_string line_1 (<{StdInt.+_6}> start_1_0 2) SaplTokenizer.anon_27 in SaplTokenizer.return_30 start_1_0 (_predefined._Tuple2 (SaplTokenizer.TIdentifier (<{StdString.%_10}> line_1 (_predefined._Tuple2 (<{StdInt.+_6}> start_1_0 2) (<{StdInt.-_7}> stop_2_0 1)))) (<{StdInt.+_6}> stop_2_0 2))) (SaplTokenizer.read_token_select18 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select20 start_1_0 !base_0 !line_1 = if (FastString.matchAt "!<{" line_1 start_1_0) (let stop_2_0 = SaplTokenizer.find_first_string line_1 (<{StdInt.+_6}> start_1_0 3) SaplTokenizer.anon_26 in SaplTokenizer.return_30 start_1_0 (_predefined._Tuple2 (SaplTokenizer.TStrictIdentifier (<{StdString.%_10}> line_1 (_predefined._Tuple2 (<{StdInt.+_6}> start_1_0 3) (<{StdInt.-_7}> stop_2_0 1)))) (<{StdInt.+_6}> stop_2_0 2))) (SaplTokenizer.read_token_select19 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select21 start_1_0 !base_0 !line_1 = if (SaplTokenizer.read_token_select0 start_1_0 base_0 line_1) (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TEndOfLine 1) (SaplTokenizer.read_token_select20 start_1_0 base_0 line_1)
SaplTokenizer.read_token_select22 start_1_0 !base_0 !line_1 = if (<{StdInt.<_17}> (<{StdInt.-_7}> (_SystemArray.size_20 line_1) 1) start_1_0) (SaplTokenizer.rnoarg_40 start_1_0 SaplTokenizer.TEndOfLine 0) (SaplTokenizer.read_token_select21 start_1_0 base_0 line_1)
<{SaplTokenizer._c;111;11_47}> !str_0 !start_1 !stop_2 = if (<{StdString.==_2}> str_0 "False") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CBool False)) stop_2)) (if (<{StdString.==_2}> str_0 "false") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CBool False)) stop_2)) (if (<{StdString.==_2}> str_0 "True") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CBool True)) stop_2)) (if (<{StdString.==_2}> str_0 "true") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TConst (SaplTokenizer.CBool True)) stop_2)) (if (<{StdString.==_2}> str_0 "select") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 SaplTokenizer.TSelectKeyword stop_2)) (if (<{StdString.==_2}> str_0 "if") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 SaplTokenizer.TCaseKeyword stop_2)) (if (<{StdString.==_2}> str_0 "case") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 SaplTokenizer.TCaseKeyword stop_2)) (if (<{StdString.==_2}> str_0 "let") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 SaplTokenizer.TLetKeyword stop_2)) (if (<{StdString.==_2}> str_0 "in") (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 SaplTokenizer.TInKeyword stop_2)) (<{SaplTokenizer._c;111;11_47_def0}> str_0 start_1 stop_2)))))))))
<{SaplTokenizer._c;111;11_47_def0}> !str_0 !start_1 !stop_2 = if (<{StdChar.==_18}> (_SystemArray.select_19 str_0 0) '!') (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TStrictIdentifier (<{StdString.%_10}> str_0 (_predefined._Tuple2 1 (_SystemArray.size_20 str_0)))) stop_2)) (SaplTokenizer.return_30 start_1 (_predefined._Tuple2 (SaplTokenizer.TIdentifier str_0) stop_2))
SaplTokenizer.tokens__34 !inp_0 !base_1 ts_2 = if (<{StdInt.<_17}> base_1 (_SystemArray.size_20 inp_0)) (let _x_1_0 = SaplTokenizer.read_token base_1 inp_0 in SaplTokenizer.tokens__34 inp_0 (_predefined.tupsels3v1 _x_1_0) (_predefined._Cons (_predefined.tupsels3v2 _x_1_0) ts_2)) (StdList.reverse ts_2)
SaplTokenizer.tokens !inp_0 = SaplTokenizer.tokens__34 inp_0 0 _predefined._Nil
SaplTokenizer.finalise_32 _x_0 _x_1 !ts_2 = select ts_2 (\ _x_1_0 _x_1_1 = select _x_1_0 (\ _x_2_0 _x_2_1 _x_2_2 = select _x_2_2 (\ _uv1_3_0 = SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (\ _uv1_3_0 = SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (\ _uv1_3_0 = SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (\ _uv1_3_0 = SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2) (StdList.reverse ts_2))) (SaplTokenizer.finalise_32_def0 _x_0 _x_1 ts_2)
SaplTokenizer.finalise_32_def0 _x_0 _x_1 !ts_2 = StdList.reverse (_predefined._Cons (SaplTokenizer.PosToken _x_0 _x_1 SaplTokenizer.TEndOfLine) ts_2)
SaplTokenizer.tokens__33 !inp_0 lp_1 cp_2 !base_3 ts_4 = <{SaplTokenizer._c;146;15_49}> (<{StdInt.<_17}> base_3 (_SystemArray.size_20 inp_0)) base_3 inp_0 lp_1 cp_2 ts_4
<{SaplTokenizer._c;146;15_49}> !_x_0 base_1 inp_2 lp_3 cp_4 ts_5 = if (<{StdBool.==_3}> _x_0 True) (let _x_1_0 = SaplTokenizer.read_token base_1 inp_2, t_1_1 = _predefined.tupsels3v2 _x_1_0, newbase_1_2 = _predefined.tupsels3v1 _x_1_0, cp2_1_3 = _predefined.tupsels3v0 _x_1_0 in <{SaplTokenizer._c;148;29_48}> t_1_1 inp_2 lp_3 newbase_1_2 cp_4 cp2_1_3 base_1 ts_5) (<{SaplTokenizer._c;146;15_49_def0}> _x_0 base_1 inp_2 lp_3 cp_4 ts_5)
<{SaplTokenizer._c;146;15_49_def0}> !_x_0 base_1 inp_2 lp_3 cp_4 ts_5 = SaplTokenizer.finalise_32 lp_3 cp_4 ts_5
<{SaplTokenizer._c;148;29_48}> !t_0 !inp_1 lp_2 !newbase_3 cp_4 cp2_5 base_6 ts_7 = select t_0 (\ _uv1_1_0 = <{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (\ _uv1_1_0 = <{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (\ _uv1_1_0 = <{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (\ _uv1_1_0 = <{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (<{SaplTokenizer._c;148;29_48_def0}> t_0 inp_1 lp_2 newbase_3 cp_4 cp2_5 base_6 ts_7) (SaplTokenizer.tokens__33 inp_1 (<{StdInt.+_6}> lp_2 1) 1 newbase_3 (_predefined._Cons (SaplTokenizer.PosToken lp_2 (<{StdInt.-_7}> (<{StdInt.+_6}> cp_4 cp2_5) base_6) t_0) ts_7))
<{SaplTokenizer._c;148;29_48_def0}> !t_0 !inp_1 lp_2 !newbase_3 cp_4 cp2_5 base_6 ts_7 = SaplTokenizer.tokens__33 inp_1 lp_2 (<{StdInt.-_7}> (<{StdInt.+_6}> cp_4 newbase_3) base_6) newbase_3 (_predefined._Cons (SaplTokenizer.PosToken lp_2 (<{StdInt.-_7}> (<{StdInt.+_6}> cp_4 cp2_5) base_6) t_0) ts_7)
SaplTokenizer.tokensWithPositions !inp_0 = SaplTokenizer.tokens__33 inp_0 1 1 0 _predefined._Nil
SaplTokenizer.anon_19 s_0 !c_1 = StdBool.not (SaplTokenizer.is_numchar s_0 c_1)
SaplTokenizer.not_numchar = SaplTokenizer.anon_19
SaplTokenizer.anon_23 s_0 !c_1 = StdBool.not (SaplTokenizer.is_space s_0 c_1)
SaplTokenizer.not_space = SaplTokenizer.anon_23
SaplTokenizer.is_ss_37 !c_0 = StdBool.not (SaplTokenizer._f50_50 (StdChar.isAlphanum c_0) c_0)
SaplTokenizer._f50_50 !_x_0 c_1 = if (<{StdBool.==_3}> _x_0 True) True (SaplTokenizer._f50_50_def0 _x_0 c_1)
SaplTokenizer._f50_50_def0 !_x_0 c_1 = if (<{StdChar.==_18}> c_1 '_') True (<{StdChar.==_18}> c_1 '.')
SaplTokenizer._lc_35 !_vArray_0 !g_i_1 !g_s_2 g_a_3 = if (StdBool.not (<{StdInt.<_17}> g_s_2 g_i_1)) (let !g_a_1_0 = _predefined._dummyForStrictAlias (_predefined.tupsels2v1 _x_1_1), _x_1_1 = _SystemArray.get_uselect_6 _vArray_0 g_a_3 g_i_1 in _predefined._Cons (SaplTokenizer.is_ss_37 (_predefined.tupsels2v0 _x_1_1)) (SaplTokenizer._lc_35 _vArray_0 (<{StdInt.+_6}> g_i_1 StdInt.one_11) g_s_2 g_a_1_0)) _predefined._Nil
SaplTokenizer.ss_36 !_vArray_0 f_1 = let _x_1_0 = _SystemArray.get_usize_7 _vArray_0 f_1 in StdList.or (SaplTokenizer._lc_35 _vArray_0 0 (<{StdInt.-_7}> (_predefined.tupsels2v0 _x_1_0) 1) (_predefined.tupsels2v1 _x_1_0))
SaplTokenizer._lc_42 !g_i_0 !g_s_1 g_a_2 = if (StdBool.not (<{StdInt.<_17}> g_s_1 g_i_0)) (let !g_a_1_0 = _predefined._dummyForStrictAlias (_predefined.tupsels2v1 _x_1_1), _x_1_1 = _SystemArray.uselect_22 g_a_2 g_i_0 in _predefined._Cons (SaplTokenizer.is_ss_37 (_predefined.tupsels2v0 _x_1_1)) (SaplTokenizer._lc_42 (<{StdInt.+_6}> g_i_0 StdInt.one_11) g_s_1 g_a_1_0)) _predefined._Nil
SaplTokenizer.ss_41 !f_0 = let _x_1_0 = _SystemArray.usize_23 f_0 in StdList.or (SaplTokenizer._lc_42 0 (<{StdInt.-_7}> (_predefined.tupsels2v0 _x_1_0) 1) (_predefined.tupsels2v1 _x_1_0))
SaplTokenizer.escape !f_0 = if (SaplTokenizer.ss_41 f_0) (<{StdString.+++_11}> "<{" (<{StdString.+++_11}> f_0 "}>")) f_0
SaplTokenizer.toString_3 !_x_0 = select _x_0 (\ str_1_0 = <{StdString.+++_11}> "\"" (<{StdString.+++_11}> str_1_0 "\"")) (\ chr_1_0 = <{StdString.+++_11}> "'" (<{StdString.+++_11}> chr_1_0 "'")) (\ int_1_0 = StdString.toString_5 int_1_0) (\ real_1_0 = StdString.toString_7 real_1_0) (\ _x_1_0 = if _x_1_0 "True" "False")
SaplTokenizer.toString_4 !_x_0 = select _x_0 (\ name_1_0 = SaplTokenizer.escape name_1_0) (\ name_1_0 = <{StdString.+++_11}> "!" (SaplTokenizer.escape name_1_0)) (\ comment_1_0 = <{StdString.+++_11}> "||" comment_1_0) "" "=" ":==" "=:" "\\" "," "|" "(" ")" "{" "}" "::" (\ const_1_0 = SaplTokenizer.toString_3 const_1_0) "select" "if" "let" "in" "\n"
SaplTokenizer.toString_4_def0 !_x_0 = "\n"

:: SaplTokenizer.Token = SaplTokenizer.TIdentifier a1 | SaplTokenizer.TStrictIdentifier a1 | SaplTokenizer.TComment a1 | SaplTokenizer.TInlineAnnotation | SaplTokenizer.TAssignmentOp | SaplTokenizer.TMacroAssignmentOp | SaplTokenizer.TCAFAssignmentOp | SaplTokenizer.TLambda | SaplTokenizer.TColon | SaplTokenizer.TVerticalBar | SaplTokenizer.TOpenParenthesis | SaplTokenizer.TCloseParenthesis | SaplTokenizer.TOpenBracket | SaplTokenizer.TCloseBracket | SaplTokenizer.TTypeDef | SaplTokenizer.TConst a1 | SaplTokenizer.TSelectKeyword | SaplTokenizer.TCaseKeyword | SaplTokenizer.TLetKeyword | SaplTokenizer.TInKeyword | SaplTokenizer.TEndOfLine
:: SaplTokenizer.PosToken = SaplTokenizer.PosToken a1 a2 a3
:: SaplTokenizer.Const = SaplTokenizer.CString a1 | SaplTokenizer.CChar a1 | SaplTokenizer.CInt a1 | SaplTokenizer.CReal a1 | SaplTokenizer.CBool a1

|| Converted Records