ext4_utils/make_ext4fs.c

   1 /*
   2  * Copyright (C) 2010 The Android Open Source Project
   3  *
   4  * Licensed under the Apache License, Version 2.0 (the "License");
   5  * you may not use this file except in compliance with the License.
   6  * You may obtain a copy of the License at
   7  *
   8  *        http://www.apache.org/licenses/LICENSE-2.0
   9  *
  10  * Unless required by applicable law or agreed to in writing, software
  11  * distributed under the License is distributed on an "AS IS" BASIS,
  12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  13  * See the License for the specific language governing permissions and
  14  * limitations under the License.
  15  */
  16
  17 #include "make_ext4fs.h"
  18 #include "ext4_utils.h"
  19 #include "allocate.h"
  20 #include "contents.h"
  21 #include "wipe.h"
  22
  23 #include <sparse/sparse.h>
  24
  25 #include <assert.h>
  26 #include <dirent.h>
  27 #include <fcntl.h>
  28 #include <inttypes.h>
  29 #include <libgen.h>
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32 #include <string.h>
  33 #include <unistd.h>
  34 #include <sys/stat.h>
  35 #include <sys/types.h>
  36
  37 #ifdef USE_MINGW
  38
  39 #include <winsock2.h>
  40
  41 /* These match the Linux definitions of these flags.
  42    L_xx is defined to avoid conflicting with the win32 versions.
  43 */
  44 #undef S_IRWXU
  45 #undef S_IRGRP
  46 #undef S_IWGRP
  47 #undef S_IXGRP
  48 #undef S_IRWXG
  49 #undef S_IROTH
  50 #undef S_IWOTH
  51 #undef S_IXOTH
  52 #undef S_IRWXO
  53 #undef S_ISUID
  54 #undef S_ISGID
  55 #undef S_ISVTX
  56
  57 #define L_S_IRUSR 00400
  58 #define L_S_IWUSR 00200
  59 #define L_S_IXUSR 00100
  60 #define S_IRWXU (L_S_IRUSR | L_S_IWUSR | L_S_IXUSR)
  61 #define S_IRGRP 00040
  62 #define S_IWGRP 00020
  63 #define S_IXGRP 00010
  64 #define S_IRWXG (S_IRGRP | S_IWGRP | S_IXGRP)
  65 #define S_IROTH 00004
  66 #define S_IWOTH 00002
  67 #define S_IXOTH 00001
  68 #define S_IRWXO (S_IROTH | S_IWOTH | S_IXOTH)
  69 #define S_ISUID 0004000
  70 #define S_ISGID 0002000
  71 #define S_ISVTX 0001000
  72
  73 #else
  74
  75 #include <selinux/selinux.h>
  76 #include <selinux/label.h>
  77
  78 #define O_BINARY 0
  79
  80 #endif
  81
  82 #define MAX_PATH 4096
  83 #define MAX_BLK_MAPPING_STR 1000
  84
  85 const int blk_file_major_ver = 1;
  86 const int blk_file_minor_ver = 0;
  87 const char *blk_file_header_fmt = "Base EXT4 version %d.%d";
  88
  89 /* TODO: Not implemented:
  90    Allocating blocks in the same block group as the file inode
  91    Hash or binary tree directories
  92    Special files: sockets, devices, fifos
  93  */
  94
  95 static int filter_dot(const struct dirent *d)
  96 {
  97         return (strcmp(d->d_name, "..") && strcmp(d->d_name, "."));
  98 }
  99
 100 static u32 build_default_directory_structure(const char *dir_path,
 101                                                  struct selabel_handle *sehnd)
 102 {
 103         u32 inode;
 104         u32 root_inode;
 105         struct dentry dentries = {
 106                         .filename = "lost+found",
 107                         .file_type = EXT4_FT_DIR,
 108                         .mode = S_IRWXU,
 109                         .uid = 0,
 110                         .gid = 0,
 111                         .mtime = 0,
 112         };
 113         root_inode = make_directory(0, 1, &dentries, 1);
 114         inode = make_directory(root_inode, 0, NULL, 0);
 115         *dentries.inode = inode;
 116         inode_set_permissions(inode, dentries.mode,
 117                 dentries.uid, dentries.gid, dentries.mtime);
 118
 119 #ifndef USE_MINGW
 120         if (sehnd) {
 121                 char *path = NULL;
 122                 char *secontext = NULL;
 123
 124                 asprintf(&path, "%slost+found", dir_path);
 125                 if (selabel_lookup(sehnd, &secontext, path, S_IFDIR) < 0) {
 126                         error("cannot lookup security context for %s", path);
 127                 } else {
 128                         inode_set_selinux(inode, secontext);
 129                         freecon(secontext);
 130                 }
 131                 free(path);
 132         }
 133 #endif
 134
 135         return root_inode;
 136 }
 137
 138 #ifndef USE_MINGW
 139 /* Read a local directory and create the same tree in the generated filesystem.
 140    Calls itself recursively with each directory in the given directory.
 141    full_path is an absolute or relative path, with a trailing slash, to the
 142    directory on disk that should be copied, or NULL if this is a directory
 143    that does not exist on disk (e.g. lost+found).
 144    dir_path is an absolute path, with trailing slash, to the same directory
 145    if the image were mounted at the specified mount point */
 146 static u32 build_directory_structure(const char *full_path, const char *dir_path, const char *target_out_path,
 147                 u32 dir_inode, fs_config_func_t fs_config_func,
 148                 struct selabel_handle *sehnd, int verbose, time_t fixed_time)
 149 {
 150         int entries = 0;
 151         struct dentry *dentries;
 152         struct dirent **namelist = NULL;
 153         struct stat stat;
 154         int ret;
 155         int i;
 156         u32 inode;
 157         u32 entry_inode;
 158         u32 dirs = 0;
 159         bool needs_lost_and_found = false;
 160
 161         if (full_path) {
 162                 entries = scandir(full_path, &namelist, filter_dot, (void*)alphasort);
 163                 if (entries < 0) {
 164 #ifdef __GLIBC__
 165                         /* The scandir function implemented in glibc has a bug that makes it
 166                            erroneously fail with ENOMEM under certain circumstances.
 167                            As a workaround we can retry the scandir call with the same arguments.
 168                            GLIBC BZ: https://sourceware.org/bugzilla/show_bug.cgi?id=17804 */
 169                         if (errno == ENOMEM)
 170                                 entries = scandir(full_path, &namelist, filter_dot, (void*)alphasort);
 171 #endif
 172                         if (entries < 0) {
 173                                 error_errno("scandir");
 174                                 return EXT4_ALLOCATE_FAILED;
 175                         }
 176                 }
 177         }
 178
 179         if (dir_inode == 0) {
 180                 /* root directory, check if lost+found already exists */
 181                 for (i = 0; i < entries; i++)
 182                         if (strcmp(namelist[i]->d_name, "lost+found") == 0)
 183                                 break;
 184                 if (i == entries)
 185                         needs_lost_and_found = true;
 186         }
 187
 188         dentries = calloc(entries, sizeof(struct dentry));
 189         if (dentries == NULL)
 190                 critical_error_errno("malloc");
 191
 192         for (i = 0; i < entries; i++) {
 193                 dentries[i].filename = strdup(namelist[i]->d_name);
 194                 if (dentries[i].filename == NULL)
 195                         critical_error_errno("strdup");
 196
 197                 asprintf(&dentries[i].path, "%s%s", dir_path, namelist[i]->d_name);
 198                 asprintf(&dentries[i].full_path, "%s%s", full_path, namelist[i]->d_name);
 199
 200                 free(namelist[i]);
 201
 202                 ret = lstat(dentries[i].full_path, &stat);
 203                 if (ret < 0) {
 204                         error_errno("lstat");
 205                         i--;
 206                         entries--;
 207                         continue;
 208                 }
 209
 210                 dentries[i].size = stat.st_size;
 211                 dentries[i].mode = stat.st_mode & (S_ISUID|S_ISGID|S_ISVTX|S_IRWXU|S_IRWXG|S_IRWXO);
 212                 if (fixed_time == -1) {
 213                         dentries[i].mtime = stat.st_mtime;
 214                 } else {
 215                         dentries[i].mtime = fixed_time;
 216                 }
 217                 uint64_t capabilities;
 218                 if (fs_config_func != NULL) {
 219 #ifdef ANDROID
 220                         unsigned int mode = 0;
 221                         unsigned int uid = 0;
 222                         unsigned int gid = 0;
 223                         int dir = S_ISDIR(stat.st_mode);
 224                         fs_config_func(dentries[i].path, dir, target_out_path, &uid, &gid, &mode, &capabilities);
 225                         dentries[i].mode = mode;
 226                         dentries[i].uid = uid;
 227                         dentries[i].gid = gid;
 228                         dentries[i].capabilities = capabilities;
 229 #else
 230                         error("can't set android permissions - built without android support");
 231 #endif
 232                 }
 233 #ifndef USE_MINGW
 234                 if (sehnd) {
 235                         if (selabel_lookup(sehnd, &dentries[i].secon, dentries[i].path, stat.st_mode) < 0) {
 236                                 error("cannot lookup security context for %s", dentries[i].path);
 237                         }
 238
 239                         if (dentries[i].secon && verbose)
 240                                 printf("Labeling %s as %s\n", dentries[i].path, dentries[i].secon);
 241                 }
 242 #endif
 243
 244                 if (S_ISREG(stat.st_mode)) {
 245                         dentries[i].file_type = EXT4_FT_REG_FILE;
 246                 } else if (S_ISDIR(stat.st_mode)) {
 247                         dentries[i].file_type = EXT4_FT_DIR;
 248                         dirs++;
 249                 } else if (S_ISCHR(stat.st_mode)) {
 250                         dentries[i].file_type = EXT4_FT_CHRDEV;
 251                 } else if (S_ISBLK(stat.st_mode)) {
 252                         dentries[i].file_type = EXT4_FT_BLKDEV;
 253                 } else if (S_ISFIFO(stat.st_mode)) {
 254                         dentries[i].file_type = EXT4_FT_FIFO;
 255                 } else if (S_ISSOCK(stat.st_mode)) {
 256                         dentries[i].file_type = EXT4_FT_SOCK;
 257                 } else if (S_ISLNK(stat.st_mode)) {
 258                         dentries[i].file_type = EXT4_FT_SYMLINK;
 259                         dentries[i].link = calloc(info.block_size, 1);
 260                         readlink(dentries[i].full_path, dentries[i].link, info.block_size - 1);
 261                 } else {
 262                         error("unknown file type on %s", dentries[i].path);
 263                         i--;
 264                         entries--;
 265                 }
 266         }
 267         free(namelist);
 268
 269         if (needs_lost_and_found) {
 270                 /* insert a lost+found directory at the beginning of the dentries */
 271                 struct dentry *tmp = calloc(entries + 1, sizeof(struct dentry));
 272                 memset(tmp, 0, sizeof(struct dentry));
 273                 memcpy(tmp + 1, dentries, entries * sizeof(struct dentry));
 274                 dentries = tmp;
 275
 276                 dentries[0].filename = strdup("lost+found");
 277                 asprintf(&dentries[0].path, "%slost+found", dir_path);
 278                 dentries[0].full_path = NULL;
 279                 dentries[0].size = 0;
 280                 dentries[0].mode = S_IRWXU;
 281                 dentries[0].file_type = EXT4_FT_DIR;
 282                 dentries[0].uid = 0;
 283                 dentries[0].gid = 0;
 284                 if (sehnd) {
 285                         if (selabel_lookup(sehnd, &dentries[0].secon, dentries[0].path, dentries[0].mode) < 0)
 286                                 error("cannot lookup security context for %s", dentries[0].path);
 287                 }
 288                 entries++;
 289                 dirs++;
 290         }
 291
 292         inode = make_directory(dir_inode, entries, dentries, dirs);
 293
 294         for (i = 0; i < entries; i++) {
 295                 if (dentries[i].file_type == EXT4_FT_REG_FILE) {
 296                         entry_inode = make_file(dentries[i].full_path, dentries[i].size);
 297                 } else if (dentries[i].file_type == EXT4_FT_DIR) {
 298                         char *subdir_full_path = NULL;
 299                         char *subdir_dir_path;
 300                         if (dentries[i].full_path) {
 301                                 ret = asprintf(&subdir_full_path, "%s/", dentries[i].full_path);
 302                                 if (ret < 0)
 303                                         critical_error_errno("asprintf");
 304                         }
 305                         ret = asprintf(&subdir_dir_path, "%s/", dentries[i].path);
 306                         if (ret < 0)
 307                                 critical_error_errno("asprintf");
 308                         entry_inode = build_directory_structure(subdir_full_path, subdir_dir_path, target_out_path,
 309                                         inode, fs_config_func, sehnd, verbose, fixed_time);
 310                         free(subdir_full_path);
 311                         free(subdir_dir_path);
 312                 } else if (dentries[i].file_type == EXT4_FT_SYMLINK) {
 313                         entry_inode = make_link(dentries[i].link);
 314                 } else {
 315                         error("unknown file type on %s", dentries[i].path);
 316                         entry_inode = 0;
 317                 }
 318                 *dentries[i].inode = entry_inode;
 319
 320                 ret = inode_set_permissions(entry_inode, dentries[i].mode,
 321                         dentries[i].uid, dentries[i].gid,
 322                         dentries[i].mtime);
 323                 if (ret)
 324                         error("failed to set permissions on %s\n", dentries[i].path);
 325
 326                 /*
 327                  * It's important to call inode_set_selinux() before
 328                  * inode_set_capabilities(). Extended attributes need to
 329                  * be stored sorted order, and we guarantee this by making
 330                  * the calls in the proper order.
 331                  * Please see xattr_assert_sane() in contents.c
 332                  */
 333                 ret = inode_set_selinux(entry_inode, dentries[i].secon);
 334                 if (ret)
 335                         error("failed to set SELinux context on %s\n", dentries[i].path);
 336                 ret = inode_set_capabilities(entry_inode, dentries[i].capabilities);
 337                 if (ret)
 338                         error("failed to set capability on %s\n", dentries[i].path);
 339
 340                 free(dentries[i].path);
 341                 free(dentries[i].full_path);
 342                 free(dentries[i].link);
 343                 free((void *)dentries[i].filename);
 344                 free(dentries[i].secon);
 345         }
 346
 347         free(dentries);
 348         return inode;
 349 }
 350 #endif
 351
 352 static u32 compute_block_size()
 353 {
 354         return 4096;
 355 }
 356
 357 static u32 compute_journal_blocks()
 358 {
 359         u32 journal_blocks = DIV_ROUND_UP(info.len, info.block_size) / 64;
 360         if (journal_blocks < 1024)
 361                 journal_blocks = 1024;
 362         if (journal_blocks > 32768)
 363                 journal_blocks = 32768;
 364         return journal_blocks;
 365 }
 366
 367 static u32 compute_blocks_per_group()
 368 {
 369         return info.block_size * 8;
 370 }
 371
 372 static u32 compute_inodes()
 373 {
 374         return DIV_ROUND_UP(info.len, info.block_size) / 4;
 375 }
 376
 377 static u32 compute_inodes_per_group()
 378 {
 379         u32 blocks = DIV_ROUND_UP(info.len, info.block_size);
 380         u32 block_groups = DIV_ROUND_UP(blocks, info.blocks_per_group);
 381         u32 inodes = DIV_ROUND_UP(info.inodes, block_groups);
 382         inodes = EXT4_ALIGN(inodes, (info.block_size / info.inode_size));
 383
 384         /* After properly rounding up the number of inodes/group,
 385          * make sure to update the total inodes field in the info struct.
 386          */
 387         info.inodes = inodes * block_groups;
 388
 389         return inodes;
 390 }
 391
 392 static u32 compute_bg_desc_reserve_blocks()
 393 {
 394         u32 blocks = DIV_ROUND_UP(info.len, info.block_size);
 395         u32 block_groups = DIV_ROUND_UP(blocks, info.blocks_per_group);
 396         u32 bg_desc_blocks = DIV_ROUND_UP(block_groups * sizeof(struct ext2_group_desc),
 397                         info.block_size);
 398
 399         u32 bg_desc_reserve_blocks =
 400                         DIV_ROUND_UP(block_groups * 1024 * sizeof(struct ext2_group_desc),
 401                                         info.block_size) - bg_desc_blocks;
 402
 403         if (bg_desc_reserve_blocks > info.block_size / sizeof(u32))
 404                 bg_desc_reserve_blocks = info.block_size / sizeof(u32);
 405
 406         return bg_desc_reserve_blocks;
 407 }
 408
 409 void reset_ext4fs_info() {
 410         // Reset all the global data structures used by make_ext4fs so it
 411         // can be called again.
 412         memset(&info, 0, sizeof(info));
 413         memset(&aux_info, 0, sizeof(aux_info));
 414
 415         if (ext4_sparse_file) {
 416                 sparse_file_destroy(ext4_sparse_file);
 417                 ext4_sparse_file = NULL;
 418         }
 419 }
 420
 421 int make_ext4fs_sparse_fd(int fd, long long len,
 422                                 const char *mountpoint, struct selabel_handle *sehnd)
 423 {
 424         return make_ext4fs_sparse_fd_directory(fd, len, mountpoint, sehnd, NULL);
 425 }
 426
 427 int make_ext4fs_sparse_fd_directory(int fd, long long len,
 428                                 const char *mountpoint, struct selabel_handle *sehnd,
 429                                 const char *directory)
 430 {
 431         reset_ext4fs_info();
 432         info.len = len;
 433
 434         return make_ext4fs_internal(fd, directory, NULL, mountpoint, NULL,
 435                                                                 0, 1, 0, 0, 0,
 436                                                                 sehnd, 0, -1, NULL, NULL, NULL);
 437 }
 438
 439 int make_ext4fs(const char *filename, long long len,
 440                                 const char *mountpoint, struct selabel_handle *sehnd)
 441 {
 442         return make_ext4fs_directory(filename, len, mountpoint, sehnd, NULL);
 443 }
 444
 445 int make_ext4fs_directory(const char *filename, long long len,
 446                                                   const char *mountpoint, struct selabel_handle *sehnd,
 447                                                   const char *directory)
 448 {
 449         int fd;
 450         int status;
 451
 452         reset_ext4fs_info();
 453         info.len = len;
 454
 455         fd = open(filename, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0644);
 456         if (fd < 0) {
 457                 error_errno("open");
 458                 return EXIT_FAILURE;
 459         }
 460
 461         status = make_ext4fs_internal(fd, directory, NULL, mountpoint, NULL,
 462                                                                   0, 0, 0, 1, 0,
 463                                                                   sehnd, 0, -1, NULL, NULL, NULL);
 464         close(fd);
 465
 466         return status;
 467 }
 468
 469 /* return a newly-malloc'd string that is a copy of str.  The new string
 470    is guaranteed to have a trailing slash.  If absolute is true, the new string
 471    is also guaranteed to have a leading slash.
 472 */
 473 static char *canonicalize_slashes(const char *str, bool absolute)
 474 {
 475         char *ret;
 476         int len = strlen(str);
 477         int newlen = len;
 478         char *ptr;
 479
 480         if (len == 0) {
 481                 if (absolute)
 482                         return strdup("/");
 483                 else
 484                         return strdup("");
 485         }
 486
 487         if (str[0] != '/' && absolute) {
 488                 newlen++;
 489         }
 490         if (str[len - 1] != '/') {
 491                 newlen++;
 492         }
 493         ret = malloc(newlen + 1);
 494         if (!ret) {
 495                 critical_error("malloc");
 496         }
 497
 498         ptr = ret;
 499         if (str[0] != '/' && absolute) {
 500                 *ptr++ = '/';
 501         }
 502
 503         strcpy(ptr, str);
 504         ptr += len;
 505
 506         if (str[len - 1] != '/') {
 507                 *ptr++ = '/';
 508         }
 509
 510         if (ptr != ret + newlen) {
 511                 critical_error("assertion failed\n");
 512         }
 513
 514         *ptr = '\0';
 515
 516         return ret;
 517 }
 518
 519 static char *canonicalize_abs_slashes(const char *str)
 520 {
 521         return canonicalize_slashes(str, true);
 522 }
 523
 524 static char *canonicalize_rel_slashes(const char *str)
 525 {
 526         return canonicalize_slashes(str, false);
 527 }
 528
 529 static int compare_chunks(const void* chunk1, const void* chunk2) {
 530         struct region* c1 = (struct region*) chunk1;
 531         struct region* c2 = (struct region*) chunk2;
 532         return c1->block - c2->block;
 533 }
 534
 535 static int get_block_group(u32 block) {
 536         int i, group = 0;
 537         for(i = 0; i < aux_info.groups; i++) {
 538                 if (block >= aux_info.bgs[i].first_block)
 539                         group = i;
 540                 else
 541                         break;
 542         }
 543         return group;
 544 }
 545
 546 static void extract_base_fs_allocations(const char *directory, const char *mountpoint,
 547                                                                                 FILE* base_alloc_file_in) {
 548 #define err_msg "base file badly formatted"
 549 #ifndef USE_MINGW
 550         // FORMAT Version 1.0: filename blk_mapping
 551         const char *base_alloc_file_in_format = "%s %s";
 552         const int base_file_format_param_count = 2;
 553
 554         char stored_file_name[MAX_PATH], real_file_name[MAX_PATH], file_map[MAX_BLK_MAPPING_STR];
 555         struct block_allocation *fs_alloc;
 556         struct block_group_info *bgs = aux_info.bgs;
 557         int i, major_version = 0, minor_version = 0;
 558         char *base_file_line = NULL;
 559         size_t base_file_line_len = 0;
 560
 561         printf("[v%d.%d] Generating an Incremental EXT4 image\n",
 562                         blk_file_major_ver, blk_file_minor_ver);
 563         if (base_fs_allocations == NULL)
 564                 base_fs_allocations = create_allocation();
 565         fs_alloc = base_fs_allocations;
 566
 567         fscanf(base_alloc_file_in, blk_file_header_fmt, &major_version, &minor_version);
 568         if (major_version == 0) {
 569                 critical_error("Invalid base file");
 570         }
 571
 572         if (major_version != blk_file_major_ver) {
 573                 critical_error("Incompatible base file: version required is %d.X",
 574                                 blk_file_major_ver);
 575         }
 576
 577         if (minor_version < blk_file_minor_ver) {
 578                 critical_error("Incompatible base file: version required is %d.%d or above",
 579                                 blk_file_major_ver, blk_file_minor_ver);
 580         }
 581
 582         while (getline(&base_file_line, &base_file_line_len, base_alloc_file_in) != -1) {
 583                 if (sscanf(base_file_line, base_alloc_file_in_format, &stored_file_name, &file_map)
 584                                 != base_file_format_param_count) {
 585                         continue;
 586                 }
 587                 if (strlen(stored_file_name) < strlen(mountpoint)) {
 588                         continue;
 589                 }
 590                 snprintf(real_file_name, MAX_PATH, "%s%s", directory, stored_file_name + strlen(mountpoint));
 591                 if (!access(real_file_name, R_OK)) {
 592                         char *block_range, *end_string;
 593                         int real_file_fd;
 594                         u32 start_block, end_block, block_file_size;
 595                         u32 real_file_block_size;
 596
 597                         real_file_fd = open(real_file_name, O_RDONLY);
 598                         if (real_file_fd == -1) {
 599                                 critical_error(err_msg);
 600                         }
 601                         real_file_block_size = get_file_size(real_file_fd);
 602                         close(real_file_fd);
 603                         real_file_block_size = DIV_ROUND_UP(real_file_block_size, info.block_size);
 604                         fs_alloc->filename = strdup(real_file_name);
 605                         block_range = strtok_r(file_map, ",", &end_string);
 606                         while (block_range && real_file_block_size) {
 607                                 int block_group;
 608                                 char *range, *end_token = NULL;
 609                                 range = strtok_r(block_range, "-", &end_token);
 610                                 if (!range) {
 611                                         critical_error(err_msg);
 612                                 }
 613                                 start_block = parse_num(range);
 614                                 range = strtok_r(NULL, "-", &end_token);
 615                                 if (!range) {
 616                                         end_block = start_block;
 617                                 } else {
 618                                         end_block = parse_num(range);
 619                                 }
 620                                 // Assummption is that allocations are within the same block group
 621                                 block_group = get_block_group(start_block);
 622                                 if (block_group != get_block_group(end_block)) {
 623                                         critical_error("base file allocation's end block is in a different "
 624                                                                    "block group than start block. did you change fs params?");
 625                                 }
 626                                 block_range = strtok_r(NULL, ",", &end_string);
 627                                 int bg_first_block = bgs[block_group].first_block;
 628                                 int min_bg_bound = bgs[block_group].chunks[0].block + bgs[block_group].chunks[0].len;
 629                                 int max_bg_bound = bgs[block_group].chunks[bgs[block_group].chunk_count - 1].block;
 630
 631                                 if (min_bg_bound >= start_block - bg_first_block ||
 632                                         max_bg_bound <= end_block - bg_first_block) {
 633                                         continue;
 634                                 }
 635                                 block_file_size = end_block - start_block + 1;
 636                                 if (block_file_size > real_file_block_size) {
 637                                         block_file_size = real_file_block_size;
 638                                 }
 639                                 append_region(fs_alloc, start_block, block_file_size, block_group);
 640                                 reserve_bg_chunk(block_group, start_block - bgs[block_group].first_block, block_file_size);
 641                                 real_file_block_size -= block_file_size;
 642                         }
 643                         if (reserve_blocks_for_allocation(fs_alloc) < 0)
 644                                 critical_error("failed to reserve base fs allocation");
 645                         fs_alloc->next = create_allocation();
 646                         fs_alloc = fs_alloc->next;
 647                 }
 648         }
 649
 650         for (i = 0; i < aux_info.groups; i++) {
 651                 qsort(bgs[i].chunks, bgs[i].chunk_count, sizeof(struct region), compare_chunks);
 652         }
 653
 654         free(base_file_line);
 655
 656 #else
 657     return;
 658 #endif
 659 #undef err_msg
 660 }
 661
 662 void generate_base_alloc_file_out(FILE* base_alloc_file_out, char* dir, char* mountpoint,
 663                                                                   struct block_allocation* p)
 664 {
 665         size_t dirlen = dir ? strlen(dir) : 0;
 666         fprintf(base_alloc_file_out, blk_file_header_fmt, blk_file_major_ver, blk_file_minor_ver);
 667         fputc('\n', base_alloc_file_out);
 668         while (p) {
 669                 if (dir && strncmp(p->filename, dir, dirlen) == 0) {
 670                         // substitute mountpoint for the leading directory in the filename, in the output file
 671                         fprintf(base_alloc_file_out, "%s%s", mountpoint, p->filename + dirlen);
 672                 } else {
 673                         fprintf(base_alloc_file_out, "%s", p->filename);
 674                 }
 675                 print_blocks(base_alloc_file_out, p, ',');
 676                 struct block_allocation* pn = p->next;
 677                 p = pn;
 678         }
 679 }
 680
 681 int make_ext4fs_internal(int fd, const char *_directory, const char *_target_out_directory,
 682                                                  const char *_mountpoint, fs_config_func_t fs_config_func, int gzip,
 683                                                  int sparse, int crc, int wipe, int real_uuid,
 684                                                  struct selabel_handle *sehnd, int verbose, time_t fixed_time,
 685                                                  FILE* block_list_file, FILE* base_alloc_file_in, FILE* base_alloc_file_out)
 686 {
 687         u32 root_inode_num;
 688         u16 root_mode;
 689         char *mountpoint;
 690         char *directory = NULL;
 691         char *target_out_directory = NULL;
 692         struct block_allocation* p;
 693
 694         if (setjmp(setjmp_env))
 695                 return EXIT_FAILURE; /* Handle a call to longjmp() */
 696
 697         info.block_device = is_block_device_fd(fd);
 698
 699         if (info.block_device && (sparse || gzip || crc)) {
 700                 fprintf(stderr, "No sparse/gzip/crc allowed for block device\n");
 701                 return EXIT_FAILURE;
 702         }
 703
 704         if (_mountpoint == NULL) {
 705                 mountpoint = strdup("");
 706         } else {
 707                 mountpoint = canonicalize_abs_slashes(_mountpoint);
 708         }
 709
 710         if (_directory) {
 711                 directory = canonicalize_rel_slashes(_directory);
 712         }
 713
 714         if (_target_out_directory) {
 715                 target_out_directory = canonicalize_rel_slashes(_target_out_directory);
 716         }
 717
 718         if (info.len <= 0)
 719                 info.len = get_file_size(fd);
 720
 721         if (info.len <= 0) {
 722                 fprintf(stderr, "Need size of filesystem\n");
 723                 return EXIT_FAILURE;
 724         }
 725
 726         if (info.block_size <= 0)
 727                 info.block_size = compute_block_size();
 728
 729         /* Round down the filesystem length to be a multiple of the block size */
 730         info.len &= ~((u64)info.block_size - 1);
 731
 732         if (info.journal_blocks == 0)
 733                 info.journal_blocks = compute_journal_blocks();
 734
 735         if (info.no_journal == 0)
 736                 info.feat_compat = EXT4_FEATURE_COMPAT_HAS_JOURNAL;
 737         else
 738                 info.journal_blocks = 0;
 739
 740         if (info.blocks_per_group <= 0)
 741                 info.blocks_per_group = compute_blocks_per_group();
 742
 743         if (info.inodes <= 0)
 744                 info.inodes = compute_inodes();
 745
 746         if (info.inode_size <= 0)
 747                 info.inode_size = 256;
 748
 749         if (info.label == NULL)
 750                 info.label = "";
 751
 752         info.inodes_per_group = compute_inodes_per_group();
 753
 754         info.feat_compat |=
 755                         EXT4_FEATURE_COMPAT_RESIZE_INODE |
 756                         EXT4_FEATURE_COMPAT_EXT_ATTR;
 757
 758         info.feat_ro_compat |=
 759                         EXT4_FEATURE_RO_COMPAT_SPARSE_SUPER |
 760                         EXT4_FEATURE_RO_COMPAT_LARGE_FILE |
 761                         EXT4_FEATURE_RO_COMPAT_GDT_CSUM;
 762
 763         info.feat_incompat |=
 764                         EXT4_FEATURE_INCOMPAT_EXTENTS |
 765                         EXT4_FEATURE_INCOMPAT_FILETYPE;
 766
 767
 768         info.bg_desc_reserve_blocks = compute_bg_desc_reserve_blocks();
 769
 770         printf("Creating filesystem with parameters:\n");
 771         printf("    Size: %"PRIu64"\n", info.len);
 772         printf("    Block size: %d\n", info.block_size);
 773         printf("    Blocks per group: %d\n", info.blocks_per_group);
 774         printf("    Inodes per group: %d\n", info.inodes_per_group);
 775         printf("    Inode size: %d\n", info.inode_size);
 776         printf("    Journal blocks: %d\n", info.journal_blocks);
 777         printf("    Label: %s\n", info.label);
 778
 779         ext4_create_fs_aux_info();
 780
 781         printf("    Blocks: %"PRIu64"\n", aux_info.len_blocks);
 782         printf("    Block groups: %d\n", aux_info.groups);
 783         printf("    Reserved block group size: %d\n", info.bg_desc_reserve_blocks);
 784
 785         ext4_sparse_file = sparse_file_new(info.block_size, info.len);
 786
 787         block_allocator_init();
 788
 789         ext4_fill_in_sb(real_uuid);
 790
 791         if (base_alloc_file_in) {
 792                 extract_base_fs_allocations(directory, mountpoint, base_alloc_file_in);
 793         }
 794         if (reserve_inodes(0, 10) == EXT4_ALLOCATE_FAILED)
 795                 error("failed to reserve first 10 inodes");
 796
 797         if (info.feat_compat & EXT4_FEATURE_COMPAT_HAS_JOURNAL)
 798                 ext4_create_journal_inode();
 799
 800         if (info.feat_compat & EXT4_FEATURE_COMPAT_RESIZE_INODE)
 801                 ext4_create_resize_inode();
 802
 803 #ifdef USE_MINGW
 804         // Windows needs only 'create an empty fs image' functionality
 805         assert(!directory);
 806         root_inode_num = build_default_directory_structure(mountpoint, sehnd);
 807 #else
 808         if (directory)
 809                 root_inode_num = build_directory_structure(directory, mountpoint, target_out_directory, 0,
 810                         fs_config_func, sehnd, verbose, fixed_time);
 811         else
 812                 root_inode_num = build_default_directory_structure(mountpoint, sehnd);
 813 #endif
 814
 815         root_mode = S_IRWXU | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH;
 816         inode_set_permissions(root_inode_num, root_mode, 0, 0, 0);
 817
 818 #ifndef USE_MINGW
 819         if (sehnd) {
 820                 char *secontext = NULL;
 821
 822                 if (selabel_lookup(sehnd, &secontext, mountpoint, S_IFDIR) < 0) {
 823                         error("cannot lookup security context for %s", mountpoint);
 824                 }
 825                 if (secontext) {
 826                         if (verbose) {
 827                                 printf("Labeling %s as %s\n", mountpoint, secontext);
 828                         }
 829                         inode_set_selinux(root_inode_num, secontext);
 830                 }
 831                 freecon(secontext);
 832         }
 833 #endif
 834
 835         ext4_update_free();
 836
 837         // TODO: Consider migrating the OTA tools to the new base alloc file format
 838         // used for generating incremental images (see go/incremental-ext4)
 839         if (block_list_file) {
 840                 size_t dirlen = directory ? strlen(directory) : 0;
 841                 struct block_allocation* p = get_saved_allocation_chain();
 842                 while (p) {
 843                         if (directory && strncmp(p->filename, directory, dirlen) == 0) {
 844                                 // substitute mountpoint for the leading directory in the filename, in the output file
 845                                 fprintf(block_list_file, "%s%s", mountpoint, p->filename + dirlen);
 846                         } else {
 847                                 fprintf(block_list_file, "%s", p->filename);
 848                         }
 849                         print_blocks(block_list_file, p, ' ');
 850                         struct block_allocation* pn = p->next;
 851                         p = pn;
 852                 }
 853         }
 854
 855         if (base_alloc_file_out) {
 856                 struct block_allocation* p = get_saved_allocation_chain();
 857                 generate_base_alloc_file_out(base_alloc_file_out, directory, mountpoint, p);
 858         }
 859
 860         printf("Created filesystem with %d/%d inodes and %d/%d blocks\n",
 861                         aux_info.sb->s_inodes_count - aux_info.sb->s_free_inodes_count,
 862                         aux_info.sb->s_inodes_count,
 863                         aux_info.sb->s_blocks_count_lo - aux_info.sb->s_free_blocks_count_lo,
 864                         aux_info.sb->s_blocks_count_lo);
 865
 866         if (wipe && WIPE_IS_SUPPORTED) {
 867                 wipe_block_device(fd, info.len);
 868         }
 869
 870         write_ext4_image(fd, gzip, sparse, crc);
 871
 872         sparse_file_destroy(ext4_sparse_file);
 873         ext4_sparse_file = NULL;
 874
 875         p = get_saved_allocation_chain();
 876         while (p) {
 877                 struct block_allocation* pn = p->next;
 878                 free_alloc(p);
 879                 p = pn;
 880         }
 881
 882         free(mountpoint);
 883         free(directory);
 884
 885         return 0;
 886 }