' doc.bas
#include once "doc.bi"

sub Doc_Init( byref d as DocState )
    d.path = ""
    d.modified = 0
end sub

sub Doc_SetPath( byref d as DocState, byref p as string )
    d.path = p
end sub

sub Doc_SetModified( byref d as DocState, byval m as integer )
    d.modified = iif(m <> 0, 1, 0)
end sub