One-linear Python MIDI player concept

midiplay2_1.py

'''
midiplay2 rev1 - MIDI player written in Python 3.6 for Windows
Copyright (C) 2021 Sono (https://github.com/SonoSooS)
All Rights Reserved
'''

import sys
import struct
import io
import ctypes


# Constants
TRACK_DATA = 0
TRACK_TICK = 1
TRACK_OFFS = 2
TRACK_LEN = 3
TRACK_MSG = 4
TRACK_TMP = 5
TRACK_LMSGLEN = 6
TRACK_LMSG = 7

PLAYER_TICK = 0
PLAYER_MULTI = 1
PLAYER_BPM = 2
PLAYER_DELTATICK = 3

SLEEP_LASTTIME = 0
SLEEP_MAXDRIFT = 1
SLEEP_DELTA = 2
SLEEP_OLD = 3
SLEEP_TMP = 4

# Oneliner idioms

iter_empty = (None for _ in {})
iter_stop = (lambda: next(iter_empty))

complete_iterate = (lambda x: sum(0 for _ in x))

reduce_inner_cb_whiledo = (lambda x, y, z: x.__setitem__(0, z(x[0])) if y(x[0]) else x.__setitem__(1, 0))
reduce_inner_cb_dowhile = (lambda x, y, z: x.__setitem__(0, z(x[0])) or (y(x[0]) or x.__setitem__(1, 0)))

iterjunk = None if sys.hexversion < 0x3070000 else __import__('itertools').takewhile

reduce_inner = (lambda x, y, z, cb: x[0] if not sum(0 for __ in ((cb(x, y, z) if x[1] else iter_stop()) for _ in iter(int, 1))) else None) if not iterjunk else (lambda x, y, z, cb: sum(0 for _ in iterjunk(lambda w: (x[1] and cb(x, y, z)) or x[1], iter(int, 1))) or x[0])

while_do = (lambda x, y, z: reduce_inner([x, 1], y, z, reduce_inner_cb_whiledo));
do_while = (lambda x, z, y: reduce_inner([x, 1], y, z, reduce_inner_cb_dowhile));


# Track class definition C-style

track_decode_varlen = (lambda track:
(
    do_while([track, 0, 0],
        lambda x:
        (
            x.__setitem__(2, x[0][TRACK_DATA][x[0][TRACK_OFFS]])
            or x.__setitem__(1, (x[1] << 7) + (x[2] & 0x7F))
            or x
        ),
        lambda x:
        (
            x[0].__setitem__(TRACK_OFFS, x[0][TRACK_OFFS] + 1)
            or x[2] >= 0x80
        )
    )[1]
))

track_update_tick = (lambda track:
(
    track.__setitem__(TRACK_TICK, track[TRACK_TICK] + track_decode_varlen(track))
))

track_update_cmd = (lambda track:
(
    track.__setitem__(TRACK_TMP, track[TRACK_DATA][track[TRACK_OFFS]])
    or
    (
        (
            track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + 1)
            or track.__setitem__(TRACK_MSG, track[TRACK_TMP])
        )
        if track[TRACK_TMP] >= 0x80
        else
        (
            track.__setitem__(TRACK_MSG, track[TRACK_MSG] & 0xFF)
        )
    )
))

track_update_msg = (lambda track:
(
    (
        (
            track.__setitem__(TRACK_TMP, track[TRACK_DATA][track[TRACK_OFFS]] << 8)
            or track.__setitem__(TRACK_TMP, track[TRACK_TMP] | (track[TRACK_DATA][track[TRACK_OFFS] + 1] << 16))
            or track.  __setitem__(TRACK_OFFS, track[TRACK_OFFS] + 2)
        )
        if track[TRACK_MSG] < 0xC0
        else
        (
            (
                (
                    track.__setitem__(TRACK_TMP, track[TRACK_DATA][track[TRACK_OFFS]] << 8)
                    or track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + 1)
                )
                if track[TRACK_MSG] < 0xE0
                else
                (
                    track.__setitem__(TRACK_TMP, track[TRACK_DATA][track[TRACK_OFFS]] << 8)
                    or track.__setitem__(TRACK_TMP, track[TRACK_TMP] | (track[TRACK_DATA][track[TRACK_OFFS] + 1] << 16))
                    or track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + 2)
                )
            )
            if track[TRACK_MSG] < 0xF0
            else
            (
                (
                    track.__setitem__(TRACK_TMP, track[TRACK_DATA][track[TRACK_OFFS]] << 8)
                    or track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + 1)
                    or track.__setitem__(TRACK_LMSGLEN, track_decode_varlen(track))
                    or track.__setitem__(TRACK_LMSG, track[TRACK_DATA][track[TRACK_OFFS] : track[TRACK_OFFS] + track[TRACK_LMSGLEN]])
                    or track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + track[TRACK_LMSGLEN])
                )
                if track[TRACK_MSG] == 0xFF
                else
                (
                    (
                        track.__setitem__(TRACK_TMP, 0)
                        or track.__setitem__(TRACK_LMSGLEN, track_decode_varlen(track))
                        or track.__setitem__(TRACK_LMSG, track[TRACK_DATA][track[TRACK_OFFS] : track[TRACK_OFFS] + track[TRACK_LMSGLEN]])
                        or track.__setitem__(TRACK_OFFS, track[TRACK_OFFS] + track[TRACK_LMSGLEN])
                    )
                    if track[TRACK_MSG] == 0xF0
                    else iter_stop()
                )
            )
        )
    )
    or track.__setitem__(TRACK_MSG, track[TRACK_MSG] | track[TRACK_TMP])
))

track_execute_cmd = (lambda track:
(
    KShortMsg(track[TRACK_MSG])
    if (track[TRACK_MSG] & 0xFF) < 0xF0
    else
    (
        (
            track.__setitem__(TRACK_TMP, (track[TRACK_MSG] >> 8) & 0xFF) or
            (
                (
                    player.__setitem__(PLAYER_BPM, (track[TRACK_LMSG][0] << 16) | (track[TRACK_LMSG][1] << 8) | (track[TRACK_LMSG][2]))
                    or player.__setitem__(PLAYER_MULTI, (player[PLAYER_BPM] * 10 / timediv) or 1)
                )
                if track[TRACK_TMP] == 0x51
                else
                (
                    track.__setitem__(TRACK_DATA, 0)
                )
                if track[TRACK_TMP] == 0x2F
                else
                (
                    print("Meta{}: {}".format(hex(track[TRACK_TMP]), track[TRACK_LMSG])) or None
                )
                if track[TRACK_TMP] < 0x10
                else None
            )
        )
        if (track[TRACK_MSG] & 0xFF) == 0xFF else
        (
            (
                #TODO: longmsg
                print("TODO longmsg")
            )
            if (track[TRACK_MSG] & 0xFF) == 0xF0
            else iter_stop()
        )
    )
))

player_sleep = (lambda:
(
    NtQuerySystemTime(ticker_ptr)
    or sleep.__setitem__(SLEEP_TMP, ticker.value - sleep[SLEEP_LASTTIME])
    or sleep.__setitem__(SLEEP_LASTTIME, ticker.value)
    or sleep.__setitem__(SLEEP_TMP, sleep[SLEEP_TMP] - sleep[SLEEP_OLD])
    or sleep.__setitem__(SLEEP_OLD, player[PLAYER_DELTATICK] * player[PLAYER_MULTI])
    or sleep.__setitem__(SLEEP_DELTA, sleep[SLEEP_DELTA] + sleep[SLEEP_TMP])
    or sleep.__setitem__(SLEEP_TMP, sleep[SLEEP_OLD] - sleep[SLEEP_DELTA] if sleep[SLEEP_DELTA] > 0 else sleep[SLEEP_OLD])
    or
    (
        sleep.__setitem__(SLEEP_DELTA, min(sleep[SLEEP_DELTA], sleep[SLEEP_MAXDRIFT]))
        if sleep[SLEEP_TMP] <= 0
        else
        (
            sleepval.__setattr__('value', -int(sleep[SLEEP_TMP]))
            or ((NtDelayExecution(ctypes.c_int(1), sleepval_ptr) or 1) and None)
        )
    )
))

# Real code begins from here


ks = ctypes.WinDLL("C:\\Data\\lolol\\Sono.SynthRender\\syn\\out\\syndrv.dll.dll")
#ks = ctypes.WinDLL("C:\\Data\\lolol\\midi\\extremm\\OmniMIDI\\OmniMIDI.dll")

sys.exit(1) if not ks.IsKDMAPIAvailable() or not ks.InitializeKDMAPIStream() else None

KShortMsg = ks.SendDirectData
KShortMsg.restype = None


'''
ks = ctypes.windll.winmm

ksh = ctypes.c_void_p(0)
ksres = do_while([0, 1000000],
    lambda x: x.__setitem__(0, ks.midiOutOpen(ctypes.byref(ksh), -1, 0, 0, 0)) or x.__setitem__(1, x[1] - 1) or x,
    lambda x: x[0] == 10 and x[1]
)[0]
(print("Fail to open %i" % ksres), sys.exit(1)) if ksres else None

ks_msg = ks.midiOutShortMsg
KShortMsg = (lambda x: (ks_msg(ksh, x) or 1) and None)
'''

NtDelayExecution = ctypes.windll.ntdll.NtDelayExecution
NtQuerySystemTime = ctypes.windll.ntdll.NtQuerySystemTime
NtQuerySystemTime.restype = None

sleep = [0, 100000, 0, 0, 0]

ticker = ctypes.c_ulonglong(0)
ticker_ptr = ctypes.byref(ticker)
sleepval = ctypes.c_longlong(-1)
sleepval_ptr = ctypes.byref(sleepval)

fh = io.open(sys.argv[1], "rb");
fh.__enter__();

(fh.__exit__(), print("Not MThd"), sys.exit(1)) if fh.read(4) != b'MThd' else None
(fh.__exit__(), print("Invalid header length"), sys.exit(1)) if fh.read(4) != b'\x00\x00\x00\x06' else None
(fh.__exit__(), print("Corrupted file"), sys.exit(1)) if fh.read(1)[0] else None
(fh.__exit__(), print("Unsupported MIDI version"), sys.exit(1)) if fh.read(1)[0] > 1 else None

trackcount, timediv = struct.unpack('>HH', fh.read(4))

(fh.__exit__(), print("SMTPE timing not supported"), sys.exit(1)) if timediv >= 0x8000 else None

print("Loading %i tracks" % trackcount)

player = [0, (5000000 / timediv) or 1, 500000, 0]

tracks = list(
(
    [t, 0, 0, len(t), 0, 0, 0, 0] for t in
    (
        None if fh.read(4) != b'MTrk' else
        (
            fh.read(struct.unpack('>I', fh.read(4))[0])
        )
        for trackid in range(0, trackcount)
    )
))

fh.__exit__();

complete_iterate(track_update_tick(track) for track in tracks)

NtQuerySystemTime(ticker_ptr)
sleep[SLEEP_LASTTIME] = ticker.value

do_while(tracks,
    lambda tracks:
    (
        complete_iterate
        (
            (
                while_do
                (
                    track,
                    lambda track: (track and track[TRACK_TICK] <= player[PLAYER_TICK]),
                    lambda track:
                    (
                        track_update_cmd(track)
                        or track_update_msg(track)
                        or track_execute_cmd(track)
                        or (track[TRACK_DATA] and (track_update_tick(track) or track))
                    )
                )
            )
            if track[TRACK_TICK] <= player[PLAYER_TICK] else None
            for track in tracks
        )
        or
        (
            player.__setitem__(PLAYER_DELTATICK, min(track[TRACK_TICK] for track in tracks) - player[PLAYER_TICK])
            or player.__setitem__(PLAYER_TICK, player[PLAYER_TICK] + player[PLAYER_DELTATICK])
            or player_sleep()
        )
        or
        (
            tracks if not sum(0 if track[TRACK_DATA] else 1 for track in tracks)
            else list(track for track in tracks if track[TRACK_DATA])
        )
    ),
    lambda tracks:
    (
        len(tracks)
    )
)

midiplay2_1_cancer.py

import sys;import struct;import io;import ctypes;TRACK_DATA=0;TRACK_TICK=1;TRACK_OFFS=2;TRACK_LEN=3;TRACK_MSG=4;TRACK_TMP=5;TRACK_LMSGLEN=6;TRACK_LMSG=7;PLAYER_TICK=0;PLAYER_MULTI=1;PLAYER_BPM=2;PLAYER_DELTATICK=3;SLEEP_LASTTIME=0;SLEEP_MAXDRIFT=1;SLEEP_DELTA=2;SLEEP_OLD=3;SLEEP_TMP=4;iter_empty=(None for _ in{});iter_stop=lambda:next(iter_empty);complete_iterate=lambda x:sum((0 for _ in x));reduce_inner_cb_whiledo=lambda x,y,z:x.__setitem__(0,z(x[0]))if y(x[0])else x.__setitem__(1,0);reduce_inner_cb_dowhile=lambda x,y,z:x.__setitem__(0,z(x[0]))or(y(x[0])or x.__setitem__(1,0));iterjunk=None if sys.hexversion<50790400 else __import__('itertools').takewhile;reduce_inner=(lambda x,y,z,cb:x[0]if not sum((0 for __ in(cb(x,y,z)if x[1]else iter_stop()for _ in iter(int,1))))else None)if not iterjunk else lambda x,y,z,cb:sum((0 for _ in iterjunk(lambda w:x[1]and cb(x,y,z)or x[1],iter(int,1))))or x[0];while_do=lambda x,y,z:reduce_inner([x,1],y,z,reduce_inner_cb_whiledo);do_while=lambda x,z,y:reduce_inner([x,1],y,z,reduce_inner_cb_dowhile);track_decode_varlen=lambda track:do_while([track,0,0],lambda x:x.__setitem__(2,x[0][TRACK_DATA][x[0][TRACK_OFFS]])or x.__setitem__(1,(x[1]<<7)+(x[2]&127))or x,lambda x:x[0].__setitem__(TRACK_OFFS,x[0][TRACK_OFFS]+1)or x[2]>=128)[1];track_update_tick=lambda track:track.__setitem__(TRACK_TICK,track[TRACK_TICK]+track_decode_varlen(track));track_update_cmd=lambda track:track.__setitem__(TRACK_TMP,track[TRACK_DATA][track[TRACK_OFFS]])or(track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+1)or track.__setitem__(TRACK_MSG,track[TRACK_TMP])if track[TRACK_TMP]>=128 else track.__setitem__(TRACK_MSG,track[TRACK_MSG]&255));track_update_msg=lambda track:(track.__setitem__(TRACK_TMP,track[TRACK_DATA][track[TRACK_OFFS]]<<8)or track.__setitem__(TRACK_TMP,track[TRACK_TMP]|track[TRACK_DATA][track[TRACK_OFFS]+1]<<16)or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+2)if track[TRACK_MSG]<192 else(track.__setitem__(TRACK_TMP,track[TRACK_DATA][track[TRACK_OFFS]]<<8)or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+1)if track[TRACK_MSG]<224 else track.__setitem__(TRACK_TMP,track[TRACK_DATA][track[TRACK_OFFS]]<<8)or track.__setitem__(TRACK_TMP,track[TRACK_TMP]|track[TRACK_DATA][track[TRACK_OFFS]+1]<<16)or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+2))if track[TRACK_MSG]<240 else track.__setitem__(TRACK_TMP,track[TRACK_DATA][track[TRACK_OFFS]]<<8)or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+1)or track.__setitem__(TRACK_LMSGLEN,track_decode_varlen(track))or track.__setitem__(TRACK_LMSG,track[TRACK_DATA][track[TRACK_OFFS]:track[TRACK_OFFS]+track[TRACK_LMSGLEN]])or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+track[TRACK_LMSGLEN])if track[TRACK_MSG]==255 else track.__setitem__(TRACK_TMP,0)or track.__setitem__(TRACK_LMSGLEN,track_decode_varlen(track))or track.__setitem__(TRACK_LMSG,track[TRACK_DATA][track[TRACK_OFFS]:track[TRACK_OFFS]+track[TRACK_LMSGLEN]])or track.__setitem__(TRACK_OFFS,track[TRACK_OFFS]+track[TRACK_LMSGLEN])if track[TRACK_MSG]==240 else iter_stop())or track.__setitem__(TRACK_MSG,track[TRACK_MSG]|track[TRACK_TMP]);track_execute_cmd=lambda track:KShortMsg(track[TRACK_MSG])if track[TRACK_MSG]&255<240 else track.__setitem__(TRACK_TMP,track[TRACK_MSG]>>8&255)or(player.__setitem__(PLAYER_BPM,track[TRACK_LMSG][0]<<16|track[TRACK_LMSG][1]<<8|track[TRACK_LMSG][2])or player.__setitem__(PLAYER_MULTI,player[PLAYER_BPM]*10/timediv or 1)if track[TRACK_TMP]==81 else track.__setitem__(TRACK_DATA,0)if track[TRACK_TMP]==47 else print('Meta{}: {}'.format(hex(track[TRACK_TMP]),track[TRACK_LMSG]))or None if track[TRACK_TMP]<16 else None)if track[TRACK_MSG]&255==255 else print('TODO longmsg')if track[TRACK_MSG]&255==240 else iter_stop();player_sleep=lambda:NtQuerySystemTime(ticker_ptr)or sleep.__setitem__(SLEEP_TMP,ticker.value-sleep[SLEEP_LASTTIME])or sleep.__setitem__(SLEEP_LASTTIME,ticker.value)or sleep.__setitem__(SLEEP_TMP,sleep[SLEEP_TMP]-sleep[SLEEP_OLD])or sleep.__setitem__(SLEEP_OLD,player[PLAYER_DELTATICK]*player[PLAYER_MULTI])or sleep.__setitem__(SLEEP_DELTA,sleep[SLEEP_DELTA]+sleep[SLEEP_TMP])or sleep.__setitem__(SLEEP_TMP,sleep[SLEEP_OLD]-sleep[SLEEP_DELTA]if sleep[SLEEP_DELTA]>0 else sleep[SLEEP_OLD])or(sleep.__setitem__(SLEEP_DELTA,min(sleep[SLEEP_DELTA],sleep[SLEEP_MAXDRIFT]))if sleep[SLEEP_TMP]<=0 else sleepval.__setattr__('value',-int(sleep[SLEEP_TMP]))or(NtDelayExecution(ctypes.c_int(1),sleepval_ptr)or 1)and None);ks=ctypes.windll.winmm;ksh=ctypes.c_void_p(0);ksres=do_while([0,1000000],lambda x:x.__setitem__(0,ks.midiOutOpen(ctypes.byref(ksh),-1,0,0,0))or x.__setitem__(1,x[1]-1)or x,lambda x:x[0]==10 and x[1])[0];(print('Fail to open %i'%ksres),sys.exit(1))if ksres else None;ks_msg=ks.midiOutShortMsg;KShortMsg=lambda x:(ks_msg(ksh,x)or 1)and None;NtDelayExecution=ctypes.windll.ntdll.NtDelayExecution;NtQuerySystemTime=ctypes.windll.ntdll.NtQuerySystemTime;NtQuerySystemTime.restype=None;sleep=[0,100000,0,0,0];ticker=ctypes.c_ulonglong(0);ticker_ptr=ctypes.byref(ticker);sleepval=ctypes.c_longlong(-1);sleepval_ptr=ctypes.byref(sleepval);fh=io.open(sys.argv[1],'rb');fh.__enter__();(fh.__exit__(),print('Not MThd'),sys.exit(1))if fh.read(4)!=b'MThd'else None;(fh.__exit__(),print('Invalid header length'),sys.exit(1))if fh.read(4)!=b'\x00\x00\x00\x06'else None;(fh.__exit__(),print('Corrupted file'),sys.exit(1))if fh.read(1)[0]else None;(fh.__exit__(),print('Unsupported MIDI version'),sys.exit(1))if fh.read(1)[0]>1 else None;trackcount,timediv=struct.unpack('>HH',fh.read(4));(fh.__exit__(),print('SMTPE timing not supported'),sys.exit(1))if timediv>=32768 else None;print('Loading %i tracks'%trackcount);player=[0,5000000/timediv or 1,500000,0];tracks=list(([t,0,0,len(t),0,0,0,0]for t in(None if fh.read(4)!=b'MTrk'else fh.read(struct.unpack('>I',fh.read(4))[0])for trackid in range(0,trackcount))));fh.__exit__();complete_iterate((track_update_tick(track)for track in tracks));NtQuerySystemTime(ticker_ptr);sleep[SLEEP_LASTTIME]=ticker.value;do_while(tracks,lambda tracks:complete_iterate((while_do(track,lambda track:track and track[TRACK_TICK]<=player[PLAYER_TICK],lambda track:track_update_cmd(track)or track_update_msg(track)or track_execute_cmd(track)or track[TRACK_DATA]and(track_update_tick(track)or track))if track[TRACK_TICK]<=player[PLAYER_TICK]else None for track in tracks))or(player.__setitem__(PLAYER_DELTATICK,min((track[TRACK_TICK]for track in tracks))-player[PLAYER_TICK])or player.__setitem__(PLAYER_TICK,player[PLAYER_TICK]+player[PLAYER_DELTATICK])or player_sleep())or(tracks if not sum((0 if track[TRACK_DATA]else 1 for track in tracks))else list((track for track in tracks if track[TRACK_DATA]))),lambda tracks:len(tracks))