]> Pileus Git - ~andy/linux/blob - fs/xfs/xfs_dir2.c
ARM: mcpm: use -st dsb option prior to sev instructions
[~andy/linux] / fs / xfs / xfs_dir2.c
1 /*
2  * Copyright (c) 2000-2001,2005 Silicon Graphics, Inc.
3  * All Rights Reserved.
4  *
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU General Public License as
7  * published by the Free Software Foundation.
8  *
9  * This program is distributed in the hope that it would 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, write the Free Software Foundation,
16  * Inc.,  51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
17  */
18 #include "xfs.h"
19 #include "xfs_fs.h"
20 #include "xfs_types.h"
21 #include "xfs_log.h"
22 #include "xfs_inum.h"
23 #include "xfs_trans.h"
24 #include "xfs_sb.h"
25 #include "xfs_ag.h"
26 #include "xfs_mount.h"
27 #include "xfs_da_btree.h"
28 #include "xfs_bmap_btree.h"
29 #include "xfs_alloc_btree.h"
30 #include "xfs_dinode.h"
31 #include "xfs_inode.h"
32 #include "xfs_inode_item.h"
33 #include "xfs_bmap.h"
34 #include "xfs_dir2.h"
35 #include "xfs_dir2_format.h"
36 #include "xfs_dir2_priv.h"
37 #include "xfs_error.h"
38 #include "xfs_vnodeops.h"
39 #include "xfs_trace.h"
40
41 struct xfs_name xfs_name_dotdot = { (unsigned char *)"..", 2};
42
43 /*
44  * ASCII case-insensitive (ie. A-Z) support for directories that was
45  * used in IRIX.
46  */
47 STATIC xfs_dahash_t
48 xfs_ascii_ci_hashname(
49         struct xfs_name *name)
50 {
51         xfs_dahash_t    hash;
52         int             i;
53
54         for (i = 0, hash = 0; i < name->len; i++)
55                 hash = tolower(name->name[i]) ^ rol32(hash, 7);
56
57         return hash;
58 }
59
60 STATIC enum xfs_dacmp
61 xfs_ascii_ci_compname(
62         struct xfs_da_args *args,
63         const unsigned char *name,
64         int             len)
65 {
66         enum xfs_dacmp  result;
67         int             i;
68
69         if (args->namelen != len)
70                 return XFS_CMP_DIFFERENT;
71
72         result = XFS_CMP_EXACT;
73         for (i = 0; i < len; i++) {
74                 if (args->name[i] == name[i])
75                         continue;
76                 if (tolower(args->name[i]) != tolower(name[i]))
77                         return XFS_CMP_DIFFERENT;
78                 result = XFS_CMP_CASE;
79         }
80
81         return result;
82 }
83
84 static struct xfs_nameops xfs_ascii_ci_nameops = {
85         .hashname       = xfs_ascii_ci_hashname,
86         .compname       = xfs_ascii_ci_compname,
87 };
88
89 void
90 xfs_dir_mount(
91         xfs_mount_t     *mp)
92 {
93         ASSERT(xfs_sb_version_hasdirv2(&mp->m_sb));
94         ASSERT((1 << (mp->m_sb.sb_blocklog + mp->m_sb.sb_dirblklog)) <=
95                XFS_MAX_BLOCKSIZE);
96         mp->m_dirblksize = 1 << (mp->m_sb.sb_blocklog + mp->m_sb.sb_dirblklog);
97         mp->m_dirblkfsbs = 1 << mp->m_sb.sb_dirblklog;
98         mp->m_dirdatablk = xfs_dir2_db_to_da(mp, XFS_DIR2_DATA_FIRSTDB(mp));
99         mp->m_dirleafblk = xfs_dir2_db_to_da(mp, XFS_DIR2_LEAF_FIRSTDB(mp));
100         mp->m_dirfreeblk = xfs_dir2_db_to_da(mp, XFS_DIR2_FREE_FIRSTDB(mp));
101         mp->m_attr_node_ents =
102                 (mp->m_sb.sb_blocksize - (uint)sizeof(xfs_da_node_hdr_t)) /
103                 (uint)sizeof(xfs_da_node_entry_t);
104         mp->m_dir_node_ents =
105                 (mp->m_dirblksize - (uint)sizeof(xfs_da_node_hdr_t)) /
106                 (uint)sizeof(xfs_da_node_entry_t);
107         mp->m_dir_magicpct = (mp->m_dirblksize * 37) / 100;
108         if (xfs_sb_version_hasasciici(&mp->m_sb))
109                 mp->m_dirnameops = &xfs_ascii_ci_nameops;
110         else
111                 mp->m_dirnameops = &xfs_default_nameops;
112 }
113
114 /*
115  * Return 1 if directory contains only "." and "..".
116  */
117 int
118 xfs_dir_isempty(
119         xfs_inode_t     *dp)
120 {
121         xfs_dir2_sf_hdr_t       *sfp;
122
123         ASSERT(S_ISDIR(dp->i_d.di_mode));
124         if (dp->i_d.di_size == 0)       /* might happen during shutdown. */
125                 return 1;
126         if (dp->i_d.di_size > XFS_IFORK_DSIZE(dp))
127                 return 0;
128         sfp = (xfs_dir2_sf_hdr_t *)dp->i_df.if_u1.if_data;
129         return !sfp->count;
130 }
131
132 /*
133  * Validate a given inode number.
134  */
135 int
136 xfs_dir_ino_validate(
137         xfs_mount_t     *mp,
138         xfs_ino_t       ino)
139 {
140         xfs_agblock_t   agblkno;
141         xfs_agino_t     agino;
142         xfs_agnumber_t  agno;
143         int             ino_ok;
144         int             ioff;
145
146         agno = XFS_INO_TO_AGNO(mp, ino);
147         agblkno = XFS_INO_TO_AGBNO(mp, ino);
148         ioff = XFS_INO_TO_OFFSET(mp, ino);
149         agino = XFS_OFFBNO_TO_AGINO(mp, agblkno, ioff);
150         ino_ok =
151                 agno < mp->m_sb.sb_agcount &&
152                 agblkno < mp->m_sb.sb_agblocks &&
153                 agblkno != 0 &&
154                 ioff < (1 << mp->m_sb.sb_inopblog) &&
155                 XFS_AGINO_TO_INO(mp, agno, agino) == ino;
156         if (unlikely(XFS_TEST_ERROR(!ino_ok, mp, XFS_ERRTAG_DIR_INO_VALIDATE,
157                         XFS_RANDOM_DIR_INO_VALIDATE))) {
158                 xfs_warn(mp, "Invalid inode number 0x%Lx",
159                                 (unsigned long long) ino);
160                 XFS_ERROR_REPORT("xfs_dir_ino_validate", XFS_ERRLEVEL_LOW, mp);
161                 return XFS_ERROR(EFSCORRUPTED);
162         }
163         return 0;
164 }
165
166 /*
167  * Initialize a directory with its "." and ".." entries.
168  */
169 int
170 xfs_dir_init(
171         xfs_trans_t     *tp,
172         xfs_inode_t     *dp,
173         xfs_inode_t     *pdp)
174 {
175         xfs_da_args_t   args;
176         int             error;
177
178         memset((char *)&args, 0, sizeof(args));
179         args.dp = dp;
180         args.trans = tp;
181         ASSERT(S_ISDIR(dp->i_d.di_mode));
182         if ((error = xfs_dir_ino_validate(tp->t_mountp, pdp->i_ino)))
183                 return error;
184         return xfs_dir2_sf_create(&args, pdp->i_ino);
185 }
186
187 /*
188   Enter a name in a directory.
189  */
190 int
191 xfs_dir_createname(
192         xfs_trans_t             *tp,
193         xfs_inode_t             *dp,
194         struct xfs_name         *name,
195         xfs_ino_t               inum,           /* new entry inode number */
196         xfs_fsblock_t           *first,         /* bmap's firstblock */
197         xfs_bmap_free_t         *flist,         /* bmap's freeblock list */
198         xfs_extlen_t            total)          /* bmap's total block count */
199 {
200         xfs_da_args_t           args;
201         int                     rval;
202         int                     v;              /* type-checking value */
203
204         ASSERT(S_ISDIR(dp->i_d.di_mode));
205         if ((rval = xfs_dir_ino_validate(tp->t_mountp, inum)))
206                 return rval;
207         XFS_STATS_INC(xs_dir_create);
208
209         memset(&args, 0, sizeof(xfs_da_args_t));
210         args.name = name->name;
211         args.namelen = name->len;
212         args.hashval = dp->i_mount->m_dirnameops->hashname(name);
213         args.inumber = inum;
214         args.dp = dp;
215         args.firstblock = first;
216         args.flist = flist;
217         args.total = total;
218         args.whichfork = XFS_DATA_FORK;
219         args.trans = tp;
220         args.op_flags = XFS_DA_OP_ADDNAME | XFS_DA_OP_OKNOENT;
221
222         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
223                 rval = xfs_dir2_sf_addname(&args);
224         else if ((rval = xfs_dir2_isblock(tp, dp, &v)))
225                 return rval;
226         else if (v)
227                 rval = xfs_dir2_block_addname(&args);
228         else if ((rval = xfs_dir2_isleaf(tp, dp, &v)))
229                 return rval;
230         else if (v)
231                 rval = xfs_dir2_leaf_addname(&args);
232         else
233                 rval = xfs_dir2_node_addname(&args);
234         return rval;
235 }
236
237 /*
238  * If doing a CI lookup and case-insensitive match, dup actual name into
239  * args.value. Return EEXIST for success (ie. name found) or an error.
240  */
241 int
242 xfs_dir_cilookup_result(
243         struct xfs_da_args *args,
244         const unsigned char *name,
245         int             len)
246 {
247         if (args->cmpresult == XFS_CMP_DIFFERENT)
248                 return ENOENT;
249         if (args->cmpresult != XFS_CMP_CASE ||
250                                         !(args->op_flags & XFS_DA_OP_CILOOKUP))
251                 return EEXIST;
252
253         args->value = kmem_alloc(len, KM_NOFS | KM_MAYFAIL);
254         if (!args->value)
255                 return ENOMEM;
256
257         memcpy(args->value, name, len);
258         args->valuelen = len;
259         return EEXIST;
260 }
261
262 /*
263  * Lookup a name in a directory, give back the inode number.
264  * If ci_name is not NULL, returns the actual name in ci_name if it differs
265  * to name, or ci_name->name is set to NULL for an exact match.
266  */
267
268 int
269 xfs_dir_lookup(
270         xfs_trans_t     *tp,
271         xfs_inode_t     *dp,
272         struct xfs_name *name,
273         xfs_ino_t       *inum,          /* out: inode number */
274         struct xfs_name *ci_name)       /* out: actual name if CI match */
275 {
276         xfs_da_args_t   args;
277         int             rval;
278         int             v;              /* type-checking value */
279
280         ASSERT(S_ISDIR(dp->i_d.di_mode));
281         XFS_STATS_INC(xs_dir_lookup);
282
283         memset(&args, 0, sizeof(xfs_da_args_t));
284         args.name = name->name;
285         args.namelen = name->len;
286         args.hashval = dp->i_mount->m_dirnameops->hashname(name);
287         args.dp = dp;
288         args.whichfork = XFS_DATA_FORK;
289         args.trans = tp;
290         args.op_flags = XFS_DA_OP_OKNOENT;
291         if (ci_name)
292                 args.op_flags |= XFS_DA_OP_CILOOKUP;
293
294         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
295                 rval = xfs_dir2_sf_lookup(&args);
296         else if ((rval = xfs_dir2_isblock(tp, dp, &v)))
297                 return rval;
298         else if (v)
299                 rval = xfs_dir2_block_lookup(&args);
300         else if ((rval = xfs_dir2_isleaf(tp, dp, &v)))
301                 return rval;
302         else if (v)
303                 rval = xfs_dir2_leaf_lookup(&args);
304         else
305                 rval = xfs_dir2_node_lookup(&args);
306         if (rval == EEXIST)
307                 rval = 0;
308         if (!rval) {
309                 *inum = args.inumber;
310                 if (ci_name) {
311                         ci_name->name = args.value;
312                         ci_name->len = args.valuelen;
313                 }
314         }
315         return rval;
316 }
317
318 /*
319  * Remove an entry from a directory.
320  */
321 int
322 xfs_dir_removename(
323         xfs_trans_t     *tp,
324         xfs_inode_t     *dp,
325         struct xfs_name *name,
326         xfs_ino_t       ino,
327         xfs_fsblock_t   *first,         /* bmap's firstblock */
328         xfs_bmap_free_t *flist,         /* bmap's freeblock list */
329         xfs_extlen_t    total)          /* bmap's total block count */
330 {
331         xfs_da_args_t   args;
332         int             rval;
333         int             v;              /* type-checking value */
334
335         ASSERT(S_ISDIR(dp->i_d.di_mode));
336         XFS_STATS_INC(xs_dir_remove);
337
338         memset(&args, 0, sizeof(xfs_da_args_t));
339         args.name = name->name;
340         args.namelen = name->len;
341         args.hashval = dp->i_mount->m_dirnameops->hashname(name);
342         args.inumber = ino;
343         args.dp = dp;
344         args.firstblock = first;
345         args.flist = flist;
346         args.total = total;
347         args.whichfork = XFS_DATA_FORK;
348         args.trans = tp;
349
350         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
351                 rval = xfs_dir2_sf_removename(&args);
352         else if ((rval = xfs_dir2_isblock(tp, dp, &v)))
353                 return rval;
354         else if (v)
355                 rval = xfs_dir2_block_removename(&args);
356         else if ((rval = xfs_dir2_isleaf(tp, dp, &v)))
357                 return rval;
358         else if (v)
359                 rval = xfs_dir2_leaf_removename(&args);
360         else
361                 rval = xfs_dir2_node_removename(&args);
362         return rval;
363 }
364
365 /*
366  * Read a directory.
367  */
368 int
369 xfs_readdir(
370         xfs_inode_t     *dp,
371         struct dir_context *ctx,
372         size_t          bufsize)
373 {
374         int             rval;           /* return value */
375         int             v;              /* type-checking value */
376
377         trace_xfs_readdir(dp);
378
379         if (XFS_FORCED_SHUTDOWN(dp->i_mount))
380                 return XFS_ERROR(EIO);
381
382         ASSERT(S_ISDIR(dp->i_d.di_mode));
383         XFS_STATS_INC(xs_dir_getdents);
384
385         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
386                 rval = xfs_dir2_sf_getdents(dp, ctx);
387         else if ((rval = xfs_dir2_isblock(NULL, dp, &v)))
388                 ;
389         else if (v)
390                 rval = xfs_dir2_block_getdents(dp, ctx);
391         else
392                 rval = xfs_dir2_leaf_getdents(dp, ctx, bufsize);
393         return rval;
394 }
395
396 /*
397  * Replace the inode number of a directory entry.
398  */
399 int
400 xfs_dir_replace(
401         xfs_trans_t     *tp,
402         xfs_inode_t     *dp,
403         struct xfs_name *name,          /* name of entry to replace */
404         xfs_ino_t       inum,           /* new inode number */
405         xfs_fsblock_t   *first,         /* bmap's firstblock */
406         xfs_bmap_free_t *flist,         /* bmap's freeblock list */
407         xfs_extlen_t    total)          /* bmap's total block count */
408 {
409         xfs_da_args_t   args;
410         int             rval;
411         int             v;              /* type-checking value */
412
413         ASSERT(S_ISDIR(dp->i_d.di_mode));
414
415         if ((rval = xfs_dir_ino_validate(tp->t_mountp, inum)))
416                 return rval;
417
418         memset(&args, 0, sizeof(xfs_da_args_t));
419         args.name = name->name;
420         args.namelen = name->len;
421         args.hashval = dp->i_mount->m_dirnameops->hashname(name);
422         args.inumber = inum;
423         args.dp = dp;
424         args.firstblock = first;
425         args.flist = flist;
426         args.total = total;
427         args.whichfork = XFS_DATA_FORK;
428         args.trans = tp;
429
430         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
431                 rval = xfs_dir2_sf_replace(&args);
432         else if ((rval = xfs_dir2_isblock(tp, dp, &v)))
433                 return rval;
434         else if (v)
435                 rval = xfs_dir2_block_replace(&args);
436         else if ((rval = xfs_dir2_isleaf(tp, dp, &v)))
437                 return rval;
438         else if (v)
439                 rval = xfs_dir2_leaf_replace(&args);
440         else
441                 rval = xfs_dir2_node_replace(&args);
442         return rval;
443 }
444
445 /*
446  * See if this entry can be added to the directory without allocating space.
447  * First checks that the caller couldn't reserve enough space (resblks = 0).
448  */
449 int
450 xfs_dir_canenter(
451         xfs_trans_t     *tp,
452         xfs_inode_t     *dp,
453         struct xfs_name *name,          /* name of entry to add */
454         uint            resblks)
455 {
456         xfs_da_args_t   args;
457         int             rval;
458         int             v;              /* type-checking value */
459
460         if (resblks)
461                 return 0;
462
463         ASSERT(S_ISDIR(dp->i_d.di_mode));
464
465         memset(&args, 0, sizeof(xfs_da_args_t));
466         args.name = name->name;
467         args.namelen = name->len;
468         args.hashval = dp->i_mount->m_dirnameops->hashname(name);
469         args.dp = dp;
470         args.whichfork = XFS_DATA_FORK;
471         args.trans = tp;
472         args.op_flags = XFS_DA_OP_JUSTCHECK | XFS_DA_OP_ADDNAME |
473                                                         XFS_DA_OP_OKNOENT;
474
475         if (dp->i_d.di_format == XFS_DINODE_FMT_LOCAL)
476                 rval = xfs_dir2_sf_addname(&args);
477         else if ((rval = xfs_dir2_isblock(tp, dp, &v)))
478                 return rval;
479         else if (v)
480                 rval = xfs_dir2_block_addname(&args);
481         else if ((rval = xfs_dir2_isleaf(tp, dp, &v)))
482                 return rval;
483         else if (v)
484                 rval = xfs_dir2_leaf_addname(&args);
485         else
486                 rval = xfs_dir2_node_addname(&args);
487         return rval;
488 }
489
490 /*
491  * Utility routines.
492  */
493
494 /*
495  * Add a block to the directory.
496  *
497  * This routine is for data and free blocks, not leaf/node blocks which are
498  * handled by xfs_da_grow_inode.
499  */
500 int
501 xfs_dir2_grow_inode(
502         struct xfs_da_args      *args,
503         int                     space,  /* v2 dir's space XFS_DIR2_xxx_SPACE */
504         xfs_dir2_db_t           *dbp)   /* out: block number added */
505 {
506         struct xfs_inode        *dp = args->dp;
507         struct xfs_mount        *mp = dp->i_mount;
508         xfs_fileoff_t           bno;    /* directory offset of new block */
509         int                     count;  /* count of filesystem blocks */
510         int                     error;
511
512         trace_xfs_dir2_grow_inode(args, space);
513
514         /*
515          * Set lowest possible block in the space requested.
516          */
517         bno = XFS_B_TO_FSBT(mp, space * XFS_DIR2_SPACE_SIZE);
518         count = mp->m_dirblkfsbs;
519
520         error = xfs_da_grow_inode_int(args, &bno, count);
521         if (error)
522                 return error;
523
524         *dbp = xfs_dir2_da_to_db(mp, (xfs_dablk_t)bno);
525
526         /*
527          * Update file's size if this is the data space and it grew.
528          */
529         if (space == XFS_DIR2_DATA_SPACE) {
530                 xfs_fsize_t     size;           /* directory file (data) size */
531
532                 size = XFS_FSB_TO_B(mp, bno + count);
533                 if (size > dp->i_d.di_size) {
534                         dp->i_d.di_size = size;
535                         xfs_trans_log_inode(args->trans, dp, XFS_ILOG_CORE);
536                 }
537         }
538         return 0;
539 }
540
541 /*
542  * See if the directory is a single-block form directory.
543  */
544 int
545 xfs_dir2_isblock(
546         xfs_trans_t     *tp,
547         xfs_inode_t     *dp,
548         int             *vp)            /* out: 1 is block, 0 is not block */
549 {
550         xfs_fileoff_t   last;           /* last file offset */
551         xfs_mount_t     *mp;
552         int             rval;
553
554         mp = dp->i_mount;
555         if ((rval = xfs_bmap_last_offset(tp, dp, &last, XFS_DATA_FORK)))
556                 return rval;
557         rval = XFS_FSB_TO_B(mp, last) == mp->m_dirblksize;
558         ASSERT(rval == 0 || dp->i_d.di_size == mp->m_dirblksize);
559         *vp = rval;
560         return 0;
561 }
562
563 /*
564  * See if the directory is a single-leaf form directory.
565  */
566 int
567 xfs_dir2_isleaf(
568         xfs_trans_t     *tp,
569         xfs_inode_t     *dp,
570         int             *vp)            /* out: 1 is leaf, 0 is not leaf */
571 {
572         xfs_fileoff_t   last;           /* last file offset */
573         xfs_mount_t     *mp;
574         int             rval;
575
576         mp = dp->i_mount;
577         if ((rval = xfs_bmap_last_offset(tp, dp, &last, XFS_DATA_FORK)))
578                 return rval;
579         *vp = last == mp->m_dirleafblk + (1 << mp->m_sb.sb_dirblklog);
580         return 0;
581 }
582
583 /*
584  * Remove the given block from the directory.
585  * This routine is used for data and free blocks, leaf/node are done
586  * by xfs_da_shrink_inode.
587  */
588 int
589 xfs_dir2_shrink_inode(
590         xfs_da_args_t   *args,
591         xfs_dir2_db_t   db,
592         struct xfs_buf  *bp)
593 {
594         xfs_fileoff_t   bno;            /* directory file offset */
595         xfs_dablk_t     da;             /* directory file offset */
596         int             done;           /* bunmap is finished */
597         xfs_inode_t     *dp;
598         int             error;
599         xfs_mount_t     *mp;
600         xfs_trans_t     *tp;
601
602         trace_xfs_dir2_shrink_inode(args, db);
603
604         dp = args->dp;
605         mp = dp->i_mount;
606         tp = args->trans;
607         da = xfs_dir2_db_to_da(mp, db);
608         /*
609          * Unmap the fsblock(s).
610          */
611         if ((error = xfs_bunmapi(tp, dp, da, mp->m_dirblkfsbs,
612                         XFS_BMAPI_METADATA, 0, args->firstblock, args->flist,
613                         &done))) {
614                 /*
615                  * ENOSPC actually can happen if we're in a removename with
616                  * no space reservation, and the resulting block removal
617                  * would cause a bmap btree split or conversion from extents
618                  * to btree.  This can only happen for un-fragmented
619                  * directory blocks, since you need to be punching out
620                  * the middle of an extent.
621                  * In this case we need to leave the block in the file,
622                  * and not binval it.
623                  * So the block has to be in a consistent empty state
624                  * and appropriately logged.
625                  * We don't free up the buffer, the caller can tell it
626                  * hasn't happened since it got an error back.
627                  */
628                 return error;
629         }
630         ASSERT(done);
631         /*
632          * Invalidate the buffer from the transaction.
633          */
634         xfs_trans_binval(tp, bp);
635         /*
636          * If it's not a data block, we're done.
637          */
638         if (db >= XFS_DIR2_LEAF_FIRSTDB(mp))
639                 return 0;
640         /*
641          * If the block isn't the last one in the directory, we're done.
642          */
643         if (dp->i_d.di_size > xfs_dir2_db_off_to_byte(mp, db + 1, 0))
644                 return 0;
645         bno = da;
646         if ((error = xfs_bmap_last_before(tp, dp, &bno, XFS_DATA_FORK))) {
647                 /*
648                  * This can't really happen unless there's kernel corruption.
649                  */
650                 return error;
651         }
652         if (db == mp->m_dirdatablk)
653                 ASSERT(bno == 0);
654         else
655                 ASSERT(bno > 0);
656         /*
657          * Set the size to the new last block.
658          */
659         dp->i_d.di_size = XFS_FSB_TO_B(mp, bno);
660         xfs_trans_log_inode(tp, dp, XFS_ILOG_CORE);
661         return 0;
662 }