#!/usr/bin/env Rscript
# Copyright (c) 2011-2012, Universite de Versailles St-Quentin-en-Yvelines
#
# This file is part of ASK.  ASK is free software: you can redistribute
# it and/or modify it under the terms of the GNU General Public
# License as published by the Free Software Foundation, version 2.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 51
# Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.



args <- commandArgs(trailingOnly = T)
if (length(args) != 3) {
    stop("Usage: file <configuration.conf> <requested_file> <output_file>")
}
source(file.path(Sys.getenv("ASKHOME"), "common/configuration.R"))

data_file = read.table(conf("modules.source.params.data_file"))
requested_file = read.table(args[2])
merged = merge(requested_file, data_file)
write.table(merged, args[3], sep=" ", quote=F, col.names=F, row.names=F)
