package Ġcom . github . le and rob or ges fer re ira . dag command . csv Ċ Ċ import Ġcom . github . le and rob or ges fer re ira . dag command . domain . Edge Ċ import Ġcom . github . le and rob or ges fer re ira . dag command . domain . Node Ċ Ċ fun ĠList < Edge >. to Csv Table (): ĠCsv Table Ġ{ ĊĠĠĠ Ġval Ġheader Ġ= ĠlistOf (" Source ", Ġ" Target ", Ġ" Weight ") ĊĊĠĠĠ Ġval Ġcsv Lines : ĠList < Csv Line > Ġ= Ġthis . map Ġ{ Ġedge Ġ-> ĊĠĠĠĠĠĠĠ ĠlistOf ( edge . source , Ġedge . target , Ġedge . weight . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn ĠCsv Table ( header , Ġcsv Lines ) Ċ } Ċ Ċ fun ĠList < Node >. to Csv (): ĠCsv Table Ġ{ ĊĠĠĠ Ġval Ġheader Ġ= ĠlistOf (" Id ", Ġ" Label ", Ġ" Build Ġstage ") ĊĊĠĠĠ Ġval Ġcsv Lines : ĠList < Csv Line > Ġ= Ġthis . map Ġ{ Ġnode Ġ-> ĊĠĠĠĠĠĠĠ ĠlistOf ( node . name , Ġnode . name , Ġnode . build Stage . toString ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn ĠCsv Table ( header , Ġcsv Lines ) Ċ } Ċ Ċ fun ĠCsv Table . to Print able List () Ġ: ĠList < String > Ġ{ ĊĠĠĠ Ġval Ġcsv Header Ġ= Ġheader . join ToString ( separator Ġ= Ġ"; ") ĊĠĠĠ Ġval Ġcontent Lines Ġ= Ġcontent . map Ġ{ Ġwords Ġ-> Ġwords . join ToString ("; ") Ġ} ĊĊĠĠĠ Ġreturn ĠlistOf ( csv Header ) Ġ+ Ġcontent Lines Ċ } Ċ Ċ fun ĠList < Edge >. to Print able Csv () Ġ= Ġthis . to Csv Table (). to Print able List () Ċ Ċ fun ĠList < Node >. print able Csv () Ġ= Ġthis . to Csv (). to Print able List () ĊĊĊ