Ticket #12622: macports-ftscompare.patch

src/pextlib1.0/fs-traverse.c

@@ -127 +127 @@
     return rval;
 }
 
+static int
+do_compare(const FTSENT **a, const FTSENT **b)
+{
+    if ((*a)->fts_info == FTS_ERR || (*b)->fts_info == FTS_ERR)
+        return 0;
+
+    return strcmp((*a)->fts_name, (*b)->fts_name);
+}
+
 static int
 do_traverse(Tcl_Interp *interp, int flags, char * CONST *targets, Tcl_Obj *varname, Tcl_Obj *body)
 {
@@ -134 +143 @@
     FTS *root_fts;
     FTSENT *ent;
     
-    root_fts = fts_open(targets, FTS_PHYSICAL /*| FTS_COMFOLLOW */| FTS_NOCHDIR | FTS_XDEV, NULL);
+    root_fts = fts_open(targets, FTS_PHYSICAL /*| FTS_COMFOLLOW */| FTS_NOCHDIR | FTS_XDEV, &do_compare);
     
     while ((ent = fts_read(root_fts)) != NULL) {
         switch (ent->fts_info) {