[deliverable/binutils-gdb.git] / intl / eval-plural.h

/* Plural expression evaluation.
   Copyright (C) 2000-2002 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU Library General Public License as published
   by the Free Software Foundation; either version 2, 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
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
   USA.  */

#ifndef STATIC
#define STATIC static
#endif

/* Evaluate the plural expression and return an index value.  */
STATIC unsigned long int plural_eval PARAMS ((struct expression *pexp,
					      unsigned long int n))
     internal_function;

STATIC
unsigned long int
internal_function
plural_eval (pexp, n)
     struct expression *pexp;
     unsigned long int n;
{
  switch (pexp->nargs)
    {
    case 0:
      switch (pexp->operation)
	{
	case var:
	  return n;
	case num:
	  return pexp->val.num;
	default:
	  break;
	}
      /* NOTREACHED */
      break;
    case 1:
      {
	/* pexp->operation must be lnot.  */
	unsigned long int arg = plural_eval (pexp->val.args[0], n);
	return ! arg;
      }
    case 2:
      {
	unsigned long int leftarg = plural_eval (pexp->val.args[0], n);
	if (pexp->operation == lor)
	  return leftarg || plural_eval (pexp->val.args[1], n);
	else if (pexp->operation == land)
	  return leftarg && plural_eval (pexp->val.args[1], n);
	else
	  {
	    unsigned long int rightarg = plural_eval (pexp->val.args[1], n);

	    switch (pexp->operation)
	      {
	      case mult:
		return leftarg * rightarg;
	      case divide:
#if !INTDIV0_RAISES_SIGFPE
		if (rightarg == 0)
		  raise (SIGFPE);
#endif
		return leftarg / rightarg;
	      case module:
#if !INTDIV0_RAISES_SIGFPE
		if (rightarg == 0)
		  raise (SIGFPE);
#endif
		return leftarg % rightarg;
	      case plus:
		return leftarg + rightarg;
	      case minus:
		return leftarg - rightarg;
	      case less_than:
		return leftarg < rightarg;
	      case greater_than:
		return leftarg > rightarg;
	      case less_or_equal:
		return leftarg <= rightarg;
	      case greater_or_equal:
		return leftarg >= rightarg;
	      case equal:
		return leftarg == rightarg;
	      case not_equal:
		return leftarg != rightarg;
	      default:
		break;
	      }
	  }
	/* NOTREACHED */
	break;
      }
    case 3:
      {
	/* pexp->operation must be qmop.  */
	unsigned long int boolarg = plural_eval (pexp->val.args[0], n);
	return plural_eval (pexp->val.args[boolarg ? 1 : 2], n);
      }
    }
  /* NOTREACHED */
  return 0;
}
Commit	Line	Data
bf070c84 SE	1	/* Plural expression evaluation.
	2	Copyright (C) 2000-2002 Free Software Foundation, Inc.
	3
	4	This program is free software; you can redistribute it and/or modify it
	5	under the terms of the GNU Library General Public License as published
	6	by the Free Software Foundation; either version 2, or (at your option)
	7	any later version.
	8
	9	This program is distributed in the hope that it will be useful,
	10	but WITHOUT ANY WARRANTY; without even the implied warranty of
	11	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	12	Library General Public License for more details.
	13
	14	You should have received a copy of the GNU Library General Public
	15	License along with this program; if not, write to the Free Software
	16	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
	17	USA. */
	18
	19	#ifndef STATIC
	20	#define STATIC static
	21	#endif
	22
	23	/* Evaluate the plural expression and return an index value. */
	24	STATIC unsigned long int plural_eval PARAMS ((struct expression *pexp,
	25	unsigned long int n))
	26	internal_function;
	27
	28	STATIC
	29	unsigned long int
	30	internal_function
	31	plural_eval (pexp, n)
	32	struct expression *pexp;
	33	unsigned long int n;
	34	{
	35	switch (pexp->nargs)
	36	{
	37	case 0:
	38	switch (pexp->operation)
	39	{
	40	case var:
	41	return n;
	42	case num:
	43	return pexp->val.num;
	44	default:
	45	break;
	46	}
	47	/* NOTREACHED */
	48	break;
	49	case 1:
	50	{
	51	/* pexp->operation must be lnot. */
	52	unsigned long int arg = plural_eval (pexp->val.args[0], n);
	53	return ! arg;
	54	}
	55	case 2:
	56	{
	57	unsigned long int leftarg = plural_eval (pexp->val.args[0], n);
	58	if (pexp->operation == lor)
	59	return leftarg \|\| plural_eval (pexp->val.args[1], n);
	60	else if (pexp->operation == land)
	61	return leftarg && plural_eval (pexp->val.args[1], n);
	62	else
	63	{
	64	unsigned long int rightarg = plural_eval (pexp->val.args[1], n);
65
66	switch (pexp->operation)
67	{
68	case mult:
69	return leftarg * rightarg;
70	case divide:
71	#if !INTDIV0_RAISES_SIGFPE
72	if (rightarg == 0)
73	raise (SIGFPE);
74	#endif
75	return leftarg / rightarg;
76	case module:
77	#if !INTDIV0_RAISES_SIGFPE
78	if (rightarg == 0)
79	raise (SIGFPE);
80	#endif
81	return leftarg % rightarg;
82	case plus:
83	return leftarg + rightarg;
84	case minus:
85	return leftarg - rightarg;
86	case less_than:
87	return leftarg < rightarg;
88	case greater_than:
89	return leftarg > rightarg;
90	case less_or_equal:
91	return leftarg <= rightarg;
92	case greater_or_equal:
93	return leftarg >= rightarg;
94	case equal:
95	return leftarg == rightarg;
96	case not_equal:
97	return leftarg != rightarg;
98	default:
99	break;
100	}
101	}
102	/* NOTREACHED */
103	break;
104	}
105	case 3:
106	{
107	/* pexp->operation must be qmop. */
108	unsigned long int boolarg = plural_eval (pexp->val.args[0], n);
109	return plural_eval (pexp->val.args[boolarg ? 1 : 2], n);
110	}
111	}
112	/* NOTREACHED */
113	return 0;
114	}