1 /* SPDX-License-Identifier: LGPL-2.1+ */
7 #include "alloc-util.h"
11 #include "fstab-util.h"
12 #include "generator.h"
14 #include "main-func.h"
16 #include "mount-setup.h"
17 #include "mount-util.h"
18 #include "mountpoint-util.h"
19 #include "parse-util.h"
20 #include "path-util.h"
21 #include "proc-cmdline.h"
23 #include "specifier.h"
24 #include "stat-util.h"
25 #include "string-util.h"
27 #include "unit-name.h"
30 #include "volatile-util.h"
32 typedef enum MountpointFlags
{
40 static const char *arg_dest
= NULL
;
41 static const char *arg_dest_late
= NULL
;
42 static bool arg_fstab_enabled
= true;
43 static bool arg_swap_enabled
= true;
44 static char *arg_root_what
= NULL
;
45 static char *arg_root_fstype
= NULL
;
46 static char *arg_root_options
= NULL
;
47 static char *arg_root_hash
= NULL
;
48 static int arg_root_rw
= -1;
49 static char *arg_usr_what
= NULL
;
50 static char *arg_usr_fstype
= NULL
;
51 static char *arg_usr_options
= NULL
;
52 static VolatileMode arg_volatile_mode
= _VOLATILE_MODE_INVALID
;
54 STATIC_DESTRUCTOR_REGISTER(arg_root_what
, freep
);
55 STATIC_DESTRUCTOR_REGISTER(arg_root_fstype
, freep
);
56 STATIC_DESTRUCTOR_REGISTER(arg_root_options
, freep
);
57 STATIC_DESTRUCTOR_REGISTER(arg_root_hash
, freep
);
58 STATIC_DESTRUCTOR_REGISTER(arg_usr_what
, freep
);
59 STATIC_DESTRUCTOR_REGISTER(arg_usr_fstype
, freep
);
60 STATIC_DESTRUCTOR_REGISTER(arg_usr_options
, freep
);
62 static int write_options(FILE *f
, const char *options
) {
63 _cleanup_free_
char *o
= NULL
;
68 if (streq(options
, "defaults"))
71 o
= specifier_escape(options
);
75 fprintf(f
, "Options=%s\n", o
);
79 static int write_what(FILE *f
, const char *what
) {
80 _cleanup_free_
char *w
= NULL
;
82 w
= specifier_escape(what
);
86 fprintf(f
, "What=%s\n", w
);
93 MountpointFlags flags
) {
95 _cleanup_free_
char *name
= NULL
;
96 _cleanup_fclose_
FILE *f
= NULL
;
102 if (!arg_swap_enabled
) {
103 log_info("Swap unit generation disabled on kernel command line, ignoring fstab swap entry for %s.", what
);
107 if (access("/proc/swaps", F_OK
) < 0) {
108 log_info("Swap not supported, ignoring fstab swap entry for %s.", what
);
112 if (detect_container() > 0) {
113 log_info("Running in a container, ignoring fstab swap entry for %s.", what
);
117 r
= unit_name_from_path(what
, ".swap", &name
);
119 return log_error_errno(r
, "Failed to generate unit name: %m");
121 r
= generator_open_unit_file(arg_dest
, fstab_path(), name
, &f
);
127 "Documentation=man:fstab(5) man:systemd-fstab-generator(8)\n"
131 r
= generator_write_blockdev_dependency(f
, what
);
139 r
= write_what(f
, what
);
143 r
= write_options(f
, me
->mnt_opts
);
147 r
= fflush_and_check(f
);
149 return log_error_errno(r
, "Failed to write unit file %s: %m", name
);
151 /* use what as where, to have a nicer error message */
152 r
= generator_write_timeouts(arg_dest
, what
, what
, me
->mnt_opts
, NULL
);
156 if (flags
& MAKEFS
) {
157 r
= generator_hook_up_mkswap(arg_dest
, what
);
163 /* TODO: swap devices must be wiped and recreated */
164 log_warning("%s: growing swap devices is currently unsupported.", what
);
166 if (!(flags
& NOAUTO
)) {
167 r
= generator_add_symlink(arg_dest
, SPECIAL_SWAP_TARGET
,
168 (flags
& NOFAIL
) ? "wants" : "requires", name
);
176 static bool mount_is_network(struct mntent
*me
) {
179 return fstab_test_option(me
->mnt_opts
, "_netdev\0") ||
180 fstype_is_network(me
->mnt_type
);
183 static bool mount_in_initrd(struct mntent
*me
) {
186 return fstab_test_option(me
->mnt_opts
, "x-initrd.mount\0") ||
187 streq(me
->mnt_dir
, "/usr");
190 static int write_timeout(
195 const char *variable
) {
197 _cleanup_free_
char *timeout
= NULL
;
198 char timespan
[FORMAT_TIMESPAN_MAX
];
202 r
= fstab_filter_options(opts
, filter
, NULL
, &timeout
, NULL
);
204 return log_warning_errno(r
, "Failed to parse options: %m");
208 r
= parse_sec_fix_0(timeout
, &u
);
210 log_warning("Failed to parse timeout for %s, ignoring: %s", where
, timeout
);
214 fprintf(f
, "%s=%s\n", variable
, format_timespan(timespan
, sizeof(timespan
), u
, 0));
219 static int write_idle_timeout(FILE *f
, const char *where
, const char *opts
) {
220 return write_timeout(f
, where
, opts
,
221 "x-systemd.idle-timeout\0", "TimeoutIdleSec");
224 static int write_mount_timeout(FILE *f
, const char *where
, const char *opts
) {
225 return write_timeout(f
, where
, opts
,
226 "x-systemd.mount-timeout\0", "TimeoutSec");
229 static int write_dependency(
233 const char *format
) {
235 _cleanup_strv_free_
char **names
= NULL
, **units
= NULL
;
236 _cleanup_free_
char *res
= NULL
;
243 r
= fstab_extract_values(opts
, filter
, &names
);
245 return log_warning_errno(r
, "Failed to parse options: %m");
249 STRV_FOREACH(s
, names
) {
252 r
= unit_name_mangle_with_suffix(*s
, "as dependency", 0, ".mount", &x
);
254 return log_error_errno(r
, "Failed to generate unit name: %m");
256 r
= strv_consume(&units
, x
);
262 res
= strv_join(units
, " ");
265 #pragma GCC diagnostic push
266 #pragma GCC diagnostic ignored "-Wformat-nonliteral"
267 fprintf(f
, format
, res
);
268 #pragma GCC diagnostic pop
274 static int write_after(FILE *f
, const char *opts
) {
275 return write_dependency(f
, opts
,
276 "x-systemd.after", "After=%1$s\n");
279 static int write_requires_after(FILE *f
, const char *opts
) {
280 return write_dependency(f
, opts
,
281 "x-systemd.requires", "After=%1$s\nRequires=%1$s\n");
284 static int write_before(FILE *f
, const char *opts
) {
285 return write_dependency(f
, opts
,
286 "x-systemd.before", "Before=%1$s\n");
289 static int write_requires_mounts_for(FILE *f
, const char *opts
) {
290 _cleanup_strv_free_
char **paths
= NULL
, **paths_escaped
= NULL
;
291 _cleanup_free_
char *res
= NULL
;
297 r
= fstab_extract_values(opts
, "x-systemd.requires-mounts-for", &paths
);
299 return log_warning_errno(r
, "Failed to parse options: %m");
303 r
= specifier_escape_strv(paths
, &paths_escaped
);
305 return log_error_errno(r
, "Failed to escape paths: %m");
307 res
= strv_join(paths_escaped
, " ");
311 fprintf(f
, "RequiresMountsFor=%s\n", res
);
316 static int add_mount(
320 const char *original_where
,
324 MountpointFlags flags
,
326 const char *source
) {
330 *automount_name
= NULL
,
332 *where_escaped
= NULL
;
333 _cleanup_strv_free_
char **wanted_by
= NULL
, **required_by
= NULL
;
334 _cleanup_fclose_
FILE *f
= NULL
;
343 if (streq_ptr(fstype
, "autofs"))
346 if (!is_path(where
)) {
347 log_warning("Mount point %s is not a valid path, ignoring.", where
);
351 if (mount_point_is_api(where
) ||
352 mount_point_ignore(where
))
355 r
= fstab_extract_values(opts
, "x-systemd.wanted-by", &wanted_by
);
359 r
= fstab_extract_values(opts
, "x-systemd.required-by", &required_by
);
363 if (path_equal(where
, "/")) {
365 log_warning("Ignoring \"noauto\" for root device");
367 log_warning("Ignoring \"nofail\" for root device");
368 if (flags
& AUTOMOUNT
)
369 log_warning("Ignoring automount option for root device");
370 if (!strv_isempty(wanted_by
))
371 log_warning("Ignoring \"x-systemd.wanted-by=\" for root device");
372 if (!strv_isempty(required_by
))
373 log_warning("Ignoring \"x-systemd.required-by=\" for root device");
375 required_by
= strv_free(required_by
);
376 wanted_by
= strv_free(wanted_by
);
377 SET_FLAG(flags
, NOAUTO
| NOFAIL
| AUTOMOUNT
, false);
380 r
= unit_name_from_path(where
, ".mount", &name
);
382 return log_error_errno(r
, "Failed to generate unit name: %m");
384 r
= generator_open_unit_file(dest
, fstab_path(), name
, &f
);
390 "Documentation=man:fstab(5) man:systemd-fstab-generator(8)\n"
394 /* All mounts under /sysroot need to happen later, at initrd-fs.target time. IOW, it's not
395 * technically part of the basic initrd filesystem itself, and so shouldn't inherit the default
396 * Before=local-fs.target dependency. */
397 if (in_initrd() && path_startswith(where
, "/sysroot"))
398 fprintf(f
, "DefaultDependencies=no\n");
400 if (STRPTR_IN_SET(fstype
, "nfs", "nfs4") && !(flags
& AUTOMOUNT
) &&
401 fstab_test_yes_no_option(opts
, "bg\0" "fg\0")) {
402 /* The default retry timeout that mount.nfs uses for 'bg' mounts
403 * is 10000 minutes, where as it uses 2 minutes for 'fg' mounts.
404 * As we are making 'bg' mounts look like an 'fg' mount to
405 * mount.nfs (so systemd can manage the job-control aspects of 'bg'),
406 * we need to explicitly preserve that default, and also ensure
407 * the systemd mount-timeout doesn't interfere.
408 * By placing these options first, they can be over-ridden by
409 * settings in /etc/fstab. */
410 opts
= strjoina("x-systemd.mount-timeout=infinity,retry=10000,", opts
, ",fg");
411 SET_FLAG(flags
, NOFAIL
, true);
414 if (!(flags
& NOFAIL
) && !(flags
& AUTOMOUNT
))
415 fprintf(f
, "Before=%s\n", post
);
417 if (!(flags
& AUTOMOUNT
) && opts
) {
418 r
= write_after(f
, opts
);
421 r
= write_requires_after(f
, opts
);
424 r
= write_before(f
, opts
);
427 r
= write_requires_mounts_for(f
, opts
);
433 r
= generator_write_fsck_deps(f
, dest
, what
, where
, fstype
);
438 r
= generator_write_blockdev_dependency(f
, what
);
447 fprintf(f
, "# Canonicalized from %s\n", original_where
);
449 where_escaped
= specifier_escape(where
);
452 fprintf(f
, "Where=%s\n", where_escaped
);
454 r
= write_what(f
, what
);
458 if (!isempty(fstype
) && !streq(fstype
, "auto")) {
459 _cleanup_free_
char *t
;
461 t
= specifier_escape(fstype
);
465 fprintf(f
, "Type=%s\n", t
);
468 r
= generator_write_timeouts(dest
, what
, where
, opts
, &filtered
);
472 r
= generator_write_device_deps(dest
, what
, where
, opts
);
476 r
= write_mount_timeout(f
, where
, opts
);
480 r
= write_options(f
, filtered
);
484 r
= fflush_and_check(f
);
486 return log_error_errno(r
, "Failed to write unit file %s: %m", name
);
488 if (flags
& MAKEFS
) {
489 r
= generator_hook_up_mkfs(dest
, what
, where
, fstype
);
494 if (flags
& GROWFS
) {
495 r
= generator_hook_up_growfs(dest
, where
, post
);
500 if (!FLAGS_SET(flags
, AUTOMOUNT
)) {
501 if (!FLAGS_SET(flags
, NOAUTO
) && strv_isempty(wanted_by
) && strv_isempty(required_by
)) {
502 r
= generator_add_symlink(dest
, post
,
503 (flags
& NOFAIL
) ? "wants" : "requires", name
);
509 STRV_FOREACH(s
, wanted_by
) {
510 r
= generator_add_symlink(dest
, *s
, "wants", name
);
515 STRV_FOREACH(s
, required_by
) {
516 r
= generator_add_symlink(dest
, *s
, "requires", name
);
522 r
= unit_name_from_path(where
, ".automount", &automount_name
);
524 return log_error_errno(r
, "Failed to generate unit name: %m");
528 r
= generator_open_unit_file(dest
, fstab_path(), automount_name
, &f
);
535 "Documentation=man:fstab(5) man:systemd-fstab-generator(8)\n",
538 fprintf(f
, "Before=%s\n", post
);
541 r
= write_after(f
, opts
);
544 r
= write_requires_after(f
, opts
);
547 r
= write_before(f
, opts
);
550 r
= write_requires_mounts_for(f
, opts
);
561 r
= write_idle_timeout(f
, where
, opts
);
565 r
= fflush_and_check(f
);
567 return log_error_errno(r
, "Failed to write unit file %s: %m", automount_name
);
569 r
= generator_add_symlink(dest
, post
,
570 (flags
& NOFAIL
) ? "wants" : "requires", automount_name
);
578 static int parse_fstab(bool initrd
) {
579 _cleanup_endmntent_
FILE *f
= NULL
;
584 fstab
= initrd
? "/sysroot/etc/fstab" : fstab_path();
585 log_debug("Parsing %s...", fstab
);
587 f
= setmntent(fstab
, "re");
592 return log_error_errno(errno
, "Failed to open %s: %m", fstab
);
595 while ((me
= getmntent(f
))) {
596 _cleanup_free_
char *where
= NULL
, *what
= NULL
, *canonical_where
= NULL
;
597 bool makefs
, growfs
, noauto
, nofail
;
600 if (initrd
&& !mount_in_initrd(me
))
603 what
= fstab_node_to_udev_node(me
->mnt_fsname
);
607 if (is_device_path(what
) && path_is_read_only_fs("/sys") > 0) {
608 log_info("Running in a container, ignoring fstab device entry for %s.", what
);
612 where
= strdup(me
->mnt_dir
);
616 if (is_path(where
)) {
617 path_simplify(where
, false);
619 /* Follow symlinks here; see 5261ba901845c084de5a8fd06500ed09bfb0bd80 which makes sense for
620 * mount units, but causes problems since it historically worked to have symlinks in e.g.
621 * /etc/fstab. So we canonicalize here. Note that we use CHASE_NONEXISTENT to handle the case
622 * where a symlink refers to another mount target; this works assuming the sub-mountpoint
623 * target is the final directory. */
624 r
= chase_symlinks(where
, initrd
? "/sysroot" : NULL
,
625 CHASE_PREFIX_ROOT
| CHASE_NONEXISTENT
,
626 &canonical_where
, NULL
);
627 if (r
< 0) /* If we can't canonicalize we continue on as if it wasn't a symlink */
628 log_debug_errno(r
, "Failed to read symlink target for %s, ignoring: %m", where
);
629 else if (streq(canonical_where
, where
)) /* If it was fully canonicalized, suppress the change */
630 canonical_where
= mfree(canonical_where
);
632 log_debug("Canonicalized what=%s where=%s to %s", what
, where
, canonical_where
);
635 makefs
= fstab_test_option(me
->mnt_opts
, "x-systemd.makefs\0");
636 growfs
= fstab_test_option(me
->mnt_opts
, "x-systemd.growfs\0");
637 noauto
= fstab_test_yes_no_option(me
->mnt_opts
, "noauto\0" "auto\0");
638 nofail
= fstab_test_yes_no_option(me
->mnt_opts
, "nofail\0" "fail\0");
640 log_debug("Found entry what=%s where=%s type=%s makefs=%s growfs=%s noauto=%s nofail=%s",
641 what
, where
, me
->mnt_type
,
642 yes_no(makefs
), yes_no(growfs
),
643 yes_no(noauto
), yes_no(nofail
));
645 if (streq(me
->mnt_type
, "swap"))
646 k
= add_swap(what
, me
,
647 makefs
*MAKEFS
| growfs
*GROWFS
| noauto
*NOAUTO
| nofail
*NOFAIL
);
652 automount
= fstab_test_option(me
->mnt_opts
,
653 "comment=systemd.automount\0"
654 "x-systemd.automount\0");
656 post
= SPECIAL_INITRD_FS_TARGET
;
657 else if (mount_is_network(me
))
658 post
= SPECIAL_REMOTE_FS_TARGET
;
660 post
= SPECIAL_LOCAL_FS_TARGET
;
662 k
= add_mount(arg_dest
,
664 canonical_where
?: where
,
665 canonical_where
? where
: NULL
,
669 makefs
*MAKEFS
| growfs
*GROWFS
| noauto
*NOAUTO
| nofail
*NOFAIL
| automount
*AUTOMOUNT
,
681 static int add_sysroot_mount(void) {
682 _cleanup_free_
char *what
= NULL
;
686 if (isempty(arg_root_what
)) {
687 log_debug("Could not find a root= entry on the kernel command line.");
691 if (streq(arg_root_what
, "gpt-auto")) {
692 /* This is handled by the gpt-auto generator */
693 log_debug("Skipping root directory handling, as gpt-auto was requested.");
697 if (path_equal(arg_root_what
, "/dev/nfs")) {
698 /* This is handled by the kernel or the initrd */
699 log_debug("Skipping root directory handling, as /dev/nfs was requested.");
703 what
= fstab_node_to_udev_node(arg_root_what
);
707 if (!arg_root_options
)
708 opts
= arg_root_rw
> 0 ? "rw" : "ro";
709 else if (arg_root_rw
>= 0 ||
710 !fstab_test_option(arg_root_options
, "ro\0" "rw\0"))
711 opts
= strjoina(arg_root_options
, ",", arg_root_rw
> 0 ? "rw" : "ro");
713 opts
= arg_root_options
;
715 log_debug("Found entry what=%s where=/sysroot type=%s", what
, strna(arg_root_fstype
));
717 if (is_device_path(what
)) {
718 r
= generator_write_initrd_root_device_deps(arg_dest
, what
);
723 return add_mount(arg_dest
,
729 is_device_path(what
) ? 1 : 0, /* passno */
730 0, /* makefs off, growfs off, noauto off, nofail off, automount off */
731 SPECIAL_INITRD_ROOT_FS_TARGET
,
735 static int add_sysroot_usr_mount(void) {
736 _cleanup_free_
char *what
= NULL
;
739 if (!arg_usr_what
&& !arg_usr_fstype
&& !arg_usr_options
)
742 if (arg_root_what
&& !arg_usr_what
) {
743 /* Copy over the root device, in case the /usr mount just differs in a mount option (consider btrfs subvolumes) */
744 arg_usr_what
= strdup(arg_root_what
);
749 if (arg_root_fstype
&& !arg_usr_fstype
) {
750 arg_usr_fstype
= strdup(arg_root_fstype
);
755 if (arg_root_options
&& !arg_usr_options
) {
756 arg_usr_options
= strdup(arg_root_options
);
757 if (!arg_usr_options
)
764 what
= fstab_node_to_udev_node(arg_usr_what
);
768 if (!arg_usr_options
)
769 opts
= arg_root_rw
> 0 ? "rw" : "ro";
770 else if (!fstab_test_option(arg_usr_options
, "ro\0" "rw\0"))
771 opts
= strjoina(arg_usr_options
, ",", arg_root_rw
> 0 ? "rw" : "ro");
773 opts
= arg_usr_options
;
775 log_debug("Found entry what=%s where=/sysroot/usr type=%s", what
, strna(arg_usr_fstype
));
776 return add_mount(arg_dest
,
782 is_device_path(what
) ? 1 : 0, /* passno */
784 SPECIAL_INITRD_FS_TARGET
,
788 static int add_volatile_root(void) {
790 /* Let's add in systemd-remount-volatile.service which will remount the root device to tmpfs if this is
791 * requested (or as an overlayfs), leaving only /usr from the root mount inside. */
793 if (!IN_SET(arg_volatile_mode
, VOLATILE_YES
, VOLATILE_OVERLAY
))
796 return generator_add_symlink(arg_dest
, SPECIAL_INITRD_ROOT_FS_TARGET
, "requires",
797 SYSTEM_DATA_UNIT_PATH
"/" SPECIAL_VOLATILE_ROOT_SERVICE
);
800 static int add_volatile_var(void) {
802 if (arg_volatile_mode
!= VOLATILE_STATE
)
805 /* If requested, mount /var as tmpfs, but do so only if there's nothing else defined for this. */
807 return add_mount(arg_dest_late
,
815 SPECIAL_LOCAL_FS_TARGET
,
819 static int parse_proc_cmdline_item(const char *key
, const char *value
, void *data
) {
822 /* root=, usr=, usrfstype= and roofstype= may occur more than once, the last
823 * instance should take precedence. In the case of multiple rootflags=
824 * or usrflags= the arguments should be concatenated */
826 if (STR_IN_SET(key
, "fstab", "rd.fstab")) {
828 r
= value
? parse_boolean(value
) : 1;
830 log_warning("Failed to parse fstab switch %s. Ignoring.", value
);
832 arg_fstab_enabled
= r
;
834 } else if (streq(key
, "root")) {
836 if (proc_cmdline_value_missing(key
, value
))
839 if (free_and_strdup(&arg_root_what
, value
) < 0)
842 } else if (streq(key
, "rootfstype")) {
844 if (proc_cmdline_value_missing(key
, value
))
847 if (free_and_strdup(&arg_root_fstype
, value
) < 0)
850 } else if (streq(key
, "rootflags")) {
852 if (proc_cmdline_value_missing(key
, value
))
855 if (!strextend_with_separator(&arg_root_options
, ",", value
, NULL
))
858 } else if (streq(key
, "roothash")) {
860 if (proc_cmdline_value_missing(key
, value
))
863 if (free_and_strdup(&arg_root_hash
, value
) < 0)
866 } else if (streq(key
, "mount.usr")) {
868 if (proc_cmdline_value_missing(key
, value
))
871 if (free_and_strdup(&arg_usr_what
, value
) < 0)
874 } else if (streq(key
, "mount.usrfstype")) {
876 if (proc_cmdline_value_missing(key
, value
))
879 if (free_and_strdup(&arg_usr_fstype
, value
) < 0)
882 } else if (streq(key
, "mount.usrflags")) {
884 if (proc_cmdline_value_missing(key
, value
))
887 if (!strextend_with_separator(&arg_usr_options
, ",", value
, NULL
))
890 } else if (streq(key
, "rw") && !value
)
892 else if (streq(key
, "ro") && !value
)
894 else if (streq(key
, "systemd.volatile")) {
898 m
= volatile_mode_from_string(value
);
900 log_warning("Failed to parse systemd.volatile= argument: %s", value
);
902 arg_volatile_mode
= m
;
904 arg_volatile_mode
= VOLATILE_YES
;
906 } else if (streq(key
, "systemd.swap")) {
908 r
= value
? parse_boolean(value
) : 1;
910 log_warning("Failed to parse systemd.swap switch %s. Ignoring.", value
);
912 arg_swap_enabled
= r
;
918 static int determine_root(void) {
919 /* If we have a root hash but no root device then Verity is used, and we use the "root" DM device as root. */
927 arg_root_what
= strdup("/dev/mapper/root");
931 log_info("Using verity root device %s.", arg_root_what
);
936 static int run(const char *dest
, const char *dest_early
, const char *dest_late
) {
937 int r
, r2
= 0, r3
= 0;
939 assert_se(arg_dest
= dest
);
940 assert_se(arg_dest_late
= dest_late
);
942 r
= proc_cmdline_parse(parse_proc_cmdline_item
, NULL
, 0);
944 log_warning_errno(r
, "Failed to parse kernel command line, ignoring: %m");
946 (void) determine_root();
948 /* Always honour root= and usr= in the kernel command line if we are in an initrd */
950 r
= add_sysroot_mount();
952 r2
= add_sysroot_usr_mount();
954 r3
= add_volatile_root();
956 r
= add_volatile_var();
958 /* Honour /etc/fstab only when that's enabled */
959 if (arg_fstab_enabled
) {
960 /* Parse the local /etc/fstab, possibly from the initrd */
961 r2
= parse_fstab(false);
963 /* If running in the initrd also parse the /etc/fstab from the host */
965 r3
= parse_fstab(true);
967 r3
= generator_enable_remount_fs_service(arg_dest
);
970 return r
< 0 ? r
: r2
< 0 ? r2
: r3
;
973 DEFINE_MAIN_GENERATOR_FUNCTION(run
);