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]); }