Defer android-location ( location -- )
:noname to location ; IS android-location
Defer android-sensor ( sensor -- )
:noname to sensor ; IS android-sensor

\ stubs, "is recurse" assigns to last defined word

Defer android-surface-changed ' ]gref is recurse
Defer android-surface-redraw ' ]gref is recurse
Defer android-video-size ' ]gref is recurse

: android-surface-created ( surface -- )
    >o  env o ANativeWindow_fromSurface app window !  gref> ;
: android-surface-destroyed ( surface -- )
    >o  app window off  gref> ;
: android-global-layout ( 0 -- ) drop config-changed ;

Create aevents
' android-key ,
' android-touch ,
' android-location ,
' android-sensor ,
' android-surface-created ,
' android-surface-changed ,
' android-surface-redraw ,
' android-surface-destroyed ,
' android-global-layout ,
' android-video-size ,
here aevents - cell/
' drop ,
Constant max-event#

:noname ( event type -- )
    max-event# umin cells aevents + perform ; is akey

previous previous set-current

jni-class: android/graphics/SurfaceTexture

jni-new: new-SurfaceTexture (I)V
jni-method: updateTexImage updateTexImage ()V
jni-method: getTimestamp getTimestamp ()J
jni-method: setDefaultBufferSize setDefaultBufferSize (II)V
jni-method: getTransformMatrix getTransformMatrix ([F)V
jni-method: st-release release ()V

jni-class: android/view/Surface

jni-new: new-Surface (Landroid/graphics/SurfaceTexture;)V
jni-method: release release ()V
jni-method: isValid isValid ()Z

jni-static: cp-get(id) get (II)Landroid/media/CamcorderProfile;

jni-class: android/hardware/Camera$Size

jni-field: height height I
jni-field: width width I

JValue media-sft

previous

: create-sft ( -- )
    media-tex current-tex new-SurfaceTexture to media-sft ;

\ OpenMAX AL example

require openmax.fs
require mkv-tools.fs
require jni-media.fs

also jni

JValue mediaplayer0
JValue media-sf

previous

also openmax

0 Value mp-object
0 Value engine
0 Value mix

    mp-object XA_IID_ENGINE ['] engine >body mp-object XAObjectItf-GetInterface()
    ?success ;

: create-mix ( -- )
    engine ['] mix >body  0 0 0 engine XAEngineItf-CreateOutputMix() ?success
    mix realize ;



: create-stuff ( -- )
    create-object create-engine create-mix ;

\ media player

0 Value player

    BQitf XA_ANDROIDBUFFERQUEUEEVENT_PROCESSED
    BQitf XAAndroidBufferQueueItf-SetCallbackEventsMask() ?success
    BQitf c-buffer-queue-cb 0
    BQitf XAAndroidBufferQueueItf-RegisterCallback() ?success
    infoitf c-stream-info-cb 0
    infoitf XAStreamInformationItf-RegisterStreamChangeCallback() ?success ;

: create-sf ( -- )
    media-sf  >o o IF  release     THEN o>
    media-sft >o o IF  st-release  THEN o>
    create-sft  media-sft new-Surface to media-sf ;

: create-media ( -- )
    new-MediaPlayer to mediaplayer0  create-sf ;


also jni also android

: create-player ( -- )

    env media-sf ANativeWindow_fromSurface loc_nd cell+ !
    mix loc_mix cell+ !
    engine ['] player >body
    data< 0 audio> video> 0 0 NB_MAXAL_INTERFACES iidArray req
    engine XAEngineITF-CreateMediaPlayer() ?success
    player realize ;

: destroy-player ( -- )
    player dup XAObjectItf-Destroy()  0 to player ;

previous previous

: init-mediaplayer ( -- )
    mediaplayer0 >o media-sf setSurface  mp-start o> ;

Variable playstate
: pplay? ( -- flag ) playitf playstate playitf XAPlayItf-GetPlayState() ?success
    playstate @ XA_PLAYSTATE_PLAYING = ;
: ppause ( -- )
    playitf XA_PLAYSTATE_PAUSED playitf XAPlayItf-SetPlayState() ?success ;
: pplay ( -- )
    playitf XA_PLAYSTATE_PLAYING playitf XAPlayItf-SetPlayState() ?success ;
: pvol ( n -- )
    volitf swap volitf XAVolumeItf-SetVolumeLevel() ?success ;

: setup-player ( -- )  player IF
	destroy-player
    ELSE
	create-stuff
    THEN
    create-media create-player
    get-interfaces set-callbacks
    init-mediaplayer  ;
: stop-player ( -- )  mediaplayer0 >o mp-pause o> ;

0 Value pvol#
: start-file ( -- )
    setup-player  true init-enqueue  ppause pvol# pvol ;

also opengl

0 Value oes-program

: omx-init ( -- ) create-oes-program to oes-program ;

also android

\ vertices


0.005e Fconstant m-lr
FVariable first-timestamp  0e first-timestamp f!
: get-deltat ( -- f )
    media-sft >o getTimestamp o> d>f 1e-9 f*
    first-timestamp f@ f- ;
: set-deltat ( -- f ) get-deltat mkv-time-off f@ f- first-timestamp f! ;

	cues>mts-run? 0= pplay? and  IF  ppause  THEN
    level# @ 0= UNTIL
    ppause screen-keep ;
: play-ts ( addr u -- ) ['] read-ts-file is read-ts
    open-mts start-file play-loop ;
: play-mkv ( addr u -- )
    ['] pull-queue is read-ts

    <event e$, ->open-mkv 0 elit, ->cues cue-task event>



    start-file play-loop stop-player ;
: replay% ( r -- )  >pos  true init-enqueue play-loop ;
: replay ( -- )
    cue-task IF
	<event 0 elit, ->cues cue-task event>
    ELSE
	0. ts-fd reposition-file throw
    THEN

\ --===< function pointers >===---
c-funptr XAObjectItf-Realize() {(*(XAObjectItf)ptr)->Realize} a n -- a
c-funptr XAObjectItf-Resume() {(*(XAObjectItf)ptr)->Resume} a n -- a
c-funptr XAObjectItf-GetState() {(*(XAObjectItf)ptr)->GetState} a a -- a
c-funptr XAObjectItf-GetInterface() {(*(XAObjectItf)ptr)->GetInterface} a a a -- a
c-funptr XAObjectItf-RegisterCallback() {(*(XAObjectItf)ptr)->RegisterCallback} a a a -- a
c-funptr XAObjectItf-AbortAsyncOperation() {(*(XAObjectItf)ptr)->AbortAsyncOperation} a -- void
c-funptr XAObjectItf-Destroy() {(*(XAObjectItf)ptr)->Destroy} a -- void
c-funptr XAObjectItf-SetPriority() {(*(XAObjectItf)ptr)->SetPriority} a n n -- a
c-funptr XAObjectItf-GetPriority() {(*(XAObjectItf)ptr)->GetPriority} a a a -- a
c-funptr XAObjectItf-SetLossOfControlInterfaces() {(*(XAObjectItf)ptr)->SetLossOfControlInterfaces} a n a n -- a
c-funptr XAConfigExtensionsItf-SetConfiguration() {(*(XAConfigExtensionsItf)ptr)->SetConfiguration} a a n a -- a
c-funptr XAConfigExtensionsItf-GetConfiguration() {(*(XAConfigExtensionsItf)ptr)->GetConfiguration} a a a a -- a
c-funptr XADynamicInterfaceManagementItf-AddInterface() {(*(XADynamicInterfaceManagementItf)ptr)->AddInterface} a a n -- a
c-funptr XADynamicInterfaceManagementItf-RemoveInterface() {(*(XADynamicInterfaceManagementItf)ptr)->RemoveInterface} a a -- a
c-funptr XADynamicInterfaceManagementItf-ResumeInterface() {(*(XADynamicInterfaceManagementItf)ptr)->ResumeInterface} a a n -- a
c-funptr XADynamicInterfaceManagementItf-RegisterCallback() {(*(XADynamicInterfaceManagementItf)ptr)->RegisterCallback} a a a -- a
c-funptr XAEngineItf-CreateCameraDevice() {(*(XAEngineItf)ptr)->CreateCameraDevice} a a n n a a -- a

jni-class: android/graphics/SurfaceTexture

jni-new: new-SurfaceTexture (I)V
jni-method: updateTexImage updateTexImage ()V
jni-method: getTimestamp getTimestamp ()J
jni-method: setDefaultBufferSize setDefaultBufferSize (II)V
jni-method: getTransformMatrix getTransformMatrix ([F)V
jni-method: st-release release ()V

jni-class: android/view/Surface

jni-new: new-Surface (Landroid/graphics/SurfaceTexture;)V
jni-method: release release ()V
jni-method: isValid isValid ()Z

jni-static: cp-get(id) get (II)Landroid/media/CamcorderProfile;

jni-class: android/hardware/Camera$Size

jni-field: height height I
jni-field: width width I

JValue media-sft

previous

: create-sft ( -- )
    media-tex current-tex new-SurfaceTexture to media-sft ;

\ OpenMAX AL example

require openmax.fs
require mkv-tools.fs
require jni-media.fs

also jni

JValue mediaplayer0
JValue media-sf

previous

also openmax

0 Value mp-object
0 Value engine
0 Value mix

    mp-object XA_IID_ENGINE ['] engine >body mp-object XAObjectItf-GetInterface()
    ?success ;

: create-mix ( -- )
    engine ['] mix >body  0 0 0 engine XAEngineItf-CreateOutputMix() ?success
    mix realize ;



: create-stuff ( -- )
    create-object create-engine create-mix ;

\ media player

0 Value player

    BQitf XA_ANDROIDBUFFERQUEUEEVENT_PROCESSED
    BQitf XAAndroidBufferQueueItf-SetCallbackEventsMask() ?success
    BQitf c-buffer-queue-cb 0
    BQitf XAAndroidBufferQueueItf-RegisterCallback() ?success
    infoitf c-stream-info-cb 0
    infoitf XAStreamInformationItf-RegisterStreamChangeCallback() ?success ;

: create-sf ( -- )
    media-sf  >o o IF  release     THEN o>
    media-sft >o o IF  st-release  THEN o>
    create-sft  media-sft new-Surface to media-sf ;

: create-media ( -- )
    new-MediaPlayer to mediaplayer0  create-sf ;


also jni also android

: create-player ( -- )

    env media-sf ANativeWindow_fromSurface loc_nd cell+ !
    mix loc_mix cell+ !
    engine ['] player >body
    data< 0 audio> video> 0 0 NB_MAXAL_INTERFACES iidArray req
    engine XAEngineITF-CreateMediaPlayer() ?success
    player realize ;

: destroy-player ( -- )
    player dup XAObjectItf-Destroy()  0 to player ;

previous previous

: init-mediaplayer ( -- )
    mediaplayer0 >o media-sf setSurface  mp-start o> ;

Variable playstate
: pplay? ( -- flag ) playitf playstate playitf XAPlayItf-GetPlayState() ?success
    playstate @ XA_PLAYSTATE_PLAYING = ;
: ppause ( -- )
    playitf XA_PLAYSTATE_PAUSED playitf XAPlayItf-SetPlayState() ?success ;
: pplay ( -- )
    playitf XA_PLAYSTATE_PLAYING playitf XAPlayItf-SetPlayState() ?success ;
: pvol ( n -- )
    volitf swap volitf XAVolumeItf-SetVolumeLevel() ?success ;

: setup-player ( -- )  player IF
	destroy-player
    ELSE
	create-stuff
    THEN
    create-media create-player
    get-interfaces set-callbacks
    init-mediaplayer  ;
: stop-player ( -- )  mediaplayer0 >o mp-pause o> ;

0 Value pvol#
: start-file ( -- )
    setup-player  true init-enqueue  ppause pvol# pvol ;

also opengl

0 Value oes-program

: omx-init ( -- ) create-oes-program to oes-program ;

also android

\ vertices


0.005e Fconstant m-lr
FVariable first-timestamp  0e first-timestamp f!
: get-deltat ( -- f )
    media-sft >o getTimestamp o> d>f 1e-9 f*
    first-timestamp f@ f- ;
: set-deltat ( -- f ) get-deltat mkv-time-off f@ f- first-timestamp f! ;

	cues>mts-run? 0= pplay? and  IF  ppause  THEN
    level# @ 0= UNTIL
    ppause screen-keep ;
: play-ts ( addr u -- ) ['] read-ts-file is read-ts
    open-mts start-file play-loop ;
: play-mkv ( addr u -- )
    ['] pull-queue is read-ts

    <event e$, ->open-mkv 0 elit, ->cues cue-task event>



    start-file play-loop stop-player ;
: replay% ( r -- )  >pos  true init-enqueue play-loop ;
: replay ( -- )
    cue-task IF
	<event 0 elit, ->cues cue-task event>
    ELSE
	0. ts-fd reposition-file throw
    THEN