package Ġde . tol un la . par set agram . model Ċ Ċ import Ġcom . parse .* Ċ import Ġcom . parse . k tx . findAll Ċ import Ġcom . parse . k tx . put Or Ignore Ċ Ċ @ Parse ClassName (" Follow ") Ċ class ĠFollow Ġ: ĠParse Object () Ġ{ ĊĊĠĠĠ Ġvar Ġuser : ĠParse User ? ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġget Parse User ( KEY _ USER ) ĊĠĠĠĠĠĠĠ Ġset ( user ) Ġ= Ġput Or Ignore ( KEY _ USER , Ġuser ) ĊĊĠĠĠ Ġvar Ġfollowing : ĠParse User ? ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġget Parse User ( KEY _ FOLLOW ING ) ĊĠĠĠĠĠĠĠ Ġset ( user ) Ġ= Ġput Or Ignore ( KEY _ FOLLOW ING , Ġuser ) ĊĊĠĠĠ Ġcompanion Ġobject Ġ{ ĊĠĠĠĠĠĠĠ Ġconst Ġval ĠKEY _ USER Ġ= Ġ" user " ĊĠĠĠĠĠĠĠ Ġconst Ġval ĠKEY _ FOLLOW ING Ġ= Ġ" following " ĊĊĠĠĠĠĠĠĠ Ġfun ĠParse User . following (): ĠList < Parse User ?> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġfollowing Ġ= ĠParse Query ( Follow :: class . java ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ USER , Ġthis ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. findAll () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġfollowing . map Ġ{ Ġit . following Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠParse User . followers (): ĠList < Parse User ?> Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġfollowing Ġ= ĠParse Query ( Follow :: class . java ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ FOLLOW ING , Ġthis ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. findAll () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġfollowing . map Ġ{ Ġit . following Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠParse User . is Following ( user : ĠParse User ?): ĠBoolean Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġcount Ġ= ĠParse Query ( Follow :: class . java ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ USER , Ġthis ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ FOLLOW ING , Ġuser ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. count () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġcount Ġ> Ġ 0 ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠParse User . follow ( user : ĠParse User , Ġcallback : ĠSave Callback ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġfollow Ġ= ĠFollow (). apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġthis . user Ġ= Ġthis @ follow ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġfollowing Ġ= Ġuser ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġfollow . save In Background ( callback ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠParse User . un follow ( user : ĠParse User ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġfollows Ġ= ĠParse Query ( Follow :: class . java ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ USER , Ġthis ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. where EqualTo ( KEY _ FOLLOW ING , Ġuser ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. findAll () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġdelete All ( follow s ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }