Seykron

alias iniadd {
  ;
  ; Agregar item a un archivo ini.
  ;
  var %cnt = $readini($1, $2, 0)
  var %newcnt = %cnt + 1
  var %data = $null

  /iniexist $1 $2 $3

  if ( $result != 0 ) {
    return 0
  }

  if ($4 != $null) {
    %data = $3 $+ : $+ $4
  }
  else {
    %data = $3
  }

  /writeini $1 $2 %newcnt %data
  /writeini $1 $2 0 %newcnt

  return 1
}