Karya, built on 2023-08-29T07:47:28 (patch 7a412d5d6ba4968ca4155ef276a062ccdeb9109a)

Safe Haskell	Safe-Inferred

Instrument.Parse

Contents

annotation file
patch file

Description

Functions to parse MIDI patch files.

Synopsis

type Parser st a = Parse.ParserS st a
type Annotation = Tag.Tag
parse_annotations :: FilePath -> IO (Either String (Map InstT.Qualified [Annotation]))
p_annotation_file :: Parser st [(InstT.Qualified, [Annotation])]
p_annotation_line :: Parser st (InstT.Qualified, [Annotation])
p_qualified :: Parser st InstT.Qualified
p_tag :: Parser st Tag.Tag
lexeme :: Parser st a -> Parser st a
p_eol :: Parser st ()
p_whitespace :: Parser st ()
patch_file :: FilePath -> IO [Sysex.Patch]
parse_patch_file :: String -> IO (Either Text [Sysex.Patch])
data State = State {
- state_bank :: Int
- state_patch_num :: Midi.Program
}
empty_state :: State
data PatchLine = PatchLine {
- patch_name :: Text
- patch_bank :: Int
- patch_program :: Midi.Program
- patch_tags :: [Tag.Tag]
}
p_patch_file :: Parser State [Sysex.Patch]
make_patch :: Control.PbRange -> PatchLine -> Sysex.Patch
p_line :: Parser State (Maybe.Maybe PatchLine)
p_patch_line :: Parser State PatchLine
p_bank_decl :: Parser State ()

Documentation

type Parser st a = Parse.ParserS st a Source #

annotation file

type Annotation = Tag.Tag Source #

parse_annotations :: FilePath -> IO (Either String (Map InstT.Qualified [Annotation])) Source #

Format is synth/inst-name tag1=x tag2=y.

TODO other attributes are not supported, but if there were, they could look like *pb-range=12 *flag=pressure

p_annotation_file :: Parser st [(InstT.Qualified, [Annotation])] Source #

p_annotation_line :: Parser st (InstT.Qualified, [Annotation]) Source #

p_qualified :: Parser st InstT.Qualified Source #

p_tag :: Parser st Tag.Tag Source #

lexeme :: Parser st a -> Parser st a Source #

p_eol :: Parser st () Source #

p_whitespace :: Parser st () Source #

patch file

patch_file :: FilePath -> IO [Sysex.Patch] Source #

Parse a simple ad-hoc text file format to describe a synth's built-in patches.

Each line should look like inst-name, tag=val, tag=val, .... The instrument name can contain any character except a comma, but the tags are restricted to [a-z0-9-]. The category tag is treated specially: if not set it will be inherited from the previous category.

The patch's program change is incremented for each patch. A line like *bank num sets the bank number and resets the program change to 0.

Comments start with #, and blank lines are ignored.

parse_patch_file :: String -> IO (Either Text [Sysex.Patch]) Source #

data State Source #

Constructors

State
Fields state_bank :: Int state_patch_num :: Midi.Program

Instances

Instances details

Show State Source #
Instance details Defined in Instrument.Parse Methods showsPrec :: Int -> State -> ShowS # show :: State -> String # showList :: [State] -> ShowS #

empty_state :: State Source #

data PatchLine Source #

Constructors

PatchLine
Fields patch_name :: Text patch_bank :: Int patch_program :: Midi.Program patch_tags :: [Tag.Tag]

Instances

Instances details

Show PatchLine Source #
Instance details Defined in Instrument.Parse Methods showsPrec :: Int -> PatchLine -> ShowS # show :: PatchLine -> String # showList :: [PatchLine] -> ShowS #

p_patch_file :: Parser State [Sysex.Patch] Source #

make_patch :: Control.PbRange -> PatchLine -> Sysex.Patch Source #

p_line :: Parser State (Maybe.Maybe PatchLine) Source #

p_patch_line :: Parser State PatchLine Source #

p_bank_decl :: Parser State () Source #