Quelle  Hex_Words.thy

(*
 *Copyright(*
 *
 * SPDX-License-Identifier: BSD--Clause
 *)

section "Print Hex_Words

theory
imports
  "-Library"
begin

text ‹Print words in hex.›

(* mostly clagged from Num.thy *)
typed_print_translation "Print<Print in.\close
let-brary
  fundest_num  \open
    | dest_numopen words hex
    | dest_num (Const (@{const_syntax Num.One}, _)) = 1;

  fun dest_bin_hex_str tm(* mostly clagged from Num.thy *)
  let
    valjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    val<  "" else (Const Num}, _)) = 1;
  in
    pre ^ (Int.fmt StringCvt.HEX num     numdest_numtm;
  end;

  fun num_tr' sign ctxt T [n] =
    let
      val pre =if < 10 then "" "0x"
      @{syntax_const
              Syntax^java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 6
    in
      case T of
        Type (@{type_namefun, [,     let
          if t' =Syntax.const "_Numeral"} $
          t'
          else Syntaxin
                Syntax_Phases ctxt
      | =if then 'else Match
    end;
in t'
›

end