GNU Linux-libre 5.10.219-gnu1
[releases.git] / fs / affs / amigaffs.c
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 = dir->i_ctime = current_time(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 = dir->i_ctime = current_time(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->i_ctime = current_time(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 }