theKernel 10.0
Loading...
Searching...
No Matches
MkBufferStreamC_tcl.c
Go to the documentation of this file.
1
9/* LABEL-START */
10
11#define META_FILE_NAME "MkBufferStreamC_tcl.c"
12
14
15#define OT_CLASS NS(MkBufferStreamC)
16#define OT_CLASS_NAME "MkBufferStreamC"
17
18#define OBJECT2BUS(O) MkAssertCastM(MkBufferStreamC,(Tcl_ObjectGetMetadata(O, &MK(AtomMeta))))
19
20// TCL class
22
23// META class
25MkThreadLocal OT_OBJ_T MK(MkBufferStreamC_MK_NULL) = NULL;
26
27// META: ObjNew feature: selfCreate will be called from "ObjNew->MkSelfNew" if MkObj need a SELF pointer
28static MK_PTR NS(MkBufferStreamC_selfCreate) (MK_RT_ARGS MK_OBJ const obj, MK_PTR const env) {
29 OT_ENV_T interp = env;
30 return MK(AtomCreate) (MK_RT_CALL interp,obj,OT_CLASS,NULL,NULL);
31}
32// META: is called when the META object is destroyed and SELF does NOT belongs to the META.
33static void NS(MkBufferStreamC_selfDelete) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
34 OT_SELF_T selfO = selfP;
35 OT_ENV_T interp = env;
36 MK(AtomDeleteHard) (MK_RT_CALL interp, selfO);
37}
38// META: is called when the META object is destroyed and SELF does NOT belong to the META.
39static void NS(MkBufferStreamC_selfUnlink) (MK_RT_ARGS MK_PTR selfP, MK_PTR const env) {
40 OT_SELF_T selfO = selfP;
41 OT_ENV_T interp = env;
42 MK(AtomUnlink) (MK_RT_CALL interp, selfO);
43}
44
45// ATTENTION: TCL has no "Unlink" because the "Tcl_ObjectSetMetadata(selfO,&MK(AtomMeta),NULL);" call
46// also the destructor
47
48#define OT_SETUP_hdl_static_constr_pre
49#define OT_SETUP_hdl_static_constr \
50 OT_SETUP_hdl_static_constr_pre; \
51 OT_SETUP_hdl_static
52
53#define OT_SETUP_hdl_static \
54 int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
55 AllRtSetup_NULL; \
56 __attribute__((unused)) OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
57 __attribute__((unused)) MK_TYP hdl = MkBufferStreamC##_TT;
58
59#define OT_SETUP_hdl SetupHdlFromMetaData_2(BUS,MK_BUS);
60#define OT_SETUP_hdl__null_allow SetupHdlFromMetaData__null_allow_2(BUS,MK_BUS);
61#define OT_SETUP_hdl_destr SetupHdlFromMetaData__null_allow_2(BUS,MK_BUS);
62
63#define OT_SETUP_hdl_constr_pre
64#define OT_SETUP_hdl_constr \
65 OT_SETUP_hdl_constr_pre; \
66 int __skip=Tcl_ObjectContextSkippedArgs(objCtx); \
67 AllRtSetup_NULL; \
68 MK_RT_UNUSED OT_SELF_T selfO = Tcl_ObjectContextObject(objCtx); \
69 MK_BUS hdl = (MK_BUS) &MkERROR;
70
71#if !defined(SetupRtFromHdl_XN)
72 #define SetupRtFromHdl_XN(hdl) AllRtSetup_XN(hdl)
73 #define SetupRtFromHdl_X(hdl) AllRtSetup_X(hdl)
74#endif
75
76// initialize the TCL and MO class specific object
77#define ClassInit \
78 /* if not already done, initialize NEW MQ type */ \
79 if (MkBufferStreamCTT == NULL) MkBufferStreamCTT = MkBufferStreamSTT; \
80 \
81 /* protect against double call */ \
82 if (MkBufferStreamCTT->selfCreate == NS(MkBufferStreamC_selfCreate)) return MK_OK; \
83 \
84 /* add "selfCreate" and "selfDelete" feature to the MQ-Class */ \
85 MkBufferStreamCTT->selfCreate = NS(MkBufferStreamC_selfCreate); \
86 MkBufferStreamCTT->selfDelete = NS(MkBufferStreamC_selfDelete); \
87 MkBufferStreamCTT->selfUnlink = NS(MkBufferStreamC_selfUnlink); \
88 \
89 /* create the TCL-class */ \
90 OT_SELF_T classO = MK(ClassDef)(interp,ns,MkBufferStreamCTT); \
91 check_NULL(classO) goto error; \
92 OT_CLASS = Tcl_GetObjectAsClass(classO); \
93 \
94 /* create the TCL static Methods */ \
95 static MkThreadLocal OtUnknownS NS(sClassUnknown) = {OT_UNKNOWN_CLASS}; \
96 check_LNG(MK(UnknownSetup) (interp,classO,NS(sOtClassDef),&NS(sClassUnknown))) goto error; \
97 \
98 /* create the TCL instance Methods */ \
99 static MkThreadLocal OtUnknownS NS(sInstanceUnknown) = {OT_UNKNOWN_INSTANCE}; \
100 check_LNG(MK(UnknownSetup) (interp,classO,NS(sInstanceDef),&NS(sInstanceUnknown))) goto error; \
101 \
102 /* define the "NULL" object */ \
103 MK(MkBufferStreamC_MK_NULL) = Tcl_GetObjectName(interp, \
104 MK(AtomCreate) (MK_RT_CALL interp, NULL /*obj*/, OT_CLASS, "MK_NULL" /*name*/, "::tclmkkernel::MkBufferStreamC" /*ns*/) \
105 ); \
106 Tcl_IncrRefCount(MK(MkBufferStreamC_MK_NULL));
107
108#define VER TCL_OO_METHOD_VERSION_CURRENT
109
110/* LABEL-END */
111
112// BEGIN-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
113
114// doc-key: MkBufferStreamC,MkBufferStream,sCc,func
115#define CTOR_doc "MkBufferStreamC [MkBufferStreamC CTOR ?size:int32=0?]"
116#define Create_doc "MkBufferStreamC [MkBufferStreamC Create ?size:int32=0?]"
117#define Create1024_doc "MkBufferStreamC [MkBufferStreamC Create1024 ?size:int32=0?]"
118#define Create16384_doc "MkBufferStreamC [MkBufferStreamC Create16384 ?size:int32=0?]"
119#define Create256_doc "MkBufferStreamC [MkBufferStreamC Create256 ?size:int32=0?]"
120#define Create64_doc "MkBufferStreamC [MkBufferStreamC Create64 ?size:int32=0?]"
121
122// doc-key: MkBufferStreamC,MkBufferStream,sc_,func
123#define CreateTLS_doc "MkBufferStreamC [MkBufferStreamC CreateTLS tlsName:string ?resetB:bool=true?]"
124#define GetNull_doc "MkBufferStreamC [MkBufferStreamC GetNull]"
125#define HandleResolve_doc "MkBufferStreamC [MkBufferStreamC HandleResolve netHdl:MK_HDL]"
126#define Instances_doc "MkBufferStreamC [MkBufferStreamC Instances]"
127
128// doc-key: MkBufferStreamC,MkBufferStream,oC_,func
129#define Merge_doc "MkBufferStreamC [$bus Merge]"
130
131// doc-key: MkBufferStreamC,MkBufferStream,oCx,func
132#define Dup_doc "MkBufferStreamC [$src Dup] (const)"
133
134// doc-key: MkBufferStreamC,MkBufferStream,oc_,func
135#define Copy_doc "MkBufferStreamC [$bus Copy src:MkBufferStreamC] (const)"
136#define Next_doc "MkBufferStreamC [$bus Next]"
137#define Prev_doc "MkBufferStreamC [$bus Prev]"
138#define Reset_doc "MkBufferStreamC [$bus Reset]"
139#define ToBFL_doc "MkBufferListC [$bus ToBFL] (const)"
140
141// doc-key: MkBufferStreamC,MkBufferStream,oci,func
142#define ReadALL_doc "MkBufferListC [$bus ReadALL ?val_inout:MkBufferListC=\"MK_NULL\"?]"
143
144// doc-key: MkBufferStreamC,MkBufferStream,oco,func
145#define ReadBFL_doc "MkBufferListC [$bus ReadBFL]"
146#define ReadBUF_doc "MkBufferC [$bus ReadBUF]"
147
148// doc-key: MkBufferStreamC,MkBufferStream,om_,func
149// skip class-overload: HandleGet → MkObjectHandleGet
150// skip class-overload: Log → MkObjectLog
151#define PosToStart_doc "$bus PosToStart"
152#define ReadGetNextType_doc "MkTypeE [$bus ReadGetNextType] (const)"
153#define ReadGetNumItems_doc "int32 [$bus ReadGetNumItems] (const)"
154#define ReadItemExists_doc "bool [$bus ReadItemExists] (const)"
155#define ReadL_END_doc "$bus ReadL_END"
156#define ReadL_START_doc "$bus ReadL_START ?buf:MkBufferC=\"MK_NULL\"?"
157#define ReadUndo_doc "$bus ReadUndo"
158#define ResetFull_doc "$bus ResetFull"
159// skip class-overload: ToString → MkObjectToString
160#define WriteBFL_doc "$bus WriteBFL bfl:MkBufferListC"
161#define WriteBIN_doc "$bus WriteBIN val:binary"
162#define WriteBOL_doc "$bus WriteBOL val:bool"
163#define WriteBUF_doc "$bus WriteBUF val:MkBufferC"
164#define WriteBUS_FLAT_doc "$bus WriteBUS_FLAT add:MkBufferStreamC"
165#define WriteDBL_doc "$bus WriteDBL val:double"
166#define WriteFLT_doc "$bus WriteFLT val:float"
167#define WriteHDL_doc "$bus WriteHDL val:int32"
168#define WriteI32_doc "$bus WriteI32 val:int32"
169#define WriteI64_doc "$bus WriteI64 val:int64"
170#define WriteI8_doc "$bus WriteI8 val:int8"
171#define WriteLONG_doc "$bus WriteLONG val:long"
172#define WriteL_END_doc "$bus WriteL_END"
173#define WriteL_FLAT_doc "$bus WriteL_FLAT bfl:MkBufferListC"
174#define WriteL_START_doc "$bus WriteL_START"
175#define WriteSTR_doc "$bus WriteSTR val:string ?len:int32=-1?"
176
177// doc-key: MkBufferStreamC,MkBufferStream,omo,func
178#define ReadBIN_doc "binary [$bus ReadBIN]"
179#define ReadBOL_doc "bool [$bus ReadBOL]"
180#define ReadDBL_doc "double [$bus ReadDBL]"
181#define ReadFLT_doc "float [$bus ReadFLT]"
182#define ReadI32_doc "int32 [$bus ReadI32]"
183#define ReadI64_doc "int64 [$bus ReadI64]"
184#define ReadI8_doc "int8 [$bus ReadI8]"
185#define ReadLONG_doc "long [$bus ReadLONG]"
186#define ReadSTR_doc "string [$bus ReadSTR]"
187
188// END-DOC - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
189
190/*****************************************************************************/
191/* */
192/* O B J E C T */
193/* */
194/*****************************************************************************/
195
196// BEGIN-MkBufferStreamC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
197
201
202// doc-key: MkBufferStreamC,MkBufferStreamC-Class-Export,sc_
203
205static OT_ProcRet NS(MkBufferStreamC_HandleResolve) (OtClass_ARGS) {
208 MK_HDL netHdl = 0;
211 MK_BUS retVal = MkBufferStreamHandleResolve (netHdl);
212 OT_retObj_SET_BUS(retVal);
213 goto end;
214 error:
216 end:
218}
219
220// doc-key: MkBufferStreamC,MkBufferStreamC-Class-Export,om_
221
222// skip on class-overload: MkBufferStreamHandleGet → MkObjectHandleGet
224static OT_ProcRet NS(MkBufferStreamC_HandleGet) (MkBufferStreamC_ARGS) {OT_ERROR_LNG_RETURN;}
225
227// MkBufferStreamC_Class_TCL_API
228
232
233// doc-key: MkBufferStreamC,MkBufferStreamC-Class-Introspection,oc_
234
236static OT_ProcRet NS(MkBufferStreamC_Next) (MkBufferStreamC_ARGS) {
240 MK_BUS retVal = MkBufferStreamNext (hdl);
241 OT_retObj_SET_BUS(retVal);
242 goto end;
243 error:
245 end:
247}
248
250static OT_ProcRet NS(MkBufferStreamC_Prev) (MkBufferStreamC_ARGS) {
254 MK_BUS retVal = MkBufferStreamPrev (hdl);
255 OT_retObj_SET_BUS(retVal);
256 goto end;
257 error:
259 end:
261}
262
263// doc-key: MkBufferStreamC,MkBufferStreamC-Class-Introspection,sc_
264
266static OT_ProcRet NS(MkBufferStreamC_Instances) (OtClass_ARGS) {
271 OT_retObj_SET_BUS(retVal);
272 goto end;
273 error:
275 end:
277}
278
280// MkBufferStreamC_Class_TCL_API
281
285
286// doc-key: MkBufferStreamC,MkBufferStreamC-Class-Misc,sc_
287
289static OT_ProcRet NS(MkBufferStreamC_GetNull) (OtClass_ARGS) {
293 MK_BUS retVal = MkBufferStreamGetNull ();
294 OT_retObj_SET_BUS(retVal);
295 goto end;
296 error:
298 end:
300}
301
303// MkBufferStreamC_Class_TCL_API
304
308
309// doc-key: MkBufferStreamC,MkBufferStreamC-Misc,oc_
310
312static OT_ProcRet NS(MkBufferStreamC_Copy) (MkBufferStreamC_ARGS) {
315 MK_BUSN src = 0;
318 MK_BUS retVal = MkBufferStreamCopy (hdl, src);
319 OT_retObj_SET_BUS(retVal);
320 goto end;
321 error:
323 end:
325}
326
328static OT_ProcRet NS(MkBufferStreamC_Reset) (MkBufferStreamC_ARGS) {
332 MK_BUS retVal = MkBufferStreamReset (hdl);
333 OT_retObj_SET_BUS(retVal);
334 goto end;
335 error:
337 end:
339}
340
342static OT_ProcRet NS(MkBufferStreamC_ToBFL) (MkBufferStreamC_ARGS) {
346 MK_BFL retVal = MkBufferStreamToBFL (hdl);
347 OT_retObj_SET_BFL(retVal);
348 goto end;
349 error:
351 end:
353}
354
355// doc-key: MkBufferStreamC,MkBufferStreamC-Misc,om_
356
357// skip on class-overload: MkBufferStreamLog → MkObjectLog
360
362static OT_ProcRet NS(MkBufferStreamC_PosToStart) (MkBufferStreamC_ARGS) {
368 goto end;
369 error:
371 end:
373}
374
376static OT_ProcRet NS(MkBufferStreamC_ResetFull) (MkBufferStreamC_ARGS) {
382 goto end;
383 error:
385 end:
387}
388
389// skip on class-overload: MkBufferStreamToString → MkObjectToString
391static OT_ProcRet NS(MkBufferStreamC_ToString) (MkBufferStreamC_ARGS) {OT_ERROR_LNG_RETURN;}
392
394// MkBufferStreamC_Misc_TCL_API
395
399
400// doc-key: MkBufferStreamC,MkBufferStreamC-Read,oci
401
403static OT_ProcRet NS(MkBufferStreamC_ReadALL) (MkBufferStreamC_ARGS) {
406 MkBufferListCreateTLS_T(val_inout,10);
409 MkErrorC_Check(hdl,MkBufferStreamReadALL (hdl, &val_inout));
410 OT_retObj_SET_BFL(val_inout);
411 goto end;
412 error:
414 end:
416}
417
418// doc-key: MkBufferStreamC,MkBufferStreamC-Read,oco
419
421static OT_ProcRet NS(MkBufferStreamC_ReadBFL) (MkBufferStreamC_ARGS) {
425 MK_BFL val_out;
426 MkErrorC_Check(hdl,MkBufferStreamReadBFL (hdl, &val_out));
427 OT_retObj_SET_BFL(val_out);
428 goto end;
429 error:
431 end:
433}
434
436static OT_ProcRet NS(MkBufferStreamC_ReadBUF) (MkBufferStreamC_ARGS) {
440 MK_BUF val_out;
441 MkErrorC_Check(hdl,MkBufferStreamReadBUF (hdl, &val_out));
442 OT_retObj_SET_BUF(val_out);
443 goto end;
444 error:
446 end:
448}
449
450// doc-key: MkBufferStreamC,MkBufferStreamC-Read,om_
451
453static OT_ProcRet NS(MkBufferStreamC_ReadGetNextType) (MkBufferStreamC_ARGS) {
458 goto end;
459 error:
461 end:
463}
464
466static OT_ProcRet NS(MkBufferStreamC_ReadGetNumItems) (MkBufferStreamC_ARGS) {
471 goto end;
472 error:
474 end:
476}
477
479static OT_ProcRet NS(MkBufferStreamC_ReadItemExists) (MkBufferStreamC_ARGS) {
484 goto end;
485 error:
487 end:
489}
490
492static OT_ProcRet NS(MkBufferStreamC_ReadL_END) (MkBufferStreamC_ARGS) {
498 goto end;
499 error:
501 end:
503}
504
506static OT_ProcRet NS(MkBufferStreamC_ReadL_START) (MkBufferStreamC_ARGS) {
509 MK_BUF buf = NULL;
514 goto end;
515 error:
517 end:
519}
520
522static OT_ProcRet NS(MkBufferStreamC_ReadUndo) (MkBufferStreamC_ARGS) {
528 goto end;
529 error:
531 end:
533}
534
535// doc-key: MkBufferStreamC,MkBufferStreamC-Read,omo
536
538static OT_ProcRet NS(MkBufferStreamC_ReadBIN) (MkBufferStreamC_ARGS) {
542 MkBinaryR val_out;
543 MkErrorC_Check(hdl,MkBufferStreamReadBIN (hdl, &val_out));
544 MkBinaryR retVal = val_out;
546 goto end;
547 error:
549 end:
551}
552
554static OT_ProcRet NS(MkBufferStreamC_ReadBOL) (MkBufferStreamC_ARGS) {
558 MK_BOL val_out;
559 MkErrorC_Check(hdl,MkBufferStreamReadBOL (hdl, &val_out));
560 OT_retObj_SET_BOL(val_out == 1);
561 goto end;
562 error:
564 end:
566}
567
569static OT_ProcRet NS(MkBufferStreamC_ReadDBL) (MkBufferStreamC_ARGS) {
573 MK_DBL val_out;
574 MkErrorC_Check(hdl,MkBufferStreamReadDBL (hdl, &val_out));
575 OT_retObj_SET_DBL(val_out);
576 goto end;
577 error:
579 end:
581}
582
584static OT_ProcRet NS(MkBufferStreamC_ReadFLT) (MkBufferStreamC_ARGS) {
588 MK_FLT val_out;
589 MkErrorC_Check(hdl,MkBufferStreamReadFLT (hdl, &val_out));
590 OT_retObj_SET_FLT(val_out);
591 goto end;
592 error:
594 end:
596}
597
599static OT_ProcRet NS(MkBufferStreamC_ReadI32) (MkBufferStreamC_ARGS) {
603 MK_I32 val_out;
604 MkErrorC_Check(hdl,MkBufferStreamReadI32 (hdl, &val_out));
605 OT_retObj_SET_I32(val_out);
606 goto end;
607 error:
609 end:
611}
612
614static OT_ProcRet NS(MkBufferStreamC_ReadI64) (MkBufferStreamC_ARGS) {
618 MK_I64 val_out;
619 MkErrorC_Check(hdl,MkBufferStreamReadI64 (hdl, &val_out));
620 OT_retObj_SET_I64(val_out);
621 goto end;
622 error:
624 end:
626}
627
629static OT_ProcRet NS(MkBufferStreamC_ReadI8) (MkBufferStreamC_ARGS) {
633 MK_I8 val_out;
634 MkErrorC_Check(hdl,MkBufferStreamReadI8 (hdl, &val_out));
635 OT_retObj_SET_I8(val_out);
636 goto end;
637 error:
639 end:
641}
642
644static OT_ProcRet NS(MkBufferStreamC_ReadLONG) (MkBufferStreamC_ARGS) {
648 MK_LONG val_out;
649 MkErrorC_Check(hdl,MkBufferStreamReadLONG (hdl, &val_out));
650 OT_retObj_SET_LONG(val_out);
651 goto end;
652 error:
654 end:
656}
657
659static OT_ProcRet NS(MkBufferStreamC_ReadSTR) (MkBufferStreamC_ARGS) {
663 MK_STRN val_out;
664 MkErrorC_Check(hdl,MkBufferStreamReadSTR (hdl, &val_out));
665 OT_retObj_SET_STR(val_out);
666 goto end;
667 error:
669 end:
671}
672
674// MkBufferStreamC_Read_TCL_API
675
679
680// doc-key: MkBufferStreamC,MkBufferStreamC-TOR,oC_
681
683static OT_ProcRet NS(MkBufferStreamC_Merge) (MkBufferStreamC_ARGS) {
687 MK_BUS retVal = MkBufferStreamMerge (hdl);
688 if (retVal == NULL) {
689 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
690 goto error;
691 }
692 OT_retObj_SET_BUS(retVal);
693 goto end;
694 error:
696 end:
698}
699
700// doc-key: MkBufferStreamC,MkBufferStreamC-TOR,oCx
701
703static OT_ProcRet NS(MkBufferStreamC_Dup) (MkBufferStreamC_ARGS) {
707 MK_BUS retVal = MkBufferStreamDup (hdl);
708 if (retVal == NULL) {
709 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
710 goto error;
711 }
712 OT_retObj_SET_BUS(retVal);
713 goto end;
714 error:
716 end:
718}
719
720// doc-key: MkBufferStreamC,MkBufferStreamC-TOR,sCc
721
723static OT_ProcRet NS(MkBufferStreamC_CTOR) (CONSTR_ARGS) {
726 MK_NUM size = 0;
728 MK_BUS retVal = MkBufferStreamCreate (NULL, size);
729 if (retVal == NULL) {
730 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
731 goto error;
732 }
733 OT_CONSTRUCTOR_POST(retVal)
734 OT_retObj_CONSTR(retVal);
735 goto end;
736 error:
738 end:
740}
741
743static OT_ProcRet NS(MkBufferStreamC_Create) (OtClass_ARGS) {
746 MK_NUM size = 0;
749 MK_BUS retVal = MkBufferStreamCreate (NULL, size);
750 if (retVal == NULL) {
751 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
752 goto error;
753 }
754 OT_CONSTRUCTOR_POST(retVal)
755 OT_retObj_SET_BUS(retVal);
756 goto end;
757 error:
759 end:
761}
762
764static OT_ProcRet NS(MkBufferStreamC_Create1024) (OtClass_ARGS) {
767 MK_NUM size = 0;
770 MK_BUS retVal = MkBufferStreamCreate1024 (size);
771 if (retVal == NULL) {
772 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
773 goto error;
774 }
775 OT_retObj_SET_BUS(retVal);
776 goto end;
777 error:
779 end:
781}
782
784static OT_ProcRet NS(MkBufferStreamC_Create16384) (OtClass_ARGS) {
787 MK_NUM size = 0;
790 MK_BUS retVal = MkBufferStreamCreate16384 (size);
791 if (retVal == NULL) {
792 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
793 goto error;
794 }
795 OT_retObj_SET_BUS(retVal);
796 goto end;
797 error:
799 end:
801}
802
804static OT_ProcRet NS(MkBufferStreamC_Create256) (OtClass_ARGS) {
807 MK_NUM size = 0;
810 MK_BUS retVal = MkBufferStreamCreate256 (size);
811 if (retVal == NULL) {
812 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
813 goto error;
814 }
815 OT_retObj_SET_BUS(retVal);
816 goto end;
817 error:
819 end:
821}
822
824static OT_ProcRet NS(MkBufferStreamC_Create64) (OtClass_ARGS) {
827 MK_NUM size = 0;
830 MK_BUS retVal = MkBufferStreamCreate64 (size);
831 if (retVal == NULL) {
832 OT_ERROR_CONSTRUCTOR(MkBufferStreamC);
833 goto error;
834 }
835 OT_retObj_SET_BUS(retVal);
836 goto end;
837 error:
839 end:
841}
842
843// doc-key: MkBufferStreamC,MkBufferStreamC-TOR,sc_
844
846static OT_ProcRet NS(MkBufferStreamC_CreateTLS) (OtClass_ARGS) {
849 MK_STRN tlsName = 0;
851 MK_BOOL resetB = true;
854 MK_BUS retVal = MkBufferStreamCreateTLS (tlsName, resetB);
855 OT_retObj_SET_BUS(retVal);
856 goto end;
857 error:
859 end:
861}
862
864// MkBufferStreamC_TOR_TCL_API
865
869
870// doc-key: MkBufferStreamC,MkBufferStreamC-Write,om_
871
873static OT_ProcRet NS(MkBufferStreamC_WriteBFL) (MkBufferStreamC_ARGS) {
881 goto end;
882 error:
884 end:
886}
887
889static OT_ProcRet NS(MkBufferStreamC_WriteBIN) (MkBufferStreamC_ARGS) {
892 MkBinaryR val = {0};
897 goto end;
898 error:
900 end:
902}
903
905static OT_ProcRet NS(MkBufferStreamC_WriteBOL) (MkBufferStreamC_ARGS) {
908 MK_BOL val = 0;
911 MkErrorC_Check(hdl,MkBufferStreamWriteBOL (hdl, (MK_BOL)(val?1:0)));
913 goto end;
914 error:
916 end:
918}
919
921static OT_ProcRet NS(MkBufferStreamC_WriteBUF) (MkBufferStreamC_ARGS) {
924 MK_BUFN val = 0;
929 goto end;
930 error:
932 end:
934}
935
937static OT_ProcRet NS(MkBufferStreamC_WriteBUS_FLAT) (MkBufferStreamC_ARGS) {
940 MK_BUSN add = 0;
945 goto end;
946 error:
948 end:
950}
951
953static OT_ProcRet NS(MkBufferStreamC_WriteDBL) (MkBufferStreamC_ARGS) {
956 MK_DBL val = 0;
961 goto end;
962 error:
964 end:
966}
967
969static OT_ProcRet NS(MkBufferStreamC_WriteFLT) (MkBufferStreamC_ARGS) {
972 MK_FLT val = 0;
977 goto end;
978 error:
980 end:
982}
983
985static OT_ProcRet NS(MkBufferStreamC_WriteHDL) (MkBufferStreamC_ARGS) {
988 MK_I32 val = 0;
993 goto end;
994 error:
996 end:
998}
999
1001static OT_ProcRet NS(MkBufferStreamC_WriteI32) (MkBufferStreamC_ARGS) {
1004 MK_I32 val = 0;
1007 MkErrorC_Check(hdl,MkBufferStreamWriteI32 (hdl, val));
1009 goto end;
1010 error:
1012 end:
1014}
1015
1017static OT_ProcRet NS(MkBufferStreamC_WriteI64) (MkBufferStreamC_ARGS) {
1020 MK_I64 val = 0;
1023 MkErrorC_Check(hdl,MkBufferStreamWriteI64 (hdl, val));
1025 goto end;
1026 error:
1028 end:
1030}
1031
1033static OT_ProcRet NS(MkBufferStreamC_WriteI8) (MkBufferStreamC_ARGS) {
1036 MK_I8 val = 0;
1039 MkErrorC_Check(hdl,MkBufferStreamWriteI8 (hdl, (MK_I8)(val)));
1041 goto end;
1042 error:
1044 end:
1046}
1047
1049static OT_ProcRet NS(MkBufferStreamC_WriteLONG) (MkBufferStreamC_ARGS) {
1052 MK_LONG val = 0;
1057 goto end;
1058 error:
1060 end:
1062}
1063
1065static OT_ProcRet NS(MkBufferStreamC_WriteL_END) (MkBufferStreamC_ARGS) {
1071 goto end;
1072 error:
1074 end:
1076}
1077
1079static OT_ProcRet NS(MkBufferStreamC_WriteL_FLAT) (MkBufferStreamC_ARGS) {
1087 goto end;
1088 error:
1090 end:
1092}
1093
1095static OT_ProcRet NS(MkBufferStreamC_WriteL_START) (MkBufferStreamC_ARGS) {
1101 goto end;
1102 error:
1104 end:
1106}
1107
1109static OT_ProcRet NS(MkBufferStreamC_WriteSTR) (MkBufferStreamC_ARGS) {
1112 MK_STRN val = 0;
1114 MK_NUM len = -1;
1117 MkErrorC_Check(hdl,MkBufferStreamWriteSTR (hdl, val, len));
1119 goto end;
1120 error:
1122 end:
1124}
1125
1127// MkBufferStreamC_Write_TCL_API
1128
1129// END-MkBufferStreamC - created by 'tcl_MqC.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
1130
1136
1137const static Tcl_MethodType NS(sOtClassDef)[] = {
1138
1139// BEGIN-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
1140
1141// doc-key: MkBufferStreamC,MkBufferStream,sCc
1142 {VER, "Create" , NS(MkBufferStreamC_Create) , NULL, NULL},
1143 {VER, "Create1024" , NS(MkBufferStreamC_Create1024) , NULL, NULL},
1144 {VER, "Create16384" , NS(MkBufferStreamC_Create16384) , NULL, NULL},
1145 {VER, "Create256" , NS(MkBufferStreamC_Create256) , NULL, NULL},
1146 {VER, "Create64" , NS(MkBufferStreamC_Create64) , NULL, NULL},
1147
1148// doc-key: MkBufferStreamC,MkBufferStream,sc_
1149 {VER, "CreateTLS" , NS(MkBufferStreamC_CreateTLS) , NULL, NULL},
1150 {VER, "GetNull" , NS(MkBufferStreamC_GetNull) , NULL, NULL},
1151 {VER, "HandleResolve" , NS(MkBufferStreamC_HandleResolve) , NULL, NULL},
1152 {VER, "Instances" , NS(MkBufferStreamC_Instances) , NULL, NULL},
1153
1154// END-CLASS - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
1155 {0, NULL, NULL, NULL}
1156};
1157
1158// ---------------------------------------------------------------------------------------
1159
1160const static Tcl_MethodType NS(sInstanceDef)[] = {
1161
1162// BEGIN-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
1163
1164// doc-key: MkBufferStreamC,MkBufferStream,oC_
1165 {VER, "<constructor>" , NS(MkBufferStreamC_CTOR) , NULL, NULL},
1166 {VER, "Merge" , NS(MkBufferStreamC_Merge) , NULL, NULL},
1167
1168// doc-key: MkBufferStreamC,MkBufferStream,oCx
1169 {VER, "Dup" , NS(MkBufferStreamC_Dup) , NULL, NULL},
1170
1171// doc-key: MkBufferStreamC,MkBufferStream,oc_
1172 {VER, "Copy" , NS(MkBufferStreamC_Copy) , NULL, NULL},
1173 {VER, "Next" , NS(MkBufferStreamC_Next) , NULL, NULL},
1174 {VER, "Prev" , NS(MkBufferStreamC_Prev) , NULL, NULL},
1175 {VER, "Reset" , NS(MkBufferStreamC_Reset) , NULL, NULL},
1176 {VER, "ToBFL" , NS(MkBufferStreamC_ToBFL) , NULL, NULL},
1177
1178// doc-key: MkBufferStreamC,MkBufferStream,oci
1179 {VER, "ReadALL" , NS(MkBufferStreamC_ReadALL) , NULL, NULL},
1180
1181// doc-key: MkBufferStreamC,MkBufferStream,oco
1182 {VER, "ReadBFL" , NS(MkBufferStreamC_ReadBFL) , NULL, NULL},
1183 {VER, "ReadBUF" , NS(MkBufferStreamC_ReadBUF) , NULL, NULL},
1184
1185// doc-key: MkBufferStreamC,MkBufferStream,om_
1186 // skip class-overload: MkBufferStreamHandleGet → HandleGet, NS(MkBufferStreamC_HandleGet)
1187 // skip class-overload: MkBufferStreamLog → Log, NS(MkBufferStreamC_Log)
1188 {VER, "PosToStart" , NS(MkBufferStreamC_PosToStart) , NULL, NULL},
1189 {VER, "ReadGetNextType" , NS(MkBufferStreamC_ReadGetNextType) , NULL, NULL},
1190 {VER, "ReadGetNumItems" , NS(MkBufferStreamC_ReadGetNumItems) , NULL, NULL},
1191 {VER, "ReadItemExists" , NS(MkBufferStreamC_ReadItemExists) , NULL, NULL},
1192 {VER, "ReadL_END" , NS(MkBufferStreamC_ReadL_END) , NULL, NULL},
1193 {VER, "ReadL_START" , NS(MkBufferStreamC_ReadL_START) , NULL, NULL},
1194 {VER, "ReadUndo" , NS(MkBufferStreamC_ReadUndo) , NULL, NULL},
1195 {VER, "ResetFull" , NS(MkBufferStreamC_ResetFull) , NULL, NULL},
1196 // skip class-overload: MkBufferStreamToString → ToString, NS(MkBufferStreamC_ToString)
1197 {VER, "WriteBFL" , NS(MkBufferStreamC_WriteBFL) , NULL, NULL},
1198 {VER, "WriteBIN" , NS(MkBufferStreamC_WriteBIN) , NULL, NULL},
1199 {VER, "WriteBOL" , NS(MkBufferStreamC_WriteBOL) , NULL, NULL},
1200 {VER, "WriteBUF" , NS(MkBufferStreamC_WriteBUF) , NULL, NULL},
1201 {VER, "WriteBUS_FLAT" , NS(MkBufferStreamC_WriteBUS_FLAT) , NULL, NULL},
1202 {VER, "WriteDBL" , NS(MkBufferStreamC_WriteDBL) , NULL, NULL},
1203 {VER, "WriteFLT" , NS(MkBufferStreamC_WriteFLT) , NULL, NULL},
1204 {VER, "WriteHDL" , NS(MkBufferStreamC_WriteHDL) , NULL, NULL},
1205 {VER, "WriteI32" , NS(MkBufferStreamC_WriteI32) , NULL, NULL},
1206 {VER, "WriteI64" , NS(MkBufferStreamC_WriteI64) , NULL, NULL},
1207 {VER, "WriteI8" , NS(MkBufferStreamC_WriteI8) , NULL, NULL},
1208 {VER, "WriteLONG" , NS(MkBufferStreamC_WriteLONG) , NULL, NULL},
1209 {VER, "WriteL_END" , NS(MkBufferStreamC_WriteL_END) , NULL, NULL},
1210 {VER, "WriteL_FLAT" , NS(MkBufferStreamC_WriteL_FLAT) , NULL, NULL},
1211 {VER, "WriteL_START" , NS(MkBufferStreamC_WriteL_START) , NULL, NULL},
1212 {VER, "WriteSTR" , NS(MkBufferStreamC_WriteSTR) , NULL, NULL},
1213
1214// doc-key: MkBufferStreamC,MkBufferStream,omo
1215 {VER, "ReadBIN" , NS(MkBufferStreamC_ReadBIN) , NULL, NULL},
1216 {VER, "ReadBOL" , NS(MkBufferStreamC_ReadBOL) , NULL, NULL},
1217 {VER, "ReadDBL" , NS(MkBufferStreamC_ReadDBL) , NULL, NULL},
1218 {VER, "ReadFLT" , NS(MkBufferStreamC_ReadFLT) , NULL, NULL},
1219 {VER, "ReadI32" , NS(MkBufferStreamC_ReadI32) , NULL, NULL},
1220 {VER, "ReadI64" , NS(MkBufferStreamC_ReadI64) , NULL, NULL},
1221 {VER, "ReadI8" , NS(MkBufferStreamC_ReadI8) , NULL, NULL},
1222 {VER, "ReadLONG" , NS(MkBufferStreamC_ReadLONG) , NULL, NULL},
1223 {VER, "ReadSTR" , NS(MkBufferStreamC_ReadSTR) , NULL, NULL},
1224
1225// END-OBJ - created by 'tcl_MqS.tcl -i NHI1_HOME/theKernel/c/gen/c_mkkernel.meta' - DO NOT change
1226 {0, NULL, NULL, NULL, NULL}
1227};
1228
1234
1235int NS(pMkBufferStreamC_Init) ( MK_RT_ARGS OT_ENV_T interp, OT_NS_T ns )
1236{
1237 ClassInit
1238
1239 MkBufferStream16384C_TT->selfCreate = NS(MkBufferStreamC_selfCreate) ;
1240 MkBufferStream16384C_TT->selfDelete = NS(MkBufferStreamC_selfDelete) ;
1241 MkBufferStream16384C_TT->selfUnlink = NS(MkBufferStreamC_selfUnlink) ;
1242 MkBufferStream256C_TT->selfCreate = NS(MkBufferStreamC_selfCreate) ;
1243 MkBufferStream256C_TT->selfDelete = NS(MkBufferStreamC_selfDelete) ;
1244 MkBufferStream256C_TT->selfUnlink = NS(MkBufferStreamC_selfUnlink) ;
1245 MkBufferStream64C_TT->selfCreate = NS(MkBufferStreamC_selfCreate) ;
1246 MkBufferStream64C_TT->selfDelete = NS(MkBufferStreamC_selfDelete) ;
1247 MkBufferStream64C_TT->selfUnlink = NS(MkBufferStreamC_selfUnlink) ;
1248 MkBufferStream1024C_TT->selfCreate = NS(MkBufferStreamC_selfCreate) ;
1249 MkBufferStream1024C_TT->selfDelete = NS(MkBufferStreamC_selfDelete) ;
1250 MkBufferStream1024C_TT->selfUnlink = NS(MkBufferStreamC_selfUnlink) ;
1251
1252 return TCL_OK;
1253error:
1254 return TCL_ERROR;
1255}
tag: nhi1-release-250425
#define OtClass_ARGS
#define OT_CHECK_NI1(val)
#define OT_CHECK_bool(val)
#define OT_retObj_SET_I8(nat)
#define MK(n)
#define OT_retObj_SET_FLT(nat)
#define OT_SETUP_VARARGS(min, max, d)
#define OT_CHECK_NIH(val)
#define OT_retObj_SET_BOL(nat)
#define OT_SETUP_NOARG(d)
#define OT_SETUP_ONEARG(d)
Tcl_Class OT_CLS_T
#define OT_ERROR_LNG_RETURN
Tcl_Namespace * OT_NS_T
#define OT_CHECK_NI4(val)
#define OT_CHECK_NI8(val)
#define OT_retObj_SET_Error
#define OT_CHECK_NF8(val)
#define OT_CONSTRUCTOR_POST(x)
#define OT_CHECK_NIL(val)
#define OT_retObj_SET_BUF(nat)
#define OT_ERROR_CONSTRUCTOR(class)
#define OT_retObj_SET_DBL(nat)
#define OT_retObj_SET_I64(nat)
#define OT_retObj_SET_LONG(nat)
#define OT_CHECK_REQUIRED(val)
#define OT_retObj_SET_None
#define OT_retObj_SET_I32(nat)
#define OT_CHECK_NF4(val)
#define OT_retObj_SET_BFL(nat)
#define NS(n)
#define OT_GET__ME_REF_MkBinaryR(b)
#define OT_SETUP_CONSTRUCTOR_ARGS(...)
#define MkBufferStreamC_ARGS
#define OT_retObj_RETURN
#define OT_CHECK__ME_REF_MkBinaryR(val)
#define OT_retObj_SET_STR(nat)
#define OT_CHECK_NB1(val)
#define OT_NEW_Mk_enum_OBJ(typ, val)
Tcl_Object OT_SELF_T
#define OT_CHECK_OPTIONAL(val)
#define OT_retObj_SET_BUS(nat)
#define OT_retObj_SET(val)
#define OT_retObj_CONSTR(x)
#define OT_CHECK_NOARGS
#define MkErrorC_Check(mng, PROC)
#define OT_ProcRet
Tcl_Interp * OT_ENV_T
#define CONSTR_ARGS
Tcl_Obj * OT_OBJ_T
#define OT_CHECK_STRN(val)
#define Instances_doc
#define WriteBIN_doc
#define Create64_doc
#define ResetFull_doc
#define WriteHDL_doc
#define WriteL_START_doc
#define ReadBIN_doc
#define ReadBUF_doc
#define Create16384_doc
#define OT_SETUP_hdl_static_constr
#define WriteLONG_doc
#define ReadUndo_doc
#define Reset_doc
#define ReadBFL_doc
#define Create256_doc
#define OT_SETUP_hdl
#define ReadI64_doc
#define ReadI32_doc
#define ReadGetNextType_doc
#define Dup_doc
#define ToBFL_doc
#define CreateTLS_doc
#define WriteL_FLAT_doc
#define GetNull_doc
#define WriteBFL_doc
#define Next_doc
#define Merge_doc
#define Create_doc
#define ReadGetNumItems_doc
#define WriteBUF_doc
#define HandleResolve_doc
#define PosToStart_doc
#define ReadL_END_doc
#define Prev_doc
#define VER
#define Create1024_doc
static __thread MK_TYP MkBufferStreamCTT
#define ReadFLT_doc
#define WriteI64_doc
#define OT_CLASS
#define OT_SETUP_hdl_static
#define OT_SETUP_hdl_constr
#define ReadALL_doc
#define ReadI8_doc
#define WriteI8_doc
#define ReadDBL_doc
#define WriteFLT_doc
#define WriteBOL_doc
#define WriteI32_doc
#define WriteL_END_doc
#define ReadL_START_doc
#define ReadItemExists_doc
#define ReadLONG_doc
#define WriteDBL_doc
#define WriteBUS_FLAT_doc
#define CTOR_doc
#define ReadSTR_doc
#define ClassInit
#define Copy_doc
#define WriteSTR_doc
#define ReadBOL_doc
#define MkBufferListCreateTLS_T(name, num)
create a MkBufferListC instance as thread-local-storage …
#define MkBufferStream1024C_TT
class as MkTypeS-class-type, useable in a class-macro as: class##_TT …
#define MkBufferStream16384C_TT
class as MkTypeS-class-type, useable in a class-macro as: class##_TT …
#define MkBufferStream256C_TT
class as MkTypeS-class-type, useable in a class-macro as: class##_TT …
#define MkBufferStream64C_TT
class as MkTypeS-class-type, useable in a class-macro as: class##_TT …
#define MkBufferStreamHandleResolve(...)
#define MkBufferStreamInstances()
static MK_BUS MkBufferStreamNext(MK_BUS const bus)
get next instance from linked-list of MkBufferStreamS type
static MK_BUS MkBufferStreamGetNull(void)
Null-Slot - return a MkBufferStreamC typed NULL instance …
static MK_BUS MkBufferStreamPrev(MK_BUS const bus)
get previous instance from linked-list of MkBufferStreamS type
#define MkBufferStreamPosToStart(...)
#define MkBufferStreamToBFL(...)
#define MkBufferStreamCopy(...)
#define MkBufferStreamReset(...)
#define MkBufferStreamResetFull(...)
#define MkBufferStreamReadALL(...)
#define MkBufferStreamReadBUF(...)
#define MkBufferStreamReadBFL(...)
#define MkBufferStreamReadFLT(...)
#define MkBufferStreamReadUndo(...)
#define MkBufferStreamReadGetNumItems(...)
#define MkBufferStreamReadI32(...)
#define MkBufferStreamReadBIN(...)
#define MkBufferStreamReadL_START(...)
#define MkBufferStreamReadDBL(...)
#define MkBufferStreamReadI8(...)
#define MkBufferStreamReadGetNextType(...)
#define MkBufferStreamReadI64(...)
#define MkBufferStreamReadBOL(...)
#define MkBufferStreamReadLONG(...)
#define MkBufferStreamReadL_END(...)
#define MkBufferStreamReadSTR(...)
#define MkBufferStreamReadItemExists(...)
#define MkBufferStreamCreate16384(...)
#define MkBufferStreamDup(...)
#define MkBufferStreamCreate(...)
#define MkBufferStreamCreate1024(...)
#define MkBufferStreamCreateTLS(...)
#define MkBufferStreamMerge(...)
#define MkBufferStreamCreate64(...)
#define MkBufferStreamCreate256(...)
#define MkBufferStreamWriteI8(...)
#define MkBufferStreamWriteBUF(...)
#define MkBufferStreamWriteL_END(...)
#define MkBufferStreamWriteDBL(...)
#define MkBufferStreamWriteBOL(...)
#define MkBufferStreamWriteL_FLAT(...)
#define MkBufferStreamWriteLONG(...)
#define MkBufferStreamWriteBIN(...)
#define MkBufferStreamWriteBUS_FLAT(...)
#define MkBufferStreamWriteSTR(...)
#define MkBufferStreamWriteI64(...)
#define MkBufferStreamWriteHDL(...)
#define MkBufferStreamWriteBFL(...)
#define MkBufferStreamWriteL_START(...)
#define MkBufferStreamWriteFLT(...)
#define MkBufferStreamWriteI32(...)
#define MK_NULL_NO
flag, not allow NULL
#define MK_NULL_YES
flag, allow NULL
#define MK_UNUSED
mark unnused variables and functions
#define MK_DEPRECATED
int32_t MK_NUM
array size data-type ('num' items in array …
float MK_FLT
4 byte float data-type
MK_PTRB * MK_PTR
generic pointer data-type
const MK_STRB * MK_STRN
constant string pointer data-type
signed char MK_I8
1 byte byte data-type
signed long long MK_I64
8 byte wide integer data-type
bool MK_BOOL
real bool data-type
unsigned char MK_BOL
1 byte boolean data-type
long MK_LONG
4/8 byte long data-type
double MK_DBL
8 byte double data-type
int32_t MK_HDL
4 byte int handle data-type
signed int MK_I32
4 byte integer data-type
#define MkThreadLocal
#define MK_RT_CALL
#define MK_RT_ARGS
#define OT_CHECK_BUFN(val, nullB)
#define OT_CHECK_BUF(val, nullB)
#define OT_CHECK_BFLN(val, nullB)
#define OT_CHECK_BUSN(val, nullB)
#define OT_CHECK_BFL(val, nullB)
binary data default format …
The CLASS used to store a list of MkBufferS items into a flat array…
The ABSTRACT-CLASS used to store a native-type-data-item defined by PRIMITIVE TYPE …
The ABSTRACT-CLASS MkBufferStreamS is used for package-based serialized IO …
object header …
MkTypeS - class known as typ or type is used as class-base for a Managed-Object-Technology (MOT) type...