dispose* ( disposable -- )
Factor handbook » The language » Deterministic resource disposal » Writing new destructors

Prev:	new-disposable ( class -- disposable )
Next:	disposables

Vocabulary
destructors

Inputs

disposable

a disposable object

Outputs
None

Generic word contract
Releases operating system resources associated with a disposable object. Disposable objects include streams, memory mapped files, and so on.

Notes
This word should not be called directly. It can be implemented on objects with a disposed slot to ensure that the object is only disposed once.

Definition

IN: destructors

GENERIC: dispose* ( disposable -- )

Methods

USING: accessors audio.engine audio.engine.private destructors
kernel sequences ;

M: audio-clip dispose*
    [ dup audio-engine>> clips>> remove! drop ]
    [ al-source>> flush-source ] bi ;


USING: accessors audio.engine destructors kernel openal ;

M: audio-engine dispose*
    dup stop-audio
    [ [ alcDestroyContext ] when* f ] change-al-context
    [ [ alcCloseDevice* ] when* f ] change-al-device drop ;


USING: accessors destructors io.sockets.secure.openssl openssl
openssl.libcrypto ;

M: bio dispose* handle>> BIO_free ssl-error ;


USING: accessors broadcast-server destructors kernel ;

M: broadcast-server dispose*
    [ receive-socket>> dispose ] [ broadcast-socket>> dispose ]
    bi ;


USING: accessors destructors io.buffers libc ;

M: buffer dispose* ptr>> free ; inline


USING: accessors destructors llvm.ffi llvm.wrappers ;

M: buffer dispose* value>> LLVMDisposeMemoryBuffer ;


USING: accessors destructors generic io.ports kernel ;

M: buffered-port dispose*
    [
        [ buffer>> &dispose drop ]
        [ M\ buffered-port dispose* (call-next-method) ] bi
    ] with-destructors ;


USING: accessors destructors llvm.ffi llvm.wrappers ;

M: builder dispose* value>> LLVMDisposeBuilder ;


USING: accessors destructors io.streams.c ;

M: c-stream dispose* handle>> fclose ;


USING: assocs cache destructors ;

M: cache-assoc dispose* clear-assoc ;


USING: checksums destructors kernel ;

M: checksum-state dispose* drop ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-buffer dispose* handle>> clReleaseMemObject cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-context dispose* handle>> clReleaseContext cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-event dispose* handle>> clReleaseEvent cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-kernel dispose* handle>> clReleaseKernel cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-program dispose* handle>> clReleaseProgram cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-queue dispose* handle>> clReleaseCommandQueue cl-success ;


USING: accessors destructors opencl opencl.ffi opencl.private ;

M: cl-sampler dispose* handle>> clReleaseSampler cl-success ;


USING: accessors curses curses.ffi curses.private destructors ;

M: curses-window dispose* ptr>> delwin curses-error ;


USING: accessors destructors furnace.db ;

M: db-persistence dispose* pool>> dispose ;


USING: accessors destructors llvm.ffi llvm.wrappers ;

M: engine dispose* value>> LLVMDisposeExecutionEngine ;


USING: accessors combinators core-foundation.fsevents
destructors ;

M: event-stream dispose*
    {
        [ info>> remove-event-source-callback ]
        [ handle>> disable-event-stream ]
        [ handle>> FSEventStreamInvalidate ]
        [ handle>> FSEventStreamRelease ]
    } cleave ;


USING: accessors checksums.openssl.private destructors ;

M: evp-md-context dispose* handle>> evp-md-ctx-free ;


USING: accessors destructors io.backend.unix.multiplexers.kqueue
unix ;

M: kqueue-mx dispose* fd>> close-file ;


USING: accessors core-foundation core-text destructors ;

M: line dispose* line>> CFRelease ;


USING: accessors destructors generic io.monitors.macosx kernel ;

M: macosx-monitor dispose*
    [ handle>> dispose ]
    [ M\ macosx-monitor dispose* (call-next-method) ] bi ;


USING: destructors io.mmap ;

M: mapped-file dispose* close-mapped-file ;


USING: accessors destructors llvm.ffi llvm.wrappers ;

M: module dispose* value>> LLVMDisposeModule ;


USING: accessors concurrency.mailboxes destructors io.monitors
io.monitors.private kernel ;

M: monitor dispose*
    [ monitor-disposed ] dip queue>> mailbox-put ;


USING: accessors checksums.multi destructors ;

M: multi-state dispose* states>> dispose-each ;


USING: accessors destructors opengl.textures.private sequences ;

M: multi-texture dispose* grid>> [ [ dispose ] each ] each ;


USING: accessors destructors odbc ;

M: odbc-dbc-destructor dispose* alien>> odbc-disconnect ;


USING: accessors destructors odbc ;

M: odbc-env-destructor dispose* alien>> odbc-free-env ;


USING: accessors destructors odbc ;

M: odbc-statement-destructor dispose*
    alien>> odbc-free-statement ;


USING: accessors assocs destructors io.sockets.secure.openssl
kernel libc openssl.libssl sequences ;

M: openssl-context dispose*
    [
        [ aliens>> [ &free drop ] each ]
        [ sessions>> values [ SSL_SESSION_free ] each ]
        [ handle>> SSL_CTX_free ] tri
    ] with-destructors ;


USING: accessors combinators destructors io.ports
io.ports.private kernel ;

M: output-port dispose*
    [
        {
            [ handle>> &dispose drop ]
            [ buffer>> &dispose drop ]
            [ port-flush ]
            [ handle>> shutdown ]
        } cleave
    ] with-destructors ;


USING: accessors destructors pcre2 pcre2.ffi ;

M: pcre2 dispose* handle>> pcre2_code_free ;


USING: accessors destructors kernel ui.pixel-formats ;

M: pixel-format dispose*
    [ (free-pixel-format) ] [ f >>handle drop ] bi ;


USING: accessors destructors io.pools ;

M: pool dispose* connections>> dispose-each ;


USING: accessors destructors io.ports ;

M: port dispose*
    [ handle>> &dispose shutdown ] with-destructors ;


USING: accessors checksums.process destructors kernel ;

M: process-state dispose* process>> [ dispose ] when* ;


USING: accessors destructors llvm.ffi llvm.wrappers ;

M: provider dispose* value>> LLVMDisposeModuleProvider ;


USING: accessors concurrency.messaging destructors generic
io.monitors.recursive kernel ;

M: recursive-monitor dispose*
    [ [ +stop+ ] dip thread>> send ]
    [ M\ recursive-monitor dispose* (call-next-method) ] bi ;


USING: accessors destructors kernel opengl opengl.textures
opengl.textures.private ;

M: single-texture dispose*
    [ texture>> [ delete-texture ] when* ]
    [ display-list>> [ delete-dlist ] when* ] bi ;


USING: accessors destructors io.sockets.secure.openssl kernel
openssl.libssl ;

M: ssl-handle dispose*
    [ [ file>> &dispose drop ] [ handle>> SSL_free ] bi ]
    with-destructors ;


USING: accessors alien.c-types alien.data audio.engine
destructors generic kernel openal ;

M: static-audio-clip dispose*
    [ M\ static-audio-clip dispose* (call-next-method) ]
    [ [ 1 ] dip al-buffer>> uint <ref> alDeleteBuffers ] bi ;


USING: accessors destructors io.backend.unix kernel ;

M: stdin dispose*
    [
        [ control>> &dispose drop ] [ size>> &dispose drop ]
        [ data>> &dispose drop ] tri
    ] with-destructors ;


USING: accessors audio.engine destructors generic kernel openal
sequences ;

M: streaming-audio-clip dispose*
    [ M\ streaming-audio-clip dispose* (call-next-method) ]
    [ generator>> dispose ]
    [ al-buffers>> [ length ] keep alDeleteBuffers ] tri ;


USING: accessors destructors kernel tokyo.abstractdb
tokyo.alien.tcadb ;

M: tokyo-abstractdb dispose* [ tcadbdel f ] change-handle drop ;


USING: accessors destructors kernel tokyo.alien.tcrdb
tokyo.remotedb ;

M: tokyo-remotedb dispose* [ tcrdbdel f ] change-handle drop ;


USING: accessors audio.vorbis combinators destructors kernel
libc ogg.vorbis ;

M: vorbis-stream dispose*
    {
        [ temp-state>> [ free ] when* ]
        [
            comment>>
            [ [ vorbis_comment_clear ] [ free ] bi ] when*
        ]
        [ block>> [ free ] when* ]
        [ dsp-state>> [ free ] when* ]
        [ info>> [ [ vorbis_info_clear ] [ free ] bi ] when* ]
        [ stream-state>> [ free ] when* ]
        [ page>> [ free ] when* ]
        [ sync-state>> [ free ] when* ]
        [ packet>> [ free ] when* ]
        [ stream>> [ dispose ] when* ]
    } cleave ;


USING: accessors destructors kernel zim ;

M: zim dispose* [ dispose f ] change-stream drop ;