package Ġnet . cord a . node . internal . cord app Ċ Ċ import Ġnet . cord a . core . cord app . C ord app Ċ import Ġnet . cord a . core . internal . cord app . C ord app Impl Ċ import Ġjava . util .* Ċ import Ġjava . util . jar . Attributes Ċ import Ġjava . util . jar . Manifest Ċ Ċ fun Ġcreate Test Manifest ( name : ĠString , Ġtitle : ĠString , Ġversion : ĠString , Ġvendor : ĠString ): ĠManifest Ġ{ ĊĊĠĠĠ Ġval Ġmanifest Ġ= ĠManifest () ĊĊĠĠĠ Ġ// ĠMandatory Ġmanifest Ġattribute . ĠIf Ġnot Ġpresent , Ġall Ġother Ġentries Ġare Ġsilently Ġskipped . ĊĠĠĠ Ġmanifest . main Attributes [ Attributes . Name . MAN IFEST _ VERSION ] Ġ= Ġ" 1 . 0 " ĊĊĠĠĠ Ġmanifest [" Name "] Ġ= Ġname ĊĊĠĠĠ Ġmanifest [" Specification - Title "] Ġ= Ġtitle ĊĠĠĠ Ġmanifest [" Specification - Version "] Ġ= Ġversion ĊĠĠĠ Ġmanifest [" Specification - Vendor "] Ġ= Ġvendor ĊĊĠĠĠ Ġmanifest [" Implementation - Title "] Ġ= Ġtitle ĊĠĠĠ Ġmanifest [" Implementation - Version "] Ġ= Ġversion ĊĠĠĠ Ġmanifest [" Implementation - Vendor "] Ġ= Ġvendor ĊĊĠĠĠ Ġreturn Ġmanifest Ċ } Ċ Ċ operator Ġfun ĠManifest . set ( key : ĠString , Ġvalue : ĠString ) Ġ{ ĊĊĠĠĠ Ġmain Attributes . put Value ( key , Ġvalue ) Ċ } Ċ Ċ internal Ġfun ĠManifest ?. to C ord app Info ( default ShortName : ĠString ): ĠC ord app . Info Ġ{ ĊĊĠĠĠ Ġvar Ġunknown Ġ= ĠC ord app Impl . Info . UNKNOWN ĊĠĠĠ Ġ( this ?. main Attributes ?. getValue (" Name ") Ġ?: Ġdefault ShortName ). let Ġ{ Ġshort Name Ġ-> ĊĠĠĠĠĠĠĠ Ġunknown Ġ= Ġunknown . copy ( short Name Ġ= Ġshort Name ) ĊĠĠĠ Ġ} ĊĠĠĠ Ġthis ?. main Attributes ?. getValue (" Implementation - Vendor ") ?. let Ġ{ Ġvendor Ġ-> ĊĠĠĠĠĠĠĠ Ġunknown Ġ= Ġunknown . copy ( vendor Ġ= Ġvendor ) ĊĠĠĠ Ġ} ĊĠĠĠ Ġthis ?. main Attributes ?. getValue (" Implementation - Version ") ?. let Ġ{ Ġversion Ġ-> ĊĠĠĠĠĠĠĠ Ġunknown Ġ= Ġunknown . copy ( version Ġ= Ġversion ) ĊĠĠĠ Ġ} ĊĠĠĠ Ġreturn Ġunknown Ċ }