tests/rtest13s.mac

   1 /*************** -*- Mode: MACSYMA; Package: MAXIMA -*-  ******************/
   2 /***************************************************************************
   3 ***                                                                    *****
   4 ***     Copyright (c) 1984 by William Schelter,University of Texas     *****
   5 ***     All rights reserved                                            *****
   6 ***************************************************************************/
   7
   8 infix("|");
   9 "|"$
  10
  11 exp1:{x | x > 0};
  12 set(x | x > 0)$
  13
  14 exp2:{x | x < 2};
  15 set(x | x < 2)$
  16
  17 infix("ou");
  18 "ou"$
  19
  20 infix("oi");
  21 "oi"$
  22
  23 exp1 ou exp2;
  24 set(x | x > 0) ou set(x | x < 2)$
  25
  26 exp1 ou exp2;
  27 set(x | x > 0) ou set(x | x < 2)$
  28
  29 exp1:{1,2,3};
  30 set(1,2,3)$
  31
  32 {3,4,5};
  33 set(3,4,5)$
  34
  35 exp1 ou exp1 ou %;
  36 set(1,2,3) ou set(1,2,3) ou set(3,4,5)$
  37
  38 infix("ou",100,100);
  39 "ou"$
  40
  41 exp2:infix("oi",120,120);
  42 "oi"$
  43
  44 exp1 ou exp1 ou {7};
  45 set(1,2,3) ou set(1,2,3) ou set(7)$
  46
  47 /* Make sure we didn't make the uppercase versions also operators */
  48 x + OU;
  49 x + OU$
  50 x + OI;
  51 x + OI$
  52 /*kill("ou");*/
  53 remove("ou",operator);
  54 done$
  55 foo(ou);
  56 foo(ou);
  57
  58