Update of "jimff"

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

Overview

Artifact ID: a1c93cfe4585f92661f3fc15aa5cfc2bf9c700cd
Page Name:jimff
Date: 2018-11-24 12:44:05
Original User: grable
Parent: 961323ddc2b9cb5d6dca2f82eb3a430094e51c187d94b4b43bfb7359cba75545
Content

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 ff::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 ff::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=ff::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); }