1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030 |
- /*
- * tclDecls.h --
- *
- * Declarations of functions in the platform independent public Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
- #ifndef _TCLDECLS
- #define _TCLDECLS
- #undef TCL_STORAGE_CLASS
- #ifdef BUILD_tcl
- # define TCL_STORAGE_CLASS DLLEXPORT
- #else
- # ifdef USE_TCL_STUBS
- # define TCL_STORAGE_CLASS
- # else
- # define TCL_STORAGE_CLASS DLLIMPORT
- # endif
- #endif
- /*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tcl.decls script.
- */
- /* !BEGIN!: Do not edit below this line. */
- #ifdef __cplusplus
- extern "C" {
- #endif
- /*
- * Exported function declarations:
- */
- /* 0 */
- EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
- const char *name, const char *version,
- const void *clientData);
- /* 1 */
- EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
- const char *name, const char *version,
- int exact, void *clientDataPtr);
- /* 2 */
- EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
- /* 3 */
- EXTERN char * Tcl_Alloc(unsigned int size);
- /* 4 */
- EXTERN void Tcl_Free(char *ptr);
- /* 5 */
- EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
- /* 6 */
- EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
- int line);
- /* 7 */
- EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line);
- /* 8 */
- EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
- const char *file, int line);
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- /* 9 */
- EXTERN void Tcl_CreateFileHandler(int fd, int mask,
- Tcl_FileProc *proc, ClientData clientData);
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- /* 9 */
- EXTERN void Tcl_CreateFileHandler(int fd, int mask,
- Tcl_FileProc *proc, ClientData clientData);
- #endif /* MACOSX */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- /* 10 */
- EXTERN void Tcl_DeleteFileHandler(int fd);
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- /* 10 */
- EXTERN void Tcl_DeleteFileHandler(int fd);
- #endif /* MACOSX */
- /* 11 */
- EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
- /* 12 */
- EXTERN void Tcl_Sleep(int ms);
- /* 13 */
- EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
- /* 14 */
- EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
- Tcl_Obj *objPtr);
- /* 15 */
- EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
- /* 16 */
- EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
- int length);
- /* 17 */
- EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
- /* 18 */
- EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
- Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
- /* 19 */
- EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
- int line);
- /* 20 */
- EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
- int line);
- /* 21 */
- EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
- int line);
- /* 22 */
- EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file,
- int line);
- /* 23 */
- EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
- int length, const char *file, int line);
- /* 24 */
- EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
- const char *file, int line);
- /* 25 */
- EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
- const char *file, int line);
- /* 26 */
- EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file,
- int line);
- /* 27 */
- EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
- /* 28 */
- EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length,
- const char *file, int line);
- /* 29 */
- EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
- /* 30 */
- EXTERN void TclFreeObj(Tcl_Obj *objPtr);
- /* 31 */
- EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
- int *boolPtr);
- /* 32 */
- EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, int *boolPtr);
- /* 33 */
- EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
- int *lengthPtr);
- /* 34 */
- EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
- double *doublePtr);
- /* 35 */
- EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, double *doublePtr);
- /* 36 */
- EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr,
- CONST84 char *const *tablePtr,
- const char *msg, int flags, int *indexPtr);
- /* 37 */
- EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
- int *intPtr);
- /* 38 */
- EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, int *intPtr);
- /* 39 */
- EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, long *longPtr);
- /* 40 */
- EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
- /* 41 */
- EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
- /* 42 */
- EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
- /* 43 */
- EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
- Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
- /* 44 */
- EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
- Tcl_Obj *listPtr, Tcl_Obj *objPtr);
- /* 45 */
- EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
- Tcl_Obj *listPtr, int *objcPtr,
- Tcl_Obj ***objvPtr);
- /* 46 */
- EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
- Tcl_Obj *listPtr, int index,
- Tcl_Obj **objPtrPtr);
- /* 47 */
- EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
- Tcl_Obj *listPtr, int *lengthPtr);
- /* 48 */
- EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
- Tcl_Obj *listPtr, int first, int count,
- int objc, Tcl_Obj *const objv[]);
- /* 49 */
- EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue);
- /* 50 */
- EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
- int length);
- /* 51 */
- EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
- /* 52 */
- EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue);
- /* 53 */
- EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
- /* 54 */
- EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue);
- /* 55 */
- EXTERN Tcl_Obj * Tcl_NewObj(void);
- /* 56 */
- EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length);
- /* 57 */
- EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
- /* 58 */
- EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
- /* 59 */
- EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
- const unsigned char *bytes, int length);
- /* 60 */
- EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
- /* 61 */
- EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
- /* 62 */
- EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
- Tcl_Obj *const objv[]);
- /* 63 */
- EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
- /* 64 */
- EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
- /* 65 */
- EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
- int length);
- /* 66 */
- EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp,
- const char *message);
- /* 67 */
- EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp,
- const char *message, int length);
- /* 68 */
- EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
- /* 69 */
- EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
- const char *element);
- /* 70 */
- EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
- /* 71 */
- EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
- ClientData clientData);
- /* 72 */
- EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
- /* 73 */
- EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
- /* 74 */
- EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
- /* 75 */
- EXTERN int Tcl_AsyncReady(void);
- /* 76 */
- EXTERN void Tcl_BackgroundError(Tcl_Interp *interp);
- /* 77 */
- EXTERN char Tcl_Backslash(const char *src, int *readPtr);
- /* 78 */
- EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
- const char *optionName,
- const char *optionList);
- /* 79 */
- EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
- Tcl_InterpDeleteProc *proc,
- ClientData clientData);
- /* 80 */
- EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
- ClientData clientData);
- /* 81 */
- EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
- /* 82 */
- EXTERN int Tcl_CommandComplete(const char *cmd);
- /* 83 */
- EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv);
- /* 84 */
- EXTERN int Tcl_ConvertElement(const char *src, char *dst,
- int flags);
- /* 85 */
- EXTERN int Tcl_ConvertCountedElement(const char *src,
- int length, char *dst, int flags);
- /* 86 */
- EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
- const char *childCmd, Tcl_Interp *target,
- const char *targetCmd, int argc,
- CONST84 char *const *argv);
- /* 87 */
- EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
- const char *childCmd, Tcl_Interp *target,
- const char *targetCmd, int objc,
- Tcl_Obj *const objv[]);
- /* 88 */
- EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
- const char *chanName,
- ClientData instanceData, int mask);
- /* 89 */
- EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
- Tcl_ChannelProc *proc, ClientData clientData);
- /* 90 */
- EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
- Tcl_CloseProc *proc, ClientData clientData);
- /* 91 */
- EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
- const char *cmdName, Tcl_CmdProc *proc,
- ClientData clientData,
- Tcl_CmdDeleteProc *deleteProc);
- /* 92 */
- EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
- Tcl_EventCheckProc *checkProc,
- ClientData clientData);
- /* 93 */
- EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
- ClientData clientData);
- /* 94 */
- EXTERN Tcl_Interp * Tcl_CreateInterp(void);
- /* 95 */
- EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp,
- const char *name, int numArgs,
- Tcl_ValueType *argTypes, Tcl_MathProc *proc,
- ClientData clientData);
- /* 96 */
- EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
- const char *cmdName, Tcl_ObjCmdProc *proc,
- ClientData clientData,
- Tcl_CmdDeleteProc *deleteProc);
- /* 97 */
- EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name,
- int isSafe);
- /* 98 */
- EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
- Tcl_TimerProc *proc, ClientData clientData);
- /* 99 */
- EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
- Tcl_CmdTraceProc *proc,
- ClientData clientData);
- /* 100 */
- EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
- const char *name);
- /* 101 */
- EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
- Tcl_ChannelProc *proc, ClientData clientData);
- /* 102 */
- EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
- Tcl_CloseProc *proc, ClientData clientData);
- /* 103 */
- EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
- const char *cmdName);
- /* 104 */
- EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
- Tcl_Command command);
- /* 105 */
- EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
- ClientData clientData);
- /* 106 */
- EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
- Tcl_EventCheckProc *checkProc,
- ClientData clientData);
- /* 107 */
- EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
- ClientData clientData);
- /* 108 */
- EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
- /* 109 */
- EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
- /* 110 */
- EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
- /* 111 */
- EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
- /* 112 */
- EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
- /* 113 */
- EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
- /* 114 */
- EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
- Tcl_InterpDeleteProc *proc,
- ClientData clientData);
- /* 115 */
- EXTERN int Tcl_DoOneEvent(int flags);
- /* 116 */
- EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc,
- ClientData clientData);
- /* 117 */
- EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
- const char *bytes, int length);
- /* 118 */
- EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
- const char *element);
- /* 119 */
- EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
- /* 120 */
- EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
- /* 121 */
- EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
- Tcl_DString *dsPtr);
- /* 122 */
- EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
- /* 123 */
- EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
- Tcl_DString *dsPtr);
- /* 124 */
- EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
- /* 125 */
- EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
- /* 126 */
- EXTERN int Tcl_Eof(Tcl_Channel chan);
- /* 127 */
- EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
- /* 128 */
- EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
- /* 129 */
- EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script);
- /* 130 */
- EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
- const char *fileName);
- /* 131 */
- EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
- /* 132 */
- EXTERN void Tcl_EventuallyFree(ClientData clientData,
- Tcl_FreeProc *freeProc);
- /* 133 */
- EXTERN TCL_NORETURN void Tcl_Exit(int status);
- /* 134 */
- EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
- const char *hiddenCmdToken,
- const char *cmdName);
- /* 135 */
- EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
- int *ptr);
- /* 136 */
- EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, int *ptr);
- /* 137 */
- EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
- double *ptr);
- /* 138 */
- EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, double *ptr);
- /* 139 */
- EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
- long *ptr);
- /* 140 */
- EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- long *ptr);
- /* 141 */
- EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- Tcl_Obj **resultPtrPtr);
- /* 142 */
- EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
- /* 143 */
- EXTERN void Tcl_Finalize(void);
- /* 144 */
- EXTERN void Tcl_FindExecutable(const char *argv0);
- /* 145 */
- EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
- Tcl_HashSearch *searchPtr);
- /* 146 */
- EXTERN int Tcl_Flush(Tcl_Channel chan);
- /* 147 */
- EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
- /* 148 */
- EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
- const char *childCmd,
- Tcl_Interp **targetInterpPtr,
- CONST84 char **targetCmdPtr, int *argcPtr,
- CONST84 char ***argvPtr);
- /* 149 */
- EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
- const char *childCmd,
- Tcl_Interp **targetInterpPtr,
- CONST84 char **targetCmdPtr, int *objcPtr,
- Tcl_Obj ***objv);
- /* 150 */
- EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp,
- const char *name,
- Tcl_InterpDeleteProc **procPtr);
- /* 151 */
- EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
- const char *chanName, int *modePtr);
- /* 152 */
- EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan);
- /* 153 */
- EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
- ClientData *handlePtr);
- /* 154 */
- EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan);
- /* 155 */
- EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
- /* 156 */
- EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
- /* 157 */
- EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
- Tcl_Channel chan, const char *optionName,
- Tcl_DString *dsPtr);
- /* 158 */
- EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
- /* 159 */
- EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
- const char *cmdName, Tcl_CmdInfo *infoPtr);
- /* 160 */
- EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
- Tcl_Command command);
- /* 161 */
- EXTERN int Tcl_GetErrno(void);
- /* 162 */
- EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
- /* 163 */
- EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
- Tcl_Interp *childInterp);
- /* 164 */
- EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
- /* 165 */
- EXTERN const char * Tcl_GetNameOfExecutable(void);
- /* 166 */
- EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- /* 167 */
- EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
- const char *chanID, int forWriting,
- int checkUsage, ClientData *filePtr);
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- /* 167 */
- EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
- const char *chanID, int forWriting,
- int checkUsage, ClientData *filePtr);
- #endif /* MACOSX */
- /* 168 */
- EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
- /* 169 */
- EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
- /* 170 */
- EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
- /* 171 */
- EXTERN int Tcl_GetServiceMode(void);
- /* 172 */
- EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name);
- /* 173 */
- EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
- /* 174 */
- EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
- /* 175 */
- EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
- const char *varName, int flags);
- /* 176 */
- EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
- const char *part1, const char *part2,
- int flags);
- /* 177 */
- EXTERN int Tcl_GlobalEval(Tcl_Interp *interp,
- const char *command);
- /* 178 */
- EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr);
- /* 179 */
- EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
- const char *cmdName,
- const char *hiddenCmdToken);
- /* 180 */
- EXTERN int Tcl_Init(Tcl_Interp *interp);
- /* 181 */
- EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
- int keyType);
- /* 182 */
- EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
- /* 183 */
- EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
- /* 184 */
- EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
- /* 185 */
- EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
- /* 186 */
- EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv,
- Tcl_DString *resultPtr);
- /* 187 */
- EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
- char *addr, int type);
- /* Slot 188 is reserved */
- /* 189 */
- EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode);
- /* 190 */
- EXTERN int Tcl_MakeSafe(Tcl_Interp *interp);
- /* 191 */
- EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket);
- /* 192 */
- EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv);
- /* 193 */
- EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
- /* 194 */
- EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
- /* 195 */
- EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
- Tcl_Obj *part2Ptr, int flags);
- /* 196 */
- EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
- Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
- int flags);
- /* 197 */
- EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
- CONST84 char **argv, int flags);
- /* 198 */
- EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
- const char *fileName, const char *modeString,
- int permissions);
- /* 199 */
- EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
- const char *address, const char *myaddr,
- int myport, int async);
- /* 200 */
- EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
- const char *host,
- Tcl_TcpAcceptProc *acceptProc,
- ClientData callbackData);
- /* 201 */
- EXTERN void Tcl_Preserve(ClientData data);
- /* 202 */
- EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
- char *dst);
- /* 203 */
- EXTERN int Tcl_PutEnv(const char *assignment);
- /* 204 */
- EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
- /* 205 */
- EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr,
- Tcl_QueuePosition position);
- /* 206 */
- EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
- /* 207 */
- EXTERN void Tcl_ReapDetachedProcs(void);
- /* 208 */
- EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
- const char *cmd, int flags);
- /* 209 */
- EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
- Tcl_Obj *cmdPtr, int flags);
- /* 210 */
- EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 211 */
- EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
- /* 212 */
- EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
- const char *pattern);
- /* 213 */
- EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
- const char *text, const char *start);
- /* 214 */
- EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
- const char *pattern);
- /* 215 */
- EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
- CONST84 char **startPtr,
- CONST84 char **endPtr);
- /* 216 */
- EXTERN void Tcl_Release(ClientData clientData);
- /* 217 */
- EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
- /* 218 */
- EXTERN int Tcl_ScanElement(const char *src, int *flagPtr);
- /* 219 */
- EXTERN int Tcl_ScanCountedElement(const char *src, int length,
- int *flagPtr);
- /* 220 */
- EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
- /* 221 */
- EXTERN int Tcl_ServiceAll(void);
- /* 222 */
- EXTERN int Tcl_ServiceEvent(int flags);
- /* 223 */
- EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
- const char *name, Tcl_InterpDeleteProc *proc,
- ClientData clientData);
- /* 224 */
- EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
- /* 225 */
- EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
- Tcl_Channel chan, const char *optionName,
- const char *newValue);
- /* 226 */
- EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
- const char *cmdName,
- const Tcl_CmdInfo *infoPtr);
- /* 227 */
- EXTERN void Tcl_SetErrno(int err);
- /* 228 */
- EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
- /* 229 */
- EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
- /* 230 */
- EXTERN void Tcl_SetPanicProc(
- TCL_NORETURN1 Tcl_PanicProc *panicProc);
- /* 231 */
- EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
- /* 232 */
- EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result,
- Tcl_FreeProc *freeProc);
- /* 233 */
- EXTERN int Tcl_SetServiceMode(int mode);
- /* 234 */
- EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
- Tcl_Obj *errorObjPtr);
- /* 235 */
- EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
- Tcl_Obj *resultObjPtr);
- /* 236 */
- EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
- /* 237 */
- EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
- const char *varName, const char *newValue,
- int flags);
- /* 238 */
- EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
- const char *part1, const char *part2,
- const char *newValue, int flags);
- /* 239 */
- EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
- /* 240 */
- EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
- /* 241 */
- EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
- /* 242 */
- EXTERN int Tcl_SplitList(Tcl_Interp *interp,
- const char *listStr, int *argcPtr,
- CONST84 char ***argvPtr);
- /* 243 */
- EXTERN void Tcl_SplitPath(const char *path, int *argcPtr,
- CONST84 char ***argvPtr);
- /* 244 */
- EXTERN void Tcl_StaticPackage(Tcl_Interp *interp,
- const char *prefix,
- Tcl_PackageInitProc *initProc,
- Tcl_PackageInitProc *safeInitProc);
- /* 245 */
- EXTERN int Tcl_StringMatch(const char *str, const char *pattern);
- /* 246 */
- EXTERN int Tcl_TellOld(Tcl_Channel chan);
- /* 247 */
- EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
- int flags, Tcl_VarTraceProc *proc,
- ClientData clientData);
- /* 248 */
- EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
- const char *part2, int flags,
- Tcl_VarTraceProc *proc,
- ClientData clientData);
- /* 249 */
- EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
- const char *name, Tcl_DString *bufferPtr);
- /* 250 */
- EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str,
- int len, int atHead);
- /* 251 */
- EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
- const char *varName);
- /* 252 */
- EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 253 */
- EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
- int flags);
- /* 254 */
- EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
- const char *part2, int flags);
- /* 255 */
- EXTERN void Tcl_UntraceVar(Tcl_Interp *interp,
- const char *varName, int flags,
- Tcl_VarTraceProc *proc,
- ClientData clientData);
- /* 256 */
- EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
- const char *part1, const char *part2,
- int flags, Tcl_VarTraceProc *proc,
- ClientData clientData);
- /* 257 */
- EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
- const char *varName);
- /* 258 */
- EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
- const char *varName, const char *localName,
- int flags);
- /* 259 */
- EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
- const char *part1, const char *part2,
- const char *localName, int flags);
- /* 260 */
- EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
- /* 261 */
- EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp,
- const char *varName, int flags,
- Tcl_VarTraceProc *procPtr,
- ClientData prevClientData);
- /* 262 */
- EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp,
- const char *part1, const char *part2,
- int flags, Tcl_VarTraceProc *procPtr,
- ClientData prevClientData);
- /* 263 */
- EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen);
- /* 264 */
- EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[], const char *message);
- /* 265 */
- EXTERN int Tcl_DumpActiveMemory(const char *fileName);
- /* 266 */
- EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
- /* 267 */
- EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp,
- va_list argList);
- /* 268 */
- EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
- va_list argList);
- /* 269 */
- EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
- /* 270 */
- EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
- const char *start, CONST84 char **termPtr);
- /* 271 */
- EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
- const char *name, const char *version,
- int exact);
- /* 272 */
- EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
- const char *name, const char *version,
- int exact, void *clientDataPtr);
- /* 273 */
- EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
- const char *version);
- /* 274 */
- EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
- const char *name, const char *version,
- int exact);
- /* 275 */
- EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp,
- va_list argList);
- /* 276 */
- EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
- /* 277 */
- EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
- /* 278 */
- EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList);
- /* 279 */
- EXTERN void Tcl_GetVersion(int *major, int *minor,
- int *patchLevel, int *type);
- /* 280 */
- EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
- /* 281 */
- EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
- const Tcl_ChannelType *typePtr,
- ClientData instanceData, int mask,
- Tcl_Channel prevChan);
- /* 282 */
- EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
- Tcl_Channel chan);
- /* 283 */
- EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
- /* 284 */
- EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
- /* Slot 285 is reserved */
- /* 286 */
- EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
- Tcl_Obj *appendObjPtr);
- /* 287 */
- EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
- /* 288 */
- EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
- ClientData clientData);
- /* 289 */
- EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
- ClientData clientData);
- /* 290 */
- EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr);
- /* 291 */
- EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
- int numBytes, int flags);
- /* 292 */
- EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[], int flags);
- /* 293 */
- EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
- int flags);
- /* 294 */
- EXTERN void Tcl_ExitThread(int status);
- /* 295 */
- EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
- Tcl_Encoding encoding, const char *src,
- int srcLen, int flags,
- Tcl_EncodingState *statePtr, char *dst,
- int dstLen, int *srcReadPtr,
- int *dstWrotePtr, int *dstCharsPtr);
- /* 296 */
- EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
- const char *src, int srcLen,
- Tcl_DString *dsPtr);
- /* 297 */
- EXTERN void Tcl_FinalizeThread(void);
- /* 298 */
- EXTERN void Tcl_FinalizeNotifier(ClientData clientData);
- /* 299 */
- EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
- /* 300 */
- EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
- /* 301 */
- EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
- /* 302 */
- EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
- /* 303 */
- EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
- /* 304 */
- EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
- Tcl_Obj *objPtr, const void *tablePtr,
- int offset, const char *msg, int flags,
- int *indexPtr);
- /* 305 */
- EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
- int size);
- /* 306 */
- EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
- const char *part2, int flags);
- /* 307 */
- EXTERN ClientData Tcl_InitNotifier(void);
- /* 308 */
- EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
- /* 309 */
- EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
- /* 310 */
- EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
- /* 311 */
- EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
- Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
- /* 312 */
- EXTERN int Tcl_NumUtfChars(const char *src, int length);
- /* 313 */
- EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
- int charsToRead, int appendFlag);
- /* 314 */
- EXTERN void Tcl_RestoreResult(Tcl_Interp *interp,
- Tcl_SavedResult *statePtr);
- /* 315 */
- EXTERN void Tcl_SaveResult(Tcl_Interp *interp,
- Tcl_SavedResult *statePtr);
- /* 316 */
- EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
- const char *name);
- /* 317 */
- EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
- const char *part2, Tcl_Obj *newValuePtr,
- int flags);
- /* 318 */
- EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
- /* 319 */
- EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
- Tcl_Event *evPtr, Tcl_QueuePosition position);
- /* 320 */
- EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index);
- /* 321 */
- EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch);
- /* 322 */
- EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch);
- /* 323 */
- EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch);
- /* 324 */
- EXTERN int Tcl_UniCharToUtf(int ch, char *buf);
- /* 325 */
- EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
- /* 326 */
- EXTERN int Tcl_UtfCharComplete(const char *src, int length);
- /* 327 */
- EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr,
- char *dst);
- /* 328 */
- EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
- /* 329 */
- EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
- /* 330 */
- EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
- /* 331 */
- EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
- /* 332 */
- EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
- Tcl_Encoding encoding, const char *src,
- int srcLen, int flags,
- Tcl_EncodingState *statePtr, char *dst,
- int dstLen, int *srcReadPtr,
- int *dstWrotePtr, int *dstCharsPtr);
- /* 333 */
- EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
- const char *src, int srcLen,
- Tcl_DString *dsPtr);
- /* 334 */
- EXTERN int Tcl_UtfToLower(char *src);
- /* 335 */
- EXTERN int Tcl_UtfToTitle(char *src);
- /* 336 */
- EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
- /* 337 */
- EXTERN int Tcl_UtfToUpper(char *src);
- /* 338 */
- EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src,
- int srcLen);
- /* 339 */
- EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
- /* 340 */
- EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
- /* 341 */
- EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
- /* 342 */
- EXTERN void Tcl_SetDefaultEncodingDir(const char *path);
- /* 343 */
- EXTERN void Tcl_AlertNotifier(ClientData clientData);
- /* 344 */
- EXTERN void Tcl_ServiceModeHook(int mode);
- /* 345 */
- EXTERN int Tcl_UniCharIsAlnum(int ch);
- /* 346 */
- EXTERN int Tcl_UniCharIsAlpha(int ch);
- /* 347 */
- EXTERN int Tcl_UniCharIsDigit(int ch);
- /* 348 */
- EXTERN int Tcl_UniCharIsLower(int ch);
- /* 349 */
- EXTERN int Tcl_UniCharIsSpace(int ch);
- /* 350 */
- EXTERN int Tcl_UniCharIsUpper(int ch);
- /* 351 */
- EXTERN int Tcl_UniCharIsWordChar(int ch);
- /* 352 */
- EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr);
- /* 353 */
- EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
- const Tcl_UniChar *uct,
- unsigned long numChars);
- /* 354 */
- EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
- int uniLength, Tcl_DString *dsPtr);
- /* 355 */
- EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length,
- Tcl_DString *dsPtr);
- /* 356 */
- EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
- Tcl_Obj *patObj, int flags);
- /* 357 */
- EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp,
- Tcl_Token *tokenPtr, int count);
- /* 358 */
- EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
- /* 359 */
- EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
- const char *script, const char *command,
- int length);
- /* 360 */
- EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
- const char *start, int numBytes,
- Tcl_Parse *parsePtr, int append,
- CONST84 char **termPtr);
- /* 361 */
- EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
- const char *start, int numBytes, int nested,
- Tcl_Parse *parsePtr);
- /* 362 */
- EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
- int numBytes, Tcl_Parse *parsePtr);
- /* 363 */
- EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
- const char *start, int numBytes,
- Tcl_Parse *parsePtr, int append,
- CONST84 char **termPtr);
- /* 364 */
- EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
- const char *start, int numBytes,
- Tcl_Parse *parsePtr, int append);
- /* 365 */
- EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
- /* 366 */
- EXTERN int Tcl_Chdir(const char *dirName);
- /* 367 */
- EXTERN int Tcl_Access(const char *path, int mode);
- /* 368 */
- EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
- /* 369 */
- EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2,
- unsigned long n);
- /* 370 */
- EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
- unsigned long n);
- /* 371 */
- EXTERN int Tcl_StringCaseMatch(const char *str,
- const char *pattern, int nocase);
- /* 372 */
- EXTERN int Tcl_UniCharIsControl(int ch);
- /* 373 */
- EXTERN int Tcl_UniCharIsGraph(int ch);
- /* 374 */
- EXTERN int Tcl_UniCharIsPrint(int ch);
- /* 375 */
- EXTERN int Tcl_UniCharIsPunct(int ch);
- /* 376 */
- EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
- Tcl_RegExp regexp, Tcl_Obj *textObj,
- int offset, int nmatches, int flags);
- /* 377 */
- EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
- Tcl_RegExpInfo *infoPtr);
- /* 378 */
- EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
- int numChars);
- /* 379 */
- EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
- const Tcl_UniChar *unicode, int numChars);
- /* 380 */
- EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr);
- /* 381 */
- EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
- /* 382 */
- EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr);
- /* 383 */
- EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
- /* 384 */
- EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
- const Tcl_UniChar *unicode, int length);
- /* 385 */
- EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
- Tcl_Obj *textObj, Tcl_Obj *patternObj);
- /* 386 */
- EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
- /* 387 */
- EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
- /* 388 */
- EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
- /* 389 */
- EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
- const char *pattern);
- /* 390 */
- EXTERN int Tcl_ProcObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
- /* 391 */
- EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
- /* 392 */
- EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
- /* 393 */
- EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
- Tcl_ThreadCreateProc *proc,
- ClientData clientData, int stackSize,
- int flags);
- /* 394 */
- EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst,
- int bytesToRead);
- /* 395 */
- EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src,
- int srcLen);
- /* 396 */
- EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
- /* 397 */
- EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
- /* 398 */
- EXTERN CONST84_RETURN char * Tcl_ChannelName(
- const Tcl_ChannelType *chanTypePtr);
- /* 399 */
- EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
- const Tcl_ChannelType *chanTypePtr);
- /* 400 */
- EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 401 */
- EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 402 */
- EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
- const Tcl_ChannelType *chanTypePtr);
- /* 403 */
- EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 404 */
- EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 405 */
- EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 406 */
- EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 407 */
- EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 408 */
- EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 409 */
- EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 410 */
- EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 411 */
- EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 412 */
- EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
- /* 413 */
- EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
- /* 414 */
- EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
- Tcl_Channel channel);
- /* 415 */
- EXTERN void Tcl_CutChannel(Tcl_Channel channel);
- /* 416 */
- EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
- /* 417 */
- EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
- /* 418 */
- EXTERN int Tcl_IsChannelExisting(const char *channelName);
- /* 419 */
- EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
- const Tcl_UniChar *uct,
- unsigned long numChars);
- /* 420 */
- EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
- const Tcl_UniChar *uniPattern, int nocase);
- /* 421 */
- EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
- const void *key);
- /* 422 */
- EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
- const void *key, int *newPtr);
- /* 423 */
- EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
- int keyType, const Tcl_HashKeyType *typePtr);
- /* 424 */
- EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
- /* 425 */
- EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp,
- const char *varName, int flags,
- Tcl_CommandTraceProc *procPtr,
- ClientData prevClientData);
- /* 426 */
- EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
- const char *varName, int flags,
- Tcl_CommandTraceProc *proc,
- ClientData clientData);
- /* 427 */
- EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
- const char *varName, int flags,
- Tcl_CommandTraceProc *proc,
- ClientData clientData);
- /* 428 */
- EXTERN char * Tcl_AttemptAlloc(unsigned int size);
- /* 429 */
- EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size,
- const char *file, int line);
- /* 430 */
- EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size);
- /* 431 */
- EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
- const char *file, int line);
- /* 432 */
- EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length);
- /* 433 */
- EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
- /* 434 */
- EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
- int *lengthPtr);
- /* 435 */
- EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp,
- const char *name, int *numArgsPtr,
- Tcl_ValueType **argTypesPtr,
- Tcl_MathProc **procPtr,
- ClientData *clientDataPtr);
- /* 436 */
- EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp,
- const char *pattern);
- /* 437 */
- EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- int flags);
- /* 438 */
- EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
- Tcl_Channel channel);
- /* 439 */
- EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
- /* 440 */
- EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
- Tcl_Obj *destPathPtr);
- /* 441 */
- EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
- Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
- /* 442 */
- EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
- /* 443 */
- EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
- /* 444 */
- EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
- const char *sym1, const char *sym2,
- Tcl_PackageInitProc **proc1Ptr,
- Tcl_PackageInitProc **proc2Ptr,
- Tcl_LoadHandle *handlePtr,
- Tcl_FSUnloadFileProc **unloadProcPtr);
- /* 445 */
- EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
- Tcl_Obj *result, Tcl_Obj *pathPtr,
- const char *pattern, Tcl_GlobTypeData *types);
- /* 446 */
- EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
- int linkAction);
- /* 447 */
- EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
- int recursive, Tcl_Obj **errorPtr);
- /* 448 */
- EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
- Tcl_Obj *destPathPtr);
- /* 449 */
- EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
- /* 450 */
- EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
- /* 451 */
- EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
- Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
- /* 452 */
- EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
- Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
- /* 453 */
- EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
- Tcl_Obj **objPtrRef);
- /* 454 */
- EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
- /* 455 */
- EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
- /* 456 */
- EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
- Tcl_Obj *pathPtr, const char *modeString,
- int permissions);
- /* 457 */
- EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
- /* 458 */
- EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
- /* 459 */
- EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
- Tcl_Obj *pathPtr);
- /* 460 */
- EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
- /* 461 */
- EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
- /* 462 */
- EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
- Tcl_Obj *secondPtr);
- /* 463 */
- EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
- Tcl_Obj *pathPtr);
- /* 464 */
- EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
- Tcl_Obj *const objv[]);
- /* 465 */
- EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
- const Tcl_Filesystem *fsPtr);
- /* 466 */
- EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
- Tcl_Obj *pathPtr);
- /* 467 */
- EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
- /* 468 */
- EXTERN Tcl_Obj * Tcl_FSNewNativePath(
- const Tcl_Filesystem *fromFilesystem,
- ClientData clientData);
- /* 469 */
- EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
- /* 470 */
- EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
- /* 471 */
- EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
- /* 472 */
- EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
- /* 473 */
- EXTERN int Tcl_FSRegister(ClientData clientData,
- const Tcl_Filesystem *fsPtr);
- /* 474 */
- EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
- /* 475 */
- EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr);
- /* 476 */
- EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
- Tcl_Obj *pathPtr);
- /* 477 */
- EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
- /* 478 */
- EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
- /* 479 */
- EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
- /* 480 */
- EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
- /* 481 */
- EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
- Tcl_Token *tokenPtr, int count);
- /* 482 */
- EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
- /* 483 */
- EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
- int flags, Tcl_CmdObjTraceProc *objProc,
- ClientData clientData,
- Tcl_CmdObjTraceDeleteProc *delProc);
- /* 484 */
- EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
- Tcl_CmdInfo *infoPtr);
- /* 485 */
- EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
- const Tcl_CmdInfo *infoPtr);
- /* 486 */
- EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
- const char *file, int line);
- /* 487 */
- EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
- /* 488 */
- EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
- /* 489 */
- EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
- Tcl_WideInt wideValue);
- /* 490 */
- EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
- /* 491 */
- EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
- int mode);
- /* 492 */
- EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
- /* 493 */
- EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 494 */
- EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
- /* 495 */
- EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
- /* 496 */
- EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
- Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
- /* 497 */
- EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
- int *sizePtr);
- /* 498 */
- EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
- Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
- Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
- int *donePtr);
- /* 499 */
- EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
- Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
- int *donePtr);
- /* 500 */
- EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
- /* 501 */
- EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
- Tcl_Obj *dictPtr, int keyc,
- Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
- /* 502 */
- EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
- Tcl_Obj *dictPtr, int keyc,
- Tcl_Obj *const *keyv);
- /* 503 */
- EXTERN Tcl_Obj * Tcl_NewDictObj(void);
- /* 504 */
- EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
- /* 505 */
- EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
- const char *pkgName,
- const Tcl_Config *configuration,
- const char *valEncoding);
- /* 506 */
- EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
- const char *name, ClientData clientData,
- Tcl_NamespaceDeleteProc *deleteProc);
- /* 507 */
- EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
- /* 508 */
- EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
- Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
- /* 509 */
- EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
- const char *pattern, int resetListFirst);
- /* 510 */
- EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
- const char *pattern, int allowOverwrite);
- /* 511 */
- EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
- Tcl_Namespace *nsPtr, const char *pattern);
- /* 512 */
- EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
- /* 513 */
- EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
- /* 514 */
- EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
- const char *name,
- Tcl_Namespace *contextNsPtr, int flags);
- /* 515 */
- EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
- Tcl_Namespace *contextNsPtr, int flags);
- /* 516 */
- EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr);
- /* 517 */
- EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
- Tcl_Command command, Tcl_Obj *objPtr);
- /* 518 */
- EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
- Tcl_Obj *fileName, const char *encodingName);
- /* 519 */
- EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc);
- /* 520 */
- EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
- Tcl_LimitHandlerProc *handlerProc,
- ClientData clientData,
- Tcl_LimitHandlerDeleteProc *deleteProc);
- /* 521 */
- EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
- Tcl_LimitHandlerProc *handlerProc,
- ClientData clientData);
- /* 522 */
- EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
- /* 523 */
- EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
- /* 524 */
- EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
- /* 525 */
- EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
- int commandLimit);
- /* 526 */
- EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
- Tcl_Time *timeLimitPtr);
- /* 527 */
- EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
- int granularity);
- /* 528 */
- EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
- /* 529 */
- EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
- /* 530 */
- EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
- /* 531 */
- EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
- /* 532 */
- EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp);
- /* 533 */
- EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
- Tcl_Time *timeLimitPtr);
- /* 534 */
- EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
- /* 535 */
- EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
- /* 536 */
- EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
- Tcl_InterpState state);
- /* 537 */
- EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
- /* 538 */
- EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
- Tcl_Obj *options);
- /* 539 */
- EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
- /* 540 */
- EXTERN int Tcl_IsEnsemble(Tcl_Command token);
- /* 541 */
- EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
- const char *name,
- Tcl_Namespace *namespacePtr, int flags);
- /* 542 */
- EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
- Tcl_Obj *cmdNameObj, int flags);
- /* 543 */
- EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj *subcmdList);
- /* 544 */
- EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj *mapDict);
- /* 545 */
- EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj *unknownList);
- /* 546 */
- EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
- Tcl_Command token, int flags);
- /* 547 */
- EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj **subcmdListPtr);
- /* 548 */
- EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj **mapDictPtr);
- /* 549 */
- EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj **unknownListPtr);
- /* 550 */
- EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
- Tcl_Command token, int *flagsPtr);
- /* 551 */
- EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
- Tcl_Command token,
- Tcl_Namespace **namespacePtrPtr);
- /* 552 */
- EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
- Tcl_ScaleTimeProc *scaleProc,
- ClientData clientData);
- /* 553 */
- EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
- Tcl_ScaleTimeProc **scaleProc,
- ClientData *clientData);
- /* 554 */
- EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 555 */
- EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value);
- /* 556 */
- EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file,
- int line);
- /* 557 */
- EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
- /* 558 */
- EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
- Tcl_Obj *obj, mp_int *value);
- /* 559 */
- EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
- Tcl_Obj *obj, mp_int *value);
- /* 560 */
- EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
- Tcl_WideInt length);
- /* 561 */
- EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
- const Tcl_ChannelType *chanTypePtr);
- /* 562 */
- EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
- Tcl_Obj *msg);
- /* 563 */
- EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
- Tcl_Obj **msg);
- /* 564 */
- EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
- /* 565 */
- EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
- /* 566 */
- EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
- double initval, mp_int *toInit);
- /* 567 */
- EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
- Tcl_Namespace *nsPtr);
- /* 568 */
- EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
- Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
- /* 569 */
- EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
- /* 570 */
- EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
- /* 571 */
- EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
- /* 572 */
- EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
- Tcl_DString *bufPtr);
- /* 573 */
- EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
- const char *name, int objc,
- Tcl_Obj *const objv[], void *clientDataPtr);
- /* 574 */
- EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
- Tcl_Obj *objPtr);
- /* 575 */
- EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
- const char *bytes, int length, int limit,
- const char *ellipsis);
- /* 576 */
- EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
- int objc, Tcl_Obj *const objv[]);
- /* 577 */
- EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
- Tcl_Obj *objPtr, const char *format,
- int objc, Tcl_Obj *const objv[]);
- /* 578 */
- EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
- /* 579 */
- EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
- const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
- /* 580 */
- EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
- Tcl_Obj *resultObjPtr, ClientData clientData,
- int flags);
- /* 581 */
- EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
- /* 582 */
- EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
- Tcl_Channel *rchan, Tcl_Channel *wchan,
- int flags);
- /* 583 */
- EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
- const char *cmdName, Tcl_ObjCmdProc *proc,
- Tcl_ObjCmdProc *nreProc,
- ClientData clientData,
- Tcl_CmdDeleteProc *deleteProc);
- /* 584 */
- EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- int flags);
- /* 585 */
- EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[], int flags);
- /* 586 */
- EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
- int objc, Tcl_Obj *const objv[], int flags);
- /* 587 */
- EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
- Tcl_NRPostProc *postProcPtr,
- ClientData data0, ClientData data1,
- ClientData data2, ClientData data3);
- /* 588 */
- EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
- Tcl_ObjCmdProc *objProc,
- ClientData clientData, int objc,
- Tcl_Obj *const objv[]);
- /* 589 */
- EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
- /* 590 */
- EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
- /* 591 */
- EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
- /* 592 */
- EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
- /* 593 */
- EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
- /* 594 */
- EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
- /* 595 */
- EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
- /* 596 */
- EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
- /* 597 */
- EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
- const Tcl_StatBuf *statPtr);
- /* 598 */
- EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
- /* 599 */
- EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
- /* 600 */
- EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
- /* 601 */
- EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
- /* 602 */
- EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj *paramList);
- /* 603 */
- EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
- Tcl_Command token, Tcl_Obj **paramListPtr);
- /* 604 */
- EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
- const Tcl_ArgvInfo *argTable, int *objcPtr,
- Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
- /* 605 */
- EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
- /* 606 */
- EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
- /* 607 */
- EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
- int code, Tcl_Interp *targetInterp);
- /* 608 */
- EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
- /* 609 */
- EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
- /* 610 */
- EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
- Tcl_Obj *data, int level,
- Tcl_Obj *gzipHeaderDictObj);
- /* 611 */
- EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
- Tcl_Obj *data, int buffersize,
- Tcl_Obj *gzipHeaderDictObj);
- /* 612 */
- EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
- const unsigned char *buf, int len);
- /* 613 */
- EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
- const unsigned char *buf, int len);
- /* 614 */
- EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
- int format, int level, Tcl_Obj *dictObj,
- Tcl_ZlibStream *zshandle);
- /* 615 */
- EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
- /* 616 */
- EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
- /* 617 */
- EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
- /* 618 */
- EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
- Tcl_Obj *data, int flush);
- /* 619 */
- EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
- Tcl_Obj *data, int count);
- /* 620 */
- EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
- /* 621 */
- EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
- /* 622 */
- EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
- const char *encoding);
- /* 623 */
- EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
- /* 624 */
- EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
- int flags);
- /* 625 */
- EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- Tcl_Obj *resultPtr);
- /* 626 */
- EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
- int flags);
- /* 627 */
- EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
- const char *const symv[], int flags,
- void *procPtrs, Tcl_LoadHandle *handlePtr);
- /* 628 */
- EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
- Tcl_LoadHandle handle, const char *symbol);
- /* 629 */
- EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
- Tcl_LoadHandle handlePtr);
- /* 630 */
- EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
- Tcl_ZlibStream zhandle,
- Tcl_Obj *compressionDictionaryObj);
- /* Slot 631 is reserved */
- /* Slot 632 is reserved */
- /* Slot 633 is reserved */
- /* Slot 634 is reserved */
- /* Slot 635 is reserved */
- /* Slot 636 is reserved */
- /* Slot 637 is reserved */
- /* Slot 638 is reserved */
- /* Slot 639 is reserved */
- /* Slot 640 is reserved */
- /* Slot 641 is reserved */
- /* Slot 642 is reserved */
- /* Slot 643 is reserved */
- /* Slot 644 is reserved */
- /* Slot 645 is reserved */
- /* Slot 646 is reserved */
- /* Slot 647 is reserved */
- /* Slot 648 is reserved */
- /* Slot 649 is reserved */
- /* Slot 650 is reserved */
- /* Slot 651 is reserved */
- /* Slot 652 is reserved */
- /* Slot 653 is reserved */
- /* Slot 654 is reserved */
- /* Slot 655 is reserved */
- /* Slot 656 is reserved */
- /* Slot 657 is reserved */
- /* Slot 658 is reserved */
- /* Slot 659 is reserved */
- /* 660 */
- EXTERN void TclUnusedStubEntry(void);
- typedef struct {
- const struct TclPlatStubs *tclPlatStubs;
- const struct TclIntStubs *tclIntStubs;
- const struct TclIntPlatStubs *tclIntPlatStubs;
- } TclStubHooks;
- typedef struct TclStubs {
- int magic;
- const TclStubHooks *hooks;
- int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
- CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
- TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
- char * (*tcl_Alloc) (unsigned int size); /* 3 */
- void (*tcl_Free) (char *ptr); /* 4 */
- char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
- char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
- void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
- char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
- #endif /* UNIX */
- #if defined(_WIN32) /* WIN */
- void (*reserved9)(void);
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
- #endif /* MACOSX */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- void (*tcl_DeleteFileHandler) (int fd); /* 10 */
- #endif /* UNIX */
- #if defined(_WIN32) /* WIN */
- void (*reserved10)(void);
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- void (*tcl_DeleteFileHandler) (int fd); /* 10 */
- #endif /* MACOSX */
- void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
- void (*tcl_Sleep) (int ms); /* 12 */
- int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
- int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
- void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
- void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
- Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
- int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
- void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
- void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
- int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
- Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */
- Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
- Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
- Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
- Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
- Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
- Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
- Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
- void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
- int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */
- int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
- unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
- int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
- int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
- int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
- int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
- int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
- int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
- CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
- char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
- void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
- int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
- int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
- int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
- int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
- int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
- int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
- Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
- Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
- Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
- Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
- Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
- Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
- Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
- Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
- void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
- unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */
- void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */
- void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
- void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
- void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
- void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
- void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
- void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
- void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
- void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
- void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
- void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
- void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
- Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
- void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
- int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
- void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
- int (*tcl_AsyncReady) (void); /* 75 */
- void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
- char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
- int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
- void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
- void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
- int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
- int (*tcl_CommandComplete) (const char *cmd); /* 82 */
- char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
- int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
- int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
- int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
- int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
- Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
- void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
- void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
- Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
- void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
- void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
- Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
- void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
- Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
- Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
- Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
- Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
- void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
- void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
- void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
- int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
- int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
- void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
- void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
- void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
- void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
- void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
- void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
- void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
- void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
- void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
- void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
- int (*tcl_DoOneEvent) (int flags); /* 115 */
- void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
- char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
- char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
- void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
- void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
- void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
- void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
- void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
- void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
- void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
- int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
- CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
- CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
- int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
- int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
- int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
- void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
- TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
- int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
- int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
- int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
- int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
- int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
- int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
- int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
- int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
- int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
- void (*tcl_Finalize) (void); /* 143 */
- void (*tcl_FindExecutable) (const char *argv0); /* 144 */
- Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
- int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
- void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
- int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
- int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
- ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
- Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
- int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
- int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
- ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
- int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
- CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
- int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
- CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
- int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
- CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
- int (*tcl_GetErrno) (void); /* 161 */
- CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
- int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
- Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
- const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
- Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
- #endif /* UNIX */
- #if defined(_WIN32) /* WIN */
- void (*reserved167)(void);
- #endif /* WIN */
- #ifdef MAC_OSX_TCL /* MACOSX */
- int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
- #endif /* MACOSX */
- Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
- int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
- int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
- int (*tcl_GetServiceMode) (void); /* 171 */
- Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); /* 172 */
- Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
- CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
- CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
- CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
- int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
- int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
- int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
- int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
- void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
- int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
- int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
- int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
- int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
- char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
- int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
- void (*reserved188)(void);
- Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
- int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
- Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
- char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
- Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
- void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
- Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
- Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
- Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
- Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
- Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */
- Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
- void (*tcl_Preserve) (ClientData data); /* 201 */
- void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
- int (*tcl_PutEnv) (const char *assignment); /* 203 */
- CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
- void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
- int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
- void (*tcl_ReapDetachedProcs) (void); /* 207 */
- int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
- int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
- void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
- void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
- Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
- int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
- int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
- void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
- void (*tcl_Release) (ClientData clientData); /* 216 */
- void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
- int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
- int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
- int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
- int (*tcl_ServiceAll) (void); /* 221 */
- int (*tcl_ServiceEvent) (int flags); /* 222 */
- void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
- void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
- int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
- int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
- void (*tcl_SetErrno) (int err); /* 227 */
- void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
- void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
- void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */
- int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
- void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
- int (*tcl_SetServiceMode) (int mode); /* 233 */
- void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
- void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
- void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
- CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
- CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
- CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
- CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
- void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
- int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
- void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
- void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
- int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
- int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
- int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
- int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
- char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
- int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
- void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
- int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
- int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
- int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
- void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
- void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
- void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
- int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
- int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
- int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
- ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
- ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
- int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
- void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
- int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
- void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
- void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
- void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
- char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
- CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
- CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
- CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
- int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
- CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
- void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
- int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
- Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
- TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
- void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
- void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
- Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
- int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
- Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
- void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
- void (*reserved285)(void);
- void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
- Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
- void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
- void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
- void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
- int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
- int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
- int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
- void (*tcl_ExitThread) (int status); /* 294 */
- int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
- char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
- void (*tcl_FinalizeThread) (void); /* 297 */
- void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
- void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
- Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
- Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
- CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
- void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
- int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
- void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
- Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
- ClientData (*tcl_InitNotifier) (void); /* 307 */
- void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
- void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
- void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
- void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
- int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
- int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
- void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
- void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
- int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
- Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
- void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
- void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
- Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
- Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
- Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
- Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
- int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
- CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
- int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
- int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
- CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
- CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
- CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
- CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
- int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
- char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
- int (*tcl_UtfToLower) (char *src); /* 334 */
- int (*tcl_UtfToTitle) (char *src); /* 335 */
- int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
- int (*tcl_UtfToUpper) (char *src); /* 337 */
- int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
- int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
- char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
- CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
- void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
- void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
- void (*tcl_ServiceModeHook) (int mode); /* 344 */
- int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
- int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
- int (*tcl_UniCharIsDigit) (int ch); /* 347 */
- int (*tcl_UniCharIsLower) (int ch); /* 348 */
- int (*tcl_UniCharIsSpace) (int ch); /* 349 */
- int (*tcl_UniCharIsUpper) (int ch); /* 350 */
- int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
- int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
- int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
- char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
- Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
- Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
- Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
- void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
- void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
- int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
- int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
- int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
- int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
- int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
- char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
- int (*tcl_Chdir) (const char *dirName); /* 366 */
- int (*tcl_Access) (const char *path, int mode); /* 367 */
- int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
- int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
- int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
- int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
- int (*tcl_UniCharIsControl) (int ch); /* 372 */
- int (*tcl_UniCharIsGraph) (int ch); /* 373 */
- int (*tcl_UniCharIsPrint) (int ch); /* 374 */
- int (*tcl_UniCharIsPunct) (int ch); /* 375 */
- int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
- void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
- Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
- void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
- int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
- Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
- Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
- Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
- void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
- int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
- void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
- Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
- int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
- int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
- int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
- void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
- void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
- int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
- int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
- int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
- Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
- int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
- CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
- Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
- Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
- Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
- Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
- Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
- Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
- Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
- Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
- Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
- Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
- Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
- Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
- Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
- int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
- int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
- int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
- void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
- void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
- void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
- int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
- int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
- int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
- Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
- Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
- void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
- void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
- ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
- int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
- void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
- char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
- char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
- char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
- char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
- int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
- Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
- Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
- int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
- Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
- Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
- int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
- int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
- int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
- int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
- int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
- int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
- int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
- int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
- Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
- int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
- int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
- int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
- int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
- int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
- int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
- const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
- int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
- int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
- Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
- Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
- int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
- int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
- Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
- Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
- int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
- Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
- Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
- ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
- Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
- int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
- Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
- const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
- Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
- Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
- Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
- int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
- int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
- ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
- const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
- CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
- Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
- int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
- void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
- int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
- void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
- Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
- int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
- int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
- Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
- int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
- Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
- void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
- Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
- Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
- Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
- Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
- int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
- int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
- int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
- int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
- int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
- void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
- void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
- int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
- int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
- Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
- Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
- void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
- Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
- void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
- int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
- int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
- int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
- int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
- Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
- Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
- Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
- Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
- Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
- void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
- int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
- Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */
- void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
- void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
- int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
- int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
- int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
- void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
- void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
- void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
- int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
- int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
- void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
- void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
- int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
- void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
- int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
- Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
- int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
- void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
- int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
- Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
- int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
- Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
- Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
- int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
- int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
- int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
- int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
- int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
- int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
- int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
- int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
- int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
- void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
- void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
- Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
- Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
- Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
- void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
- int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
- int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
- int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
- Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
- void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
- void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
- void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
- void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
- int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
- Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
- int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
- int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
- Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
- int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
- const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
- int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
- void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
- void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
- Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
- int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
- Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
- void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
- int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
- int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
- int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
- Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
- int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
- int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
- int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
- void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
- int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
- unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
- unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
- unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
- int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
- int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
- int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
- int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
- Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
- Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
- Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
- Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
- Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
- unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
- int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
- int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
- int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
- int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
- void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
- void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
- int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
- void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
- int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
- int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
- unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
- unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
- int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
- Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
- int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
- int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
- int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
- int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
- int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
- int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
- void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
- Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
- int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
- int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
- int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
- int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
- void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
- int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
- void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
- void (*reserved631)(void);
- void (*reserved632)(void);
- void (*reserved633)(void);
- void (*reserved634)(void);
- void (*reserved635)(void);
- void (*reserved636)(void);
- void (*reserved637)(void);
- void (*reserved638)(void);
- void (*reserved639)(void);
- void (*reserved640)(void);
- void (*reserved641)(void);
- void (*reserved642)(void);
- void (*reserved643)(void);
- void (*reserved644)(void);
- void (*reserved645)(void);
- void (*reserved646)(void);
- void (*reserved647)(void);
- void (*reserved648)(void);
- void (*reserved649)(void);
- void (*reserved650)(void);
- void (*reserved651)(void);
- void (*reserved652)(void);
- void (*reserved653)(void);
- void (*reserved654)(void);
- void (*reserved655)(void);
- void (*reserved656)(void);
- void (*reserved657)(void);
- void (*reserved658)(void);
- void (*reserved659)(void);
- void (*tclUnusedStubEntry) (void); /* 660 */
- } TclStubs;
- extern const TclStubs *tclStubsPtr;
- #ifdef __cplusplus
- }
- #endif
- #if defined(USE_TCL_STUBS)
- /*
- * Inline function declarations:
- */
- #define Tcl_PkgProvideEx \
- (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
- #define Tcl_PkgRequireEx \
- (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
- #define Tcl_Panic \
- (tclStubsPtr->tcl_Panic) /* 2 */
- #define Tcl_Alloc \
- (tclStubsPtr->tcl_Alloc) /* 3 */
- #define Tcl_Free \
- (tclStubsPtr->tcl_Free) /* 4 */
- #define Tcl_Realloc \
- (tclStubsPtr->tcl_Realloc) /* 5 */
- #define Tcl_DbCkalloc \
- (tclStubsPtr->tcl_DbCkalloc) /* 6 */
- #define Tcl_DbCkfree \
- (tclStubsPtr->tcl_DbCkfree) /* 7 */
- #define Tcl_DbCkrealloc \
- (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- #define Tcl_CreateFileHandler \
- (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- #define Tcl_CreateFileHandler \
- (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
- #endif /* MACOSX */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- #define Tcl_DeleteFileHandler \
- (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- #define Tcl_DeleteFileHandler \
- (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
- #endif /* MACOSX */
- #define Tcl_SetTimer \
- (tclStubsPtr->tcl_SetTimer) /* 11 */
- #define Tcl_Sleep \
- (tclStubsPtr->tcl_Sleep) /* 12 */
- #define Tcl_WaitForEvent \
- (tclStubsPtr->tcl_WaitForEvent) /* 13 */
- #define Tcl_AppendAllObjTypes \
- (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
- #define Tcl_AppendStringsToObj \
- (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
- #define Tcl_AppendToObj \
- (tclStubsPtr->tcl_AppendToObj) /* 16 */
- #define Tcl_ConcatObj \
- (tclStubsPtr->tcl_ConcatObj) /* 17 */
- #define Tcl_ConvertToType \
- (tclStubsPtr->tcl_ConvertToType) /* 18 */
- #define Tcl_DbDecrRefCount \
- (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
- #define Tcl_DbIncrRefCount \
- (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
- #define Tcl_DbIsShared \
- (tclStubsPtr->tcl_DbIsShared) /* 21 */
- #define Tcl_DbNewBooleanObj \
- (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
- #define Tcl_DbNewByteArrayObj \
- (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
- #define Tcl_DbNewDoubleObj \
- (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
- #define Tcl_DbNewListObj \
- (tclStubsPtr->tcl_DbNewListObj) /* 25 */
- #define Tcl_DbNewLongObj \
- (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
- #define Tcl_DbNewObj \
- (tclStubsPtr->tcl_DbNewObj) /* 27 */
- #define Tcl_DbNewStringObj \
- (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
- #define Tcl_DuplicateObj \
- (tclStubsPtr->tcl_DuplicateObj) /* 29 */
- #define TclFreeObj \
- (tclStubsPtr->tclFreeObj) /* 30 */
- #define Tcl_GetBoolean \
- (tclStubsPtr->tcl_GetBoolean) /* 31 */
- #define Tcl_GetBooleanFromObj \
- (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
- #define Tcl_GetByteArrayFromObj \
- (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
- #define Tcl_GetDouble \
- (tclStubsPtr->tcl_GetDouble) /* 34 */
- #define Tcl_GetDoubleFromObj \
- (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
- #define Tcl_GetIndexFromObj \
- (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
- #define Tcl_GetInt \
- (tclStubsPtr->tcl_GetInt) /* 37 */
- #define Tcl_GetIntFromObj \
- (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
- #define Tcl_GetLongFromObj \
- (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
- #define Tcl_GetObjType \
- (tclStubsPtr->tcl_GetObjType) /* 40 */
- #define Tcl_GetStringFromObj \
- (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
- #define Tcl_InvalidateStringRep \
- (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
- #define Tcl_ListObjAppendList \
- (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
- #define Tcl_ListObjAppendElement \
- (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
- #define Tcl_ListObjGetElements \
- (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
- #define Tcl_ListObjIndex \
- (tclStubsPtr->tcl_ListObjIndex) /* 46 */
- #define Tcl_ListObjLength \
- (tclStubsPtr->tcl_ListObjLength) /* 47 */
- #define Tcl_ListObjReplace \
- (tclStubsPtr->tcl_ListObjReplace) /* 48 */
- #define Tcl_NewBooleanObj \
- (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
- #define Tcl_NewByteArrayObj \
- (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
- #define Tcl_NewDoubleObj \
- (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
- #define Tcl_NewIntObj \
- (tclStubsPtr->tcl_NewIntObj) /* 52 */
- #define Tcl_NewListObj \
- (tclStubsPtr->tcl_NewListObj) /* 53 */
- #define Tcl_NewLongObj \
- (tclStubsPtr->tcl_NewLongObj) /* 54 */
- #define Tcl_NewObj \
- (tclStubsPtr->tcl_NewObj) /* 55 */
- #define Tcl_NewStringObj \
- (tclStubsPtr->tcl_NewStringObj) /* 56 */
- #define Tcl_SetBooleanObj \
- (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
- #define Tcl_SetByteArrayLength \
- (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
- #define Tcl_SetByteArrayObj \
- (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
- #define Tcl_SetDoubleObj \
- (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
- #define Tcl_SetIntObj \
- (tclStubsPtr->tcl_SetIntObj) /* 61 */
- #define Tcl_SetListObj \
- (tclStubsPtr->tcl_SetListObj) /* 62 */
- #define Tcl_SetLongObj \
- (tclStubsPtr->tcl_SetLongObj) /* 63 */
- #define Tcl_SetObjLength \
- (tclStubsPtr->tcl_SetObjLength) /* 64 */
- #define Tcl_SetStringObj \
- (tclStubsPtr->tcl_SetStringObj) /* 65 */
- #define Tcl_AddErrorInfo \
- (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
- #define Tcl_AddObjErrorInfo \
- (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
- #define Tcl_AllowExceptions \
- (tclStubsPtr->tcl_AllowExceptions) /* 68 */
- #define Tcl_AppendElement \
- (tclStubsPtr->tcl_AppendElement) /* 69 */
- #define Tcl_AppendResult \
- (tclStubsPtr->tcl_AppendResult) /* 70 */
- #define Tcl_AsyncCreate \
- (tclStubsPtr->tcl_AsyncCreate) /* 71 */
- #define Tcl_AsyncDelete \
- (tclStubsPtr->tcl_AsyncDelete) /* 72 */
- #define Tcl_AsyncInvoke \
- (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
- #define Tcl_AsyncMark \
- (tclStubsPtr->tcl_AsyncMark) /* 74 */
- #define Tcl_AsyncReady \
- (tclStubsPtr->tcl_AsyncReady) /* 75 */
- #define Tcl_BackgroundError \
- (tclStubsPtr->tcl_BackgroundError) /* 76 */
- #define Tcl_Backslash \
- (tclStubsPtr->tcl_Backslash) /* 77 */
- #define Tcl_BadChannelOption \
- (tclStubsPtr->tcl_BadChannelOption) /* 78 */
- #define Tcl_CallWhenDeleted \
- (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
- #define Tcl_CancelIdleCall \
- (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
- #define Tcl_Close \
- (tclStubsPtr->tcl_Close) /* 81 */
- #define Tcl_CommandComplete \
- (tclStubsPtr->tcl_CommandComplete) /* 82 */
- #define Tcl_Concat \
- (tclStubsPtr->tcl_Concat) /* 83 */
- #define Tcl_ConvertElement \
- (tclStubsPtr->tcl_ConvertElement) /* 84 */
- #define Tcl_ConvertCountedElement \
- (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
- #define Tcl_CreateAlias \
- (tclStubsPtr->tcl_CreateAlias) /* 86 */
- #define Tcl_CreateAliasObj \
- (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
- #define Tcl_CreateChannel \
- (tclStubsPtr->tcl_CreateChannel) /* 88 */
- #define Tcl_CreateChannelHandler \
- (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
- #define Tcl_CreateCloseHandler \
- (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
- #define Tcl_CreateCommand \
- (tclStubsPtr->tcl_CreateCommand) /* 91 */
- #define Tcl_CreateEventSource \
- (tclStubsPtr->tcl_CreateEventSource) /* 92 */
- #define Tcl_CreateExitHandler \
- (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
- #define Tcl_CreateInterp \
- (tclStubsPtr->tcl_CreateInterp) /* 94 */
- #define Tcl_CreateMathFunc \
- (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
- #define Tcl_CreateObjCommand \
- (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
- #define Tcl_CreateSlave \
- (tclStubsPtr->tcl_CreateSlave) /* 97 */
- #define Tcl_CreateTimerHandler \
- (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
- #define Tcl_CreateTrace \
- (tclStubsPtr->tcl_CreateTrace) /* 99 */
- #define Tcl_DeleteAssocData \
- (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
- #define Tcl_DeleteChannelHandler \
- (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
- #define Tcl_DeleteCloseHandler \
- (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
- #define Tcl_DeleteCommand \
- (tclStubsPtr->tcl_DeleteCommand) /* 103 */
- #define Tcl_DeleteCommandFromToken \
- (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
- #define Tcl_DeleteEvents \
- (tclStubsPtr->tcl_DeleteEvents) /* 105 */
- #define Tcl_DeleteEventSource \
- (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
- #define Tcl_DeleteExitHandler \
- (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
- #define Tcl_DeleteHashEntry \
- (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
- #define Tcl_DeleteHashTable \
- (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
- #define Tcl_DeleteInterp \
- (tclStubsPtr->tcl_DeleteInterp) /* 110 */
- #define Tcl_DetachPids \
- (tclStubsPtr->tcl_DetachPids) /* 111 */
- #define Tcl_DeleteTimerHandler \
- (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
- #define Tcl_DeleteTrace \
- (tclStubsPtr->tcl_DeleteTrace) /* 113 */
- #define Tcl_DontCallWhenDeleted \
- (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
- #define Tcl_DoOneEvent \
- (tclStubsPtr->tcl_DoOneEvent) /* 115 */
- #define Tcl_DoWhenIdle \
- (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
- #define Tcl_DStringAppend \
- (tclStubsPtr->tcl_DStringAppend) /* 117 */
- #define Tcl_DStringAppendElement \
- (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
- #define Tcl_DStringEndSublist \
- (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
- #define Tcl_DStringFree \
- (tclStubsPtr->tcl_DStringFree) /* 120 */
- #define Tcl_DStringGetResult \
- (tclStubsPtr->tcl_DStringGetResult) /* 121 */
- #define Tcl_DStringInit \
- (tclStubsPtr->tcl_DStringInit) /* 122 */
- #define Tcl_DStringResult \
- (tclStubsPtr->tcl_DStringResult) /* 123 */
- #define Tcl_DStringSetLength \
- (tclStubsPtr->tcl_DStringSetLength) /* 124 */
- #define Tcl_DStringStartSublist \
- (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
- #define Tcl_Eof \
- (tclStubsPtr->tcl_Eof) /* 126 */
- #define Tcl_ErrnoId \
- (tclStubsPtr->tcl_ErrnoId) /* 127 */
- #define Tcl_ErrnoMsg \
- (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
- #define Tcl_Eval \
- (tclStubsPtr->tcl_Eval) /* 129 */
- #define Tcl_EvalFile \
- (tclStubsPtr->tcl_EvalFile) /* 130 */
- #define Tcl_EvalObj \
- (tclStubsPtr->tcl_EvalObj) /* 131 */
- #define Tcl_EventuallyFree \
- (tclStubsPtr->tcl_EventuallyFree) /* 132 */
- #define Tcl_Exit \
- (tclStubsPtr->tcl_Exit) /* 133 */
- #define Tcl_ExposeCommand \
- (tclStubsPtr->tcl_ExposeCommand) /* 134 */
- #define Tcl_ExprBoolean \
- (tclStubsPtr->tcl_ExprBoolean) /* 135 */
- #define Tcl_ExprBooleanObj \
- (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
- #define Tcl_ExprDouble \
- (tclStubsPtr->tcl_ExprDouble) /* 137 */
- #define Tcl_ExprDoubleObj \
- (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
- #define Tcl_ExprLong \
- (tclStubsPtr->tcl_ExprLong) /* 139 */
- #define Tcl_ExprLongObj \
- (tclStubsPtr->tcl_ExprLongObj) /* 140 */
- #define Tcl_ExprObj \
- (tclStubsPtr->tcl_ExprObj) /* 141 */
- #define Tcl_ExprString \
- (tclStubsPtr->tcl_ExprString) /* 142 */
- #define Tcl_Finalize \
- (tclStubsPtr->tcl_Finalize) /* 143 */
- #define Tcl_FindExecutable \
- (tclStubsPtr->tcl_FindExecutable) /* 144 */
- #define Tcl_FirstHashEntry \
- (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
- #define Tcl_Flush \
- (tclStubsPtr->tcl_Flush) /* 146 */
- #define Tcl_FreeResult \
- (tclStubsPtr->tcl_FreeResult) /* 147 */
- #define Tcl_GetAlias \
- (tclStubsPtr->tcl_GetAlias) /* 148 */
- #define Tcl_GetAliasObj \
- (tclStubsPtr->tcl_GetAliasObj) /* 149 */
- #define Tcl_GetAssocData \
- (tclStubsPtr->tcl_GetAssocData) /* 150 */
- #define Tcl_GetChannel \
- (tclStubsPtr->tcl_GetChannel) /* 151 */
- #define Tcl_GetChannelBufferSize \
- (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
- #define Tcl_GetChannelHandle \
- (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
- #define Tcl_GetChannelInstanceData \
- (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
- #define Tcl_GetChannelMode \
- (tclStubsPtr->tcl_GetChannelMode) /* 155 */
- #define Tcl_GetChannelName \
- (tclStubsPtr->tcl_GetChannelName) /* 156 */
- #define Tcl_GetChannelOption \
- (tclStubsPtr->tcl_GetChannelOption) /* 157 */
- #define Tcl_GetChannelType \
- (tclStubsPtr->tcl_GetChannelType) /* 158 */
- #define Tcl_GetCommandInfo \
- (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
- #define Tcl_GetCommandName \
- (tclStubsPtr->tcl_GetCommandName) /* 160 */
- #define Tcl_GetErrno \
- (tclStubsPtr->tcl_GetErrno) /* 161 */
- #define Tcl_GetHostName \
- (tclStubsPtr->tcl_GetHostName) /* 162 */
- #define Tcl_GetInterpPath \
- (tclStubsPtr->tcl_GetInterpPath) /* 163 */
- #define Tcl_GetMaster \
- (tclStubsPtr->tcl_GetMaster) /* 164 */
- #define Tcl_GetNameOfExecutable \
- (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
- #define Tcl_GetObjResult \
- (tclStubsPtr->tcl_GetObjResult) /* 166 */
- #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
- #define Tcl_GetOpenFile \
- (tclStubsPtr->tcl_GetOpenFile) /* 167 */
- #endif /* UNIX */
- #ifdef MAC_OSX_TCL /* MACOSX */
- #define Tcl_GetOpenFile \
- (tclStubsPtr->tcl_GetOpenFile) /* 167 */
- #endif /* MACOSX */
- #define Tcl_GetPathType \
- (tclStubsPtr->tcl_GetPathType) /* 168 */
- #define Tcl_Gets \
- (tclStubsPtr->tcl_Gets) /* 169 */
- #define Tcl_GetsObj \
- (tclStubsPtr->tcl_GetsObj) /* 170 */
- #define Tcl_GetServiceMode \
- (tclStubsPtr->tcl_GetServiceMode) /* 171 */
- #define Tcl_GetSlave \
- (tclStubsPtr->tcl_GetSlave) /* 172 */
- #define Tcl_GetStdChannel \
- (tclStubsPtr->tcl_GetStdChannel) /* 173 */
- #define Tcl_GetStringResult \
- (tclStubsPtr->tcl_GetStringResult) /* 174 */
- #define Tcl_GetVar \
- (tclStubsPtr->tcl_GetVar) /* 175 */
- #define Tcl_GetVar2 \
- (tclStubsPtr->tcl_GetVar2) /* 176 */
- #define Tcl_GlobalEval \
- (tclStubsPtr->tcl_GlobalEval) /* 177 */
- #define Tcl_GlobalEvalObj \
- (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
- #define Tcl_HideCommand \
- (tclStubsPtr->tcl_HideCommand) /* 179 */
- #define Tcl_Init \
- (tclStubsPtr->tcl_Init) /* 180 */
- #define Tcl_InitHashTable \
- (tclStubsPtr->tcl_InitHashTable) /* 181 */
- #define Tcl_InputBlocked \
- (tclStubsPtr->tcl_InputBlocked) /* 182 */
- #define Tcl_InputBuffered \
- (tclStubsPtr->tcl_InputBuffered) /* 183 */
- #define Tcl_InterpDeleted \
- (tclStubsPtr->tcl_InterpDeleted) /* 184 */
- #define Tcl_IsSafe \
- (tclStubsPtr->tcl_IsSafe) /* 185 */
- #define Tcl_JoinPath \
- (tclStubsPtr->tcl_JoinPath) /* 186 */
- #define Tcl_LinkVar \
- (tclStubsPtr->tcl_LinkVar) /* 187 */
- /* Slot 188 is reserved */
- #define Tcl_MakeFileChannel \
- (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
- #define Tcl_MakeSafe \
- (tclStubsPtr->tcl_MakeSafe) /* 190 */
- #define Tcl_MakeTcpClientChannel \
- (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
- #define Tcl_Merge \
- (tclStubsPtr->tcl_Merge) /* 192 */
- #define Tcl_NextHashEntry \
- (tclStubsPtr->tcl_NextHashEntry) /* 193 */
- #define Tcl_NotifyChannel \
- (tclStubsPtr->tcl_NotifyChannel) /* 194 */
- #define Tcl_ObjGetVar2 \
- (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
- #define Tcl_ObjSetVar2 \
- (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
- #define Tcl_OpenCommandChannel \
- (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
- #define Tcl_OpenFileChannel \
- (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
- #define Tcl_OpenTcpClient \
- (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
- #define Tcl_OpenTcpServer \
- (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
- #define Tcl_Preserve \
- (tclStubsPtr->tcl_Preserve) /* 201 */
- #define Tcl_PrintDouble \
- (tclStubsPtr->tcl_PrintDouble) /* 202 */
- #define Tcl_PutEnv \
- (tclStubsPtr->tcl_PutEnv) /* 203 */
- #define Tcl_PosixError \
- (tclStubsPtr->tcl_PosixError) /* 204 */
- #define Tcl_QueueEvent \
- (tclStubsPtr->tcl_QueueEvent) /* 205 */
- #define Tcl_Read \
- (tclStubsPtr->tcl_Read) /* 206 */
- #define Tcl_ReapDetachedProcs \
- (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
- #define Tcl_RecordAndEval \
- (tclStubsPtr->tcl_RecordAndEval) /* 208 */
- #define Tcl_RecordAndEvalObj \
- (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
- #define Tcl_RegisterChannel \
- (tclStubsPtr->tcl_RegisterChannel) /* 210 */
- #define Tcl_RegisterObjType \
- (tclStubsPtr->tcl_RegisterObjType) /* 211 */
- #define Tcl_RegExpCompile \
- (tclStubsPtr->tcl_RegExpCompile) /* 212 */
- #define Tcl_RegExpExec \
- (tclStubsPtr->tcl_RegExpExec) /* 213 */
- #define Tcl_RegExpMatch \
- (tclStubsPtr->tcl_RegExpMatch) /* 214 */
- #define Tcl_RegExpRange \
- (tclStubsPtr->tcl_RegExpRange) /* 215 */
- #define Tcl_Release \
- (tclStubsPtr->tcl_Release) /* 216 */
- #define Tcl_ResetResult \
- (tclStubsPtr->tcl_ResetResult) /* 217 */
- #define Tcl_ScanElement \
- (tclStubsPtr->tcl_ScanElement) /* 218 */
- #define Tcl_ScanCountedElement \
- (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
- #define Tcl_SeekOld \
- (tclStubsPtr->tcl_SeekOld) /* 220 */
- #define Tcl_ServiceAll \
- (tclStubsPtr->tcl_ServiceAll) /* 221 */
- #define Tcl_ServiceEvent \
- (tclStubsPtr->tcl_ServiceEvent) /* 222 */
- #define Tcl_SetAssocData \
- (tclStubsPtr->tcl_SetAssocData) /* 223 */
- #define Tcl_SetChannelBufferSize \
- (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
- #define Tcl_SetChannelOption \
- (tclStubsPtr->tcl_SetChannelOption) /* 225 */
- #define Tcl_SetCommandInfo \
- (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
- #define Tcl_SetErrno \
- (tclStubsPtr->tcl_SetErrno) /* 227 */
- #define Tcl_SetErrorCode \
- (tclStubsPtr->tcl_SetErrorCode) /* 228 */
- #define Tcl_SetMaxBlockTime \
- (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
- #define Tcl_SetPanicProc \
- (tclStubsPtr->tcl_SetPanicProc) /* 230 */
- #define Tcl_SetRecursionLimit \
- (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
- #define Tcl_SetResult \
- (tclStubsPtr->tcl_SetResult) /* 232 */
- #define Tcl_SetServiceMode \
- (tclStubsPtr->tcl_SetServiceMode) /* 233 */
- #define Tcl_SetObjErrorCode \
- (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
- #define Tcl_SetObjResult \
- (tclStubsPtr->tcl_SetObjResult) /* 235 */
- #define Tcl_SetStdChannel \
- (tclStubsPtr->tcl_SetStdChannel) /* 236 */
- #define Tcl_SetVar \
- (tclStubsPtr->tcl_SetVar) /* 237 */
- #define Tcl_SetVar2 \
- (tclStubsPtr->tcl_SetVar2) /* 238 */
- #define Tcl_SignalId \
- (tclStubsPtr->tcl_SignalId) /* 239 */
- #define Tcl_SignalMsg \
- (tclStubsPtr->tcl_SignalMsg) /* 240 */
- #define Tcl_SourceRCFile \
- (tclStubsPtr->tcl_SourceRCFile) /* 241 */
- #define Tcl_SplitList \
- (tclStubsPtr->tcl_SplitList) /* 242 */
- #define Tcl_SplitPath \
- (tclStubsPtr->tcl_SplitPath) /* 243 */
- #define Tcl_StaticPackage \
- (tclStubsPtr->tcl_StaticPackage) /* 244 */
- #define Tcl_StringMatch \
- (tclStubsPtr->tcl_StringMatch) /* 245 */
- #define Tcl_TellOld \
- (tclStubsPtr->tcl_TellOld) /* 246 */
- #define Tcl_TraceVar \
- (tclStubsPtr->tcl_TraceVar) /* 247 */
- #define Tcl_TraceVar2 \
- (tclStubsPtr->tcl_TraceVar2) /* 248 */
- #define Tcl_TranslateFileName \
- (tclStubsPtr->tcl_TranslateFileName) /* 249 */
- #define Tcl_Ungets \
- (tclStubsPtr->tcl_Ungets) /* 250 */
- #define Tcl_UnlinkVar \
- (tclStubsPtr->tcl_UnlinkVar) /* 251 */
- #define Tcl_UnregisterChannel \
- (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
- #define Tcl_UnsetVar \
- (tclStubsPtr->tcl_UnsetVar) /* 253 */
- #define Tcl_UnsetVar2 \
- (tclStubsPtr->tcl_UnsetVar2) /* 254 */
- #define Tcl_UntraceVar \
- (tclStubsPtr->tcl_UntraceVar) /* 255 */
- #define Tcl_UntraceVar2 \
- (tclStubsPtr->tcl_UntraceVar2) /* 256 */
- #define Tcl_UpdateLinkedVar \
- (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
- #define Tcl_UpVar \
- (tclStubsPtr->tcl_UpVar) /* 258 */
- #define Tcl_UpVar2 \
- (tclStubsPtr->tcl_UpVar2) /* 259 */
- #define Tcl_VarEval \
- (tclStubsPtr->tcl_VarEval) /* 260 */
- #define Tcl_VarTraceInfo \
- (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
- #define Tcl_VarTraceInfo2 \
- (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
- #define Tcl_Write \
- (tclStubsPtr->tcl_Write) /* 263 */
- #define Tcl_WrongNumArgs \
- (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
- #define Tcl_DumpActiveMemory \
- (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
- #define Tcl_ValidateAllMemory \
- (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
- #define Tcl_AppendResultVA \
- (tclStubsPtr->tcl_AppendResultVA) /* 267 */
- #define Tcl_AppendStringsToObjVA \
- (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
- #define Tcl_HashStats \
- (tclStubsPtr->tcl_HashStats) /* 269 */
- #define Tcl_ParseVar \
- (tclStubsPtr->tcl_ParseVar) /* 270 */
- #define Tcl_PkgPresent \
- (tclStubsPtr->tcl_PkgPresent) /* 271 */
- #define Tcl_PkgPresentEx \
- (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
- #define Tcl_PkgProvide \
- (tclStubsPtr->tcl_PkgProvide) /* 273 */
- #define Tcl_PkgRequire \
- (tclStubsPtr->tcl_PkgRequire) /* 274 */
- #define Tcl_SetErrorCodeVA \
- (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
- #define Tcl_VarEvalVA \
- (tclStubsPtr->tcl_VarEvalVA) /* 276 */
- #define Tcl_WaitPid \
- (tclStubsPtr->tcl_WaitPid) /* 277 */
- #define Tcl_PanicVA \
- (tclStubsPtr->tcl_PanicVA) /* 278 */
- #define Tcl_GetVersion \
- (tclStubsPtr->tcl_GetVersion) /* 279 */
- #define Tcl_InitMemory \
- (tclStubsPtr->tcl_InitMemory) /* 280 */
- #define Tcl_StackChannel \
- (tclStubsPtr->tcl_StackChannel) /* 281 */
- #define Tcl_UnstackChannel \
- (tclStubsPtr->tcl_UnstackChannel) /* 282 */
- #define Tcl_GetStackedChannel \
- (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
- #define Tcl_SetMainLoop \
- (tclStubsPtr->tcl_SetMainLoop) /* 284 */
- /* Slot 285 is reserved */
- #define Tcl_AppendObjToObj \
- (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
- #define Tcl_CreateEncoding \
- (tclStubsPtr->tcl_CreateEncoding) /* 287 */
- #define Tcl_CreateThreadExitHandler \
- (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
- #define Tcl_DeleteThreadExitHandler \
- (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
- #define Tcl_DiscardResult \
- (tclStubsPtr->tcl_DiscardResult) /* 290 */
- #define Tcl_EvalEx \
- (tclStubsPtr->tcl_EvalEx) /* 291 */
- #define Tcl_EvalObjv \
- (tclStubsPtr->tcl_EvalObjv) /* 292 */
- #define Tcl_EvalObjEx \
- (tclStubsPtr->tcl_EvalObjEx) /* 293 */
- #define Tcl_ExitThread \
- (tclStubsPtr->tcl_ExitThread) /* 294 */
- #define Tcl_ExternalToUtf \
- (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
- #define Tcl_ExternalToUtfDString \
- (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
- #define Tcl_FinalizeThread \
- (tclStubsPtr->tcl_FinalizeThread) /* 297 */
- #define Tcl_FinalizeNotifier \
- (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
- #define Tcl_FreeEncoding \
- (tclStubsPtr->tcl_FreeEncoding) /* 299 */
- #define Tcl_GetCurrentThread \
- (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
- #define Tcl_GetEncoding \
- (tclStubsPtr->tcl_GetEncoding) /* 301 */
- #define Tcl_GetEncodingName \
- (tclStubsPtr->tcl_GetEncodingName) /* 302 */
- #define Tcl_GetEncodingNames \
- (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
- #define Tcl_GetIndexFromObjStruct \
- (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
- #define Tcl_GetThreadData \
- (tclStubsPtr->tcl_GetThreadData) /* 305 */
- #define Tcl_GetVar2Ex \
- (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
- #define Tcl_InitNotifier \
- (tclStubsPtr->tcl_InitNotifier) /* 307 */
- #define Tcl_MutexLock \
- (tclStubsPtr->tcl_MutexLock) /* 308 */
- #define Tcl_MutexUnlock \
- (tclStubsPtr->tcl_MutexUnlock) /* 309 */
- #define Tcl_ConditionNotify \
- (tclStubsPtr->tcl_ConditionNotify) /* 310 */
- #define Tcl_ConditionWait \
- (tclStubsPtr->tcl_ConditionWait) /* 311 */
- #define Tcl_NumUtfChars \
- (tclStubsPtr->tcl_NumUtfChars) /* 312 */
- #define Tcl_ReadChars \
- (tclStubsPtr->tcl_ReadChars) /* 313 */
- #define Tcl_RestoreResult \
- (tclStubsPtr->tcl_RestoreResult) /* 314 */
- #define Tcl_SaveResult \
- (tclStubsPtr->tcl_SaveResult) /* 315 */
- #define Tcl_SetSystemEncoding \
- (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
- #define Tcl_SetVar2Ex \
- (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
- #define Tcl_ThreadAlert \
- (tclStubsPtr->tcl_ThreadAlert) /* 318 */
- #define Tcl_ThreadQueueEvent \
- (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
- #define Tcl_UniCharAtIndex \
- (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
- #define Tcl_UniCharToLower \
- (tclStubsPtr->tcl_UniCharToLower) /* 321 */
- #define Tcl_UniCharToTitle \
- (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
- #define Tcl_UniCharToUpper \
- (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
- #define Tcl_UniCharToUtf \
- (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
- #define Tcl_UtfAtIndex \
- (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
- #define Tcl_UtfCharComplete \
- (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
- #define Tcl_UtfBackslash \
- (tclStubsPtr->tcl_UtfBackslash) /* 327 */
- #define Tcl_UtfFindFirst \
- (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
- #define Tcl_UtfFindLast \
- (tclStubsPtr->tcl_UtfFindLast) /* 329 */
- #define Tcl_UtfNext \
- (tclStubsPtr->tcl_UtfNext) /* 330 */
- #define Tcl_UtfPrev \
- (tclStubsPtr->tcl_UtfPrev) /* 331 */
- #define Tcl_UtfToExternal \
- (tclStubsPtr->tcl_UtfToExternal) /* 332 */
- #define Tcl_UtfToExternalDString \
- (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
- #define Tcl_UtfToLower \
- (tclStubsPtr->tcl_UtfToLower) /* 334 */
- #define Tcl_UtfToTitle \
- (tclStubsPtr->tcl_UtfToTitle) /* 335 */
- #define Tcl_UtfToUniChar \
- (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
- #define Tcl_UtfToUpper \
- (tclStubsPtr->tcl_UtfToUpper) /* 337 */
- #define Tcl_WriteChars \
- (tclStubsPtr->tcl_WriteChars) /* 338 */
- #define Tcl_WriteObj \
- (tclStubsPtr->tcl_WriteObj) /* 339 */
- #define Tcl_GetString \
- (tclStubsPtr->tcl_GetString) /* 340 */
- #define Tcl_GetDefaultEncodingDir \
- (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
- #define Tcl_SetDefaultEncodingDir \
- (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
- #define Tcl_AlertNotifier \
- (tclStubsPtr->tcl_AlertNotifier) /* 343 */
- #define Tcl_ServiceModeHook \
- (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
- #define Tcl_UniCharIsAlnum \
- (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
- #define Tcl_UniCharIsAlpha \
- (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
- #define Tcl_UniCharIsDigit \
- (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
- #define Tcl_UniCharIsLower \
- (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
- #define Tcl_UniCharIsSpace \
- (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
- #define Tcl_UniCharIsUpper \
- (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
- #define Tcl_UniCharIsWordChar \
- (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
- #define Tcl_UniCharLen \
- (tclStubsPtr->tcl_UniCharLen) /* 352 */
- #define Tcl_UniCharNcmp \
- (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
- #define Tcl_UniCharToUtfDString \
- (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
- #define Tcl_UtfToUniCharDString \
- (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
- #define Tcl_GetRegExpFromObj \
- (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
- #define Tcl_EvalTokens \
- (tclStubsPtr->tcl_EvalTokens) /* 357 */
- #define Tcl_FreeParse \
- (tclStubsPtr->tcl_FreeParse) /* 358 */
- #define Tcl_LogCommandInfo \
- (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
- #define Tcl_ParseBraces \
- (tclStubsPtr->tcl_ParseBraces) /* 360 */
- #define Tcl_ParseCommand \
- (tclStubsPtr->tcl_ParseCommand) /* 361 */
- #define Tcl_ParseExpr \
- (tclStubsPtr->tcl_ParseExpr) /* 362 */
- #define Tcl_ParseQuotedString \
- (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
- #define Tcl_ParseVarName \
- (tclStubsPtr->tcl_ParseVarName) /* 364 */
- #define Tcl_GetCwd \
- (tclStubsPtr->tcl_GetCwd) /* 365 */
- #define Tcl_Chdir \
- (tclStubsPtr->tcl_Chdir) /* 366 */
- #define Tcl_Access \
- (tclStubsPtr->tcl_Access) /* 367 */
- #define Tcl_Stat \
- (tclStubsPtr->tcl_Stat) /* 368 */
- #define Tcl_UtfNcmp \
- (tclStubsPtr->tcl_UtfNcmp) /* 369 */
- #define Tcl_UtfNcasecmp \
- (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
- #define Tcl_StringCaseMatch \
- (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
- #define Tcl_UniCharIsControl \
- (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
- #define Tcl_UniCharIsGraph \
- (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
- #define Tcl_UniCharIsPrint \
- (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
- #define Tcl_UniCharIsPunct \
- (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
- #define Tcl_RegExpExecObj \
- (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
- #define Tcl_RegExpGetInfo \
- (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
- #define Tcl_NewUnicodeObj \
- (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
- #define Tcl_SetUnicodeObj \
- (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
- #define Tcl_GetCharLength \
- (tclStubsPtr->tcl_GetCharLength) /* 380 */
- #define Tcl_GetUniChar \
- (tclStubsPtr->tcl_GetUniChar) /* 381 */
- #define Tcl_GetUnicode \
- (tclStubsPtr->tcl_GetUnicode) /* 382 */
- #define Tcl_GetRange \
- (tclStubsPtr->tcl_GetRange) /* 383 */
- #define Tcl_AppendUnicodeToObj \
- (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
- #define Tcl_RegExpMatchObj \
- (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
- #define Tcl_SetNotifier \
- (tclStubsPtr->tcl_SetNotifier) /* 386 */
- #define Tcl_GetAllocMutex \
- (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
- #define Tcl_GetChannelNames \
- (tclStubsPtr->tcl_GetChannelNames) /* 388 */
- #define Tcl_GetChannelNamesEx \
- (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
- #define Tcl_ProcObjCmd \
- (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
- #define Tcl_ConditionFinalize \
- (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
- #define Tcl_MutexFinalize \
- (tclStubsPtr->tcl_MutexFinalize) /* 392 */
- #define Tcl_CreateThread \
- (tclStubsPtr->tcl_CreateThread) /* 393 */
- #define Tcl_ReadRaw \
- (tclStubsPtr->tcl_ReadRaw) /* 394 */
- #define Tcl_WriteRaw \
- (tclStubsPtr->tcl_WriteRaw) /* 395 */
- #define Tcl_GetTopChannel \
- (tclStubsPtr->tcl_GetTopChannel) /* 396 */
- #define Tcl_ChannelBuffered \
- (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
- #define Tcl_ChannelName \
- (tclStubsPtr->tcl_ChannelName) /* 398 */
- #define Tcl_ChannelVersion \
- (tclStubsPtr->tcl_ChannelVersion) /* 399 */
- #define Tcl_ChannelBlockModeProc \
- (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
- #define Tcl_ChannelCloseProc \
- (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
- #define Tcl_ChannelClose2Proc \
- (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
- #define Tcl_ChannelInputProc \
- (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
- #define Tcl_ChannelOutputProc \
- (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
- #define Tcl_ChannelSeekProc \
- (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
- #define Tcl_ChannelSetOptionProc \
- (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
- #define Tcl_ChannelGetOptionProc \
- (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
- #define Tcl_ChannelWatchProc \
- (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
- #define Tcl_ChannelGetHandleProc \
- (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
- #define Tcl_ChannelFlushProc \
- (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
- #define Tcl_ChannelHandlerProc \
- (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
- #define Tcl_JoinThread \
- (tclStubsPtr->tcl_JoinThread) /* 412 */
- #define Tcl_IsChannelShared \
- (tclStubsPtr->tcl_IsChannelShared) /* 413 */
- #define Tcl_IsChannelRegistered \
- (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
- #define Tcl_CutChannel \
- (tclStubsPtr->tcl_CutChannel) /* 415 */
- #define Tcl_SpliceChannel \
- (tclStubsPtr->tcl_SpliceChannel) /* 416 */
- #define Tcl_ClearChannelHandlers \
- (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
- #define Tcl_IsChannelExisting \
- (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
- #define Tcl_UniCharNcasecmp \
- (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
- #define Tcl_UniCharCaseMatch \
- (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
- #define Tcl_FindHashEntry \
- (tclStubsPtr->tcl_FindHashEntry) /* 421 */
- #define Tcl_CreateHashEntry \
- (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
- #define Tcl_InitCustomHashTable \
- (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
- #define Tcl_InitObjHashTable \
- (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
- #define Tcl_CommandTraceInfo \
- (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
- #define Tcl_TraceCommand \
- (tclStubsPtr->tcl_TraceCommand) /* 426 */
- #define Tcl_UntraceCommand \
- (tclStubsPtr->tcl_UntraceCommand) /* 427 */
- #define Tcl_AttemptAlloc \
- (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
- #define Tcl_AttemptDbCkalloc \
- (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
- #define Tcl_AttemptRealloc \
- (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
- #define Tcl_AttemptDbCkrealloc \
- (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
- #define Tcl_AttemptSetObjLength \
- (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
- #define Tcl_GetChannelThread \
- (tclStubsPtr->tcl_GetChannelThread) /* 433 */
- #define Tcl_GetUnicodeFromObj \
- (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
- #define Tcl_GetMathFuncInfo \
- (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
- #define Tcl_ListMathFuncs \
- (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
- #define Tcl_SubstObj \
- (tclStubsPtr->tcl_SubstObj) /* 437 */
- #define Tcl_DetachChannel \
- (tclStubsPtr->tcl_DetachChannel) /* 438 */
- #define Tcl_IsStandardChannel \
- (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
- #define Tcl_FSCopyFile \
- (tclStubsPtr->tcl_FSCopyFile) /* 440 */
- #define Tcl_FSCopyDirectory \
- (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
- #define Tcl_FSCreateDirectory \
- (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
- #define Tcl_FSDeleteFile \
- (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
- #define Tcl_FSLoadFile \
- (tclStubsPtr->tcl_FSLoadFile) /* 444 */
- #define Tcl_FSMatchInDirectory \
- (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
- #define Tcl_FSLink \
- (tclStubsPtr->tcl_FSLink) /* 446 */
- #define Tcl_FSRemoveDirectory \
- (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
- #define Tcl_FSRenameFile \
- (tclStubsPtr->tcl_FSRenameFile) /* 448 */
- #define Tcl_FSLstat \
- (tclStubsPtr->tcl_FSLstat) /* 449 */
- #define Tcl_FSUtime \
- (tclStubsPtr->tcl_FSUtime) /* 450 */
- #define Tcl_FSFileAttrsGet \
- (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
- #define Tcl_FSFileAttrsSet \
- (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
- #define Tcl_FSFileAttrStrings \
- (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
- #define Tcl_FSStat \
- (tclStubsPtr->tcl_FSStat) /* 454 */
- #define Tcl_FSAccess \
- (tclStubsPtr->tcl_FSAccess) /* 455 */
- #define Tcl_FSOpenFileChannel \
- (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
- #define Tcl_FSGetCwd \
- (tclStubsPtr->tcl_FSGetCwd) /* 457 */
- #define Tcl_FSChdir \
- (tclStubsPtr->tcl_FSChdir) /* 458 */
- #define Tcl_FSConvertToPathType \
- (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
- #define Tcl_FSJoinPath \
- (tclStubsPtr->tcl_FSJoinPath) /* 460 */
- #define Tcl_FSSplitPath \
- (tclStubsPtr->tcl_FSSplitPath) /* 461 */
- #define Tcl_FSEqualPaths \
- (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
- #define Tcl_FSGetNormalizedPath \
- (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
- #define Tcl_FSJoinToPath \
- (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
- #define Tcl_FSGetInternalRep \
- (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
- #define Tcl_FSGetTranslatedPath \
- (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
- #define Tcl_FSEvalFile \
- (tclStubsPtr->tcl_FSEvalFile) /* 467 */
- #define Tcl_FSNewNativePath \
- (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
- #define Tcl_FSGetNativePath \
- (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
- #define Tcl_FSFileSystemInfo \
- (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
- #define Tcl_FSPathSeparator \
- (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
- #define Tcl_FSListVolumes \
- (tclStubsPtr->tcl_FSListVolumes) /* 472 */
- #define Tcl_FSRegister \
- (tclStubsPtr->tcl_FSRegister) /* 473 */
- #define Tcl_FSUnregister \
- (tclStubsPtr->tcl_FSUnregister) /* 474 */
- #define Tcl_FSData \
- (tclStubsPtr->tcl_FSData) /* 475 */
- #define Tcl_FSGetTranslatedStringPath \
- (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
- #define Tcl_FSGetFileSystemForPath \
- (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
- #define Tcl_FSGetPathType \
- (tclStubsPtr->tcl_FSGetPathType) /* 478 */
- #define Tcl_OutputBuffered \
- (tclStubsPtr->tcl_OutputBuffered) /* 479 */
- #define Tcl_FSMountsChanged \
- (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
- #define Tcl_EvalTokensStandard \
- (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
- #define Tcl_GetTime \
- (tclStubsPtr->tcl_GetTime) /* 482 */
- #define Tcl_CreateObjTrace \
- (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
- #define Tcl_GetCommandInfoFromToken \
- (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
- #define Tcl_SetCommandInfoFromToken \
- (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
- #define Tcl_DbNewWideIntObj \
- (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
- #define Tcl_GetWideIntFromObj \
- (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
- #define Tcl_NewWideIntObj \
- (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
- #define Tcl_SetWideIntObj \
- (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
- #define Tcl_AllocStatBuf \
- (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
- #define Tcl_Seek \
- (tclStubsPtr->tcl_Seek) /* 491 */
- #define Tcl_Tell \
- (tclStubsPtr->tcl_Tell) /* 492 */
- #define Tcl_ChannelWideSeekProc \
- (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
- #define Tcl_DictObjPut \
- (tclStubsPtr->tcl_DictObjPut) /* 494 */
- #define Tcl_DictObjGet \
- (tclStubsPtr->tcl_DictObjGet) /* 495 */
- #define Tcl_DictObjRemove \
- (tclStubsPtr->tcl_DictObjRemove) /* 496 */
- #define Tcl_DictObjSize \
- (tclStubsPtr->tcl_DictObjSize) /* 497 */
- #define Tcl_DictObjFirst \
- (tclStubsPtr->tcl_DictObjFirst) /* 498 */
- #define Tcl_DictObjNext \
- (tclStubsPtr->tcl_DictObjNext) /* 499 */
- #define Tcl_DictObjDone \
- (tclStubsPtr->tcl_DictObjDone) /* 500 */
- #define Tcl_DictObjPutKeyList \
- (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
- #define Tcl_DictObjRemoveKeyList \
- (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
- #define Tcl_NewDictObj \
- (tclStubsPtr->tcl_NewDictObj) /* 503 */
- #define Tcl_DbNewDictObj \
- (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
- #define Tcl_RegisterConfig \
- (tclStubsPtr->tcl_RegisterConfig) /* 505 */
- #define Tcl_CreateNamespace \
- (tclStubsPtr->tcl_CreateNamespace) /* 506 */
- #define Tcl_DeleteNamespace \
- (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
- #define Tcl_AppendExportList \
- (tclStubsPtr->tcl_AppendExportList) /* 508 */
- #define Tcl_Export \
- (tclStubsPtr->tcl_Export) /* 509 */
- #define Tcl_Import \
- (tclStubsPtr->tcl_Import) /* 510 */
- #define Tcl_ForgetImport \
- (tclStubsPtr->tcl_ForgetImport) /* 511 */
- #define Tcl_GetCurrentNamespace \
- (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
- #define Tcl_GetGlobalNamespace \
- (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
- #define Tcl_FindNamespace \
- (tclStubsPtr->tcl_FindNamespace) /* 514 */
- #define Tcl_FindCommand \
- (tclStubsPtr->tcl_FindCommand) /* 515 */
- #define Tcl_GetCommandFromObj \
- (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
- #define Tcl_GetCommandFullName \
- (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
- #define Tcl_FSEvalFileEx \
- (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
- #define Tcl_SetExitProc \
- (tclStubsPtr->tcl_SetExitProc) /* 519 */
- #define Tcl_LimitAddHandler \
- (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
- #define Tcl_LimitRemoveHandler \
- (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
- #define Tcl_LimitReady \
- (tclStubsPtr->tcl_LimitReady) /* 522 */
- #define Tcl_LimitCheck \
- (tclStubsPtr->tcl_LimitCheck) /* 523 */
- #define Tcl_LimitExceeded \
- (tclStubsPtr->tcl_LimitExceeded) /* 524 */
- #define Tcl_LimitSetCommands \
- (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
- #define Tcl_LimitSetTime \
- (tclStubsPtr->tcl_LimitSetTime) /* 526 */
- #define Tcl_LimitSetGranularity \
- (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
- #define Tcl_LimitTypeEnabled \
- (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
- #define Tcl_LimitTypeExceeded \
- (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
- #define Tcl_LimitTypeSet \
- (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
- #define Tcl_LimitTypeReset \
- (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
- #define Tcl_LimitGetCommands \
- (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
- #define Tcl_LimitGetTime \
- (tclStubsPtr->tcl_LimitGetTime) /* 533 */
- #define Tcl_LimitGetGranularity \
- (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
- #define Tcl_SaveInterpState \
- (tclStubsPtr->tcl_SaveInterpState) /* 535 */
- #define Tcl_RestoreInterpState \
- (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
- #define Tcl_DiscardInterpState \
- (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
- #define Tcl_SetReturnOptions \
- (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
- #define Tcl_GetReturnOptions \
- (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
- #define Tcl_IsEnsemble \
- (tclStubsPtr->tcl_IsEnsemble) /* 540 */
- #define Tcl_CreateEnsemble \
- (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
- #define Tcl_FindEnsemble \
- (tclStubsPtr->tcl_FindEnsemble) /* 542 */
- #define Tcl_SetEnsembleSubcommandList \
- (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
- #define Tcl_SetEnsembleMappingDict \
- (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
- #define Tcl_SetEnsembleUnknownHandler \
- (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
- #define Tcl_SetEnsembleFlags \
- (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
- #define Tcl_GetEnsembleSubcommandList \
- (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
- #define Tcl_GetEnsembleMappingDict \
- (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
- #define Tcl_GetEnsembleUnknownHandler \
- (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
- #define Tcl_GetEnsembleFlags \
- (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
- #define Tcl_GetEnsembleNamespace \
- (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
- #define Tcl_SetTimeProc \
- (tclStubsPtr->tcl_SetTimeProc) /* 552 */
- #define Tcl_QueryTimeProc \
- (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
- #define Tcl_ChannelThreadActionProc \
- (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
- #define Tcl_NewBignumObj \
- (tclStubsPtr->tcl_NewBignumObj) /* 555 */
- #define Tcl_DbNewBignumObj \
- (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
- #define Tcl_SetBignumObj \
- (tclStubsPtr->tcl_SetBignumObj) /* 557 */
- #define Tcl_GetBignumFromObj \
- (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
- #define Tcl_TakeBignumFromObj \
- (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
- #define Tcl_TruncateChannel \
- (tclStubsPtr->tcl_TruncateChannel) /* 560 */
- #define Tcl_ChannelTruncateProc \
- (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
- #define Tcl_SetChannelErrorInterp \
- (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
- #define Tcl_GetChannelErrorInterp \
- (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
- #define Tcl_SetChannelError \
- (tclStubsPtr->tcl_SetChannelError) /* 564 */
- #define Tcl_GetChannelError \
- (tclStubsPtr->tcl_GetChannelError) /* 565 */
- #define Tcl_InitBignumFromDouble \
- (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
- #define Tcl_GetNamespaceUnknownHandler \
- (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
- #define Tcl_SetNamespaceUnknownHandler \
- (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
- #define Tcl_GetEncodingFromObj \
- (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
- #define Tcl_GetEncodingSearchPath \
- (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
- #define Tcl_SetEncodingSearchPath \
- (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
- #define Tcl_GetEncodingNameFromEnvironment \
- (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
- #define Tcl_PkgRequireProc \
- (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
- #define Tcl_AppendObjToErrorInfo \
- (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
- #define Tcl_AppendLimitedToObj \
- (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
- #define Tcl_Format \
- (tclStubsPtr->tcl_Format) /* 576 */
- #define Tcl_AppendFormatToObj \
- (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
- #define Tcl_ObjPrintf \
- (tclStubsPtr->tcl_ObjPrintf) /* 578 */
- #define Tcl_AppendPrintfToObj \
- (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
- #define Tcl_CancelEval \
- (tclStubsPtr->tcl_CancelEval) /* 580 */
- #define Tcl_Canceled \
- (tclStubsPtr->tcl_Canceled) /* 581 */
- #define Tcl_CreatePipe \
- (tclStubsPtr->tcl_CreatePipe) /* 582 */
- #define Tcl_NRCreateCommand \
- (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
- #define Tcl_NREvalObj \
- (tclStubsPtr->tcl_NREvalObj) /* 584 */
- #define Tcl_NREvalObjv \
- (tclStubsPtr->tcl_NREvalObjv) /* 585 */
- #define Tcl_NRCmdSwap \
- (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
- #define Tcl_NRAddCallback \
- (tclStubsPtr->tcl_NRAddCallback) /* 587 */
- #define Tcl_NRCallObjProc \
- (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
- #define Tcl_GetFSDeviceFromStat \
- (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
- #define Tcl_GetFSInodeFromStat \
- (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
- #define Tcl_GetModeFromStat \
- (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
- #define Tcl_GetLinkCountFromStat \
- (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
- #define Tcl_GetUserIdFromStat \
- (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
- #define Tcl_GetGroupIdFromStat \
- (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
- #define Tcl_GetDeviceTypeFromStat \
- (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
- #define Tcl_GetAccessTimeFromStat \
- (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
- #define Tcl_GetModificationTimeFromStat \
- (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
- #define Tcl_GetChangeTimeFromStat \
- (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
- #define Tcl_GetSizeFromStat \
- (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
- #define Tcl_GetBlocksFromStat \
- (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
- #define Tcl_GetBlockSizeFromStat \
- (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
- #define Tcl_SetEnsembleParameterList \
- (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
- #define Tcl_GetEnsembleParameterList \
- (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
- #define Tcl_ParseArgsObjv \
- (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
- #define Tcl_GetErrorLine \
- (tclStubsPtr->tcl_GetErrorLine) /* 605 */
- #define Tcl_SetErrorLine \
- (tclStubsPtr->tcl_SetErrorLine) /* 606 */
- #define Tcl_TransferResult \
- (tclStubsPtr->tcl_TransferResult) /* 607 */
- #define Tcl_InterpActive \
- (tclStubsPtr->tcl_InterpActive) /* 608 */
- #define Tcl_BackgroundException \
- (tclStubsPtr->tcl_BackgroundException) /* 609 */
- #define Tcl_ZlibDeflate \
- (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
- #define Tcl_ZlibInflate \
- (tclStubsPtr->tcl_ZlibInflate) /* 611 */
- #define Tcl_ZlibCRC32 \
- (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
- #define Tcl_ZlibAdler32 \
- (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
- #define Tcl_ZlibStreamInit \
- (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
- #define Tcl_ZlibStreamGetCommandName \
- (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
- #define Tcl_ZlibStreamEof \
- (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
- #define Tcl_ZlibStreamChecksum \
- (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
- #define Tcl_ZlibStreamPut \
- (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
- #define Tcl_ZlibStreamGet \
- (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
- #define Tcl_ZlibStreamClose \
- (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
- #define Tcl_ZlibStreamReset \
- (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
- #define Tcl_SetStartupScript \
- (tclStubsPtr->tcl_SetStartupScript) /* 622 */
- #define Tcl_GetStartupScript \
- (tclStubsPtr->tcl_GetStartupScript) /* 623 */
- #define Tcl_CloseEx \
- (tclStubsPtr->tcl_CloseEx) /* 624 */
- #define Tcl_NRExprObj \
- (tclStubsPtr->tcl_NRExprObj) /* 625 */
- #define Tcl_NRSubstObj \
- (tclStubsPtr->tcl_NRSubstObj) /* 626 */
- #define Tcl_LoadFile \
- (tclStubsPtr->tcl_LoadFile) /* 627 */
- #define Tcl_FindSymbol \
- (tclStubsPtr->tcl_FindSymbol) /* 628 */
- #define Tcl_FSUnloadFile \
- (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
- #define Tcl_ZlibStreamSetCompressionDictionary \
- (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
- /* Slot 631 is reserved */
- /* Slot 632 is reserved */
- /* Slot 633 is reserved */
- /* Slot 634 is reserved */
- /* Slot 635 is reserved */
- /* Slot 636 is reserved */
- /* Slot 637 is reserved */
- /* Slot 638 is reserved */
- /* Slot 639 is reserved */
- /* Slot 640 is reserved */
- /* Slot 641 is reserved */
- /* Slot 642 is reserved */
- /* Slot 643 is reserved */
- /* Slot 644 is reserved */
- /* Slot 645 is reserved */
- /* Slot 646 is reserved */
- /* Slot 647 is reserved */
- /* Slot 648 is reserved */
- /* Slot 649 is reserved */
- /* Slot 650 is reserved */
- /* Slot 651 is reserved */
- /* Slot 652 is reserved */
- /* Slot 653 is reserved */
- /* Slot 654 is reserved */
- /* Slot 655 is reserved */
- /* Slot 656 is reserved */
- /* Slot 657 is reserved */
- /* Slot 658 is reserved */
- /* Slot 659 is reserved */
- #define TclUnusedStubEntry \
- (tclStubsPtr->tclUnusedStubEntry) /* 660 */
- #endif /* defined(USE_TCL_STUBS) */
- /* !END!: Do not edit above this line. */
- #undef TclUnusedStubEntry
- #if defined(USE_TCL_STUBS)
- # undef Tcl_CreateInterp
- # undef Tcl_FindExecutable
- # undef Tcl_GetStringResult
- # undef Tcl_Init
- # undef Tcl_SetPanicProc
- # undef Tcl_SetVar
- # undef Tcl_ObjSetVar2
- # undef Tcl_StaticPackage
- # define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
- # define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
- # define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
- # define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
- # define Tcl_SetVar(interp, varName, newValue, flags) \
- (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
- # define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
- (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
- #endif
- #if defined(_WIN32) && defined(UNICODE)
- # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
- # define Tcl_MainEx Tcl_MainExW
- EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
- Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
- #endif
- #undef TCL_STORAGE_CLASS
- #define TCL_STORAGE_CLASS DLLIMPORT
- #undef Tcl_SeekOld
- #undef Tcl_TellOld
- #undef Tcl_PkgPresent
- #define Tcl_PkgPresent(interp, name, version, exact) \
- Tcl_PkgPresentEx(interp, name, version, exact, NULL)
- #undef Tcl_PkgProvide
- #define Tcl_PkgProvide(interp, name, version) \
- Tcl_PkgProvideEx(interp, name, version, NULL)
- #undef Tcl_PkgRequire
- #define Tcl_PkgRequire(interp, name, version, exact) \
- Tcl_PkgRequireEx(interp, name, version, exact, NULL)
- #undef Tcl_GetIndexFromObj
- #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
- Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
- sizeof(char *), msg, flags, indexPtr)
- #undef Tcl_NewBooleanObj
- #define Tcl_NewBooleanObj(boolValue) \
- Tcl_NewIntObj((boolValue)!=0)
- #undef Tcl_DbNewBooleanObj
- #define Tcl_DbNewBooleanObj(boolValue, file, line) \
- Tcl_DbNewLongObj((boolValue)!=0, file, line)
- #undef Tcl_SetBooleanObj
- #define Tcl_SetBooleanObj(objPtr, boolValue) \
- Tcl_SetIntObj((objPtr), (boolValue)!=0)
- #undef Tcl_SetVar
- #define Tcl_SetVar(interp, varName, newValue, flags) \
- Tcl_SetVar2(interp, varName, NULL, newValue, flags)
- #undef Tcl_UnsetVar
- #define Tcl_UnsetVar(interp, varName, flags) \
- Tcl_UnsetVar2(interp, varName, NULL, flags)
- #undef Tcl_GetVar
- #define Tcl_GetVar(interp, varName, flags) \
- Tcl_GetVar2(interp, varName, NULL, flags)
- #undef Tcl_TraceVar
- #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
- Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
- #undef Tcl_UntraceVar
- #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
- Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
- #undef Tcl_VarTraceInfo
- #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
- Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
- #undef Tcl_UpVar
- #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
- Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
- #if defined(USE_TCL_STUBS)
- # if defined(_WIN32) && defined(_WIN64)
- # undef Tcl_GetTime
- /* Handle Win64 tk.dll being loaded in Cygwin64. */
- # define Tcl_GetTime(t) \
- do { \
- union { \
- Tcl_Time now; \
- __int64 reserved; \
- } _t; \
- _t.reserved = -1; \
- tclStubsPtr->tcl_GetTime((&_t.now)); \
- if (_t.reserved != -1) { \
- _t.now.usec = _t.reserved; \
- } \
- *(t) = _t.now; \
- } while (0)
- # endif
- # if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
- /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
- * we have to make sure that all stub entries on Cygwin64 follow the
- * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
- * entries any more, they should use the 64-bit alternatives where
- * possible. Tcl 9 must find a better solution, but that cannot be done
- * without introducing a binary incompatibility.
- */
- # undef Tcl_DbNewLongObj
- # undef Tcl_GetLongFromObj
- # undef Tcl_NewLongObj
- # undef Tcl_SetLongObj
- # undef Tcl_ExprLong
- # undef Tcl_ExprLongObj
- # undef Tcl_UniCharNcmp
- # undef Tcl_UtfNcmp
- # undef Tcl_UtfNcasecmp
- # undef Tcl_UniCharNcasecmp
- # define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
- # define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
- # define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
- # define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
- # define Tcl_ExprLong TclExprLong
- static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
- int intValue;
- int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
- if (result == TCL_OK) *ptr = (long)intValue;
- return result;
- }
- # define Tcl_ExprLongObj TclExprLongObj
- static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
- int intValue;
- int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
- if (result == TCL_OK) *ptr = (long)intValue;
- return result;
- }
- # define Tcl_UniCharNcmp(ucs,uct,n) \
- ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
- # define Tcl_UtfNcmp(s1,s2,n) \
- ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
- # define Tcl_UtfNcasecmp(s1,s2,n) \
- ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
- # define Tcl_UniCharNcasecmp(ucs,uct,n) \
- ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
- # endif
- #endif
- /*
- * Deprecated Tcl procedures:
- */
- #undef Tcl_EvalObj
- #define Tcl_EvalObj(interp,objPtr) \
- Tcl_EvalObjEx((interp),(objPtr),0)
- #undef Tcl_GlobalEvalObj
- #define Tcl_GlobalEvalObj(interp,objPtr) \
- Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
- #define Tcl_CreateChild Tcl_CreateSlave
- #define Tcl_GetChild Tcl_GetSlave
- #define Tcl_GetParent Tcl_GetMaster
- #endif /* _TCLDECLS */
|