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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#include <cstdlib>
#include <cstring>
#include "Strings/Character.h"
template<typename T>
struct CharacterValue {
T *Ptr;
size_t Length;
CharacterValue() {}
CharacterValue(T *P, size_t Len)
: Ptr(P), Length(Len) {}
CharacterValue<T> sliceFrom(size_t Start) const {
return CharacterValue<T>(Ptr + Start, Length - Start);
}
};
static inline
CharacterValue<const char> generic(const char *Ptr, size_t Length) {
return CharacterValue<const char>(Ptr, Length);
}
static inline
CharacterValue<char> generic(char *Ptr, size_t Length) {
return CharacterValue<char>(Ptr, Length);
}
/// Returns true if a character is a whitespace
static bool isWhitespace(uint32_t C) {
return C == ' '; //FIXME
}
template<typename T>
static void fill(const CharacterValue<T> String, const char C = ' ') {
for(size_t I = 0; I < String.Length; ++I)
String.Ptr[I] = T(C);
}
template<typename T>
static void assign(const CharacterValue<T> LHS,
const CharacterValue<T> RHS) {
if(LHS.Length <= RHS.Length) {
memmove(LHS.Ptr, RHS.Ptr, LHS.Length);
return;
}
memmove(LHS.Ptr, RHS.Ptr, RHS.Length);
fill(LHS.sliceFrom(RHS.Length));
}
template<typename T>
static void concat(CharacterValue<T> Dest,
const CharacterValue<T> LHS,
const CharacterValue<T> RHS) {
if(Dest.Length <= LHS.Length) {
memmove(Dest.Ptr, LHS.Ptr, Dest.Length);
return;
}
memmove(Dest.Ptr, LHS.Ptr, LHS.Length);
Dest = Dest.sliceFrom(LHS.Length);
if(Dest.Length <= RHS.Length) {
memmove(Dest.Ptr, RHS.Ptr, Dest.Length);
return;
}
memmove(Dest.Ptr, RHS.Ptr, RHS.Length);
fill(Dest.sliceFrom(RHS.Length));
}
template<typename T>
static int32_t compare(const CharacterValue<T> LHS,
const CharacterValue<T> RHS) {
if(LHS.Length < RHS.Length) return -1;
else if(LHS.Length > RHS.Length) return 1;
return memcmp(LHS.Ptr, RHS.Ptr, LHS.Length);
}
template<typename T>
static int32_t lexcompare(const CharacterValue<T> LHS,
const CharacterValue<T> RHS) {
return 0;//FIXME
}
template<typename T>
static size_t lentrim(const CharacterValue<T> String) {
for(size_t I = String.Length; I > 0; I--) {
if(isWhitespace(String.Ptr[I-1])) return I;
}
return String.Length;
}
// core
LIBFLANG_ABI void libflang_assignment_char1(char *LHS, size_t LHSLength,
char *RHS, size_t RHSLength) {
assign(generic(LHS, LHSLength), generic(RHS, RHSLength));
}
LIBFLANG_ABI void libflang_concat_char1(char *Dest, size_t DestLength,
char *LHS, size_t LHSLength,
char *RHS, size_t RHSLength) {
concat(generic(Dest, DestLength),
generic(LHS, LHSLength), generic(RHS, RHSLength));
}
LIBFLANG_ABI int32_t libflang_compare_char1(const char *LHS, size_t LHSLength,
const char *RHS, size_t RHSLength) {
return compare(generic(LHS, LHSLength), generic(RHS, RHSLength));
}
// intrinsics
LIBFLANG_ABI int32_t libflang_lexcompare_char1(const char *LHS, size_t LHSLength,
const char *RHS, size_t RHSLength) {
return lexcompare(generic(LHS, LHSLength), generic(RHS, RHSLength));
}
LIBFLANG_ABI size_t libflang_lentrim_char1(const char *String, size_t Length) {
return lentrim(generic(String, Length));
}
|
