Skip to content

Instantly share code, notes, and snippets.

@kilon
Created November 20, 2016 09:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kilon/ef8a99d94637eadfac339107e1ace233 to your computer and use it in GitHub Desktop.
Save kilon/ef8a99d94637eadfac339107e1ace233 to your computer and use it in GitHub Desktop.
test CPPBridge on macos
c := CPPBridge .
fdNumber := c openFile: '/Users/kilon/cpptest.bin'
flags: (c O_RDWR "| c O_CREAT | c O_TRUNC")
mode: (c FILEMODE).
"lseek := c lSeek_fd: fdNumber range:3999 value:0.
c write_fd:fdNumber value: '' size: 1."
mmapPointer := c mmap_adress: 0
fileSize:4000
flag1: (c PROT_READ | c PROT_WRITE )
flag2: (c MAP_SHARED)
fd: fdNumber
offset: 0 .
memset := c memset_startAddress: (mmapPointer )
value: 0
size: 3004.
mmapPointer getHandle floatAt:1 put: 1.3 .
mmapPointer getHandle floatAt:5 put: 200.3 .
1 to: 10 do: [:time| 1 to: 150 do:[ :each| mmapPointer getHandle floatAt:9 put: (each * 1.1 ). 0.01 asSeconds wait.]].
0.01 asSeconds
c munmap_data: mmapPointer filesize: 4000.
c closeFile: fd.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment