2
/******************************************************************************
5
* COPYRIGHT : (C) 1999 David Allouche
6
*******************************************************************************
7
* This software falls under the GNU general public license and comes WITHOUT
8
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
9
* If you don't have this file, write to the Free Software Foundation, Inc.,
10
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
11
******************************************************************************/
15
/******************************************************************************
17
******************************************************************************/
19
tab_rep::tab_rep (int pos2, tree t): pos (pos2) {
21
kind= tab_all; weight= 1.0; }
22
else if (t[1] == "first") {
23
kind= tab_first; weight= 0; }
24
else if (t[1] == "last") {
25
kind= tab_last; weight= 0; }
27
kind= tab_all; weight= as_double (t[1]); }