Functor

MyParser ("/Users/torsten/oz/music/Strasheela/strasheela/trunk/strasheela/contributions/anders/MidiInput/source/ParserWrapper.oz")

Import

• CSV_Scanner at "CSV_Scanner.ozf"
• CSV_Parser at "CSV_Parser.ozf"
• Init at "x-ozlib://anders/strasheela/source/Init.ozf"
• Out at "x-ozlib://anders/strasheela/source/Output.ozf"

Export

• <P/2:ParseCSVFile>
• <P/1:RenderCSVFile>

Define

proc{ParseCSVFile Spec Result}
Expects the path to a CSV file (a record of optional path components) and returns a list of corresponding midi events. The Spec defaults are the following
unit(file:"test"
csvDir:{Init.getStrasheelaEnv defaultCSVDir}
csvExtension:'.csv')


proc{RenderCSVFile Spec}
Transforms a Midi file into a CSV file (by calling midicsv). The Spec defaults are the following.
unit(file:"test"
csvDir:{Init.getStrasheelaEnv defaultCSVDir}
midiDir:{Init.getStrasheelaEnv defaultMidiDir}
csvExtension:".csv"
midiExtension:".mid"
midicsv:{Init.getStrasheelaEnv midicsv}
!!?? is flags control needed?
flags:{Init.getStrasheelaEnv defaultCSVFlags})



End