diff options
| author | Richard Jones <rjones@trick.home.annexia.org> | 2009-06-22 15:07:42 +0100 |
|---|---|---|
| committer | Richard Jones <rjones@trick.home.annexia.org> | 2009-06-22 15:07:42 +0100 |
| commit | 227b1eea90713d190a9cf5463af106af0b4eee2c (patch) | |
| tree | a56af6f20f44e059ba4130a7b7ff90d9c64adf99 /src | |
| parent | 3eab7260a5e36ce6da0dff39456eb9100a13222b (diff) | |
| download | libguestfs-227b1eea90713d190a9cf5463af106af0b4eee2c.tar.gz libguestfs-227b1eea90713d190a9cf5463af106af0b4eee2c.tar.xz libguestfs-227b1eea90713d190a9cf5463af106af0b4eee2c.zip | |
Check parameter types in Ruby bindings (RHBZ#507346).
Diffstat (limited to 'src')
| -rwxr-xr-x | src/generator.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/generator.ml b/src/generator.ml index f4b56050..341924f1 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -6500,6 +6500,7 @@ static VALUE ruby_guestfs_close (VALUE gv) List.iter ( function | String n | FileIn n | FileOut n -> + pr " Check_Type (%sv, T_STRING);\n" n; pr " const char *%s = StringValueCStr (%sv);\n" n n; pr " if (!%s)\n" n; pr " rb_raise (rb_eTypeError, \"expected string for parameter %%s of %%s\",\n"; @@ -6508,6 +6509,7 @@ static VALUE ruby_guestfs_close (VALUE gv) pr " const char *%s = !NIL_P (%sv) ? StringValueCStr (%sv) : NULL;\n" n n n | StringList n -> pr " char **%s;\n" n; + pr " Check_Type (%sv, T_ARRAY);\n" n; pr " {\n"; pr " int i, len;\n"; pr " len = RARRAY_LEN (%sv);\n" n; |