namei.c 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526
  1. /*
  2. * namei.c - NTFS kernel directory inode operations. Part of the Linux-NTFS
  3. * project.
  4. *
  5. * Copyright (c) 2001-2006 Anton Altaparmakov
  6. *
  7. * This program/include file is free software; you can redistribute it and/or
  8. * modify it under the terms of the GNU General Public License as published
  9. * by the Free Software Foundation; either version 2 of the License, or
  10. * (at your option) any later version.
  11. *
  12. * This program/include file is distributed in the hope that it will be
  13. * useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  14. * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15. * GNU General Public License for more details.
  16. *
  17. * You should have received a copy of the GNU General Public License
  18. * along with this program (in the main directory of the Linux-NTFS
  19. * distribution in the file COPYING); if not, write to the Free Software
  20. * Foundation,Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
  21. */
  22. #include <linux/dcache.h>
  23. #include <linux/exportfs.h>
  24. #include <linux/security.h>
  25. #include "attrib.h"
  26. #include "debug.h"
  27. #include "dir.h"
  28. #include "mft.h"
  29. #include "ntfs.h"
  30. /**
  31. * ntfs_lookup - find the inode represented by a dentry in a directory inode
  32. * @dir_ino: directory inode in which to look for the inode
  33. * @dent: dentry representing the inode to look for
  34. * @nd: lookup nameidata
  35. *
  36. * In short, ntfs_lookup() looks for the inode represented by the dentry @dent
  37. * in the directory inode @dir_ino and if found attaches the inode to the
  38. * dentry @dent.
  39. *
  40. * In more detail, the dentry @dent specifies which inode to look for by
  41. * supplying the name of the inode in @dent->d_name.name. ntfs_lookup()
  42. * converts the name to Unicode and walks the contents of the directory inode
  43. * @dir_ino looking for the converted Unicode name. If the name is found in the
  44. * directory, the corresponding inode is loaded by calling ntfs_iget() on its
  45. * inode number and the inode is associated with the dentry @dent via a call to
  46. * d_splice_alias().
  47. *
  48. * If the name is not found in the directory, a NULL inode is inserted into the
  49. * dentry @dent via a call to d_add(). The dentry is then termed a negative
  50. * dentry.
  51. *
  52. * Only if an actual error occurs, do we return an error via ERR_PTR().
  53. *
  54. * In order to handle the case insensitivity issues of NTFS with regards to the
  55. * dcache and the dcache requiring only one dentry per directory, we deal with
  56. * dentry aliases that only differ in case in ->ntfs_lookup() while maintaining
  57. * a case sensitive dcache. This means that we get the full benefit of dcache
  58. * speed when the file/directory is looked up with the same case as returned by
  59. * ->ntfs_readdir() but that a lookup for any other case (or for the short file
  60. * name) will not find anything in dcache and will enter ->ntfs_lookup()
  61. * instead, where we search the directory for a fully matching file name
  62. * (including case) and if that is not found, we search for a file name that
  63. * matches with different case and if that has non-POSIX semantics we return
  64. * that. We actually do only one search (case sensitive) and keep tabs on
  65. * whether we have found a case insensitive match in the process.
  66. *
  67. * To simplify matters for us, we do not treat the short vs long filenames as
  68. * two hard links but instead if the lookup matches a short filename, we
  69. * return the dentry for the corresponding long filename instead.
  70. *
  71. * There are three cases we need to distinguish here:
  72. *
  73. * 1) @dent perfectly matches (i.e. including case) a directory entry with a
  74. * file name in the WIN32 or POSIX namespaces. In this case
  75. * ntfs_lookup_inode_by_name() will return with name set to NULL and we
  76. * just d_splice_alias() @dent.
  77. * 2) @dent matches (not including case) a directory entry with a file name in
  78. * the WIN32 namespace. In this case ntfs_lookup_inode_by_name() will return
  79. * with name set to point to a kmalloc()ed ntfs_name structure containing
  80. * the properly cased little endian Unicode name. We convert the name to the
  81. * current NLS code page, search if a dentry with this name already exists
  82. * and if so return that instead of @dent. At this point things are
  83. * complicated by the possibility of 'disconnected' dentries due to NFS
  84. * which we deal with appropriately (see the code comments). The VFS will
  85. * then destroy the old @dent and use the one we returned. If a dentry is
  86. * not found, we allocate a new one, d_splice_alias() it, and return it as
  87. * above.
  88. * 3) @dent matches either perfectly or not (i.e. we don't care about case) a
  89. * directory entry with a file name in the DOS namespace. In this case
  90. * ntfs_lookup_inode_by_name() will return with name set to point to a
  91. * kmalloc()ed ntfs_name structure containing the mft reference (cpu endian)
  92. * of the inode. We use the mft reference to read the inode and to find the
  93. * file name in the WIN32 namespace corresponding to the matched short file
  94. * name. We then convert the name to the current NLS code page, and proceed
  95. * searching for a dentry with this name, etc, as in case 2), above.
  96. *
  97. * Locking: Caller must hold i_mutex on the directory.
  98. */
  99. static struct dentry *ntfs_lookup(struct inode *dir_ino, struct dentry *dent,
  100. struct nameidata *nd)
  101. {
  102. ntfs_volume *vol = NTFS_SB(dir_ino->i_sb);
  103. struct inode *dent_inode;
  104. ntfschar *uname;
  105. ntfs_name *name = NULL;
  106. MFT_REF mref;
  107. unsigned long dent_ino;
  108. int uname_len;
  109. ntfs_debug("Looking up %s in directory inode 0x%lx.",
  110. dent->d_name.name, dir_ino->i_ino);
  111. /* Convert the name of the dentry to Unicode. */
  112. uname_len = ntfs_nlstoucs(vol, dent->d_name.name, dent->d_name.len,
  113. &uname);
  114. if (uname_len < 0) {
  115. if (uname_len != -ENAMETOOLONG)
  116. ntfs_error(vol->sb, "Failed to convert name to "
  117. "Unicode.");
  118. return ERR_PTR(uname_len);
  119. }
  120. mref = ntfs_lookup_inode_by_name(NTFS_I(dir_ino), uname, uname_len,
  121. &name);
  122. kmem_cache_free(ntfs_name_cache, uname);
  123. if (!IS_ERR_MREF(mref)) {
  124. dent_ino = MREF(mref);
  125. ntfs_debug("Found inode 0x%lx. Calling ntfs_iget.", dent_ino);
  126. dent_inode = ntfs_iget(vol->sb, dent_ino);
  127. if (likely(!IS_ERR(dent_inode))) {
  128. /* Consistency check. */
  129. if (is_bad_inode(dent_inode) || MSEQNO(mref) ==
  130. NTFS_I(dent_inode)->seq_no ||
  131. dent_ino == FILE_MFT) {
  132. /* Perfect WIN32/POSIX match. -- Case 1. */
  133. if (!name) {
  134. ntfs_debug("Done. (Case 1.)");
  135. return d_splice_alias(dent_inode, dent);
  136. }
  137. /*
  138. * We are too indented. Handle imperfect
  139. * matches and short file names further below.
  140. */
  141. goto handle_name;
  142. }
  143. ntfs_error(vol->sb, "Found stale reference to inode "
  144. "0x%lx (reference sequence number = "
  145. "0x%x, inode sequence number = 0x%x), "
  146. "returning -EIO. Run chkdsk.",
  147. dent_ino, MSEQNO(mref),
  148. NTFS_I(dent_inode)->seq_no);
  149. iput(dent_inode);
  150. dent_inode = ERR_PTR(-EIO);
  151. } else
  152. ntfs_error(vol->sb, "ntfs_iget(0x%lx) failed with "
  153. "error code %li.", dent_ino,
  154. PTR_ERR(dent_inode));
  155. kfree(name);
  156. /* Return the error code. */
  157. return (struct dentry *)dent_inode;
  158. }
  159. /* It is guaranteed that @name is no longer allocated at this point. */
  160. if (MREF_ERR(mref) == -ENOENT) {
  161. ntfs_debug("Entry was not found, adding negative dentry.");
  162. /* The dcache will handle negative entries. */
  163. d_add(dent, NULL);
  164. ntfs_debug("Done.");
  165. return NULL;
  166. }
  167. ntfs_error(vol->sb, "ntfs_lookup_ino_by_name() failed with error "
  168. "code %i.", -MREF_ERR(mref));
  169. return ERR_PTR(MREF_ERR(mref));
  170. // TODO: Consider moving this lot to a separate function! (AIA)
  171. handle_name:
  172. {
  173. struct dentry *real_dent, *new_dent;
  174. MFT_RECORD *m;
  175. ntfs_attr_search_ctx *ctx;
  176. ntfs_inode *ni = NTFS_I(dent_inode);
  177. int err;
  178. struct qstr nls_name;
  179. nls_name.name = NULL;
  180. if (name->type != FILE_NAME_DOS) { /* Case 2. */
  181. ntfs_debug("Case 2.");
  182. nls_name.len = (unsigned)ntfs_ucstonls(vol,
  183. (ntfschar*)&name->name, name->len,
  184. (unsigned char**)&nls_name.name, 0);
  185. kfree(name);
  186. } else /* if (name->type == FILE_NAME_DOS) */ { /* Case 3. */
  187. FILE_NAME_ATTR *fn;
  188. ntfs_debug("Case 3.");
  189. kfree(name);
  190. /* Find the WIN32 name corresponding to the matched DOS name. */
  191. ni = NTFS_I(dent_inode);
  192. m = map_mft_record(ni);
  193. if (IS_ERR(m)) {
  194. err = PTR_ERR(m);
  195. m = NULL;
  196. ctx = NULL;
  197. goto err_out;
  198. }
  199. ctx = ntfs_attr_get_search_ctx(ni, m);
  200. if (unlikely(!ctx)) {
  201. err = -ENOMEM;
  202. goto err_out;
  203. }
  204. do {
  205. ATTR_RECORD *a;
  206. u32 val_len;
  207. err = ntfs_attr_lookup(AT_FILE_NAME, NULL, 0, 0, 0,
  208. NULL, 0, ctx);
  209. if (unlikely(err)) {
  210. ntfs_error(vol->sb, "Inode corrupt: No WIN32 "
  211. "namespace counterpart to DOS "
  212. "file name. Run chkdsk.");
  213. if (err == -ENOENT)
  214. err = -EIO;
  215. goto err_out;
  216. }
  217. /* Consistency checks. */
  218. a = ctx->attr;
  219. if (a->non_resident || a->flags)
  220. goto eio_err_out;
  221. val_len = le32_to_cpu(a->data.resident.value_length);
  222. if (le16_to_cpu(a->data.resident.value_offset) +
  223. val_len > le32_to_cpu(a->length))
  224. goto eio_err_out;
  225. fn = (FILE_NAME_ATTR*)((u8*)ctx->attr + le16_to_cpu(
  226. ctx->attr->data.resident.value_offset));
  227. if ((u32)(fn->file_name_length * sizeof(ntfschar) +
  228. sizeof(FILE_NAME_ATTR)) > val_len)
  229. goto eio_err_out;
  230. } while (fn->file_name_type != FILE_NAME_WIN32);
  231. /* Convert the found WIN32 name to current NLS code page. */
  232. nls_name.len = (unsigned)ntfs_ucstonls(vol,
  233. (ntfschar*)&fn->file_name, fn->file_name_length,
  234. (unsigned char**)&nls_name.name, 0);
  235. ntfs_attr_put_search_ctx(ctx);
  236. unmap_mft_record(ni);
  237. }
  238. m = NULL;
  239. ctx = NULL;
  240. /* Check if a conversion error occurred. */
  241. if ((signed)nls_name.len < 0) {
  242. err = (signed)nls_name.len;
  243. goto err_out;
  244. }
  245. nls_name.hash = full_name_hash(nls_name.name, nls_name.len);
  246. /*
  247. * Note: No need for dent->d_lock lock as i_mutex is held on the
  248. * parent inode.
  249. */
  250. /* Does a dentry matching the nls_name exist already? */
  251. real_dent = d_lookup(dent->d_parent, &nls_name);
  252. /* If not, create it now. */
  253. if (!real_dent) {
  254. real_dent = d_alloc(dent->d_parent, &nls_name);
  255. kfree(nls_name.name);
  256. if (!real_dent) {
  257. err = -ENOMEM;
  258. goto err_out;
  259. }
  260. new_dent = d_splice_alias(dent_inode, real_dent);
  261. if (new_dent)
  262. dput(real_dent);
  263. else
  264. new_dent = real_dent;
  265. ntfs_debug("Done. (Created new dentry.)");
  266. return new_dent;
  267. }
  268. kfree(nls_name.name);
  269. /* Matching dentry exists, check if it is negative. */
  270. if (real_dent->d_inode) {
  271. if (unlikely(real_dent->d_inode != dent_inode)) {
  272. /* This can happen because bad inodes are unhashed. */
  273. BUG_ON(!is_bad_inode(dent_inode));
  274. BUG_ON(!is_bad_inode(real_dent->d_inode));
  275. }
  276. /*
  277. * Already have the inode and the dentry attached, decrement
  278. * the reference count to balance the ntfs_iget() we did
  279. * earlier on. We found the dentry using d_lookup() so it
  280. * cannot be disconnected and thus we do not need to worry
  281. * about any NFS/disconnectedness issues here.
  282. */
  283. iput(dent_inode);
  284. ntfs_debug("Done. (Already had inode and dentry.)");
  285. return real_dent;
  286. }
  287. /*
  288. * Negative dentry: instantiate it unless the inode is a directory and
  289. * has a 'disconnected' dentry (i.e. IS_ROOT and DCACHE_DISCONNECTED),
  290. * in which case d_move() that in place of the found dentry.
  291. */
  292. if (!S_ISDIR(dent_inode->i_mode)) {
  293. /* Not a directory; everything is easy. */
  294. d_instantiate(real_dent, dent_inode);
  295. ntfs_debug("Done. (Already had negative file dentry.)");
  296. return real_dent;
  297. }
  298. spin_lock(&dcache_lock);
  299. if (list_empty(&dent_inode->i_dentry)) {
  300. /*
  301. * Directory without a 'disconnected' dentry; we need to do
  302. * d_instantiate() by hand because it takes dcache_lock which
  303. * we already hold.
  304. */
  305. list_add(&real_dent->d_alias, &dent_inode->i_dentry);
  306. real_dent->d_inode = dent_inode;
  307. spin_unlock(&dcache_lock);
  308. security_d_instantiate(real_dent, dent_inode);
  309. ntfs_debug("Done. (Already had negative directory dentry.)");
  310. return real_dent;
  311. }
  312. /*
  313. * Directory with a 'disconnected' dentry; get a reference to the
  314. * 'disconnected' dentry.
  315. */
  316. new_dent = list_entry(dent_inode->i_dentry.next, struct dentry,
  317. d_alias);
  318. dget_locked(new_dent);
  319. spin_unlock(&dcache_lock);
  320. /* Do security vodoo. */
  321. security_d_instantiate(real_dent, dent_inode);
  322. /* Move new_dent in place of real_dent. */
  323. d_move(new_dent, real_dent);
  324. /* Balance the ntfs_iget() we did above. */
  325. iput(dent_inode);
  326. /* Throw away real_dent. */
  327. dput(real_dent);
  328. /* Use new_dent as the actual dentry. */
  329. ntfs_debug("Done. (Already had negative, disconnected directory "
  330. "dentry.)");
  331. return new_dent;
  332. eio_err_out:
  333. ntfs_error(vol->sb, "Illegal file name attribute. Run chkdsk.");
  334. err = -EIO;
  335. err_out:
  336. if (ctx)
  337. ntfs_attr_put_search_ctx(ctx);
  338. if (m)
  339. unmap_mft_record(ni);
  340. iput(dent_inode);
  341. ntfs_error(vol->sb, "Failed, returning error code %i.", err);
  342. return ERR_PTR(err);
  343. }
  344. }
  345. /**
  346. * Inode operations for directories.
  347. */
  348. const struct inode_operations ntfs_dir_inode_ops = {
  349. .lookup = ntfs_lookup, /* VFS: Lookup directory. */
  350. };
  351. /**
  352. * ntfs_get_parent - find the dentry of the parent of a given directory dentry
  353. * @child_dent: dentry of the directory whose parent directory to find
  354. *
  355. * Find the dentry for the parent directory of the directory specified by the
  356. * dentry @child_dent. This function is called from
  357. * fs/exportfs/expfs.c::find_exported_dentry() which in turn is called from the
  358. * default ->decode_fh() which is export_decode_fh() in the same file.
  359. *
  360. * The code is based on the ext3 ->get_parent() implementation found in
  361. * fs/ext3/namei.c::ext3_get_parent().
  362. *
  363. * Note: ntfs_get_parent() is called with @child_dent->d_inode->i_mutex down.
  364. *
  365. * Return the dentry of the parent directory on success or the error code on
  366. * error (IS_ERR() is true).
  367. */
  368. static struct dentry *ntfs_get_parent(struct dentry *child_dent)
  369. {
  370. struct inode *vi = child_dent->d_inode;
  371. ntfs_inode *ni = NTFS_I(vi);
  372. MFT_RECORD *mrec;
  373. ntfs_attr_search_ctx *ctx;
  374. ATTR_RECORD *attr;
  375. FILE_NAME_ATTR *fn;
  376. struct inode *parent_vi;
  377. struct dentry *parent_dent;
  378. unsigned long parent_ino;
  379. int err;
  380. ntfs_debug("Entering for inode 0x%lx.", vi->i_ino);
  381. /* Get the mft record of the inode belonging to the child dentry. */
  382. mrec = map_mft_record(ni);
  383. if (IS_ERR(mrec))
  384. return (struct dentry *)mrec;
  385. /* Find the first file name attribute in the mft record. */
  386. ctx = ntfs_attr_get_search_ctx(ni, mrec);
  387. if (unlikely(!ctx)) {
  388. unmap_mft_record(ni);
  389. return ERR_PTR(-ENOMEM);
  390. }
  391. try_next:
  392. err = ntfs_attr_lookup(AT_FILE_NAME, NULL, 0, CASE_SENSITIVE, 0, NULL,
  393. 0, ctx);
  394. if (unlikely(err)) {
  395. ntfs_attr_put_search_ctx(ctx);
  396. unmap_mft_record(ni);
  397. if (err == -ENOENT)
  398. ntfs_error(vi->i_sb, "Inode 0x%lx does not have a "
  399. "file name attribute. Run chkdsk.",
  400. vi->i_ino);
  401. return ERR_PTR(err);
  402. }
  403. attr = ctx->attr;
  404. if (unlikely(attr->non_resident))
  405. goto try_next;
  406. fn = (FILE_NAME_ATTR *)((u8 *)attr +
  407. le16_to_cpu(attr->data.resident.value_offset));
  408. if (unlikely((u8 *)fn + le32_to_cpu(attr->data.resident.value_length) >
  409. (u8*)attr + le32_to_cpu(attr->length)))
  410. goto try_next;
  411. /* Get the inode number of the parent directory. */
  412. parent_ino = MREF_LE(fn->parent_directory);
  413. /* Release the search context and the mft record of the child. */
  414. ntfs_attr_put_search_ctx(ctx);
  415. unmap_mft_record(ni);
  416. /* Get the inode of the parent directory. */
  417. parent_vi = ntfs_iget(vi->i_sb, parent_ino);
  418. if (IS_ERR(parent_vi) || unlikely(is_bad_inode(parent_vi))) {
  419. if (!IS_ERR(parent_vi))
  420. iput(parent_vi);
  421. ntfs_error(vi->i_sb, "Failed to get parent directory inode "
  422. "0x%lx of child inode 0x%lx.", parent_ino,
  423. vi->i_ino);
  424. return ERR_PTR(-EACCES);
  425. }
  426. /* Finally get a dentry for the parent directory and return it. */
  427. parent_dent = d_alloc_anon(parent_vi);
  428. if (unlikely(!parent_dent)) {
  429. iput(parent_vi);
  430. return ERR_PTR(-ENOMEM);
  431. }
  432. ntfs_debug("Done for inode 0x%lx.", vi->i_ino);
  433. return parent_dent;
  434. }
  435. /**
  436. * ntfs_get_dentry - find a dentry for the inode from a file handle sub-fragment
  437. * @sb: super block identifying the mounted ntfs volume
  438. * @fh: the file handle sub-fragment
  439. *
  440. * Find a dentry for the inode given a file handle sub-fragment. This function
  441. * is called from fs/exportfs/expfs.c::find_exported_dentry() which in turn is
  442. * called from the default ->decode_fh() which is export_decode_fh() in the
  443. * same file. The code is closely based on the default ->get_dentry() helper
  444. * fs/exportfs/expfs.c::get_object().
  445. *
  446. * The @fh contains two 32-bit unsigned values, the first one is the inode
  447. * number and the second one is the inode generation.
  448. *
  449. * Return the dentry on success or the error code on error (IS_ERR() is true).
  450. */
  451. static struct dentry *ntfs_get_dentry(struct super_block *sb, void *fh)
  452. {
  453. struct inode *vi;
  454. struct dentry *dent;
  455. unsigned long ino = ((u32 *)fh)[0];
  456. u32 gen = ((u32 *)fh)[1];
  457. ntfs_debug("Entering for inode 0x%lx, generation 0x%x.", ino, gen);
  458. vi = ntfs_iget(sb, ino);
  459. if (IS_ERR(vi)) {
  460. ntfs_error(sb, "Failed to get inode 0x%lx.", ino);
  461. return (struct dentry *)vi;
  462. }
  463. if (unlikely(is_bad_inode(vi) || vi->i_generation != gen)) {
  464. /* We didn't find the right inode. */
  465. ntfs_error(sb, "Inode 0x%lx, bad count: %d %d or version 0x%x "
  466. "0x%x.", vi->i_ino, vi->i_nlink,
  467. atomic_read(&vi->i_count), vi->i_generation,
  468. gen);
  469. iput(vi);
  470. return ERR_PTR(-ESTALE);
  471. }
  472. /* Now find a dentry. If possible, get a well-connected one. */
  473. dent = d_alloc_anon(vi);
  474. if (unlikely(!dent)) {
  475. iput(vi);
  476. return ERR_PTR(-ENOMEM);
  477. }
  478. ntfs_debug("Done for inode 0x%lx, generation 0x%x.", ino, gen);
  479. return dent;
  480. }
  481. /**
  482. * Export operations allowing NFS exporting of mounted NTFS partitions.
  483. *
  484. * We use the default ->decode_fh() and ->encode_fh() for now. Note that they
  485. * use 32 bits to store the inode number which is an unsigned long so on 64-bit
  486. * architectures is usually 64 bits so it would all fail horribly on huge
  487. * volumes. I guess we need to define our own encode and decode fh functions
  488. * that store 64-bit inode numbers at some point but for now we will ignore the
  489. * problem...
  490. *
  491. * We also use the default ->get_name() helper (used by ->decode_fh() via
  492. * fs/exportfs/expfs.c::find_exported_dentry()) as that is completely fs
  493. * independent.
  494. *
  495. * The default ->get_parent() just returns -EACCES so we have to provide our
  496. * own and the default ->get_dentry() is incompatible with NTFS due to not
  497. * allowing the inode number 0 which is used in NTFS for the system file $MFT
  498. * and due to using iget() whereas NTFS needs ntfs_iget().
  499. */
  500. struct export_operations ntfs_export_ops = {
  501. .get_parent = ntfs_get_parent, /* Find the parent of a given
  502. directory. */
  503. .get_dentry = ntfs_get_dentry, /* Find a dentry for the inode
  504. given a file handle
  505. sub-fragment. */
  506. };