void push_object(LispObject object)
{
if (is_stack_full()) {
write_format(standard_error, "Stack Overflow\n");
exit(1);
}
global_stack[++global_stack_top] = object;
}
void
process_final_header_line() {
if(_is_add_filter_tag) {
_os << _haploid_filter_prefix
<< ",Description=\"Locus has heterozygous genotype in a haploid region.\">\n";
}
write_format(_opt.orig_pl_tag.c_str(),".","Integer","Original PL value before ploidy correction");
}
/* Create a packed filesystem in DIR. Set the shard size to
SHARD_SIZE and create NUM_REVS number of revisions (in addition to
r0). Use POOL for allocations. After this function successfully
completes, the filesystem's youngest revision number will be the
same as NUM_REVS. */
static svn_error_t *
create_packed_filesystem(const char *dir,
const svn_test_opts_t *opts,
int num_revs,
int shard_size,
apr_pool_t *pool)
{
svn_fs_t *fs;
svn_fs_txn_t *txn;
svn_fs_root_t *txn_root;
const char *conflict;
svn_revnum_t after_rev;
apr_pool_t *subpool = svn_pool_create(pool);
apr_pool_t *iterpool;
int version;
/* Create a filesystem, then close it */
SVN_ERR(svn_test__create_fs(&fs, dir, opts, subpool));
svn_pool_destroy(subpool);
subpool = svn_pool_create(pool);
/* Rewrite the format file */
SVN_ERR(svn_io_read_version_file(&version,
svn_dirent_join(dir, "format", subpool),
subpool));
SVN_ERR(write_format(dir, version, shard_size, subpool));
/* Reopen the filesystem */
SVN_ERR(svn_fs_open(&fs, dir, NULL, subpool));
/* Revision 1: the Greek tree */
SVN_ERR(svn_fs_begin_txn(&txn, fs, 0, subpool));
SVN_ERR(svn_fs_txn_root(&txn_root, txn, subpool));
SVN_ERR(svn_test__create_greek_tree(txn_root, subpool));
SVN_ERR(svn_fs_commit_txn(&conflict, &after_rev, txn, subpool));
SVN_TEST_ASSERT(SVN_IS_VALID_REVNUM(after_rev));
/* Revisions 2 thru NUM_REVS-1: content tweaks to "iota". */
iterpool = svn_pool_create(subpool);
while (after_rev < num_revs)
{
svn_pool_clear(iterpool);
SVN_ERR(svn_fs_begin_txn(&txn, fs, after_rev, iterpool));
SVN_ERR(svn_fs_txn_root(&txn_root, txn, iterpool));
SVN_ERR(svn_test__set_file_contents(txn_root, "iota",
get_rev_contents(after_rev + 1,
iterpool),
iterpool));
SVN_ERR(svn_fs_commit_txn(&conflict, &after_rev, txn, iterpool));
SVN_TEST_ASSERT(SVN_IS_VALID_REVNUM(after_rev));
}
svn_pool_destroy(iterpool);
svn_pool_destroy(subpool);
/* Now pack the FS */
return svn_fs_pack(dir, NULL, NULL, NULL, NULL, pool);
}
wave_writer(char* file, int number_channels, int samples_per_sec) :
stream(file, file_stream::Writable),
data_size(0),
number_channels(number_channels),
samples_per_sec(samples_per_sec) {
write_header();
write_format();
start_data();
}
LispObject pop_object(void)
{
if (is_stack_empty()) {
write_format(standard_error, "Stack Underflow\n");
exit(1);
}
return global_stack[global_stack_top--];
}
void write_file0(const char* fn) {
FILE* fd = safe_fopen(fn, "w");
write_file_version(fd);
write_header(fd);
write_format(fd);
write_vertices(fd);
write_cells(fd);
write_cells_attributes(fd);
fclose(fd);
}
/* Create a packed filesystem in DIR. Set the shard size to SHARD_SIZE
and create MAX_REV number of revisions. Use POOL for allocations. */
static svn_error_t *
create_packed_filesystem(const char *dir,
svn_test_opts_t *opts,
int max_rev,
int shard_size,
apr_pool_t *pool)
{
svn_fs_t *fs;
svn_fs_txn_t *txn;
svn_fs_root_t *txn_root;
const char *conflict;
svn_revnum_t after_rev;
apr_pool_t *subpool = svn_pool_create(pool);
apr_pool_t *iterpool;
/* Create a filesystem, then close it */
SVN_ERR(svn_test__create_fs(&fs, dir, opts, subpool));
svn_pool_destroy(subpool);
subpool = svn_pool_create(pool);
/* Rewrite the format file */
SVN_ERR(write_format(dir, SVN_FS_FS__MIN_PACKED_FORMAT,
shard_size, subpool));
/* Reopen the filesystem */
SVN_ERR(svn_fs_open(&fs, dir, NULL, subpool));
/* Revision 1: the Greek tree */
SVN_ERR(svn_fs_begin_txn(&txn, fs, 0, subpool));
SVN_ERR(svn_fs_txn_root(&txn_root, txn, subpool));
SVN_ERR(svn_test__create_greek_tree(txn_root, subpool));
SVN_ERR(svn_fs_commit_txn(&conflict, &after_rev, txn, subpool));
/* Revisions 2-11: A bunch of random changes. */
iterpool = svn_pool_create(subpool);
while (after_rev < max_rev + 1)
{
svn_pool_clear(iterpool);
SVN_ERR(svn_fs_begin_txn(&txn, fs, after_rev, iterpool));
SVN_ERR(svn_fs_txn_root(&txn_root, txn, iterpool));
SVN_ERR(svn_test__set_file_contents(txn_root, "iota",
get_rev_contents(after_rev + 1,
iterpool),
iterpool));
SVN_ERR(svn_fs_commit_txn(&conflict, &after_rev, txn, iterpool));
}
svn_pool_destroy(iterpool);
svn_pool_destroy(subpool);
/* Now pack the FS */
return svn_fs_pack(dir, NULL, NULL, NULL, NULL, pool);
}
char *get_next_token(char *string, int *offset)
{
int i;
if ('"' == *string) {
i = 1;
while (string[i] != '\0' && string[i] != '"')
i++;
if ('\0' == string[i]) {
write_format(standard_error, "Incomplete string\n");
exit(1);
}
*offset = ++i;
} else {
i = 0;
while (string[i] != ' ' && string[i] != '(' &&
string[i] != ')' && string[i] != '\0' &&
string[i] != '\n')
i++;
*offset = i;
}
return strndup(string, i);
}
static IOutStream &_print(IOutStream &s, const std::string &name, const void *p)
{
write_format(s, "[#native-fn/%s/%p]", name.c_str(), p);
return s;
}
void describe_global_stack(void)
{
for (int i = 0; i <= global_stack_top; ++i)
write_format(standard_output, "[%d] %!\n",
TO_FIXNUM(i), global_stack[i]);
}
