X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fgetcommands.cc;fp=src%2Fgetcommands.cc;h=1f9362c59cdd8651da2b37d7c4ba8ba22f18ef9c;hb=cd6fbd39e456ab3ff353c38fc5ae1997e61390f2;hp=0000000000000000000000000000000000000000;hpb=fc22f69328fd2d5030bb1feff8d0f6da37e8217d;p=lilypond.git

diff --git a/src/getcommands.cc b/src/getcommands.cc
new file mode 100644
index 0000000000..1f9362c59c
--- /dev/null
+++ b/src/getcommands.cc
@@ -0,0 +1,58 @@
+#include "string.hh"
+#include "parseconstruct.hh"
+#include "command.hh"
+
+Command*
+get_bar_command(Real w)
+{
+    Command*c = new Command;
+    c->when = w;
+    c->code = TYPESET;
+    c->args.add( "BAR");
+    c->args.add( "|");
+    c->priority = 100;
+    return c;
+}
+
+Command *
+get_meter_command(Real w, int n, int m)
+{
+    Command*c = new Command;
+    
+    c->when = w;
+    c->code = TYPESET;
+    c->args.add( "METER");
+    c->args.add( n );
+    c->args.add( m );
+    c->priority = 50;		// less than bar
+    return c;
+}
+
+Command *
+get_meterchange_command(int n, int m)
+{
+    Command*c = new Command;
+
+    c->code = INTERPRET;
+    c->args.add( "METER");
+    c->args.add( n );
+    c->args.add( m );
+    c->priority = 0;		// more than bar
+    return c;
+}
+
+
+Command *
+get_skip_command(int n, Real m)
+{
+    Command*c = new Command;
+    
+    c->code = INTERPRET;
+    c->args.add( "SKIP");
+    c->args.add( n );
+    c->args.add( m );
+    c->priority = 0;		// more than bar
+    return c;
+}
+
+