chris@1544: /* chris@1544: * svn-archive.c chris@1544: * ---------- chris@1544: * Walk through a given revision of a local Subversion repository and export chris@1544: * all of the contents as a tarfile. chris@1544: * chris@1544: * Author: Chris Lee chris@1544: * License: MIT chris@1544: */ chris@1544: chris@1544: #define _XOPEN_SOURCE chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: chris@1544: #ifndef PATH_MAX chris@1544: #define PATH_MAX 4096 chris@1544: #endif chris@1544: chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: #include chris@1544: chris@1544: #undef SVN_ERR chris@1544: #define SVN_ERR(expr) SVN_INT_ERR(expr) chris@1544: #define apr_sane_push(arr, contents) *(char **)apr_array_push(arr) = contents chris@1544: chris@1544: #define TRUNK "/trunk" chris@1544: chris@1544: static time_t archive_time; chris@1544: chris@1544: time_t get_epoch(char *svn_date) chris@1544: { chris@1544: struct tm tm = {0}; chris@1544: char *date = malloc(strlen(svn_date) * sizeof(char *)); chris@1544: strncpy(date, svn_date, strlen(svn_date) - 8); chris@1544: strptime(date, "%Y-%m-%dT%H:%M:%S", &tm); chris@1544: free(date); chris@1544: return mktime(&tm); chris@1544: } chris@1544: chris@1544: int tar_header(apr_pool_t *pool, char *path, char *node, size_t f_size) chris@1544: { chris@1544: char buf[512]; chris@1544: unsigned int i, checksum; chris@1544: svn_boolean_t is_dir; chris@1544: chris@1544: memset(buf, 0, sizeof(buf)); chris@1544: chris@1544: if ((strlen(path) == 0) && (strlen(node) == 0)) { chris@1544: return 0; chris@1544: } chris@1544: chris@1544: if (strlen(node) == 0) { chris@1544: is_dir = 1; chris@1544: } else { chris@1544: is_dir = 0; chris@1544: } chris@1544: chris@1544: if (strlen(path) == 0) { chris@1544: strncpy(buf, apr_psprintf(pool, "%s", node), 99); chris@1544: } else if (strlen(path) + strlen(node) < 100) { chris@1544: strncpy(buf, apr_psprintf(pool, "%s/%s", path+1, node), 99); chris@1544: } else { chris@1544: fprintf(stderr, "really long file path...\n"); chris@1544: strncpy(&buf[0], node, 99); chris@1544: strncpy(&buf[345], path+1, 154); chris@1544: } chris@1544: chris@1544: strncpy(&buf[100], apr_psprintf(pool, "%07o", (is_dir ? 0755 : 0644)), 7); chris@1544: strncpy(&buf[108], apr_psprintf(pool, "%07o", 1000), 7); chris@1544: strncpy(&buf[116], apr_psprintf(pool, "%07o", 1000), 7); chris@1544: strncpy(&buf[124], apr_psprintf(pool, "%011lo", f_size), 11); chris@1544: strncpy(&buf[136], apr_psprintf(pool, "%011lo", archive_time), 11); chris@1544: strncpy(&buf[156], (is_dir ? "5" : "0"), 1); chris@1544: strncpy(&buf[257], "ustar ", 8); chris@1544: strncpy(&buf[265], "clee", 31); chris@1544: strncpy(&buf[297], "clee", 31); chris@1544: // strncpy(&buf[329], apr_psprintf(pool, "%07o", 0), 7); chris@1544: // strncpy(&buf[337], apr_psprintf(pool, "%07o", 0), 7); chris@1544: chris@1544: strncpy(&buf[148], " ", 8); chris@1544: checksum = 0; chris@1544: for (i = 0; i < sizeof(buf); i++) { chris@1544: checksum += buf[i]; chris@1544: } chris@1544: strncpy(&buf[148], apr_psprintf(pool, "%07o", checksum & 0x1fffff), 7); chris@1544: chris@1544: fwrite(buf, sizeof(char), sizeof(buf), stdout); chris@1544: chris@1544: return 0; chris@1544: } chris@1544: chris@1544: int tar_footer() chris@1544: { chris@1544: char block[1024]; chris@1544: memset(block, 0, sizeof(block)); chris@1544: fwrite(block, sizeof(char), sizeof(block), stdout); chris@1544: } chris@1544: chris@1544: int dump_blob(svn_fs_root_t *root, char *prefix, char *path, char *node, apr_pool_t *pool) chris@1544: { chris@1544: char *full_path, buf[512]; chris@1544: apr_size_t len; chris@1544: svn_stream_t *stream; chris@1544: svn_filesize_t stream_length; chris@1544: chris@1544: full_path = apr_psprintf(pool, "%s%s/%s", prefix, path, node); chris@1544: chris@1544: SVN_ERR(svn_fs_file_length(&stream_length, root, full_path, pool)); chris@1544: SVN_ERR(svn_fs_file_contents(&stream, root, full_path, pool)); chris@1544: chris@1544: tar_header(pool, path, node, stream_length); chris@1544: chris@1544: do { chris@1544: len = sizeof(buf); chris@1544: memset(buf, '\0', sizeof(buf)); chris@1544: SVN_ERR(svn_stream_read(stream, buf, &len)); chris@1544: fwrite(buf, sizeof(char), sizeof(buf), stdout); chris@1544: } while (len == sizeof(buf)); chris@1544: chris@1544: return 0; chris@1544: } chris@1544: chris@1544: int dump_tree(svn_fs_root_t *root, char *prefix, char *path, apr_pool_t *pool) chris@1544: { chris@1544: const void *key; chris@1544: void *val; chris@1544: char *node, *subpath, *full_path; chris@1544: chris@1544: apr_pool_t *subpool; chris@1544: apr_hash_t *dir_entries; chris@1544: apr_hash_index_t *i; chris@1544: chris@1544: svn_boolean_t is_dir; chris@1544: chris@1544: tar_header(pool, path, "", 0); chris@1544: chris@1544: SVN_ERR(svn_fs_dir_entries(&dir_entries, root, apr_psprintf(pool, "%s/%s", prefix, path), pool)); chris@1544: chris@1544: subpool = svn_pool_create(pool); chris@1544: chris@1544: for (i = apr_hash_first(pool, dir_entries); i; i = apr_hash_next(i)) { chris@1544: svn_pool_clear(subpool); chris@1544: apr_hash_this(i, &key, NULL, &val); chris@1544: node = (char *)key; chris@1544: chris@1544: subpath = apr_psprintf(subpool, "%s/%s", path, node); chris@1544: full_path = apr_psprintf(subpool, "%s%s", prefix, subpath); chris@1544: chris@1544: svn_fs_is_dir(&is_dir, root, full_path, subpool); chris@1544: chris@1544: if (is_dir) { chris@1544: dump_tree(root, prefix, subpath, subpool); chris@1544: } else { chris@1544: dump_blob(root, prefix, path, node, subpool); chris@1544: } chris@1544: } chris@1544: chris@1544: svn_pool_destroy(subpool); chris@1544: chris@1544: return 0; chris@1544: } chris@1544: chris@1544: int crawl_filesystem(char *repos_path, char *root_path, apr_pool_t *pool) chris@1544: { chris@1544: char *path; chris@1544: chris@1544: apr_hash_t *props; chris@1544: apr_hash_index_t *i; chris@1544: chris@1544: svn_repos_t *repos; chris@1544: svn_fs_t *fs; chris@1544: svn_string_t *svndate; chris@1544: svn_revnum_t youngest_rev, export_rev; chris@1544: svn_fs_root_t *fs_root; chris@1544: chris@1544: SVN_ERR(svn_fs_initialize(pool)); chris@1544: SVN_ERR(svn_repos_open(&repos, repos_path, pool)); chris@1544: if ((fs = svn_repos_fs(repos)) == NULL) chris@1544: return -1; chris@1544: SVN_ERR(svn_fs_youngest_rev(&youngest_rev, fs, pool)); chris@1544: chris@1544: export_rev = youngest_rev; chris@1544: chris@1544: SVN_ERR(svn_fs_revision_root(&fs_root, fs, export_rev, pool)); chris@1544: SVN_ERR(svn_fs_revision_proplist(&props, fs, export_rev, pool)); chris@1544: chris@1544: svndate = apr_hash_get(props, "svn:date", APR_HASH_KEY_STRING); chris@1544: archive_time = get_epoch((char *)svndate->data); chris@1544: chris@1544: fprintf(stderr, "Exporting archive of r%ld... \n", export_rev); chris@1544: chris@1544: dump_tree(fs_root, root_path, "", pool); chris@1544: chris@1544: tar_footer(); chris@1544: chris@1544: fprintf(stderr, "done!\n"); chris@1544: chris@1544: return 0; chris@1544: } chris@1544: chris@1544: int main(int argc, char *argv[]) chris@1544: { chris@1544: apr_pool_t *pool; chris@1544: apr_getopt_t *options; chris@1544: chris@1544: apr_getopt_option_t long_options[] = { chris@1544: { "help", 'h', 0 }, chris@1544: { "prefix", 'p', 0 }, chris@1544: { "basename", 'b', 0 }, chris@1544: { "revision", 'r', 0 }, chris@1544: { NULL, 0, 0 } chris@1544: }; chris@1544: chris@1544: if (argc < 2) { chris@1544: fprintf(stderr, "usage: %s REPOS_PATH [prefix]\n", argv[0]); chris@1544: return -1; chris@1544: } chris@1544: chris@1544: if (apr_initialize() != APR_SUCCESS) { chris@1544: fprintf(stderr, "You lose at apr_initialize().\n"); chris@1544: return -1; chris@1544: } chris@1544: chris@1544: pool = svn_pool_create(NULL); chris@1544: chris@1544: crawl_filesystem(argv[1], (argc == 3 ? argv[2] : TRUNK), pool); chris@1544: chris@1544: apr_terminate(); chris@1544: chris@1544: return 0; chris@1544: }