Curl equivalent to CSS unicode-range

Code:
{define-class public FontFaceCharGraphic {inherits CharGraphic}



  def first-kanji:int = '亜' asa int

  def last-kanji:int = '腕' asa int



  field char:char



  {constructor public {default c:char, ...  }

    {construct-super c, {splice ...}}

    set self.char = c

    {self.change-style}

  }



  {method {change-style}:void

    def u = self.char asa int

    {if u >= {this-class}.first-kanji  and u <= {this-class}.last-kanji  then

        set self.font-weight = FontWeight.bold

     else

        set self.font-weight = FontWeight.normal

    }

    {output self.c , ":", u}

  }



  {method public {add g:any, ...}:#Visual

    {type-switch value

     case c:char do

        set self.char = c

        {self.change-style}

    }

    {return  {super.add g, {splice ...}}}



  }

}



{define-class public  StringFrame {inherits HBox}

  {constructor public {default str:String}

    {for c in str do

        {self.add {FontFaceCharGraphic c}}

    }

  }

}



{def f = {StringFrame  "fist-kanji:字[ 1-9, a-Z, ()+*, あいうえお 日本] last-kanji:腕"}}



{value f}