/*
 * Copyright (C) 1992 by Gustaf Neumann, Stefan Nusser
 *
 *      Wirtschaftsuniversitaet Wien,
 *      Abteilung fuer Wirtschaftsinformatik
 *      Augasse 2-6,
 *      A-1090 Vienna, Austria
 *      neumann@wu-wien.ac.at, nusser@wu-wien.ac.at
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted, provided
 * that the above copyright notice appears in all copies and that both that
 * copyright notice and this permission notice appear in all supporting
 * documentation.  This software is provided "as is" without expressed or
 * implied warranty.
 *
 * Date: Sun Oct  3 00:45:15 GMT 1993
 * Author: Gustaf Neumann
 * Version: 0.96
 *
 * sample program to demonstrate how wafe could be used directly
 * from c.
 */

#define MAIN
#include "wafe.h"

void
main(argc, argv, env)
int    argc;
char **argv;
char **env;
    {
    /* setup Xt and Wafe */
    wafeTopLevel = XtVaAppInitialize(&wafeAppContext, "WafeDemo", NULL, 0, 
				 &argc, argv, NULL, NULL); 
    wafeInit(argc,argv, 
	     False /* inputMode */,  
	     False /* promptMode */
	     );
    
    /* user program comes here */
    wafeEval(wafeInterpreter, "command quit topLevel callback quit", "c");
    wafeEval(wafeInterpreter, "realize", "c");

    /* call event loop */
#ifdef RDD
    rddAppMainLoop(wafeAppContext);
#else
    XtAppMainLoop(wafeAppContext);
#endif
    }

