Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

jimff

A foreign function interface extension for jimtcl using the excellent ffcall library and the platform dynamic library loader.

  > lappend auto_path .
  > package require jimff
  > 
  > jimff ff
  > 
  > ff::info -help
    ff::load      ?-noerror? library... | -self
    ff::import    ?-function | -variable | -pointer? ?-self | library? {name ?alias?} typetag
    ff::callback  ?name? command typetag | -update name command
    ff::pointer   -alloc size | -realloc pointer newsize | -free pointer | -forget pointer | -take pointer ?size? | -size pointer ?newsize? | -null ?pointer? | -validate pointer
    ff::unwrap    ?-packed? pointer typetag ?varNames...?
    ff::wrap      ?-packed? pointer typetag values...
    ff::gets      pointer ?offset? ?varName?
    ff::read      pointer ?offset? length
    ff::write     pointer ?offset? string
    ff::copy      destination ?offset? source ?offset? length
    ff::info      -help | -libraries | -symbols ?library? | -functions ?library? | -variables ?library? | -callbacks ?-typetags | -commands?
    ff::free
  > 
  > set lib :load test_lib.dll
  > 
  > ff::import -function $lib {__malloc	malloc}	Pi
  > ff::import -function $lib {__strcpy	strcpy}	ppz	
  > ff::import -function $lib {__strcat	strcat}	ppz
  > ff::import -function $lib {__free	free}	vP
  > 
  > ff::import -function test_callback vzx
  > set test_1 :callback test_1 iizd  	;# note the use of 'd' here instead of float, because of promotion rules
  > 
  > set p malloc 64
  > strcpy $p "Hello"
  > strcat $p " World!"
  > puts p=:gets $p
  p=Hello World!
  > 
  > proc test_1 {i z f} {
  >    puts "\ti=$i"
  >    puts "\tz=\"$z\""
  >    puts "\tf=$f"
  >    expr $i + 1
  > }
  > test_callback "message" $test_1
  begin test_callback message
      i=1
      z="2"
      f=3.0
  result=2
  end

test_lib.c - test_lib.dll

  typedef intptr_t (*callback_fn)();
  __declspec(dllexport) void test_callback( const char* msg, callback_fn callback) {
    printf("begin test_callback %s\n", msg);
    printf( "result=%d\n", callback( 1, "2", 3.0));
    printf( "end\n");
  }
  __declspec(dllexport)  void* __malloc( size_t size) { return malloc(size); }
  __declspec(dllexport)  void __free( void* p) { free(p); }
  __declspec(dllexport) char* __strcpy( char* dst, const char* src) { return strcpy( dst, src); }
  __declspec(dllexport) char* __strcat( char* dst, const char* src) { return strcat( dst, src); }