package Ġorg . http 4 k . format Ċ Ċ import Ġorg . http 4 k . asString Ċ import Ġorg . http 4 k . core . Body Ċ import Ġorg . http 4 k . core . ContentType . Companion . APPLICATION _ XML Ċ import Ġorg . http 4 k . lens . Bi Di Body Lens Spec Ċ import Ġorg . http 4 k . lens . Bi Di Ws Message Lens Spec Ċ import Ġorg . http 4 k . lens . Content Neg otiation Ċ import Ġorg . http 4 k . lens . Meta Ċ import Ġorg . http 4 k . lens . Param Meta . Object Param Ċ import Ġorg . http 4 k . lens . http Body Root Ċ import Ġorg . http 4 k . lens . string Ċ import Ġorg . http 4 k . websocket . Ws Message Ċ Ċ abstract Ġclass ĠAuto Marshall ing Xml Ġ: ĠAuto Marshall ing () Ġ{ ĊĊĠĠĠ Ġinline Ġfun Ġ< re ified ĠT Ġ: ĠAny > ĠString . as A (): ĠT Ġ= Ġas A ( this ) ĊĊĠĠĠ Ġabstract Ġfun ĠAny . as Xml String (): ĠString ĊĊĠĠĠ Ġoverride Ġfun Ġas Format String ( input : ĠAny ): ĠString Ġ= Ġinput . as Xml String () ĊĊĠĠĠ Ġ@ Jvm Name (" any As Xml String ") ĊĠĠĠ Ġ@ Deprecated (" Use Ġas Format String Ġinstead ", ĠReplace With (" as Format String ( input ")) ĊĠĠĠ Ġfun Ġas Xml String ( input : ĠAny ): ĠString Ġ= Ġinput . as Xml String () ĊĊĠĠĠ Ġinline Ġfun Ġ< re ified ĠT Ġ: ĠAny > ĠBody . Companion . auto ( description : ĠString ? Ġ= Ġnull , Ġcontent Neg otiation : ĠContent Neg otiation Ġ= ĠContent Neg otiation . None ): ĠBi Di Body Lens Spec < T > Ġ= ĊĠĠĠĠĠĠĠ Ġhttp Body Root ( listOf ( Meta ( true , Ġ" body ", ĠObject Param , Ġ" body ", Ġdescription )), ĠAP PLICATION _ XML , Ġcontent Neg otiation ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. map ({ Ġit . payload . asString () Ġ}, Ġ{ ĠBody ( it ) Ġ}) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. map ({ Ġit . as A < T >() Ġ}, Ġ{ Ġit . as Xml String () Ġ}) ĊĊĠĠĠ Ġinline Ġfun Ġ< re ified ĠT Ġ: ĠAny > ĠW s Message . Companion . auto (): ĠBi Di Ws Message Lens Spec < T > Ġ= ĠW s Message . string (). map ({ Ġit . as A < T >() Ġ}, Ġ{ Ġit . as Xml String () Ġ}) Ċ } Ċ