Merge commit 'refs/merge-requests/13' of git://gitorious.org/svn2git/svn2git into...
[svn2git:cuboxs-uqs-svn2git.git] / src / svn.cpp
1 /*
2  *  Copyright (C) 2007  Thiago Macieira <thiago@kde.org>
3  *
4  *  This program is free software: you can redistribute it and/or modify
5  *  it under the terms of the GNU General Public License as published by
6  *  the Free Software Foundation, either version 3 of the License, or
7  *  (at your option) any later version.
8  *
9  *  This program is distributed in the hope that it will be useful,
10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  *  GNU General Public License for more details.
13  *
14  *  You should have received a copy of the GNU General Public License
15  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
16  */
17
18 /*
19  * Based on svn-fast-export by Chris Lee <clee@kde.org>
20  * License: MIT <http://www.opensource.org/licenses/mit-license.php>
21  * URL: git://repo.or.cz/fast-import.git http://repo.or.cz/w/fast-export.git
22  */
23
24 #define _XOPEN_SOURCE
25 #define _LARGEFILE_SUPPORT
26 #define _LARGEFILE64_SUPPORT
27
28 #include "svn.h"
29 #include "CommandLineParser.h"
30
31 #include <unistd.h>
32 #include <string.h>
33 #include <stdio.h>
34 #include <time.h>
35 #include <unistd.h>
36
37 #include <apr_lib.h>
38 #include <apr_getopt.h>
39 #include <apr_general.h>
40
41 #include <svn_fs.h>
42 #include <svn_pools.h>
43 #include <svn_repos.h>
44 #include <svn_types.h>
45
46 #include <QFile>
47 #include <QLinkedList>
48 #include <QPair>
49 #include <QDebug>
50
51 #include "repository.h"
52
53 #undef SVN_ERR
54 #define SVN_ERR(expr) SVN_INT_ERR(expr)
55
56 typedef QList<Rules::Match> MatchRuleList;
57 typedef QHash<QString, Repository *> RepositoryHash;
58 typedef QHash<QByteArray, QByteArray> IdentityHash;
59
60 class AprAutoPool
61 {
62     apr_pool_t *pool;
63     AprAutoPool(const AprAutoPool &);
64     AprAutoPool &operator=(const AprAutoPool &);
65 public:
66     inline AprAutoPool(apr_pool_t *parent = NULL)
67         { pool = svn_pool_create(parent); }
68     inline ~AprAutoPool()
69         { svn_pool_destroy(pool); }
70
71     inline void clear() { svn_pool_clear(pool); }
72     inline apr_pool_t *data() const { return pool; }
73     inline operator apr_pool_t *() const { return pool; }
74 };
75
76 class SvnPrivate
77 {
78 public:
79     QList<MatchRuleList> allMatchRules;
80     RepositoryHash repositories;
81     IdentityHash identities;
82
83     SvnPrivate(const QString &pathToRepository);
84     ~SvnPrivate();
85     int youngestRevision();
86     int exportRevision(int revnum);
87
88     int openRepository(const QString &pathToRepository);
89
90 private:
91     AprAutoPool global_pool;
92     svn_fs_t *fs;
93     svn_revnum_t youngest_rev;
94 };
95
96 void Svn::initialize()
97 {
98     // initialize APR or exit
99     if (apr_initialize() != APR_SUCCESS) {
100         fprintf(stderr, "You lose at apr_initialize().\n");
101         exit(1);
102     }
103
104     // static destructor
105     static struct Destructor { ~Destructor() { apr_terminate(); } } destructor;
106 }
107
108 Svn::Svn(const QString &pathToRepository)
109     : d(new SvnPrivate(pathToRepository))
110 {
111 }
112
113 Svn::~Svn()
114 {
115     delete d;
116 }
117
118 void Svn::setMatchRules(const QList<MatchRuleList> &allMatchRules)
119 {
120     d->allMatchRules = allMatchRules;
121 }
122
123 void Svn::setRepositories(const RepositoryHash &repositories)
124 {
125     d->repositories = repositories;
126 }
127
128 void Svn::setIdentityMap(const IdentityHash &identityMap)
129 {
130     d->identities = identityMap;
131 }
132
133 int Svn::youngestRevision()
134 {
135     return d->youngestRevision();
136 }
137
138 bool Svn::exportRevision(int revnum)
139 {
140     return d->exportRevision(revnum) == EXIT_SUCCESS;
141 }
142
143 SvnPrivate::SvnPrivate(const QString &pathToRepository)
144     : global_pool(NULL)
145 {
146     if( openRepository(pathToRepository) != EXIT_SUCCESS) {
147         qCritical() << "Failed to open repository";
148         exit(1);
149     }
150
151     // get the youngest revision
152     svn_fs_youngest_rev(&youngest_rev, fs, global_pool);
153 }
154
155 SvnPrivate::~SvnPrivate()
156 {
157     svn_pool_destroy(global_pool);
158 }
159
160 int SvnPrivate::youngestRevision()
161 {
162     return youngest_rev;
163 }
164
165 int SvnPrivate::openRepository(const QString &pathToRepository)
166 {
167     svn_repos_t *repos;
168     QString path = pathToRepository;
169     while (path.endsWith('/')) // no trailing slash allowed
170         path = path.mid(0, path.length()-1);
171     SVN_ERR(svn_repos_open(&repos, QFile::encodeName(path), global_pool));
172     fs = svn_repos_fs(repos);
173
174     return EXIT_SUCCESS;
175 }
176
177 enum RuleType { AnyRule = 0, NoIgnoreRule = 0x01, NoRecurseRule = 0x02 };
178
179 static MatchRuleList::ConstIterator
180 findMatchRule(const MatchRuleList &matchRules, int revnum, const QString &current,
181               int ruleMask = AnyRule)
182 {
183     MatchRuleList::ConstIterator it = matchRules.constBegin(),
184                                 end = matchRules.constEnd();
185     for ( ; it != end; ++it) {
186         if (it->minRevision > revnum)
187             continue;
188         if (it->maxRevision != -1 && it->maxRevision < revnum)
189             continue;
190         if (it->action == Rules::Match::Ignore && ruleMask & NoIgnoreRule)
191             continue;
192         if (it->action == Rules::Match::Recurse && ruleMask & NoRecurseRule)
193             continue;
194         if (it->rx.indexIn(current) == 0) {
195             Stats::instance()->ruleMatched(*it, revnum);
196             return it;
197         }
198     }
199
200     // no match
201     return end;
202 }
203
204 static void splitPathName(const Rules::Match &rule, const QString &pathName, QString *svnprefix_p,
205                           QString *repository_p, QString *branch_p, QString *path_p)
206 {
207     QString svnprefix = pathName;
208     svnprefix.truncate(rule.rx.matchedLength());
209
210     if (svnprefix_p) {
211         *svnprefix_p = svnprefix;
212     }
213
214     if (repository_p) {
215         *repository_p = svnprefix;
216         repository_p->replace(rule.rx, rule.repository);
217         foreach (Rules::Match::Substitution subst, rule.repo_substs) {
218             subst.apply(*repository_p);
219         }
220     }
221
222     if (branch_p) {
223         *branch_p = svnprefix;
224         branch_p->replace(rule.rx, rule.branch);
225         foreach (Rules::Match::Substitution subst, rule.branch_substs) {
226             subst.apply(*branch_p);
227         }
228     }
229
230     if (path_p) {
231         QString prefix = svnprefix;
232         prefix.replace(rule.rx, rule.prefix);
233         *path_p = prefix + pathName.mid(svnprefix.length());
234     }
235 }
236
237 static int pathMode(svn_fs_root_t *fs_root, const char *pathname, apr_pool_t *pool)
238 {
239     svn_string_t *propvalue;
240     SVN_ERR(svn_fs_node_prop(&propvalue, fs_root, pathname, "svn:executable", pool));
241     int mode = 0100644;
242     if (propvalue)
243         mode = 0100755;
244
245     return mode;
246 }
247
248 svn_error_t *QIODevice_write(void *baton, const char *data, apr_size_t *len)
249 {
250     QIODevice *device = reinterpret_cast<QIODevice *>(baton);
251     device->write(data, *len);
252
253     while (device->bytesToWrite() > 32*1024) {
254         if (!device->waitForBytesWritten(-1)) {
255             qFatal("Failed to write to process: %s", qPrintable(device->errorString()));
256             return svn_error_createf(APR_EOF, SVN_NO_ERROR, "Failed to write to process: %s",
257                                      qPrintable(device->errorString()));
258         }
259     }
260     return SVN_NO_ERROR;
261 }
262
263 static svn_stream_t *streamForDevice(QIODevice *device, apr_pool_t *pool)
264 {
265     svn_stream_t *stream = svn_stream_create(device, pool);
266     svn_stream_set_write(stream, QIODevice_write);
267
268     return stream;
269 }
270
271 static int dumpBlob(Repository::Transaction *txn, svn_fs_root_t *fs_root,
272                     const char *pathname, const QString &finalPathName, apr_pool_t *pool)
273 {
274     AprAutoPool dumppool(pool);
275     // what type is it?
276     int mode = pathMode(fs_root, pathname, dumppool);
277
278     svn_filesize_t stream_length;
279
280     SVN_ERR(svn_fs_file_length(&stream_length, fs_root, pathname, dumppool));
281
282     svn_stream_t *in_stream, *out_stream;
283     if (!CommandLineParser::instance()->contains("dry-run")) {
284         // open the file
285         SVN_ERR(svn_fs_file_contents(&in_stream, fs_root, pathname, dumppool));
286     }
287
288     // maybe it's a symlink?
289     svn_string_t *propvalue;
290     SVN_ERR(svn_fs_node_prop(&propvalue, fs_root, pathname, "svn:special", dumppool));
291     if (propvalue) {
292         apr_size_t len = strlen("link ");
293         if (!CommandLineParser::instance()->contains("dry-run")) {
294             QByteArray buf;
295             buf.reserve(len);
296             SVN_ERR(svn_stream_read(in_stream, buf.data(), &len));
297             if (len == strlen("link ") && strncmp(buf, "link ", len) == 0) {
298                 mode = 0120000;
299                 stream_length -= len;
300             } else {
301                 //this can happen if a link changed into a file in one commit
302                 qWarning("file %s is svn:special but not a symlink", pathname);
303                 // re-open the file as we tried to read "link "
304                 svn_stream_close(in_stream);
305                 SVN_ERR(svn_fs_file_contents(&in_stream, fs_root, pathname, dumppool));
306             }
307         }
308     }
309
310     QIODevice *io = txn->addFile(finalPathName, mode, stream_length);
311
312     if (!CommandLineParser::instance()->contains("dry-run")) {
313         // open a generic svn_stream_t for the QIODevice
314         out_stream = streamForDevice(io, dumppool);
315         SVN_ERR(svn_stream_copy(in_stream, out_stream, dumppool));
316         svn_stream_close(out_stream);
317         svn_stream_close(in_stream);
318
319         // print an ending newline
320         io->putChar('\n');
321     }
322
323     return EXIT_SUCCESS;
324 }
325
326 static int recursiveDumpDir(Repository::Transaction *txn, svn_fs_root_t *fs_root,
327                             const QByteArray &pathname, const QString &finalPathName,
328                             apr_pool_t *pool)
329 {
330     // get the dir listing
331     apr_hash_t *entries;
332     SVN_ERR(svn_fs_dir_entries(&entries, fs_root, pathname, pool));
333     AprAutoPool dirpool(pool);
334
335     for (apr_hash_index_t *i = apr_hash_first(pool, entries); i; i = apr_hash_next(i)) {
336         dirpool.clear();
337         const void *vkey;
338         void *value;
339         apr_hash_this(i, &vkey, NULL, &value);
340
341         svn_fs_dirent_t *dirent = reinterpret_cast<svn_fs_dirent_t *>(value);
342         QByteArray entryName = pathname + '/' + dirent->name;
343         QString entryFinalName = finalPathName + QString::fromUtf8(dirent->name);
344
345         if (dirent->kind == svn_node_dir) {
346             entryFinalName += '/';
347             if (recursiveDumpDir(txn, fs_root, entryName, entryFinalName, dirpool) == EXIT_FAILURE)
348                 return EXIT_FAILURE;
349         } else if (dirent->kind == svn_node_file) {
350             printf("+");
351             fflush(stdout);
352             if (dumpBlob(txn, fs_root, entryName, entryFinalName, dirpool) == EXIT_FAILURE)
353                 return EXIT_FAILURE;
354         }
355     }
356
357     return EXIT_SUCCESS;
358 }
359
360 static bool wasDir(svn_fs_t *fs, int revnum, const char *pathname, apr_pool_t *pool)
361 {
362     AprAutoPool subpool(pool);
363     svn_fs_root_t *fs_root;
364     if (svn_fs_revision_root(&fs_root, fs, revnum, subpool) != SVN_NO_ERROR)
365         return false;
366
367     svn_boolean_t is_dir;
368     if (svn_fs_is_dir(&is_dir, fs_root, pathname, subpool) != SVN_NO_ERROR)
369         return false;
370
371     return is_dir;
372 }
373
374 time_t get_epoch(const char* svn_date)
375 {
376     struct tm tm;
377     memset(&tm, 0, sizeof tm);
378     QByteArray date(svn_date, strlen(svn_date) - 8);
379     strptime(date, "%Y-%m-%dT%H:%M:%S", &tm);
380     return timegm(&tm);
381 }
382
383 class SvnRevision
384 {
385 public:
386     AprAutoPool pool;
387     QHash<QString, Repository::Transaction *> transactions;
388     QList<MatchRuleList> allMatchRules;
389     RepositoryHash repositories;
390     IdentityHash identities;
391
392     svn_fs_t *fs;
393     svn_fs_root_t *fs_root;
394     int revnum;
395
396     // must call fetchRevProps first:
397     QByteArray authorident;
398     QByteArray log;
399     uint epoch;
400     bool ruledebug;
401     bool propsFetched;
402     bool needCommit;
403
404     SvnRevision(int revision, svn_fs_t *f, apr_pool_t *parent_pool)
405         : pool(parent_pool), fs(f), fs_root(0), revnum(revision), propsFetched(false)
406     {
407         ruledebug = CommandLineParser::instance()->contains( QLatin1String("debug-rules"));
408     }
409
410     int open()
411     {
412         SVN_ERR(svn_fs_revision_root(&fs_root, fs, revnum, pool));
413         return EXIT_SUCCESS;
414     }
415
416     int prepareTransactions();
417     int fetchRevProps();
418     int commit();
419
420     int exportEntry(const char *path, const svn_fs_path_change_t *change, apr_hash_t *changes);
421     int exportDispatch(const char *path, const svn_fs_path_change_t *change,
422                        const char *path_from, svn_revnum_t rev_from,
423                        apr_hash_t *changes, const QString &current, const Rules::Match &rule,
424                        const MatchRuleList &matchRules, apr_pool_t *pool);
425     int exportInternal(const char *path, const svn_fs_path_change_t *change,
426                        const char *path_from, svn_revnum_t rev_from,
427                        const QString &current, const Rules::Match &rule, const MatchRuleList &matchRules);
428     int recurse(const char *path, const svn_fs_path_change_t *change,
429                 const char *path_from, const MatchRuleList &matchRules, svn_revnum_t rev_from,
430                 apr_hash_t *changes, apr_pool_t *pool);
431 };
432
433 int SvnPrivate::exportRevision(int revnum)
434 {
435     SvnRevision rev(revnum, fs, global_pool);
436     rev.allMatchRules = allMatchRules;
437     rev.repositories = repositories;
438     rev.identities = identities;
439
440     // open this revision:
441     printf("Exporting revision %d ", revnum);
442     fflush(stdout);
443
444     if (rev.open() == EXIT_FAILURE)
445         return EXIT_FAILURE;
446
447     if (rev.prepareTransactions() == EXIT_FAILURE)
448         return EXIT_FAILURE;
449
450     if (!rev.needCommit) {
451         printf(" nothing to do\n");
452         return EXIT_SUCCESS;    // no changes?
453     }
454
455     if (rev.commit() == EXIT_FAILURE)
456         return EXIT_FAILURE;
457
458     printf(" done\n");
459     return EXIT_SUCCESS;
460 }
461
462 int SvnRevision::prepareTransactions()
463 {
464     QLinkedList< QPair<svn_fs_path_change_t*, const char*> > sortedChanges;
465     // find out what was changed in this revision:
466     apr_hash_t *changes;
467     SVN_ERR(svn_fs_paths_changed(&changes, fs_root, pool));
468     for (apr_hash_index_t *i = apr_hash_first(pool, changes); i; i = apr_hash_next(i)) {
469         const void *vkey;
470         void *value;
471         apr_hash_this(i, &vkey, NULL, &value);
472         const char *key = reinterpret_cast<const char *>(vkey);
473         svn_fs_path_change_t *change = reinterpret_cast<svn_fs_path_change_t *>(value);
474
475         // If we mix path deletions with path adds/replaces we might erase a branch after that it has been reset -> history truncated
476         if(change->change_kind == svn_fs_path_change_delete) {
477             sortedChanges.prepend( qMakePair(change, key) );
478         } else {
479             sortedChanges.append( qMakePair(change, key) );
480         }
481     }
482
483     QPair<svn_fs_path_change_t*, const char*> pair;
484     foreach (pair, sortedChanges) {
485         if (exportEntry(pair.second, pair.first, changes) == EXIT_FAILURE)
486             return EXIT_FAILURE;
487     }
488         return EXIT_SUCCESS;
489 }
490
491 int SvnRevision::fetchRevProps()
492 {
493     if( propsFetched )
494         return EXIT_SUCCESS;
495
496     apr_hash_t *revprops;
497     SVN_ERR(svn_fs_revision_proplist(&revprops, fs, revnum, pool));
498     svn_string_t *svnauthor = (svn_string_t*)apr_hash_get(revprops, "svn:author", APR_HASH_KEY_STRING);
499     svn_string_t *svndate = (svn_string_t*)apr_hash_get(revprops, "svn:date", APR_HASH_KEY_STRING);
500     svn_string_t *svnlog = (svn_string_t*)apr_hash_get(revprops, "svn:log", APR_HASH_KEY_STRING);
501
502     log = svnlog->data;
503     authorident = svnauthor ? identities.value(svnauthor->data) : QByteArray();
504     epoch = get_epoch(svndate->data);
505     if (authorident.isEmpty()) {
506         if (!svnauthor || svn_string_isempty(svnauthor))
507             authorident = "nobody <nobody@localhost>";
508         else
509             authorident = svnauthor->data + QByteArray(" <") +
510                           svnauthor->data + QByteArray("@localhost>");
511     }
512     propsFetched = true;
513     return EXIT_SUCCESS;
514 }
515
516 int SvnRevision::commit()
517 {
518     // now create the commit
519     if (fetchRevProps() != EXIT_SUCCESS)
520         return EXIT_FAILURE;
521     foreach (Repository *repo, repositories.values()) {
522         repo->commit();
523     }
524
525     foreach (Repository::Transaction *txn, transactions) {
526         txn->setAuthor(authorident);
527         txn->setDateTime(epoch);
528         txn->setLog(log);
529
530         txn->commit();
531         delete txn;
532     }
533
534     return EXIT_SUCCESS;
535 }
536
537 int SvnRevision::exportEntry(const char *key, const svn_fs_path_change_t *change,
538                              apr_hash_t *changes)
539 {
540     AprAutoPool revpool(pool.data());
541     QString current = QString::fromUtf8(key);
542
543     // was this copied from somewhere?
544     svn_revnum_t rev_from;
545     const char *path_from;
546     SVN_ERR(svn_fs_copied_from(&rev_from, &path_from, fs_root, key, revpool));
547
548     // is this a directory?
549     svn_boolean_t is_dir;
550     SVN_ERR(svn_fs_is_dir(&is_dir, fs_root, key, revpool));
551     if (is_dir) {
552         if (change->change_kind == svn_fs_path_change_modify ||
553             change->change_kind == svn_fs_path_change_add) {
554             if (path_from == NULL) {
555                 // freshly added directory, or modified properties
556                 // Git doesn't handle directories, so we don't either
557                 //qDebug() << "   mkdir ignored:" << key;
558                 return EXIT_SUCCESS;
559             }
560
561             qDebug() << "   " << key << "was copied from" << path_from << "rev" << rev_from;
562         } else if (change->change_kind == svn_fs_path_change_replace) {
563             if (path_from == NULL)
564                 qDebug() << "   " << key << "was replaced";
565             else
566                 qDebug() << "   " << key << "was replaced from" << path_from << "rev" << rev_from;
567         } else if (change->change_kind == svn_fs_path_change_reset) {
568             qCritical() << "   " << key << "was reset, panic!";
569             return EXIT_FAILURE;
570         } else {
571             // if change_kind == delete, it shouldn't come into this arm of the 'is_dir' test
572             qCritical() << "   " << key << "has unhandled change kind " << change->change_kind << ", panic!";
573             return EXIT_FAILURE;
574         }
575     } else if (change->change_kind == svn_fs_path_change_delete) {
576         is_dir = wasDir(fs, revnum - 1, key, revpool);
577     }
578
579     if (is_dir)
580         current += '/';
581
582     //MultiRule: loop start
583     //Replace all returns with continue,
584     bool isHandled = false;
585     foreach ( const MatchRuleList matchRules, allMatchRules ) {
586         // find the first rule that matches this pathname
587         MatchRuleList::ConstIterator match = findMatchRule(matchRules, revnum, current);
588         if (match != matchRules.constEnd()) {
589             const Rules::Match &rule = *match;
590             if ( exportDispatch(key, change, path_from, rev_from, changes, current, rule, matchRules, revpool) == EXIT_FAILURE )
591                 return EXIT_FAILURE;
592             isHandled = true;
593         } else if (is_dir && path_from != NULL) {
594             qDebug() << current << "is a copy-with-history, auto-recursing";
595             if ( recurse(key, change, path_from, matchRules, rev_from, changes, revpool) == EXIT_FAILURE )
596                 return EXIT_FAILURE;
597             isHandled = true;
598         } else if (is_dir && change->change_kind == svn_fs_path_change_delete) {
599             qDebug() << current << "deleted, auto-recursing";
600             if ( recurse(key, change, path_from, matchRules, rev_from, changes, revpool) == EXIT_FAILURE )
601                 return EXIT_FAILURE;
602             isHandled = true;
603         }
604     }
605     if ( isHandled ) {
606         return EXIT_SUCCESS;
607     }
608     if (wasDir(fs, revnum - 1, key, revpool)) {
609         qDebug() << current << "was a directory; ignoring";
610     } else if (change->change_kind == svn_fs_path_change_delete) {
611         qDebug() << current << "is being deleted but I don't know anything about it; ignoring";
612     } else {
613         qCritical() << current << "did not match any rules; cannot continue";
614         return EXIT_FAILURE;
615     }
616     return EXIT_SUCCESS;
617 }
618
619 int SvnRevision::exportDispatch(const char *key, const svn_fs_path_change_t *change,
620                                 const char *path_from, svn_revnum_t rev_from,
621                                 apr_hash_t *changes, const QString &current,
622                                 const Rules::Match &rule, const MatchRuleList &matchRules, apr_pool_t *pool)
623 {
624     //if(ruledebug)
625     //  qDebug() << "rev" << revnum << qPrintable(current) << "matched rule:" << rule.lineNumber << "(" << rule.rx.pattern() << ")";
626     switch (rule.action) {
627     case Rules::Match::Ignore:
628         //if(ruledebug)
629         //    qDebug() << "  " << "ignoring.";
630         return EXIT_SUCCESS;
631
632     case Rules::Match::Recurse:
633         if(ruledebug)
634             qDebug() << "rev" << revnum << qPrintable(current) << "matched rule:" << rule.info() << "  " << "recursing.";
635         return recurse(key, change, path_from, matchRules, rev_from, changes, pool);
636
637     case Rules::Match::Export:
638         if(ruledebug)
639             qDebug() << "rev" << revnum << qPrintable(current) << "matched rule:" << rule.info() << "  " << "exporting.";
640         if (exportInternal(key, change, path_from, rev_from, current, rule, matchRules) == EXIT_SUCCESS)
641             return EXIT_SUCCESS;
642         if (change->change_kind != svn_fs_path_change_delete) {
643             if(ruledebug)
644                 qDebug() << "rev" << revnum << qPrintable(current) << "matched rule:" << rule.info() << "  " << "Unable to export non path removal.";
645             return EXIT_FAILURE;
646         }
647         // we know that the default action inside recurse is to recurse further or to ignore,
648         // either of which is reasonably safe for deletion
649         qWarning() << "WARN: deleting unknown path" << current << "; auto-recursing";
650         return recurse(key, change, path_from, matchRules, rev_from, changes, pool);
651     }
652
653     // never reached
654     return EXIT_FAILURE;
655 }
656
657 int SvnRevision::exportInternal(const char *key, const svn_fs_path_change_t *change,
658                                 const char *path_from, svn_revnum_t rev_from,
659                                 const QString &current, const Rules::Match &rule, const MatchRuleList &matchRules)
660 {
661     needCommit = true;
662     QString svnprefix, repository, branch, path;
663     splitPathName(rule, current, &svnprefix, &repository, &branch, &path);
664
665     Repository *repo = repositories.value(repository, 0);
666     if (!repo) {
667         if (change->change_kind != svn_fs_path_change_delete)
668             qCritical() << "Rule" << rule
669                         << "references unknown repository" << repository;
670         return EXIT_FAILURE;
671     }
672
673     printf(".");
674     fflush(stdout);
675 //                qDebug() << "   " << qPrintable(current) << "rev" << revnum << "->"
676 //                         << qPrintable(repository) << qPrintable(branch) << qPrintable(path);
677
678     if (change->change_kind == svn_fs_path_change_delete && current == svnprefix && path.isEmpty()) {
679         if(ruledebug)
680             qDebug() << "repository" << repository << "branch" << branch << "deleted";
681         return repo->deleteBranch(branch, revnum);
682     }
683
684     QString previous;
685     QString prevsvnprefix, prevrepository, prevbranch, prevpath;
686
687     if (path_from != NULL) {
688         previous = QString::fromUtf8(path_from);
689         if (wasDir(fs, rev_from, path_from, pool.data())) {
690             previous += '/';
691         }
692         MatchRuleList::ConstIterator prevmatch =
693             findMatchRule(matchRules, rev_from, previous, NoIgnoreRule);
694         if (prevmatch != matchRules.constEnd()) {
695             splitPathName(*prevmatch, previous, &prevsvnprefix, &prevrepository,
696                           &prevbranch, &prevpath);
697
698         } else {
699             qWarning() << "WARN: SVN reports a \"copy from\" @" << revnum << "from" << path_from << "@" << rev_from << "but no matching rules found! Ignoring copy, treating as a modification";
700             path_from = NULL;
701         }
702     }
703
704     // current == svnprefix => we're dealing with the contents of the whole branch here
705     if (path_from != NULL && current == svnprefix && path.isEmpty()) {
706         if (previous != prevsvnprefix) {
707             // source is not the whole of its branch
708             qDebug() << qPrintable(current) << "is a partial branch of repository"
709                      << qPrintable(prevrepository) << "branch"
710                      << qPrintable(prevbranch) << "subdir"
711                      << qPrintable(prevpath);
712         } else if (prevrepository != repository) {
713             qWarning() << "WARN:" << qPrintable(current) << "rev" << revnum
714                        << "is a cross-repository copy (from repository"
715                        << qPrintable(prevrepository) << "branch"
716                        << qPrintable(prevbranch) << "path"
717                        << qPrintable(prevpath) << "rev" << rev_from << ")";
718         } else if (path != prevpath) {
719             qDebug() << qPrintable(current)
720                      << "is a branch copy which renames base directory of all contents"
721                      << qPrintable(prevpath) << "to" << qPrintable(path);
722             // FIXME: Handle with fast-import 'file rename' facility
723             //        ??? Might need special handling when path == / or prevpath == /
724         } else {
725             if (prevbranch == branch) {
726                 // same branch and same repository
727                 qDebug() << qPrintable(current) << "rev" << revnum
728                          << "is reseating branch" << qPrintable(branch)
729                          << "to an earlier revision"
730                          << qPrintable(previous) << "rev" << rev_from;
731             } else {
732                 // same repository but not same branch
733                 // this means this is a plain branch
734                 qDebug() << qPrintable(repository) << ": branch"
735                          << qPrintable(branch) << "is branching from"
736                          << qPrintable(prevbranch);
737             }
738
739             if (repo->createBranch(branch, revnum, prevbranch, rev_from) == EXIT_FAILURE)
740                 return EXIT_FAILURE;
741
742             if(CommandLineParser::instance()->contains("svn-branches")) {
743                 Repository::Transaction *txn = transactions.value(repository + branch, 0);
744                 if (!txn) {
745                     txn = repo->newTransaction(branch, svnprefix, revnum);
746                     if (!txn)
747                         return EXIT_FAILURE;
748
749                     transactions.insert(repository + branch, txn);
750                 }
751                 if(ruledebug)
752                     qDebug() << "Create a true SVN copy of branch (" << key << "->" << branch << path << ")";
753                 txn->deleteFile(path);
754                 recursiveDumpDir(txn, fs_root, key, path, pool);
755             }
756             if (rule.annotate) {
757                 // create an annotated tag
758                 fetchRevProps();
759                 repo->createAnnotatedTag(branch, svnprefix, revnum, authorident,
760                                          epoch, log);
761             }
762             return EXIT_SUCCESS;
763         }
764     }
765     Repository::Transaction *txn = transactions.value(repository + branch, 0);
766     if (!txn) {
767         txn = repo->newTransaction(branch, svnprefix, revnum);
768         if (!txn)
769             return EXIT_FAILURE;
770
771         transactions.insert(repository + branch, txn);
772     }
773
774     //
775     // If this path was copied from elsewhere, use it to infer _some_
776     // merge points.  This heuristic is fairly useful for tracking
777     // changes across directory re-organizations and wholesale branch
778     // imports.
779     //
780     if (path_from != NULL && prevrepository == repository && prevbranch != branch) {
781         if(ruledebug)
782             qDebug() << "copy from branch" << prevbranch << "to branch" << branch << "@rev" << rev_from;
783         txn->noteCopyFromBranch (prevbranch, rev_from);
784     }
785
786     if (change->change_kind == svn_fs_path_change_replace && path_from == NULL) {
787         if(ruledebug)
788             qDebug() << "replaced with empty path (" << branch << path << ")";
789         txn->deleteFile(path);
790     }
791     if (change->change_kind == svn_fs_path_change_delete) {
792         if(ruledebug)
793             qDebug() << "delete (" << branch << path << ")";
794         txn->deleteFile(path);
795     } else if (!current.endsWith('/')) {
796         if(ruledebug)
797             qDebug() << "add/change file (" << key << "->" << branch << path << ")";
798         dumpBlob(txn, fs_root, key, path, pool);
799     } else {
800         if(ruledebug)
801             qDebug() << "add/change dir (" << key << "->" << branch << path << ")";
802         txn->deleteFile(path);
803         recursiveDumpDir(txn, fs_root, key, path, pool);
804     }
805
806     return EXIT_SUCCESS;
807 }
808
809 int SvnRevision::recurse(const char *path, const svn_fs_path_change_t *change,
810                          const char *path_from, const MatchRuleList &matchRules, svn_revnum_t rev_from,
811                          apr_hash_t *changes, apr_pool_t *pool)
812 {
813     svn_fs_root_t *fs_root = this->fs_root;
814     if (change->change_kind == svn_fs_path_change_delete)
815         SVN_ERR(svn_fs_revision_root(&fs_root, fs, revnum - 1, pool));
816
817     // get the dir listing
818     apr_hash_t *entries;
819     svn_node_kind_t kind;
820     SVN_ERR(svn_fs_check_path(&kind, fs_root, path, pool));
821     if(kind == svn_node_none) {
822         qWarning() << "WARN: Trying to recurse using a nonexistant path" << path << ", ignoring";
823         return EXIT_SUCCESS;
824     } else if(kind != svn_node_dir) {
825         qWarning() << "WARN: Trying to recurse using a non-directory path" << path << ", ignoring";
826         return EXIT_SUCCESS;
827     }
828
829     SVN_ERR(svn_fs_dir_entries(&entries, fs_root, path, pool));
830
831     AprAutoPool dirpool(pool);
832     for (apr_hash_index_t *i = apr_hash_first(pool, entries); i; i = apr_hash_next(i)) {
833         dirpool.clear();
834         const void *vkey;
835         void *value;
836         apr_hash_this(i, &vkey, NULL, &value);
837
838         svn_fs_dirent_t *dirent = reinterpret_cast<svn_fs_dirent_t *>(value);
839         if (dirent->kind != svn_node_dir)
840             continue;           // not a directory, so can't recurse; skip
841
842         QByteArray entry = path + QByteArray("/") + dirent->name;
843         QByteArray entryFrom;
844         if (path_from)
845             entryFrom = path_from + QByteArray("/") + dirent->name;
846
847         // check if this entry is in the changelist for this revision already
848         svn_fs_path_change_t *otherchange =
849             (svn_fs_path_change_t*)apr_hash_get(changes, entry.constData(), APR_HASH_KEY_STRING);
850         if (otherchange && otherchange->change_kind == svn_fs_path_change_add) {
851             qDebug() << entry << "rev" << revnum
852                      << "is in the change-list, deferring to that one";
853             continue;
854         }
855
856         QString current = QString::fromUtf8(entry);
857         if (dirent->kind == svn_node_dir)
858             current += '/';
859
860         // find the first rule that matches this pathname
861         MatchRuleList::ConstIterator match = findMatchRule(matchRules, revnum, current);
862         if (match != matchRules.constEnd()) {
863             if (exportDispatch(entry, change, entryFrom.isNull() ? 0 : entryFrom.constData(),
864                                rev_from, changes, current, *match, matchRules, dirpool) == EXIT_FAILURE)
865                 return EXIT_FAILURE;
866         } else {
867             qDebug() << current << "rev" << revnum
868                      << "did not match any rules; auto-recursing";
869             if (recurse(entry, change, entryFrom.isNull() ? 0 : entryFrom.constData(),
870                         matchRules, rev_from, changes, dirpool) == EXIT_FAILURE)
871                 return EXIT_FAILURE;
872         }
873     }
874
875     return EXIT_SUCCESS;
876 }