def form.bchar
import emerging-ezhttp@0.21.0.0/src/form.bend as Formimport Base
99# a boundary character this builder allows: A-Z a-z 0-9 - _ . (each a bchar
100# of RFC 2046 and a tchar of RFC 9110 §5.6.2, so no quotes are needed)
101def form.bchar(+cp: U32) -> Bool:
102 Bool.or(Bool.and(U32.is_le(65, cp), U32.is_le(cp, 90)),
103 Bool.or(Bool.and(U32.is_le(97, cp), U32.is_le(cp, 122)),
104 Bool.or(Bool.and(U32.is_le(48, cp), U32.is_le(cp, 57)),
105 Bool.or(U32.is_eq(cp, 45),
106 Bool.or(U32.is_eq(cp, 95), U32.is_eq(cp, 46))))))