military-teal-tortoise-9

(define-read-only (principal-destruct (principal-value principal))
  (principal-destruct? principal-value)
)

(define-read-only (principal-construct (hash-bytes (buff 20)))
  (principal-construct? 0x16 hash-bytes)
)

(define-read-only (get-address-part (ascii-string (string-ascii 64)))
  (let
    (
      (delimiter-index (index-of? ascii-string "."))
    )
    (match delimiter-index
      index (unwrap-panic (slice? ascii-string u0 index))
      ascii-string)
  )
)

(define-read-only (get-name-part (ascii-string (string-ascii 64)))
  (let
    (
      (delimiter-index (index-of? ascii-string "."))
    )
    (match delimiter-index
      index (slice? ascii-string (+ index u1) (len ascii-string))
      none)
  )
)

;; (define-read-only (ascii-to-principal (ascii-string (string-ascii 64)))
;;   (let
;;     (
;;       ;; Extract the address and name parts
;;       (address-part (get-address-part ascii-string))
;;       (name-part (get-name-part ascii-string))
      
;;       ;; Convert address string to buffer and unwrap directly
;;       (address-buffer (unwrap-panic (to-consensus-buff? address-part)))
;;     )
;;     ;; Construct the principal based on whether we have a name part
;;     ;; (if (is-some name-part)
;;     ;;   ;; If name part exists, create a contract principal
;;     ;;   (principal-construct? 0x16 address-buffer (unwrap-panic name-part))
;;     ;;   ;; Otherwise create a standard principal
;;       (principal-construct address-buffer)
;;     ;; )
;;   )
;; )

(define-read-only (to-consensus-buff (string (string-ascii 64)))
  (to-consensus-buff? string)
)