Revert "Changed the parser such that it understands all defined functions"
[ginac.git] / ginac / parser / default_reader.tpl
1 [+ AutoGen5 template .cpp +][+ 
2 COMMENT a part of GiNaC parser -- construct functions from a byte stream.
3 +][+
4 (use-modules (ice-9 format))
5
6 (define (sequence start end . step)
7   (let ((step (if (null? step) 1 (car step))))
8     (let loop ((n start))
9       (if (> n end) '() (cons n (loop (+ step n)))))))
10 +]/*
11 [+ (dne " * " " * " ) +]
12  *
13  * If you want to change this file, edit either `[+ (def-file) +]' or
14  * `[+ (tpl-file) +]' file, and run the following command:
15  *
16  * autogen -T [+ (tpl-file) +] [+ (def-file) +]
17  */
18 #include "parse_context.h"
19 #include "power.h"
20 #include "operators.h"
21 #include "inifcns.h"
22
23 namespace GiNaC
24 {
25 [+ FOR function +]
26 static ex [+ (get "name") +]_reader(const exvector& ev)
27 {
28         return GiNaC::[+ (get "name") +]([+
29                 (let ((nargs (if (exist? "args")
30                                  (string->number (get "args")) 1)))
31                   (format '#f "~{ev[~a]~^, ~}" (sequence 0 (- nargs 1)))) +]);
32 }[+ ENDFOR +]
33
34 const prototype_table& get_default_reader()
35 {
36         using std::make_pair;
37         static bool initialized = false;
38         static prototype_table reader;
39         if (!initialized) {
40 [+ FOR function +]
41                 reader[make_pair("[+ (get "name") +]", [+ 
42                                     (if (exist? "args") (get "args") "1")
43                                  +])] = [+ (get "name") +]_reader;[+
44    ENDFOR +]
45                 initialized = true;
46         }
47         return reader;
48 }
49 } // namespace GiNaC
50