diff options
-rw-r--r-- | MDK/Common/File.pm | 3 | ||||
-rw-r--r-- | perl-MDK-Common.spec | 7 | ||||
-rw-r--r-- | perl_checker.src/global_checks.ml | 2 | ||||
-rw-r--r-- | perl_checker.src/lexer.mll | 4 | ||||
-rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 19 |
5 files changed, 30 insertions, 5 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index 49225a1..cc5f3b6 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -140,6 +140,7 @@ sub mkdir_p { mkdir_p(dirname($dir)); mkdir($dir, 0755) or die "mkdir: error creating directory $dir: $!\n"; } + 1; } sub rm_rf { @@ -151,6 +152,7 @@ sub rm_rf { unlink $_ or die "rm of $_ failed: $!\n"; } } + 1; } sub cp_af { @@ -179,6 +181,7 @@ sub cp_af { chmod((stat($src))[2], $dest); } } + 1; } sub touch { diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index 5e714ec..fbca036 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -2,7 +2,7 @@ # do not change the version here, change in MDK/Common.pm.pl %define version THEVERSION -%define release 11mdk +%define release 12mdk Summary: Various simple functions Name: perl-MDK-Common @@ -51,6 +51,11 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Sat Dec 28 2002 Pixel <pixel@mandrakesoft.com> 1.0.4-12mdk +- perl_checker: add some more Gtk2 functions +- MDK::Common::File: mkdir_p, rm_rf and cp_af returns 1 on success + (allowing "eval { mkdir_p() } or ...") + * Wed Dec 18 2002 Pixel <pixel@mandrakesoft.com> 1.0.4-11mdk - perl_checker: many new features including - checking methods being available diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index 086d633..d74e96e 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -146,7 +146,7 @@ let is_global_var context ident = | "rand" | "read" | "readdir" | "readlink" | "redo" | "ref" | "rename" | "require" | "return" | "reverse" | "rindex" | "rmdir" | "scalar" | "seek" | "select" | "setpwent" | "shift" | "sleep" | "sort" | "splice" | "split" | "sprintf" | "stat" | "substr" | "symlink" | "syscall" | "sysopen" | "sysread" | "sysseek" | "system" | "syswrite" | "tie" | "time" - | "uc" | "ucfirst" | "umask" | "undef" | "unlink" | "unpack" | "unshift" | "utime" | "values" | "vec" | "waitpid" | "wantarray" | "warn" | "write" + | "uc" | "ucfirst" | "umask" | "undef" | "unlink" | "unpack" | "unshift" | "utime" | "values" | "vec" | "wait" | "waitpid" | "wantarray" | "warn" | "write" -> true | _ -> false) diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 430770f..424a422 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -777,7 +777,7 @@ and string_interpolate_array = parse | '{' [^ '{' '}']* '}' | (ident | (ident? ("::" ident)+)) { string_interpolate token "@" lexbuf } -| [ '@' '*' '<' '>' ']' '.' '('] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | '"' { putback lexbuf 1; next_s "@" (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } @@ -787,7 +787,7 @@ and delimited_string_interpolate_array = parse | '{' [^ '{' '}']* '}' | (ident | (ident? ("::" ident)+)) { string_interpolate token "@" lexbuf } -| [ '@' '*' '<' '>' ']' '.' '('] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { let c = lexeme_char lexbuf 0 in diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 89f3021..86f5dbe 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -3,12 +3,15 @@ package Gtk2; our @ISA = qw(); sub Gtk2::x {} +sub XWINDOW {} sub action_area {} sub active {} sub add_accel_group {} sub add_events {} sub add_with_viewport {} sub allocation {} +sub allow_grow {} +sub allow_shrink {} sub append {} sub append_column {} sub append_item {} @@ -16,8 +19,12 @@ sub append_items {} sub append_page {} sub append_set {} sub apply_tag {} +sub area {} sub attach {} sub bg_gc {} +sub black_gc {} +sub black_gc {} +sub button {} sub can {} sub can_default {} sub can_focus {} @@ -26,11 +33,16 @@ sub child {} sub children {} sub clear {} sub collapse_all {} +sub composite {} +sub copy {} sub create_items {} sub create_pango_layout {} sub create_tag {} sub dir_list {} sub disable_activate {} +sub draw {} +sub draw_arc {} +sub draw_drawable {} sub draw_layout {} sub draw_rectangle {} sub entry {} @@ -38,6 +50,7 @@ sub expand {} sub expand_all {} sub fg_gc {} sub file_list {} +sub fill {} sub free {} sub get {} sub get_buffer {} @@ -89,6 +102,7 @@ sub queue_draw {} sub realize {} sub render_to_drawable {} sub rgb_find_color {} +sub saturate_and_pixelate {} sub selection_entry {} sub set {} sub set_active {} @@ -96,12 +110,14 @@ sub set_back_pixmap {} sub set_background {} sub set_border_width {} sub set_col_spacings {} +sub set_current_page {} sub set_cursor {} sub set_cursor_visible {} sub set_editable {} sub set_events {} sub set_filename {} sub set_focus_vadjustment {} +sub set_has_window {} sub set_headers_visible {} sub set_justify {} sub set_layout {} @@ -137,6 +153,7 @@ sub signal_connect {} sub signal_disconnect {} sub size {} sub state {} +sub steal {} sub style {} sub toggle_expansion {} sub unref {} @@ -147,7 +164,7 @@ sub widget {} sub width {} sub window {} sub window_position {} -sub y {} ;#; +sub y {};#; sub bootstrap {} sub exit {} |