// Copyright (c) 2026 Charles KWON OhJun (charleskwonohjun@gmail.com)
// All rights reserved.

// Type checking functions: HB_ISARRAY, HB_ISBLOCK, HB_ISCHAR, HB_ISDATE,
// HB_ISDATETIME, HB_ISLOGICAL, HB_ISNUMERIC, HB_ISOBJECT, HB_ISHASH,
// HB_ISNIL, HB_ISPOINTER, HB_ISSTRING

package hbrtl

import "five/hbrt"

func HbIsArray(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsArray())
}

func HbIsBlock(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsBlock())
}

func HbIsChar(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsString())
}

func HbIsDate(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsDate())
}

func HbIsDateTime(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsTimestamp())
}

func HbIsLogical(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsLogical())
}

func HbIsNumeric(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsNumeric())
}

func HbIsObject(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsObject())
}

func HbIsHash(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsHash())
}

func HbIsNil(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsNil())
}

func HbIsPointer(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsPointer())
}

// HB_ISSTRING is alias for HB_ISCHAR
func HbIsString(t *hbrt.Thread) {
	t.Frame(1, 0)
	defer t.EndProc()
	t.RetBool(t.Local(1).IsString())
}