add function to read time signature (#130)

* Added time signature

* Added tests

* Correct time_signature

* Make requested changes

* Update Project.toml and CHANGELOG.md

CHANGELOG.md

@@ -4,6 +4,8 @@ All notable changes to this project will be documented in this file.
 
 The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)
 and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).
+# v1.10.0
+* Added `time_signature` that returns the time signature of a given MIDI.
 # v1.9.0
 * `name_to_pitch` now accepts flat names and `pitch_to_name` accepts `flat` keyword argument.
 # v1.8.0

Project.toml

@@ -1,7 +1,7 @@
 name = "MIDI"
 uuid = "f57c4921-e30c-5f49-b073-3f2f2ada663e"
 repo = "https://github.com/JuliaMusic/MIDI.jl.git"
-version = "1.9.0"
+version = "1.10.0"
 
 [compat]
 julia = "1"

src/midifile.jl

@@ -1,5 +1,5 @@
 export MIDIFile, readMIDIFile, writeMIDIFile
-export BPM, ms_per_tick
+export BPM, time_signature, ms_per_tick
 
 """
     MIDIFile <: Any
@@ -150,7 +150,29 @@ function BPM(t::MIDI.MIDIFile)
     bpm = 60000000/μs
 end
 
+"""
+    time_signature(midi)
+Return the time signature of the given `MIDIFile`.
+Returns 4/4 if it doesn't find a time signature.
+"""
+function time_signature(t::MIDI.MIDIFile)
+    # Find the one that corresponds to Time Signature:
+    # FF 58 04 nn dd cc bb Time Signature
+    # See here (page 8):
+    # http://www.cs.cmu.edu/~music/cmsip/readings/Standard-MIDI-file-format-updated.pdf
+    for event in t.tracks[1].events
+        if typeof(event) == MetaEvent
+            if event.metatype == 0x58
+                nn, dd = event.data
+                ts = string(nn) * "/" * string(2^dd)
+                return ts
+            end
+        end
+    end
 
+    # Default time signature if it is not present in the file
+    return "4/4"
+end
 
 """
     ms_per_tick(tpq, bpm)

test/runtests.jl

@@ -9,3 +9,4 @@ include("metaevent.jl")
 include("miditrack.jl")
 include("midiio.jl")
 include("negative_delta.jl")
+include("utils.jl")

test/utils.jl

@@ -0,0 +1,7 @@
+cd(@__DIR__)
+
+@testset "Time Signature" begin
+    midi = readMIDIFile("doxy.mid")
+    @test time_signature(midi) == "4/4"
+end
+