package Ġcom . fs ck . k 9 . storage . messages Ċ Ċ import Ġandroid . content . Content Values Ċ import Ġandroid . database . sqlite . SQLite Database Ċ import Ġcom . fs ck . k 9 . helper . getInt OrNull Ċ import Ġcom . fs ck . k 9 . helper . getLong OrNull Ċ import Ġcom . fs ck . k 9 . helper . getString OrNull Ċ import Ġcom . fs ck . k 9 . helper . map Ċ Ċ fun ĠSQLite Database . create Folder ( ĊĠĠĠ Ġname : ĠString Ġ= Ġ" ir relevant ", ĊĠĠĠ Ġtype : ĠString Ġ= Ġ" regular ", ĊĠĠĠ Ġserver Id : ĠString ? Ġ= Ġnull , ĊĠĠĠ Ġis Local Only : ĠBoolean Ġ= Ġtrue , ĊĠĠĠ Ġintegrate : ĠBoolean Ġ= Ġfalse , ĊĠĠĠ Ġin Top Group : ĠBoolean Ġ= Ġfalse , ĊĠĠĠ Ġdisplay Class : ĠString Ġ= Ġ" NO _ CLASS ", ĊĠĠĠ Ġsync Class : ĠString ? Ġ= Ġ" IN HER IT ED ", ĊĠĠĠ Ġnotify Class : ĠString ? Ġ= Ġ" IN HER IT ED ", ĊĠĠĠ Ġpush Class : ĠString ? Ġ= Ġ" SECOND _ CLASS ", ĊĠĠĠ Ġlast Updated : ĠLong Ġ= Ġ 0 L , ĊĠĠĠ Ġunread Count : ĠInt Ġ= Ġ 0 , ĊĠĠĠ Ġvisible Limit : ĠInt Ġ= Ġ 2 5 , ĊĠĠĠ Ġstatus : ĠString ? Ġ= Ġnull , ĊĠĠĠ Ġflag ged Count : ĠInt Ġ= Ġ 0 , ĊĠĠĠ Ġmore Messages : ĠString Ġ= Ġ" unknown ", Ċ ): ĠLong Ġ{ ĊĠĠĠ Ġval Ġvalues Ġ= ĠContent Values (). apply Ġ{ ĊĠĠĠĠĠĠĠ Ġput (" name ", Ġname ) ĊĠĠĠĠĠĠĠ Ġput (" type ", Ġtype ) ĊĠĠĠĠĠĠĠ Ġput (" server _ id ", Ġserver Id ) ĊĠĠĠĠĠĠĠ Ġput (" local _ only ", Ġis Local Only ) ĊĠĠĠĠĠĠĠ Ġput (" integrate ", Ġintegrate ) ĊĠĠĠĠĠĠĠ Ġput (" top _ group ", Ġin Top Group ) ĊĠĠĠĠĠĠĠ Ġput (" display _ class ", Ġdisplay Class ) ĊĠĠĠĠĠĠĠ Ġput (" poll _ class ", Ġsync Class ) ĊĠĠĠĠĠĠĠ Ġput (" notify _ class ", Ġnotify Class ) ĊĠĠĠĠĠĠĠ Ġput (" push _ class ", Ġpush Class ) ĊĠĠĠĠĠĠĠ Ġput (" last _ updated ", Ġlast Updated ) ĊĠĠĠĠĠĠĠ Ġput (" unread _ count ", Ġunread Count ) ĊĠĠĠĠĠĠĠ Ġput (" visible _ limit ", Ġvisible Limit ) ĊĠĠĠĠĠĠĠ Ġput (" status ", Ġstatus ) ĊĠĠĠĠĠĠĠ Ġput (" flag ged _ count ", Ġflag ged Count ) ĊĠĠĠĠĠĠĠ Ġput (" more _ messages ", Ġmore Messages ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn Ġinsert (" folders ", Ġnull , Ġvalues ) Ċ } Ċ Ċ fun ĠSQLite Database . read Folders (): ĠList < Folder Entry > Ġ{ ĊĠĠĠ Ġval Ġcursor Ġ= Ġraw Query (" SELECT Ġ* ĠFROM Ġfolders ", Ġnull ) ĊĠĠĠ Ġreturn Ġcursor . use Ġ{ ĊĠĠĠĠĠĠĠ Ġcursor . map Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠFolder Entry ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġid Ġ= Ġcursor . getLong OrNull (" id "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġname Ġ= Ġcursor . getString OrNull (" name "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtype Ġ= Ġcursor . getString OrNull (" type "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġserver Id Ġ= Ġcursor . getString OrNull (" server _ id "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġis Local Only Ġ= Ġcursor . getInt OrNull (" local _ only "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġintegrate Ġ= Ġcursor . getInt OrNull (" integrate "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġin Top Group Ġ= Ġcursor . getInt OrNull (" top _ group "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdisplay Class Ġ= Ġcursor . getString OrNull (" display _ class "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġsync Class Ġ= Ġcursor . getString OrNull (" poll _ class "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġnotify Class Ġ= Ġcursor . getString OrNull (" notify _ class "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġpush Class Ġ= Ġcursor . getString OrNull (" push _ class "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġlast Updated Ġ= Ġcursor . getLong OrNull (" last _ updated "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġunread Count Ġ= Ġcursor . getInt OrNull (" unread _ count "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġvisible Limit Ġ= Ġcursor . getInt OrNull (" visible _ limit "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġstatus Ġ= Ġcursor . getString OrNull (" status "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġflag ged Count Ġ= Ġcursor . getInt OrNull (" flag ged _ count "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmore Messages Ġ= Ġcursor . getString OrNull (" more _ messages ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ Ċ data Ġclass ĠFolder Entry ( ĊĠĠĠ Ġval Ġid : ĠLong ?, ĊĠĠĠ Ġval Ġname : ĠString ?, ĊĠĠĠ Ġval Ġtype : ĠString ?, ĊĠĠĠ Ġval Ġserver Id : ĠString ?, ĊĠĠĠ Ġval Ġis Local Only : ĠInt ?, ĊĠĠĠ Ġval Ġintegrate : ĠInt ?, ĊĠĠĠ Ġval Ġin Top Group : ĠInt ?, ĊĠĠĠ Ġval Ġdisplay Class : ĠString ?, ĊĠĠĠ Ġval Ġsync Class : ĠString ?, ĊĠĠĠ Ġval Ġnotify Class : ĠString ?, ĊĠĠĠ Ġval Ġpush Class : ĠString ?, ĊĠĠĠ Ġval Ġlast Updated : ĠLong ?, ĊĠĠĠ Ġval Ġunread Count : ĠInt ?, ĊĠĠĠ Ġval Ġvisible Limit : ĠInt ?, ĊĠĠĠ Ġval Ġstatus : ĠString ?, ĊĠĠĠ Ġval Ġflag ged Count : ĠInt ?, ĊĠĠĠ Ġval Ġmore Messages : ĠString ? Ċ ) Ċ