tclDecls.h 169 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955395639573958395939603961396239633964396539663967396839693970397139723973397439753976397739783979398039813982398339843985398639873988398939903991399239933994399539963997399839994000400140024003400440054006400740084009401040114012401340144015401640174018401940204021402240234024402540264027402840294030
  1. /*
  2. * tclDecls.h --
  3. *
  4. * Declarations of functions in the platform independent public Tcl API.
  5. *
  6. * Copyright (c) 1998-1999 by Scriptics Corporation.
  7. *
  8. * See the file "license.terms" for information on usage and redistribution
  9. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10. */
  11. #ifndef _TCLDECLS
  12. #define _TCLDECLS
  13. #undef TCL_STORAGE_CLASS
  14. #ifdef BUILD_tcl
  15. # define TCL_STORAGE_CLASS DLLEXPORT
  16. #else
  17. # ifdef USE_TCL_STUBS
  18. # define TCL_STORAGE_CLASS
  19. # else
  20. # define TCL_STORAGE_CLASS DLLIMPORT
  21. # endif
  22. #endif
  23. /*
  24. * WARNING: This file is automatically generated by the tools/genStubs.tcl
  25. * script. Any modifications to the function declarations below should be made
  26. * in the generic/tcl.decls script.
  27. */
  28. /* !BEGIN!: Do not edit below this line. */
  29. #ifdef __cplusplus
  30. extern "C" {
  31. #endif
  32. /*
  33. * Exported function declarations:
  34. */
  35. /* 0 */
  36. EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
  37. const char *name, const char *version,
  38. const void *clientData);
  39. /* 1 */
  40. EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
  41. const char *name, const char *version,
  42. int exact, void *clientDataPtr);
  43. /* 2 */
  44. EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
  45. /* 3 */
  46. EXTERN char * Tcl_Alloc(unsigned int size);
  47. /* 4 */
  48. EXTERN void Tcl_Free(char *ptr);
  49. /* 5 */
  50. EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
  51. /* 6 */
  52. EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
  53. int line);
  54. /* 7 */
  55. EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line);
  56. /* 8 */
  57. EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
  58. const char *file, int line);
  59. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  60. /* 9 */
  61. EXTERN void Tcl_CreateFileHandler(int fd, int mask,
  62. Tcl_FileProc *proc, ClientData clientData);
  63. #endif /* UNIX */
  64. #ifdef MAC_OSX_TCL /* MACOSX */
  65. /* 9 */
  66. EXTERN void Tcl_CreateFileHandler(int fd, int mask,
  67. Tcl_FileProc *proc, ClientData clientData);
  68. #endif /* MACOSX */
  69. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  70. /* 10 */
  71. EXTERN void Tcl_DeleteFileHandler(int fd);
  72. #endif /* UNIX */
  73. #ifdef MAC_OSX_TCL /* MACOSX */
  74. /* 10 */
  75. EXTERN void Tcl_DeleteFileHandler(int fd);
  76. #endif /* MACOSX */
  77. /* 11 */
  78. EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
  79. /* 12 */
  80. EXTERN void Tcl_Sleep(int ms);
  81. /* 13 */
  82. EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
  83. /* 14 */
  84. EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
  85. Tcl_Obj *objPtr);
  86. /* 15 */
  87. EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
  88. /* 16 */
  89. EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
  90. int length);
  91. /* 17 */
  92. EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
  93. /* 18 */
  94. EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
  95. Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
  96. /* 19 */
  97. EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
  98. int line);
  99. /* 20 */
  100. EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
  101. int line);
  102. /* 21 */
  103. EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
  104. int line);
  105. /* 22 */
  106. EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, const char *file,
  107. int line);
  108. /* 23 */
  109. EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
  110. int length, const char *file, int line);
  111. /* 24 */
  112. EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
  113. const char *file, int line);
  114. /* 25 */
  115. EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
  116. const char *file, int line);
  117. /* 26 */
  118. EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file,
  119. int line);
  120. /* 27 */
  121. EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
  122. /* 28 */
  123. EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length,
  124. const char *file, int line);
  125. /* 29 */
  126. EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
  127. /* 30 */
  128. EXTERN void TclFreeObj(Tcl_Obj *objPtr);
  129. /* 31 */
  130. EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
  131. int *boolPtr);
  132. /* 32 */
  133. EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
  134. Tcl_Obj *objPtr, int *boolPtr);
  135. /* 33 */
  136. EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
  137. int *lengthPtr);
  138. /* 34 */
  139. EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
  140. double *doublePtr);
  141. /* 35 */
  142. EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
  143. Tcl_Obj *objPtr, double *doublePtr);
  144. /* 36 */
  145. EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp,
  146. Tcl_Obj *objPtr,
  147. CONST84 char *const *tablePtr,
  148. const char *msg, int flags, int *indexPtr);
  149. /* 37 */
  150. EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
  151. int *intPtr);
  152. /* 38 */
  153. EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
  154. Tcl_Obj *objPtr, int *intPtr);
  155. /* 39 */
  156. EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
  157. Tcl_Obj *objPtr, long *longPtr);
  158. /* 40 */
  159. EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
  160. /* 41 */
  161. EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
  162. /* 42 */
  163. EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
  164. /* 43 */
  165. EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
  166. Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
  167. /* 44 */
  168. EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
  169. Tcl_Obj *listPtr, Tcl_Obj *objPtr);
  170. /* 45 */
  171. EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
  172. Tcl_Obj *listPtr, int *objcPtr,
  173. Tcl_Obj ***objvPtr);
  174. /* 46 */
  175. EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
  176. Tcl_Obj *listPtr, int index,
  177. Tcl_Obj **objPtrPtr);
  178. /* 47 */
  179. EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
  180. Tcl_Obj *listPtr, int *lengthPtr);
  181. /* 48 */
  182. EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
  183. Tcl_Obj *listPtr, int first, int count,
  184. int objc, Tcl_Obj *const objv[]);
  185. /* 49 */
  186. EXTERN Tcl_Obj * Tcl_NewBooleanObj(int boolValue);
  187. /* 50 */
  188. EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
  189. int length);
  190. /* 51 */
  191. EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
  192. /* 52 */
  193. EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue);
  194. /* 53 */
  195. EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
  196. /* 54 */
  197. EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue);
  198. /* 55 */
  199. EXTERN Tcl_Obj * Tcl_NewObj(void);
  200. /* 56 */
  201. EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length);
  202. /* 57 */
  203. EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue);
  204. /* 58 */
  205. EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length);
  206. /* 59 */
  207. EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
  208. const unsigned char *bytes, int length);
  209. /* 60 */
  210. EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
  211. /* 61 */
  212. EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
  213. /* 62 */
  214. EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
  215. Tcl_Obj *const objv[]);
  216. /* 63 */
  217. EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
  218. /* 64 */
  219. EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
  220. /* 65 */
  221. EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
  222. int length);
  223. /* 66 */
  224. EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp,
  225. const char *message);
  226. /* 67 */
  227. EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp,
  228. const char *message, int length);
  229. /* 68 */
  230. EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
  231. /* 69 */
  232. EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
  233. const char *element);
  234. /* 70 */
  235. EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
  236. /* 71 */
  237. EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
  238. ClientData clientData);
  239. /* 72 */
  240. EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
  241. /* 73 */
  242. EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
  243. /* 74 */
  244. EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
  245. /* 75 */
  246. EXTERN int Tcl_AsyncReady(void);
  247. /* 76 */
  248. EXTERN void Tcl_BackgroundError(Tcl_Interp *interp);
  249. /* 77 */
  250. EXTERN char Tcl_Backslash(const char *src, int *readPtr);
  251. /* 78 */
  252. EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
  253. const char *optionName,
  254. const char *optionList);
  255. /* 79 */
  256. EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
  257. Tcl_InterpDeleteProc *proc,
  258. ClientData clientData);
  259. /* 80 */
  260. EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
  261. ClientData clientData);
  262. /* 81 */
  263. EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
  264. /* 82 */
  265. EXTERN int Tcl_CommandComplete(const char *cmd);
  266. /* 83 */
  267. EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv);
  268. /* 84 */
  269. EXTERN int Tcl_ConvertElement(const char *src, char *dst,
  270. int flags);
  271. /* 85 */
  272. EXTERN int Tcl_ConvertCountedElement(const char *src,
  273. int length, char *dst, int flags);
  274. /* 86 */
  275. EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
  276. const char *childCmd, Tcl_Interp *target,
  277. const char *targetCmd, int argc,
  278. CONST84 char *const *argv);
  279. /* 87 */
  280. EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
  281. const char *childCmd, Tcl_Interp *target,
  282. const char *targetCmd, int objc,
  283. Tcl_Obj *const objv[]);
  284. /* 88 */
  285. EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
  286. const char *chanName,
  287. ClientData instanceData, int mask);
  288. /* 89 */
  289. EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
  290. Tcl_ChannelProc *proc, ClientData clientData);
  291. /* 90 */
  292. EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
  293. Tcl_CloseProc *proc, ClientData clientData);
  294. /* 91 */
  295. EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
  296. const char *cmdName, Tcl_CmdProc *proc,
  297. ClientData clientData,
  298. Tcl_CmdDeleteProc *deleteProc);
  299. /* 92 */
  300. EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
  301. Tcl_EventCheckProc *checkProc,
  302. ClientData clientData);
  303. /* 93 */
  304. EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
  305. ClientData clientData);
  306. /* 94 */
  307. EXTERN Tcl_Interp * Tcl_CreateInterp(void);
  308. /* 95 */
  309. EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp,
  310. const char *name, int numArgs,
  311. Tcl_ValueType *argTypes, Tcl_MathProc *proc,
  312. ClientData clientData);
  313. /* 96 */
  314. EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
  315. const char *cmdName, Tcl_ObjCmdProc *proc,
  316. ClientData clientData,
  317. Tcl_CmdDeleteProc *deleteProc);
  318. /* 97 */
  319. EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name,
  320. int isSafe);
  321. /* 98 */
  322. EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
  323. Tcl_TimerProc *proc, ClientData clientData);
  324. /* 99 */
  325. EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
  326. Tcl_CmdTraceProc *proc,
  327. ClientData clientData);
  328. /* 100 */
  329. EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
  330. const char *name);
  331. /* 101 */
  332. EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
  333. Tcl_ChannelProc *proc, ClientData clientData);
  334. /* 102 */
  335. EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
  336. Tcl_CloseProc *proc, ClientData clientData);
  337. /* 103 */
  338. EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
  339. const char *cmdName);
  340. /* 104 */
  341. EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
  342. Tcl_Command command);
  343. /* 105 */
  344. EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
  345. ClientData clientData);
  346. /* 106 */
  347. EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
  348. Tcl_EventCheckProc *checkProc,
  349. ClientData clientData);
  350. /* 107 */
  351. EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
  352. ClientData clientData);
  353. /* 108 */
  354. EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
  355. /* 109 */
  356. EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
  357. /* 110 */
  358. EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
  359. /* 111 */
  360. EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
  361. /* 112 */
  362. EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
  363. /* 113 */
  364. EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
  365. /* 114 */
  366. EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
  367. Tcl_InterpDeleteProc *proc,
  368. ClientData clientData);
  369. /* 115 */
  370. EXTERN int Tcl_DoOneEvent(int flags);
  371. /* 116 */
  372. EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc,
  373. ClientData clientData);
  374. /* 117 */
  375. EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
  376. const char *bytes, int length);
  377. /* 118 */
  378. EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
  379. const char *element);
  380. /* 119 */
  381. EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
  382. /* 120 */
  383. EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
  384. /* 121 */
  385. EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
  386. Tcl_DString *dsPtr);
  387. /* 122 */
  388. EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
  389. /* 123 */
  390. EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
  391. Tcl_DString *dsPtr);
  392. /* 124 */
  393. EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
  394. /* 125 */
  395. EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
  396. /* 126 */
  397. EXTERN int Tcl_Eof(Tcl_Channel chan);
  398. /* 127 */
  399. EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
  400. /* 128 */
  401. EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
  402. /* 129 */
  403. EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script);
  404. /* 130 */
  405. EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
  406. const char *fileName);
  407. /* 131 */
  408. EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
  409. /* 132 */
  410. EXTERN void Tcl_EventuallyFree(ClientData clientData,
  411. Tcl_FreeProc *freeProc);
  412. /* 133 */
  413. EXTERN TCL_NORETURN void Tcl_Exit(int status);
  414. /* 134 */
  415. EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
  416. const char *hiddenCmdToken,
  417. const char *cmdName);
  418. /* 135 */
  419. EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
  420. int *ptr);
  421. /* 136 */
  422. EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
  423. Tcl_Obj *objPtr, int *ptr);
  424. /* 137 */
  425. EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
  426. double *ptr);
  427. /* 138 */
  428. EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
  429. Tcl_Obj *objPtr, double *ptr);
  430. /* 139 */
  431. EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
  432. long *ptr);
  433. /* 140 */
  434. EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  435. long *ptr);
  436. /* 141 */
  437. EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  438. Tcl_Obj **resultPtrPtr);
  439. /* 142 */
  440. EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
  441. /* 143 */
  442. EXTERN void Tcl_Finalize(void);
  443. /* 144 */
  444. EXTERN void Tcl_FindExecutable(const char *argv0);
  445. /* 145 */
  446. EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
  447. Tcl_HashSearch *searchPtr);
  448. /* 146 */
  449. EXTERN int Tcl_Flush(Tcl_Channel chan);
  450. /* 147 */
  451. EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
  452. /* 148 */
  453. EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
  454. const char *childCmd,
  455. Tcl_Interp **targetInterpPtr,
  456. CONST84 char **targetCmdPtr, int *argcPtr,
  457. CONST84 char ***argvPtr);
  458. /* 149 */
  459. EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
  460. const char *childCmd,
  461. Tcl_Interp **targetInterpPtr,
  462. CONST84 char **targetCmdPtr, int *objcPtr,
  463. Tcl_Obj ***objv);
  464. /* 150 */
  465. EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp,
  466. const char *name,
  467. Tcl_InterpDeleteProc **procPtr);
  468. /* 151 */
  469. EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
  470. const char *chanName, int *modePtr);
  471. /* 152 */
  472. EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan);
  473. /* 153 */
  474. EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
  475. ClientData *handlePtr);
  476. /* 154 */
  477. EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan);
  478. /* 155 */
  479. EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
  480. /* 156 */
  481. EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
  482. /* 157 */
  483. EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
  484. Tcl_Channel chan, const char *optionName,
  485. Tcl_DString *dsPtr);
  486. /* 158 */
  487. EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
  488. /* 159 */
  489. EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
  490. const char *cmdName, Tcl_CmdInfo *infoPtr);
  491. /* 160 */
  492. EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
  493. Tcl_Command command);
  494. /* 161 */
  495. EXTERN int Tcl_GetErrno(void);
  496. /* 162 */
  497. EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
  498. /* 163 */
  499. EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
  500. Tcl_Interp *childInterp);
  501. /* 164 */
  502. EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
  503. /* 165 */
  504. EXTERN const char * Tcl_GetNameOfExecutable(void);
  505. /* 166 */
  506. EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
  507. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  508. /* 167 */
  509. EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
  510. const char *chanID, int forWriting,
  511. int checkUsage, ClientData *filePtr);
  512. #endif /* UNIX */
  513. #ifdef MAC_OSX_TCL /* MACOSX */
  514. /* 167 */
  515. EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
  516. const char *chanID, int forWriting,
  517. int checkUsage, ClientData *filePtr);
  518. #endif /* MACOSX */
  519. /* 168 */
  520. EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
  521. /* 169 */
  522. EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
  523. /* 170 */
  524. EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
  525. /* 171 */
  526. EXTERN int Tcl_GetServiceMode(void);
  527. /* 172 */
  528. EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name);
  529. /* 173 */
  530. EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
  531. /* 174 */
  532. EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
  533. /* 175 */
  534. EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
  535. const char *varName, int flags);
  536. /* 176 */
  537. EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
  538. const char *part1, const char *part2,
  539. int flags);
  540. /* 177 */
  541. EXTERN int Tcl_GlobalEval(Tcl_Interp *interp,
  542. const char *command);
  543. /* 178 */
  544. EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp,
  545. Tcl_Obj *objPtr);
  546. /* 179 */
  547. EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
  548. const char *cmdName,
  549. const char *hiddenCmdToken);
  550. /* 180 */
  551. EXTERN int Tcl_Init(Tcl_Interp *interp);
  552. /* 181 */
  553. EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
  554. int keyType);
  555. /* 182 */
  556. EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
  557. /* 183 */
  558. EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
  559. /* 184 */
  560. EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
  561. /* 185 */
  562. EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
  563. /* 186 */
  564. EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv,
  565. Tcl_DString *resultPtr);
  566. /* 187 */
  567. EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
  568. char *addr, int type);
  569. /* Slot 188 is reserved */
  570. /* 189 */
  571. EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode);
  572. /* 190 */
  573. EXTERN int Tcl_MakeSafe(Tcl_Interp *interp);
  574. /* 191 */
  575. EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket);
  576. /* 192 */
  577. EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv);
  578. /* 193 */
  579. EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
  580. /* 194 */
  581. EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
  582. /* 195 */
  583. EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
  584. Tcl_Obj *part2Ptr, int flags);
  585. /* 196 */
  586. EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
  587. Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
  588. int flags);
  589. /* 197 */
  590. EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
  591. CONST84 char **argv, int flags);
  592. /* 198 */
  593. EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
  594. const char *fileName, const char *modeString,
  595. int permissions);
  596. /* 199 */
  597. EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
  598. const char *address, const char *myaddr,
  599. int myport, int async);
  600. /* 200 */
  601. EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
  602. const char *host,
  603. Tcl_TcpAcceptProc *acceptProc,
  604. ClientData callbackData);
  605. /* 201 */
  606. EXTERN void Tcl_Preserve(ClientData data);
  607. /* 202 */
  608. EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
  609. char *dst);
  610. /* 203 */
  611. EXTERN int Tcl_PutEnv(const char *assignment);
  612. /* 204 */
  613. EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
  614. /* 205 */
  615. EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr,
  616. Tcl_QueuePosition position);
  617. /* 206 */
  618. EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
  619. /* 207 */
  620. EXTERN void Tcl_ReapDetachedProcs(void);
  621. /* 208 */
  622. EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
  623. const char *cmd, int flags);
  624. /* 209 */
  625. EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
  626. Tcl_Obj *cmdPtr, int flags);
  627. /* 210 */
  628. EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
  629. Tcl_Channel chan);
  630. /* 211 */
  631. EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
  632. /* 212 */
  633. EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
  634. const char *pattern);
  635. /* 213 */
  636. EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
  637. const char *text, const char *start);
  638. /* 214 */
  639. EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
  640. const char *pattern);
  641. /* 215 */
  642. EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
  643. CONST84 char **startPtr,
  644. CONST84 char **endPtr);
  645. /* 216 */
  646. EXTERN void Tcl_Release(ClientData clientData);
  647. /* 217 */
  648. EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
  649. /* 218 */
  650. EXTERN int Tcl_ScanElement(const char *src, int *flagPtr);
  651. /* 219 */
  652. EXTERN int Tcl_ScanCountedElement(const char *src, int length,
  653. int *flagPtr);
  654. /* 220 */
  655. EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
  656. /* 221 */
  657. EXTERN int Tcl_ServiceAll(void);
  658. /* 222 */
  659. EXTERN int Tcl_ServiceEvent(int flags);
  660. /* 223 */
  661. EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
  662. const char *name, Tcl_InterpDeleteProc *proc,
  663. ClientData clientData);
  664. /* 224 */
  665. EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
  666. /* 225 */
  667. EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
  668. Tcl_Channel chan, const char *optionName,
  669. const char *newValue);
  670. /* 226 */
  671. EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
  672. const char *cmdName,
  673. const Tcl_CmdInfo *infoPtr);
  674. /* 227 */
  675. EXTERN void Tcl_SetErrno(int err);
  676. /* 228 */
  677. EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
  678. /* 229 */
  679. EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
  680. /* 230 */
  681. EXTERN void Tcl_SetPanicProc(
  682. TCL_NORETURN1 Tcl_PanicProc *panicProc);
  683. /* 231 */
  684. EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
  685. /* 232 */
  686. EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result,
  687. Tcl_FreeProc *freeProc);
  688. /* 233 */
  689. EXTERN int Tcl_SetServiceMode(int mode);
  690. /* 234 */
  691. EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
  692. Tcl_Obj *errorObjPtr);
  693. /* 235 */
  694. EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
  695. Tcl_Obj *resultObjPtr);
  696. /* 236 */
  697. EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
  698. /* 237 */
  699. EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
  700. const char *varName, const char *newValue,
  701. int flags);
  702. /* 238 */
  703. EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
  704. const char *part1, const char *part2,
  705. const char *newValue, int flags);
  706. /* 239 */
  707. EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
  708. /* 240 */
  709. EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
  710. /* 241 */
  711. EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
  712. /* 242 */
  713. EXTERN int Tcl_SplitList(Tcl_Interp *interp,
  714. const char *listStr, int *argcPtr,
  715. CONST84 char ***argvPtr);
  716. /* 243 */
  717. EXTERN void Tcl_SplitPath(const char *path, int *argcPtr,
  718. CONST84 char ***argvPtr);
  719. /* 244 */
  720. EXTERN void Tcl_StaticPackage(Tcl_Interp *interp,
  721. const char *prefix,
  722. Tcl_PackageInitProc *initProc,
  723. Tcl_PackageInitProc *safeInitProc);
  724. /* 245 */
  725. EXTERN int Tcl_StringMatch(const char *str, const char *pattern);
  726. /* 246 */
  727. EXTERN int Tcl_TellOld(Tcl_Channel chan);
  728. /* 247 */
  729. EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
  730. int flags, Tcl_VarTraceProc *proc,
  731. ClientData clientData);
  732. /* 248 */
  733. EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
  734. const char *part2, int flags,
  735. Tcl_VarTraceProc *proc,
  736. ClientData clientData);
  737. /* 249 */
  738. EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
  739. const char *name, Tcl_DString *bufferPtr);
  740. /* 250 */
  741. EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str,
  742. int len, int atHead);
  743. /* 251 */
  744. EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
  745. const char *varName);
  746. /* 252 */
  747. EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
  748. Tcl_Channel chan);
  749. /* 253 */
  750. EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
  751. int flags);
  752. /* 254 */
  753. EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
  754. const char *part2, int flags);
  755. /* 255 */
  756. EXTERN void Tcl_UntraceVar(Tcl_Interp *interp,
  757. const char *varName, int flags,
  758. Tcl_VarTraceProc *proc,
  759. ClientData clientData);
  760. /* 256 */
  761. EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
  762. const char *part1, const char *part2,
  763. int flags, Tcl_VarTraceProc *proc,
  764. ClientData clientData);
  765. /* 257 */
  766. EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
  767. const char *varName);
  768. /* 258 */
  769. EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
  770. const char *varName, const char *localName,
  771. int flags);
  772. /* 259 */
  773. EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
  774. const char *part1, const char *part2,
  775. const char *localName, int flags);
  776. /* 260 */
  777. EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
  778. /* 261 */
  779. EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp,
  780. const char *varName, int flags,
  781. Tcl_VarTraceProc *procPtr,
  782. ClientData prevClientData);
  783. /* 262 */
  784. EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp,
  785. const char *part1, const char *part2,
  786. int flags, Tcl_VarTraceProc *procPtr,
  787. ClientData prevClientData);
  788. /* 263 */
  789. EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen);
  790. /* 264 */
  791. EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
  792. Tcl_Obj *const objv[], const char *message);
  793. /* 265 */
  794. EXTERN int Tcl_DumpActiveMemory(const char *fileName);
  795. /* 266 */
  796. EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
  797. /* 267 */
  798. EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp,
  799. va_list argList);
  800. /* 268 */
  801. EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
  802. va_list argList);
  803. /* 269 */
  804. EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
  805. /* 270 */
  806. EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
  807. const char *start, CONST84 char **termPtr);
  808. /* 271 */
  809. EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
  810. const char *name, const char *version,
  811. int exact);
  812. /* 272 */
  813. EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
  814. const char *name, const char *version,
  815. int exact, void *clientDataPtr);
  816. /* 273 */
  817. EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
  818. const char *version);
  819. /* 274 */
  820. EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
  821. const char *name, const char *version,
  822. int exact);
  823. /* 275 */
  824. EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp,
  825. va_list argList);
  826. /* 276 */
  827. EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
  828. /* 277 */
  829. EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
  830. /* 278 */
  831. EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList);
  832. /* 279 */
  833. EXTERN void Tcl_GetVersion(int *major, int *minor,
  834. int *patchLevel, int *type);
  835. /* 280 */
  836. EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
  837. /* 281 */
  838. EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
  839. const Tcl_ChannelType *typePtr,
  840. ClientData instanceData, int mask,
  841. Tcl_Channel prevChan);
  842. /* 282 */
  843. EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
  844. Tcl_Channel chan);
  845. /* 283 */
  846. EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
  847. /* 284 */
  848. EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
  849. /* Slot 285 is reserved */
  850. /* 286 */
  851. EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
  852. Tcl_Obj *appendObjPtr);
  853. /* 287 */
  854. EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
  855. /* 288 */
  856. EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
  857. ClientData clientData);
  858. /* 289 */
  859. EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
  860. ClientData clientData);
  861. /* 290 */
  862. EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr);
  863. /* 291 */
  864. EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
  865. int numBytes, int flags);
  866. /* 292 */
  867. EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc,
  868. Tcl_Obj *const objv[], int flags);
  869. /* 293 */
  870. EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
  871. int flags);
  872. /* 294 */
  873. EXTERN void Tcl_ExitThread(int status);
  874. /* 295 */
  875. EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
  876. Tcl_Encoding encoding, const char *src,
  877. int srcLen, int flags,
  878. Tcl_EncodingState *statePtr, char *dst,
  879. int dstLen, int *srcReadPtr,
  880. int *dstWrotePtr, int *dstCharsPtr);
  881. /* 296 */
  882. EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
  883. const char *src, int srcLen,
  884. Tcl_DString *dsPtr);
  885. /* 297 */
  886. EXTERN void Tcl_FinalizeThread(void);
  887. /* 298 */
  888. EXTERN void Tcl_FinalizeNotifier(ClientData clientData);
  889. /* 299 */
  890. EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
  891. /* 300 */
  892. EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
  893. /* 301 */
  894. EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
  895. /* 302 */
  896. EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
  897. /* 303 */
  898. EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
  899. /* 304 */
  900. EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
  901. Tcl_Obj *objPtr, const void *tablePtr,
  902. int offset, const char *msg, int flags,
  903. int *indexPtr);
  904. /* 305 */
  905. EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
  906. int size);
  907. /* 306 */
  908. EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
  909. const char *part2, int flags);
  910. /* 307 */
  911. EXTERN ClientData Tcl_InitNotifier(void);
  912. /* 308 */
  913. EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
  914. /* 309 */
  915. EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
  916. /* 310 */
  917. EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
  918. /* 311 */
  919. EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
  920. Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
  921. /* 312 */
  922. EXTERN int Tcl_NumUtfChars(const char *src, int length);
  923. /* 313 */
  924. EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
  925. int charsToRead, int appendFlag);
  926. /* 314 */
  927. EXTERN void Tcl_RestoreResult(Tcl_Interp *interp,
  928. Tcl_SavedResult *statePtr);
  929. /* 315 */
  930. EXTERN void Tcl_SaveResult(Tcl_Interp *interp,
  931. Tcl_SavedResult *statePtr);
  932. /* 316 */
  933. EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
  934. const char *name);
  935. /* 317 */
  936. EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
  937. const char *part2, Tcl_Obj *newValuePtr,
  938. int flags);
  939. /* 318 */
  940. EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
  941. /* 319 */
  942. EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
  943. Tcl_Event *evPtr, Tcl_QueuePosition position);
  944. /* 320 */
  945. EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index);
  946. /* 321 */
  947. EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch);
  948. /* 322 */
  949. EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch);
  950. /* 323 */
  951. EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch);
  952. /* 324 */
  953. EXTERN int Tcl_UniCharToUtf(int ch, char *buf);
  954. /* 325 */
  955. EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
  956. /* 326 */
  957. EXTERN int Tcl_UtfCharComplete(const char *src, int length);
  958. /* 327 */
  959. EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr,
  960. char *dst);
  961. /* 328 */
  962. EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
  963. /* 329 */
  964. EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
  965. /* 330 */
  966. EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
  967. /* 331 */
  968. EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
  969. /* 332 */
  970. EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
  971. Tcl_Encoding encoding, const char *src,
  972. int srcLen, int flags,
  973. Tcl_EncodingState *statePtr, char *dst,
  974. int dstLen, int *srcReadPtr,
  975. int *dstWrotePtr, int *dstCharsPtr);
  976. /* 333 */
  977. EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
  978. const char *src, int srcLen,
  979. Tcl_DString *dsPtr);
  980. /* 334 */
  981. EXTERN int Tcl_UtfToLower(char *src);
  982. /* 335 */
  983. EXTERN int Tcl_UtfToTitle(char *src);
  984. /* 336 */
  985. EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
  986. /* 337 */
  987. EXTERN int Tcl_UtfToUpper(char *src);
  988. /* 338 */
  989. EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src,
  990. int srcLen);
  991. /* 339 */
  992. EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
  993. /* 340 */
  994. EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
  995. /* 341 */
  996. EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
  997. /* 342 */
  998. EXTERN void Tcl_SetDefaultEncodingDir(const char *path);
  999. /* 343 */
  1000. EXTERN void Tcl_AlertNotifier(ClientData clientData);
  1001. /* 344 */
  1002. EXTERN void Tcl_ServiceModeHook(int mode);
  1003. /* 345 */
  1004. EXTERN int Tcl_UniCharIsAlnum(int ch);
  1005. /* 346 */
  1006. EXTERN int Tcl_UniCharIsAlpha(int ch);
  1007. /* 347 */
  1008. EXTERN int Tcl_UniCharIsDigit(int ch);
  1009. /* 348 */
  1010. EXTERN int Tcl_UniCharIsLower(int ch);
  1011. /* 349 */
  1012. EXTERN int Tcl_UniCharIsSpace(int ch);
  1013. /* 350 */
  1014. EXTERN int Tcl_UniCharIsUpper(int ch);
  1015. /* 351 */
  1016. EXTERN int Tcl_UniCharIsWordChar(int ch);
  1017. /* 352 */
  1018. EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr);
  1019. /* 353 */
  1020. EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
  1021. const Tcl_UniChar *uct,
  1022. unsigned long numChars);
  1023. /* 354 */
  1024. EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
  1025. int uniLength, Tcl_DString *dsPtr);
  1026. /* 355 */
  1027. EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length,
  1028. Tcl_DString *dsPtr);
  1029. /* 356 */
  1030. EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
  1031. Tcl_Obj *patObj, int flags);
  1032. /* 357 */
  1033. EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp,
  1034. Tcl_Token *tokenPtr, int count);
  1035. /* 358 */
  1036. EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
  1037. /* 359 */
  1038. EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
  1039. const char *script, const char *command,
  1040. int length);
  1041. /* 360 */
  1042. EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
  1043. const char *start, int numBytes,
  1044. Tcl_Parse *parsePtr, int append,
  1045. CONST84 char **termPtr);
  1046. /* 361 */
  1047. EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
  1048. const char *start, int numBytes, int nested,
  1049. Tcl_Parse *parsePtr);
  1050. /* 362 */
  1051. EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
  1052. int numBytes, Tcl_Parse *parsePtr);
  1053. /* 363 */
  1054. EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
  1055. const char *start, int numBytes,
  1056. Tcl_Parse *parsePtr, int append,
  1057. CONST84 char **termPtr);
  1058. /* 364 */
  1059. EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
  1060. const char *start, int numBytes,
  1061. Tcl_Parse *parsePtr, int append);
  1062. /* 365 */
  1063. EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
  1064. /* 366 */
  1065. EXTERN int Tcl_Chdir(const char *dirName);
  1066. /* 367 */
  1067. EXTERN int Tcl_Access(const char *path, int mode);
  1068. /* 368 */
  1069. EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
  1070. /* 369 */
  1071. EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2,
  1072. unsigned long n);
  1073. /* 370 */
  1074. EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
  1075. unsigned long n);
  1076. /* 371 */
  1077. EXTERN int Tcl_StringCaseMatch(const char *str,
  1078. const char *pattern, int nocase);
  1079. /* 372 */
  1080. EXTERN int Tcl_UniCharIsControl(int ch);
  1081. /* 373 */
  1082. EXTERN int Tcl_UniCharIsGraph(int ch);
  1083. /* 374 */
  1084. EXTERN int Tcl_UniCharIsPrint(int ch);
  1085. /* 375 */
  1086. EXTERN int Tcl_UniCharIsPunct(int ch);
  1087. /* 376 */
  1088. EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
  1089. Tcl_RegExp regexp, Tcl_Obj *textObj,
  1090. int offset, int nmatches, int flags);
  1091. /* 377 */
  1092. EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
  1093. Tcl_RegExpInfo *infoPtr);
  1094. /* 378 */
  1095. EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
  1096. int numChars);
  1097. /* 379 */
  1098. EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
  1099. const Tcl_UniChar *unicode, int numChars);
  1100. /* 380 */
  1101. EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr);
  1102. /* 381 */
  1103. EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
  1104. /* 382 */
  1105. EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr);
  1106. /* 383 */
  1107. EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
  1108. /* 384 */
  1109. EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
  1110. const Tcl_UniChar *unicode, int length);
  1111. /* 385 */
  1112. EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
  1113. Tcl_Obj *textObj, Tcl_Obj *patternObj);
  1114. /* 386 */
  1115. EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
  1116. /* 387 */
  1117. EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
  1118. /* 388 */
  1119. EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
  1120. /* 389 */
  1121. EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
  1122. const char *pattern);
  1123. /* 390 */
  1124. EXTERN int Tcl_ProcObjCmd(ClientData clientData,
  1125. Tcl_Interp *interp, int objc,
  1126. Tcl_Obj *const objv[]);
  1127. /* 391 */
  1128. EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
  1129. /* 392 */
  1130. EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
  1131. /* 393 */
  1132. EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
  1133. Tcl_ThreadCreateProc *proc,
  1134. ClientData clientData, int stackSize,
  1135. int flags);
  1136. /* 394 */
  1137. EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst,
  1138. int bytesToRead);
  1139. /* 395 */
  1140. EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src,
  1141. int srcLen);
  1142. /* 396 */
  1143. EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
  1144. /* 397 */
  1145. EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
  1146. /* 398 */
  1147. EXTERN CONST84_RETURN char * Tcl_ChannelName(
  1148. const Tcl_ChannelType *chanTypePtr);
  1149. /* 399 */
  1150. EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
  1151. const Tcl_ChannelType *chanTypePtr);
  1152. /* 400 */
  1153. EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
  1154. const Tcl_ChannelType *chanTypePtr);
  1155. /* 401 */
  1156. EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
  1157. const Tcl_ChannelType *chanTypePtr);
  1158. /* 402 */
  1159. EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
  1160. const Tcl_ChannelType *chanTypePtr);
  1161. /* 403 */
  1162. EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
  1163. const Tcl_ChannelType *chanTypePtr);
  1164. /* 404 */
  1165. EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
  1166. const Tcl_ChannelType *chanTypePtr);
  1167. /* 405 */
  1168. EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
  1169. const Tcl_ChannelType *chanTypePtr);
  1170. /* 406 */
  1171. EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
  1172. const Tcl_ChannelType *chanTypePtr);
  1173. /* 407 */
  1174. EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
  1175. const Tcl_ChannelType *chanTypePtr);
  1176. /* 408 */
  1177. EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
  1178. const Tcl_ChannelType *chanTypePtr);
  1179. /* 409 */
  1180. EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
  1181. const Tcl_ChannelType *chanTypePtr);
  1182. /* 410 */
  1183. EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
  1184. const Tcl_ChannelType *chanTypePtr);
  1185. /* 411 */
  1186. EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
  1187. const Tcl_ChannelType *chanTypePtr);
  1188. /* 412 */
  1189. EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
  1190. /* 413 */
  1191. EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
  1192. /* 414 */
  1193. EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
  1194. Tcl_Channel channel);
  1195. /* 415 */
  1196. EXTERN void Tcl_CutChannel(Tcl_Channel channel);
  1197. /* 416 */
  1198. EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
  1199. /* 417 */
  1200. EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
  1201. /* 418 */
  1202. EXTERN int Tcl_IsChannelExisting(const char *channelName);
  1203. /* 419 */
  1204. EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
  1205. const Tcl_UniChar *uct,
  1206. unsigned long numChars);
  1207. /* 420 */
  1208. EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
  1209. const Tcl_UniChar *uniPattern, int nocase);
  1210. /* 421 */
  1211. EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
  1212. const void *key);
  1213. /* 422 */
  1214. EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
  1215. const void *key, int *newPtr);
  1216. /* 423 */
  1217. EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
  1218. int keyType, const Tcl_HashKeyType *typePtr);
  1219. /* 424 */
  1220. EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
  1221. /* 425 */
  1222. EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp,
  1223. const char *varName, int flags,
  1224. Tcl_CommandTraceProc *procPtr,
  1225. ClientData prevClientData);
  1226. /* 426 */
  1227. EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
  1228. const char *varName, int flags,
  1229. Tcl_CommandTraceProc *proc,
  1230. ClientData clientData);
  1231. /* 427 */
  1232. EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
  1233. const char *varName, int flags,
  1234. Tcl_CommandTraceProc *proc,
  1235. ClientData clientData);
  1236. /* 428 */
  1237. EXTERN char * Tcl_AttemptAlloc(unsigned int size);
  1238. /* 429 */
  1239. EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size,
  1240. const char *file, int line);
  1241. /* 430 */
  1242. EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size);
  1243. /* 431 */
  1244. EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
  1245. const char *file, int line);
  1246. /* 432 */
  1247. EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length);
  1248. /* 433 */
  1249. EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
  1250. /* 434 */
  1251. EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
  1252. int *lengthPtr);
  1253. /* 435 */
  1254. EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp,
  1255. const char *name, int *numArgsPtr,
  1256. Tcl_ValueType **argTypesPtr,
  1257. Tcl_MathProc **procPtr,
  1258. ClientData *clientDataPtr);
  1259. /* 436 */
  1260. EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp,
  1261. const char *pattern);
  1262. /* 437 */
  1263. EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  1264. int flags);
  1265. /* 438 */
  1266. EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
  1267. Tcl_Channel channel);
  1268. /* 439 */
  1269. EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
  1270. /* 440 */
  1271. EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
  1272. Tcl_Obj *destPathPtr);
  1273. /* 441 */
  1274. EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
  1275. Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
  1276. /* 442 */
  1277. EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
  1278. /* 443 */
  1279. EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
  1280. /* 444 */
  1281. EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
  1282. const char *sym1, const char *sym2,
  1283. Tcl_PackageInitProc **proc1Ptr,
  1284. Tcl_PackageInitProc **proc2Ptr,
  1285. Tcl_LoadHandle *handlePtr,
  1286. Tcl_FSUnloadFileProc **unloadProcPtr);
  1287. /* 445 */
  1288. EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
  1289. Tcl_Obj *result, Tcl_Obj *pathPtr,
  1290. const char *pattern, Tcl_GlobTypeData *types);
  1291. /* 446 */
  1292. EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
  1293. int linkAction);
  1294. /* 447 */
  1295. EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
  1296. int recursive, Tcl_Obj **errorPtr);
  1297. /* 448 */
  1298. EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
  1299. Tcl_Obj *destPathPtr);
  1300. /* 449 */
  1301. EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
  1302. /* 450 */
  1303. EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
  1304. /* 451 */
  1305. EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
  1306. Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
  1307. /* 452 */
  1308. EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
  1309. Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
  1310. /* 453 */
  1311. EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
  1312. Tcl_Obj **objPtrRef);
  1313. /* 454 */
  1314. EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
  1315. /* 455 */
  1316. EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
  1317. /* 456 */
  1318. EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
  1319. Tcl_Obj *pathPtr, const char *modeString,
  1320. int permissions);
  1321. /* 457 */
  1322. EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
  1323. /* 458 */
  1324. EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
  1325. /* 459 */
  1326. EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
  1327. Tcl_Obj *pathPtr);
  1328. /* 460 */
  1329. EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
  1330. /* 461 */
  1331. EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
  1332. /* 462 */
  1333. EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
  1334. Tcl_Obj *secondPtr);
  1335. /* 463 */
  1336. EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
  1337. Tcl_Obj *pathPtr);
  1338. /* 464 */
  1339. EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
  1340. Tcl_Obj *const objv[]);
  1341. /* 465 */
  1342. EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
  1343. const Tcl_Filesystem *fsPtr);
  1344. /* 466 */
  1345. EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
  1346. Tcl_Obj *pathPtr);
  1347. /* 467 */
  1348. EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
  1349. /* 468 */
  1350. EXTERN Tcl_Obj * Tcl_FSNewNativePath(
  1351. const Tcl_Filesystem *fromFilesystem,
  1352. ClientData clientData);
  1353. /* 469 */
  1354. EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
  1355. /* 470 */
  1356. EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
  1357. /* 471 */
  1358. EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
  1359. /* 472 */
  1360. EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
  1361. /* 473 */
  1362. EXTERN int Tcl_FSRegister(ClientData clientData,
  1363. const Tcl_Filesystem *fsPtr);
  1364. /* 474 */
  1365. EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
  1366. /* 475 */
  1367. EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr);
  1368. /* 476 */
  1369. EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
  1370. Tcl_Obj *pathPtr);
  1371. /* 477 */
  1372. EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
  1373. /* 478 */
  1374. EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
  1375. /* 479 */
  1376. EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
  1377. /* 480 */
  1378. EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
  1379. /* 481 */
  1380. EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
  1381. Tcl_Token *tokenPtr, int count);
  1382. /* 482 */
  1383. EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
  1384. /* 483 */
  1385. EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
  1386. int flags, Tcl_CmdObjTraceProc *objProc,
  1387. ClientData clientData,
  1388. Tcl_CmdObjTraceDeleteProc *delProc);
  1389. /* 484 */
  1390. EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
  1391. Tcl_CmdInfo *infoPtr);
  1392. /* 485 */
  1393. EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
  1394. const Tcl_CmdInfo *infoPtr);
  1395. /* 486 */
  1396. EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
  1397. const char *file, int line);
  1398. /* 487 */
  1399. EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
  1400. Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
  1401. /* 488 */
  1402. EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
  1403. /* 489 */
  1404. EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
  1405. Tcl_WideInt wideValue);
  1406. /* 490 */
  1407. EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
  1408. /* 491 */
  1409. EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
  1410. int mode);
  1411. /* 492 */
  1412. EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
  1413. /* 493 */
  1414. EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
  1415. const Tcl_ChannelType *chanTypePtr);
  1416. /* 494 */
  1417. EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
  1418. Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
  1419. /* 495 */
  1420. EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
  1421. Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
  1422. /* 496 */
  1423. EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
  1424. Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
  1425. /* 497 */
  1426. EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
  1427. int *sizePtr);
  1428. /* 498 */
  1429. EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
  1430. Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
  1431. Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
  1432. int *donePtr);
  1433. /* 499 */
  1434. EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
  1435. Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
  1436. int *donePtr);
  1437. /* 500 */
  1438. EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
  1439. /* 501 */
  1440. EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
  1441. Tcl_Obj *dictPtr, int keyc,
  1442. Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
  1443. /* 502 */
  1444. EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
  1445. Tcl_Obj *dictPtr, int keyc,
  1446. Tcl_Obj *const *keyv);
  1447. /* 503 */
  1448. EXTERN Tcl_Obj * Tcl_NewDictObj(void);
  1449. /* 504 */
  1450. EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
  1451. /* 505 */
  1452. EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
  1453. const char *pkgName,
  1454. const Tcl_Config *configuration,
  1455. const char *valEncoding);
  1456. /* 506 */
  1457. EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
  1458. const char *name, ClientData clientData,
  1459. Tcl_NamespaceDeleteProc *deleteProc);
  1460. /* 507 */
  1461. EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
  1462. /* 508 */
  1463. EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
  1464. Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
  1465. /* 509 */
  1466. EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
  1467. const char *pattern, int resetListFirst);
  1468. /* 510 */
  1469. EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
  1470. const char *pattern, int allowOverwrite);
  1471. /* 511 */
  1472. EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
  1473. Tcl_Namespace *nsPtr, const char *pattern);
  1474. /* 512 */
  1475. EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
  1476. /* 513 */
  1477. EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
  1478. /* 514 */
  1479. EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
  1480. const char *name,
  1481. Tcl_Namespace *contextNsPtr, int flags);
  1482. /* 515 */
  1483. EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
  1484. Tcl_Namespace *contextNsPtr, int flags);
  1485. /* 516 */
  1486. EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
  1487. Tcl_Obj *objPtr);
  1488. /* 517 */
  1489. EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
  1490. Tcl_Command command, Tcl_Obj *objPtr);
  1491. /* 518 */
  1492. EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
  1493. Tcl_Obj *fileName, const char *encodingName);
  1494. /* 519 */
  1495. EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc);
  1496. /* 520 */
  1497. EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
  1498. Tcl_LimitHandlerProc *handlerProc,
  1499. ClientData clientData,
  1500. Tcl_LimitHandlerDeleteProc *deleteProc);
  1501. /* 521 */
  1502. EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
  1503. Tcl_LimitHandlerProc *handlerProc,
  1504. ClientData clientData);
  1505. /* 522 */
  1506. EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
  1507. /* 523 */
  1508. EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
  1509. /* 524 */
  1510. EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
  1511. /* 525 */
  1512. EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
  1513. int commandLimit);
  1514. /* 526 */
  1515. EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
  1516. Tcl_Time *timeLimitPtr);
  1517. /* 527 */
  1518. EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
  1519. int granularity);
  1520. /* 528 */
  1521. EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
  1522. /* 529 */
  1523. EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
  1524. /* 530 */
  1525. EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
  1526. /* 531 */
  1527. EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
  1528. /* 532 */
  1529. EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp);
  1530. /* 533 */
  1531. EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
  1532. Tcl_Time *timeLimitPtr);
  1533. /* 534 */
  1534. EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
  1535. /* 535 */
  1536. EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
  1537. /* 536 */
  1538. EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
  1539. Tcl_InterpState state);
  1540. /* 537 */
  1541. EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
  1542. /* 538 */
  1543. EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
  1544. Tcl_Obj *options);
  1545. /* 539 */
  1546. EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
  1547. /* 540 */
  1548. EXTERN int Tcl_IsEnsemble(Tcl_Command token);
  1549. /* 541 */
  1550. EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
  1551. const char *name,
  1552. Tcl_Namespace *namespacePtr, int flags);
  1553. /* 542 */
  1554. EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
  1555. Tcl_Obj *cmdNameObj, int flags);
  1556. /* 543 */
  1557. EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
  1558. Tcl_Command token, Tcl_Obj *subcmdList);
  1559. /* 544 */
  1560. EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
  1561. Tcl_Command token, Tcl_Obj *mapDict);
  1562. /* 545 */
  1563. EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
  1564. Tcl_Command token, Tcl_Obj *unknownList);
  1565. /* 546 */
  1566. EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
  1567. Tcl_Command token, int flags);
  1568. /* 547 */
  1569. EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
  1570. Tcl_Command token, Tcl_Obj **subcmdListPtr);
  1571. /* 548 */
  1572. EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
  1573. Tcl_Command token, Tcl_Obj **mapDictPtr);
  1574. /* 549 */
  1575. EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
  1576. Tcl_Command token, Tcl_Obj **unknownListPtr);
  1577. /* 550 */
  1578. EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
  1579. Tcl_Command token, int *flagsPtr);
  1580. /* 551 */
  1581. EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
  1582. Tcl_Command token,
  1583. Tcl_Namespace **namespacePtrPtr);
  1584. /* 552 */
  1585. EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
  1586. Tcl_ScaleTimeProc *scaleProc,
  1587. ClientData clientData);
  1588. /* 553 */
  1589. EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
  1590. Tcl_ScaleTimeProc **scaleProc,
  1591. ClientData *clientData);
  1592. /* 554 */
  1593. EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
  1594. const Tcl_ChannelType *chanTypePtr);
  1595. /* 555 */
  1596. EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value);
  1597. /* 556 */
  1598. EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file,
  1599. int line);
  1600. /* 557 */
  1601. EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
  1602. /* 558 */
  1603. EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
  1604. Tcl_Obj *obj, mp_int *value);
  1605. /* 559 */
  1606. EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
  1607. Tcl_Obj *obj, mp_int *value);
  1608. /* 560 */
  1609. EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
  1610. Tcl_WideInt length);
  1611. /* 561 */
  1612. EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
  1613. const Tcl_ChannelType *chanTypePtr);
  1614. /* 562 */
  1615. EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
  1616. Tcl_Obj *msg);
  1617. /* 563 */
  1618. EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
  1619. Tcl_Obj **msg);
  1620. /* 564 */
  1621. EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
  1622. /* 565 */
  1623. EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
  1624. /* 566 */
  1625. EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
  1626. double initval, mp_int *toInit);
  1627. /* 567 */
  1628. EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
  1629. Tcl_Namespace *nsPtr);
  1630. /* 568 */
  1631. EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
  1632. Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
  1633. /* 569 */
  1634. EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
  1635. Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
  1636. /* 570 */
  1637. EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
  1638. /* 571 */
  1639. EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
  1640. /* 572 */
  1641. EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
  1642. Tcl_DString *bufPtr);
  1643. /* 573 */
  1644. EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
  1645. const char *name, int objc,
  1646. Tcl_Obj *const objv[], void *clientDataPtr);
  1647. /* 574 */
  1648. EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
  1649. Tcl_Obj *objPtr);
  1650. /* 575 */
  1651. EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
  1652. const char *bytes, int length, int limit,
  1653. const char *ellipsis);
  1654. /* 576 */
  1655. EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
  1656. int objc, Tcl_Obj *const objv[]);
  1657. /* 577 */
  1658. EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
  1659. Tcl_Obj *objPtr, const char *format,
  1660. int objc, Tcl_Obj *const objv[]);
  1661. /* 578 */
  1662. EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
  1663. /* 579 */
  1664. EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
  1665. const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
  1666. /* 580 */
  1667. EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
  1668. Tcl_Obj *resultObjPtr, ClientData clientData,
  1669. int flags);
  1670. /* 581 */
  1671. EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
  1672. /* 582 */
  1673. EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
  1674. Tcl_Channel *rchan, Tcl_Channel *wchan,
  1675. int flags);
  1676. /* 583 */
  1677. EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
  1678. const char *cmdName, Tcl_ObjCmdProc *proc,
  1679. Tcl_ObjCmdProc *nreProc,
  1680. ClientData clientData,
  1681. Tcl_CmdDeleteProc *deleteProc);
  1682. /* 584 */
  1683. EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  1684. int flags);
  1685. /* 585 */
  1686. EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
  1687. Tcl_Obj *const objv[], int flags);
  1688. /* 586 */
  1689. EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
  1690. int objc, Tcl_Obj *const objv[], int flags);
  1691. /* 587 */
  1692. EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
  1693. Tcl_NRPostProc *postProcPtr,
  1694. ClientData data0, ClientData data1,
  1695. ClientData data2, ClientData data3);
  1696. /* 588 */
  1697. EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
  1698. Tcl_ObjCmdProc *objProc,
  1699. ClientData clientData, int objc,
  1700. Tcl_Obj *const objv[]);
  1701. /* 589 */
  1702. EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
  1703. /* 590 */
  1704. EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
  1705. /* 591 */
  1706. EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
  1707. /* 592 */
  1708. EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
  1709. /* 593 */
  1710. EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
  1711. /* 594 */
  1712. EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
  1713. /* 595 */
  1714. EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
  1715. /* 596 */
  1716. EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
  1717. /* 597 */
  1718. EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
  1719. const Tcl_StatBuf *statPtr);
  1720. /* 598 */
  1721. EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
  1722. /* 599 */
  1723. EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
  1724. /* 600 */
  1725. EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
  1726. /* 601 */
  1727. EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
  1728. /* 602 */
  1729. EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
  1730. Tcl_Command token, Tcl_Obj *paramList);
  1731. /* 603 */
  1732. EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
  1733. Tcl_Command token, Tcl_Obj **paramListPtr);
  1734. /* 604 */
  1735. EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
  1736. const Tcl_ArgvInfo *argTable, int *objcPtr,
  1737. Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
  1738. /* 605 */
  1739. EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
  1740. /* 606 */
  1741. EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
  1742. /* 607 */
  1743. EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
  1744. int code, Tcl_Interp *targetInterp);
  1745. /* 608 */
  1746. EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
  1747. /* 609 */
  1748. EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
  1749. /* 610 */
  1750. EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
  1751. Tcl_Obj *data, int level,
  1752. Tcl_Obj *gzipHeaderDictObj);
  1753. /* 611 */
  1754. EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
  1755. Tcl_Obj *data, int buffersize,
  1756. Tcl_Obj *gzipHeaderDictObj);
  1757. /* 612 */
  1758. EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
  1759. const unsigned char *buf, int len);
  1760. /* 613 */
  1761. EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
  1762. const unsigned char *buf, int len);
  1763. /* 614 */
  1764. EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
  1765. int format, int level, Tcl_Obj *dictObj,
  1766. Tcl_ZlibStream *zshandle);
  1767. /* 615 */
  1768. EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
  1769. /* 616 */
  1770. EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
  1771. /* 617 */
  1772. EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
  1773. /* 618 */
  1774. EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
  1775. Tcl_Obj *data, int flush);
  1776. /* 619 */
  1777. EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
  1778. Tcl_Obj *data, int count);
  1779. /* 620 */
  1780. EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
  1781. /* 621 */
  1782. EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
  1783. /* 622 */
  1784. EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
  1785. const char *encoding);
  1786. /* 623 */
  1787. EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
  1788. /* 624 */
  1789. EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
  1790. int flags);
  1791. /* 625 */
  1792. EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  1793. Tcl_Obj *resultPtr);
  1794. /* 626 */
  1795. EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
  1796. int flags);
  1797. /* 627 */
  1798. EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
  1799. const char *const symv[], int flags,
  1800. void *procPtrs, Tcl_LoadHandle *handlePtr);
  1801. /* 628 */
  1802. EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
  1803. Tcl_LoadHandle handle, const char *symbol);
  1804. /* 629 */
  1805. EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
  1806. Tcl_LoadHandle handlePtr);
  1807. /* 630 */
  1808. EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
  1809. Tcl_ZlibStream zhandle,
  1810. Tcl_Obj *compressionDictionaryObj);
  1811. /* Slot 631 is reserved */
  1812. /* Slot 632 is reserved */
  1813. /* Slot 633 is reserved */
  1814. /* Slot 634 is reserved */
  1815. /* Slot 635 is reserved */
  1816. /* Slot 636 is reserved */
  1817. /* Slot 637 is reserved */
  1818. /* Slot 638 is reserved */
  1819. /* Slot 639 is reserved */
  1820. /* Slot 640 is reserved */
  1821. /* Slot 641 is reserved */
  1822. /* Slot 642 is reserved */
  1823. /* Slot 643 is reserved */
  1824. /* Slot 644 is reserved */
  1825. /* Slot 645 is reserved */
  1826. /* Slot 646 is reserved */
  1827. /* Slot 647 is reserved */
  1828. /* Slot 648 is reserved */
  1829. /* Slot 649 is reserved */
  1830. /* Slot 650 is reserved */
  1831. /* Slot 651 is reserved */
  1832. /* Slot 652 is reserved */
  1833. /* Slot 653 is reserved */
  1834. /* Slot 654 is reserved */
  1835. /* Slot 655 is reserved */
  1836. /* Slot 656 is reserved */
  1837. /* Slot 657 is reserved */
  1838. /* Slot 658 is reserved */
  1839. /* Slot 659 is reserved */
  1840. /* 660 */
  1841. EXTERN void TclUnusedStubEntry(void);
  1842. typedef struct {
  1843. const struct TclPlatStubs *tclPlatStubs;
  1844. const struct TclIntStubs *tclIntStubs;
  1845. const struct TclIntPlatStubs *tclIntPlatStubs;
  1846. } TclStubHooks;
  1847. typedef struct TclStubs {
  1848. int magic;
  1849. const TclStubHooks *hooks;
  1850. int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
  1851. CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
  1852. TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
  1853. char * (*tcl_Alloc) (unsigned int size); /* 3 */
  1854. void (*tcl_Free) (char *ptr); /* 4 */
  1855. char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
  1856. char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
  1857. void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
  1858. char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
  1859. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  1860. void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
  1861. #endif /* UNIX */
  1862. #if defined(_WIN32) /* WIN */
  1863. void (*reserved9)(void);
  1864. #endif /* WIN */
  1865. #ifdef MAC_OSX_TCL /* MACOSX */
  1866. void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
  1867. #endif /* MACOSX */
  1868. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  1869. void (*tcl_DeleteFileHandler) (int fd); /* 10 */
  1870. #endif /* UNIX */
  1871. #if defined(_WIN32) /* WIN */
  1872. void (*reserved10)(void);
  1873. #endif /* WIN */
  1874. #ifdef MAC_OSX_TCL /* MACOSX */
  1875. void (*tcl_DeleteFileHandler) (int fd); /* 10 */
  1876. #endif /* MACOSX */
  1877. void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
  1878. void (*tcl_Sleep) (int ms); /* 12 */
  1879. int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
  1880. int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
  1881. void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
  1882. void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
  1883. Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
  1884. int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
  1885. void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
  1886. void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
  1887. int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
  1888. Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char *file, int line); /* 22 */
  1889. Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
  1890. Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
  1891. Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
  1892. Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
  1893. Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
  1894. Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
  1895. Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
  1896. void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
  1897. int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *boolPtr); /* 31 */
  1898. int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *boolPtr); /* 32 */
  1899. unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
  1900. int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
  1901. int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
  1902. int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
  1903. int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
  1904. int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
  1905. int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
  1906. CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
  1907. char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
  1908. void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
  1909. int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
  1910. int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
  1911. int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
  1912. int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
  1913. int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
  1914. int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
  1915. Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
  1916. Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
  1917. Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
  1918. Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
  1919. Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
  1920. Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
  1921. Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
  1922. Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
  1923. void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int boolValue); /* 57 */
  1924. unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int length); /* 58 */
  1925. void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int length); /* 59 */
  1926. void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
  1927. void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
  1928. void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
  1929. void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
  1930. void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
  1931. void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
  1932. void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
  1933. void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
  1934. void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
  1935. void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
  1936. void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
  1937. Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
  1938. void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
  1939. int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
  1940. void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
  1941. int (*tcl_AsyncReady) (void); /* 75 */
  1942. void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
  1943. char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
  1944. int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
  1945. void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
  1946. void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
  1947. int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
  1948. int (*tcl_CommandComplete) (const char *cmd); /* 82 */
  1949. char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
  1950. int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
  1951. int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
  1952. int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
  1953. int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
  1954. Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
  1955. void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
  1956. void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
  1957. Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
  1958. void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
  1959. void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
  1960. Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
  1961. void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
  1962. Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
  1963. Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
  1964. Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
  1965. Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
  1966. void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
  1967. void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
  1968. void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
  1969. int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
  1970. int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
  1971. void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
  1972. void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
  1973. void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
  1974. void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
  1975. void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
  1976. void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
  1977. void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
  1978. void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
  1979. void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
  1980. void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
  1981. int (*tcl_DoOneEvent) (int flags); /* 115 */
  1982. void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
  1983. char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
  1984. char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
  1985. void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
  1986. void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
  1987. void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
  1988. void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
  1989. void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
  1990. void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
  1991. void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
  1992. int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
  1993. CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
  1994. CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
  1995. int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
  1996. int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
  1997. int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
  1998. void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
  1999. TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
  2000. int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
  2001. int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
  2002. int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
  2003. int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
  2004. int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
  2005. int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
  2006. int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
  2007. int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
  2008. int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
  2009. void (*tcl_Finalize) (void); /* 143 */
  2010. void (*tcl_FindExecutable) (const char *argv0); /* 144 */
  2011. Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
  2012. int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
  2013. void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
  2014. int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
  2015. int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
  2016. ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
  2017. Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
  2018. int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
  2019. int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
  2020. ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
  2021. int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
  2022. CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
  2023. int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
  2024. CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
  2025. int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
  2026. CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
  2027. int (*tcl_GetErrno) (void); /* 161 */
  2028. CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
  2029. int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
  2030. Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
  2031. const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
  2032. Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
  2033. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  2034. int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
  2035. #endif /* UNIX */
  2036. #if defined(_WIN32) /* WIN */
  2037. void (*reserved167)(void);
  2038. #endif /* WIN */
  2039. #ifdef MAC_OSX_TCL /* MACOSX */
  2040. int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
  2041. #endif /* MACOSX */
  2042. Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
  2043. int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
  2044. int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
  2045. int (*tcl_GetServiceMode) (void); /* 171 */
  2046. Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); /* 172 */
  2047. Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
  2048. CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
  2049. CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
  2050. CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
  2051. int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
  2052. int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
  2053. int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
  2054. int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
  2055. void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
  2056. int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
  2057. int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
  2058. int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
  2059. int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
  2060. char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
  2061. int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
  2062. void (*reserved188)(void);
  2063. Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
  2064. int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
  2065. Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
  2066. char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
  2067. Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
  2068. void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
  2069. Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
  2070. Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
  2071. Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
  2072. Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
  2073. Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int async); /* 199 */
  2074. Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
  2075. void (*tcl_Preserve) (ClientData data); /* 201 */
  2076. void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
  2077. int (*tcl_PutEnv) (const char *assignment); /* 203 */
  2078. CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
  2079. void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
  2080. int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
  2081. void (*tcl_ReapDetachedProcs) (void); /* 207 */
  2082. int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
  2083. int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
  2084. void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
  2085. void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
  2086. Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
  2087. int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
  2088. int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
  2089. void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
  2090. void (*tcl_Release) (ClientData clientData); /* 216 */
  2091. void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
  2092. int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
  2093. int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
  2094. int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
  2095. int (*tcl_ServiceAll) (void); /* 221 */
  2096. int (*tcl_ServiceEvent) (int flags); /* 222 */
  2097. void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
  2098. void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
  2099. int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
  2100. int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
  2101. void (*tcl_SetErrno) (int err); /* 227 */
  2102. void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
  2103. void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
  2104. void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */
  2105. int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
  2106. void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
  2107. int (*tcl_SetServiceMode) (int mode); /* 233 */
  2108. void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
  2109. void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
  2110. void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
  2111. CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
  2112. CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
  2113. CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
  2114. CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
  2115. void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
  2116. int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
  2117. void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
  2118. void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
  2119. int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
  2120. int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
  2121. int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
  2122. int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
  2123. char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
  2124. int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
  2125. void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
  2126. int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
  2127. int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
  2128. int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
  2129. void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
  2130. void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
  2131. void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
  2132. int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
  2133. int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
  2134. int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
  2135. ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
  2136. ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
  2137. int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
  2138. void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
  2139. int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
  2140. void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
  2141. void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
  2142. void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
  2143. char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
  2144. CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
  2145. CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
  2146. CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
  2147. int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
  2148. CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
  2149. void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
  2150. int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
  2151. Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
  2152. TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
  2153. void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
  2154. void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
  2155. Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
  2156. int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
  2157. Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
  2158. void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
  2159. void (*reserved285)(void);
  2160. void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
  2161. Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
  2162. void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
  2163. void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
  2164. void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
  2165. int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
  2166. int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
  2167. int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
  2168. void (*tcl_ExitThread) (int status); /* 294 */
  2169. 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 */
  2170. char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
  2171. void (*tcl_FinalizeThread) (void); /* 297 */
  2172. void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
  2173. void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
  2174. Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
  2175. Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
  2176. CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
  2177. void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
  2178. int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
  2179. void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
  2180. Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
  2181. ClientData (*tcl_InitNotifier) (void); /* 307 */
  2182. void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
  2183. void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
  2184. void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
  2185. void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
  2186. int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
  2187. int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
  2188. void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
  2189. void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
  2190. int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
  2191. Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
  2192. void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
  2193. void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
  2194. Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
  2195. Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
  2196. Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
  2197. Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
  2198. int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
  2199. CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
  2200. int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
  2201. int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
  2202. CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
  2203. CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
  2204. CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
  2205. CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
  2206. 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 */
  2207. char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
  2208. int (*tcl_UtfToLower) (char *src); /* 334 */
  2209. int (*tcl_UtfToTitle) (char *src); /* 335 */
  2210. int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
  2211. int (*tcl_UtfToUpper) (char *src); /* 337 */
  2212. int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
  2213. int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
  2214. char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
  2215. CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
  2216. void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
  2217. void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
  2218. void (*tcl_ServiceModeHook) (int mode); /* 344 */
  2219. int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
  2220. int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
  2221. int (*tcl_UniCharIsDigit) (int ch); /* 347 */
  2222. int (*tcl_UniCharIsLower) (int ch); /* 348 */
  2223. int (*tcl_UniCharIsSpace) (int ch); /* 349 */
  2224. int (*tcl_UniCharIsUpper) (int ch); /* 350 */
  2225. int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
  2226. int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
  2227. int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
  2228. char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
  2229. Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
  2230. Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
  2231. Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
  2232. void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
  2233. void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
  2234. int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
  2235. int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
  2236. int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
  2237. int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
  2238. int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
  2239. char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
  2240. int (*tcl_Chdir) (const char *dirName); /* 366 */
  2241. int (*tcl_Access) (const char *path, int mode); /* 367 */
  2242. int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
  2243. int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
  2244. int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
  2245. int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
  2246. int (*tcl_UniCharIsControl) (int ch); /* 372 */
  2247. int (*tcl_UniCharIsGraph) (int ch); /* 373 */
  2248. int (*tcl_UniCharIsPrint) (int ch); /* 374 */
  2249. int (*tcl_UniCharIsPunct) (int ch); /* 375 */
  2250. int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
  2251. void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
  2252. Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
  2253. void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
  2254. int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
  2255. Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
  2256. Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
  2257. Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
  2258. void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
  2259. int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
  2260. void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
  2261. Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
  2262. int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
  2263. int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
  2264. int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
  2265. void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
  2266. void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
  2267. int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
  2268. int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
  2269. int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
  2270. Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
  2271. int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
  2272. CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
  2273. Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
  2274. Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
  2275. Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
  2276. Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
  2277. Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
  2278. Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
  2279. Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
  2280. Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
  2281. Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
  2282. Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
  2283. Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
  2284. Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
  2285. Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
  2286. int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
  2287. int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
  2288. int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
  2289. void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
  2290. void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
  2291. void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
  2292. int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
  2293. int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
  2294. int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
  2295. Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
  2296. Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
  2297. void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
  2298. void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
  2299. ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
  2300. int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
  2301. void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
  2302. char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
  2303. char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
  2304. char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
  2305. char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
  2306. int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
  2307. Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
  2308. Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
  2309. int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
  2310. Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
  2311. Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
  2312. int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
  2313. int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
  2314. int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
  2315. int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
  2316. int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
  2317. int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
  2318. 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 */
  2319. int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
  2320. Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
  2321. int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
  2322. int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
  2323. int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
  2324. int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
  2325. int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
  2326. int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
  2327. const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
  2328. int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
  2329. int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
  2330. Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
  2331. Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
  2332. int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
  2333. int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
  2334. Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
  2335. Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
  2336. int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
  2337. Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
  2338. Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
  2339. ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
  2340. Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
  2341. int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
  2342. Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
  2343. const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
  2344. Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
  2345. Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
  2346. Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
  2347. int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
  2348. int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
  2349. ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
  2350. const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
  2351. CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
  2352. Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
  2353. int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
  2354. void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
  2355. int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
  2356. void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
  2357. Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
  2358. int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
  2359. int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
  2360. Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
  2361. int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
  2362. Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
  2363. void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
  2364. Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
  2365. Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
  2366. Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
  2367. Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
  2368. int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
  2369. int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
  2370. int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
  2371. int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
  2372. int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
  2373. void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
  2374. void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
  2375. int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
  2376. int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
  2377. Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
  2378. Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
  2379. void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
  2380. Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
  2381. void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
  2382. int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
  2383. int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
  2384. int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
  2385. int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
  2386. Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
  2387. Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
  2388. Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
  2389. Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
  2390. Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
  2391. void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
  2392. int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
  2393. Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */
  2394. void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
  2395. void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
  2396. int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
  2397. int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
  2398. int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
  2399. void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
  2400. void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
  2401. void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
  2402. int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
  2403. int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
  2404. void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
  2405. void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
  2406. int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
  2407. void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
  2408. int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
  2409. Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
  2410. int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
  2411. void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
  2412. int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
  2413. Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
  2414. int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
  2415. Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
  2416. Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
  2417. int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
  2418. int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
  2419. int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
  2420. int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
  2421. int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
  2422. int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
  2423. int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
  2424. int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
  2425. int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
  2426. void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
  2427. void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
  2428. Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
  2429. Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
  2430. Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
  2431. void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
  2432. int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
  2433. int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
  2434. int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
  2435. Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
  2436. void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
  2437. void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
  2438. void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
  2439. void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
  2440. int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
  2441. Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
  2442. int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
  2443. int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
  2444. Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
  2445. int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
  2446. const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
  2447. int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
  2448. void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
  2449. void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
  2450. Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
  2451. int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
  2452. Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
  2453. void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
  2454. int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
  2455. int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
  2456. int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
  2457. Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
  2458. int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
  2459. int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
  2460. int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
  2461. void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
  2462. int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
  2463. unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
  2464. unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
  2465. unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
  2466. int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
  2467. int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
  2468. int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
  2469. int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
  2470. Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
  2471. Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
  2472. Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
  2473. Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
  2474. Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
  2475. unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
  2476. int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
  2477. int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
  2478. int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
  2479. int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
  2480. void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
  2481. void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
  2482. int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
  2483. void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
  2484. int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
  2485. int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
  2486. unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
  2487. unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
  2488. int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
  2489. Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
  2490. int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
  2491. int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
  2492. int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
  2493. int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
  2494. int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
  2495. int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
  2496. void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
  2497. Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
  2498. int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
  2499. int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
  2500. int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
  2501. int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
  2502. void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
  2503. int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
  2504. void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
  2505. void (*reserved631)(void);
  2506. void (*reserved632)(void);
  2507. void (*reserved633)(void);
  2508. void (*reserved634)(void);
  2509. void (*reserved635)(void);
  2510. void (*reserved636)(void);
  2511. void (*reserved637)(void);
  2512. void (*reserved638)(void);
  2513. void (*reserved639)(void);
  2514. void (*reserved640)(void);
  2515. void (*reserved641)(void);
  2516. void (*reserved642)(void);
  2517. void (*reserved643)(void);
  2518. void (*reserved644)(void);
  2519. void (*reserved645)(void);
  2520. void (*reserved646)(void);
  2521. void (*reserved647)(void);
  2522. void (*reserved648)(void);
  2523. void (*reserved649)(void);
  2524. void (*reserved650)(void);
  2525. void (*reserved651)(void);
  2526. void (*reserved652)(void);
  2527. void (*reserved653)(void);
  2528. void (*reserved654)(void);
  2529. void (*reserved655)(void);
  2530. void (*reserved656)(void);
  2531. void (*reserved657)(void);
  2532. void (*reserved658)(void);
  2533. void (*reserved659)(void);
  2534. void (*tclUnusedStubEntry) (void); /* 660 */
  2535. } TclStubs;
  2536. extern const TclStubs *tclStubsPtr;
  2537. #ifdef __cplusplus
  2538. }
  2539. #endif
  2540. #if defined(USE_TCL_STUBS)
  2541. /*
  2542. * Inline function declarations:
  2543. */
  2544. #define Tcl_PkgProvideEx \
  2545. (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
  2546. #define Tcl_PkgRequireEx \
  2547. (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
  2548. #define Tcl_Panic \
  2549. (tclStubsPtr->tcl_Panic) /* 2 */
  2550. #define Tcl_Alloc \
  2551. (tclStubsPtr->tcl_Alloc) /* 3 */
  2552. #define Tcl_Free \
  2553. (tclStubsPtr->tcl_Free) /* 4 */
  2554. #define Tcl_Realloc \
  2555. (tclStubsPtr->tcl_Realloc) /* 5 */
  2556. #define Tcl_DbCkalloc \
  2557. (tclStubsPtr->tcl_DbCkalloc) /* 6 */
  2558. #define Tcl_DbCkfree \
  2559. (tclStubsPtr->tcl_DbCkfree) /* 7 */
  2560. #define Tcl_DbCkrealloc \
  2561. (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
  2562. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  2563. #define Tcl_CreateFileHandler \
  2564. (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
  2565. #endif /* UNIX */
  2566. #ifdef MAC_OSX_TCL /* MACOSX */
  2567. #define Tcl_CreateFileHandler \
  2568. (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
  2569. #endif /* MACOSX */
  2570. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  2571. #define Tcl_DeleteFileHandler \
  2572. (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
  2573. #endif /* UNIX */
  2574. #ifdef MAC_OSX_TCL /* MACOSX */
  2575. #define Tcl_DeleteFileHandler \
  2576. (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
  2577. #endif /* MACOSX */
  2578. #define Tcl_SetTimer \
  2579. (tclStubsPtr->tcl_SetTimer) /* 11 */
  2580. #define Tcl_Sleep \
  2581. (tclStubsPtr->tcl_Sleep) /* 12 */
  2582. #define Tcl_WaitForEvent \
  2583. (tclStubsPtr->tcl_WaitForEvent) /* 13 */
  2584. #define Tcl_AppendAllObjTypes \
  2585. (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
  2586. #define Tcl_AppendStringsToObj \
  2587. (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
  2588. #define Tcl_AppendToObj \
  2589. (tclStubsPtr->tcl_AppendToObj) /* 16 */
  2590. #define Tcl_ConcatObj \
  2591. (tclStubsPtr->tcl_ConcatObj) /* 17 */
  2592. #define Tcl_ConvertToType \
  2593. (tclStubsPtr->tcl_ConvertToType) /* 18 */
  2594. #define Tcl_DbDecrRefCount \
  2595. (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
  2596. #define Tcl_DbIncrRefCount \
  2597. (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
  2598. #define Tcl_DbIsShared \
  2599. (tclStubsPtr->tcl_DbIsShared) /* 21 */
  2600. #define Tcl_DbNewBooleanObj \
  2601. (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
  2602. #define Tcl_DbNewByteArrayObj \
  2603. (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
  2604. #define Tcl_DbNewDoubleObj \
  2605. (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
  2606. #define Tcl_DbNewListObj \
  2607. (tclStubsPtr->tcl_DbNewListObj) /* 25 */
  2608. #define Tcl_DbNewLongObj \
  2609. (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
  2610. #define Tcl_DbNewObj \
  2611. (tclStubsPtr->tcl_DbNewObj) /* 27 */
  2612. #define Tcl_DbNewStringObj \
  2613. (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
  2614. #define Tcl_DuplicateObj \
  2615. (tclStubsPtr->tcl_DuplicateObj) /* 29 */
  2616. #define TclFreeObj \
  2617. (tclStubsPtr->tclFreeObj) /* 30 */
  2618. #define Tcl_GetBoolean \
  2619. (tclStubsPtr->tcl_GetBoolean) /* 31 */
  2620. #define Tcl_GetBooleanFromObj \
  2621. (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
  2622. #define Tcl_GetByteArrayFromObj \
  2623. (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
  2624. #define Tcl_GetDouble \
  2625. (tclStubsPtr->tcl_GetDouble) /* 34 */
  2626. #define Tcl_GetDoubleFromObj \
  2627. (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
  2628. #define Tcl_GetIndexFromObj \
  2629. (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
  2630. #define Tcl_GetInt \
  2631. (tclStubsPtr->tcl_GetInt) /* 37 */
  2632. #define Tcl_GetIntFromObj \
  2633. (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
  2634. #define Tcl_GetLongFromObj \
  2635. (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
  2636. #define Tcl_GetObjType \
  2637. (tclStubsPtr->tcl_GetObjType) /* 40 */
  2638. #define Tcl_GetStringFromObj \
  2639. (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
  2640. #define Tcl_InvalidateStringRep \
  2641. (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
  2642. #define Tcl_ListObjAppendList \
  2643. (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
  2644. #define Tcl_ListObjAppendElement \
  2645. (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
  2646. #define Tcl_ListObjGetElements \
  2647. (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
  2648. #define Tcl_ListObjIndex \
  2649. (tclStubsPtr->tcl_ListObjIndex) /* 46 */
  2650. #define Tcl_ListObjLength \
  2651. (tclStubsPtr->tcl_ListObjLength) /* 47 */
  2652. #define Tcl_ListObjReplace \
  2653. (tclStubsPtr->tcl_ListObjReplace) /* 48 */
  2654. #define Tcl_NewBooleanObj \
  2655. (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
  2656. #define Tcl_NewByteArrayObj \
  2657. (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
  2658. #define Tcl_NewDoubleObj \
  2659. (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
  2660. #define Tcl_NewIntObj \
  2661. (tclStubsPtr->tcl_NewIntObj) /* 52 */
  2662. #define Tcl_NewListObj \
  2663. (tclStubsPtr->tcl_NewListObj) /* 53 */
  2664. #define Tcl_NewLongObj \
  2665. (tclStubsPtr->tcl_NewLongObj) /* 54 */
  2666. #define Tcl_NewObj \
  2667. (tclStubsPtr->tcl_NewObj) /* 55 */
  2668. #define Tcl_NewStringObj \
  2669. (tclStubsPtr->tcl_NewStringObj) /* 56 */
  2670. #define Tcl_SetBooleanObj \
  2671. (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
  2672. #define Tcl_SetByteArrayLength \
  2673. (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
  2674. #define Tcl_SetByteArrayObj \
  2675. (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
  2676. #define Tcl_SetDoubleObj \
  2677. (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
  2678. #define Tcl_SetIntObj \
  2679. (tclStubsPtr->tcl_SetIntObj) /* 61 */
  2680. #define Tcl_SetListObj \
  2681. (tclStubsPtr->tcl_SetListObj) /* 62 */
  2682. #define Tcl_SetLongObj \
  2683. (tclStubsPtr->tcl_SetLongObj) /* 63 */
  2684. #define Tcl_SetObjLength \
  2685. (tclStubsPtr->tcl_SetObjLength) /* 64 */
  2686. #define Tcl_SetStringObj \
  2687. (tclStubsPtr->tcl_SetStringObj) /* 65 */
  2688. #define Tcl_AddErrorInfo \
  2689. (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
  2690. #define Tcl_AddObjErrorInfo \
  2691. (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
  2692. #define Tcl_AllowExceptions \
  2693. (tclStubsPtr->tcl_AllowExceptions) /* 68 */
  2694. #define Tcl_AppendElement \
  2695. (tclStubsPtr->tcl_AppendElement) /* 69 */
  2696. #define Tcl_AppendResult \
  2697. (tclStubsPtr->tcl_AppendResult) /* 70 */
  2698. #define Tcl_AsyncCreate \
  2699. (tclStubsPtr->tcl_AsyncCreate) /* 71 */
  2700. #define Tcl_AsyncDelete \
  2701. (tclStubsPtr->tcl_AsyncDelete) /* 72 */
  2702. #define Tcl_AsyncInvoke \
  2703. (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
  2704. #define Tcl_AsyncMark \
  2705. (tclStubsPtr->tcl_AsyncMark) /* 74 */
  2706. #define Tcl_AsyncReady \
  2707. (tclStubsPtr->tcl_AsyncReady) /* 75 */
  2708. #define Tcl_BackgroundError \
  2709. (tclStubsPtr->tcl_BackgroundError) /* 76 */
  2710. #define Tcl_Backslash \
  2711. (tclStubsPtr->tcl_Backslash) /* 77 */
  2712. #define Tcl_BadChannelOption \
  2713. (tclStubsPtr->tcl_BadChannelOption) /* 78 */
  2714. #define Tcl_CallWhenDeleted \
  2715. (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
  2716. #define Tcl_CancelIdleCall \
  2717. (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
  2718. #define Tcl_Close \
  2719. (tclStubsPtr->tcl_Close) /* 81 */
  2720. #define Tcl_CommandComplete \
  2721. (tclStubsPtr->tcl_CommandComplete) /* 82 */
  2722. #define Tcl_Concat \
  2723. (tclStubsPtr->tcl_Concat) /* 83 */
  2724. #define Tcl_ConvertElement \
  2725. (tclStubsPtr->tcl_ConvertElement) /* 84 */
  2726. #define Tcl_ConvertCountedElement \
  2727. (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
  2728. #define Tcl_CreateAlias \
  2729. (tclStubsPtr->tcl_CreateAlias) /* 86 */
  2730. #define Tcl_CreateAliasObj \
  2731. (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
  2732. #define Tcl_CreateChannel \
  2733. (tclStubsPtr->tcl_CreateChannel) /* 88 */
  2734. #define Tcl_CreateChannelHandler \
  2735. (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
  2736. #define Tcl_CreateCloseHandler \
  2737. (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
  2738. #define Tcl_CreateCommand \
  2739. (tclStubsPtr->tcl_CreateCommand) /* 91 */
  2740. #define Tcl_CreateEventSource \
  2741. (tclStubsPtr->tcl_CreateEventSource) /* 92 */
  2742. #define Tcl_CreateExitHandler \
  2743. (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
  2744. #define Tcl_CreateInterp \
  2745. (tclStubsPtr->tcl_CreateInterp) /* 94 */
  2746. #define Tcl_CreateMathFunc \
  2747. (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
  2748. #define Tcl_CreateObjCommand \
  2749. (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
  2750. #define Tcl_CreateSlave \
  2751. (tclStubsPtr->tcl_CreateSlave) /* 97 */
  2752. #define Tcl_CreateTimerHandler \
  2753. (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
  2754. #define Tcl_CreateTrace \
  2755. (tclStubsPtr->tcl_CreateTrace) /* 99 */
  2756. #define Tcl_DeleteAssocData \
  2757. (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
  2758. #define Tcl_DeleteChannelHandler \
  2759. (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
  2760. #define Tcl_DeleteCloseHandler \
  2761. (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
  2762. #define Tcl_DeleteCommand \
  2763. (tclStubsPtr->tcl_DeleteCommand) /* 103 */
  2764. #define Tcl_DeleteCommandFromToken \
  2765. (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
  2766. #define Tcl_DeleteEvents \
  2767. (tclStubsPtr->tcl_DeleteEvents) /* 105 */
  2768. #define Tcl_DeleteEventSource \
  2769. (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
  2770. #define Tcl_DeleteExitHandler \
  2771. (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
  2772. #define Tcl_DeleteHashEntry \
  2773. (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
  2774. #define Tcl_DeleteHashTable \
  2775. (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
  2776. #define Tcl_DeleteInterp \
  2777. (tclStubsPtr->tcl_DeleteInterp) /* 110 */
  2778. #define Tcl_DetachPids \
  2779. (tclStubsPtr->tcl_DetachPids) /* 111 */
  2780. #define Tcl_DeleteTimerHandler \
  2781. (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
  2782. #define Tcl_DeleteTrace \
  2783. (tclStubsPtr->tcl_DeleteTrace) /* 113 */
  2784. #define Tcl_DontCallWhenDeleted \
  2785. (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
  2786. #define Tcl_DoOneEvent \
  2787. (tclStubsPtr->tcl_DoOneEvent) /* 115 */
  2788. #define Tcl_DoWhenIdle \
  2789. (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
  2790. #define Tcl_DStringAppend \
  2791. (tclStubsPtr->tcl_DStringAppend) /* 117 */
  2792. #define Tcl_DStringAppendElement \
  2793. (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
  2794. #define Tcl_DStringEndSublist \
  2795. (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
  2796. #define Tcl_DStringFree \
  2797. (tclStubsPtr->tcl_DStringFree) /* 120 */
  2798. #define Tcl_DStringGetResult \
  2799. (tclStubsPtr->tcl_DStringGetResult) /* 121 */
  2800. #define Tcl_DStringInit \
  2801. (tclStubsPtr->tcl_DStringInit) /* 122 */
  2802. #define Tcl_DStringResult \
  2803. (tclStubsPtr->tcl_DStringResult) /* 123 */
  2804. #define Tcl_DStringSetLength \
  2805. (tclStubsPtr->tcl_DStringSetLength) /* 124 */
  2806. #define Tcl_DStringStartSublist \
  2807. (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
  2808. #define Tcl_Eof \
  2809. (tclStubsPtr->tcl_Eof) /* 126 */
  2810. #define Tcl_ErrnoId \
  2811. (tclStubsPtr->tcl_ErrnoId) /* 127 */
  2812. #define Tcl_ErrnoMsg \
  2813. (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
  2814. #define Tcl_Eval \
  2815. (tclStubsPtr->tcl_Eval) /* 129 */
  2816. #define Tcl_EvalFile \
  2817. (tclStubsPtr->tcl_EvalFile) /* 130 */
  2818. #define Tcl_EvalObj \
  2819. (tclStubsPtr->tcl_EvalObj) /* 131 */
  2820. #define Tcl_EventuallyFree \
  2821. (tclStubsPtr->tcl_EventuallyFree) /* 132 */
  2822. #define Tcl_Exit \
  2823. (tclStubsPtr->tcl_Exit) /* 133 */
  2824. #define Tcl_ExposeCommand \
  2825. (tclStubsPtr->tcl_ExposeCommand) /* 134 */
  2826. #define Tcl_ExprBoolean \
  2827. (tclStubsPtr->tcl_ExprBoolean) /* 135 */
  2828. #define Tcl_ExprBooleanObj \
  2829. (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
  2830. #define Tcl_ExprDouble \
  2831. (tclStubsPtr->tcl_ExprDouble) /* 137 */
  2832. #define Tcl_ExprDoubleObj \
  2833. (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
  2834. #define Tcl_ExprLong \
  2835. (tclStubsPtr->tcl_ExprLong) /* 139 */
  2836. #define Tcl_ExprLongObj \
  2837. (tclStubsPtr->tcl_ExprLongObj) /* 140 */
  2838. #define Tcl_ExprObj \
  2839. (tclStubsPtr->tcl_ExprObj) /* 141 */
  2840. #define Tcl_ExprString \
  2841. (tclStubsPtr->tcl_ExprString) /* 142 */
  2842. #define Tcl_Finalize \
  2843. (tclStubsPtr->tcl_Finalize) /* 143 */
  2844. #define Tcl_FindExecutable \
  2845. (tclStubsPtr->tcl_FindExecutable) /* 144 */
  2846. #define Tcl_FirstHashEntry \
  2847. (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
  2848. #define Tcl_Flush \
  2849. (tclStubsPtr->tcl_Flush) /* 146 */
  2850. #define Tcl_FreeResult \
  2851. (tclStubsPtr->tcl_FreeResult) /* 147 */
  2852. #define Tcl_GetAlias \
  2853. (tclStubsPtr->tcl_GetAlias) /* 148 */
  2854. #define Tcl_GetAliasObj \
  2855. (tclStubsPtr->tcl_GetAliasObj) /* 149 */
  2856. #define Tcl_GetAssocData \
  2857. (tclStubsPtr->tcl_GetAssocData) /* 150 */
  2858. #define Tcl_GetChannel \
  2859. (tclStubsPtr->tcl_GetChannel) /* 151 */
  2860. #define Tcl_GetChannelBufferSize \
  2861. (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
  2862. #define Tcl_GetChannelHandle \
  2863. (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
  2864. #define Tcl_GetChannelInstanceData \
  2865. (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
  2866. #define Tcl_GetChannelMode \
  2867. (tclStubsPtr->tcl_GetChannelMode) /* 155 */
  2868. #define Tcl_GetChannelName \
  2869. (tclStubsPtr->tcl_GetChannelName) /* 156 */
  2870. #define Tcl_GetChannelOption \
  2871. (tclStubsPtr->tcl_GetChannelOption) /* 157 */
  2872. #define Tcl_GetChannelType \
  2873. (tclStubsPtr->tcl_GetChannelType) /* 158 */
  2874. #define Tcl_GetCommandInfo \
  2875. (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
  2876. #define Tcl_GetCommandName \
  2877. (tclStubsPtr->tcl_GetCommandName) /* 160 */
  2878. #define Tcl_GetErrno \
  2879. (tclStubsPtr->tcl_GetErrno) /* 161 */
  2880. #define Tcl_GetHostName \
  2881. (tclStubsPtr->tcl_GetHostName) /* 162 */
  2882. #define Tcl_GetInterpPath \
  2883. (tclStubsPtr->tcl_GetInterpPath) /* 163 */
  2884. #define Tcl_GetMaster \
  2885. (tclStubsPtr->tcl_GetMaster) /* 164 */
  2886. #define Tcl_GetNameOfExecutable \
  2887. (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
  2888. #define Tcl_GetObjResult \
  2889. (tclStubsPtr->tcl_GetObjResult) /* 166 */
  2890. #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
  2891. #define Tcl_GetOpenFile \
  2892. (tclStubsPtr->tcl_GetOpenFile) /* 167 */
  2893. #endif /* UNIX */
  2894. #ifdef MAC_OSX_TCL /* MACOSX */
  2895. #define Tcl_GetOpenFile \
  2896. (tclStubsPtr->tcl_GetOpenFile) /* 167 */
  2897. #endif /* MACOSX */
  2898. #define Tcl_GetPathType \
  2899. (tclStubsPtr->tcl_GetPathType) /* 168 */
  2900. #define Tcl_Gets \
  2901. (tclStubsPtr->tcl_Gets) /* 169 */
  2902. #define Tcl_GetsObj \
  2903. (tclStubsPtr->tcl_GetsObj) /* 170 */
  2904. #define Tcl_GetServiceMode \
  2905. (tclStubsPtr->tcl_GetServiceMode) /* 171 */
  2906. #define Tcl_GetSlave \
  2907. (tclStubsPtr->tcl_GetSlave) /* 172 */
  2908. #define Tcl_GetStdChannel \
  2909. (tclStubsPtr->tcl_GetStdChannel) /* 173 */
  2910. #define Tcl_GetStringResult \
  2911. (tclStubsPtr->tcl_GetStringResult) /* 174 */
  2912. #define Tcl_GetVar \
  2913. (tclStubsPtr->tcl_GetVar) /* 175 */
  2914. #define Tcl_GetVar2 \
  2915. (tclStubsPtr->tcl_GetVar2) /* 176 */
  2916. #define Tcl_GlobalEval \
  2917. (tclStubsPtr->tcl_GlobalEval) /* 177 */
  2918. #define Tcl_GlobalEvalObj \
  2919. (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
  2920. #define Tcl_HideCommand \
  2921. (tclStubsPtr->tcl_HideCommand) /* 179 */
  2922. #define Tcl_Init \
  2923. (tclStubsPtr->tcl_Init) /* 180 */
  2924. #define Tcl_InitHashTable \
  2925. (tclStubsPtr->tcl_InitHashTable) /* 181 */
  2926. #define Tcl_InputBlocked \
  2927. (tclStubsPtr->tcl_InputBlocked) /* 182 */
  2928. #define Tcl_InputBuffered \
  2929. (tclStubsPtr->tcl_InputBuffered) /* 183 */
  2930. #define Tcl_InterpDeleted \
  2931. (tclStubsPtr->tcl_InterpDeleted) /* 184 */
  2932. #define Tcl_IsSafe \
  2933. (tclStubsPtr->tcl_IsSafe) /* 185 */
  2934. #define Tcl_JoinPath \
  2935. (tclStubsPtr->tcl_JoinPath) /* 186 */
  2936. #define Tcl_LinkVar \
  2937. (tclStubsPtr->tcl_LinkVar) /* 187 */
  2938. /* Slot 188 is reserved */
  2939. #define Tcl_MakeFileChannel \
  2940. (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
  2941. #define Tcl_MakeSafe \
  2942. (tclStubsPtr->tcl_MakeSafe) /* 190 */
  2943. #define Tcl_MakeTcpClientChannel \
  2944. (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
  2945. #define Tcl_Merge \
  2946. (tclStubsPtr->tcl_Merge) /* 192 */
  2947. #define Tcl_NextHashEntry \
  2948. (tclStubsPtr->tcl_NextHashEntry) /* 193 */
  2949. #define Tcl_NotifyChannel \
  2950. (tclStubsPtr->tcl_NotifyChannel) /* 194 */
  2951. #define Tcl_ObjGetVar2 \
  2952. (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
  2953. #define Tcl_ObjSetVar2 \
  2954. (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
  2955. #define Tcl_OpenCommandChannel \
  2956. (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
  2957. #define Tcl_OpenFileChannel \
  2958. (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
  2959. #define Tcl_OpenTcpClient \
  2960. (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
  2961. #define Tcl_OpenTcpServer \
  2962. (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
  2963. #define Tcl_Preserve \
  2964. (tclStubsPtr->tcl_Preserve) /* 201 */
  2965. #define Tcl_PrintDouble \
  2966. (tclStubsPtr->tcl_PrintDouble) /* 202 */
  2967. #define Tcl_PutEnv \
  2968. (tclStubsPtr->tcl_PutEnv) /* 203 */
  2969. #define Tcl_PosixError \
  2970. (tclStubsPtr->tcl_PosixError) /* 204 */
  2971. #define Tcl_QueueEvent \
  2972. (tclStubsPtr->tcl_QueueEvent) /* 205 */
  2973. #define Tcl_Read \
  2974. (tclStubsPtr->tcl_Read) /* 206 */
  2975. #define Tcl_ReapDetachedProcs \
  2976. (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
  2977. #define Tcl_RecordAndEval \
  2978. (tclStubsPtr->tcl_RecordAndEval) /* 208 */
  2979. #define Tcl_RecordAndEvalObj \
  2980. (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
  2981. #define Tcl_RegisterChannel \
  2982. (tclStubsPtr->tcl_RegisterChannel) /* 210 */
  2983. #define Tcl_RegisterObjType \
  2984. (tclStubsPtr->tcl_RegisterObjType) /* 211 */
  2985. #define Tcl_RegExpCompile \
  2986. (tclStubsPtr->tcl_RegExpCompile) /* 212 */
  2987. #define Tcl_RegExpExec \
  2988. (tclStubsPtr->tcl_RegExpExec) /* 213 */
  2989. #define Tcl_RegExpMatch \
  2990. (tclStubsPtr->tcl_RegExpMatch) /* 214 */
  2991. #define Tcl_RegExpRange \
  2992. (tclStubsPtr->tcl_RegExpRange) /* 215 */
  2993. #define Tcl_Release \
  2994. (tclStubsPtr->tcl_Release) /* 216 */
  2995. #define Tcl_ResetResult \
  2996. (tclStubsPtr->tcl_ResetResult) /* 217 */
  2997. #define Tcl_ScanElement \
  2998. (tclStubsPtr->tcl_ScanElement) /* 218 */
  2999. #define Tcl_ScanCountedElement \
  3000. (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
  3001. #define Tcl_SeekOld \
  3002. (tclStubsPtr->tcl_SeekOld) /* 220 */
  3003. #define Tcl_ServiceAll \
  3004. (tclStubsPtr->tcl_ServiceAll) /* 221 */
  3005. #define Tcl_ServiceEvent \
  3006. (tclStubsPtr->tcl_ServiceEvent) /* 222 */
  3007. #define Tcl_SetAssocData \
  3008. (tclStubsPtr->tcl_SetAssocData) /* 223 */
  3009. #define Tcl_SetChannelBufferSize \
  3010. (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
  3011. #define Tcl_SetChannelOption \
  3012. (tclStubsPtr->tcl_SetChannelOption) /* 225 */
  3013. #define Tcl_SetCommandInfo \
  3014. (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
  3015. #define Tcl_SetErrno \
  3016. (tclStubsPtr->tcl_SetErrno) /* 227 */
  3017. #define Tcl_SetErrorCode \
  3018. (tclStubsPtr->tcl_SetErrorCode) /* 228 */
  3019. #define Tcl_SetMaxBlockTime \
  3020. (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
  3021. #define Tcl_SetPanicProc \
  3022. (tclStubsPtr->tcl_SetPanicProc) /* 230 */
  3023. #define Tcl_SetRecursionLimit \
  3024. (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
  3025. #define Tcl_SetResult \
  3026. (tclStubsPtr->tcl_SetResult) /* 232 */
  3027. #define Tcl_SetServiceMode \
  3028. (tclStubsPtr->tcl_SetServiceMode) /* 233 */
  3029. #define Tcl_SetObjErrorCode \
  3030. (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
  3031. #define Tcl_SetObjResult \
  3032. (tclStubsPtr->tcl_SetObjResult) /* 235 */
  3033. #define Tcl_SetStdChannel \
  3034. (tclStubsPtr->tcl_SetStdChannel) /* 236 */
  3035. #define Tcl_SetVar \
  3036. (tclStubsPtr->tcl_SetVar) /* 237 */
  3037. #define Tcl_SetVar2 \
  3038. (tclStubsPtr->tcl_SetVar2) /* 238 */
  3039. #define Tcl_SignalId \
  3040. (tclStubsPtr->tcl_SignalId) /* 239 */
  3041. #define Tcl_SignalMsg \
  3042. (tclStubsPtr->tcl_SignalMsg) /* 240 */
  3043. #define Tcl_SourceRCFile \
  3044. (tclStubsPtr->tcl_SourceRCFile) /* 241 */
  3045. #define Tcl_SplitList \
  3046. (tclStubsPtr->tcl_SplitList) /* 242 */
  3047. #define Tcl_SplitPath \
  3048. (tclStubsPtr->tcl_SplitPath) /* 243 */
  3049. #define Tcl_StaticPackage \
  3050. (tclStubsPtr->tcl_StaticPackage) /* 244 */
  3051. #define Tcl_StringMatch \
  3052. (tclStubsPtr->tcl_StringMatch) /* 245 */
  3053. #define Tcl_TellOld \
  3054. (tclStubsPtr->tcl_TellOld) /* 246 */
  3055. #define Tcl_TraceVar \
  3056. (tclStubsPtr->tcl_TraceVar) /* 247 */
  3057. #define Tcl_TraceVar2 \
  3058. (tclStubsPtr->tcl_TraceVar2) /* 248 */
  3059. #define Tcl_TranslateFileName \
  3060. (tclStubsPtr->tcl_TranslateFileName) /* 249 */
  3061. #define Tcl_Ungets \
  3062. (tclStubsPtr->tcl_Ungets) /* 250 */
  3063. #define Tcl_UnlinkVar \
  3064. (tclStubsPtr->tcl_UnlinkVar) /* 251 */
  3065. #define Tcl_UnregisterChannel \
  3066. (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
  3067. #define Tcl_UnsetVar \
  3068. (tclStubsPtr->tcl_UnsetVar) /* 253 */
  3069. #define Tcl_UnsetVar2 \
  3070. (tclStubsPtr->tcl_UnsetVar2) /* 254 */
  3071. #define Tcl_UntraceVar \
  3072. (tclStubsPtr->tcl_UntraceVar) /* 255 */
  3073. #define Tcl_UntraceVar2 \
  3074. (tclStubsPtr->tcl_UntraceVar2) /* 256 */
  3075. #define Tcl_UpdateLinkedVar \
  3076. (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
  3077. #define Tcl_UpVar \
  3078. (tclStubsPtr->tcl_UpVar) /* 258 */
  3079. #define Tcl_UpVar2 \
  3080. (tclStubsPtr->tcl_UpVar2) /* 259 */
  3081. #define Tcl_VarEval \
  3082. (tclStubsPtr->tcl_VarEval) /* 260 */
  3083. #define Tcl_VarTraceInfo \
  3084. (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
  3085. #define Tcl_VarTraceInfo2 \
  3086. (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
  3087. #define Tcl_Write \
  3088. (tclStubsPtr->tcl_Write) /* 263 */
  3089. #define Tcl_WrongNumArgs \
  3090. (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
  3091. #define Tcl_DumpActiveMemory \
  3092. (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
  3093. #define Tcl_ValidateAllMemory \
  3094. (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
  3095. #define Tcl_AppendResultVA \
  3096. (tclStubsPtr->tcl_AppendResultVA) /* 267 */
  3097. #define Tcl_AppendStringsToObjVA \
  3098. (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
  3099. #define Tcl_HashStats \
  3100. (tclStubsPtr->tcl_HashStats) /* 269 */
  3101. #define Tcl_ParseVar \
  3102. (tclStubsPtr->tcl_ParseVar) /* 270 */
  3103. #define Tcl_PkgPresent \
  3104. (tclStubsPtr->tcl_PkgPresent) /* 271 */
  3105. #define Tcl_PkgPresentEx \
  3106. (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
  3107. #define Tcl_PkgProvide \
  3108. (tclStubsPtr->tcl_PkgProvide) /* 273 */
  3109. #define Tcl_PkgRequire \
  3110. (tclStubsPtr->tcl_PkgRequire) /* 274 */
  3111. #define Tcl_SetErrorCodeVA \
  3112. (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
  3113. #define Tcl_VarEvalVA \
  3114. (tclStubsPtr->tcl_VarEvalVA) /* 276 */
  3115. #define Tcl_WaitPid \
  3116. (tclStubsPtr->tcl_WaitPid) /* 277 */
  3117. #define Tcl_PanicVA \
  3118. (tclStubsPtr->tcl_PanicVA) /* 278 */
  3119. #define Tcl_GetVersion \
  3120. (tclStubsPtr->tcl_GetVersion) /* 279 */
  3121. #define Tcl_InitMemory \
  3122. (tclStubsPtr->tcl_InitMemory) /* 280 */
  3123. #define Tcl_StackChannel \
  3124. (tclStubsPtr->tcl_StackChannel) /* 281 */
  3125. #define Tcl_UnstackChannel \
  3126. (tclStubsPtr->tcl_UnstackChannel) /* 282 */
  3127. #define Tcl_GetStackedChannel \
  3128. (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
  3129. #define Tcl_SetMainLoop \
  3130. (tclStubsPtr->tcl_SetMainLoop) /* 284 */
  3131. /* Slot 285 is reserved */
  3132. #define Tcl_AppendObjToObj \
  3133. (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
  3134. #define Tcl_CreateEncoding \
  3135. (tclStubsPtr->tcl_CreateEncoding) /* 287 */
  3136. #define Tcl_CreateThreadExitHandler \
  3137. (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
  3138. #define Tcl_DeleteThreadExitHandler \
  3139. (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
  3140. #define Tcl_DiscardResult \
  3141. (tclStubsPtr->tcl_DiscardResult) /* 290 */
  3142. #define Tcl_EvalEx \
  3143. (tclStubsPtr->tcl_EvalEx) /* 291 */
  3144. #define Tcl_EvalObjv \
  3145. (tclStubsPtr->tcl_EvalObjv) /* 292 */
  3146. #define Tcl_EvalObjEx \
  3147. (tclStubsPtr->tcl_EvalObjEx) /* 293 */
  3148. #define Tcl_ExitThread \
  3149. (tclStubsPtr->tcl_ExitThread) /* 294 */
  3150. #define Tcl_ExternalToUtf \
  3151. (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
  3152. #define Tcl_ExternalToUtfDString \
  3153. (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
  3154. #define Tcl_FinalizeThread \
  3155. (tclStubsPtr->tcl_FinalizeThread) /* 297 */
  3156. #define Tcl_FinalizeNotifier \
  3157. (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
  3158. #define Tcl_FreeEncoding \
  3159. (tclStubsPtr->tcl_FreeEncoding) /* 299 */
  3160. #define Tcl_GetCurrentThread \
  3161. (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
  3162. #define Tcl_GetEncoding \
  3163. (tclStubsPtr->tcl_GetEncoding) /* 301 */
  3164. #define Tcl_GetEncodingName \
  3165. (tclStubsPtr->tcl_GetEncodingName) /* 302 */
  3166. #define Tcl_GetEncodingNames \
  3167. (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
  3168. #define Tcl_GetIndexFromObjStruct \
  3169. (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
  3170. #define Tcl_GetThreadData \
  3171. (tclStubsPtr->tcl_GetThreadData) /* 305 */
  3172. #define Tcl_GetVar2Ex \
  3173. (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
  3174. #define Tcl_InitNotifier \
  3175. (tclStubsPtr->tcl_InitNotifier) /* 307 */
  3176. #define Tcl_MutexLock \
  3177. (tclStubsPtr->tcl_MutexLock) /* 308 */
  3178. #define Tcl_MutexUnlock \
  3179. (tclStubsPtr->tcl_MutexUnlock) /* 309 */
  3180. #define Tcl_ConditionNotify \
  3181. (tclStubsPtr->tcl_ConditionNotify) /* 310 */
  3182. #define Tcl_ConditionWait \
  3183. (tclStubsPtr->tcl_ConditionWait) /* 311 */
  3184. #define Tcl_NumUtfChars \
  3185. (tclStubsPtr->tcl_NumUtfChars) /* 312 */
  3186. #define Tcl_ReadChars \
  3187. (tclStubsPtr->tcl_ReadChars) /* 313 */
  3188. #define Tcl_RestoreResult \
  3189. (tclStubsPtr->tcl_RestoreResult) /* 314 */
  3190. #define Tcl_SaveResult \
  3191. (tclStubsPtr->tcl_SaveResult) /* 315 */
  3192. #define Tcl_SetSystemEncoding \
  3193. (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
  3194. #define Tcl_SetVar2Ex \
  3195. (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
  3196. #define Tcl_ThreadAlert \
  3197. (tclStubsPtr->tcl_ThreadAlert) /* 318 */
  3198. #define Tcl_ThreadQueueEvent \
  3199. (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
  3200. #define Tcl_UniCharAtIndex \
  3201. (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
  3202. #define Tcl_UniCharToLower \
  3203. (tclStubsPtr->tcl_UniCharToLower) /* 321 */
  3204. #define Tcl_UniCharToTitle \
  3205. (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
  3206. #define Tcl_UniCharToUpper \
  3207. (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
  3208. #define Tcl_UniCharToUtf \
  3209. (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
  3210. #define Tcl_UtfAtIndex \
  3211. (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
  3212. #define Tcl_UtfCharComplete \
  3213. (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
  3214. #define Tcl_UtfBackslash \
  3215. (tclStubsPtr->tcl_UtfBackslash) /* 327 */
  3216. #define Tcl_UtfFindFirst \
  3217. (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
  3218. #define Tcl_UtfFindLast \
  3219. (tclStubsPtr->tcl_UtfFindLast) /* 329 */
  3220. #define Tcl_UtfNext \
  3221. (tclStubsPtr->tcl_UtfNext) /* 330 */
  3222. #define Tcl_UtfPrev \
  3223. (tclStubsPtr->tcl_UtfPrev) /* 331 */
  3224. #define Tcl_UtfToExternal \
  3225. (tclStubsPtr->tcl_UtfToExternal) /* 332 */
  3226. #define Tcl_UtfToExternalDString \
  3227. (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
  3228. #define Tcl_UtfToLower \
  3229. (tclStubsPtr->tcl_UtfToLower) /* 334 */
  3230. #define Tcl_UtfToTitle \
  3231. (tclStubsPtr->tcl_UtfToTitle) /* 335 */
  3232. #define Tcl_UtfToUniChar \
  3233. (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
  3234. #define Tcl_UtfToUpper \
  3235. (tclStubsPtr->tcl_UtfToUpper) /* 337 */
  3236. #define Tcl_WriteChars \
  3237. (tclStubsPtr->tcl_WriteChars) /* 338 */
  3238. #define Tcl_WriteObj \
  3239. (tclStubsPtr->tcl_WriteObj) /* 339 */
  3240. #define Tcl_GetString \
  3241. (tclStubsPtr->tcl_GetString) /* 340 */
  3242. #define Tcl_GetDefaultEncodingDir \
  3243. (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
  3244. #define Tcl_SetDefaultEncodingDir \
  3245. (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
  3246. #define Tcl_AlertNotifier \
  3247. (tclStubsPtr->tcl_AlertNotifier) /* 343 */
  3248. #define Tcl_ServiceModeHook \
  3249. (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
  3250. #define Tcl_UniCharIsAlnum \
  3251. (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
  3252. #define Tcl_UniCharIsAlpha \
  3253. (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
  3254. #define Tcl_UniCharIsDigit \
  3255. (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
  3256. #define Tcl_UniCharIsLower \
  3257. (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
  3258. #define Tcl_UniCharIsSpace \
  3259. (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
  3260. #define Tcl_UniCharIsUpper \
  3261. (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
  3262. #define Tcl_UniCharIsWordChar \
  3263. (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
  3264. #define Tcl_UniCharLen \
  3265. (tclStubsPtr->tcl_UniCharLen) /* 352 */
  3266. #define Tcl_UniCharNcmp \
  3267. (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
  3268. #define Tcl_UniCharToUtfDString \
  3269. (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
  3270. #define Tcl_UtfToUniCharDString \
  3271. (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
  3272. #define Tcl_GetRegExpFromObj \
  3273. (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
  3274. #define Tcl_EvalTokens \
  3275. (tclStubsPtr->tcl_EvalTokens) /* 357 */
  3276. #define Tcl_FreeParse \
  3277. (tclStubsPtr->tcl_FreeParse) /* 358 */
  3278. #define Tcl_LogCommandInfo \
  3279. (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
  3280. #define Tcl_ParseBraces \
  3281. (tclStubsPtr->tcl_ParseBraces) /* 360 */
  3282. #define Tcl_ParseCommand \
  3283. (tclStubsPtr->tcl_ParseCommand) /* 361 */
  3284. #define Tcl_ParseExpr \
  3285. (tclStubsPtr->tcl_ParseExpr) /* 362 */
  3286. #define Tcl_ParseQuotedString \
  3287. (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
  3288. #define Tcl_ParseVarName \
  3289. (tclStubsPtr->tcl_ParseVarName) /* 364 */
  3290. #define Tcl_GetCwd \
  3291. (tclStubsPtr->tcl_GetCwd) /* 365 */
  3292. #define Tcl_Chdir \
  3293. (tclStubsPtr->tcl_Chdir) /* 366 */
  3294. #define Tcl_Access \
  3295. (tclStubsPtr->tcl_Access) /* 367 */
  3296. #define Tcl_Stat \
  3297. (tclStubsPtr->tcl_Stat) /* 368 */
  3298. #define Tcl_UtfNcmp \
  3299. (tclStubsPtr->tcl_UtfNcmp) /* 369 */
  3300. #define Tcl_UtfNcasecmp \
  3301. (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
  3302. #define Tcl_StringCaseMatch \
  3303. (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
  3304. #define Tcl_UniCharIsControl \
  3305. (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
  3306. #define Tcl_UniCharIsGraph \
  3307. (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
  3308. #define Tcl_UniCharIsPrint \
  3309. (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
  3310. #define Tcl_UniCharIsPunct \
  3311. (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
  3312. #define Tcl_RegExpExecObj \
  3313. (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
  3314. #define Tcl_RegExpGetInfo \
  3315. (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
  3316. #define Tcl_NewUnicodeObj \
  3317. (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
  3318. #define Tcl_SetUnicodeObj \
  3319. (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
  3320. #define Tcl_GetCharLength \
  3321. (tclStubsPtr->tcl_GetCharLength) /* 380 */
  3322. #define Tcl_GetUniChar \
  3323. (tclStubsPtr->tcl_GetUniChar) /* 381 */
  3324. #define Tcl_GetUnicode \
  3325. (tclStubsPtr->tcl_GetUnicode) /* 382 */
  3326. #define Tcl_GetRange \
  3327. (tclStubsPtr->tcl_GetRange) /* 383 */
  3328. #define Tcl_AppendUnicodeToObj \
  3329. (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
  3330. #define Tcl_RegExpMatchObj \
  3331. (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
  3332. #define Tcl_SetNotifier \
  3333. (tclStubsPtr->tcl_SetNotifier) /* 386 */
  3334. #define Tcl_GetAllocMutex \
  3335. (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
  3336. #define Tcl_GetChannelNames \
  3337. (tclStubsPtr->tcl_GetChannelNames) /* 388 */
  3338. #define Tcl_GetChannelNamesEx \
  3339. (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
  3340. #define Tcl_ProcObjCmd \
  3341. (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
  3342. #define Tcl_ConditionFinalize \
  3343. (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
  3344. #define Tcl_MutexFinalize \
  3345. (tclStubsPtr->tcl_MutexFinalize) /* 392 */
  3346. #define Tcl_CreateThread \
  3347. (tclStubsPtr->tcl_CreateThread) /* 393 */
  3348. #define Tcl_ReadRaw \
  3349. (tclStubsPtr->tcl_ReadRaw) /* 394 */
  3350. #define Tcl_WriteRaw \
  3351. (tclStubsPtr->tcl_WriteRaw) /* 395 */
  3352. #define Tcl_GetTopChannel \
  3353. (tclStubsPtr->tcl_GetTopChannel) /* 396 */
  3354. #define Tcl_ChannelBuffered \
  3355. (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
  3356. #define Tcl_ChannelName \
  3357. (tclStubsPtr->tcl_ChannelName) /* 398 */
  3358. #define Tcl_ChannelVersion \
  3359. (tclStubsPtr->tcl_ChannelVersion) /* 399 */
  3360. #define Tcl_ChannelBlockModeProc \
  3361. (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
  3362. #define Tcl_ChannelCloseProc \
  3363. (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
  3364. #define Tcl_ChannelClose2Proc \
  3365. (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
  3366. #define Tcl_ChannelInputProc \
  3367. (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
  3368. #define Tcl_ChannelOutputProc \
  3369. (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
  3370. #define Tcl_ChannelSeekProc \
  3371. (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
  3372. #define Tcl_ChannelSetOptionProc \
  3373. (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
  3374. #define Tcl_ChannelGetOptionProc \
  3375. (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
  3376. #define Tcl_ChannelWatchProc \
  3377. (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
  3378. #define Tcl_ChannelGetHandleProc \
  3379. (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
  3380. #define Tcl_ChannelFlushProc \
  3381. (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
  3382. #define Tcl_ChannelHandlerProc \
  3383. (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
  3384. #define Tcl_JoinThread \
  3385. (tclStubsPtr->tcl_JoinThread) /* 412 */
  3386. #define Tcl_IsChannelShared \
  3387. (tclStubsPtr->tcl_IsChannelShared) /* 413 */
  3388. #define Tcl_IsChannelRegistered \
  3389. (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
  3390. #define Tcl_CutChannel \
  3391. (tclStubsPtr->tcl_CutChannel) /* 415 */
  3392. #define Tcl_SpliceChannel \
  3393. (tclStubsPtr->tcl_SpliceChannel) /* 416 */
  3394. #define Tcl_ClearChannelHandlers \
  3395. (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
  3396. #define Tcl_IsChannelExisting \
  3397. (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
  3398. #define Tcl_UniCharNcasecmp \
  3399. (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
  3400. #define Tcl_UniCharCaseMatch \
  3401. (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
  3402. #define Tcl_FindHashEntry \
  3403. (tclStubsPtr->tcl_FindHashEntry) /* 421 */
  3404. #define Tcl_CreateHashEntry \
  3405. (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
  3406. #define Tcl_InitCustomHashTable \
  3407. (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
  3408. #define Tcl_InitObjHashTable \
  3409. (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
  3410. #define Tcl_CommandTraceInfo \
  3411. (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
  3412. #define Tcl_TraceCommand \
  3413. (tclStubsPtr->tcl_TraceCommand) /* 426 */
  3414. #define Tcl_UntraceCommand \
  3415. (tclStubsPtr->tcl_UntraceCommand) /* 427 */
  3416. #define Tcl_AttemptAlloc \
  3417. (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
  3418. #define Tcl_AttemptDbCkalloc \
  3419. (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
  3420. #define Tcl_AttemptRealloc \
  3421. (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
  3422. #define Tcl_AttemptDbCkrealloc \
  3423. (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
  3424. #define Tcl_AttemptSetObjLength \
  3425. (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
  3426. #define Tcl_GetChannelThread \
  3427. (tclStubsPtr->tcl_GetChannelThread) /* 433 */
  3428. #define Tcl_GetUnicodeFromObj \
  3429. (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
  3430. #define Tcl_GetMathFuncInfo \
  3431. (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
  3432. #define Tcl_ListMathFuncs \
  3433. (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
  3434. #define Tcl_SubstObj \
  3435. (tclStubsPtr->tcl_SubstObj) /* 437 */
  3436. #define Tcl_DetachChannel \
  3437. (tclStubsPtr->tcl_DetachChannel) /* 438 */
  3438. #define Tcl_IsStandardChannel \
  3439. (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
  3440. #define Tcl_FSCopyFile \
  3441. (tclStubsPtr->tcl_FSCopyFile) /* 440 */
  3442. #define Tcl_FSCopyDirectory \
  3443. (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
  3444. #define Tcl_FSCreateDirectory \
  3445. (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
  3446. #define Tcl_FSDeleteFile \
  3447. (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
  3448. #define Tcl_FSLoadFile \
  3449. (tclStubsPtr->tcl_FSLoadFile) /* 444 */
  3450. #define Tcl_FSMatchInDirectory \
  3451. (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
  3452. #define Tcl_FSLink \
  3453. (tclStubsPtr->tcl_FSLink) /* 446 */
  3454. #define Tcl_FSRemoveDirectory \
  3455. (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
  3456. #define Tcl_FSRenameFile \
  3457. (tclStubsPtr->tcl_FSRenameFile) /* 448 */
  3458. #define Tcl_FSLstat \
  3459. (tclStubsPtr->tcl_FSLstat) /* 449 */
  3460. #define Tcl_FSUtime \
  3461. (tclStubsPtr->tcl_FSUtime) /* 450 */
  3462. #define Tcl_FSFileAttrsGet \
  3463. (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
  3464. #define Tcl_FSFileAttrsSet \
  3465. (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
  3466. #define Tcl_FSFileAttrStrings \
  3467. (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
  3468. #define Tcl_FSStat \
  3469. (tclStubsPtr->tcl_FSStat) /* 454 */
  3470. #define Tcl_FSAccess \
  3471. (tclStubsPtr->tcl_FSAccess) /* 455 */
  3472. #define Tcl_FSOpenFileChannel \
  3473. (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
  3474. #define Tcl_FSGetCwd \
  3475. (tclStubsPtr->tcl_FSGetCwd) /* 457 */
  3476. #define Tcl_FSChdir \
  3477. (tclStubsPtr->tcl_FSChdir) /* 458 */
  3478. #define Tcl_FSConvertToPathType \
  3479. (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
  3480. #define Tcl_FSJoinPath \
  3481. (tclStubsPtr->tcl_FSJoinPath) /* 460 */
  3482. #define Tcl_FSSplitPath \
  3483. (tclStubsPtr->tcl_FSSplitPath) /* 461 */
  3484. #define Tcl_FSEqualPaths \
  3485. (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
  3486. #define Tcl_FSGetNormalizedPath \
  3487. (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
  3488. #define Tcl_FSJoinToPath \
  3489. (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
  3490. #define Tcl_FSGetInternalRep \
  3491. (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
  3492. #define Tcl_FSGetTranslatedPath \
  3493. (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
  3494. #define Tcl_FSEvalFile \
  3495. (tclStubsPtr->tcl_FSEvalFile) /* 467 */
  3496. #define Tcl_FSNewNativePath \
  3497. (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
  3498. #define Tcl_FSGetNativePath \
  3499. (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
  3500. #define Tcl_FSFileSystemInfo \
  3501. (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
  3502. #define Tcl_FSPathSeparator \
  3503. (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
  3504. #define Tcl_FSListVolumes \
  3505. (tclStubsPtr->tcl_FSListVolumes) /* 472 */
  3506. #define Tcl_FSRegister \
  3507. (tclStubsPtr->tcl_FSRegister) /* 473 */
  3508. #define Tcl_FSUnregister \
  3509. (tclStubsPtr->tcl_FSUnregister) /* 474 */
  3510. #define Tcl_FSData \
  3511. (tclStubsPtr->tcl_FSData) /* 475 */
  3512. #define Tcl_FSGetTranslatedStringPath \
  3513. (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
  3514. #define Tcl_FSGetFileSystemForPath \
  3515. (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
  3516. #define Tcl_FSGetPathType \
  3517. (tclStubsPtr->tcl_FSGetPathType) /* 478 */
  3518. #define Tcl_OutputBuffered \
  3519. (tclStubsPtr->tcl_OutputBuffered) /* 479 */
  3520. #define Tcl_FSMountsChanged \
  3521. (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
  3522. #define Tcl_EvalTokensStandard \
  3523. (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
  3524. #define Tcl_GetTime \
  3525. (tclStubsPtr->tcl_GetTime) /* 482 */
  3526. #define Tcl_CreateObjTrace \
  3527. (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
  3528. #define Tcl_GetCommandInfoFromToken \
  3529. (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
  3530. #define Tcl_SetCommandInfoFromToken \
  3531. (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
  3532. #define Tcl_DbNewWideIntObj \
  3533. (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
  3534. #define Tcl_GetWideIntFromObj \
  3535. (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
  3536. #define Tcl_NewWideIntObj \
  3537. (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
  3538. #define Tcl_SetWideIntObj \
  3539. (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
  3540. #define Tcl_AllocStatBuf \
  3541. (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
  3542. #define Tcl_Seek \
  3543. (tclStubsPtr->tcl_Seek) /* 491 */
  3544. #define Tcl_Tell \
  3545. (tclStubsPtr->tcl_Tell) /* 492 */
  3546. #define Tcl_ChannelWideSeekProc \
  3547. (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
  3548. #define Tcl_DictObjPut \
  3549. (tclStubsPtr->tcl_DictObjPut) /* 494 */
  3550. #define Tcl_DictObjGet \
  3551. (tclStubsPtr->tcl_DictObjGet) /* 495 */
  3552. #define Tcl_DictObjRemove \
  3553. (tclStubsPtr->tcl_DictObjRemove) /* 496 */
  3554. #define Tcl_DictObjSize \
  3555. (tclStubsPtr->tcl_DictObjSize) /* 497 */
  3556. #define Tcl_DictObjFirst \
  3557. (tclStubsPtr->tcl_DictObjFirst) /* 498 */
  3558. #define Tcl_DictObjNext \
  3559. (tclStubsPtr->tcl_DictObjNext) /* 499 */
  3560. #define Tcl_DictObjDone \
  3561. (tclStubsPtr->tcl_DictObjDone) /* 500 */
  3562. #define Tcl_DictObjPutKeyList \
  3563. (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
  3564. #define Tcl_DictObjRemoveKeyList \
  3565. (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
  3566. #define Tcl_NewDictObj \
  3567. (tclStubsPtr->tcl_NewDictObj) /* 503 */
  3568. #define Tcl_DbNewDictObj \
  3569. (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
  3570. #define Tcl_RegisterConfig \
  3571. (tclStubsPtr->tcl_RegisterConfig) /* 505 */
  3572. #define Tcl_CreateNamespace \
  3573. (tclStubsPtr->tcl_CreateNamespace) /* 506 */
  3574. #define Tcl_DeleteNamespace \
  3575. (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
  3576. #define Tcl_AppendExportList \
  3577. (tclStubsPtr->tcl_AppendExportList) /* 508 */
  3578. #define Tcl_Export \
  3579. (tclStubsPtr->tcl_Export) /* 509 */
  3580. #define Tcl_Import \
  3581. (tclStubsPtr->tcl_Import) /* 510 */
  3582. #define Tcl_ForgetImport \
  3583. (tclStubsPtr->tcl_ForgetImport) /* 511 */
  3584. #define Tcl_GetCurrentNamespace \
  3585. (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
  3586. #define Tcl_GetGlobalNamespace \
  3587. (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
  3588. #define Tcl_FindNamespace \
  3589. (tclStubsPtr->tcl_FindNamespace) /* 514 */
  3590. #define Tcl_FindCommand \
  3591. (tclStubsPtr->tcl_FindCommand) /* 515 */
  3592. #define Tcl_GetCommandFromObj \
  3593. (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
  3594. #define Tcl_GetCommandFullName \
  3595. (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
  3596. #define Tcl_FSEvalFileEx \
  3597. (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
  3598. #define Tcl_SetExitProc \
  3599. (tclStubsPtr->tcl_SetExitProc) /* 519 */
  3600. #define Tcl_LimitAddHandler \
  3601. (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
  3602. #define Tcl_LimitRemoveHandler \
  3603. (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
  3604. #define Tcl_LimitReady \
  3605. (tclStubsPtr->tcl_LimitReady) /* 522 */
  3606. #define Tcl_LimitCheck \
  3607. (tclStubsPtr->tcl_LimitCheck) /* 523 */
  3608. #define Tcl_LimitExceeded \
  3609. (tclStubsPtr->tcl_LimitExceeded) /* 524 */
  3610. #define Tcl_LimitSetCommands \
  3611. (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
  3612. #define Tcl_LimitSetTime \
  3613. (tclStubsPtr->tcl_LimitSetTime) /* 526 */
  3614. #define Tcl_LimitSetGranularity \
  3615. (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
  3616. #define Tcl_LimitTypeEnabled \
  3617. (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
  3618. #define Tcl_LimitTypeExceeded \
  3619. (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
  3620. #define Tcl_LimitTypeSet \
  3621. (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
  3622. #define Tcl_LimitTypeReset \
  3623. (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
  3624. #define Tcl_LimitGetCommands \
  3625. (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
  3626. #define Tcl_LimitGetTime \
  3627. (tclStubsPtr->tcl_LimitGetTime) /* 533 */
  3628. #define Tcl_LimitGetGranularity \
  3629. (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
  3630. #define Tcl_SaveInterpState \
  3631. (tclStubsPtr->tcl_SaveInterpState) /* 535 */
  3632. #define Tcl_RestoreInterpState \
  3633. (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
  3634. #define Tcl_DiscardInterpState \
  3635. (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
  3636. #define Tcl_SetReturnOptions \
  3637. (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
  3638. #define Tcl_GetReturnOptions \
  3639. (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
  3640. #define Tcl_IsEnsemble \
  3641. (tclStubsPtr->tcl_IsEnsemble) /* 540 */
  3642. #define Tcl_CreateEnsemble \
  3643. (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
  3644. #define Tcl_FindEnsemble \
  3645. (tclStubsPtr->tcl_FindEnsemble) /* 542 */
  3646. #define Tcl_SetEnsembleSubcommandList \
  3647. (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
  3648. #define Tcl_SetEnsembleMappingDict \
  3649. (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
  3650. #define Tcl_SetEnsembleUnknownHandler \
  3651. (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
  3652. #define Tcl_SetEnsembleFlags \
  3653. (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
  3654. #define Tcl_GetEnsembleSubcommandList \
  3655. (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
  3656. #define Tcl_GetEnsembleMappingDict \
  3657. (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
  3658. #define Tcl_GetEnsembleUnknownHandler \
  3659. (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
  3660. #define Tcl_GetEnsembleFlags \
  3661. (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
  3662. #define Tcl_GetEnsembleNamespace \
  3663. (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
  3664. #define Tcl_SetTimeProc \
  3665. (tclStubsPtr->tcl_SetTimeProc) /* 552 */
  3666. #define Tcl_QueryTimeProc \
  3667. (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
  3668. #define Tcl_ChannelThreadActionProc \
  3669. (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
  3670. #define Tcl_NewBignumObj \
  3671. (tclStubsPtr->tcl_NewBignumObj) /* 555 */
  3672. #define Tcl_DbNewBignumObj \
  3673. (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
  3674. #define Tcl_SetBignumObj \
  3675. (tclStubsPtr->tcl_SetBignumObj) /* 557 */
  3676. #define Tcl_GetBignumFromObj \
  3677. (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
  3678. #define Tcl_TakeBignumFromObj \
  3679. (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
  3680. #define Tcl_TruncateChannel \
  3681. (tclStubsPtr->tcl_TruncateChannel) /* 560 */
  3682. #define Tcl_ChannelTruncateProc \
  3683. (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
  3684. #define Tcl_SetChannelErrorInterp \
  3685. (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
  3686. #define Tcl_GetChannelErrorInterp \
  3687. (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
  3688. #define Tcl_SetChannelError \
  3689. (tclStubsPtr->tcl_SetChannelError) /* 564 */
  3690. #define Tcl_GetChannelError \
  3691. (tclStubsPtr->tcl_GetChannelError) /* 565 */
  3692. #define Tcl_InitBignumFromDouble \
  3693. (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
  3694. #define Tcl_GetNamespaceUnknownHandler \
  3695. (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
  3696. #define Tcl_SetNamespaceUnknownHandler \
  3697. (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
  3698. #define Tcl_GetEncodingFromObj \
  3699. (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
  3700. #define Tcl_GetEncodingSearchPath \
  3701. (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
  3702. #define Tcl_SetEncodingSearchPath \
  3703. (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
  3704. #define Tcl_GetEncodingNameFromEnvironment \
  3705. (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
  3706. #define Tcl_PkgRequireProc \
  3707. (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
  3708. #define Tcl_AppendObjToErrorInfo \
  3709. (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
  3710. #define Tcl_AppendLimitedToObj \
  3711. (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
  3712. #define Tcl_Format \
  3713. (tclStubsPtr->tcl_Format) /* 576 */
  3714. #define Tcl_AppendFormatToObj \
  3715. (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
  3716. #define Tcl_ObjPrintf \
  3717. (tclStubsPtr->tcl_ObjPrintf) /* 578 */
  3718. #define Tcl_AppendPrintfToObj \
  3719. (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
  3720. #define Tcl_CancelEval \
  3721. (tclStubsPtr->tcl_CancelEval) /* 580 */
  3722. #define Tcl_Canceled \
  3723. (tclStubsPtr->tcl_Canceled) /* 581 */
  3724. #define Tcl_CreatePipe \
  3725. (tclStubsPtr->tcl_CreatePipe) /* 582 */
  3726. #define Tcl_NRCreateCommand \
  3727. (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
  3728. #define Tcl_NREvalObj \
  3729. (tclStubsPtr->tcl_NREvalObj) /* 584 */
  3730. #define Tcl_NREvalObjv \
  3731. (tclStubsPtr->tcl_NREvalObjv) /* 585 */
  3732. #define Tcl_NRCmdSwap \
  3733. (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
  3734. #define Tcl_NRAddCallback \
  3735. (tclStubsPtr->tcl_NRAddCallback) /* 587 */
  3736. #define Tcl_NRCallObjProc \
  3737. (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
  3738. #define Tcl_GetFSDeviceFromStat \
  3739. (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
  3740. #define Tcl_GetFSInodeFromStat \
  3741. (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
  3742. #define Tcl_GetModeFromStat \
  3743. (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
  3744. #define Tcl_GetLinkCountFromStat \
  3745. (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
  3746. #define Tcl_GetUserIdFromStat \
  3747. (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
  3748. #define Tcl_GetGroupIdFromStat \
  3749. (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
  3750. #define Tcl_GetDeviceTypeFromStat \
  3751. (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
  3752. #define Tcl_GetAccessTimeFromStat \
  3753. (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
  3754. #define Tcl_GetModificationTimeFromStat \
  3755. (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
  3756. #define Tcl_GetChangeTimeFromStat \
  3757. (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
  3758. #define Tcl_GetSizeFromStat \
  3759. (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
  3760. #define Tcl_GetBlocksFromStat \
  3761. (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
  3762. #define Tcl_GetBlockSizeFromStat \
  3763. (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
  3764. #define Tcl_SetEnsembleParameterList \
  3765. (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
  3766. #define Tcl_GetEnsembleParameterList \
  3767. (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
  3768. #define Tcl_ParseArgsObjv \
  3769. (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
  3770. #define Tcl_GetErrorLine \
  3771. (tclStubsPtr->tcl_GetErrorLine) /* 605 */
  3772. #define Tcl_SetErrorLine \
  3773. (tclStubsPtr->tcl_SetErrorLine) /* 606 */
  3774. #define Tcl_TransferResult \
  3775. (tclStubsPtr->tcl_TransferResult) /* 607 */
  3776. #define Tcl_InterpActive \
  3777. (tclStubsPtr->tcl_InterpActive) /* 608 */
  3778. #define Tcl_BackgroundException \
  3779. (tclStubsPtr->tcl_BackgroundException) /* 609 */
  3780. #define Tcl_ZlibDeflate \
  3781. (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
  3782. #define Tcl_ZlibInflate \
  3783. (tclStubsPtr->tcl_ZlibInflate) /* 611 */
  3784. #define Tcl_ZlibCRC32 \
  3785. (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
  3786. #define Tcl_ZlibAdler32 \
  3787. (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
  3788. #define Tcl_ZlibStreamInit \
  3789. (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
  3790. #define Tcl_ZlibStreamGetCommandName \
  3791. (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
  3792. #define Tcl_ZlibStreamEof \
  3793. (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
  3794. #define Tcl_ZlibStreamChecksum \
  3795. (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
  3796. #define Tcl_ZlibStreamPut \
  3797. (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
  3798. #define Tcl_ZlibStreamGet \
  3799. (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
  3800. #define Tcl_ZlibStreamClose \
  3801. (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
  3802. #define Tcl_ZlibStreamReset \
  3803. (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
  3804. #define Tcl_SetStartupScript \
  3805. (tclStubsPtr->tcl_SetStartupScript) /* 622 */
  3806. #define Tcl_GetStartupScript \
  3807. (tclStubsPtr->tcl_GetStartupScript) /* 623 */
  3808. #define Tcl_CloseEx \
  3809. (tclStubsPtr->tcl_CloseEx) /* 624 */
  3810. #define Tcl_NRExprObj \
  3811. (tclStubsPtr->tcl_NRExprObj) /* 625 */
  3812. #define Tcl_NRSubstObj \
  3813. (tclStubsPtr->tcl_NRSubstObj) /* 626 */
  3814. #define Tcl_LoadFile \
  3815. (tclStubsPtr->tcl_LoadFile) /* 627 */
  3816. #define Tcl_FindSymbol \
  3817. (tclStubsPtr->tcl_FindSymbol) /* 628 */
  3818. #define Tcl_FSUnloadFile \
  3819. (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
  3820. #define Tcl_ZlibStreamSetCompressionDictionary \
  3821. (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
  3822. /* Slot 631 is reserved */
  3823. /* Slot 632 is reserved */
  3824. /* Slot 633 is reserved */
  3825. /* Slot 634 is reserved */
  3826. /* Slot 635 is reserved */
  3827. /* Slot 636 is reserved */
  3828. /* Slot 637 is reserved */
  3829. /* Slot 638 is reserved */
  3830. /* Slot 639 is reserved */
  3831. /* Slot 640 is reserved */
  3832. /* Slot 641 is reserved */
  3833. /* Slot 642 is reserved */
  3834. /* Slot 643 is reserved */
  3835. /* Slot 644 is reserved */
  3836. /* Slot 645 is reserved */
  3837. /* Slot 646 is reserved */
  3838. /* Slot 647 is reserved */
  3839. /* Slot 648 is reserved */
  3840. /* Slot 649 is reserved */
  3841. /* Slot 650 is reserved */
  3842. /* Slot 651 is reserved */
  3843. /* Slot 652 is reserved */
  3844. /* Slot 653 is reserved */
  3845. /* Slot 654 is reserved */
  3846. /* Slot 655 is reserved */
  3847. /* Slot 656 is reserved */
  3848. /* Slot 657 is reserved */
  3849. /* Slot 658 is reserved */
  3850. /* Slot 659 is reserved */
  3851. #define TclUnusedStubEntry \
  3852. (tclStubsPtr->tclUnusedStubEntry) /* 660 */
  3853. #endif /* defined(USE_TCL_STUBS) */
  3854. /* !END!: Do not edit above this line. */
  3855. #undef TclUnusedStubEntry
  3856. #if defined(USE_TCL_STUBS)
  3857. # undef Tcl_CreateInterp
  3858. # undef Tcl_FindExecutable
  3859. # undef Tcl_GetStringResult
  3860. # undef Tcl_Init
  3861. # undef Tcl_SetPanicProc
  3862. # undef Tcl_SetVar
  3863. # undef Tcl_ObjSetVar2
  3864. # undef Tcl_StaticPackage
  3865. # define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
  3866. # define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
  3867. # define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
  3868. # define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
  3869. # define Tcl_SetVar(interp, varName, newValue, flags) \
  3870. (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
  3871. # define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
  3872. (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
  3873. #endif
  3874. #if defined(_WIN32) && defined(UNICODE)
  3875. # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
  3876. # define Tcl_MainEx Tcl_MainExW
  3877. EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
  3878. Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
  3879. #endif
  3880. #undef TCL_STORAGE_CLASS
  3881. #define TCL_STORAGE_CLASS DLLIMPORT
  3882. #undef Tcl_SeekOld
  3883. #undef Tcl_TellOld
  3884. #undef Tcl_PkgPresent
  3885. #define Tcl_PkgPresent(interp, name, version, exact) \
  3886. Tcl_PkgPresentEx(interp, name, version, exact, NULL)
  3887. #undef Tcl_PkgProvide
  3888. #define Tcl_PkgProvide(interp, name, version) \
  3889. Tcl_PkgProvideEx(interp, name, version, NULL)
  3890. #undef Tcl_PkgRequire
  3891. #define Tcl_PkgRequire(interp, name, version, exact) \
  3892. Tcl_PkgRequireEx(interp, name, version, exact, NULL)
  3893. #undef Tcl_GetIndexFromObj
  3894. #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
  3895. Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
  3896. sizeof(char *), msg, flags, indexPtr)
  3897. #undef Tcl_NewBooleanObj
  3898. #define Tcl_NewBooleanObj(boolValue) \
  3899. Tcl_NewIntObj((boolValue)!=0)
  3900. #undef Tcl_DbNewBooleanObj
  3901. #define Tcl_DbNewBooleanObj(boolValue, file, line) \
  3902. Tcl_DbNewLongObj((boolValue)!=0, file, line)
  3903. #undef Tcl_SetBooleanObj
  3904. #define Tcl_SetBooleanObj(objPtr, boolValue) \
  3905. Tcl_SetIntObj((objPtr), (boolValue)!=0)
  3906. #undef Tcl_SetVar
  3907. #define Tcl_SetVar(interp, varName, newValue, flags) \
  3908. Tcl_SetVar2(interp, varName, NULL, newValue, flags)
  3909. #undef Tcl_UnsetVar
  3910. #define Tcl_UnsetVar(interp, varName, flags) \
  3911. Tcl_UnsetVar2(interp, varName, NULL, flags)
  3912. #undef Tcl_GetVar
  3913. #define Tcl_GetVar(interp, varName, flags) \
  3914. Tcl_GetVar2(interp, varName, NULL, flags)
  3915. #undef Tcl_TraceVar
  3916. #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
  3917. Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
  3918. #undef Tcl_UntraceVar
  3919. #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
  3920. Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
  3921. #undef Tcl_VarTraceInfo
  3922. #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
  3923. Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
  3924. #undef Tcl_UpVar
  3925. #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
  3926. Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
  3927. #if defined(USE_TCL_STUBS)
  3928. # if defined(_WIN32) && defined(_WIN64)
  3929. # undef Tcl_GetTime
  3930. /* Handle Win64 tk.dll being loaded in Cygwin64. */
  3931. # define Tcl_GetTime(t) \
  3932. do { \
  3933. union { \
  3934. Tcl_Time now; \
  3935. __int64 reserved; \
  3936. } _t; \
  3937. _t.reserved = -1; \
  3938. tclStubsPtr->tcl_GetTime((&_t.now)); \
  3939. if (_t.reserved != -1) { \
  3940. _t.now.usec = _t.reserved; \
  3941. } \
  3942. *(t) = _t.now; \
  3943. } while (0)
  3944. # endif
  3945. # if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
  3946. /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
  3947. * we have to make sure that all stub entries on Cygwin64 follow the
  3948. * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
  3949. * entries any more, they should use the 64-bit alternatives where
  3950. * possible. Tcl 9 must find a better solution, but that cannot be done
  3951. * without introducing a binary incompatibility.
  3952. */
  3953. # undef Tcl_DbNewLongObj
  3954. # undef Tcl_GetLongFromObj
  3955. # undef Tcl_NewLongObj
  3956. # undef Tcl_SetLongObj
  3957. # undef Tcl_ExprLong
  3958. # undef Tcl_ExprLongObj
  3959. # undef Tcl_UniCharNcmp
  3960. # undef Tcl_UtfNcmp
  3961. # undef Tcl_UtfNcasecmp
  3962. # undef Tcl_UniCharNcasecmp
  3963. # define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
  3964. # define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
  3965. # define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
  3966. # define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
  3967. # define Tcl_ExprLong TclExprLong
  3968. static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
  3969. int intValue;
  3970. int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
  3971. if (result == TCL_OK) *ptr = (long)intValue;
  3972. return result;
  3973. }
  3974. # define Tcl_ExprLongObj TclExprLongObj
  3975. static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
  3976. int intValue;
  3977. int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
  3978. if (result == TCL_OK) *ptr = (long)intValue;
  3979. return result;
  3980. }
  3981. # define Tcl_UniCharNcmp(ucs,uct,n) \
  3982. ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
  3983. # define Tcl_UtfNcmp(s1,s2,n) \
  3984. ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
  3985. # define Tcl_UtfNcasecmp(s1,s2,n) \
  3986. ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
  3987. # define Tcl_UniCharNcasecmp(ucs,uct,n) \
  3988. ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
  3989. # endif
  3990. #endif
  3991. /*
  3992. * Deprecated Tcl procedures:
  3993. */
  3994. #undef Tcl_EvalObj
  3995. #define Tcl_EvalObj(interp,objPtr) \
  3996. Tcl_EvalObjEx((interp),(objPtr),0)
  3997. #undef Tcl_GlobalEvalObj
  3998. #define Tcl_GlobalEvalObj(interp,objPtr) \
  3999. Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
  4000. #define Tcl_CreateChild Tcl_CreateSlave
  4001. #define Tcl_GetChild Tcl_GetSlave
  4002. #define Tcl_GetParent Tcl_GetMaster
  4003. #endif /* _TCLDECLS */