// ĠFIR _ IDENT ICAL Ċ // Ġ! DIAG NO ST ICS : Ġ- UNUSED _ PARAMETER Ċ Ċ public Ġclass ĠA Ġ{ ĊĠĠĠ Ġpublic Ġoperator Ġfun Ġget ( var arg Ġattrs Ġ: ĠPair < String , ĠString >) Ġ: ĠA Ġ= Ġthis Ċ } Ċ operator Ġfun ĠString . unary Plus () Ġ: ĠA Ġ= ĠA () Ċ operator Ġfun ĠA . div ( s Ġ: ĠString ) Ġ: ĠA Ġ= ĠA () Ċ Ċ fun Ġtest () Ġ{ ĊĠĠĠ Ġ( +" node 2 " Ġ/ Ġ" node 3 " Ġ/ Ġ" zz z ") Ġ[" attr " Ġto Ġ" value ", Ġ" a 2 " Ġto Ġ" v 2 "] Ċ } Ċ Ċ // --------- Ċ class ĠB Ġ{ ĊĠĠĠ Ġpublic Ġoperator Ġfun Ġget ( s Ġ: ĠString , Ġq Ġ: ĠString ) Ġ: ĠB Ġ= Ġthis ĊĠĠĠ Ġpublic Ġoperator Ġfun Ġget ( s Ġ: ĠPair < String , ĠString >) Ġ: ĠB Ġ= Ġthis ĊĠĠĠ Ġpublic Ġoperator Ġfun Ġinvoke ( q Ġ: ĠB . () Ġ-> ĠUnit ) Ġ: ĠB Ġ= Ġthis Ċ } Ċ val Ġx Ġ= ĠB ()[" a ", Ġ" v "][" a " Ġto Ġ" b "] Ġ{} Ġ[" q " Ġto Ġ" p "] Ġ// Ġdoes Ġnot Ġparses Ġaround Ġ{} Ċ Ċ // from Ġlibrary Ċ data Ġclass ĠPair < out ĠA , Ġout ĠB > Ġ( val Ġfirst : ĠA , Ġval Ġsecond : ĠB ) Ċ infix Ġfun Ġ< A , B > ĠA . to ( that : ĠB ) Ġ= ĠPair ( this , Ġthat )