def _bool_eq(left, right): """ Return true if left == right, false otherwise. """ if left[0] == '$': return var.copy_str(vartypes.pass_string(left)) == var.copy_str(vartypes.pass_string(right)) else: left, right = vartypes.pass_most_precise(left, right) if left[0] in ('#', '!'): return fp.unpack(left).equals(fp.unpack(right)) else: return vartypes.integer_to_int_signed(left) == vartypes.integer_to_int_signed(right)
def ml_parse_string(gmls): """ Parse a string value in a macro-language string. """ c = util.skip(gmls, ml_whitepace) if len(c) == 0: raise error.RunError(error.IFC) elif ord(c) > 8: name = util.parse_scalar(gmls, err=error.IFC) indices = ml_parse_indices(gmls) sub = var.get_variable(name, indices) util.require_read(gmls, (';',), err=error.IFC) return var.copy_str(vartypes.pass_string(sub, err=error.IFC)) else: # varptr$ return var.copy_str( vartypes.pass_string(get_value_for_varptrstr(gmls.read(3))))
def ml_parse_string(gmls): """ Parse a string value in a macro-language string. """ c = util.skip(gmls, ml_whitepace) if len(c) == 0: raise error.RunError(error.IFC) elif ord(c) > 8: name = util.parse_scalar(gmls, err=error.IFC) indices = ml_parse_indices(gmls) sub = var.get_variable(name, indices) util.require_read(gmls, (';', ), err=error.IFC) return var.copy_str(vartypes.pass_string(sub, err=error.IFC)) else: # varptr$ return var.copy_str( vartypes.pass_string(get_value_for_varptrstr(gmls.read(3))))
def value_environ(ins): """ ENVIRON$: get environment string. """ util.require_read(ins, ('$',)) expr = parse_bracket(ins) if expr[0] == '$': return state.basic_state.strings.store(shell.get_env(var.copy_str(expr))) else: expr = vartypes.pass_int_unpack(expr) util.range_check(1, 255, expr) return state.basic_state.strings.store(shell.get_env_entry(expr))
def value_environ(ins): """ ENVIRON$: get environment string. """ util.require_read(ins, ('$', )) expr = parse_bracket(ins) if expr[0] == '$': return state.basic_state.strings.store( shell.get_env(var.copy_str(expr))) else: expr = vartypes.pass_int_unpack(expr) util.range_check(1, 255, expr) return state.basic_state.strings.store(shell.get_env_entry(expr))
def value_right(ins): """ RIGHT$: get substring at the end of string. """ util.require_read(ins, ('(', )) s = var.copy_str(vartypes.pass_string(parse_expression(ins))) util.require_read(ins, (',', )) stop = vartypes.pass_int_unpack(parse_expression(ins)) util.require_read(ins, (')', )) util.range_check(0, 255, stop) if stop == 0: return vartypes.null('$') stop = min(stop, len(s)) return state.basic_state.strings.store(s[-stop:])
def value_right(ins): """ RIGHT$: get substring at the end of string. """ util.require_read(ins, ('(',)) s = var.copy_str(vartypes.pass_string(parse_expression(ins))) util.require_read(ins, (',',)) stop = vartypes.pass_int_unpack(parse_expression(ins)) util.require_read(ins, (')',)) util.range_check(0, 255, stop) if stop == 0: return vartypes.null('$') stop = min(stop, len(s)) return state.basic_state.strings.store(s[-stop:])
def _bool_gt(left, right): """ Ordering: return -1 if left > right, 0 otherwise. """ if left[0] == '$': left, right = var.copy_str(vartypes.pass_string(left)), var.copy_str(vartypes.pass_string(right)) shortest = min(len(left), len(right)) for i in range(shortest): if left[i] > right[i]: return True elif left[i] < right[i]: return False # the same so far... # the shorter string is said to be less than the longer, # provided they are the same up till the length of the shorter. if len(left) > len(right): return True # left is shorter, or equal strings return False else: left, right = vartypes.pass_most_precise(left, right) if left[0] in ('#', '!'): return fp.unpack(left).gt(fp.unpack(right)) else: return vartypes.integer_to_int_signed(left) > vartypes.integer_to_int_signed(right)
def value_instr(ins): """ INSTR: find substring in string. """ util.require_read(ins, ('(',)) big, small, n = '', '', 1 # followed by coma so empty will raise STX s = parse_expression(ins) if s[0] != '$': n = vartypes.pass_int_unpack(s) util.range_check(1, 255, n) util.require_read(ins, (',',)) big = vartypes.pass_string(parse_expression(ins, allow_empty=True)) else: big = vartypes.pass_string(s) util.require_read(ins, (',',)) small = vartypes.pass_string(parse_expression(ins, allow_empty=True)) util.require_read(ins, (')',)) big, small = var.copy_str(big), var.copy_str(small) if big == '' or n > len(big): return vartypes.null('%') # BASIC counts string positions from 1 find = big[n-1:].find(small) if find == -1: return vartypes.null('%') return vartypes.int_to_integer_signed(n + find)
def value_instr(ins): """ INSTR: find substring in string. """ util.require_read(ins, ('(', )) big, small, n = '', '', 1 # followed by coma so empty will raise STX s = parse_expression(ins) if s[0] != '$': n = vartypes.pass_int_unpack(s) util.range_check(1, 255, n) util.require_read(ins, (',', )) big = vartypes.pass_string(parse_expression(ins, allow_empty=True)) else: big = vartypes.pass_string(s) util.require_read(ins, (',', )) small = vartypes.pass_string(parse_expression(ins, allow_empty=True)) util.require_read(ins, (')', )) big, small = var.copy_str(big), var.copy_str(small) if big == '' or n > len(big): return vartypes.null('%') # BASIC counts string positions from 1 find = big[n - 1:].find(small) if find == -1: return vartypes.null('%') return vartypes.int_to_integer_signed(n + find)
def value_string(ins): """ STRING$: repeat characters. """ util.require_read(ins, ('(', )) n = vartypes.pass_int_unpack(parse_expression(ins)) util.range_check(0, 255, n) util.require_read(ins, (',', )) j = parse_expression(ins) if j[0] == '$': j = var.copy_str(j) util.range_check(1, 255, len(j)) j = ord(j[0]) else: j = vartypes.pass_int_unpack(j) util.range_check(0, 255, j) util.require_read(ins, (')', )) return state.basic_state.strings.store(chr(j) * n)
def value_string(ins): """ STRING$: repeat characters. """ util.require_read(ins, ('(',)) n = vartypes.pass_int_unpack(parse_expression(ins)) util.range_check(0, 255, n) util.require_read(ins, (',',)) j = parse_expression(ins) if j[0] == '$': j = var.copy_str(j) util.range_check(1, 255, len(j)) j = ord(j[0]) else: j = vartypes.pass_int_unpack(j) util.range_check(0, 255, j) util.require_read(ins, (')',)) return state.basic_state.strings.store(chr(j)*n)
def value_mid(ins): """ MID$: get substring. """ util.require_read(ins, ('(', )) s = var.copy_str(vartypes.pass_string(parse_expression(ins))) util.require_read(ins, (',', )) start = vartypes.pass_int_unpack(parse_expression(ins)) if util.skip_white_read_if(ins, (',', )): num = vartypes.pass_int_unpack(parse_expression(ins)) else: num = len(s) util.require_read(ins, (')', )) util.range_check(1, 255, start) util.range_check(0, 255, num) if num == 0 or start > len(s): return vartypes.null('$') start -= 1 stop = start + num stop = min(stop, len(s)) return state.basic_state.strings.store(s[start:stop])
def value_mid(ins): """ MID$: get substring. """ util.require_read(ins, ('(',)) s = var.copy_str(vartypes.pass_string(parse_expression(ins))) util.require_read(ins, (',',)) start = vartypes.pass_int_unpack(parse_expression(ins)) if util.skip_white_read_if(ins, (',',)): num = vartypes.pass_int_unpack(parse_expression(ins)) else: num = len(s) util.require_read(ins, (')',)) util.range_check(1, 255, start) util.range_check(0, 255, num) if num == 0 or start > len(s): return vartypes.null('$') start -= 1 stop = start + num stop = min(stop, len(s)) return state.basic_state.strings.store(s[start:stop])
def debug_step(linum): """ Execute traces and watches on a program step. """ if not debug_mode: return outstr = '' if debug_tron: outstr += ('['+('%i' % linum) +']') for (expr, outs) in watch_list: outstr += (' ' + expr +' = ') outs.seek(2) try: val = expressions.parse_expression(outs) if val[0] == '$': outstr += '"' + var.copy_str(val) + '"' else: outstr += representation.number_to_str(val, screen=False) except Exception as e: debug_handle_exc(e) if outstr: logging.debug(outstr)
def debug_step(linum): """ Execute traces and watches on a program step. """ if not debug_mode: return outstr = '' if debug_tron: outstr += ('['+('%i' % linum) +']') for (expr, outs) in watch_list: outstr += (' ' + expr +' = ') outs.seek(2) try: val = expressions.parse_expression(outs) if val[0] == '$': outstr += '"' + var.copy_str(val) + '"' else: outstr += representation.number_to_str(val, screen=False) except Exception as e: debug_handle_exc(e) if outstr: logging.debug(outstr)
def value_cvd(ins): """ CVD: return the double-precision value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 8: raise error.RunError(error.IFC) return ('#', bytearray(cstr[:8]))
def value_cvi(ins): """ CVI: return the int value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 2: raise error.RunError(error.IFC) return vartypes.bytes_to_integer(cstr[:2])
def value_asc(ins): """ ASC: ordinal ASCII value of a character. """ s = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if not s: raise error.RunError(error.IFC) return vartypes.int_to_integer_signed(ord(s[0]))
def value_val(ins): """ VAL: number value of a string. """ return representation.str_to_number( var.copy_str(vartypes.pass_string(parse_bracket(ins))))
def value_asc(ins): """ ASC: ordinal ASCII value of a character. """ s = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if not s: raise error.RunError(error.IFC) return vartypes.int_to_integer_signed(ord(s[0]))
def string_concat(left, right): """ Concatenate strings. """ return state.basic_state.strings.store(var.copy_str(vartypes.pass_string(left)) + var.copy_str(vartypes.pass_string(right)))
def value_val(ins): """ VAL: number value of a string. """ return representation.str_to_number(var.copy_str(vartypes.pass_string(parse_bracket(ins))))
def value_cvd(ins): """ CVD: return the double-precision value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 8: raise error.RunError(error.IFC) return ('#', bytearray(cstr[:8]))
def value_cvs(ins): """ CVS: return the single-precision value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 4: raise error.RunError(error.IFC) return ('!', bytearray(cstr[:4]))
def value_cvi(ins): """ CVI: return the int value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 2: raise error.RunError(error.IFC) return vartypes.bytes_to_integer(cstr[:2])
def value_cvs(ins): """ CVS: return the single-precision value of a byte representation. """ cstr = var.copy_str(vartypes.pass_string(parse_bracket(ins))) if len(cstr) < 4: raise error.RunError(error.IFC) return ('!', bytearray(cstr[:4]))