static void tuple_indices_push(call_tuple_indices_t* ti, size_t idx)
{
if(ti->count == ti->alloc)
{
size_t old_alloc = ti->alloc * sizeof(size_t);
ti->data =
(size_t*)ponyint_pool_realloc_size(old_alloc, old_alloc * 2, ti->data);
ti->alloc *= 2;
}
ti->data[ti->count++] = idx;
}
void printbuf(printbuf_t* buf, const char* fmt, ...)
{
size_t avail = buf->size - buf->offset;
va_list ap;
va_start(ap, fmt);
int r = vsnprintf(buf->m + buf->offset, avail, fmt, ap);
va_end(ap);
if(r < 0)
{
#ifdef PLATFORM_IS_WINDOWS
va_start(ap, fmt);
r = _vscprintf(fmt, ap);
va_end(ap);
if(r < 0)
return;
#else
return;
#endif
}
if((size_t)r >= avail)
{
size_t new_size = buf->size + r + 1;
buf->m = (char*)ponyint_pool_realloc_size(buf->size, new_size, buf->m);
buf->size = new_size;
avail = buf->size - buf->offset;
va_start(ap, fmt);
r = vsnprintf(buf->m + buf->offset, avail, fmt, ap);
va_end(ap);
pony_assert((r > 0) && ((size_t)r < buf->size));
}
buf->offset += r;
}
// Attempt to parse the source files in the specified directory and add them to
// the given package AST
// @return true on success, false on error
static bool parse_files_in_dir(ast_t* package, const char* dir_path,
pass_opt_t* opt)
{
PONY_ERRNO err = 0;
PONY_DIR* dir = pony_opendir(dir_path, &err);
errors_t* errors = opt->check.errors;
if(dir == NULL)
{
switch(err)
{
case EACCES: errorf(errors, dir_path, "permission denied"); break;
case ENOENT: errorf(errors, dir_path, "does not exist"); break;
case ENOTDIR: errorf(errors, dir_path, "not a directory"); break;
default: errorf(errors, dir_path, "unknown error"); break;
}
return false;
}
size_t count = 0;
size_t buf_size = 4 * sizeof(const char*);
const char** entries = (const char**)ponyint_pool_alloc_size(buf_size);
PONY_DIRINFO* d;
while((d = pony_dir_entry_next(dir)) != NULL)
{
// Handle only files with the specified extension that don't begin with
// a dot. This avoids including UNIX hidden files in a build.
const char* name = stringtab(pony_dir_info_name(d));
if(name[0] == '.')
continue;
const char* p = strrchr(name, '.');
if((p != NULL) && (strcmp(p, EXTENSION) == 0))
{
if((count * sizeof(const char*)) == buf_size)
{
size_t new_buf_size = buf_size * 2;
entries = (const char**)ponyint_pool_realloc_size(buf_size,
new_buf_size, entries);
buf_size = new_buf_size;
}
entries[count++] = name;
}
}
pony_closedir(dir);
// In order for package signatures to be deterministic, file parsing order
// must be deterministic too.
qsort(entries, count, sizeof(const char*), string_compare);
bool r = true;
for(size_t i = 0; i < count; i++)
{
char fullpath[FILENAME_MAX];
path_cat(dir_path, entries[i], fullpath);
r &= parse_source_file(package, fullpath, opt);
}
ponyint_pool_free_size(buf_size, entries);
return r;
}
