Whamcloud - gitweb
LU-5147 doc: design docs in documentation dir
[fs/lustre-release.git] / lustre / lod / lod_object.c
1 /*
2  * GPL HEADER START
3  *
4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License version 2 only,
8  * as published by the Free Software Foundation.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License version 2 for more details.  A copy is
14  * included in the COPYING file that accompanied this code.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19  *
20  * GPL HEADER END
21  */
22 /*
23  * Copyright  2009 Sun Microsystems, Inc. All rights reserved
24  * Use is subject to license terms.
25  *
26  * Copyright (c) 2012, 2015, Intel Corporation.
27  */
28 /*
29  * lustre/lod/lod_object.c
30  *
31  * This file contains implementations of methods for the OSD API
32  * for the Logical Object Device (LOD) layer, which provides a virtual
33  * local OSD object interface to the MDD layer, and abstracts the
34  * addressing of local (OSD) and remote (OSP) objects. The API is
35  * described in the file lustre/include/dt_object.h and in
36  * Documentation/osd-api.txt.
37  *
38  * Author: Alex Zhuravlev <alexey.zhuravlev@intel.com>
39  */
40
41 #define DEBUG_SUBSYSTEM S_MDS
42
43 #include <obd.h>
44 #include <obd_class.h>
45 #include <obd_support.h>
46
47 #include <lustre_fid.h>
48 #include <lustre_linkea.h>
49 #include <lustre_lmv.h>
50 #include <lustre_param.h>
51 #include <lustre_swab.h>
52 #include <lustre_ver.h>
53 #include <lprocfs_status.h>
54 #include <md_object.h>
55
56 #include "lod_internal.h"
57
58 static const char dot[] = ".";
59 static const char dotdot[] = "..";
60
61 static const struct dt_body_operations lod_body_lnk_ops;
62 static const struct dt_body_operations lod_body_ops;
63
64 /**
65  * Implementation of dt_index_operations::dio_lookup
66  *
67  * Used with regular (non-striped) objects.
68  *
69  * \see dt_index_operations::dio_lookup() in the API description for details.
70  */
71 static int lod_index_lookup(const struct lu_env *env, struct dt_object *dt,
72                             struct dt_rec *rec, const struct dt_key *key)
73 {
74         struct dt_object *next = dt_object_child(dt);
75         return next->do_index_ops->dio_lookup(env, next, rec, key);
76 }
77
78 /**
79  * Implementation of dt_index_operations::dio_declare_insert.
80  *
81  * Used with regular (non-striped) objects.
82  *
83  * \see dt_index_operations::dio_declare_insert() in the API description
84  * for details.
85  */
86 static int lod_declare_index_insert(const struct lu_env *env,
87                                     struct dt_object *dt,
88                                     const struct dt_rec *rec,
89                                     const struct dt_key *key,
90                                     struct thandle *th)
91 {
92         return lod_sub_object_declare_insert(env, dt_object_child(dt),
93                                              rec, key, th);
94 }
95
96 /**
97  * Implementation of dt_index_operations::dio_insert.
98  *
99  * Used with regular (non-striped) objects
100  *
101  * \see dt_index_operations::dio_insert() in the API description for details.
102  */
103 static int lod_index_insert(const struct lu_env *env,
104                             struct dt_object *dt,
105                             const struct dt_rec *rec,
106                             const struct dt_key *key,
107                             struct thandle *th,
108                             int ign)
109 {
110         return lod_sub_object_index_insert(env, dt_object_child(dt), rec, key,
111                                            th, ign);
112 }
113
114 /**
115  * Implementation of dt_index_operations::dio_declare_delete.
116  *
117  * Used with regular (non-striped) objects.
118  *
119  * \see dt_index_operations::dio_declare_delete() in the API description
120  * for details.
121  */
122 static int lod_declare_index_delete(const struct lu_env *env,
123                                     struct dt_object *dt,
124                                     const struct dt_key *key,
125                                     struct thandle *th)
126 {
127         return lod_sub_object_declare_delete(env, dt_object_child(dt), key,
128                                              th);
129 }
130
131 /**
132  * Implementation of dt_index_operations::dio_delete.
133  *
134  * Used with regular (non-striped) objects.
135  *
136  * \see dt_index_operations::dio_delete() in the API description for details.
137  */
138 static int lod_index_delete(const struct lu_env *env,
139                             struct dt_object *dt,
140                             const struct dt_key *key,
141                             struct thandle *th)
142 {
143         return lod_sub_object_delete(env, dt_object_child(dt), key, th);
144 }
145
146 /**
147  * Implementation of dt_it_ops::init.
148  *
149  * Used with regular (non-striped) objects.
150  *
151  * \see dt_it_ops::init() in the API description for details.
152  */
153 static struct dt_it *lod_it_init(const struct lu_env *env,
154                                  struct dt_object *dt, __u32 attr)
155 {
156         struct dt_object        *next = dt_object_child(dt);
157         struct lod_it           *it = &lod_env_info(env)->lti_it;
158         struct dt_it            *it_next;
159
160         it_next = next->do_index_ops->dio_it.init(env, next, attr);
161         if (IS_ERR(it_next))
162                 return it_next;
163
164         /* currently we do not use more than one iterator per thread
165          * so we store it in thread info. if at some point we need
166          * more active iterators in a single thread, we can allocate
167          * additional ones */
168         LASSERT(it->lit_obj == NULL);
169
170         it->lit_it = it_next;
171         it->lit_obj = next;
172
173         return (struct dt_it *)it;
174 }
175
176 #define LOD_CHECK_IT(env, it)                                   \
177 do {                                                            \
178         LASSERT((it)->lit_obj != NULL);                         \
179         LASSERT((it)->lit_it != NULL);                          \
180 } while (0)
181
182 /**
183  * Implementation of dt_index_operations::dio_it.fini.
184  *
185  * Used with regular (non-striped) objects.
186  *
187  * \see dt_index_operations::dio_it.fini() in the API description for details.
188  */
189 static void lod_it_fini(const struct lu_env *env, struct dt_it *di)
190 {
191         struct lod_it *it = (struct lod_it *)di;
192
193         LOD_CHECK_IT(env, it);
194         it->lit_obj->do_index_ops->dio_it.fini(env, it->lit_it);
195
196         /* the iterator not in use any more */
197         it->lit_obj = NULL;
198         it->lit_it = NULL;
199 }
200
201 /**
202  * Implementation of dt_it_ops::get.
203  *
204  * Used with regular (non-striped) objects.
205  *
206  * \see dt_it_ops::get() in the API description for details.
207  */
208 static int lod_it_get(const struct lu_env *env, struct dt_it *di,
209                       const struct dt_key *key)
210 {
211         const struct lod_it *it = (const struct lod_it *)di;
212
213         LOD_CHECK_IT(env, it);
214         return it->lit_obj->do_index_ops->dio_it.get(env, it->lit_it, key);
215 }
216
217 /**
218  * Implementation of dt_it_ops::put.
219  *
220  * Used with regular (non-striped) objects.
221  *
222  * \see dt_it_ops::put() in the API description for details.
223  */
224 static void lod_it_put(const struct lu_env *env, struct dt_it *di)
225 {
226         struct lod_it *it = (struct lod_it *)di;
227
228         LOD_CHECK_IT(env, it);
229         return it->lit_obj->do_index_ops->dio_it.put(env, it->lit_it);
230 }
231
232 /**
233  * Implementation of dt_it_ops::next.
234  *
235  * Used with regular (non-striped) objects
236  *
237  * \see dt_it_ops::next() in the API description for details.
238  */
239 static int lod_it_next(const struct lu_env *env, struct dt_it *di)
240 {
241         struct lod_it *it = (struct lod_it *)di;
242
243         LOD_CHECK_IT(env, it);
244         return it->lit_obj->do_index_ops->dio_it.next(env, it->lit_it);
245 }
246
247 /**
248  * Implementation of dt_it_ops::key.
249  *
250  * Used with regular (non-striped) objects.
251  *
252  * \see dt_it_ops::key() in the API description for details.
253  */
254 static struct dt_key *lod_it_key(const struct lu_env *env,
255                                  const struct dt_it *di)
256 {
257         const struct lod_it *it = (const struct lod_it *)di;
258
259         LOD_CHECK_IT(env, it);
260         return it->lit_obj->do_index_ops->dio_it.key(env, it->lit_it);
261 }
262
263 /**
264  * Implementation of dt_it_ops::key_size.
265  *
266  * Used with regular (non-striped) objects.
267  *
268  * \see dt_it_ops::key_size() in the API description for details.
269  */
270 static int lod_it_key_size(const struct lu_env *env, const struct dt_it *di)
271 {
272         struct lod_it *it = (struct lod_it *)di;
273
274         LOD_CHECK_IT(env, it);
275         return it->lit_obj->do_index_ops->dio_it.key_size(env, it->lit_it);
276 }
277
278 /**
279  * Implementation of dt_it_ops::rec.
280  *
281  * Used with regular (non-striped) objects.
282  *
283  * \see dt_it_ops::rec() in the API description for details.
284  */
285 static int lod_it_rec(const struct lu_env *env, const struct dt_it *di,
286                       struct dt_rec *rec, __u32 attr)
287 {
288         const struct lod_it *it = (const struct lod_it *)di;
289
290         LOD_CHECK_IT(env, it);
291         return it->lit_obj->do_index_ops->dio_it.rec(env, it->lit_it, rec,
292                                                      attr);
293 }
294
295 /**
296  * Implementation of dt_it_ops::rec_size.
297  *
298  * Used with regular (non-striped) objects.
299  *
300  * \see dt_it_ops::rec_size() in the API description for details.
301  */
302 static int lod_it_rec_size(const struct lu_env *env, const struct dt_it *di,
303                            __u32 attr)
304 {
305         const struct lod_it *it = (const struct lod_it *)di;
306
307         LOD_CHECK_IT(env, it);
308         return it->lit_obj->do_index_ops->dio_it.rec_size(env, it->lit_it,
309                                                           attr);
310 }
311
312 /**
313  * Implementation of dt_it_ops::store.
314  *
315  * Used with regular (non-striped) objects.
316  *
317  * \see dt_it_ops::store() in the API description for details.
318  */
319 static __u64 lod_it_store(const struct lu_env *env, const struct dt_it *di)
320 {
321         const struct lod_it *it = (const struct lod_it *)di;
322
323         LOD_CHECK_IT(env, it);
324         return it->lit_obj->do_index_ops->dio_it.store(env, it->lit_it);
325 }
326
327 /**
328  * Implementation of dt_it_ops::load.
329  *
330  * Used with regular (non-striped) objects.
331  *
332  * \see dt_it_ops::load() in the API description for details.
333  */
334 static int lod_it_load(const struct lu_env *env, const struct dt_it *di,
335                        __u64 hash)
336 {
337         const struct lod_it *it = (const struct lod_it *)di;
338
339         LOD_CHECK_IT(env, it);
340         return it->lit_obj->do_index_ops->dio_it.load(env, it->lit_it, hash);
341 }
342
343 /**
344  * Implementation of dt_it_ops::key_rec.
345  *
346  * Used with regular (non-striped) objects.
347  *
348  * \see dt_it_ops::rec() in the API description for details.
349  */
350 static int lod_it_key_rec(const struct lu_env *env, const struct dt_it *di,
351                           void *key_rec)
352 {
353         const struct lod_it *it = (const struct lod_it *)di;
354
355         LOD_CHECK_IT(env, it);
356         return it->lit_obj->do_index_ops->dio_it.key_rec(env, it->lit_it,
357                                                          key_rec);
358 }
359
360 static struct dt_index_operations lod_index_ops = {
361         .dio_lookup             = lod_index_lookup,
362         .dio_declare_insert     = lod_declare_index_insert,
363         .dio_insert             = lod_index_insert,
364         .dio_declare_delete     = lod_declare_index_delete,
365         .dio_delete             = lod_index_delete,
366         .dio_it = {
367                 .init           = lod_it_init,
368                 .fini           = lod_it_fini,
369                 .get            = lod_it_get,
370                 .put            = lod_it_put,
371                 .next           = lod_it_next,
372                 .key            = lod_it_key,
373                 .key_size       = lod_it_key_size,
374                 .rec            = lod_it_rec,
375                 .rec_size       = lod_it_rec_size,
376                 .store          = lod_it_store,
377                 .load           = lod_it_load,
378                 .key_rec        = lod_it_key_rec,
379         }
380 };
381
382 /**
383  * Implementation of dt_it_ops::init.
384  *
385  * Used with striped objects. Internally just initializes the iterator
386  * on the first stripe.
387  *
388  * \see dt_it_ops::init() in the API description for details.
389  */
390 static struct dt_it *lod_striped_it_init(const struct lu_env *env,
391                                          struct dt_object *dt, __u32 attr)
392 {
393         struct lod_object       *lo = lod_dt_obj(dt);
394         struct dt_object        *next;
395         struct lod_it           *it = &lod_env_info(env)->lti_it;
396         struct dt_it            *it_next;
397         ENTRY;
398
399         LASSERT(lo->ldo_stripenr > 0);
400         next = lo->ldo_stripe[0];
401         LASSERT(next != NULL);
402         LASSERT(next->do_index_ops != NULL);
403
404         it_next = next->do_index_ops->dio_it.init(env, next, attr);
405         if (IS_ERR(it_next))
406                 return it_next;
407
408         /* currently we do not use more than one iterator per thread
409          * so we store it in thread info. if at some point we need
410          * more active iterators in a single thread, we can allocate
411          * additional ones */
412         LASSERT(it->lit_obj == NULL);
413
414         it->lit_stripe_index = 0;
415         it->lit_attr = attr;
416         it->lit_it = it_next;
417         it->lit_obj = dt;
418
419         return (struct dt_it *)it;
420 }
421
422 #define LOD_CHECK_STRIPED_IT(env, it, lo)                       \
423 do {                                                            \
424         LASSERT((it)->lit_obj != NULL);                         \
425         LASSERT((it)->lit_it != NULL);                          \
426         LASSERT((lo)->ldo_stripenr > 0);                        \
427         LASSERT((it)->lit_stripe_index < (lo)->ldo_stripenr);   \
428 } while (0)
429
430 /**
431  * Implementation of dt_it_ops::fini.
432  *
433  * Used with striped objects.
434  *
435  * \see dt_it_ops::fini() in the API description for details.
436  */
437 static void lod_striped_it_fini(const struct lu_env *env, struct dt_it *di)
438 {
439         struct lod_it           *it = (struct lod_it *)di;
440         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
441         struct dt_object        *next;
442
443         /* If lit_it == NULL, then it means the sub_it has been finished,
444          * which only happens in failure cases, see lod_striped_it_next() */
445         if (it->lit_it != NULL) {
446                 LOD_CHECK_STRIPED_IT(env, it, lo);
447
448                 next = lo->ldo_stripe[it->lit_stripe_index];
449                 LASSERT(next != NULL);
450                 LASSERT(next->do_index_ops != NULL);
451
452                 next->do_index_ops->dio_it.fini(env, it->lit_it);
453         }
454
455         /* the iterator not in use any more */
456         it->lit_obj = NULL;
457         it->lit_it = NULL;
458         it->lit_stripe_index = 0;
459 }
460
461 /**
462  * Implementation of dt_it_ops::get.
463  *
464  * Right now it's not used widely, only to reset the iterator to the
465  * initial position. It should be possible to implement a full version
466  * which chooses a correct stripe to be able to position with any key.
467  *
468  * \see dt_it_ops::get() in the API description for details.
469  */
470 static int lod_striped_it_get(const struct lu_env *env, struct dt_it *di,
471                               const struct dt_key *key)
472 {
473         const struct lod_it     *it = (const struct lod_it *)di;
474         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
475         struct dt_object        *next;
476         ENTRY;
477
478         LOD_CHECK_STRIPED_IT(env, it, lo);
479
480         next = lo->ldo_stripe[it->lit_stripe_index];
481         LASSERT(next != NULL);
482         LASSERT(next->do_index_ops != NULL);
483
484         return next->do_index_ops->dio_it.get(env, it->lit_it, key);
485 }
486
487 /**
488  * Implementation of dt_it_ops::put.
489  *
490  * Used with striped objects.
491  *
492  * \see dt_it_ops::put() in the API description for details.
493  */
494 static void lod_striped_it_put(const struct lu_env *env, struct dt_it *di)
495 {
496         struct lod_it           *it = (struct lod_it *)di;
497         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
498         struct dt_object        *next;
499
500         LOD_CHECK_STRIPED_IT(env, it, lo);
501
502         next = lo->ldo_stripe[it->lit_stripe_index];
503         LASSERT(next != NULL);
504         LASSERT(next->do_index_ops != NULL);
505
506         return next->do_index_ops->dio_it.put(env, it->lit_it);
507 }
508
509 /**
510  * Implementation of dt_it_ops::next.
511  *
512  * Used with striped objects. When the end of the current stripe is
513  * reached, the method takes the next stripe's iterator.
514  *
515  * \see dt_it_ops::next() in the API description for details.
516  */
517 static int lod_striped_it_next(const struct lu_env *env, struct dt_it *di)
518 {
519         struct lod_it           *it = (struct lod_it *)di;
520         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
521         struct dt_object        *next;
522         struct dt_it            *it_next;
523         int                     rc;
524         ENTRY;
525
526         LOD_CHECK_STRIPED_IT(env, it, lo);
527
528         next = lo->ldo_stripe[it->lit_stripe_index];
529         LASSERT(next != NULL);
530         LASSERT(next->do_index_ops != NULL);
531 again:
532         rc = next->do_index_ops->dio_it.next(env, it->lit_it);
533         if (rc < 0)
534                 RETURN(rc);
535
536         if (rc == 0 && it->lit_stripe_index == 0)
537                 RETURN(rc);
538
539         if (rc == 0 && it->lit_stripe_index > 0) {
540                 struct lu_dirent *ent;
541
542                 ent = (struct lu_dirent *)lod_env_info(env)->lti_key;
543
544                 rc = next->do_index_ops->dio_it.rec(env, it->lit_it,
545                                                     (struct dt_rec *)ent,
546                                                     it->lit_attr);
547                 if (rc != 0)
548                         RETURN(rc);
549
550                 /* skip . and .. for slave stripe */
551                 if ((strncmp(ent->lde_name, ".",
552                              le16_to_cpu(ent->lde_namelen)) == 0 &&
553                      le16_to_cpu(ent->lde_namelen) == 1) ||
554                     (strncmp(ent->lde_name, "..",
555                              le16_to_cpu(ent->lde_namelen)) == 0 &&
556                      le16_to_cpu(ent->lde_namelen) == 2))
557                         goto again;
558
559                 RETURN(rc);
560         }
561
562         /* go to next stripe */
563         if (it->lit_stripe_index + 1 >= lo->ldo_stripenr)
564                 RETURN(1);
565
566         it->lit_stripe_index++;
567
568         next->do_index_ops->dio_it.put(env, it->lit_it);
569         next->do_index_ops->dio_it.fini(env, it->lit_it);
570         it->lit_it = NULL;
571
572         next = lo->ldo_stripe[it->lit_stripe_index];
573         LASSERT(next != NULL);
574         rc = next->do_ops->do_index_try(env, next, &dt_directory_features);
575         if (rc != 0)
576                 RETURN(rc);
577
578         LASSERT(next->do_index_ops != NULL);
579
580         it_next = next->do_index_ops->dio_it.init(env, next, it->lit_attr);
581         if (!IS_ERR(it_next)) {
582                 it->lit_it = it_next;
583                 goto again;
584         } else {
585                 rc = PTR_ERR(it_next);
586         }
587
588         RETURN(rc);
589 }
590
591 /**
592  * Implementation of dt_it_ops::key.
593  *
594  * Used with striped objects.
595  *
596  * \see dt_it_ops::key() in the API description for details.
597  */
598 static struct dt_key *lod_striped_it_key(const struct lu_env *env,
599                                          const struct dt_it *di)
600 {
601         const struct lod_it     *it = (const struct lod_it *)di;
602         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
603         struct dt_object        *next;
604
605         LOD_CHECK_STRIPED_IT(env, it, lo);
606
607         next = lo->ldo_stripe[it->lit_stripe_index];
608         LASSERT(next != NULL);
609         LASSERT(next->do_index_ops != NULL);
610
611         return next->do_index_ops->dio_it.key(env, it->lit_it);
612 }
613
614 /**
615  * Implementation of dt_it_ops::key_size.
616  *
617  * Used with striped objects.
618  *
619  * \see dt_it_ops::size() in the API description for details.
620  */
621 static int lod_striped_it_key_size(const struct lu_env *env,
622                                    const struct dt_it *di)
623 {
624         struct lod_it           *it = (struct lod_it *)di;
625         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
626         struct dt_object        *next;
627
628         LOD_CHECK_STRIPED_IT(env, it, lo);
629
630         next = lo->ldo_stripe[it->lit_stripe_index];
631         LASSERT(next != NULL);
632         LASSERT(next->do_index_ops != NULL);
633
634         return next->do_index_ops->dio_it.key_size(env, it->lit_it);
635 }
636
637 /**
638  * Implementation of dt_it_ops::rec.
639  *
640  * Used with striped objects.
641  *
642  * \see dt_it_ops::rec() in the API description for details.
643  */
644 static int lod_striped_it_rec(const struct lu_env *env, const struct dt_it *di,
645                               struct dt_rec *rec, __u32 attr)
646 {
647         const struct lod_it     *it = (const struct lod_it *)di;
648         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
649         struct dt_object        *next;
650
651         LOD_CHECK_STRIPED_IT(env, it, lo);
652
653         next = lo->ldo_stripe[it->lit_stripe_index];
654         LASSERT(next != NULL);
655         LASSERT(next->do_index_ops != NULL);
656
657         return next->do_index_ops->dio_it.rec(env, it->lit_it, rec, attr);
658 }
659
660 /**
661  * Implementation of dt_it_ops::rec_size.
662  *
663  * Used with striped objects.
664  *
665  * \see dt_it_ops::rec_size() in the API description for details.
666  */
667 static int lod_striped_it_rec_size(const struct lu_env *env,
668                                    const struct dt_it *di, __u32 attr)
669 {
670         struct lod_it           *it = (struct lod_it *)di;
671         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
672         struct dt_object        *next;
673
674         LOD_CHECK_STRIPED_IT(env, it, lo);
675
676         next = lo->ldo_stripe[it->lit_stripe_index];
677         LASSERT(next != NULL);
678         LASSERT(next->do_index_ops != NULL);
679
680         return next->do_index_ops->dio_it.rec_size(env, it->lit_it, attr);
681 }
682
683 /**
684  * Implementation of dt_it_ops::store.
685  *
686  * Used with striped objects.
687  *
688  * \see dt_it_ops::store() in the API description for details.
689  */
690 static __u64 lod_striped_it_store(const struct lu_env *env,
691                                   const struct dt_it *di)
692 {
693         const struct lod_it     *it = (const struct lod_it *)di;
694         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
695         struct dt_object        *next;
696
697         LOD_CHECK_STRIPED_IT(env, it, lo);
698
699         next = lo->ldo_stripe[it->lit_stripe_index];
700         LASSERT(next != NULL);
701         LASSERT(next->do_index_ops != NULL);
702
703         return next->do_index_ops->dio_it.store(env, it->lit_it);
704 }
705
706 /**
707  * Implementation of dt_it_ops::load.
708  *
709  * Used with striped objects.
710  *
711  * \see dt_it_ops::load() in the API description for details.
712  */
713 static int lod_striped_it_load(const struct lu_env *env,
714                                const struct dt_it *di, __u64 hash)
715 {
716         const struct lod_it     *it = (const struct lod_it *)di;
717         struct lod_object       *lo = lod_dt_obj(it->lit_obj);
718         struct dt_object        *next;
719
720         LOD_CHECK_STRIPED_IT(env, it, lo);
721
722         next = lo->ldo_stripe[it->lit_stripe_index];
723         LASSERT(next != NULL);
724         LASSERT(next->do_index_ops != NULL);
725
726         return next->do_index_ops->dio_it.load(env, it->lit_it, hash);
727 }
728
729 static struct dt_index_operations lod_striped_index_ops = {
730         .dio_lookup             = lod_index_lookup,
731         .dio_declare_insert     = lod_declare_index_insert,
732         .dio_insert             = lod_index_insert,
733         .dio_declare_delete     = lod_declare_index_delete,
734         .dio_delete             = lod_index_delete,
735         .dio_it = {
736                 .init           = lod_striped_it_init,
737                 .fini           = lod_striped_it_fini,
738                 .get            = lod_striped_it_get,
739                 .put            = lod_striped_it_put,
740                 .next           = lod_striped_it_next,
741                 .key            = lod_striped_it_key,
742                 .key_size       = lod_striped_it_key_size,
743                 .rec            = lod_striped_it_rec,
744                 .rec_size       = lod_striped_it_rec_size,
745                 .store          = lod_striped_it_store,
746                 .load           = lod_striped_it_load,
747         }
748 };
749
750 /**
751  * Append the FID for each shard of the striped directory after the
752  * given LMV EA header.
753  *
754  * To simplify striped directory and the consistency verification,
755  * we only store the LMV EA header on disk, for both master object
756  * and slave objects. When someone wants to know the whole LMV EA,
757  * such as client readdir(), we can build the entrie LMV EA on the
758  * MDT side (in RAM) via iterating the sub-directory entries that
759  * are contained in the master object of the stripe directory.
760  *
761  * For the master object of the striped directroy, the valid name
762  * for each shard is composed of the ${shard_FID}:${shard_idx}.
763  *
764  * There may be holes in the LMV EA if some shards' name entries
765  * are corrupted or lost.
766  *
767  * \param[in] env       pointer to the thread context
768  * \param[in] lo        pointer to the master object of the striped directory
769  * \param[in] buf       pointer to the lu_buf which will hold the LMV EA
770  * \param[in] resize    whether re-allocate the buffer if it is not big enough
771  *
772  * \retval              positive size of the LMV EA
773  * \retval              0 for nothing to be loaded
774  * \retval              negative error number on failure
775  */
776 int lod_load_lmv_shards(const struct lu_env *env, struct lod_object *lo,
777                         struct lu_buf *buf, bool resize)
778 {
779         struct lu_dirent        *ent    =
780                         (struct lu_dirent *)lod_env_info(env)->lti_key;
781         struct lod_device       *lod    = lu2lod_dev(lo->ldo_obj.do_lu.lo_dev);
782         struct dt_object        *obj    = dt_object_child(&lo->ldo_obj);
783         struct lmv_mds_md_v1    *lmv1   = buf->lb_buf;
784         struct dt_it            *it;
785         const struct dt_it_ops  *iops;
786         __u32                    stripes;
787         __u32                    magic  = le32_to_cpu(lmv1->lmv_magic);
788         size_t                   lmv1_size;
789         int                      rc;
790         ENTRY;
791
792         /* If it is not a striped directory, then load nothing. */
793         if (magic != LMV_MAGIC_V1)
794                 RETURN(0);
795
796         /* If it is in migration (or failure), then load nothing. */
797         if (le32_to_cpu(lmv1->lmv_hash_type) & LMV_HASH_FLAG_MIGRATION)
798                 RETURN(0);
799
800         stripes = le32_to_cpu(lmv1->lmv_stripe_count);
801         if (stripes < 1)
802                 RETURN(0);
803
804         rc = lmv_mds_md_size(stripes, magic);
805         if (rc < 0)
806                 RETURN(rc);
807         lmv1_size = rc;
808         if (buf->lb_len < lmv1_size) {
809                 struct lu_buf tbuf;
810
811                 if (!resize)
812                         RETURN(-ERANGE);
813
814                 tbuf = *buf;
815                 buf->lb_buf = NULL;
816                 buf->lb_len = 0;
817                 lu_buf_alloc(buf, lmv1_size);
818                 lmv1 = buf->lb_buf;
819                 if (lmv1 == NULL)
820                         RETURN(-ENOMEM);
821
822                 memcpy(buf->lb_buf, tbuf.lb_buf, tbuf.lb_len);
823         }
824
825         if (unlikely(!dt_try_as_dir(env, obj)))
826                 RETURN(-ENOTDIR);
827
828         memset(&lmv1->lmv_stripe_fids[0], 0, stripes * sizeof(struct lu_fid));
829         iops = &obj->do_index_ops->dio_it;
830         it = iops->init(env, obj, LUDA_64BITHASH);
831         if (IS_ERR(it))
832                 RETURN(PTR_ERR(it));
833
834         rc = iops->load(env, it, 0);
835         if (rc == 0)
836                 rc = iops->next(env, it);
837         else if (rc > 0)
838                 rc = 0;
839
840         while (rc == 0) {
841                 char             name[FID_LEN + 2] = "";
842                 struct lu_fid    fid;
843                 __u32            index;
844                 int              len;
845
846                 rc = iops->rec(env, it, (struct dt_rec *)ent, LUDA_64BITHASH);
847                 if (rc != 0)
848                         break;
849
850                 rc = -EIO;
851
852                 fid_le_to_cpu(&fid, &ent->lde_fid);
853                 ent->lde_namelen = le16_to_cpu(ent->lde_namelen);
854                 if (ent->lde_name[0] == '.') {
855                         if (ent->lde_namelen == 1)
856                                 goto next;
857
858                         if (ent->lde_namelen == 2 && ent->lde_name[1] == '.')
859                                 goto next;
860                 }
861
862                 len = snprintf(name, sizeof(name),
863                                DFID":", PFID(&ent->lde_fid));
864                 /* The ent->lde_name is composed of ${FID}:${index} */
865                 if (ent->lde_namelen < len + 1 ||
866                     memcmp(ent->lde_name, name, len) != 0) {
867                         CDEBUG(lod->lod_lmv_failout ? D_ERROR : D_INFO,
868                                "%s: invalid shard name %.*s with the FID "DFID
869                                " for the striped directory "DFID", %s\n",
870                                lod2obd(lod)->obd_name, ent->lde_namelen,
871                                ent->lde_name, PFID(&fid),
872                                PFID(lu_object_fid(&obj->do_lu)),
873                                lod->lod_lmv_failout ? "failout" : "skip");
874
875                         if (lod->lod_lmv_failout)
876                                 break;
877
878                         goto next;
879                 }
880
881                 index = 0;
882                 do {
883                         if (ent->lde_name[len] < '0' ||
884                             ent->lde_name[len] > '9') {
885                                 CDEBUG(lod->lod_lmv_failout ? D_ERROR : D_INFO,
886                                        "%s: invalid shard name %.*s with the "
887                                        "FID "DFID" for the striped directory "
888                                        DFID", %s\n",
889                                        lod2obd(lod)->obd_name, ent->lde_namelen,
890                                        ent->lde_name, PFID(&fid),
891                                        PFID(lu_object_fid(&obj->do_lu)),
892                                        lod->lod_lmv_failout ?
893                                        "failout" : "skip");
894
895                                 if (lod->lod_lmv_failout)
896                                         break;
897
898                                 goto next;
899                         }
900
901                         index = index * 10 + ent->lde_name[len++] - '0';
902                 } while (len < ent->lde_namelen);
903
904                 if (len == ent->lde_namelen) {
905                         /* Out of LMV EA range. */
906                         if (index >= stripes) {
907                                 CERROR("%s: the shard %.*s for the striped "
908                                        "directory "DFID" is out of the known "
909                                        "LMV EA range [0 - %u], failout\n",
910                                        lod2obd(lod)->obd_name, ent->lde_namelen,
911                                        ent->lde_name,
912                                        PFID(lu_object_fid(&obj->do_lu)),
913                                        stripes - 1);
914
915                                 break;
916                         }
917
918                         /* The slot has been occupied. */
919                         if (!fid_is_zero(&lmv1->lmv_stripe_fids[index])) {
920                                 struct lu_fid fid0;
921
922                                 fid_le_to_cpu(&fid0,
923                                         &lmv1->lmv_stripe_fids[index]);
924                                 CERROR("%s: both the shard "DFID" and "DFID
925                                        " for the striped directory "DFID
926                                        " claim the same LMV EA slot at the "
927                                        "index %d, failout\n",
928                                        lod2obd(lod)->obd_name,
929                                        PFID(&fid0), PFID(&fid),
930                                        PFID(lu_object_fid(&obj->do_lu)), index);
931
932                                 break;
933                         }
934
935                         /* stored as LE mode */
936                         lmv1->lmv_stripe_fids[index] = ent->lde_fid;
937
938 next:
939                         rc = iops->next(env, it);
940                 }
941         }
942
943         iops->put(env, it);
944         iops->fini(env, it);
945
946         RETURN(rc > 0 ? lmv_mds_md_size(stripes, magic) : rc);
947 }
948
949 /**
950  * Implementation of dt_object_operations::do_index_try.
951  *
952  * \see dt_object_operations::do_index_try() in the API description for details.
953  */
954 static int lod_index_try(const struct lu_env *env, struct dt_object *dt,
955                          const struct dt_index_features *feat)
956 {
957         struct lod_object       *lo = lod_dt_obj(dt);
958         struct dt_object        *next = dt_object_child(dt);
959         int                     rc;
960         ENTRY;
961
962         LASSERT(next->do_ops);
963         LASSERT(next->do_ops->do_index_try);
964
965         rc = lod_load_striping_locked(env, lo);
966         if (rc != 0)
967                 RETURN(rc);
968
969         rc = next->do_ops->do_index_try(env, next, feat);
970         if (rc != 0)
971                 RETURN(rc);
972
973         if (lo->ldo_stripenr > 0) {
974                 int i;
975
976                 for (i = 0; i < lo->ldo_stripenr; i++) {
977                         if (dt_object_exists(lo->ldo_stripe[i]) == 0)
978                                 continue;
979                         rc = lo->ldo_stripe[i]->do_ops->do_index_try(env,
980                                                 lo->ldo_stripe[i], feat);
981                         if (rc != 0)
982                                 RETURN(rc);
983                 }
984                 dt->do_index_ops = &lod_striped_index_ops;
985         } else {
986                 dt->do_index_ops = &lod_index_ops;
987         }
988
989         RETURN(rc);
990 }
991
992 /**
993  * Implementation of dt_object_operations::do_read_lock.
994  *
995  * \see dt_object_operations::do_read_lock() in the API description for details.
996  */
997 static void lod_object_read_lock(const struct lu_env *env,
998                                  struct dt_object *dt, unsigned role)
999 {
1000         dt_read_lock(env, dt_object_child(dt), role);
1001 }
1002
1003 /**
1004  * Implementation of dt_object_operations::do_write_lock.
1005  *
1006  * \see dt_object_operations::do_write_lock() in the API description for
1007  * details.
1008  */
1009 static void lod_object_write_lock(const struct lu_env *env,
1010                                   struct dt_object *dt, unsigned role)
1011 {
1012         dt_write_lock(env, dt_object_child(dt), role);
1013 }
1014
1015 /**
1016  * Implementation of dt_object_operations::do_read_unlock.
1017  *
1018  * \see dt_object_operations::do_read_unlock() in the API description for
1019  * details.
1020  */
1021 static void lod_object_read_unlock(const struct lu_env *env,
1022                                    struct dt_object *dt)
1023 {
1024         dt_read_unlock(env, dt_object_child(dt));
1025 }
1026
1027 /**
1028  * Implementation of dt_object_operations::do_write_unlock.
1029  *
1030  * \see dt_object_operations::do_write_unlock() in the API description for
1031  * details.
1032  */
1033 static void lod_object_write_unlock(const struct lu_env *env,
1034                                     struct dt_object *dt)
1035 {
1036         dt_write_unlock(env, dt_object_child(dt));
1037 }
1038
1039 /**
1040  * Implementation of dt_object_operations::do_write_locked.
1041  *
1042  * \see dt_object_operations::do_write_locked() in the API description for
1043  * details.
1044  */
1045 static int lod_object_write_locked(const struct lu_env *env,
1046                                    struct dt_object *dt)
1047 {
1048         return dt_write_locked(env, dt_object_child(dt));
1049 }
1050
1051 /**
1052  * Implementation of dt_object_operations::do_attr_get.
1053  *
1054  * \see dt_object_operations::do_attr_get() in the API description for details.
1055  */
1056 static int lod_attr_get(const struct lu_env *env,
1057                         struct dt_object *dt,
1058                         struct lu_attr *attr)
1059 {
1060         /* Note: for striped directory, client will merge attributes
1061          * from all of the sub-stripes see lmv_merge_attr(), and there
1062          * no MDD logic depend on directory nlink/size/time, so we can
1063          * always use master inode nlink and size for now. */
1064         return dt_attr_get(env, dt_object_child(dt), attr);
1065 }
1066
1067 /**
1068  * Mark all of the striped directory sub-stripes dead.
1069  *
1070  * When a striped object is a subject to removal, we have
1071  * to mark all the stripes to prevent further access to
1072  * them (e.g. create a new file in those). So we mark
1073  * all the stripes with LMV_HASH_FLAG_DEAD. The function
1074  * can be used to declare the changes and to apply them.
1075  * If the object isn't striped, then just return success.
1076  *
1077  * \param[in] env       execution environment
1078  * \param[in] dt        the striped object
1079  * \param[in] handle    transaction handle
1080  * \param[in] declare   whether to declare the change or apply
1081  *
1082  * \retval              0 on success
1083  * \retval              negative if failed
1084  **/
1085 static int lod_mark_dead_object(const struct lu_env *env,
1086                                 struct dt_object *dt,
1087                                 struct thandle *th,
1088                                 bool declare)
1089 {
1090         struct lod_object       *lo = lod_dt_obj(dt);
1091         struct lmv_mds_md_v1    *lmv;
1092         __u32                   dead_hash_type;
1093         int                     rc;
1094         int                     i;
1095
1096         ENTRY;
1097
1098         if (!S_ISDIR(dt->do_lu.lo_header->loh_attr))
1099                 RETURN(0);
1100
1101         rc = lod_load_striping_locked(env, lo);
1102         if (rc != 0)
1103                 RETURN(rc);
1104
1105         if (lo->ldo_stripenr == 0)
1106                 RETURN(0);
1107
1108         rc = lod_get_lmv_ea(env, lo);
1109         if (rc <= 0)
1110                 RETURN(rc);
1111
1112         lmv = lod_env_info(env)->lti_ea_store;
1113         lmv->lmv_magic = cpu_to_le32(LMV_MAGIC_STRIPE);
1114         dead_hash_type = le32_to_cpu(lmv->lmv_hash_type) | LMV_HASH_FLAG_DEAD;
1115         lmv->lmv_hash_type = cpu_to_le32(dead_hash_type);
1116         for (i = 0; i < lo->ldo_stripenr; i++) {
1117                 struct lu_buf buf;
1118
1119                 lmv->lmv_master_mdt_index = i;
1120                 buf.lb_buf = lmv;
1121                 buf.lb_len = sizeof(*lmv);
1122                 if (declare) {
1123                         rc = lod_sub_object_declare_xattr_set(env,
1124                                                 lo->ldo_stripe[i], &buf,
1125                                                 XATTR_NAME_LMV,
1126                                                 LU_XATTR_REPLACE, th);
1127                 } else {
1128                         rc = lod_sub_object_xattr_set(env, lo->ldo_stripe[i],
1129                                                       &buf, XATTR_NAME_LMV,
1130                                                       LU_XATTR_REPLACE, th);
1131                 }
1132                 if (rc != 0)
1133                         break;
1134         }
1135
1136         RETURN(rc);
1137 }
1138
1139 /**
1140  * Implementation of dt_object_operations::do_declare_attr_set.
1141  *
1142  * If the object is striped, then apply the changes to all the stripes.
1143  *
1144  * \see dt_object_operations::do_declare_attr_set() in the API description
1145  * for details.
1146  */
1147 static int lod_declare_attr_set(const struct lu_env *env,
1148                                 struct dt_object *dt,
1149                                 const struct lu_attr *attr,
1150                                 struct thandle *th)
1151 {
1152         struct dt_object  *next = dt_object_child(dt);
1153         struct lod_object *lo = lod_dt_obj(dt);
1154         int                rc, i;
1155         ENTRY;
1156
1157         /* Set dead object on all other stripes */
1158         if (attr->la_valid & LA_FLAGS && !(attr->la_valid & ~LA_FLAGS) &&
1159             attr->la_flags & LUSTRE_SLAVE_DEAD_FL) {
1160                 rc = lod_mark_dead_object(env, dt, th, true);
1161                 RETURN(rc);
1162         }
1163
1164         /*
1165          * declare setattr on the local object
1166          */
1167         rc = lod_sub_object_declare_attr_set(env, next, attr, th);
1168         if (rc)
1169                 RETURN(rc);
1170
1171         /* osp_declare_attr_set() ignores all attributes other than
1172          * UID, GID, and size, and osp_attr_set() ignores all but UID
1173          * and GID.  Declaration of size attr setting happens through
1174          * lod_declare_init_size(), and not through this function.
1175          * Therefore we need not load striping unless ownership is
1176          * changing.  This should save memory and (we hope) speed up
1177          * rename(). */
1178         if (!S_ISDIR(dt->do_lu.lo_header->loh_attr)) {
1179                 if (!(attr->la_valid & (LA_UID | LA_GID)))
1180                         RETURN(rc);
1181
1182                 if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_OWNER))
1183                         RETURN(0);
1184         } else {
1185                 if (!(attr->la_valid & (LA_UID | LA_GID | LA_MODE |
1186                                         LA_ATIME | LA_MTIME | LA_CTIME |
1187                                         LA_FLAGS)))
1188                         RETURN(rc);
1189         }
1190         /*
1191          * load striping information, notice we don't do this when object
1192          * is being initialized as we don't need this information till
1193          * few specific cases like destroy, chown
1194          */
1195         rc = lod_load_striping(env, lo);
1196         if (rc)
1197                 RETURN(rc);
1198
1199         if (lo->ldo_stripenr == 0)
1200                 RETURN(0);
1201
1202         /*
1203          * if object is striped declare changes on the stripes
1204          */
1205         LASSERT(lo->ldo_stripe);
1206         for (i = 0; i < lo->ldo_stripenr; i++) {
1207                 if (lo->ldo_stripe[i] == NULL)
1208                         continue;
1209                 rc = lod_sub_object_declare_attr_set(env,
1210                                         lo->ldo_stripe[i], attr,
1211                                         th);
1212                 if (rc != 0)
1213                         RETURN(rc);
1214         }
1215
1216         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_LOST_STRIPE) &&
1217             dt_object_exists(next) != 0 &&
1218             dt_object_remote(next) == 0)
1219                 lod_sub_object_declare_xattr_del(env, next,
1220                                                 XATTR_NAME_LOV, th);
1221
1222         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_CHANGE_STRIPE) &&
1223             dt_object_exists(next) &&
1224             dt_object_remote(next) == 0 && S_ISREG(attr->la_mode)) {
1225                 struct lod_thread_info *info = lod_env_info(env);
1226                 struct lu_buf *buf = &info->lti_buf;
1227
1228                 buf->lb_buf = info->lti_ea_store;
1229                 buf->lb_len = info->lti_ea_store_size;
1230                 lod_sub_object_declare_xattr_set(env, next, buf,
1231                                                  XATTR_NAME_LOV,
1232                                                  LU_XATTR_REPLACE, th);
1233         }
1234
1235         RETURN(rc);
1236 }
1237
1238 /**
1239  * Implementation of dt_object_operations::do_attr_set.
1240  *
1241  * If the object is striped, then apply the changes to all or subset of
1242  * the stripes depending on the object type and specific attributes.
1243  *
1244  * \see dt_object_operations::do_attr_set() in the API description for details.
1245  */
1246 static int lod_attr_set(const struct lu_env *env,
1247                         struct dt_object *dt,
1248                         const struct lu_attr *attr,
1249                         struct thandle *th)
1250 {
1251         struct dt_object        *next = dt_object_child(dt);
1252         struct lod_object       *lo = lod_dt_obj(dt);
1253         int                     rc, i;
1254         ENTRY;
1255
1256         /* Set dead object on all other stripes */
1257         if (attr->la_valid & LA_FLAGS && !(attr->la_valid & ~LA_FLAGS) &&
1258             attr->la_flags & LUSTRE_SLAVE_DEAD_FL) {
1259                 rc = lod_mark_dead_object(env, dt, th, false);
1260                 RETURN(rc);
1261         }
1262
1263         /*
1264          * apply changes to the local object
1265          */
1266         rc = lod_sub_object_attr_set(env, next, attr, th);
1267         if (rc)
1268                 RETURN(rc);
1269
1270         if (!S_ISDIR(dt->do_lu.lo_header->loh_attr)) {
1271                 if (!(attr->la_valid & (LA_UID | LA_GID)))
1272                         RETURN(rc);
1273
1274                 if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_OWNER))
1275                         RETURN(0);
1276         } else {
1277                 if (!(attr->la_valid & (LA_UID | LA_GID | LA_MODE |
1278                                         LA_ATIME | LA_MTIME | LA_CTIME |
1279                                         LA_FLAGS)))
1280                         RETURN(rc);
1281         }
1282
1283         if (lo->ldo_stripenr == 0)
1284                 RETURN(0);
1285
1286         /*
1287          * if object is striped, apply changes to all the stripes
1288          */
1289         LASSERT(lo->ldo_stripe);
1290         for (i = 0; i < lo->ldo_stripenr; i++) {
1291                 if (unlikely(lo->ldo_stripe[i] == NULL))
1292                         continue;
1293
1294                 if (S_ISDIR(dt->do_lu.lo_header->loh_attr) &&
1295                     (dt_object_exists(lo->ldo_stripe[i]) == 0))
1296                         continue;
1297
1298                 rc = lod_sub_object_attr_set(env, lo->ldo_stripe[i], attr, th);
1299                 if (rc != 0)
1300                         break;
1301         }
1302
1303         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_LOST_STRIPE) &&
1304             dt_object_exists(next) != 0 &&
1305             dt_object_remote(next) == 0)
1306                 rc = lod_sub_object_xattr_del(env, next, XATTR_NAME_LOV, th);
1307
1308         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_CHANGE_STRIPE) &&
1309             dt_object_exists(next) &&
1310             dt_object_remote(next) == 0 && S_ISREG(attr->la_mode)) {
1311                 struct lod_thread_info *info = lod_env_info(env);
1312                 struct lu_buf *buf = &info->lti_buf;
1313                 struct ost_id *oi = &info->lti_ostid;
1314                 struct lu_fid *fid = &info->lti_fid;
1315                 struct lov_mds_md_v1 *lmm;
1316                 struct lov_ost_data_v1 *objs;
1317                 __u32 magic;
1318                 int rc1;
1319
1320                 rc1 = lod_get_lov_ea(env, lo);
1321                 if (rc1  <= 0)
1322                         RETURN(rc);
1323
1324                 buf->lb_buf = info->lti_ea_store;
1325                 buf->lb_len = info->lti_ea_store_size;
1326                 lmm = info->lti_ea_store;
1327                 magic = le32_to_cpu(lmm->lmm_magic);
1328                 if (magic == LOV_MAGIC_V1)
1329                         objs = &(lmm->lmm_objects[0]);
1330                 else
1331                         objs = &((struct lov_mds_md_v3 *)lmm)->lmm_objects[0];
1332                 ostid_le_to_cpu(&objs->l_ost_oi, oi);
1333                 ostid_to_fid(fid, oi, le32_to_cpu(objs->l_ost_idx));
1334                 fid->f_oid--;
1335                 fid_to_ostid(fid, oi);
1336                 ostid_cpu_to_le(oi, &objs->l_ost_oi);
1337
1338                 rc = lod_sub_object_xattr_set(env, next, buf, XATTR_NAME_LOV,
1339                                               LU_XATTR_REPLACE, th);
1340         }
1341
1342         RETURN(rc);
1343 }
1344
1345 /**
1346  * Implementation of dt_object_operations::do_xattr_get.
1347  *
1348  * If LOV EA is requested from the root object and it's not
1349  * found, then return default striping for the filesystem.
1350  *
1351  * \see dt_object_operations::do_xattr_get() in the API description for details.
1352  */
1353 static int lod_xattr_get(const struct lu_env *env, struct dt_object *dt,
1354                          struct lu_buf *buf, const char *name)
1355 {
1356         struct lod_thread_info  *info = lod_env_info(env);
1357         struct lod_device       *dev = lu2lod_dev(dt->do_lu.lo_dev);
1358         int                      rc, is_root;
1359         ENTRY;
1360
1361         rc = dt_xattr_get(env, dt_object_child(dt), buf, name);
1362         if (strcmp(name, XATTR_NAME_LMV) == 0) {
1363                 struct lmv_mds_md_v1    *lmv1;
1364                 int                      rc1 = 0;
1365
1366                 if (rc > (typeof(rc))sizeof(*lmv1))
1367                         RETURN(rc);
1368
1369                 if (rc < (typeof(rc))sizeof(*lmv1))
1370                         RETURN(rc = rc > 0 ? -EINVAL : rc);
1371
1372                 if (buf->lb_buf == NULL || buf->lb_len == 0) {
1373                         CLASSERT(sizeof(*lmv1) <= sizeof(info->lti_key));
1374
1375                         info->lti_buf.lb_buf = info->lti_key;
1376                         info->lti_buf.lb_len = sizeof(*lmv1);
1377                         rc = dt_xattr_get(env, dt_object_child(dt),
1378                                           &info->lti_buf, name);
1379                         if (unlikely(rc != sizeof(*lmv1)))
1380                                 RETURN(rc = rc > 0 ? -EINVAL : rc);
1381
1382                         lmv1 = info->lti_buf.lb_buf;
1383                         /* The on-disk LMV EA only contains header, but the
1384                          * returned LMV EA size should contain the space for
1385                          * the FIDs of all shards of the striped directory. */
1386                         if (le32_to_cpu(lmv1->lmv_magic) == LMV_MAGIC_V1)
1387                                 rc = lmv_mds_md_size(
1388                                         le32_to_cpu(lmv1->lmv_stripe_count),
1389                                         LMV_MAGIC_V1);
1390                 } else {
1391                         rc1 = lod_load_lmv_shards(env, lod_dt_obj(dt),
1392                                                   buf, false);
1393                 }
1394
1395                 RETURN(rc = rc1 != 0 ? rc1 : rc);
1396         }
1397
1398         if (rc != -ENODATA || !S_ISDIR(dt->do_lu.lo_header->loh_attr & S_IFMT))
1399                 RETURN(rc);
1400
1401         /*
1402          * lod returns default striping on the real root of the device
1403          * this is like the root stores default striping for the whole
1404          * filesystem. historically we've been using a different approach
1405          * and store it in the config.
1406          */
1407         dt_root_get(env, dev->lod_child, &info->lti_fid);
1408         is_root = lu_fid_eq(&info->lti_fid, lu_object_fid(&dt->do_lu));
1409
1410         if (is_root && strcmp(XATTR_NAME_LOV, name) == 0) {
1411                 struct lov_user_md *lum = buf->lb_buf;
1412                 struct lov_desc    *desc = &dev->lod_desc;
1413
1414                 if (buf->lb_buf == NULL) {
1415                         rc = sizeof(*lum);
1416                 } else if (buf->lb_len >= sizeof(*lum)) {
1417                         lum->lmm_magic = cpu_to_le32(LOV_USER_MAGIC_V1);
1418                         lmm_oi_set_seq(&lum->lmm_oi, FID_SEQ_LOV_DEFAULT);
1419                         lmm_oi_set_id(&lum->lmm_oi, 0);
1420                         lmm_oi_cpu_to_le(&lum->lmm_oi, &lum->lmm_oi);
1421                         lum->lmm_pattern = cpu_to_le32(desc->ld_pattern);
1422                         lum->lmm_stripe_size = cpu_to_le32(
1423                                                 desc->ld_default_stripe_size);
1424                         lum->lmm_stripe_count = cpu_to_le16(
1425                                                 desc->ld_default_stripe_count);
1426                         lum->lmm_stripe_offset = cpu_to_le16(
1427                                                 desc->ld_default_stripe_offset);
1428                         rc = sizeof(*lum);
1429                 } else {
1430                         rc = -ERANGE;
1431                 }
1432         }
1433
1434         RETURN(rc);
1435 }
1436
1437 /**
1438  * Verify LVM EA.
1439  *
1440  * Checks that the magic of the stripe is sane.
1441  *
1442  * \param[in] lod       lod device
1443  * \param[in] lum       a buffer storing LMV EA to verify
1444  *
1445  * \retval              0 if the EA is sane
1446  * \retval              negative otherwise
1447  */
1448 static int lod_verify_md_striping(struct lod_device *lod,
1449                                   const struct lmv_user_md_v1 *lum)
1450 {
1451         if (unlikely(le32_to_cpu(lum->lum_magic) != LMV_USER_MAGIC)) {
1452                 CERROR("%s: invalid lmv_user_md: magic = %x, "
1453                        "stripe_offset = %d, stripe_count = %u: rc = %d\n",
1454                        lod2obd(lod)->obd_name, le32_to_cpu(lum->lum_magic),
1455                        (int)le32_to_cpu(lum->lum_stripe_offset),
1456                        le32_to_cpu(lum->lum_stripe_count), -EINVAL);
1457                 return -EINVAL;
1458         }
1459
1460         return 0;
1461 }
1462
1463 /**
1464  * Initialize LMV EA for a slave.
1465  *
1466  * Initialize slave's LMV EA from the master's LMV EA.
1467  *
1468  * \param[in] master_lmv        a buffer containing master's EA
1469  * \param[out] slave_lmv        a buffer where slave's EA will be stored
1470  *
1471  */
1472 static void lod_prep_slave_lmv_md(struct lmv_mds_md_v1 *slave_lmv,
1473                                   const struct lmv_mds_md_v1 *master_lmv)
1474 {
1475         *slave_lmv = *master_lmv;
1476         slave_lmv->lmv_magic = cpu_to_le32(LMV_MAGIC_STRIPE);
1477 }
1478
1479 /**
1480  * Generate LMV EA.
1481  *
1482  * Generate LMV EA from the object passed as \a dt. The object must have
1483  * the stripes created and initialized.
1484  *
1485  * \param[in] env       execution environment
1486  * \param[in] dt        object
1487  * \param[out] lmv_buf  buffer storing generated LMV EA
1488  *
1489  * \retval              0 on success
1490  * \retval              negative if failed
1491  */
1492 static int lod_prep_lmv_md(const struct lu_env *env, struct dt_object *dt,
1493                            struct lu_buf *lmv_buf)
1494 {
1495         struct lod_thread_info  *info = lod_env_info(env);
1496         struct lod_device       *lod = lu2lod_dev(dt->do_lu.lo_dev);
1497         struct lod_object       *lo = lod_dt_obj(dt);
1498         struct lmv_mds_md_v1    *lmm1;
1499         int                     stripe_count;
1500         int                     type = LU_SEQ_RANGE_ANY;
1501         int                     rc;
1502         __u32                   mdtidx;
1503         ENTRY;
1504
1505         LASSERT(lo->ldo_dir_striped != 0);
1506         LASSERT(lo->ldo_stripenr > 0);
1507         stripe_count = lo->ldo_stripenr;
1508         /* Only store the LMV EA heahder on the disk. */
1509         if (info->lti_ea_store_size < sizeof(*lmm1)) {
1510                 rc = lod_ea_store_resize(info, sizeof(*lmm1));
1511                 if (rc != 0)
1512                         RETURN(rc);
1513         } else {
1514                 memset(info->lti_ea_store, 0, sizeof(*lmm1));
1515         }
1516
1517         lmm1 = (struct lmv_mds_md_v1 *)info->lti_ea_store;
1518         lmm1->lmv_magic = cpu_to_le32(LMV_MAGIC);
1519         lmm1->lmv_stripe_count = cpu_to_le32(stripe_count);
1520         lmm1->lmv_hash_type = cpu_to_le32(lo->ldo_dir_hash_type);
1521         rc = lod_fld_lookup(env, lod, lu_object_fid(&dt->do_lu),
1522                             &mdtidx, &type);
1523         if (rc != 0)
1524                 RETURN(rc);
1525
1526         lmm1->lmv_master_mdt_index = cpu_to_le32(mdtidx);
1527         lmv_buf->lb_buf = info->lti_ea_store;
1528         lmv_buf->lb_len = sizeof(*lmm1);
1529
1530         RETURN(rc);
1531 }
1532
1533 /**
1534  * Create in-core represenation for a striped directory.
1535  *
1536  * Parse the buffer containing LMV EA and instantiate LU objects
1537  * representing the stripe objects. The pointers to the objects are
1538  * stored in ldo_stripe field of \a lo. This function is used when
1539  * we need to access an already created object (i.e. load from a disk).
1540  *
1541  * \param[in] env       execution environment
1542  * \param[in] lo        lod object
1543  * \param[in] buf       buffer containing LMV EA
1544  *
1545  * \retval              0 on success
1546  * \retval              negative if failed
1547  */
1548 int lod_parse_dir_striping(const struct lu_env *env, struct lod_object *lo,
1549                            const struct lu_buf *buf)
1550 {
1551         struct lod_thread_info  *info = lod_env_info(env);
1552         struct lod_device       *lod = lu2lod_dev(lo->ldo_obj.do_lu.lo_dev);
1553         struct lod_tgt_descs    *ltd = &lod->lod_mdt_descs;
1554         struct dt_object        **stripe;
1555         union lmv_mds_md        *lmm = buf->lb_buf;
1556         struct lmv_mds_md_v1    *lmv1 = &lmm->lmv_md_v1;
1557         struct lu_fid           *fid = &info->lti_fid;
1558         unsigned int            i;
1559         int                     rc = 0;
1560         ENTRY;
1561
1562         if (le32_to_cpu(lmv1->lmv_hash_type) & LMV_HASH_FLAG_MIGRATION)
1563                 RETURN(0);
1564
1565         if (le32_to_cpu(lmv1->lmv_magic) == LMV_MAGIC_STRIPE) {
1566                 lo->ldo_dir_slave_stripe = 1;
1567                 RETURN(0);
1568         }
1569
1570         if (le32_to_cpu(lmv1->lmv_magic) != LMV_MAGIC_V1)
1571                 RETURN(-EINVAL);
1572
1573         if (le32_to_cpu(lmv1->lmv_stripe_count) < 1)
1574                 RETURN(0);
1575
1576         LASSERT(lo->ldo_stripe == NULL);
1577         OBD_ALLOC(stripe, sizeof(stripe[0]) *
1578                   (le32_to_cpu(lmv1->lmv_stripe_count)));
1579         if (stripe == NULL)
1580                 RETURN(-ENOMEM);
1581
1582         for (i = 0; i < le32_to_cpu(lmv1->lmv_stripe_count); i++) {
1583                 struct dt_device        *tgt_dt;
1584                 struct dt_object        *dto;
1585                 int                     type = LU_SEQ_RANGE_ANY;
1586                 __u32                   idx;
1587
1588                 fid_le_to_cpu(fid, &lmv1->lmv_stripe_fids[i]);
1589                 if (!fid_is_sane(fid))
1590                         GOTO(out, rc = -ESTALE);
1591
1592                 rc = lod_fld_lookup(env, lod, fid, &idx, &type);
1593                 if (rc != 0)
1594                         GOTO(out, rc);
1595
1596                 if (idx == lod2lu_dev(lod)->ld_site->ld_seq_site->ss_node_id) {
1597                         tgt_dt = lod->lod_child;
1598                 } else {
1599                         struct lod_tgt_desc     *tgt;
1600
1601                         tgt = LTD_TGT(ltd, idx);
1602                         if (tgt == NULL)
1603                                 GOTO(out, rc = -ESTALE);
1604                         tgt_dt = tgt->ltd_tgt;
1605                 }
1606
1607                 dto = dt_locate_at(env, tgt_dt, fid,
1608                                   lo->ldo_obj.do_lu.lo_dev->ld_site->ls_top_dev,
1609                                   NULL);
1610                 if (IS_ERR(dto))
1611                         GOTO(out, rc = PTR_ERR(dto));
1612
1613                 stripe[i] = dto;
1614         }
1615 out:
1616         lo->ldo_stripe = stripe;
1617         lo->ldo_stripenr = le32_to_cpu(lmv1->lmv_stripe_count);
1618         lo->ldo_stripes_allocated = le32_to_cpu(lmv1->lmv_stripe_count);
1619         if (rc != 0)
1620                 lod_object_free_striping(env, lo);
1621
1622         RETURN(rc);
1623 }
1624
1625 /**
1626  * Declare create a striped directory.
1627  *
1628  * Declare creating a striped directory with a given stripe pattern on the
1629  * specified MDTs. A striped directory is represented as a regular directory
1630  * - an index listing all the stripes. The stripes point back to the master
1631  * object with ".." and LinkEA. The master object gets LMV EA which
1632  * identifies it as a striped directory. The function allocates FIDs
1633  * for all stripes.
1634  *
1635  * \param[in] env       execution environment
1636  * \param[in] dt        object
1637  * \param[in] attr      attributes to initialize the objects with
1638  * \param[in] dof       type of objects to be created
1639  * \param[in] th        transaction handle
1640  *
1641  * \retval              0 on success
1642  * \retval              negative if failed
1643  */
1644 static int lod_dir_declare_create_stripes(const struct lu_env *env,
1645                                           struct dt_object *dt,
1646                                           struct lu_attr *attr,
1647                                           struct dt_object_format *dof,
1648                                           struct thandle *th)
1649 {
1650         struct lod_thread_info  *info = lod_env_info(env);
1651         struct lu_buf           lmv_buf;
1652         struct lu_buf           slave_lmv_buf;
1653         struct lmv_mds_md_v1    *lmm;
1654         struct lmv_mds_md_v1    *slave_lmm = NULL;
1655         struct dt_insert_rec    *rec = &info->lti_dt_rec;
1656         struct lod_object       *lo = lod_dt_obj(dt);
1657         int                     rc;
1658         __u32                   i;
1659         ENTRY;
1660
1661         rc = lod_prep_lmv_md(env, dt, &lmv_buf);
1662         if (rc != 0)
1663                 GOTO(out, rc);
1664         lmm = lmv_buf.lb_buf;
1665
1666         OBD_ALLOC_PTR(slave_lmm);
1667         if (slave_lmm == NULL)
1668                 GOTO(out, rc = -ENOMEM);
1669
1670         lod_prep_slave_lmv_md(slave_lmm, lmm);
1671         slave_lmv_buf.lb_buf = slave_lmm;
1672         slave_lmv_buf.lb_len = sizeof(*slave_lmm);
1673
1674         if (!dt_try_as_dir(env, dt_object_child(dt)))
1675                 GOTO(out, rc = -EINVAL);
1676
1677         rec->rec_type = S_IFDIR;
1678         for (i = 0; i < lo->ldo_stripenr; i++) {
1679                 struct dt_object        *dto = lo->ldo_stripe[i];
1680                 char                    *stripe_name = info->lti_key;
1681                 struct lu_name          *sname;
1682                 struct linkea_data       ldata          = { NULL };
1683                 struct lu_buf           linkea_buf;
1684
1685                 rc = lod_sub_object_declare_create(env, dto, attr, NULL,
1686                                                    dof, th);
1687                 if (rc != 0)
1688                         GOTO(out, rc);
1689
1690                 if (!dt_try_as_dir(env, dto))
1691                         GOTO(out, rc = -EINVAL);
1692
1693                 rc = lod_sub_object_declare_ref_add(env, dto, th);
1694                 if (rc != 0)
1695                         GOTO(out, rc);
1696
1697                 rec->rec_fid = lu_object_fid(&dto->do_lu);
1698                 rc = lod_sub_object_declare_insert(env, dto,
1699                                         (const struct dt_rec *)rec,
1700                                         (const struct dt_key *)dot, th);
1701                 if (rc != 0)
1702                         GOTO(out, rc);
1703
1704                 /* master stripe FID will be put to .. */
1705                 rec->rec_fid = lu_object_fid(&dt->do_lu);
1706                 rc = lod_sub_object_declare_insert(env, dto,
1707                                         (const struct dt_rec *)rec,
1708                                         (const struct dt_key *)dotdot,
1709                                         th);
1710                 if (rc != 0)
1711                         GOTO(out, rc);
1712
1713                 if (!OBD_FAIL_CHECK(OBD_FAIL_LFSCK_LOST_SLAVE_LMV) ||
1714                     cfs_fail_val != i) {
1715                         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_SLAVE_LMV) &&
1716                             cfs_fail_val == i)
1717                                 slave_lmm->lmv_master_mdt_index =
1718                                                         cpu_to_le32(i + 1);
1719                         else
1720                                 slave_lmm->lmv_master_mdt_index =
1721                                                         cpu_to_le32(i);
1722                         rc = lod_sub_object_declare_xattr_set(env, dto,
1723                                         &slave_lmv_buf, XATTR_NAME_LMV, 0, th);
1724                         if (rc != 0)
1725                                 GOTO(out, rc);
1726                 }
1727
1728                 if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_SLAVE_NAME) &&
1729                     cfs_fail_val == i)
1730                         snprintf(stripe_name, sizeof(info->lti_key), DFID":%u",
1731                                 PFID(lu_object_fid(&dto->do_lu)), i + 1);
1732                 else
1733                         snprintf(stripe_name, sizeof(info->lti_key), DFID":%u",
1734                                 PFID(lu_object_fid(&dto->do_lu)), i);
1735
1736                 sname = lod_name_get(env, stripe_name, strlen(stripe_name));
1737                 rc = linkea_data_new(&ldata, &info->lti_linkea_buf);
1738                 if (rc != 0)
1739                         GOTO(out, rc);
1740
1741                 rc = linkea_add_buf(&ldata, sname, lu_object_fid(&dt->do_lu));
1742                 if (rc != 0)
1743                         GOTO(out, rc);
1744
1745                 linkea_buf.lb_buf = ldata.ld_buf->lb_buf;
1746                 linkea_buf.lb_len = ldata.ld_leh->leh_len;
1747                 rc = lod_sub_object_declare_xattr_set(env, dto, &linkea_buf,
1748                                           XATTR_NAME_LINK, 0, th);
1749                 if (rc != 0)
1750                         GOTO(out, rc);
1751
1752                 rec->rec_fid = lu_object_fid(&dto->do_lu);
1753                 rc = lod_sub_object_declare_insert(env, dt_object_child(dt),
1754                                        (const struct dt_rec *)rec,
1755                                        (const struct dt_key *)stripe_name,
1756                                        th);
1757                 if (rc != 0)
1758                         GOTO(out, rc);
1759
1760                 rc = lod_sub_object_declare_ref_add(env, dt_object_child(dt),
1761                                                     th);
1762                 if (rc != 0)
1763                         GOTO(out, rc);
1764         }
1765
1766         rc = lod_sub_object_declare_xattr_set(env, dt_object_child(dt),
1767                                 &lmv_buf, XATTR_NAME_LMV, 0, th);
1768         if (rc != 0)
1769                 GOTO(out, rc);
1770 out:
1771         if (slave_lmm != NULL)
1772                 OBD_FREE_PTR(slave_lmm);
1773
1774         RETURN(rc);
1775 }
1776
1777 static int lod_prep_md_striped_create(const struct lu_env *env,
1778                                       struct dt_object *dt,
1779                                       struct lu_attr *attr,
1780                                       const struct lmv_user_md_v1 *lum,
1781                                       struct dt_object_format *dof,
1782                                       struct thandle *th)
1783 {
1784         struct lod_device       *lod = lu2lod_dev(dt->do_lu.lo_dev);
1785         struct lod_tgt_descs    *ltd = &lod->lod_mdt_descs;
1786         struct lod_object       *lo = lod_dt_obj(dt);
1787         struct dt_object        **stripe;
1788         __u32                   stripe_count;
1789         int                     *idx_array;
1790         __u32                   master_index;
1791         int                     rc = 0;
1792         __u32                   i;
1793         __u32                   j;
1794         ENTRY;
1795
1796         /* The lum has been verifed in lod_verify_md_striping */
1797         LASSERT(le32_to_cpu(lum->lum_magic) == LMV_USER_MAGIC);
1798         LASSERT(le32_to_cpu(lum->lum_stripe_count) > 0);
1799
1800         stripe_count = le32_to_cpu(lum->lum_stripe_count);
1801
1802         OBD_ALLOC(stripe, sizeof(stripe[0]) * stripe_count);
1803         if (stripe == NULL)
1804                 RETURN(-ENOMEM);
1805
1806         OBD_ALLOC(idx_array, sizeof(idx_array[0]) * stripe_count);
1807         if (idx_array == NULL)
1808                 GOTO(out_free, rc = -ENOMEM);
1809
1810         /* Start index will be the master MDT */
1811         master_index = lu_site2seq(lod2lu_dev(lod)->ld_site)->ss_node_id;
1812         idx_array[0] = master_index;
1813         for (i = 0; i < stripe_count; i++) {
1814                 struct lod_tgt_desc     *tgt = NULL;
1815                 struct dt_object        *dto;
1816                 struct lu_fid           fid = { 0 };
1817                 int                     idx;
1818                 struct lu_object_conf   conf = { 0 };
1819                 struct dt_device        *tgt_dt = NULL;
1820
1821                 /* Try to find next avaible target */
1822                 idx = idx_array[i];
1823                 for (j = 0; j < lod->lod_remote_mdt_count;
1824                      j++, idx = (idx + 1) % (lod->lod_remote_mdt_count + 1)) {
1825                         bool already_allocated = false;
1826                         __u32 k;
1827
1828                         CDEBUG(D_INFO, "try idx %d, mdt cnt %u, allocated %u\n",
1829                                idx, lod->lod_remote_mdt_count + 1, i);
1830                         if (idx == master_index) {
1831                                 /* Allocate the FID locally */
1832                                 rc = obd_fid_alloc(env, lod->lod_child_exp,
1833                                                    &fid, NULL);
1834                                 if (rc < 0)
1835                                         GOTO(out_put, rc);
1836                                 tgt_dt = lod->lod_child;
1837                                 break;
1838                         }
1839
1840                         /* Find next available target */
1841                         if (!cfs_bitmap_check(ltd->ltd_tgt_bitmap, idx))
1842                                 continue;
1843
1844                         if (likely(!OBD_FAIL_CHECK(OBD_FAIL_LARGE_STRIPE))) {
1845                                 /* check whether the idx already exists
1846                                  * in current allocated array */
1847                                 for (k = 0; k < i; k++) {
1848                                         if (idx_array[k] == idx) {
1849                                                 already_allocated = true;
1850                                                 break;
1851                                         }
1852                                 }
1853
1854                                 if (already_allocated)
1855                                         continue;
1856                         }
1857
1858                         /* check the status of the OSP */
1859                         tgt = LTD_TGT(ltd, idx);
1860                         if (tgt == NULL)
1861                                 continue;
1862
1863                         tgt_dt = tgt->ltd_tgt;
1864                         rc = dt_statfs(env, tgt_dt, NULL);
1865                         if (rc) {
1866                                 /* this OSP doesn't feel well */
1867                                 rc = 0;
1868                                 continue;
1869                         }
1870
1871                         rc = obd_fid_alloc(env, tgt->ltd_exp, &fid, NULL);
1872                         if (rc < 0) {
1873                                 rc = 0;
1874                                 continue;
1875                         }
1876
1877                         break;
1878                 }
1879
1880                 /* Can not allocate more stripes */
1881                 if (j == lod->lod_remote_mdt_count) {
1882                         CDEBUG(D_INFO, "%s: require stripes %u only get %d\n",
1883                                lod2obd(lod)->obd_name, stripe_count, i - 1);
1884                         break;
1885                 }
1886
1887                 CDEBUG(D_INFO, "Get idx %d, for stripe %d "DFID"\n",
1888                        idx, i, PFID(&fid));
1889                 idx_array[i] = idx;
1890                 /* Set the start index for next stripe allocation */
1891                 if (i < stripe_count - 1)
1892                         idx_array[i + 1] = (idx + 1) %
1893                                            (lod->lod_remote_mdt_count + 1);
1894                 /* tgt_dt and fid must be ready after search avaible OSP
1895                  * in the above loop */
1896                 LASSERT(tgt_dt != NULL);
1897                 LASSERT(fid_is_sane(&fid));
1898                 conf.loc_flags = LOC_F_NEW;
1899                 dto = dt_locate_at(env, tgt_dt, &fid,
1900                                    dt->do_lu.lo_dev->ld_site->ls_top_dev,
1901                                    &conf);
1902                 if (IS_ERR(dto))
1903                         GOTO(out_put, rc = PTR_ERR(dto));
1904                 stripe[i] = dto;
1905         }
1906
1907         lo->ldo_dir_striped = 1;
1908         lo->ldo_stripe = stripe;
1909         lo->ldo_stripenr = i;
1910         lo->ldo_stripes_allocated = stripe_count;
1911
1912         if (lo->ldo_stripenr == 0)
1913                 GOTO(out_put, rc = -ENOSPC);
1914
1915         rc = lod_dir_declare_create_stripes(env, dt, attr, dof, th);
1916         if (rc != 0)
1917                 GOTO(out_put, rc);
1918
1919 out_put:
1920         if (rc < 0) {
1921                 for (i = 0; i < stripe_count; i++)
1922                         if (stripe[i] != NULL)
1923                                 lu_object_put(env, &stripe[i]->do_lu);
1924                 OBD_FREE(stripe, sizeof(stripe[0]) * stripe_count);
1925                 lo->ldo_stripenr = 0;
1926                 lo->ldo_stripes_allocated = 0;
1927                 lo->ldo_stripe = NULL;
1928         }
1929
1930 out_free:
1931         if (idx_array != NULL)
1932                 OBD_FREE(idx_array, sizeof(idx_array[0]) * stripe_count);
1933
1934         RETURN(rc);
1935 }
1936
1937 /**
1938  * Declare create striped md object.
1939  *
1940  * The function declares intention to create a striped directory. This is a
1941  * wrapper for lod_prep_md_striped_create(). The only additional functionality
1942  * is to verify pattern \a lum_buf is good. Check that function for the details.
1943  *
1944  * \param[in] env       execution environment
1945  * \param[in] dt        object
1946  * \param[in] attr      attributes to initialize the objects with
1947  * \param[in] lum_buf   a pattern specifying the number of stripes and
1948  *                      MDT to start from
1949  * \param[in] dof       type of objects to be created
1950  * \param[in] th        transaction handle
1951  *
1952  * \retval              0 on success
1953  * \retval              negative if failed
1954  *
1955  */
1956 static int lod_declare_xattr_set_lmv(const struct lu_env *env,
1957                                      struct dt_object *dt,
1958                                      struct lu_attr *attr,
1959                                      const struct lu_buf *lum_buf,
1960                                      struct dt_object_format *dof,
1961                                      struct thandle *th)
1962 {
1963         struct lod_object       *lo = lod_dt_obj(dt);
1964         struct lod_device       *lod = lu2lod_dev(dt->do_lu.lo_dev);
1965         struct lmv_user_md_v1   *lum;
1966         int                     rc;
1967         ENTRY;
1968
1969         lum = lum_buf->lb_buf;
1970         LASSERT(lum != NULL);
1971
1972         CDEBUG(D_INFO, "lum magic = %x count = %u offset = %d\n",
1973                le32_to_cpu(lum->lum_magic), le32_to_cpu(lum->lum_stripe_count),
1974                (int)le32_to_cpu(lum->lum_stripe_offset));
1975
1976         if (le32_to_cpu(lum->lum_stripe_count) == 0)
1977                 GOTO(out, rc = 0);
1978
1979         rc = lod_verify_md_striping(lod, lum);
1980         if (rc != 0)
1981                 GOTO(out, rc);
1982
1983         /* prepare dir striped objects */
1984         rc = lod_prep_md_striped_create(env, dt, attr, lum, dof, th);
1985         if (rc != 0) {
1986                 /* failed to create striping, let's reset
1987                  * config so that others don't get confused */
1988                 lod_object_free_striping(env, lo);
1989                 GOTO(out, rc);
1990         }
1991 out:
1992         RETURN(rc);
1993 }
1994
1995 /**
1996  * Implementation of dt_object_operations::do_declare_xattr_set.
1997  *
1998  * Used with regular (non-striped) objects. Basically it
1999  * initializes the striping information and applies the
2000  * change to all the stripes.
2001  *
2002  * \see dt_object_operations::do_declare_xattr_set() in the API description
2003  * for details.
2004  */
2005 static int lod_dir_declare_xattr_set(const struct lu_env *env,
2006                                      struct dt_object *dt,
2007                                      const struct lu_buf *buf,
2008                                      const char *name, int fl,
2009                                      struct thandle *th)
2010 {
2011         struct dt_object        *next = dt_object_child(dt);
2012         struct lod_device       *d = lu2lod_dev(dt->do_lu.lo_dev);
2013         struct lod_object       *lo = lod_dt_obj(dt);
2014         int                     i;
2015         int                     rc;
2016         ENTRY;
2017
2018         if (strcmp(name, XATTR_NAME_DEFAULT_LMV) == 0) {
2019                 struct lmv_user_md_v1 *lum;
2020
2021                 LASSERT(buf != NULL && buf->lb_buf != NULL);
2022                 lum = buf->lb_buf;
2023                 rc = lod_verify_md_striping(d, lum);
2024                 if (rc != 0)
2025                         RETURN(rc);
2026         }
2027
2028         rc = lod_sub_object_declare_xattr_set(env, next, buf, name, fl, th);
2029         if (rc != 0)
2030                 RETURN(rc);
2031
2032         /* Note: Do not set LinkEA on sub-stripes, otherwise
2033          * it will confuse the fid2path process(see mdt_path_current()).
2034          * The linkEA between master and sub-stripes is set in
2035          * lod_xattr_set_lmv(). */
2036         if (strcmp(name, XATTR_NAME_LINK) == 0)
2037                 RETURN(0);
2038
2039         /* set xattr to each stripes, if needed */
2040         rc = lod_load_striping(env, lo);
2041         if (rc != 0)
2042                 RETURN(rc);
2043
2044         if (lo->ldo_stripenr == 0)
2045                 RETURN(0);
2046
2047         for (i = 0; i < lo->ldo_stripenr; i++) {
2048                 LASSERT(lo->ldo_stripe[i]);
2049
2050                 rc = lod_sub_object_declare_xattr_set(env, lo->ldo_stripe[i],
2051                                                 buf, name, fl, th);
2052                 if (rc != 0)
2053                         break;
2054         }
2055
2056         RETURN(rc);
2057 }
2058
2059 /**
2060  * Reset parent FID on OST object
2061  *
2062  * Replace parent FID with @dt object FID, which is only called during migration
2063  * to reset the parent FID after the MDT object is migrated to the new MDT, i.e.
2064  * the FID is changed.
2065  *
2066  * \param[in] env execution environment
2067  * \param[in] dt dt_object whose stripes's parent FID will be reset
2068  * \parem[in] th thandle
2069  * \param[in] declare if it is declare
2070  *
2071  * \retval      0 if reset succeeds
2072  * \retval      negative errno if reset fais
2073  */
2074 static int lod_object_replace_parent_fid(const struct lu_env *env,
2075                                          struct dt_object *dt,
2076                                          struct thandle *th, bool declare)
2077 {
2078         struct lod_object *lo = lod_dt_obj(dt);
2079         struct lod_thread_info  *info = lod_env_info(env);
2080         struct lu_buf *buf = &info->lti_buf;
2081         struct filter_fid *ff;
2082         int i, rc;
2083         ENTRY;
2084
2085         LASSERT(S_ISREG(dt->do_lu.lo_header->loh_attr));
2086
2087         /* set xattr to each stripes, if needed */
2088         rc = lod_load_striping(env, lo);
2089         if (rc != 0)
2090                 RETURN(rc);
2091
2092         if (lo->ldo_stripenr == 0)
2093                 RETURN(0);
2094
2095         if (info->lti_ea_store_size < sizeof(*ff)) {
2096                 rc = lod_ea_store_resize(info, sizeof(*ff));
2097                 if (rc != 0)
2098                         RETURN(rc);
2099         }
2100
2101         buf->lb_buf = info->lti_ea_store;
2102         buf->lb_len = info->lti_ea_store_size;
2103
2104         for (i = 0; i < lo->ldo_stripenr; i++) {
2105                 if (lo->ldo_stripe[i] == NULL)
2106                         continue;
2107
2108                 rc = dt_xattr_get(env, lo->ldo_stripe[i], buf,
2109                                   XATTR_NAME_FID);
2110                 if (rc < 0) {
2111                         rc = 0;
2112                         continue;
2113                 }
2114
2115                 ff = buf->lb_buf;
2116                 fid_le_to_cpu(&ff->ff_parent, &ff->ff_parent);
2117                 ff->ff_parent.f_seq = lu_object_fid(&dt->do_lu)->f_seq;
2118                 ff->ff_parent.f_oid = lu_object_fid(&dt->do_lu)->f_oid;
2119                 fid_cpu_to_le(&ff->ff_parent, &ff->ff_parent);
2120
2121                 if (declare) {
2122                         rc = lod_sub_object_declare_xattr_set(env,
2123                                                 lo->ldo_stripe[i], buf,
2124                                                 XATTR_NAME_FID,
2125                                                 LU_XATTR_REPLACE, th);
2126                 } else {
2127                         rc = lod_sub_object_xattr_set(env, lo->ldo_stripe[i],
2128                                                       buf, XATTR_NAME_FID,
2129                                                       LU_XATTR_REPLACE, th);
2130                 }
2131                 if (rc < 0)
2132                         break;
2133         }
2134
2135         RETURN(rc);
2136 }
2137
2138 /**
2139  * Implementation of dt_object_operations::do_declare_xattr_set.
2140  *
2141  * \see dt_object_operations::do_declare_xattr_set() in the API description
2142  * for details.
2143  *
2144  * the extension to the API:
2145  *   - declaring LOVEA requests striping creation
2146  *   - LU_XATTR_REPLACE means layout swap
2147  */
2148 static int lod_declare_xattr_set(const struct lu_env *env,
2149                                  struct dt_object *dt,
2150                                  const struct lu_buf *buf,
2151                                  const char *name, int fl,
2152                                  struct thandle *th)
2153 {
2154         struct dt_object *next = dt_object_child(dt);
2155         struct lu_attr   *attr = &lod_env_info(env)->lti_attr;
2156         __u32             mode;
2157         int               rc;
2158         ENTRY;
2159
2160         /*
2161          * allow to declare predefined striping on a new (!mode) object
2162          * which is supposed to be replay of regular file creation
2163          * (when LOV setting is declared)
2164          * LU_XATTR_REPLACE is set to indicate a layout swap
2165          */
2166         mode = dt->do_lu.lo_header->loh_attr & S_IFMT;
2167         if ((S_ISREG(mode) || mode == 0) && strcmp(name, XATTR_NAME_LOV) == 0 &&
2168              !(fl & LU_XATTR_REPLACE)) {
2169                 /*
2170                  * this is a request to manipulate object's striping
2171                  */
2172                 if (dt_object_exists(dt)) {
2173                         rc = dt_attr_get(env, next, attr);
2174                         if (rc)
2175                                 RETURN(rc);
2176                 } else {
2177                         memset(attr, 0, sizeof(*attr));
2178                         attr->la_valid = LA_TYPE | LA_MODE;
2179                         attr->la_mode = S_IFREG;
2180                 }
2181                 rc = lod_declare_striped_object(env, dt, attr, buf, th);
2182         } else if (S_ISDIR(mode)) {
2183                 rc = lod_dir_declare_xattr_set(env, dt, buf, name, fl, th);
2184         } else if (strcmp(name, XATTR_NAME_FID) == 0) {
2185                 rc = lod_object_replace_parent_fid(env, dt, th, true);
2186         } else {
2187                 rc = lod_sub_object_declare_xattr_set(env, next, buf, name,
2188                                                       fl, th);
2189         }
2190
2191         RETURN(rc);
2192 }
2193
2194 /**
2195  * Resets cached default striping in the object.
2196  *
2197  * \param[in] lo        object
2198  */
2199 static void lod_lov_stripe_cache_clear(struct lod_object *lo)
2200 {
2201         lo->ldo_def_striping_set = 0;
2202         lo->ldo_def_striping_cached = 0;
2203         lod_object_set_pool(lo, NULL);
2204         lo->ldo_def_stripe_size = 0;
2205         lo->ldo_def_stripenr = 0;
2206         if (lo->ldo_dir_stripe != NULL)
2207                 lo->ldo_dir_def_striping_cached = 0;
2208 }
2209
2210 /**
2211  * Apply xattr changes to the object.
2212  *
2213  * Applies xattr changes to the object and the stripes if the latter exist.
2214  *
2215  * \param[in] env       execution environment
2216  * \param[in] dt        object
2217  * \param[in] buf       buffer pointing to the new value of xattr
2218  * \param[in] name      name of xattr
2219  * \param[in] fl        flags
2220  * \param[in] th        transaction handle
2221  *
2222  * \retval              0 on success
2223  * \retval              negative if failed
2224  */
2225 static int lod_xattr_set_internal(const struct lu_env *env,
2226                                   struct dt_object *dt,
2227                                   const struct lu_buf *buf,
2228                                   const char *name, int fl,
2229                                   struct thandle *th)
2230 {
2231         struct dt_object        *next = dt_object_child(dt);
2232         struct lod_object       *lo = lod_dt_obj(dt);
2233         int                     rc;
2234         int                     i;
2235         ENTRY;
2236
2237         rc = lod_sub_object_xattr_set(env, next, buf, name, fl, th);
2238         if (rc != 0 || !S_ISDIR(dt->do_lu.lo_header->loh_attr))
2239                 RETURN(rc);
2240
2241         /* Note: Do not set LinkEA on sub-stripes, otherwise
2242          * it will confuse the fid2path process(see mdt_path_current()).
2243          * The linkEA between master and sub-stripes is set in
2244          * lod_xattr_set_lmv(). */
2245         if (lo->ldo_stripenr == 0 || strcmp(name, XATTR_NAME_LINK) == 0)
2246                 RETURN(0);
2247
2248         for (i = 0; i < lo->ldo_stripenr; i++) {
2249                 LASSERT(lo->ldo_stripe[i]);
2250
2251                 rc = lod_sub_object_xattr_set(env, lo->ldo_stripe[i], buf, name,
2252                                               fl, th);
2253                 if (rc != 0)
2254                         break;
2255         }
2256
2257         RETURN(rc);
2258 }
2259
2260 /**
2261  * Delete an extended attribute.
2262  *
2263  * Deletes specified xattr from the object and the stripes if the latter exist.
2264  *
2265  * \param[in] env       execution environment
2266  * \param[in] dt        object
2267  * \param[in] name      name of xattr
2268  * \param[in] th        transaction handle
2269  *
2270  * \retval              0 on success
2271  * \retval              negative if failed
2272  */
2273 static int lod_xattr_del_internal(const struct lu_env *env,
2274                                   struct dt_object *dt,
2275                                   const char *name, struct thandle *th)
2276 {
2277         struct dt_object        *next = dt_object_child(dt);
2278         struct lod_object       *lo = lod_dt_obj(dt);
2279         int                     rc;
2280         int                     i;
2281         ENTRY;
2282
2283         rc = lod_sub_object_xattr_del(env, next, name, th);
2284         if (rc != 0 || !S_ISDIR(dt->do_lu.lo_header->loh_attr))
2285                 RETURN(rc);
2286
2287         if (lo->ldo_stripenr == 0)
2288                 RETURN(rc);
2289
2290         for (i = 0; i < lo->ldo_stripenr; i++) {
2291                 LASSERT(lo->ldo_stripe[i]);
2292
2293                 rc = lod_sub_object_xattr_del(env, lo->ldo_stripe[i], name,
2294                                               th);
2295                 if (rc != 0)
2296                         break;
2297         }
2298
2299         RETURN(rc);
2300 }
2301
2302 /**
2303  * Set default striping on a directory.
2304  *
2305  * Sets specified striping on a directory object unless it matches the default
2306  * striping (LOVEA_DELETE_VALUES() macro). In the latter case remove existing
2307  * EA. This striping will be used when regular file is being created in this
2308  * directory.
2309  *
2310  * \param[in] env       execution environment
2311  * \param[in] dt        the striped object
2312  * \param[in] buf       buffer with the striping
2313  * \param[in] name      name of EA
2314  * \param[in] fl        xattr flag (see OSD API description)
2315  * \param[in] th        transaction handle
2316  *
2317  * \retval              0 on success
2318  * \retval              negative if failed
2319  */
2320 static int lod_xattr_set_lov_on_dir(const struct lu_env *env,
2321                                     struct dt_object *dt,
2322                                     const struct lu_buf *buf,
2323                                     const char *name, int fl,
2324                                     struct thandle *th)
2325 {
2326         struct lod_device       *d = lu2lod_dev(dt->do_lu.lo_dev);
2327         struct lod_object       *l = lod_dt_obj(dt);
2328         struct lov_user_md_v1   *lum;
2329         struct lov_user_md_v3   *v3 = NULL;
2330         const char              *pool_name = NULL;
2331         int                      rc;
2332         ENTRY;
2333
2334         /* If it is striped dir, we should clear the stripe cache for
2335          * slave stripe as well, but there are no effective way to
2336          * notify the LOD on the slave MDT, so we do not cache stripe
2337          * information for slave stripe for now. XXX*/
2338         lod_lov_stripe_cache_clear(l);
2339         LASSERT(buf != NULL && buf->lb_buf != NULL);
2340         lum = buf->lb_buf;
2341
2342         rc = lod_verify_striping(d, buf, false);
2343         if (rc)
2344                 RETURN(rc);
2345
2346         if (lum->lmm_magic == LOV_USER_MAGIC_V3) {
2347                 v3 = buf->lb_buf;
2348                 if (v3->lmm_pool_name[0] != '\0')
2349                         pool_name = v3->lmm_pool_name;
2350         }
2351
2352         /* if { size, offset, count } = { 0, -1, 0 } and no pool
2353          * (i.e. all default values specified) then delete default
2354          * striping from dir. */
2355         CDEBUG(D_OTHER,
2356                 "set default striping: sz %u # %u offset %d %s %s\n",
2357                 (unsigned)lum->lmm_stripe_size,
2358                 (unsigned)lum->lmm_stripe_count,
2359                 (int)lum->lmm_stripe_offset,
2360                 v3 ? "from" : "", v3 ? v3->lmm_pool_name : "");
2361
2362         if (LOVEA_DELETE_VALUES(lum->lmm_stripe_size, lum->lmm_stripe_count,
2363                                 lum->lmm_stripe_offset, pool_name)) {
2364                 rc = lod_xattr_del_internal(env, dt, name, th);
2365                 if (rc == -ENODATA)
2366                         rc = 0;
2367         } else {
2368                 rc = lod_xattr_set_internal(env, dt, buf, name, fl, th);
2369         }
2370
2371         RETURN(rc);
2372 }
2373
2374 /**
2375  * Set default striping on a directory object.
2376  *
2377  * Sets specified striping on a directory object unless it matches the default
2378  * striping (LOVEA_DELETE_VALUES() macro). In the latter case remove existing
2379  * EA. This striping will be used when a new directory is being created in the
2380  * directory.
2381  *
2382  * \param[in] env       execution environment
2383  * \param[in] dt        the striped object
2384  * \param[in] buf       buffer with the striping
2385  * \param[in] name      name of EA
2386  * \param[in] fl        xattr flag (see OSD API description)
2387  * \param[in] th        transaction handle
2388  *
2389  * \retval              0 on success
2390  * \retval              negative if failed
2391  */
2392 static int lod_xattr_set_default_lmv_on_dir(const struct lu_env *env,
2393                                             struct dt_object *dt,
2394                                             const struct lu_buf *buf,
2395                                             const char *name, int fl,
2396                                             struct thandle *th)
2397 {
2398         struct lod_object       *l = lod_dt_obj(dt);
2399         struct lmv_user_md_v1   *lum;
2400         int                      rc;
2401         ENTRY;
2402
2403         LASSERT(buf != NULL && buf->lb_buf != NULL);
2404         lum = buf->lb_buf;
2405
2406         CDEBUG(D_OTHER, "set default stripe_count # %u stripe_offset %d\n",
2407               le32_to_cpu(lum->lum_stripe_count),
2408               (int)le32_to_cpu(lum->lum_stripe_offset));
2409
2410         if (LMVEA_DELETE_VALUES((le32_to_cpu(lum->lum_stripe_count)),
2411                                  le32_to_cpu(lum->lum_stripe_offset)) &&
2412                                 le32_to_cpu(lum->lum_magic) == LMV_USER_MAGIC) {
2413                 rc = lod_xattr_del_internal(env, dt, name, th);
2414                 if (rc == -ENODATA)
2415                         rc = 0;
2416         } else {
2417                 rc = lod_xattr_set_internal(env, dt, buf, name, fl, th);
2418                 if (rc != 0)
2419                         RETURN(rc);
2420         }
2421
2422         /* Update default stripe cache */
2423         if (l->ldo_dir_stripe == NULL) {
2424                 OBD_ALLOC_PTR(l->ldo_dir_stripe);
2425                 if (l->ldo_dir_stripe == NULL)
2426                         RETURN(-ENOMEM);
2427         }
2428
2429         l->ldo_dir_def_striping_cached = 0;
2430         RETURN(rc);
2431 }
2432
2433 /**
2434  * Turn directory into a striped directory.
2435  *
2436  * During replay the client sends the striping created before MDT
2437  * failure, then the layer above LOD sends this defined striping
2438  * using ->do_xattr_set(), so LOD uses this method to replay creation
2439  * of the stripes. Notice the original information for the striping
2440  * (#stripes, FIDs, etc) was transferred in declare path.
2441  *
2442  * \param[in] env       execution environment
2443  * \param[in] dt        the striped object
2444  * \param[in] buf       not used currently
2445  * \param[in] name      not used currently
2446  * \param[in] fl        xattr flag (see OSD API description)
2447  * \param[in] th        transaction handle
2448  *
2449  * \retval              0 on success
2450  * \retval              negative if failed
2451  */
2452 static int lod_xattr_set_lmv(const struct lu_env *env, struct dt_object *dt,
2453                              const struct lu_buf *buf, const char *name,
2454                              int fl, struct thandle *th)
2455 {
2456         struct lod_object       *lo = lod_dt_obj(dt);
2457         struct lod_thread_info  *info = lod_env_info(env);
2458         struct lu_attr          *attr = &info->lti_attr;
2459         struct dt_object_format *dof = &info->lti_format;
2460         struct lu_buf           lmv_buf;
2461         struct lu_buf           slave_lmv_buf;
2462         struct lmv_mds_md_v1    *lmm;
2463         struct lmv_mds_md_v1    *slave_lmm = NULL;
2464         struct dt_insert_rec    *rec = &info->lti_dt_rec;
2465         int                     i;
2466         int                     rc;
2467         ENTRY;
2468
2469         if (!S_ISDIR(dt->do_lu.lo_header->loh_attr))
2470                 RETURN(-ENOTDIR);
2471
2472         /* The stripes are supposed to be allocated in declare phase,
2473          * if there are no stripes being allocated, it will skip */
2474         if (lo->ldo_stripenr == 0)
2475                 RETURN(0);
2476
2477         rc = dt_attr_get(env, dt_object_child(dt), attr);
2478         if (rc != 0)
2479                 RETURN(rc);
2480
2481         attr->la_valid = LA_ATIME | LA_MTIME | LA_CTIME |
2482                          LA_MODE | LA_UID | LA_GID | LA_TYPE;
2483         dof->dof_type = DFT_DIR;
2484
2485         rc = lod_prep_lmv_md(env, dt, &lmv_buf);
2486         if (rc != 0)
2487                 RETURN(rc);
2488         lmm = lmv_buf.lb_buf;
2489
2490         OBD_ALLOC_PTR(slave_lmm);
2491         if (slave_lmm == NULL)
2492                 RETURN(-ENOMEM);
2493
2494         lod_prep_slave_lmv_md(slave_lmm, lmm);
2495         slave_lmv_buf.lb_buf = slave_lmm;
2496         slave_lmv_buf.lb_len = sizeof(*slave_lmm);
2497
2498         rec->rec_type = S_IFDIR;
2499         for (i = 0; i < lo->ldo_stripenr; i++) {
2500                 struct dt_object *dto;
2501                 char             *stripe_name = info->lti_key;
2502                 struct lu_name          *sname;
2503                 struct linkea_data       ldata          = { NULL };
2504                 struct lu_buf            linkea_buf;
2505
2506                 dto = lo->ldo_stripe[i];
2507
2508                 dt_write_lock(env, dto, MOR_TGT_CHILD);
2509                 rc = lod_sub_object_create(env, dto, attr, NULL, dof,
2510                                            th);
2511                 if (rc != 0) {
2512                         dt_write_unlock(env, dto);
2513                         GOTO(out, rc);
2514                 }
2515
2516                 rc = lod_sub_object_ref_add(env, dto, th);
2517                 dt_write_unlock(env, dto);
2518                 if (rc != 0)
2519                         GOTO(out, rc);
2520
2521                 rec->rec_fid = lu_object_fid(&dto->do_lu);
2522                 rc = lod_sub_object_index_insert(env, dto,
2523                                 (const struct dt_rec *)rec,
2524                                 (const struct dt_key *)dot, th, 0);
2525                 if (rc != 0)
2526                         GOTO(out, rc);
2527
2528                 rec->rec_fid = lu_object_fid(&dt->do_lu);
2529                 rc = lod_sub_object_index_insert(env, dto, (struct dt_rec *)rec,
2530                                (const struct dt_key *)dotdot, th, 0);
2531                 if (rc != 0)
2532                         GOTO(out, rc);
2533
2534                 if (!OBD_FAIL_CHECK(OBD_FAIL_LFSCK_LOST_SLAVE_LMV) ||
2535                     cfs_fail_val != i) {
2536                         if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_SLAVE_LMV) &&
2537                             cfs_fail_val == i)
2538                                 slave_lmm->lmv_master_mdt_index =
2539                                                         cpu_to_le32(i + 1);
2540                         else
2541                                 slave_lmm->lmv_master_mdt_index =
2542                                                         cpu_to_le32(i);
2543
2544                         rc = lod_sub_object_xattr_set(env, dto, &slave_lmv_buf,
2545                                                       XATTR_NAME_LMV, fl, th);
2546                         if (rc != 0)
2547                                 GOTO(out, rc);
2548                 }
2549
2550                 if (OBD_FAIL_CHECK(OBD_FAIL_LFSCK_BAD_SLAVE_NAME) &&
2551                     cfs_fail_val == i)
2552                         snprintf(stripe_name, sizeof(info->lti_key), DFID":%d",
2553                                  PFID(lu_object_fid(&dto->do_lu)), i + 1);
2554                 else
2555                         snprintf(stripe_name, sizeof(info->lti_key), DFID":%d",
2556                                  PFID(lu_object_fid(&dto->do_lu)), i);
2557
2558                 sname = lod_name_get(env, stripe_name, strlen(stripe_name));
2559                 rc = linkea_data_new(&ldata, &info->lti_linkea_buf);
2560                 if (rc != 0)
2561                         GOTO(out, rc);
2562
2563                 rc = linkea_add_buf(&ldata, sname, lu_object_fid(&dt->do_lu));
2564                 if (rc != 0)
2565                         GOTO(out, rc);
2566
2567                 linkea_buf.lb_buf = ldata.ld_buf->lb_buf;
2568                 linkea_buf.lb_len = ldata.ld_leh->leh_len;
2569                 rc = lod_sub_object_xattr_set(env, dto, &linkea_buf,
2570                                         XATTR_NAME_LINK, 0, th);
2571                 if (rc != 0)
2572                         GOTO(out, rc);
2573
2574                 rec->rec_fid = lu_object_fid(&dto->do_lu);
2575                 rc = lod_sub_object_index_insert(env, dt_object_child(dt),
2576                                (const struct dt_rec *)rec,
2577                                (const struct dt_key *)stripe_name, th, 0);
2578                 if (rc != 0)
2579                         GOTO(out, rc);
2580
2581                 rc = lod_sub_object_ref_add(env, dt_object_child(dt), th);
2582                 if (rc != 0)
2583                         GOTO(out, rc);
2584         }
2585
2586         if (!OBD_FAIL_CHECK(OBD_FAIL_LFSCK_LOST_MASTER_LMV))
2587                 rc = lod_sub_object_xattr_set(env, dt_object_child(dt),
2588                                               &lmv_buf, XATTR_NAME_LMV, fl, th);
2589 out:
2590         if (slave_lmm != NULL)
2591                 OBD_FREE_PTR(slave_lmm);
2592
2593         RETURN(rc);
2594 }
2595
2596 /**
2597  * Helper function to declare/execute creation of a striped directory
2598  *
2599  * Called in declare/create object path, prepare striping for a directory
2600  * and prepare defaults data striping for the objects to be created in
2601  * that directory. Notice the function calls "declaration" or "execution"
2602  * methods depending on \a declare param. This is a consequence of the
2603  * current approach while we don't have natural distributed transactions:
2604  * we basically execute non-local updates in the declare phase. So, the
2605  * arguments for the both phases are the same and this is the reason for
2606  * this function to exist.
2607  *
2608  * \param[in] env       execution environment
2609  * \param[in] dt        object
2610  * \param[in] attr      attributes the stripes will be created with
2611  * \param[in] dof       format of stripes (see OSD API description)
2612  * \param[in] th        transaction handle
2613  * \param[in] declare   where to call "declare" or "execute" methods
2614  *
2615  * \retval              0 on success
2616  * \retval              negative if failed
2617  */
2618 static int lod_dir_striping_create_internal(const struct lu_env *env,
2619                                             struct dt_object *dt,
2620                                             struct lu_attr *attr,
2621                                             struct dt_object_format *dof,
2622                                             struct thandle *th,
2623                                             bool declare)
2624 {
2625         struct lod_thread_info  *info = lod_env_info(env);
2626         struct lod_object       *lo = lod_dt_obj(dt);
2627         int                     rc;
2628         ENTRY;
2629
2630         if (!LMVEA_DELETE_VALUES(lo->ldo_stripenr,
2631                                  lo->ldo_dir_stripe_offset)) {
2632                 struct lmv_user_md_v1 *v1 = info->lti_ea_store;
2633                 int stripe_count = lo->ldo_stripenr;
2634
2635                 if (info->lti_ea_store_size < sizeof(*v1)) {
2636                         rc = lod_ea_store_resize(info, sizeof(*v1));
2637                         if (rc != 0)
2638                                 RETURN(rc);
2639                         v1 = info->lti_ea_store;
2640                 }
2641
2642                 memset(v1, 0, sizeof(*v1));
2643                 v1->lum_magic = cpu_to_le32(LMV_USER_MAGIC);
2644                 v1->lum_stripe_count = cpu_to_le32(stripe_count);
2645                 v1->lum_stripe_offset =
2646                                 cpu_to_le32(lo->ldo_dir_stripe_offset);
2647
2648                 info->lti_buf.lb_buf = v1;
2649                 info->lti_buf.lb_len = sizeof(*v1);
2650
2651                 if (declare)
2652                         rc = lod_declare_xattr_set_lmv(env, dt, attr,
2653                                                        &info->lti_buf, dof, th);
2654                 else
2655                         rc = lod_xattr_set_lmv(env, dt, &info->lti_buf,
2656                                                XATTR_NAME_LMV, 0, th);
2657                 if (rc != 0)
2658                         RETURN(rc);
2659         }
2660
2661         /* Transfer default LMV striping from the parent */
2662         if (lo->ldo_dir_def_striping_set &&
2663             !LMVEA_DELETE_VALUES(lo->ldo_dir_def_stripenr,
2664                                  lo->ldo_dir_def_stripe_offset)) {
2665                 struct lmv_user_md_v1 *v1 = info->lti_ea_store;
2666                 int def_stripe_count = lo->ldo_dir_def_stripenr;
2667
2668                 if (info->lti_ea_store_size < sizeof(*v1)) {
2669                         rc = lod_ea_store_resize(info, sizeof(*v1));
2670                         if (rc != 0)
2671                                 RETURN(rc);
2672                         v1 = info->lti_ea_store;
2673                 }
2674
2675                 memset(v1, 0, sizeof(*v1));
2676                 v1->lum_magic = cpu_to_le32(LMV_USER_MAGIC);
2677                 v1->lum_stripe_count = cpu_to_le32(def_stripe_count);
2678                 v1->lum_stripe_offset =
2679                                 cpu_to_le32(lo->ldo_dir_def_stripe_offset);
2680                 v1->lum_hash_type =
2681                                 cpu_to_le32(lo->ldo_dir_def_hash_type);
2682
2683                 info->lti_buf.lb_buf = v1;
2684                 info->lti_buf.lb_len = sizeof(*v1);
2685                 if (declare)
2686                         rc = lod_dir_declare_xattr_set(env, dt, &info->lti_buf,
2687                                                        XATTR_NAME_DEFAULT_LMV,
2688                                                        0, th);
2689                 else
2690                         rc = lod_xattr_set_default_lmv_on_dir(env, dt,
2691                                                   &info->lti_buf,
2692                                                   XATTR_NAME_DEFAULT_LMV, 0,
2693                                                   th);
2694                 if (rc != 0)
2695                         RETURN(rc);
2696         }
2697
2698         /* Transfer default LOV striping from the parent */
2699         if (lo->ldo_def_striping_set &&
2700             !LOVEA_DELETE_VALUES(lo->ldo_def_stripe_size,
2701                                  lo->ldo_def_stripenr,
2702                                  lo->ldo_def_stripe_offset,
2703                                  lo->ldo_pool)) {
2704                 struct lov_user_md_v3 *v3 = info->lti_ea_store;
2705
2706                 if (info->lti_ea_store_size < sizeof(*v3)) {
2707                         rc = lod_ea_store_resize(info, sizeof(*v3));
2708                         if (rc != 0)
2709                                 RETURN(rc);
2710                         v3 = info->lti_ea_store;
2711                 }
2712
2713                 memset(v3, 0, sizeof(*v3));
2714                 v3->lmm_magic = cpu_to_le32(LOV_USER_MAGIC_V3);
2715                 v3->lmm_stripe_count = cpu_to_le16(lo->ldo_def_stripenr);
2716                 v3->lmm_stripe_offset = cpu_to_le16(lo->ldo_def_stripe_offset);
2717                 v3->lmm_stripe_size = cpu_to_le32(lo->ldo_def_stripe_size);
2718                 if (lo->ldo_pool != NULL)
2719                         strlcpy(v3->lmm_pool_name, lo->ldo_pool,
2720                                 sizeof(v3->lmm_pool_name));
2721
2722                 info->lti_buf.lb_buf = v3;
2723                 info->lti_buf.lb_len = sizeof(*v3);
2724
2725                 if (declare)
2726                         rc = lod_dir_declare_xattr_set(env, dt, &info->lti_buf,
2727                                                        XATTR_NAME_LOV, 0, th);
2728                 else
2729                         rc = lod_xattr_set_lov_on_dir(env, dt, &info->lti_buf,
2730                                                       XATTR_NAME_LOV, 0, th);
2731                 if (rc != 0)
2732                         RETURN(rc);
2733         }
2734
2735         RETURN(0);
2736 }
2737
2738 static int lod_declare_dir_striping_create(const struct lu_env *env,
2739                                            struct dt_object *dt,
2740                                            struct lu_attr *attr,
2741                                            struct dt_object_format *dof,
2742                                            struct thandle *th)
2743 {
2744         return lod_dir_striping_create_internal(env, dt, attr, dof, th, true);
2745 }
2746
2747 static int lod_dir_striping_create(const struct lu_env *env,
2748                                    struct dt_object *dt,
2749                                    struct lu_attr *attr,
2750                                    struct dt_object_format *dof,
2751                                    struct thandle *th)
2752 {
2753         struct lod_object *lo = lod_dt_obj(dt);
2754         int rc;
2755
2756         rc = lod_dir_striping_create_internal(env, dt, attr, dof, th, false);
2757         if (rc == 0)
2758                 lo->ldo_striping_cached = 1;
2759
2760         return rc;
2761 }
2762
2763 /**
2764  * Implementation of dt_object_operations::do_xattr_set.
2765  *
2766  * Sets specified extended attribute on the object. Three types of EAs are
2767  * special:
2768  *   LOV EA - stores striping for a regular file or default striping (when set
2769  *            on a directory)
2770  *   LMV EA - stores a marker for the striped directories
2771  *   DMV EA - stores default directory striping
2772  *
2773  * When striping is applied to a non-striped existing object (this is called
2774  * late striping), then LOD notices the caller wants to turn the object into a
2775  * striped one. The stripe objects are created and appropriate EA is set:
2776  * LOV EA storing all the stripes directly or LMV EA storing just a small header
2777  * with striping configuration.
2778  *
2779  * \see dt_object_operations::do_xattr_set() in the API description for details.
2780  */
2781 static int lod_xattr_set(const struct lu_env *env,
2782                          struct dt_object *dt, const struct lu_buf *buf,
2783                          const char *name, int fl, struct thandle *th)
2784 {
2785         struct dt_object        *next = dt_object_child(dt);
2786         int                      rc;
2787         ENTRY;
2788
2789         if (S_ISDIR(dt->do_lu.lo_header->loh_attr) &&
2790             strcmp(name, XATTR_NAME_LMV) == 0) {
2791                 struct lmv_mds_md_v1 *lmm = buf->lb_buf;
2792
2793                 if (lmm != NULL && le32_to_cpu(lmm->lmv_hash_type) &
2794                                                 LMV_HASH_FLAG_MIGRATION)
2795                         rc = lod_sub_object_xattr_set(env, next, buf, name, fl,
2796                                                       th);
2797                 else
2798                         rc = lod_dir_striping_create(env, dt, NULL, NULL, th);
2799
2800                 RETURN(rc);
2801         }
2802
2803         if (S_ISDIR(dt->do_lu.lo_header->loh_attr) &&
2804             strcmp(name, XATTR_NAME_LOV) == 0) {
2805                 /* default LOVEA */
2806                 rc = lod_xattr_set_lov_on_dir(env, dt, buf, name, fl, th);
2807                 RETURN(rc);
2808         } else if (S_ISDIR(dt->do_lu.lo_header->loh_attr) &&
2809                    strcmp(name, XATTR_NAME_DEFAULT_LMV) == 0) {
2810                 /* default LMVEA */
2811                 rc = lod_xattr_set_default_lmv_on_dir(env, dt, buf, name, fl,
2812                                                       th);
2813                 RETURN(rc);
2814         } else if (S_ISREG(dt->do_lu.lo_header->loh_attr) &&
2815                    !strcmp(name, XATTR_NAME_LOV)) {
2816                 /* in case of lov EA swap, just set it
2817                  * if not, it is a replay so check striping match what we
2818                  * already have during req replay, declare_xattr_set()
2819                  * defines striping, then create() does the work */
2820                 if (fl & LU_XATTR_REPLACE) {
2821                         /* free stripes, then update disk */
2822                         lod_object_free_striping(env, lod_dt_obj(dt));
2823
2824                         rc = lod_sub_object_xattr_set(env, next, buf, name,
2825                                                       fl, th);
2826                 } else if (dt_object_remote(dt)) {
2827                         /* This only happens during migration, see
2828                          * mdd_migrate_create(), in which Master MDT will
2829                          * create a remote target object, and only set
2830                          * (migrating) stripe EA on the remote object,
2831                          * and does not need creating each stripes. */
2832                         rc = lod_sub_object_xattr_set(env, next, buf, name,
2833                                                       fl, th);
2834                 } else {
2835                         rc = lod_striping_create(env, dt, NULL, NULL, th);
2836                 }
2837                 RETURN(rc);
2838         } else if (strcmp(name, XATTR_NAME_FID) == 0) {
2839                 rc = lod_object_replace_parent_fid(env, dt, th, false);
2840
2841                 RETURN(rc);
2842         }
2843
2844         /* then all other xattr */
2845         rc = lod_xattr_set_internal(env, dt, buf, name, fl, th);
2846
2847         RETURN(rc);
2848 }
2849
2850 /**
2851  * Implementation of dt_object_operations::do_declare_xattr_del.
2852  *
2853  * \see dt_object_operations::do_declare_xattr_del() in the API description
2854  * for details.
2855  */
2856 static int lod_declare_xattr_del(const struct lu_env *env,
2857                                  struct dt_object *dt, const char *name,
2858                                  struct thandle *th)
2859 {
2860         struct lod_object       *lo = lod_dt_obj(dt);
2861         int                     rc;
2862         int                     i;
2863         ENTRY;
2864
2865         rc = lod_sub_object_declare_xattr_del(env, dt_object_child(dt),
2866                                               name, th);
2867         if (rc != 0)
2868                 RETURN(rc);
2869
2870         if (!S_ISDIR(dt->do_lu.lo_header->loh_attr))
2871                 RETURN(0);
2872
2873         /* set xattr to each stripes, if needed */
2874         rc = lod_load_striping(env, lo);
2875         if (rc != 0)
2876                 RETURN(rc);
2877
2878         if (lo->ldo_stripenr == 0)
2879                 RETURN(0);
2880
2881         for (i = 0; i < lo->ldo_stripenr; i++) {
2882                 LASSERT(lo->ldo_stripe[i]);
2883                 rc = lod_sub_object_declare_xattr_del(env, lo->ldo_stripe[i],
2884                                                       name, th);
2885                 if (rc != 0)
2886                         break;
2887         }
2888
2889         RETURN(rc);
2890 }
2891
2892 /**
2893  * Implementation of dt_object_operations::do_xattr_del.
2894  *
2895  * If EA storing a regular striping is being deleted, then release
2896  * all the references to the stripe objects in core.
2897  *
2898  * \see dt_object_operations::do_xattr_del() in the API description for details.
2899  */
2900 static int lod_xattr_del(const struct lu_env *env, struct dt_object *dt,
2901                          const char *name, struct thandle *th)
2902 {
2903         struct dt_object        *next = dt_object_child(dt);
2904         struct lod_object       *lo = lod_dt_obj(dt);
2905         int                     rc;
2906         int                     i;
2907         ENTRY;
2908
2909         if (!strcmp(name, XATTR_NAME_LOV))
2910                 lod_object_free_striping(env, lod_dt_obj(dt));
2911
2912         rc = lod_sub_object_xattr_del(env, next, name, th);
2913         if (rc != 0 || !S_ISDIR(dt->do_lu.lo_header->loh_attr))
2914                 RETURN(rc);
2915
2916         if (lo->ldo_stripenr == 0)
2917                 RETURN(0);
2918
2919         for (i = 0; i < lo->ldo_stripenr; i++) {
2920                 LASSERT(lo->ldo_stripe[i]);
2921
2922                 rc = lod_sub_object_xattr_del(env, lo->ldo_stripe[i], name, th);
2923                 if (rc != 0)
2924                         break;
2925         }
2926
2927         RETURN(rc);
2928 }
2929
2930 /**
2931  * Implementation of dt_object_operations::do_xattr_list.
2932  *
2933  * \see dt_object_operations::do_xattr_list() in the API description
2934  * for details.
2935  */
2936 static int lod_xattr_list(const struct lu_env *env,
2937                           struct dt_object *dt, const struct lu_buf *buf)
2938 {
2939         return dt_xattr_list(env, dt_object_child(dt), buf);
2940 }
2941
2942 /**
2943  * Initialize a pool the object belongs to.
2944  *
2945  * When a striped object is being created, striping configuration
2946  * may demand the stripes are allocated on a limited set of the
2947  * targets. These limited sets are known as "pools". So we copy
2948  * a pool name into the object and later actual creation methods
2949  * (like lod_object_create()) will use this information to allocate
2950  * the stripes properly.
2951  *
2952  * \param[in] o         object
2953  * \param[in] pool      pool name
2954  */
2955 int lod_object_set_pool(struct lod_object *o, char *pool)
2956 {
2957         int len;
2958
2959         if (o->ldo_pool) {
2960                 len = strlen(o->ldo_pool);
2961                 OBD_FREE(o->ldo_pool, len + 1);
2962                 o->ldo_pool = NULL;
2963         }
2964         if (pool) {
2965                 len = strlen(pool);
2966                 OBD_ALLOC(o->ldo_pool, len + 1);
2967                 if (o->ldo_pool == NULL)
2968                         return -ENOMEM;
2969                 strcpy(o->ldo_pool, pool);
2970         }
2971         return 0;
2972 }
2973
2974 static inline int lod_object_will_be_striped(int is_reg, const struct lu_fid *fid)
2975 {
2976         return (is_reg && fid_seq(fid) != FID_SEQ_LOCAL_FILE);
2977 }
2978
2979
2980 /**
2981  * Cache default regular striping in the object.
2982  *
2983  * To improve performance of striped regular object creation we cache
2984  * default LOV striping (if it exists) in the parent directory object.
2985  *
2986  * \param[in] env               execution environment
2987  * \param[in] lp                object
2988  *
2989  * \retval              0 on success
2990  * \retval              negative if failed
2991  */
2992 static int lod_cache_parent_lov_striping(const struct lu_env *env,
2993                                          struct lod_object *lp)
2994 {
2995         struct lod_thread_info  *info = lod_env_info(env);
2996         struct lov_user_md_v1   *v1 = NULL;
2997         struct lov_user_md_v3   *v3 = NULL;
2998         int                      rc;
2999         ENTRY;
3000
3001         /* called from MDD without parent being write locked,
3002          * lock it here */
3003         dt_write_lock(env, dt_object_child(&lp->ldo_obj), 0);
3004         rc = lod_get_lov_ea(env, lp);
3005         if (rc < 0)
3006                 GOTO(unlock, rc);
3007
3008         if (rc < (typeof(rc))sizeof(struct lov_user_md)) {
3009                 /* don't lookup for non-existing or invalid striping */
3010                 lp->ldo_def_striping_set = 0;
3011                 lp->ldo_def_striping_cached = 1;
3012                 lp->ldo_def_stripe_size = 0;
3013                 lp->ldo_def_stripenr = 0;
3014                 lp->ldo_def_stripe_offset = (typeof(v1->lmm_stripe_offset))(-1);
3015                 GOTO(unlock, rc = 0);
3016         }
3017
3018         rc = 0;
3019         v1 = info->lti_ea_store;
3020         if (v1->lmm_magic == __swab32(LOV_USER_MAGIC_V1)) {
3021                 lustre_swab_lov_user_md_v1(v1);
3022         } else if (v1->lmm_magic == __swab32(LOV_USER_MAGIC_V3)) {
3023                 v3 = (struct lov_user_md_v3 *)v1;
3024                 lustre_swab_lov_user_md_v3(v3);
3025         }
3026
3027         if (v1->lmm_magic != LOV_MAGIC_V3 && v1->lmm_magic != LOV_MAGIC_V1)
3028                 GOTO(unlock, rc = 0);
3029
3030         if (v1->lmm_pattern != LOV_PATTERN_RAID0 && v1->lmm_pattern != 0)
3031                 GOTO(unlock, rc = 0);
3032
3033         CDEBUG(D_INFO, DFID" stripe_count=%d stripe_size=%d stripe_offset=%d\n",
3034                PFID(lu_object_fid(&lp->ldo_obj.do_lu)),
3035                (int)v1->lmm_stripe_count,
3036                (int)v1->lmm_stripe_size, (int)v1->lmm_stripe_offset);
3037
3038         lp->ldo_def_stripenr = v1->lmm_stripe_count;
3039         lp->ldo_def_stripe_size = v1->lmm_stripe_size;
3040         lp->ldo_def_stripe_offset = v1->lmm_stripe_offset;
3041         lp->ldo_def_striping_cached = 1;
3042         lp->ldo_def_striping_set = 1;
3043         if (v1->lmm_magic == LOV_USER_MAGIC_V3) {
3044                 /* XXX: sanity check here */
3045                 v3 = (struct lov_user_md_v3 *) v1;
3046                 if (v3->lmm_pool_name[0])
3047                         lod_object_set_pool(lp, v3->lmm_pool_name);
3048         }
3049         EXIT;
3050 unlock:
3051         dt_write_unlock(env, dt_object_child(&lp->ldo_obj));
3052         return rc;
3053 }
3054
3055
3056 /**
3057  * Cache default directory striping in the object.
3058  *
3059  * To improve performance of striped directory creation we cache default
3060  * directory striping (if it exists) in the parent directory object.
3061  *
3062  * \param[in] env               execution environment
3063  * \param[in] lp                object
3064  *
3065  * \retval              0 on success
3066  * \retval              negative if failed
3067  */
3068 static int lod_cache_parent_lmv_striping(const struct lu_env *env,
3069                                          struct lod_object *lp)
3070 {
3071         struct lod_thread_info  *info = lod_env_info(env);
3072         struct lmv_user_md_v1   *v1 = NULL;
3073         int                      rc;
3074         ENTRY;
3075
3076         /* called from MDD without parent being write locked,
3077          * lock it here */
3078         dt_write_lock(env, dt_object_child(&lp->ldo_obj), 0);
3079         rc = lod_get_default_lmv_ea(env, lp);
3080         if (rc < 0)
3081                 GOTO(unlock, rc);
3082
3083         if (rc < (typeof(rc))sizeof(struct lmv_user_md)) {
3084                 /* don't lookup for non-existing or invalid striping */
3085                 lp->ldo_dir_def_striping_set = 0;
3086                 lp->ldo_dir_def_striping_cached = 1;
3087                 lp->ldo_dir_def_stripenr = 0;
3088                 lp->ldo_dir_def_stripe_offset =
3089                                         (typeof(v1->lum_stripe_offset))(-1);
3090                 lp->ldo_dir_def_hash_type = LMV_HASH_TYPE_FNV_1A_64;
3091                 GOTO(unlock, rc = 0);
3092         }
3093
3094         rc = 0;
3095         v1 = info->lti_ea_store;
3096
3097         lp->ldo_dir_def_stripenr = le32_to_cpu(v1->lum_stripe_count);
3098         lp->ldo_dir_def_stripe_offset = le32_to_cpu(v1->lum_stripe_offset);
3099         lp->ldo_dir_def_hash_type = le32_to_cpu(v1->lum_hash_type);
3100         lp->ldo_dir_def_striping_set = 1;
3101         lp->ldo_dir_def_striping_cached = 1;
3102
3103         EXIT;
3104 unlock:
3105         dt_write_unlock(env, dt_object_child(&lp->ldo_obj));
3106         return rc;
3107 }
3108
3109 /**
3110  * Cache default striping in the object.
3111  *
3112  * To improve performance of striped object creation we cache default striping
3113  * (if it exists) in the parent directory object. We always cache default
3114  * striping for the regular files (stored in LOV EA) and we cache default
3115  * striping for the directories if requested by \a child_mode (when a new
3116  * directory is being created).
3117  *
3118  * \param[in] env               execution environment
3119  * \param[in] lp                object
3120  * \param[in] child_mode        new object's mode
3121  *
3122  * \retval              0 on success
3123  * \retval              negative if failed
3124  */
3125 static int lod_cache_parent_striping(const struct lu_env *env,
3126                                      struct lod_object *lp,
3127                                      umode_t child_mode)
3128 {
3129         int rc = 0;
3130         ENTRY;
3131
3132         if (!lp->ldo_def_striping_cached) {
3133                 /* we haven't tried to get default striping for
3134                  * the directory yet, let's cache it in the object */
3135                 rc = lod_cache_parent_lov_striping(env, lp);
3136                 if (rc != 0)
3137                         RETURN(rc);
3138         }
3139
3140         /* If the parent is on the remote MDT, we should always
3141          * try to refresh the default stripeEA cache, because we
3142          * do not cache default striping information for remote
3143          * object. */
3144         if (S_ISDIR(child_mode) && (!lp->ldo_dir_def_striping_cached ||
3145                                     dt_object_remote(&lp->ldo_obj)))
3146                 rc = lod_cache_parent_lmv_striping(env, lp);
3147
3148         RETURN(rc);
3149 }
3150
3151 /**
3152  * Implementation of dt_object_operations::do_ah_init.
3153  *
3154  * This method is used to make a decision on the striping configuration for the
3155  * object being created. It can be taken from the \a parent object if it exists,
3156  * or filesystem's default. The resulting configuration (number of stripes,
3157  * stripe size/offset, pool name, etc) is stored in the object itself and will
3158  * be used by the methods like ->doo_declare_create().
3159  *
3160  * \see dt_object_operations::do_ah_init() in the API description for details.
3161  */
3162 static void lod_ah_init(const struct lu_env *env,
3163                         struct dt_allocation_hint *ah,
3164                         struct dt_object *parent,
3165                         struct dt_object *child,
3166                         umode_t child_mode)
3167 {
3168         struct lod_device *d = lu2lod_dev(child->do_lu.lo_dev);
3169         struct dt_object  *nextp = NULL;
3170         struct dt_object  *nextc;
3171         struct lod_object *lp = NULL;
3172         struct lod_object *lc;
3173         struct lov_desc   *desc;
3174         int               rc;
3175         ENTRY;
3176
3177         LASSERT(child);
3178
3179         if (likely(parent)) {
3180                 nextp = dt_object_child(parent);
3181                 lp = lod_dt_obj(parent);
3182                 rc = lod_load_striping(env, lp);
3183                 if (rc != 0)
3184                         return;
3185         }
3186
3187         nextc = dt_object_child(child);
3188         lc = lod_dt_obj(child);
3189
3190         LASSERT(lc->ldo_stripenr == 0);
3191         LASSERT(lc->ldo_stripe == NULL);
3192
3193         if (!dt_object_exists(nextc))
3194                 nextc->do_ops->do_ah_init(env, ah, nextp, nextc, child_mode);
3195
3196         if (S_ISDIR(child_mode)) {
3197                 if (lc->ldo_dir_stripe == NULL) {
3198                         OBD_ALLOC_PTR(lc->ldo_dir_stripe);
3199                         if (lc->ldo_dir_stripe == NULL)
3200                                 return;
3201                 }
3202
3203                 LASSERT(lp != NULL);
3204                 if (lp->ldo_dir_stripe == NULL) {
3205                         OBD_ALLOC_PTR(lp->ldo_dir_stripe);
3206                         if (lp->ldo_dir_stripe == NULL)