forked from countingpine/tinybasic
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathrtlib.cpp
More file actions
68 lines (53 loc) · 1.19 KB
/
rtlib.cpp
File metadata and controls
68 lines (53 loc) · 1.19 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
//#include <error.h>
#include "inc/rtlib.h"
TBSTRING& concat(const TBSTRING& lhs, const TBSTRING& rhs)
{
int len = lhs.len + rhs.len;
TBSTRING& result = *TBSTRING_alloc_temp(len);
if(lhs.len) {
memcpy(result.data, lhs.data, lhs.len);
}
if(rhs.len) {
memcpy(&(((char *)result.data)[lhs.len]), rhs.data, rhs.len);
}
if(len) {
((char *)result.data)[len] = 0;
}
markIfTemp((TBSTRING *)&lhs);
markIfResult((TBSTRING *)&lhs);
markIfTemp((TBSTRING *)&rhs);
markIfResult((TBSTRING *)&rhs);
return result;
}
TBSTRING& zstr_temp(char *s)
{
TBSTRING *result = TBSTRING_alloc_temp(0);
if(s) {
int s_len = strlen(s);
if(s_len) {
result->len = s_len;
result->size = s_len + 1;
result->data = calloc(s_len + 1, 1);
strcpy((char *)result->data, s);
}
}
return *result;
}
TBSTRING& int_to_str(int i)
{
TBSTRING *result = TBSTRING_alloc_temp(32);
sprintf((char *)result->data, "%i", i);
result->len = strlen((char *)result->data);
result->size = 32;
return *result;
}
char *TBSTRING_to_zstrp(const TBSTRING& s)
{
markIfTemp((TBSTRING *)&s);
markIfResult((TBSTRING *)&s);
return (char *)s.data;
}