void moveGch(string from, string gchBase)
{
    gchBase += IH + ".gch";
    from += '/';

    exec("mv " + from + gchBase + ' ' + g_gchDir + '/');
}

void storeGch()
{
    // printf("STOREGCH\n");
    echo(OFF);

    chdir(g_cwd);

    for (int idx = listlen(g_classes); idx--; )
    {
        string class = g_classes[idx];
        moveGch(class, class);
    }

    if (g_mainBase != "")
        moveGch(".", g_mainBase);
}
