/** Ċ Ġ* ĠCopyright Ġ( C ) Ġ 2 0 1 8 ĠDr . ĠDavid ĠH . ĠA keh ur st Ġ( http :// dr . david . h . ake hur st . net ) Ċ Ġ* Ċ Ġ* ĠLicensed Ġunder Ġthe ĠApache ĠLicense , ĠVersion Ġ 2 . 0 Ġ( the Ġ" License "); Ċ Ġ* Ġyou Ġmay Ġnot Ġuse Ġthis Ġfile Ġexcept Ġin Ġcompliance Ġwith Ġthe ĠLicense . Ċ Ġ* ĠYou Ġmay Ġobtain Ġa Ġcopy Ġof Ġthe ĠLicense Ġat Ċ Ġ* Ċ Ġ* ĠĠĠĠĠĠĠĠ Ġhttp :// www . apache . org / licenses / LICENSE - 2 . 0 Ċ Ġ* Ċ Ġ* ĠUnless Ġrequired Ġby Ġapplicable Ġlaw Ġor Ġagreed Ġto Ġin Ġwriting , Ġsoftware Ċ Ġ* Ġdistributed Ġunder Ġthe ĠLicense Ġis Ġdistributed Ġon Ġan Ġ" AS ĠIS " ĠBASIS , Ċ Ġ* ĠWITHOUT ĠWARRANTIES ĠOR ĠCONDITIONS ĠOF ĠANY ĠKIND , Ġeither Ġexpress Ġor Ġimplied . Ċ Ġ* ĠSee Ġthe ĠLicense Ġfor Ġthe Ġspecific Ġlanguage Ġgoverning Ġpermissions Ġand Ċ Ġ* Ġlimitations Ġunder Ġthe ĠLicense . Ċ Ġ*/ Ċ Ċ package Ġnet . ake hur st . language . ag l . sp pt ĊĊ Ċ import Ġnet . ake hur st . language . api . sp pt . SP PT Leaf Ċ import Ġnet . ake hur st . language . api . sp pt . SP PT Node Ċ import Ġnet . ake hur st . language . api . sp pt . Shared Packed ParseTree Ċ Ċ // TODO : Ġcurrently Ġthis Ġhas Ġto Ġbe Ġpublic , Ġbecause Ġotherwise Ġkotlin Ġdoes Ġnot Ċ // Ġuse Ġthe Ġnon - mangled Ġnames Ġfor Ġproperties Ċ /* internal Ġ*/ Ġclass ĠShared Packed ParseTree Default ( ĊĠĠĠ Ġoverride Ġval Ġroot : ĠSP PT Node , ĊĠĠĠ Ġoverride Ġval Ġse asons : ĠInt , ĊĠĠĠ Ġoverride Ġval Ġmax Num Head s : ĠInt Ċ ) Ġ: ĠShared Packed ParseTree Ġ{ ĊĊĠĠĠ Ġinit Ġ{ ĊĠĠĠĠĠĠĠ Ġroot . tree Ġ= Ġthis ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġcontains ( other : ĠShared Packed ParseTree ): ĠBoolean Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġthis . root . contains ( other . root ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġval Ġ_ tokens By Line : ĠList < List < SP PT Leaf >> Ġby Ġlazy Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġvisitor Ġ= ĠToken sBy Line Visitor () ĊĠĠĠĠĠĠĠ Ġvisitor . visit Tree ( this , Ġempty List ()) ĊĠĠĠĠĠĠĠ Ġvisitor . lines ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġtokens By Line All (): ĠList < List < SP PT Leaf >> Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġthis ._ tokens By Line ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġtokens By Line ( line : ĠInt ): ĠList < SP PT Leaf > Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġtbl Ġ= Ġthis ._ tokens By Line ĊĠĠĠĠĠĠĠ Ġreturn Ġif Ġ( tbl . isEmpty () Ġ|| Ġline Ġ>= Ġtbl . size ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġempty List () ĊĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtbl [ line ] ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġval Ġas String : ĠString Ġby Ġlazy Ġ{ ĊĠĠĠĠĠĠĠ ĠSP PT 2 Input Text (). visit Tree ( this , Ġ"") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġval Ġcount Trees : ĠInt Ġby Ġlazy Ġ{ ĊĠĠĠĠĠĠĠ ĠCount Trees Visitor (). visit Tree ( this , ĠUnit ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġval ĠtoString All : ĠString Ġby Ġlazy Ġ{ ĊĠĠĠĠĠĠĠ Ġthis . toString All With Indent ("") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun ĠtoString All With Indent ( indent Increment : ĠString ): ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġvisitor Ġ= ĠToString Visitor ("\ n ", Ġindent Increment ) ĊĠĠĠĠĠĠĠ Ġval Ġall : ĠSet < String > Ġ= Ġvisitor . visit Tree ( this , ĠToString Visitor . Indent ("", Ġtrue )) ĊĠĠĠĠĠĠĠ Ġval Ġtotal Ġ= Ġall . size ĊĠĠĠĠĠĠĠ Ġval Ġsep Ġ= Ġ"\ n " ĊĠĠĠĠĠĠĠ Ġvar Ġcur Ġ= Ġ 0 ĊĠĠĠĠĠĠĠ Ġvar Ġres Ġ= Ġ"" ĊĠĠĠĠĠĠĠ Ġfor Ġ( pt Ġin Ġall ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcur ++ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġres Ġ+= Ġ" Tree Ġ${ cur } Ġof Ġ${ total }\ n " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġres Ġ+= Ġpt ĊĠĠĠĠĠĠĠĠĠĠĠ Ġres Ġ+= Ġ"\ n " ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġreturn Ġall . join ToString ( sep ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġequals ( other : ĠAny ?): ĠBoolean Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġif Ġ( other Ġis ĠShared Packed ParseTree ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġthis . root Ġ== Ġother . root ĊĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġfalse ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ Ċ }