Mercurial > pub > dyncall > bindings

view R/rdyncall/demo/qsort.R @ 50:edf5c85de5ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
put pyi next to so for mypy to pick it up, directly
author Tassilo Philipp
date Sat, 14 Nov 2020 21:18:09 +0100
parents 0cfcc391201f
children
line wrap: on
line source

dynbind(c("msvcrt","c","c.so.6"), "qsort(piip)v;")
cb <- new.callback("pp)i",function(px,py){  
  x <- .unpack(px, 0, "d")
  y <- .unpack(py, 0, "d")
  if (x >  y) return(1) else if (x == y) return(0) else return(-1)
})
x <- rnorm(100)
qsort(x,length(x),8,cb)