python中嵌入C語言腳本

-.z.python中嵌入C語言腳本借助Cinpy和C語言解釋器TinyCC，可以在python程序里面直接嵌入C語言片斷、不經(jīng)編譯直接使用C編寫的函數(shù)了。win2k平臺上，簡單的測試對比數(shù)據(jù)如下（遞歸方法計算第四十項兔子數(shù)列fib（40））語言實現(xiàn)時間（單位：秒）評python純pythonfib函數(shù)568.718天啊使用psyco加速的pythonfib函數(shù)17.922比較接近，還行使用swig直接轉換的C語言編寫的模塊13.453使用Cinpy嵌入fib函數(shù)11.532CVC6速度優(yōu)化編譯的可執(zhí)行文件5.562編譯的可執(zhí)行文件6.719解釋執(zhí)行6.813FreeBASICfbc0.16b編譯的可執(zhí)行文件（-arch486)8.022編譯的可執(zhí)行文件（-arch686)7.619forth4th3.5a24thc*fib.4th277這個表現(xiàn)太失望了4thcsvfib.4thfib.h*4thl*fib.h*1964thlgfib.h*fib.cmingw-O2fib.c-ofib.e*e110Gforth-fastfib.gfth14.719不錯，不過不是說和C的速度可以比嘛？怎么也就是優(yōu)化的python的速度啊注：其余源程序freebasicfunctionfib(*asinteger)asinteger if*<=1then return1 else returnfib(*-1)+fib(*-2) endifendfunctiondimstarttime,endtimeasdoubledimresasintegerstarttime=timerres=fib(40)endtime=timerprint"fib(40)=";resprint"timeelapsed:";(endtime-starttime);"s"4th:fib(*--y) dup2>if dup1-recurse swap2-recurse+ e*it then drop1;time41fib.crtimeswap-."timeelapsed".."s"crgforth-0.6.2:fib(*--y) dup2>if dup1-recurse swap2-recurse+ e*it then drop1;utime41fib.crutime2swapd-."timeelapsed"d.."us"cr如果在windows下使用mingw編譯當前的TinyCC，嵌入C腳本會報錯：tcc:file'/c/ProgramFiles/tcc/libtcc1.a'notfoundDougCurrie在tcc的列表里面提供了一個補丁：HereiswhatIdid(andreportedtothemailinglist)lastFebruary,sothepatchmaynotbeaccurateformorerecentversions,buttheissuesarethesame...Ihavebeenabletocreatealibtcc.dllforWin*PusingMinGW/MSYS;thechangesthatwerenecessarywereveryminor.PerhapsthisdescriptionwillhelpothersuselibtcconWindows.First,asmallbugtoreport:Intcc.cthefunctiontcc_basename()followstheline:*if!defined(LIBTCC)butthefunctiontcc_basename()isusedinpe_build_e*ports()intccpe.c--movingthe*iflinebelowthefunctiontcc_basename()eliminatesalinkerrorbuildinglibtcc.dllinPEtargetmode.Second,configuringandmakingtccwithMSYSplacesapathnameinconfig.hinMSYSformat.Fore*ample,Ipassedtheargument--prefi*=/c/Dev/tcctoconfigure;thispathwasgoodforbuildingtcc.e*eanddidn'tcontainanyspaces,unlikethedefaultpath.Thiscreatestheline*defineCONFIG_TCCDIR"/c/Dev/tcc"inconfig.h.Manuallychangingthislineto*defineCONFIG_TCCDIR"C:/Dev/tcc"enableslibtcc.dlltofindtheincludefilesandlibrariesoncethelibraryisbuilt.[Theapplicationtcc.e*eavoidsthisproblembysettingtcc_lib_pathfromtheapplication'sdirectoryatstartup.AsimilarsolutioncouldbeusedforthelibraryusingDllMain.]So,afterconfigure,fi*CONFIG_TCCDIRinconfig.handmake.Finally,thelibrarylibtcc.dllcanbebuiltwiththeMSYSmand:gcc-O2-shared-Wall-Wl,--e*port-all-symbols/-mpreferred-stack-boundary=2/-march=i386-falign-functions=0-fno-strict-aliasing/-DTCC_TARGET_PE-DLIBTCC-olibtcc.dlltcc.cBelowisadiffoftcc-0.9.23tcc.candthechangesforLIBTCCwithTCC_TARGET_PEandDLLlocationoflibraryfiles.Regards,e---../tcc-0.9.23-o/tcc.cFriJun1718:09:152005+++tcc.cTueFeb2817:03:442006-10157,8+10157,6flag_name,value);}-*if!defined(LIBTCC)-/*e*tractthebasenameofafile*/staticconstchar*tcc_basename(constchar*name){-10175,6+10173,35returnp;}+*ifdefined(LIBTCC)++*ifdefWIN32+int__stdcallDllMain(void*hinstDLL,unsignedlongfdwReason,void*lpvReserved)+{+if(fdwReason==1/*DLL_PROCESS_ATTACH*/)+{+/*onwin32,asimplementedinmain()+wesupposethelibandincludesareatthelocationofthislibrary+*/+staticcharpath[1024];+char*p,*d;++GetModuleFileNameA(hinstDLL,path,sizeofpath);+p=d=strlwr(path);+while(*d)+{+if(*d=='//')