//
//      aegis - project change supervisor
//      Copyright (C) 2006-2008, 2012, 2014 Peter Miller
//      Copyright (C) 2002 John Darrington
//
//      This program 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; either version 3 of the License, or
//      (at your option) any later version.
//
//      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, see
//      <http://www.gnu.org/licenses/>.
//

#include <common/ac/assert.h>

#include <libaegis/change.h>
#include <libaegis/project.h>
#include <libaegis/change/env_set.h>
#include <libaegis/change/branch.h>
#include <libaegis/os.h>
#include <libaegis/sub.h>
#include <libaegis/user.h>
#include <common/trace.h>


void
change_run_history_label_command(change::pointer cp, fstate_src_ty *src,
    string_ty *label)
{
    pconf_ty        *pconf_data;
    string_ty       *the_command;
    string_ty       *hp;
    string_ty       *hfn;
    sub_context_ty  *scp;

    //
    // Label the history.
    // Current directory will be set to the
    // base of the history tree.  All of the substitutions described
    // in aesub(5) are avaliable.  In addition:
    //
    // ${History}
    //      absolute path of history file
    // ${Edit}
    //      edit number
    // ${Label}
    //      label
    //
    trace(("change_run_history_label_command(cp = %p, filename = \"%s\", "
        "label = \"%s\")\n{\n", cp.get(), src->file_name->str_text,
        label->str_text));
    assert(cp->valid());

    pconf_data = change_pconf_get(cp, 0);
    if
    (
        !pconf_data->history_label_command
    ||
        !pconf_data->history_label_command->str_length
    )
    {
        trace(("}\n"));
        return;
    }

    //
    // Inform the user of what we are doing, just in case they can't
    // tell from the file names.  For example, with a base-64 encoded
    // input file and a UUID history file the user has no way of knowing
    // which source file this concerns.
    //
    scp = sub_context_new();
    scp->var_set_string("File_Name", src->file_name);
    change_error(cp, scp, i18n("history label $filename"));
    sub_context_delete(scp);
    scp = 0;

    //
    // Get the path of the history file.
    //
    hfn = project_history_filename_get(cp->project_get(), src);
    scp = sub_context_new();
    sub_var_set_string(scp, "History", hfn);
    str_free(hfn);
    sub_var_set_string(scp, "Edit", src->edit->revision);
    sub_var_set_string(scp, "Label", label);

    the_command = pconf_data->history_label_command;
    the_command = substitute(scp, cp, the_command);
    sub_context_delete(scp);
    change_env_set(cp, 0);
    hp = cp->project_get()->history_path_get();
    project_become(cp->project_get());
    os_execute(the_command, OS_EXEC_FLAG_NO_INPUT + OS_EXEC_FLAG_ERROK, hp);
    project_become_undo(cp->project_get());
    str_free(the_command);
    trace(("}\n"));
}


// vim: set ts=8 sw=4 et :