/* $XConsortium: XmeString.c /main/5 1996/06/11 17:25:46 pascale $ */
/* 
 *  @OPENGROUP_COPYRIGHT@
 *  COPYRIGHT NOTICE
 *  Copyright (c) 1993 Open Software Foundation, Inc.
 *  Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
 *  ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
 *  the full copyright text.
 *  
 *  This software is subject to an open license. It may only be
 *  used on, with or for operating systems which are themselves open
 *  source systems. You must contact The Open Group for a license
 *  allowing distribution and sublicensing of this software on, with,
 *  or for operating systems which are not Open Source programs.
 *  
 *  See http://www.opengroup.org/openmotif/license for full
 *  details of the license agreement. Any use, reproduction, or
 *  distribution of the program constitutes recipient's acceptance of
 *  this agreement.
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
 *  PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 *  KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
 *  WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
 *  OR FITNESS FOR A PARTICULAR PURPOSE
 *  
 *  EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
 *  NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
 *  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
 *  AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 *  ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
 *  EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
 *  POSSIBILITY OF SUCH DAMAGES.
 */ 
/*
 * HISTORY
 */

#ifdef REV_INFO
#ifndef lint
static char rcsid[] = ""
#endif
#endif

#include <testlib.h>
#include <Xm/Text.h>
#include <Xm/XmosP.h>
#include <Xm/XmP.h>

/* NOTE: including SpecRender.h may not be necessary in the future */
#include <Xm/SpecRenderT.h>

void  main (argc, argv)
int argc;
char **argv;
{
  Boolean            trace = False;
  register int       n;
  Arg                args[MAX_ARGS];
  XmString           target, xme_str, tmp_str;
  Widget             label, bboard;
  Display            *display;
  XmRendition        Renditions[3];
  XmStringTag        RenditionTags[3];
  Colormap           cmap;
  XColor             color, unused;
  Pixel              pixel_color;
  XmRenderTable      RenderTable=(XmRenderTable)NULL, 
                     render_table_value=(XmRenderTable)NULL;
  XFontStruct        * fs = (XFontStruct *) NULL;
  Font               default_font;
  XmParseMapping     ParseMapping;
  XmParseTable       ParseTable;
  char               *text=(char *) NULL;
  XmStringCharSet    tag;
  XmStringContext    StrContext;
  unsigned int       length;
  XtPointer          value;

  CommonTestInit(argc, argv);

  n = 0;
  XtSetArg(args[n], XmNwidth,  200);  n++;
  XtSetArg(args[n], XmNheight, 200);  n++;
  XtSetValues(Shell1, args, n);

  XtRealizeWidget(Shell1);
  display = XtDisplay(Shell1);

  /* Load a font in the server */
  default_font = XLoadFont(display, "8x13");
  if (default_font == BadAlloc)
    printf("ERROR: XLoadFont failed: BadAlloc\n");
  else if (default_font == BadName)
    printf("ERROR: XLoadFont failed: BadName\n");

  /* Create a rendition for this test */
  XtVaGetValues(Shell1, 
		XmNcolormap, &cmap,
		NULL);

  if (XAllocNamedColor(display, cmap, "blue", &color, &unused))
    pixel_color = color.pixel;
  else
    pixel_color = XmUNSPECIFIED_PIXEL;

  n = 0;
  XtSetArg(args[n], XmNrenditionForeground, pixel_color);  n++;
  XtSetArg(args[n], XmNfontName, "8x13");  n++;
  XtSetArg(args[n], XmNfontType, XmFONT_IS_FONT);  n++;
  XtSetArg(args[n], XmNunderlineType, XmSINGLE_LINE);  n++;
  RenditionTags[0] = (XmStringTag)"Rendition1";
  Renditions[0] = XmRenditionCreate(Shell1, RenditionTags[0], args, n);

  /* initialize the RenderTable */
  RenderTable = XmRenderTableAddRenditions(RenderTable, Renditions,
					   1, XmMERGE_REPLACE);
  if (RenderTable == NULL)
    printf("ERROR: in adding rendition to RenderTable\n");

  /* Check that the default font for the RenderTable is correct */
/*
 *** commented out because this test case core dumps ***
  if (!XmeRenderTableGetDefaultFont(RenderTable, &fs))
    printf("ERROR: XmeRenderTableGetDefaultFont call has failed\n");
  if (fs->fid != default_font)
    printf("ERROR: default font in render table is incorrect\n");
  CommonPause();
*/

  n = 0;
  XtSetArg(args[n], XmNlabelRenderTable, RenderTable);  n++;
  bboard = XmCreateBulletinBoard(Shell1, "Bboard", args, n);
  XtManageChild(bboard);

  /* get the default render table for the bboard widget */
/* 
 *** commented out because this test case core dumps ***
printf("call XmeGetDefaultRenderTable\n");
  render_table_value = XmeGetDefaultRenderTable(label, XmLABEL_RENDER_TABLE);
  if (render_table_value != RenderTable)
    printf("ERROR: render table stored value is incorrect\n");
  CommonPause();
*/

  /* Create and manage label widget */
  n = 0;
  label = XmCreateLabel(bboard, "Label", args, n);
  XtManageChild(label);

  target = XmStringCreateLocalized("Test String");
  xme_str = XmeGetLocalizedString((char *)NULL, label, 
				  XmNlabelString, "Test String");

  if (!XmStringCompare(target, xme_str)) 
    printf("ERROR: creating localized string\n");

  n = 0;
  XtSetArg(args[n], XmNlabelString, xme_str);  n++;
  XtSetValues(label, args, n);
  CommonPause();

  tmp_str = XmStringSegmentCreate("Reverse", XmFONTLIST_DEFAULT_TAG,
				  XmSTRING_DIRECTION_R_TO_L, False);
  n = 0;
  XtSetArg(args[n], XmNlabelString, tmp_str);  n++;
  XtSetValues(label, args, n);
  CommonPause();

  /* this test makes sure that the default locale encoding is valid */
  if (XmeGetEncodingAtom(label) == (Atom)None)
    printf("ERROR: locale encoding is invalid\n");
  tmp_str = XmStringCreateLocalized("locale test");
  n = 0;
  XtSetArg(args[n], XmNlabelString, tmp_str);  n++;
  XtSetValues(label, args, n);
  CommonPause();

  /* create an XmParseTable */
  n = 0;
  XtSetArg(args[n], XmNpattern, (XtPointer)"o");  n++;
  XtSetArg(args[n], XmNpatternType, XmCHARSET_TEXT);  n++;
  XtSetArg(args[n], XmNincludeStatus, XmINVOKE);  n++;
  XtSetArg(args[n], XmNinvokeParseProc, XmeGetNextCharacter);  n++;
  ParseMapping = XmParseMappingCreate(args, n);
  ParseTable = &ParseMapping;

  /* Test for the ParseProc XmeGetNextCharacter - parse the text
   * "Shoot Out, okay" and the XmeGetNextCharacter function will remove
   * instances of the letter "o" (result is "Shot Out, kay").
   */
  tmp_str = XmStringParseText("Shoot Out, okay", NULL, NULL, XmCHARSET_TEXT,
			      ParseTable, 1, (XtPointer)NULL);

  XtSetArg(args[n], XmNlabelString, tmp_str);  n++;
  XtSetValues(label, args, n);
  CommonPause();

  /* Test for the ParseProc XmeGetDirection - parse the text and return
   * an XmString component of type XmSTIRNG_COMPONENT_DIRECTION.
   */
  n = 0;
  XtSetArg(args[n], XmNinvokeParseProc, XmeGetDirection);  n++;
  XtSetArg(args[n], XmNpattern, (XtPointer)"s");  n++;
  XmParseMappingSetValues(ParseMapping, args, n);
  ParseTable = &ParseMapping;
  tmp_str = XmStringParseText("shot down", NULL, NULL, XmCHARSET_TEXT,
			      ParseTable, 1, (XtPointer)NULL);

  if (!XmStringInitContext(&StrContext, tmp_str))
    printf("ERROR: XmStringContext failed to initialize\n");
  if (XmStringGetNextTriple(StrContext, &length, &value)
      != XmSTRING_COMPONENT_DIRECTION)
    printf("ERROR: incorrect XmString component encountered\n");
  XtSetArg(args[n], XmNlabelString, tmp_str);  n++;
  XtSetValues(label, args, n);
  CommonPause();

  XmStringFree(target);
  XmStringFree(tmp_str);
  XmStringFree(xme_str);

  CommonPause();	/* quit */
  XtAppMainLoop(app_context);
  XtDestroyWidget(Shell1);
}