diff options
| author | Jim Meyering <meyering@redhat.com> | 2009-08-12 10:57:03 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2009-08-13 14:45:34 +0200 |
| commit | 3a5a66de8f847a0ff11fdcf6c1644e19aa54c0f7 (patch) | |
| tree | 55a9de071d28b1b2a7ea744387736db9a886377c /src | |
| parent | 08c27722647d14a30648dd02e221e1e803d1189e (diff) | |
| download | libguestfs-3a5a66de8f847a0ff11fdcf6c1644e19aa54c0f7.tar.gz libguestfs-3a5a66de8f847a0ff11fdcf6c1644e19aa54c0f7.tar.xz libguestfs-3a5a66de8f847a0ff11fdcf6c1644e19aa54c0f7.zip | |
generator.ml: factor out "pr_args n" function
Diffstat (limited to 'src')
| -rwxr-xr-x | src/generator.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/generator.ml b/src/generator.ml index b43b3bfa..9d961703 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -4757,18 +4757,21 @@ and generate_daemon_actions () = pr " reply_with_error (\"%%s: daemon failed to decode procedure arguments\", \"%s\");\n" name; pr " return;\n"; pr " }\n"; + let pr_args n = + pr " char *%s = args.%s;\n" n n + in List.iter ( function | Pathname n -> - pr " char *%s = args.%s;\n" n n; + pr_args n; pr " ABS_PATH (%s, goto done);\n" n; | Device n -> - pr " char *%s = args.%s;\n" n n; + pr_args n; pr " RESOLVE_DEVICE (%s, goto done);" n; | Dev_or_Path n -> - pr " char *%s = args.%s;\n" n n; + pr_args n; pr " REQUIRE_ROOT_OR_RESOLVE_DEVICE (%s, goto done);" n; - | String n -> pr " char *%s = args.%s;\n" n n + | String n -> pr_args n | OptString n -> pr " %s = args.%s ? *args.%s : NULL;\n" n n n | StringList n -> pr " %s = realloc (args.%s.%s_val,\n" n n n; |