// ------------------------------------------------------------------
// ciType::name
//
// Return the name of this type
const char* ciType::name() {
if (is_primitive_type()) {
return type2name(basic_type());
} else {
assert(is_klass(), "must be");
return as_klass()->name()->as_utf8();
}
}
// ------------------------------------------------------------------
// ciType::box_klass
//
ciKlass* ciType::box_klass() {
if (!is_primitive_type()) return this->as_klass(); // reference types are "self boxing"
// Void is "boxed" with a null.
if (basic_type() == T_VOID) return NULL;
VM_ENTRY_MARK;
return CURRENT_THREAD_ENV->get_instance_klass(SystemDictionary::box_klass(basic_type()));
}
bool is_classless() const { return is_primitive_type(); }
/* cbs_convert_ber reads BER data from |in| and writes DER data to |out|. If
* |squash_header| is set then the top-level of elements from |in| will not
* have their headers written. This is used when concatenating the fragments of
* an indefinite length, primitive value. If |looking_for_eoc| is set then any
* EOC elements found will cause the function to return after consuming it.
* It returns one on success and zero on error. */
static int cbs_convert_ber(CBS *in, CBB *out, char squash_header,
char looking_for_eoc, unsigned depth) {
if (depth > kMaxDepth) {
return 0;
}
while (CBS_len(in) > 0) {
CBS contents;
unsigned tag;
size_t header_len;
CBB *out_contents, out_contents_storage;
if (!CBS_get_any_ber_asn1_element(in, &contents, &tag, &header_len)) {
return 0;
}
out_contents = out;
if (CBS_len(&contents) == header_len) {
if (is_eoc(header_len, &contents)) {
return looking_for_eoc;
}
if (header_len > 0 && CBS_data(&contents)[header_len - 1] == 0x80) {
/* This is an indefinite length element. If it's a SEQUENCE or SET then
* we just need to write the out the contents as normal, but with a
* concrete length prefix.
*
* If it's a something else then the contents will be a series of BER
* elements of the same type which need to be concatenated. */
const char context_specific = (tag & 0xc0) == 0x80;
char squash_child_headers = is_primitive_type(tag);
/* This is a hack, but it sufficies to handle NSS's output. If we find
* an indefinite length, context-specific tag with a definite, primitive
* tag inside it, then we assume that the context-specific tag is
* implicit and the tags within are fragments of a primitive type that
* need to be concatenated. */
if (context_specific && (tag & CBS_ASN1_CONSTRUCTED)) {
CBS in_copy, inner_contents;
unsigned inner_tag;
size_t inner_header_len;
CBS_init(&in_copy, CBS_data(in), CBS_len(in));
if (!CBS_get_any_ber_asn1_element(&in_copy, &inner_contents,
&inner_tag, &inner_header_len)) {
return 0;
}
if (CBS_len(&inner_contents) > inner_header_len &&
is_primitive_type(inner_tag)) {
squash_child_headers = 1;
}
}
if (!squash_header) {
unsigned out_tag = tag;
if (squash_child_headers) {
out_tag &= ~CBS_ASN1_CONSTRUCTED;
}
if (!CBB_add_asn1(out, &out_contents_storage, out_tag)) {
return 0;
}
out_contents = &out_contents_storage;
}
if (!cbs_convert_ber(in, out_contents,
squash_child_headers,
1 /* looking for eoc */, depth + 1)) {
return 0;
}
if (out_contents != out && !CBB_flush(out)) {
return 0;
}
continue;
}
}
if (!squash_header) {
if (!CBB_add_asn1(out, &out_contents_storage, tag)) {
return 0;
}
out_contents = &out_contents_storage;
}
if (!CBS_skip(&contents, header_len)) {
return 0;
}
if (tag & CBS_ASN1_CONSTRUCTED) {
if (!cbs_convert_ber(&contents, out_contents, 0 /* don't squash header */,
0 /* not looking for eoc */, depth + 1)) {
return 0;
}
} else {
if (!CBB_add_bytes(out_contents, CBS_data(&contents),
CBS_len(&contents))) {
return 0;
}
}
if (out_contents != out && !CBB_flush(out)) {
return 0;
}
}
return looking_for_eoc == 0;
}
static BOOL parse_template_members_list(parse_buffer * buf)
{
int idx_member = 0;
member* cur_member;
while (1)
{
BOOL array = 0;
int nb_dims = 0;
cur_member = &buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[idx_member];
if (check_TOKEN(buf) == TOKEN_ARRAY)
{
get_TOKEN(buf);
array = 1;
}
if (check_TOKEN(buf) == TOKEN_NAME)
{
cur_member->type = get_TOKEN(buf);
cur_member->idx_template = 0;
while (cur_member->idx_template < buf->pdxf->nb_xtemplates)
{
if (!strcasecmp((char*)buf->value, buf->pdxf->xtemplates[cur_member->idx_template].name))
break;
cur_member->idx_template++;
}
if (cur_member->idx_template == buf->pdxf->nb_xtemplates)
{
ERR("Reference to a nonexistent template '%s'\n", (char*)buf->value);
return FALSE;
}
}
else if (is_primitive_type(check_TOKEN(buf)))
cur_member->type = get_TOKEN(buf);
else
break;
if (get_TOKEN(buf) != TOKEN_NAME)
return FALSE;
strcpy(cur_member->name, (char*)buf->value);
if (array)
{
while (check_TOKEN(buf) == TOKEN_OBRACKET)
{
if (nb_dims >= MAX_ARRAY_DIM)
{
FIXME("Too many dimensions (%d) for multi-dimensional array\n", nb_dims + 1);
return FALSE;
}
get_TOKEN(buf);
if (check_TOKEN(buf) == TOKEN_INTEGER)
{
get_TOKEN(buf);
cur_member->dim_fixed[nb_dims] = TRUE;
cur_member->dim_value[nb_dims] = *(DWORD*)buf->value;
}
else
{
int i;
if (get_TOKEN(buf) != TOKEN_NAME)
return FALSE;
for (i = 0; i < idx_member; i++)
{
if (!strcmp((char*)buf->value, buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].name))
{
if (buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].nb_dims)
{
ERR("Array cannot be used to specify variable array size\n");
return FALSE;
}
if (buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].type != TOKEN_DWORD)
{
FIXME("Only DWORD supported to specify variable array size\n");
return FALSE;
}
break;
}
}
if (i == idx_member)
{
ERR("Reference to unknown member %s\n", (char*)buf->value);
return FALSE;
}
cur_member->dim_fixed[nb_dims] = FALSE;
cur_member->dim_value[nb_dims] = i;
}
if (get_TOKEN(buf) != TOKEN_CBRACKET)
return FALSE;
nb_dims++;
}
if (!nb_dims)
return FALSE;
cur_member->nb_dims = nb_dims;
}
if (get_TOKEN(buf) != TOKEN_SEMICOLON)
return FALSE;
idx_member++;
}
buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].nb_members = idx_member;
return TRUE;
}
void testIsPrimitive(char *buf)
{
printf("===== Testing is_primitive_type ======\n");
printf("%d\n", is_primitive_type(buf) ? 1 : 0);
}