]> git.donarmstrong.com Git - lilypond.git/blob - src/getcommands.cc
1ac2cc0bcb9af7deb4ddd34e0785692d3e8fc4df
[lilypond.git] / src / getcommands.cc
1 #include "string.hh"
2 #include "inputcommand.hh"
3 #include "parseconstruct.hh"
4 #include "command.hh"
5
6 Command*
7 get_key_typeset_command(svec<Scalar>which)
8 {
9     Command*c = new Command;
10     c->code = TYPESET;    
11     c->args = which;
12     String k("KEY");
13     c->args.insert(k,0 );
14     c->priority = 70;
15     return c;
16 }
17
18 Command *
19 get_meter_command(Real w, int n, int m)
20 {
21     Command*c = new Command;
22     
23     c->when = w;
24     c->code = TYPESET;
25     c->args.add( "METER");
26     c->args.add( n );
27     c->args.add( m );
28     c->priority = 40;
29     return c;
30 }
31