/dports/lang/seed7/seed7/src/ |
H A D | con_rtl.c | 154 bstriType bstri; in conWrite() local 157 bstri = stri_to_bstri8(stri); in conWrite() 159 bstri = stri_to_bstriw(stri, &err_info); in conWrite() 161 bstri = stri_to_bstri(stri, &err_info); in conWrite() 163 if (unlikely(bstri == NULL)) { in conWrite() 171 size = bstri->size / sizeof(os_charType); in conWrite() 173 size = bstri->size; in conWrite() 175 conText(cursor_line, cursor_column, (console_striType) bstri->mem, size); in conWrite() 176 FREE_BSTRI(bstri, bstri->size); in conWrite()
|
H A D | bstlib.c | 375 bstriType bstri; in bst_idx() local 381 bstri = take_bstri(arg_1(arguments)); in bst_idx() 402 bstriType bstri; in bst_lng() local 406 bstri = take_bstri(arg_1(arguments)); in bst_lng() 408 if (unlikely(bstri->size > MAX_MEM_INDEX)) { in bst_lng() 410 bstriAsUnquotedCStri(bstri));); in bst_lng() 414 return bld_int_temp((intType) bstri->size); in bst_lng() 486 bstriType bstri; in bst_value() local 500 bstri = take_bstri(aReference); in bst_value() 504 result->size = bstri->size; in bst_value() [all …]
|
H A D | bst_rtl.c | 322 intType bstHashCode (const const_bstriType bstri) in bstHashCode() argument 328 if (bstri->size == 0) { in bstHashCode() 331 result = (intType) ((memSizeType) bstri->mem[0] << 5 ^ in bstHashCode() 332 bstri->size << 3 ^ bstri->mem[bstri->size - 1]); in bstHashCode() 375 striType bstStr (const const_bstriType bstri) in bstStr() argument 381 logFunction(printf("bstStr(\"%s\")\n", bstriAsUnquotedCStri(bstri));); in bstStr() 382 if (unlikely(!ALLOC_STRI_CHECK_SIZE(result, bstri->size))) { in bstStr() 385 result->size = bstri->size; in bstStr() 386 memcpy_to_strelem(result->mem, bstri->mem, bstri->size); in bstStr()
|
H A D | striutl.c | 1789 bstriType bstri; in stri_to_bstri() local 1797 FREE_BSTRI(bstri, bstri->size); in stri_to_bstri() 1802 return bstri; in stri_to_bstri() 1820 bstriType bstri; in stri_to_bstri8() local 1824 bstri = NULL; in stri_to_bstri8() 1826 bstri->size = stri_to_utf8(bstri->mem, stri->mem, stri->size); in stri_to_bstri8() 1836 return bstri; in stri_to_bstri8() 1856 bstriType bstri; in stri_to_bstriw() local 1861 bstri = NULL; in stri_to_bstriw() 1885 return bstri; in stri_to_bstriw() [all …]
|
H A D | bst_rtl.h | 38 intType bstHashCode (const const_bstriType bstri); 40 striType bstStr (const const_bstriType bstri);
|
H A D | sql_fire.c | 1078 bstriType bstri; in getBlob() local 1097 bstri = NULL; in getBlob() 1104 bstri = NULL; in getBlob() 1106 bstri->size = copyBlobContents(blob_handle, blobLength, bstri->mem); in getBlob() 1109 bstri = NULL; in getBlob() 1119 bstri = NULL; in getBlob() 1124 return bstri; in getBlob() 1651 memcpy(sqlvar->sqldata, bstri->mem, bstri->size); in sqlBindBStri() 1667 bstri->mem, bstri->size); in sqlBindBStri() 2034 bstriType bstri; in sqlBindStri() local [all …]
|
H A D | flistutl.c | 272 if (count.bstri != 0) { in heapStatistic() 274 count.bstri * SIZ_BSTRI(0), in heapStatistic() 275 count.bstri, in heapStatistic() 277 bytes_used += count.bstri * SIZ_BSTRI(0); in heapStatistic() 280 count.bstri, in heapStatistic() 281 (unsigned long) ((count.bstri_elems * sizeof(ucharType)) / count.bstri)); in heapStatistic() 642 bytes_total += count.bstri * SIZ_BSTRI(0); in compute_hs() 850 ((memSizeType) count.bstri) * SIZ_BSTRI(0) + in check_heap()
|
H A D | sql_cli.c | 2029 bstriType bstri; in setNumericBigInt() local 2049 bstri = NULL; in setNumericBigInt() 2057 if (bstri == NULL) { in setNumericBigInt() 2069 memcpy(numStruct->val, bstri->mem, bstri->size); in setNumericBigInt() 2070 memset(&numStruct->val[bstri->size], 0, SQL_MAX_NUMERIC_LEN - bstri->size); in setNumericBigInt() 2072 bstDestr(bstri); in setNumericBigInt() 2089 bstriType bstri; in setNumericBigRat() local 2122 bstri = NULL; in setNumericBigRat() 2142 memcpy(numStruct->val, bstri->mem, bstri->size); in setNumericBigRat() 3185 minimum_size = bstri->size == 0 ? 1 : bstri->size; in sqlBindBStri() [all …]
|
H A D | big_gmp.c | 750 bigIntType bigFromBStriBe (const const_bstriType bstri, const boolType isSigned) in bigFromBStriBe() argument 754 bstriAsUnquotedCStri(bstri), isSigned);); in bigFromBStriBe() 755 return bigFromByteBufferBe(bstri->size, bstri->mem, isSigned); in bigFromBStriBe() 770 bigIntType bigFromBStriLe (const const_bstriType bstri, const boolType isSigned) in bigFromBStriLe() argument 774 bstriAsUnquotedCStri(bstri), isSigned);); in bigFromBStriLe() 775 return bigFromByteBufferLe(bstri->size, bstri->mem, isSigned); in bigFromBStriLe()
|
H A D | big_drv.h | 71 bigIntType bigFromBStriBe (const const_bstriType bstri, const boolType isSigned); 72 bigIntType bigFromBStriLe (const const_bstriType bstri, const boolType isSigned);
|
H A D | traceutl.h | 64 void prot_bstri (bstriType bstri);
|
H A D | ref_data.c | 1050 bstriType bstri; in bstValue() local 1056 (bstri = take_bstri(aReference)) == NULL)) { in bstValue() 1063 if (unlikely(!ALLOC_BSTRI_SIZE_OK(result, bstri->size))) { in bstValue() 1066 result->size = bstri->size; in bstValue() 1067 memcpy(result->mem, bstri->mem, (size_t) (result->size)); in bstValue()
|
H A D | sql_my.c | 1080 const const_bstriType bstri) in sqlBindBStri() argument 1089 (memSizeType) sqlStatement, pos, bstriAsUnquotedCStri(bstri));); in sqlBindBStri() 1097 if (unlikely(bstri->size > MAX_LONG_BLOB_LENGTH)) { in sqlBindBStri() 1100 if (preparedStmt->param_data_array[pos - 1].buffer_capacity < bstri->size) { in sqlBindBStri() 1102 if (unlikely((param->buffer = malloc(bstri->size)) == NULL)) { in sqlBindBStri() 1106 preparedStmt->param_data_array[pos - 1].buffer_capacity = bstri->size; in sqlBindBStri() 1112 if (bstri->size <= MAX_TINY_BLOB_LENGTH) { in sqlBindBStri() 1114 } else if (bstri->size <= MAX_BLOB_LENGTH) { in sqlBindBStri() 1116 } else if (bstri->size <= MAX_MEDIUM_BLOB_LENGTH) { in sqlBindBStri() 1126 memcpy(param->buffer, bstri->mem, bstri->size); in sqlBindBStri() [all …]
|
H A D | soc_rtl.c | 2237 bstriType bstri = NULL; in socWrite() local 2261 bstri = stri_to_bstri(stri, &err_info); in socWrite() 2262 if (unlikely(bstri == NULL)) { in socWrite() 2270 buf = bstri->mem; in socWrite() 2271 bytes_to_send = bstri->size; in socWrite() 2290 if (bstri != NULL) { in socWrite() 2291 FREE_BSTRI(bstri, bstri->size); in socWrite()
|
H A D | sql_oci.c | 2129 bstriType bstri; in getBlob() local 2144 bstri = NULL; in getBlob() 2148 bstri = NULL; in getBlob() 2158 bstri->mem, in getBlob() 2168 bstri = NULL; in getBlob() 2173 return bstri; in getBlob() 2404 byte_amount = bstri->size; in setBlob() 2411 (dvoid *) bstri->mem, in setBlob() 2412 (oraub8) bstri->size, in setBlob() 2675 const const_bstriType bstri) in sqlBindBStri() argument [all …]
|
H A D | sql_rtl.h | 39 const const_bstriType bstri);
|
H A D | sql_rtl.c | 188 const const_bstriType bstri) in sqlBindBStri() argument 192 (memSizeType) sqlStatement, pos, bstriAsUnquotedCStri(bstri));); in sqlBindBStri() 198 (memSizeType) sqlStatement, pos, bstriAsUnquotedCStri(bstri));); in sqlBindBStri() 201 ((preparedStmtType) sqlStatement)->sqlFunc->sqlBindBStri(sqlStatement, pos, bstri); in sqlBindBStri()
|
H A D | sqllib.c | 315 bstriType bstri; in sql_column_bstri() local 320 bstri = sqlColumnBStri(take_sqlstmt(arg_1(arguments)), in sql_column_bstri() 322 return bld_bstri_temp(bstri); in sql_column_bstri()
|
H A D | sql_drv.h | 42 const const_bstriType bstri);
|
H A D | sql_lite.c | 707 const const_bstriType bstri) in sqlBindBStri() argument 716 (memSizeType) sqlStatement, pos, bstriAsUnquotedCStri(bstri));); in sqlBindBStri() 736 } else if (unlikely(bstri->size > INT_MAX || in sqlBindBStri() 737 !ALLOC_CSTRI(blob, bstri->size))) { in sqlBindBStri() 741 memcpy(blob, bstri->mem, bstri->size); in sqlBindBStri() 745 (int) bstri->size, in sqlBindBStri()
|
H A D | sql_tds.c | 1340 const const_bstriType bstri) in sqlBindBStri() argument 1351 (memSizeType) sqlStatement, pos, bstriAsUnquotedCStri(bstri));); in sqlBindBStri() 1359 if (unlikely(bstri->size > (MAX_STRI_LEN - 2) / 2 || in sqlBindBStri() 1360 !ALLOC_STRI_CHECK_SIZE(stri, 2 + 2 * bstri->size))) { in sqlBindBStri() 1363 stri->size = 2 + 2 * bstri->size; in sqlBindBStri() 1366 for (idx = 0; idx < bstri->size; idx++) { in sqlBindBStri() 1367 stri->mem[(idx << 1) + 2] = digit[bstri->mem[idx] >> 4]; in sqlBindBStri() 1368 stri->mem[(idx << 1) + 3] = digit[bstri->mem[idx] & 0xf]; in sqlBindBStri()
|
/dports/lang/seed7/seed7/prg/ |
H A D | chkbst.sd7 | 33 return bstri; 165 bstri := bstri; 167 writeln(" ***** 'bstri := bstri' does not work correct."); 170 do_assign(bstri, bstri); 172 writeln(" ***** 'bstri := bstri' does not work correct."); 548 bstri := TRUE ? thenValue : elseValue; ok := ok and bstri = thenValue; 549 bstri := FALSE ? thenValue : elseValue; ok := ok and bstri = elseValue; 550 bstri := TRUE ? thenValue : bstriExpr(elseValue); ok := ok and bstri = thenValue; 551 bstri := FALSE ? thenValue : bstriExpr(elseValue); ok := ok and bstri = elseValue; 556 bstri := boolExpr( TRUE) ? thenValue : elseValue; ok := ok and bstri = thenValue; [all …]
|
/dports/lang/seed7/seed7/lib/ |
H A D | bstring.s7i | 66 const func string: literal (in bstring: bstri) is 67 return "bstring(" & literal(str(bstri)) & ")"; 149 const proc: for (inout char: forVar) range (in bstring: bstri) do 155 for number range 1 to length(bstri) do 156 forVar := bstri[number]; 164 * @param bstri Bstring to be converted. The bytes are interpreted 166 * @param isSigned Defines if ''bstri'' is interpreted as signed value. 172 const func bigInteger: bStriBe2BigInt (in bstring: bstri, 178 * @param bstri Bstring to be converted. The bytes are interpreted 180 * @param isSigned Defines if ''bstri'' is interpreted as signed value. [all …]
|
/dports/lang/seed7/seed7/lib/comp/ |
H A D | literal.s7i | 109 const func string: bstriLiteral (in bstring: bstri) is func 114 if bstri not in bstri_const_table then 115 bstri_const_table @:= [bstri] length(bstri_const_table); 121 expr &:= str(bstri_const_table[bstri]);
|
H A D | bst_act.s7i | 195 const proc: process_const_bst_idx (in bstring: bstri, 206 if index_value < 1 or index_value > length(bstri) then 210 c_expr.expr &:= charLiteral(bstri[index_value]); 214 c_expr.expr &:= bstriLiteral(bstri); 244 c_expr.expr &:= integerLiteral(length(bstri));
|