/********************************************************************************************
    Clean OS Windows library module version 1.2.1.
    This module is part of the Clean Object I/O library, version 1.2.1,
    for the Windows platform.
********************************************************************************************/

/********************************************************************************************
    About this module:
    Routines related to clipboard handling.
********************************************************************************************/

#include "cCrossCallClipboard_121.h"
#include "cCrossCall_121.h"


/*	Cross call procedure implementations.
    Eval<nr> corresponds with a CrossCallEntry generated by NewCrossCallEntry (nr,Eval<nr>).
*/

void EvalCcRqCLIPBOARDHASTEXT (CrossCallInfo *pcci)		/* no arguments; bool result. */
{
    printf("EvalCcRqCLIPBOARDHASTEXT\n");
    MakeReturn1Cci (pcci,(int) gtk_clipboard_wait_is_text_available(gtk_clipboard_get(GDK_NONE)));
}

void EvalCcRqSETCLIPBOARDTEXT (CrossCallInfo *pcci)		/* textptr; no result. */
{
    const gchar *text = (const gchar *) pcci->p1;

    printf("EvalCcRqSETCLIPBOARDTEXT\n");
    gtk_clipboard_set_text (gtk_clipboard_get(GDK_NONE),
                            text, rstrlen((char*)text));

    MakeReturn0Cci (pcci);
}

void EvalCcRqGETCLIPBOARDTEXT (CrossCallInfo *pcci)			/* no params; string result. */
{
    gchar *text, *result;
    printf("EvalCcRqGETCLIPBOARDTEXT\n");

    text = gtk_clipboard_wait_for_text(gtk_clipboard_get(GDK_NONE));
    result = g_strdup(text);
    g_free(text);

    MakeReturn1Cci (pcci, (int64_t) result);
}

void EvalCcRqGETCLIPBOARDCOUNT (CrossCallInfo *pcci)
{
    gint* targets;
    printf("EvalCcRqGETCLIPBOARDTEXT\n");

    gtk_clipboard_wait_for_targets(gtk_clipboard_get(GDK_NONE), NULL, targets);

    MakeReturn1Cci (pcci, (int64_t) *targets);
}

/*	Install the cross call procedures in the gCrossCallProcedureTable of cCrossCall_121.
*/
OS InstallCrossCallClipboard (OS ios)
{
    CrossCallProcedureTable newTable;

    printf("InstallCrossCallClipboard\n");
    newTable = EmptyCrossCallProcedureTable ();
    AddCrossCallEntry (newTable, CcRqCLIPBOARDHASTEXT, EvalCcRqCLIPBOARDHASTEXT);
    AddCrossCallEntry (newTable, CcRqSETCLIPBOARDTEXT, EvalCcRqSETCLIPBOARDTEXT);
    AddCrossCallEntry (newTable, CcRqGETCLIPBOARDTEXT, EvalCcRqGETCLIPBOARDTEXT);
    AddCrossCallEntry (newTable, CcRqGETCLIPBOARDCOUNT, EvalCcRqGETCLIPBOARDCOUNT);
    AddCrossCallEntries (gCrossCallProcedureTable, newTable);

    return ios;
}