1 // SPDX-License-Identifier: GPL-2.0 2 /* 3 * linux/fs/affs/amigaffs.c 4 * 5 * (c) 1996 Hans-Joachim Widmaier - Rewritten 6 * 7 * (C) 1993 Ray Burr - Amiga FFS filesystem. 8 * 9 * Please send bug reports to: hjw@zvw.de 10 */ 11 12 #include <linux/math64.h> 13 #include <linux/iversion.h> 14 #include "affs.h" 15 16 /* 17 * Functions for accessing Amiga-FFS structures. 18 */ 19 20 21 /* Insert a header block bh into the directory dir 22 * caller must hold AFFS_DIR->i_hash_lock! 23 */ 24 25 int 26 affs_insert_hash(struct inode *dir, struct buffer_head *bh) 27 { 28 struct super_block *sb = dir->i_sb; 29 struct buffer_head *dir_bh; 30 u32 ino, hash_ino; 31 int offset; 32 33 ino = bh->b_blocknr; 34 offset = affs_hash_name(sb, AFFS_TAIL(sb, bh)->name + 1, AFFS_TAIL(sb, bh)->name[0]); 35 36 pr_debug("%s(dir=%lu, ino=%d)\n", __func__, dir->i_ino, ino); 37 38 dir_bh = affs_bread(sb, dir->i_ino); 39 if (!dir_bh) 40 return -EIO; 41 42 hash_ino = be32_to_cpu(AFFS_HEAD(dir_bh)->table[offset]); 43 while (hash_ino) { 44 affs_brelse(dir_bh); 45 dir_bh = affs_bread(sb, hash_ino); 46 if (!dir_bh) 47 return -EIO; 48 hash_ino = be32_to_cpu(AFFS_TAIL(sb, dir_bh)->hash_chain); 49 } 50 AFFS_TAIL(sb, bh)->parent = cpu_to_be32(dir->i_ino); 51 AFFS_TAIL(sb, bh)->hash_chain = 0; 52 affs_fix_checksum(sb, bh); 53 54 if (dir->i_ino == dir_bh->b_blocknr) 55 AFFS_HEAD(dir_bh)->table[offset] = cpu_to_be32(ino); 56 else 57 AFFS_TAIL(sb, dir_bh)->hash_chain = cpu_to_be32(ino); 58 59 affs_adjust_checksum(dir_bh, ino); 60 mark_buffer_dirty_inode(dir_bh, dir); 61 affs_brelse(dir_bh); 62 63 dir->i_mtime = inode_set_ctime_current(dir); 64 inode_inc_iversion(dir); 65 mark_inode_dirty(dir); 66 67 return 0; 68 } 69 70 /* Remove a header block from its directory. 71 * caller must hold AFFS_DIR->i_hash_lock! 72 */ 73 74 int 75 affs_remove_hash(struct inode *dir, struct buffer_head *rem_bh) 76 { 77 struct super_block *sb; 78 struct buffer_head *bh; 79 u32 rem_ino, hash_ino; 80 __be32 ino; 81 int offset, retval; 82 83 sb = dir->i_sb; 84 rem_ino = rem_bh->b_blocknr; 85 offset = affs_hash_name(sb, AFFS_TAIL(sb, rem_bh)->name+1, AFFS_TAIL(sb, rem_bh)->name[0]); 86 pr_debug("%s(dir=%lu, ino=%d, hashval=%d)\n", __func__, dir->i_ino, 87 rem_ino, offset); 88 89 bh = affs_bread(sb, dir->i_ino); 90 if (!bh) 91 return -EIO; 92 93 retval = -ENOENT; 94 hash_ino = be32_to_cpu(AFFS_HEAD(bh)->table[offset]); 95 while (hash_ino) { 96 if (hash_ino == rem_ino) { 97 ino = AFFS_TAIL(sb, rem_bh)->hash_chain; 98 if (dir->i_ino == bh->b_blocknr) 99 AFFS_HEAD(bh)->table[offset] = ino; 100 else 101 AFFS_TAIL(sb, bh)->hash_chain = ino; 102 affs_adjust_checksum(bh, be32_to_cpu(ino) - hash_ino); 103 mark_buffer_dirty_inode(bh, dir); 104 AFFS_TAIL(sb, rem_bh)->parent = 0; 105 retval = 0; 106 break; 107 } 108 affs_brelse(bh); 109 bh = affs_bread(sb, hash_ino); 110 if (!bh) 111 return -EIO; 112 hash_ino = be32_to_cpu(AFFS_TAIL(sb, bh)->hash_chain); 113 } 114 115 affs_brelse(bh); 116 117 dir->i_mtime = inode_set_ctime_current(dir); 118 inode_inc_iversion(dir); 119 mark_inode_dirty(dir); 120 121 return retval; 122 } 123 124 static void 125 affs_fix_dcache(struct inode *inode, u32 entry_ino) 126 { 127 struct dentry *dentry; 128 spin_lock(&inode->i_lock); 129 hlist_for_each_entry(dentry, &inode->i_dentry, d_u.d_alias) { 130 if (entry_ino == (u32)(long)dentry->d_fsdata) { 131 dentry->d_fsdata = (void *)inode->i_ino; 132 break; 133 } 134 } 135 spin_unlock(&inode->i_lock); 136 } 137 138 139 /* Remove header from link chain */ 140 141 static int 142 affs_remove_link(struct dentry *dentry) 143 { 144 struct inode *dir, *inode = d_inode(dentry); 145 struct super_block *sb = inode->i_sb; 146 struct buffer_head *bh, *link_bh = NULL; 147 u32 link_ino, ino; 148 int retval; 149 150 pr_debug("%s(key=%ld)\n", __func__, inode->i_ino); 151 retval = -EIO; 152 bh = affs_bread(sb, inode->i_ino); 153 if (!bh) 154 goto done; 155 156 link_ino = (u32)(long)dentry->d_fsdata; 157 if (inode->i_ino == link_ino) { 158 /* we can't remove the head of the link, as its blocknr is still used as ino, 159 * so we remove the block of the first link instead. 160 */ 161 link_ino = be32_to_cpu(AFFS_TAIL(sb, bh)->link_chain); 162 link_bh = affs_bread(sb, link_ino); 163 if (!link_bh) 164 goto done; 165 166 dir = affs_iget(sb, be32_to_cpu(AFFS_TAIL(sb, link_bh)->parent)); 167 if (IS_ERR(dir)) { 168 retval = PTR_ERR(dir); 169 goto done; 170 } 171 172 affs_lock_dir(dir); 173 /* 174 * if there's a dentry for that block, make it 175 * refer to inode itself. 176 */ 177 affs_fix_dcache(inode, link_ino); 178 retval = affs_remove_hash(dir, link_bh); 179 if (retval) { 180 affs_unlock_dir(dir); 181 goto done; 182 } 183 mark_buffer_dirty_inode(link_bh, inode); 184 185 memcpy(AFFS_TAIL(sb, bh)->name, AFFS_TAIL(sb, link_bh)->name, 32); 186 retval = affs_insert_hash(dir, bh); 187 if (retval) { 188 affs_unlock_dir(dir); 189 goto done; 190 } 191 mark_buffer_dirty_inode(bh, inode); 192 193 affs_unlock_dir(dir); 194 iput(dir); 195 } else { 196 link_bh = affs_bread(sb, link_ino); 197 if (!link_bh) 198 goto done; 199 } 200 201 while ((ino = be32_to_cpu(AFFS_TAIL(sb, bh)->link_chain)) != 0) { 202 if (ino == link_ino) { 203 __be32 ino2 = AFFS_TAIL(sb, link_bh)->link_chain; 204 AFFS_TAIL(sb, bh)->link_chain = ino2; 205 affs_adjust_checksum(bh, be32_to_cpu(ino2) - link_ino); 206 mark_buffer_dirty_inode(bh, inode); 207 retval = 0; 208 /* Fix the link count, if bh is a normal header block without links */ 209 switch (be32_to_cpu(AFFS_TAIL(sb, bh)->stype)) { 210 case ST_LINKDIR: 211 case ST_LINKFILE: 212 break; 213 default: 214 if (!AFFS_TAIL(sb, bh)->link_chain) 215 set_nlink(inode, 1); 216 } 217 affs_free_block(sb, link_ino); 218 goto done; 219 } 220 affs_brelse(bh); 221 bh = affs_bread(sb, ino); 222 if (!bh) 223 goto done; 224 } 225 retval = -ENOENT; 226 done: 227 affs_brelse(link_bh); 228 affs_brelse(bh); 229 return retval; 230 } 231 232 233 static int 234 affs_empty_dir(struct inode *inode) 235 { 236 struct super_block *sb = inode->i_sb; 237 struct buffer_head *bh; 238 int retval, size; 239 240 retval = -EIO; 241 bh = affs_bread(sb, inode->i_ino); 242 if (!bh) 243 goto done; 244 245 retval = -ENOTEMPTY; 246 for (size = AFFS_SB(sb)->s_hashsize - 1; size >= 0; size--) 247 if (AFFS_HEAD(bh)->table[size]) 248 goto not_empty; 249 retval = 0; 250 not_empty: 251 affs_brelse(bh); 252 done: 253 return retval; 254 } 255 256 257 /* Remove a filesystem object. If the object to be removed has 258 * links to it, one of the links must be changed to inherit 259 * the file or directory. As above, any inode will do. 260 * The buffer will not be freed. If the header is a link, the 261 * block will be marked as free. 262 * This function returns a negative error number in case of 263 * an error, else 0 if the inode is to be deleted or 1 if not. 264 */ 265 266 int 267 affs_remove_header(struct dentry *dentry) 268 { 269 struct super_block *sb; 270 struct inode *inode, *dir; 271 struct buffer_head *bh = NULL; 272 int retval; 273 274 dir = d_inode(dentry->d_parent); 275 sb = dir->i_sb; 276 277 retval = -ENOENT; 278 inode = d_inode(dentry); 279 if (!inode) 280 goto done; 281 282 pr_debug("%s(key=%ld)\n", __func__, inode->i_ino); 283 retval = -EIO; 284 bh = affs_bread(sb, (u32)(long)dentry->d_fsdata); 285 if (!bh) 286 goto done; 287 288 affs_lock_link(inode); 289 affs_lock_dir(dir); 290 switch (be32_to_cpu(AFFS_TAIL(sb, bh)->stype)) { 291 case ST_USERDIR: 292 /* if we ever want to support links to dirs 293 * i_hash_lock of the inode must only be 294 * taken after some checks 295 */ 296 affs_lock_dir(inode); 297 retval = affs_empty_dir(inode); 298 affs_unlock_dir(inode); 299 if (retval) 300 goto done_unlock; 301 break; 302 default: 303 break; 304 } 305 306 retval = affs_remove_hash(dir, bh); 307 if (retval) 308 goto done_unlock; 309 mark_buffer_dirty_inode(bh, inode); 310 311 affs_unlock_dir(dir); 312 313 if (inode->i_nlink > 1) 314 retval = affs_remove_link(dentry); 315 else 316 clear_nlink(inode); 317 affs_unlock_link(inode); 318 inode_set_ctime_current(inode); 319 mark_inode_dirty(inode); 320 321 done: 322 affs_brelse(bh); 323 return retval; 324 325 done_unlock: 326 affs_unlock_dir(dir); 327 affs_unlock_link(inode); 328 goto done; 329 } 330 331 /* Checksum a block, do various consistency checks and optionally return 332 the blocks type number. DATA points to the block. If their pointers 333 are non-null, *PTYPE and *STYPE are set to the primary and secondary 334 block types respectively, *HASHSIZE is set to the size of the hashtable 335 (which lets us calculate the block size). 336 Returns non-zero if the block is not consistent. */ 337 338 u32 339 affs_checksum_block(struct super_block *sb, struct buffer_head *bh) 340 { 341 __be32 *ptr = (__be32 *)bh->b_data; 342 u32 sum; 343 int bsize; 344 345 sum = 0; 346 for (bsize = sb->s_blocksize / sizeof(__be32); bsize > 0; bsize--) 347 sum += be32_to_cpu(*ptr++); 348 return sum; 349 } 350 351 /* 352 * Calculate the checksum of a disk block and store it 353 * at the indicated position. 354 */ 355 356 void 357 affs_fix_checksum(struct super_block *sb, struct buffer_head *bh) 358 { 359 int cnt = sb->s_blocksize / sizeof(__be32); 360 __be32 *ptr = (__be32 *)bh->b_data; 361 u32 checksum; 362 __be32 *checksumptr; 363 364 checksumptr = ptr + 5; 365 *checksumptr = 0; 366 for (checksum = 0; cnt > 0; ptr++, cnt--) 367 checksum += be32_to_cpu(*ptr); 368 *checksumptr = cpu_to_be32(-checksum); 369 } 370 371 void 372 affs_secs_to_datestamp(time64_t secs, struct affs_date *ds) 373 { 374 u32 days; 375 u32 minute; 376 s32 rem; 377 378 secs -= sys_tz.tz_minuteswest * 60 + AFFS_EPOCH_DELTA; 379 if (secs < 0) 380 secs = 0; 381 days = div_s64_rem(secs, 86400, &rem); 382 minute = rem / 60; 383 rem -= minute * 60; 384 385 ds->days = cpu_to_be32(days); 386 ds->mins = cpu_to_be32(minute); 387 ds->ticks = cpu_to_be32(rem * 50); 388 } 389 390 umode_t 391 affs_prot_to_mode(u32 prot) 392 { 393 umode_t mode = 0; 394 395 if (!(prot & FIBF_NOWRITE)) 396 mode |= 0200; 397 if (!(prot & FIBF_NOREAD)) 398 mode |= 0400; 399 if (!(prot & FIBF_NOEXECUTE)) 400 mode |= 0100; 401 if (prot & FIBF_GRP_WRITE) 402 mode |= 0020; 403 if (prot & FIBF_GRP_READ) 404 mode |= 0040; 405 if (prot & FIBF_GRP_EXECUTE) 406 mode |= 0010; 407 if (prot & FIBF_OTR_WRITE) 408 mode |= 0002; 409 if (prot & FIBF_OTR_READ) 410 mode |= 0004; 411 if (prot & FIBF_OTR_EXECUTE) 412 mode |= 0001; 413 414 return mode; 415 } 416 417 void 418 affs_mode_to_prot(struct inode *inode) 419 { 420 u32 prot = AFFS_I(inode)->i_protect; 421 umode_t mode = inode->i_mode; 422 423 /* 424 * First, clear all RWED bits for owner, group, other. 425 * Then, recalculate them afresh. 426 * 427 * We'll always clear the delete-inhibit bit for the owner, as that is 428 * the classic single-user mode AmigaOS protection bit and we need to 429 * stay compatible with all scenarios. 430 * 431 * Since multi-user AmigaOS is an extension, we'll only set the 432 * delete-allow bit if any of the other bits in the same user class 433 * (group/other) are used. 434 */ 435 prot &= ~(FIBF_NOEXECUTE | FIBF_NOREAD 436 | FIBF_NOWRITE | FIBF_NODELETE 437 | FIBF_GRP_EXECUTE | FIBF_GRP_READ 438 | FIBF_GRP_WRITE | FIBF_GRP_DELETE 439 | FIBF_OTR_EXECUTE | FIBF_OTR_READ 440 | FIBF_OTR_WRITE | FIBF_OTR_DELETE); 441 442 /* Classic single-user AmigaOS flags. These are inverted. */ 443 if (!(mode & 0100)) 444 prot |= FIBF_NOEXECUTE; 445 if (!(mode & 0400)) 446 prot |= FIBF_NOREAD; 447 if (!(mode & 0200)) 448 prot |= FIBF_NOWRITE; 449 450 /* Multi-user extended flags. Not inverted. */ 451 if (mode & 0010) 452 prot |= FIBF_GRP_EXECUTE; 453 if (mode & 0040) 454 prot |= FIBF_GRP_READ; 455 if (mode & 0020) 456 prot |= FIBF_GRP_WRITE; 457 if (mode & 0070) 458 prot |= FIBF_GRP_DELETE; 459 460 if (mode & 0001) 461 prot |= FIBF_OTR_EXECUTE; 462 if (mode & 0004) 463 prot |= FIBF_OTR_READ; 464 if (mode & 0002) 465 prot |= FIBF_OTR_WRITE; 466 if (mode & 0007) 467 prot |= FIBF_OTR_DELETE; 468 469 AFFS_I(inode)->i_protect = prot; 470 } 471 472 void 473 affs_error(struct super_block *sb, const char *function, const char *fmt, ...) 474 { 475 struct va_format vaf; 476 va_list args; 477 478 va_start(args, fmt); 479 vaf.fmt = fmt; 480 vaf.va = &args; 481 pr_crit("error (device %s): %s(): %pV\n", sb->s_id, function, &vaf); 482 if (!sb_rdonly(sb)) 483 pr_warn("Remounting filesystem read-only\n"); 484 sb->s_flags |= SB_RDONLY; 485 va_end(args); 486 } 487 488 void 489 affs_warning(struct super_block *sb, const char *function, const char *fmt, ...) 490 { 491 struct va_format vaf; 492 va_list args; 493 494 va_start(args, fmt); 495 vaf.fmt = fmt; 496 vaf.va = &args; 497 pr_warn("(device %s): %s(): %pV\n", sb->s_id, function, &vaf); 498 va_end(args); 499 } 500 501 bool 502 affs_nofilenametruncate(const struct dentry *dentry) 503 { 504 return affs_test_opt(AFFS_SB(dentry->d_sb)->s_flags, SF_NO_TRUNCATE); 505 } 506 507 /* Check if the name is valid for a affs object. */ 508 509 int 510 affs_check_name(const unsigned char *name, int len, bool notruncate) 511 { 512 int i; 513 514 if (len > AFFSNAMEMAX) { 515 if (notruncate) 516 return -ENAMETOOLONG; 517 len = AFFSNAMEMAX; 518 } 519 for (i = 0; i < len; i++) { 520 if (name[i] < ' ' || name[i] == ':' 521 || (name[i] > 0x7e && name[i] < 0xa0)) 522 return -EINVAL; 523 } 524 525 return 0; 526 } 527 528 /* This function copies name to bstr, with at most 30 529 * characters length. The bstr will be prepended by 530 * a length byte. 531 * NOTE: The name will must be already checked by 532 * affs_check_name()! 533 */ 534 535 int 536 affs_copy_name(unsigned char *bstr, struct dentry *dentry) 537 { 538 u32 len = min(dentry->d_name.len, AFFSNAMEMAX); 539 540 *bstr++ = len; 541 memcpy(bstr, dentry->d_name.name, len); 542 return len; 543 } 544