Form.form.bchar: def of emerging-ezhttp@0.21.0.0
Import: import emerging-ezhttp@0.21.0.0/src/form.bend as Form
Lines 99-106 of emerging-ezhttp@0.21.0.0/src/form.bend: https://jend.leeeet.dev/read.txt?path=emerging-ezhttp@0.21.0.0/src/form.bend&start_line=99&end_line=106

import Base

# a boundary character this builder allows: A-Z a-z 0-9 - _ . (each a bchar
# of RFC 2046 and a tchar of RFC 9110 §5.6.2, so no quotes are needed)
def form.bchar(+cp: U32) -> Bool:
  Bool.or(Bool.and(U32.is_le(65, cp), U32.is_le(cp, 90)),
    Bool.or(Bool.and(U32.is_le(97, cp), U32.is_le(cp, 122)),
      Bool.or(Bool.and(U32.is_le(48, cp), U32.is_le(cp, 57)),
        Bool.or(U32.is_eq(cp, 45),
          Bool.or(U32.is_eq(cp, 95), U32.is_eq(cp, 46))))))

Uses (6):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool.and
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool.or
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.is_eq
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.is_le