share/translators/m2mj/Macsyma.stg

   1 // Translation from Maple to Macsyma
   2 //
   3 // Copyright © 2021 Dan Stanger, all rights reserved.
   4 // Copying is covered by the GNU General Public License (GPL).
   5 //
   6 // This program is free software; you can redistribute it and/or modify
   7 // it under the terms of the GNU General Public License as published by
   8 // the Free Software Foundation; either version 2 of the License, or
   9 // (at your option) any later version.
  10 //
  11 // This program is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14 // GNU General Public License for more details.
  15
  16 group Macsyma;
  17
  18 local(names) ::= <<
  19 <if(names)>[<names; separator=", ">],<endif>
  20 >>
  21 function(name,args) ::= <<
  22 <name>(<args; separator=", ">)
  23 >>
  24 listexpr(args) ::= <<
  25 [<args; separator=", ">]
  26 >>
  27 setexpr(args) ::= <<
  28 setify([<args; separator=", ">])
  29 >>
  30 seqsansprefix(left,right) ::= <<
  31 makelist(<left>,<right>)
  32 >>
  33 intintervalexpr(left,right) ::= <<
  34 makelist(i, i, <left>, <right>)
  35 >>
  36 proc(name,parms,locals,statseq) ::= <<
  37 <name>(<parms; separator=", ">):=block(<locals>
  38 <statseq; separator=",\n">
  39 );
  40 >>
  41 procexpr(parms,locals,expr) ::= <<
  42 lambda([<parms; separator=", ">],
  43  block(<locals>
  44   <expr>
  45 )
  46 >>
  47 statseq(stat) ::= <<
  48  <stat; separator=",\n">
  49 >>
  50 ifstat(expr,statseq,elifclause,elseclause) ::= <<
  51 if <expr> then (<statseq; separator=",\n" >)
  52 <if(elifclause)><elifclause><endif>
  53 <if(elseclause)><elseclause><endif>
  54 >>
  55 elseclause(s) ::= <<
  56 else (<s>)
  57 >>
  58 ifelifstat(x,i,e) ::= <<
  59 if <x> then (<i>) <e>
  60 >>
  61 ifelifelsestat(x,i,ei,e) ::= <<
  62 if <x> then (<i>) <ei> else <e>
  63 >>
  64 exprseq(e) ::= <<
  65 <e ; separator=",">
  66 >>
  67 elifclause(x,i) ::= <<
  68 else if <x> then (<i>)
  69 >>
  70 forin(name,expr,body) ::= <<
  71 for <name> in <expr> <body>
  72 >>
  73 forbodywhile(expr,statseq) ::= <<
  74 while <expr> do (<statseq; separator=",\n" >)
  75 >>
  76 forbodydo(expr,statseq) ::= <<
  77 do (<statseq; separator=",\n" >)
  78 >>
  79 assign(lvalue,exprseq) ::= <<
  80 <lvalue> : <exprseq>
  81 >>
  82 namebracket(n,e) ::= <<
  83 <n>[<e; separator=",">]
  84 >>
  85 name(text) ::= <<
  86 <text>
  87 >>
  88 number(text) ::= <<
  89 <text>
  90 >>
  91 binexp(l,op,r) ::= <<
  92 <l> <op> <r>
  93 >>
  94 setrelexp(op,l,r) ::= <<
  95 <op>(<l>,<r>)
  96 >>
  97 paren(e) ::= <<
  98 (<e>)
  99 >>
 100 comment(e) ::= <<
 101 /*<e> */
 102 >>
 103 notimplemented(name) ::= <<
 104 <name> not implemented
 105 >>
 106 isnull(name, op) ::= <<
 107 visit <name> <op> was null
 108 >>