Unicode Interrogation

version 2 by Michael Martin

  • Home page
  • Beginning
  • Previous
  • Next



  • Section Z (for Z-Machine only)

    To decide whether unicode (X - a number) is supported exactly/--: (- (unitest({X}) == 1) -)

    Include (-
    [ unitest x i;
    ! If we don't support at least standard 1.0, @check_unicode will crash the terp!
    ! Thus, we check version in $32 first. It's a little inefficient to check this in
    ! every iteration, but sometimes life is hard.
    if (0->$32 == 0) return 0;
    @check_unicode x -> i;
    return i & 1;
    ]; -)