From: fred <fred>
Date: Tue, 29 Oct 1996 00:37:41 +0000 (+0000)
Subject: lilypond-0.0.9
X-Git-Tag: release/1.5.59~7007
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=503bf68cc8515e9be465e9b7575d58fe8381b35d;p=lilypond.git

lilypond-0.0.9
---

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;
+}
+
+