Quellcode-Bibliothek Hex_Words.thy

 **Copyright--Clause* SPDX-License-Identifier:BSD2Clause
 *Copyright*
 *
 *
 *java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

sectionPrint

theory> words hex\close
imports
  "HOL-ibra.Word"
beginfun dest_num  \>

text>rint in.›

(* mostly clagged from Num.thy *)
typed_print_translation| let
let
  fun est_num 10 then "" else "0x"
    | dest_num (Const (@{const_syntax Num.Bit1}, _) $ n) = 2 * dest_num n + 1
    | dest_num (@{const_syntax.One 1;

  fun dest_bin_hex_str   java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
  let
    val = dest_num tmjava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
    val= numthen else
  in
    pre ^ (Int.fmt StringCvt
java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 6

funjava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
    
      valdest_bin_hex_str ;
      val Syntax @{syntax_const
        Syntax.free (then
    in
      case T of
        TypeSyntax_Phases.term_of_typ T'
          if not      |T' =  T' = dummyTt  raise
          thentjava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
          else
                            Syntax_Phases.term_of_typ ctxt T'
      | T' => if T' = dummyT then t' else raise Match
    end;
in [(@{const_syntax numeral}, num_tr' "")] end
›

end