namespace memconst

--****

-- === Microsoft Windows Memory Protection Constants === @[microsoftsmemoryprotectionconstants]

-- These constant names are taken right from Microsoft's Memory Protection constants.

--**

-- You may run the data in this page

public constant PAGE_EXECUTE = #10

--**

-- You may read or run the data

public constant PAGE_EXECUTE_READ = #20

--**

-- You may run, read or write in this page

public constant PAGE_EXECUTE_READWRITE = #40

--**

-- You may run or write in this page

public constant PAGE_EXECUTE_WRITECOPY = #80

--**

-- You may write to this page.

public constant PAGE_WRITECOPY = #08

--**

-- You may read or write in this page.

public constant PAGE_READWRITE = #04

--**

-- You may only read data in this page

public constant PAGE_READONLY = #02

--**

-- You have no access to this page

public constant PAGE_NOACCESS = #01

elsedef

constant

end ifdef

--****

-- === Standard Library Memory Protection Constants === @[stardardlibrarymemoryprotectionconstants]

--

--

-- Memory Protection Constants are the same constants names and meaning

-- across all platforms yet possibly of different numeric value.

-- They are only necessary for [[:allocate_protect]]

--

-- The constant names are created like this: You have four aspects of protection

-- READ, WRITE, EXECUTE and COPY.

-- You take the word PAGE and you concatonate an underscore and the aspect

-- in the order above. For example: PAGE_WRITE_EXECUTE

-- The sole exception to this nomenclature is when you will have no acesss to the page the

-- constant is called PAGE_NOACCESS.

--**

-- You have no access to this page

-- An alias to PAGE_NOACCESS

--**

-- You may read or run the data

-- An alias to PAGE_EXECUTE_READ

--**

-- You may read or write to this page

-- An alias to PAGE_READWRITE

--**

-- You may only read to this page

-- An alias to PAGE_READONLY

--**

-- You may run, read or write in this page

-- An alias to PAGE_EXECUTE_READWRITE

--**

-- You may run or write to this page. Data

-- will copied for use with other processes when

-- you first write to it.

--**

-- You may write to this page. Data

-- will copied for use with other processes when

-- you first write to it.

PAGE_EXECUTE,

PAGE_EXECUTE_READ,

PAGE_EXECUTE_READWRITE,

PAGE_EXECUTE_WRITECOPY,

PAGE_WRITECOPY,

PAGE_READWRITE,

PAGE_READONLY,

PAGE_NOACCESS

}

end type

-- does this protection allow for reading?

-- take advantage of the use of bit fields in UNIX for protections

elsedef

return find( protection, { PAGE_EXECUTE_READ, PAGE_EXECUTE_READWRITE,

PAGE_READWRITE, PAGE_READONLY } )

end ifdef

end function

-- does this protection allow for writing?

-- take advantage of the use of bit fields in UNIX for protections

elsedef

return find( protection, { PAGE_EXECUTE_READWRITE,

PAGE_EXECUTE_WRITECOPY,

PAGE_WRITECOPY,

PAGE_READWRITE})

end ifdef

end function

-- does this protection allow for executing?

-- take advantage of the use of bit fields in UNIX for protections

elsedef

return find(protection,{PAGE_EXECUTE,

PAGE_EXECUTE_READ,

PAGE_EXECUTE_READWRITE,

PAGE_EXECUTE_WRITECOPY})

end ifdef

end function

end type

-- Windows constants

export integer FREE_RID

export constant

export atom kernel_dll, memDLL_id,

VirtualAlloc_rid, VirtualLock_rid, VirtualUnlock_rid,

VirtualProtect_rid, GetLastError_rid, GetSystemInfo_rid