#+xcvb (module (:depends-on ("pkgdcl")))

(in-package :rpm)

;; TODO: move this to FARE-UTILS or somewhere else???

(defun ascii-char-p (x)
  (and (characterp x) (<= 0 (char-code x) 127)))

(defun ascii-uppercase-letter-p (x)
  (char<= #\A x #\Z))

(defun ascii-lowercase-letter-p (x)
  (char<= #\a x #\z))

(defun ascii-letter-p (x)
  (or (ascii-uppercase-letter-p x) (ascii-lowercase-letter-p x)))

(defun ascii-digit-p (x)
  (char<= #\0 x #\9))

(defun ascii-alphanumeric-p (x)
  (or (ascii-letter-p x) (ascii-digit-p x)))

(defun ascii-non-alphanumeric-p (x)
  (not (ascii-alphanumeric-p x)))

(defun ascii-alphanumeric-or-underscore-p (x)
  (or (ascii-alphanumeric-p x)
      (eql x #\_)))