Allumage sur PocketPC

Bonjour,

Ma demande est périphérique à Tcl, mais pas trop éloignée quand même.

Pour une application eTcl sur PocketPC, j'ai besoin d'avoir le réseau et 
de dialoguer avec un périphérique Bluetooth. Aussi quelqu'un a-t-il sous 
la souris le code Critcl / Odyce pour allumer/éteindre le Wifi et le 
Bluetooth ?
C'est pas que je sache pas faire ou sois flemmard, mais bon, hein ... Ca
serait pas mal d'ailleurs de le mettre sur un Wiki 
(http://wfr.tcl.tk/1522 ou http://wiki.tcl.tk/20086)à la fois comme 
exemple et comme référence.

Par ailleurs je n'arrive pas à faire fonctionner le code suivant,
relativement élémentaire me semble-t-il :
==========================================
package require critcl
critcl::ccode {
#include <stdio.h>
#include <math.h>
/* Apparemment pas besoin de déclarer les fonctions !?*/
/*int CeSetThreadPriority(int,int);*/
/*int GetCurrentThread();*/
}
critcl::cproc tprio {int prio} int {
  int ret = 0;
/*CeSetThreadPriority(GetCurrentThread(),prio);*/
CeGetThreadPriority(GetCurrentThread());
return ret;
}

puts [tprio 251]
=========================================
-> Après essais GetCurrentThread() semble fonctionner mais un plantage
complet d'eTcl apparaît dès que l'on appelle CeSetThreadPriority ou
CeGetThreadPriority.
Donc j'ai besoin d'un peu d'aide pour les appels natifs depuis Tcl avec
Odyce.

Pascal