supplement 2.26 → 2.29

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 6a901ea1ffc61c2fc508aa25ecded2cdf4668547f9dccdfa9b8cfbe7e8aea505
-  data.tar.gz: b156a06a97b495b524550fc903de39a7db9f007451aa6102ac50e66391a304a5
+  metadata.gz: 9d98b193bc4d1cc8ede4e690103285660b92acbef10bc2c8c9fbe9774968b55e
+  data.tar.gz: ce38aef42ac4a5aceb953eee5090d62b09da647c6badd39eb13fcf6ae75124d7
 SHA512:
-  metadata.gz: 197c7244e880680e7e9623236dc2e81bfa76f54df5708c75a73d9fd839f40bcd835b2a3e99e89e99ffbffa54386ef0c09de421e6b761937860dd8047119f58c9
-  data.tar.gz: a73e89d0257c48cd54916446ec507ed431e01451bb52cc29d6b50e65517b18b02c8aebd351d924c8f95588d15af8cc3e1ca4349504540150f40a922cb0a1c1f0
+  metadata.gz: c8a1ca6542111abec4919e6b0fafbc665e88baf3de003ccb696586060b4508f0d8c95c5a85d5b2b2bbab85aad0f2c7132bee0458dd64f799d6825c8f404e6754
+  data.tar.gz: 30703341388fdd2895f68879925eef1d4a1e94c22e177470cc7689b5e7a0addd5693bab20969afa8b127e6a137e5794dba323bdf2d1e2824adfe73b813103dc5

data/LICENSE

@@ -1,20 +1,24 @@
-= supplement Ruby Gem
+# BSD-2-clause license, extended by language use conditions
 
-
-Copyright (C) 2009-2024, Bertram Scharpf <software@bertram-scharpf.de>.
+Copyright (C) 2009-2025, Bertram Scharpf <software@bertram-scharpf.de>.
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
 modification, are permitted provided that the following conditions are
 met:
 
-    * Redistributions of source code must retain the above copyright
-      notice, this list of conditions and the following disclaimer.
+  * Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+
+  * Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in
+    the documentation and/or other materials provided with the
+    distribution.
 
-    * Redistributions in binary form must reproduce the above copyright
-      notice, this list of conditions and the following disclaimer in
-      the documentation and/or other materials provided with the
-      distribution.
+  * Redistributions must not contain any clauses about anticipated
+    harassment or discrimination, nor must they be held in a so-called
+    "inclusive language". As far as German language is used, the
+    conditions mentioned below additionally apply.
 
 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
@@ -28,3 +32,21 @@ LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+
+## Use of the German Language
+
+Beim Gebrauch deutscher Sprache sind Weiterentwicklungen und
+-verbreitungen nur gestattet unter Einhaltung sowie abermaligen
+Einforderns folgender zusätzlicher Bedingungen:
+
+  * Keine Verwendung von sogenannter „geschlechtergerechter Sprache“,
+    also Anfügen von weiblichen Endungen mit Binnen-I, Sternchen,
+    Doppelpunkt, Unterstrich oder ähnlichem, oder Konstruktionen, die
+    den Sachverhalt falsch wiedergeben („Radfahrende“, „Studierende“).
+
+  * Keine Verwendung der „reformierten Rechtschreibung“ von 1996,
+    insbesondere Doppel-S am Silbenende, „plazieren“ mit T, sowie
+    Großschreibung von Wendungen wie „des weiteren“.
+
+
+<!-- vim:set ft=markdown : -->

data/README.md

@@ -0,0 +1,54 @@
+# supplement 2.29  --  Useful Ruby enhancements
+
+Some simple Ruby extensions.
+
+
+## Motivation
+
+The original motivation was my conviction that a language that has a
+`Numeric#nonzero?` method induces a programming style that as well demands
+for a `String#notempty?` method.
+
+
+## Description
+
+These are methods on standard classes that didn't manage to become part of
+the Ruby interpreter. (Although, some did in the meantime.)
+
+They are all very small, most of them have less than 15 lines of code.
+So they would not be a weight in the Ruby interpreter but it is very
+difficult to convince a majority that they belong there.
+
+The methods won't be useful for everybody but some programmers may like
+to make them part of their programming style.
+
+If you like to get taunted, then go to the Ruby mailing list and propose
+one of them to be included into the Ruby standard.
+
+
+## Contents (uncomplete)
+
+  * `String#notempty?`
+  * `String#head`
+  * `String#tail`
+  * `String#rest`
+  * `String#starts_with?`/`ends_with?`
+  * `Array#notempty?`
+  * `Array#first=`/`last=`
+  * `Hash#notempty?`
+  * `Struct.[]`
+  * `Integer.roman`
+  * `Date.easter`
+  * `TCPServer/UNIXServer.accept` with a code block
+  * `File system stats`
+  * `Process.renice`
+  * Interval timer
+  * `LockedFile`
+
+
+## Copyright
+
+  * (C) 2009-2025 Bertram Scharpf <software@bertram-scharpf.de>
+  * License: [BSD-2-Clause+](./LICENSE)
+  * Repository: [ruby-supplement](https://github.com/BertramScharpf/ruby-supplement)
+

data/lib/mkrf_conf

@@ -11,13 +11,6 @@ Autorake.configure {
   extending_ruby
 
   if RUBY_VERSION < "3.3" then
-    if RUBY_VERSION < "2.7" then
-      if RUBY_VERSION < "2.6" then
-        enable :dir_children
-      end
-    else
-      enable :super_kwargs
-    end
     enable :old_io_functions
   end
 
@@ -26,10 +19,6 @@ Autorake.configure {
   have_header "ruby/io.h"
   have_header "ruby/re.h"
 
-  have_function "rb_thread_wait_for"
-
-  have_function "cbrt"
-
   have_header "sys/vfs.h"
 }
 

data/lib/supplement/filesys.c

@@ -19,7 +19,14 @@
 
 static struct statfs *get_statfs( VALUE);
 
-static ID id_mul;
+static ID id_mul = 0;
+
+static const rb_data_type_t fsstat_data_type = {
+    "supplement:statfs",
+    { NULL, &ruby_xfree, NULL, NULL},
+    0, 0, RUBY_TYPED_FREE_IMMEDIATELY
+};
+
 
 /*
  *  Document-class: Filesys
@@ -43,7 +50,8 @@ static ID id_mul;
 VALUE
 rb_fsstat_s_alloc( VALUE klass)
 {
-    return Data_Wrap_Struct( klass, NULL, &free, (struct statfs *) NULL);
+    struct statfs *s;
+    return TypedData_Make_Struct( klass, struct statfs, &fsstat_data_type, s);
 }
 
 /*
@@ -57,56 +65,22 @@ rb_fsstat_s_alloc( VALUE klass)
 VALUE
 rb_fsstat_init( VALUE obj, VALUE dname)
 {
-    struct statfs st, *nst;
+    struct statfs *st;
 
-    SafeStringValue( dname);
+    TypedData_Get_Struct( obj, struct statfs, &fsstat_data_type, st);
 
-    if (statfs( StringValueCStr( dname), &st) == -1)
+    SafeStringValue( dname);
+    if (statfs( StringValueCStr( dname), st) == -1)
         rb_sys_fail( RSTRING_PTR(dname));
-    if (DATA_PTR(obj)) {
-        free( DATA_PTR(obj));
-        DATA_PTR(obj) = NULL;
-    }
-    nst = ALLOC(struct statfs);
-    *nst = st;
-    DATA_PTR(obj) = nst;
-
     return Qnil;
 }
 
-/* :nodoc: */
-VALUE
-rb_fsstat_init_copy( VALUE copy, VALUE orig)
-{
-    struct statfs *nst;
-
-    if (copy == orig)
-        return orig;
-
-    rb_check_frozen( copy);
-    if (!rb_obj_is_instance_of( orig, rb_obj_class( copy)))
-        rb_raise(rb_eTypeError, "wrong argument class");
-    if (DATA_PTR(copy)) {
-        free( DATA_PTR(copy));
-        DATA_PTR(copy) = NULL;
-    }
-    if (DATA_PTR(orig)) {
-        nst = ALLOC(struct statfs);
-        *nst = *(struct statfs *) DATA_PTR(orig);
-        DATA_PTR(copy) = nst;
-    }
-
-    return copy;
-}
 
-/* :nodoc: */
 struct statfs *
 get_statfs( VALUE self)
 {
     struct statfs *st;
-    Data_Get_Struct(self, struct statfs, st);
-    if (!st)
-        rb_raise( rb_eTypeError, "uninitialized Filesys::Stat");
+    TypedData_Get_Struct( self, struct statfs, &fsstat_data_type, st);
     return st;
 }
 
@@ -360,12 +334,11 @@ void Init_filesys( void)
     VALUE rb_cFilesys;
     VALUE rb_cFilesysStat;
 
-    rb_cFilesys = rb_define_class( "Filesys", rb_cObject);
+    rb_cFilesys = rb_define_module( "Filesys");
 
     rb_cFilesysStat = rb_define_class_under( rb_cFilesys, "Stat", rb_cObject);
-    rb_define_alloc_func( rb_cFilesysStat,  rb_fsstat_s_alloc);
+    rb_define_alloc_func( rb_cFilesysStat, rb_fsstat_s_alloc);
     rb_define_method( rb_cFilesysStat, "initialize", rb_fsstat_init, 1);
-    rb_define_method( rb_cFilesysStat, "initialize_copy", rb_fsstat_init_copy, 1);
 
     rb_define_method( rb_cFilesysStat, "type",   rb_fsstat_type  , 0);
     rb_define_method( rb_cFilesysStat, "bsize",  rb_fsstat_bsize , 0);

data/lib/supplement/locked.c

@@ -31,20 +31,14 @@ rb_locked_init( int argc, VALUE *argv, VALUE self)
 #ifdef FEATURE_OLD_IO_FUNCTIONS
     rb_io_t *fptr;
 #endif
-#ifdef HAVE_FUNC_RB_THREAD_WAIT_FOR
     struct timeval time;
-#endif
     int op;
 
 #ifdef FEATURE_OLD_IO_FUNCTIONS
     GetOpenFile( self, fptr);
 #endif
 
-#ifdef FEATURE_SUPER_KWARGS
     rb_call_super_kw(argc, argv, RB_PASS_CALLED_KEYWORDS);
-#else
-    rb_call_super( argc, argv);
-#endif
 
 #ifdef FEATURE_OLD_IO_FUNCTIONS
     op = fptr->mode & FMODE_WRITABLE ? LOCK_EX : LOCK_SH;
@@ -72,13 +66,9 @@ rb_locked_init( int argc, VALUE *argv, VALUE self)
             if (rb_respond_to( self, id_lock_failed))
                 rb_funcall( self, id_lock_failed, 0);
             else {
-#ifdef HAVE_FUNC_RB_THREAD_WAIT_FOR
                 time.tv_sec = 0;
                 time.tv_usec = 100 * 1000;
                 rb_thread_wait_for(time);
-#else
-                rb_thread_polling();
-#endif
             }
             break;
         default:

data/lib/supplement/socket.c

@@ -5,8 +5,8 @@
 #include <ruby/io.h>
 
 
-static ID id_accept_orig;
-static ID id_close;
+static ID id_accept_orig = 0;
+static ID id_close = 0;
 
 static VALUE socket_close( VALUE);
 

data/lib/supplement.c

@@ -10,34 +10,20 @@
 #include <ruby/io.h>
 #include <ruby/re.h>
 
-#ifdef FEATURE_THREAD_EXCLUSIVE
-#ifdef HAVE_HEADER_RUBYSIG_H
-#include <rubysig.h>
-#endif
-#endif
-
 
 static void  supplement_ary_assure_notempty( VALUE);
 static VALUE supplement_index_blk( VALUE);
 static VALUE supplement_index_ref( VALUE, VALUE);
 static VALUE supplement_rindex_blk( VALUE);
 static VALUE supplement_rindex_ref( VALUE, VALUE);
-#ifdef FEATURE_ARRAY_INDEX_WITH_BLOCK
-static VALUE supplement_index_val( VALUE, VALUE);
-static VALUE supplement_rindex_val( VALUE, VALUE);
-#endif
 static VALUE supplement_do_unumask( VALUE);
-#ifdef FEATURE_THREAD_EXCLUSIVE
-static VALUE bsruby_set_thread_critical( VALUE);
-#endif
-
 
 
-static ID id_delete_at;
-static ID id_cmp;
-static ID id_eqq;
-static ID id_mkdir;
-static ID id_index;
+static ID id_delete_at = 0;
+static ID id_cmp = 0;
+static ID id_eqq = 0;
+static ID id_mkdir = 0;
+static ID id_index = 0;
 
 
 
@@ -102,31 +88,6 @@ rb_obj_nil_if( VALUE obj, VALUE val)
  *  Document-module: Kernel
  */
 
-#ifdef FEATURE_KERNEL_TAP
-
-/*
- *  call-seq:
- *     tap { |x| ... }    -> obj
- *
- *  Yields <code>x</code> to the block, and then returns <code>x</code>.
- *  The primary purpose of this method is to "tap into" a method chain,
- *  in order to perform operations on intermediate results within the chain.
- *
- *      (1..10)                  .tap { |x| puts "original: #{x.inspect}" }
- *        .to_a                  .tap { |x| puts "array:    #{x.inspect}" }
- *        .select { |x| x%2==0 } .tap { |x| puts "evens:    #{x.inspect}" }
- *        .map { |x| x*x }       .tap { |x| puts "squares:  #{x.inspect}" }
- *
- */
-
-VALUE
-rb_krn_tap( VALUE obj)
-{
-    rb_yield( obj);
-    return obj;
-}
-
-#endif
 
 /*
  *  call-seq:
@@ -362,30 +323,6 @@ rb_str_cut_bang( VALUE str, VALUE len)
 }
 
 
-#ifdef FEATURE_STRING_CLEAR
-
-/*
- *  call-seq:
- *     clear   -> self
- *
- *  Set to empty string. Equivalent to <code>str.replace ""</code>.
- *
- *     a = "hello"  #=> "hello"
- *     a.clear      #=> ""
- *     a.empty?     #=> true
- */
-
-VALUE
-rb_str_clear( VALUE str)
-{
-    rb_str_modify( str);
-    rb_str_resize( str, 0);
-    return str;
-}
-
-#endif
-
-
 /*
  *  call-seq:
  *     head( n = 1)   -> str
@@ -454,81 +391,97 @@ rb_str_tail( int argc, VALUE *argv, VALUE str)
 }
 
 
-#ifdef FEATURE_STRING_START_WITH
-
 /*
  *  call-seq:
- *     start_with?( oth)   -> true or false
+ *     axe( n = 80)   -> str
  *
- *  Checks whether the head is <code>oth</code>.
+ *  Cut off everthing beyond then <code>n</code>th character. Replace the
+ *  last bytes by ellipses.
  *
- *     "sys-apps".start_with?( "sys-")    #=> true
+ *     a = "Redistribution and use in source and binary forms, with or without"
+ *     a.axe( 16)     #=> "Redistributio..."
  */
 
 VALUE
-rb_str_start_with_p( VALUE str, VALUE oth)
+rb_str_axe( int argc, VALUE *argv, VALUE str)
 {
-    return NIL_P( rb_str_starts_with_p( str, oth)) ? Qfalse : Qtrue;
-}
+    VALUE n;
+    VALUE ret;
+    long newlen, oldlen;
 
+    if (rb_scan_args( argc, argv, "01", &n) == 1 && !NIL_P( n))
+        newlen = NUM2LONG( n);
+    else
+        newlen = 80;
+    if (newlen < 0)
+        return Qnil;
 
-/*
- *  call-seq:
- *     end_with?( oth)   -> true or false
- *
- *  Checks whether the tail is <code>oth</code>.
- *
- *     "sys-apps".end_with?( "-apps")    #=> true
- */
+    oldlen = rb_str_strlen( str);
+    if (newlen < oldlen) {
+        VALUE ell;
+        long e;
 
-VALUE
-rb_str_end_with_p( VALUE str, VALUE oth)
-{
-    return NIL_P( rb_str_ends_with_p( str, oth)) ? Qfalse : Qtrue;
+        ell = rb_str_new2( "...");
+        e = rb_str_strlen( ell);
+        if (newlen > e) {
+            ret = rb_str_substr( str, 0, newlen - e);
+            rb_str_append( ret, ell);
+        } else
+            ret = rb_str_substr( str, 0, newlen);
+    } else
+        ret = str;
+    return ret;
 }
 
-#endif
 
 /*
  *  call-seq:
- *     starts_with?( oth)   -> nil or int
+ *     starts_with?( *oth)   -> nil or int
  *
- *  Checks whether the head is <code>oth</code>. Returns length of
- *  <code>oth</code> when matching.
+ *  Checks whether the head is one of <code>oth</code>. Returns the position
+ *  where the match ends.
  *
  *     "sys-apps".starts_with?( "sys-")    #=> 4
  *
  *  Caution! The Ruby 1.9.3 method #start_with? (notice the missing s)
- *  just returns +true+ or +false+.
+ *  just returns +true+ or +false+. Mnemonics: "s" = prepare for
+ *  <code>#slice</code>.
  */
 
 VALUE
-rb_str_starts_with_p( VALUE str, VALUE oth)
+rb_str_starts_with_p( int argc, VALUE *argv, VALUE str)
 {
-    long i;
-    char *s, *o;
-    VALUE ost;
+    int j;
 
-    ost = rb_string_value( &oth);
-    i = RSTRING_LEN( ost);
-    if (i > RSTRING_LEN( str))
-        return Qnil;
-    s = RSTRING_PTR( str);
-    o = RSTRING_PTR( ost);
-    for (; i; i--, s++, o++) {
-        if (*s != *o)
+    for (j = 0; j < argc; j++) {
+        long i;
+        char *s, *o;
+        VALUE ost;
+        VALUE oth = argv[ j];
+
+        ost = rb_string_value( &oth);
+        i = RSTRING_LEN( ost);
+        if (i > RSTRING_LEN( str))
             return Qnil;
+        s = RSTRING_PTR( str);
+        o = RSTRING_PTR( ost);
+        for (; i; i--, s++, o++) {
+            if (*s != *o)
+                break;
+        }
+        if (!i)
+            return INT2FIX( rb_str_strlen( ost));
     }
-    return INT2FIX( rb_str_strlen( ost));
+    return Qnil;
 }
 
 
 /*
  *  call-seq:
- *     ends_with?( oth)   -> nil or int
+ *     ends_with?( *oth)   -> nil or int
  *
- *  Checks whether the tail is <code>oth</code>. Returns the position
- *  where <code>oth</code> starts when matching.
+ *  Checks whether the tail is one of <code>oth</code>. Returns the position
+ *  where the match starts.
  *
  *     "sys-apps".ends_with?( "-apps")    #=> 3
  *
@@ -537,84 +490,70 @@ rb_str_starts_with_p( VALUE str, VALUE oth)
  */
 
 VALUE
-rb_str_ends_with_p( VALUE str, VALUE oth)
+rb_str_ends_with_p( int argc, VALUE *argv, VALUE str)
 {
-    long i;
-    char *s, *o;
-    VALUE ost;
+    int j;
 
-    ost = rb_string_value( &oth);
-    i = RSTRING_LEN( ost);
-    if (i > RSTRING_LEN( str))
-        return Qnil;
-    s = RSTRING_END( str);
-    o = RSTRING_END( ost);
-    for (; i; i--)
-        if (*--s != *--o)
+    for (j = 0; j < argc; j++) {
+        long i;
+        char *s, *o;
+        VALUE ost;
+        VALUE oth = argv[ j];
+
+        ost = rb_string_value( &oth);
+        i = RSTRING_LEN( ost);
+        if (i > RSTRING_LEN( str))
             return Qnil;
-    return INT2FIX( rb_str_strlen( str) - rb_str_strlen( ost));
+        s = RSTRING_END( str);
+        o = RSTRING_END( ost);
+        for (; i; i--)
+            if (*--s != *--o)
+                break;
+        if (!i)
+            return INT2FIX( rb_str_strlen( str) - rb_str_strlen( ost));
+    }
+    return Qnil;
 }
 
-#ifdef FEATURE_STRING_ORD
 
 /*
  *  call-seq:
- *     ord()   -> nil or int
+ *     starts_with?( oth)   -> nil or int
+ *
+ *  Checks whether the head is <code>oth</code>. Returns length of
+ *  <code>oth</code> when matching.
  *
- *  Returns the ASCII value of the first character, if any.
+ *     :"sys-apps".starts_with?( "sys-")    #=> 4
  *
- *  Caution! For UTF-8 characters, this will return the first byte's value.
- *  This will do no harm in Ruby 1.8 but the standard Ruby 1.9 +String#ord+
- *  returns the first codepoint. Please do not overwrite that method.
+ *  Caution! The Ruby 1.9.3 method #start_with? (notice the missing s)
+ *  just returns +true+ or +false+. Mnemonics: "s" = prepare for
+ *  <code>#slice</code>.
  */
 
-VALUE rb_str_ord( VALUE str)
+VALUE
+rb_sym_starts_with_p( int argc, VALUE *argv, VALUE sym)
 {
-    return RSTRING_LEN( str) > 0 ? INT2FIX( RSTRING_PTR( str)[ 0]) : Qnil;
+    return rb_str_starts_with_p(argc, argv, rb_sym2str(sym));
 }
 
-#endif
 
 /*
  *  call-seq:
- *     axe( n = 80)   -> str
+ *     ends_with?( oth)   -> nil or int
  *
- *  Cut off everthing beyond then <code>n</code>th character. Replace the
- *  last bytes by ellipses.
+ *  Checks whether the tail is <code>oth</code>. Returns the position
+ *  where <code>oth</code> starts when matching.
  *
- *     a = "Redistribution and use in source and binary forms, with or without"
- *     a.axe( 16)     #=> "Redistributio..."
+ *     :"sys-apps".ends_with?( "-apps")    #=> 3
+ *
+ *  Caution! The Ruby 1.9.3 method #start_with? (notice the missing s)
+ *  just returns +true+ or +false+.
  */
 
 VALUE
-rb_str_axe( int argc, VALUE *argv, VALUE str)
+rb_sym_ends_with_p( int argc, VALUE *argv, VALUE sym)
 {
-    VALUE n;
-    VALUE ret;
-    long newlen, oldlen;
-
-    if (rb_scan_args( argc, argv, "01", &n) == 1 && !NIL_P( n))
-        newlen = NUM2LONG( n);
-    else
-        newlen = 80;
-    if (newlen < 0)
-        return Qnil;
-
-    oldlen = rb_str_strlen( str);
-    if (newlen < oldlen) {
-        VALUE ell;
-        long e;
-
-        ell = rb_str_new2( "...");
-        e = rb_str_strlen( ell);
-        if (newlen > e) {
-            ret = rb_str_substr( str, 0, newlen - e);
-            rb_str_append( ret, ell);
-        } else
-            ret = rb_str_substr( str, 0, newlen);
-    } else
-        ret = str;
-    return ret;
+    return rb_str_ends_with_p(argc, argv, rb_sym2str(sym));
 }
 
 
@@ -683,42 +622,24 @@ rb_num_sqrt( VALUE num)
     return rb_float_new( sqrt( RFLOAT_VALUE( rb_Float( num))));
 }
 
+/*
+ *  Document-class: Rational
+ */
+
 /*
  *  call-seq:
- *     num.cbrt   -> num
+ *     rat.inv   -> rat
  *
- *  Cube root.
+ *  The reciprocal.
  *
- *     27.cbrt       #=> 3.0
+ *     5/7r.inv       #=> 7/5r
  */
 
 VALUE
-rb_num_cbrt( VALUE num)
+rb_rat_inverse( VALUE rat)
 {
-#if HAVE_FUNC_CBRT
-    return rb_float_new( cbrt( RFLOAT_VALUE( rb_Float( num))));
-#else
-    double n;
-    int neg;
-    int i;
-
-    n = RFLOAT_VALUE( rb_Float( num));
-    if ((neg = n < 0))
-        n = -n;
-    n = sqrt( sqrt( n));
-    i = 2;
-    for (;;) {
-        double w = n;
-        int j;
-
-        for (j=i;j;--j) w = sqrt( w);
-        i *= 2;
-        w *= n;
-        if (n == w) break;
-        n = w;
-    }
-    return rb_float_new( neg ? -n : n);
-#endif
+    /* There is an internal function `rb_ration_reciprocal()`, but that cannot be reached from here. */
+    return rb_Rational( rb_rational_den( rat), rb_rational_num( rat));
 }
 
 
@@ -962,96 +883,6 @@ supplement_rindex_blk( VALUE ary)
 }
 
 
-#ifdef FEATURE_ARRAY_INDEX_WITH_BLOCK
-
-/*
- *  call-seq:
- *     index( obj)              ->  int or nil
- *     index() { |elem| ... }   ->  int or nil
- *
- *  Returns the index of the first object in <code>self</code> such that
- *  is <code>==</code> to <code>obj</code> or the <em>block</em> returns
- *  <code>true</code>. If no match is found, <code>nil</code> is
- *  returned.
- *
- *     a = %w(a b c d e)
- *     a.index("b")               #=> 1
- *     a.index("z")               #=> nil
- *     a.index { |e| e >= "b" }   #=> 1
- *     a.index { |e| e >= "q" }   #=> nil
- */
-
-VALUE
-rb_ary_index( int argc, VALUE *argv, VALUE ary)
-{
-    VALUE val;
-
-    if (rb_scan_args( argc, argv, "01", &val) == 1) {
-        if (rb_block_given_p())
-            rb_warning( "given block not used");
-        return supplement_index_val( ary, val);
-    } else
-        return supplement_index_blk( ary);
-    return Qnil;
-}
-
-VALUE
-supplement_index_val( VALUE ary, VALUE val)
-{
-    long i;
-
-    for (i = 0; i < RARRAY_LEN( ary); i++)
-        if (rb_equal( RARRAY_PTR( ary)[ i], val))
-            return LONG2NUM( i);
-    return Qnil;
-}
-
-
-/*
- *  call-seq:
- *     rindex( obj)              ->  int or nil
- *     rindex() { |elem| ... }   ->  int or nil
- *
- *  Returns the index of the first object in <code>self</code> such that
- *  is <code>==</code> to <code>obj</code> or the <em>block</em> returns
- *  <code>true</code>. If no match is found, <code>nil</code> is
- *  returned. Search from right to left.
- *
- *     a = %w(a b c d e)
- *     a.rindex("b")               #=> 1
- *     a.rindex("z")               #=> nil
- *     a.rindex { |e| e >= "b" }   #=> 4
- *     a.rindex { |e| e >= "q" }   #=> nil
- */
-
-VALUE
-rb_ary_rindex( int argc, VALUE *argv, VALUE ary)
-{
-    VALUE val;
-
-    if (rb_scan_args( argc, argv, "01", &val) == 1) {
-        if (rb_block_given_p())
-            rb_warning( "given block not used");
-        return supplement_rindex_val( ary, val);
-    } else
-        return supplement_rindex_blk( ary);
-    return Qnil;
-}
-
-VALUE
-supplement_rindex_val( VALUE ary, VALUE val)
-{
-    long i;
-
-    for (i = RARRAY_LEN( ary); i;)
-        if (rb_equal( RARRAY_PTR( ary)[ --i], val))
-            return LONG2NUM( i);
-    return Qnil;
-}
-
-#endif
-
-
 /*
  *  Document-class: Hash
  */
@@ -1186,31 +1017,6 @@ rb_dir_s_mkdir_bang( int argc, VALUE *argv, VALUE dir)
 }
 
 
-#ifdef FEATURE_DIR_CHILDREN
-
-/*
- *  call-seq:
- *     children()   -> ary
- *
- *  Entries without <code>"."</code> and <code>".."</code>.
- *
- */
-
-VALUE
-rb_dir_children( VALUE self)
-{
-    VALUE e;
-
-    e = rb_funcall( self, rb_intern( "entries"), 0);
-    rb_ary_delete( e, rb_str_new( ".", 1));
-    rb_ary_delete( e, rb_str_new( "..", 2));
-    return e;
-}
-
-#endif
-
-
-
 /*
  *  Document-class: Match
  */
@@ -1310,40 +1116,6 @@ rb_struct_fields( int argc, VALUE *argv, VALUE strct)
 }
 
 
-#ifdef FEATURE_THREAD_EXCLUSIVE
-
-/*
- *  Document-class: Thread
- */
-
-/*
- *  call-seq:
- *     Thread.exclusive { ... }  -> obj
- *
- *  Sets the global ``thread critical'' condition temporarily. Return
- *  value is the object returned by the <em>block</em>.
- */
-
-VALUE
-rb_thread_exclusive( void)
-{
-    VALUE old_tc = rb_thread_critical;
-
-    rb_thread_critical = Qtrue;
-    return rb_ensure( rb_yield, Qnil, bsruby_set_thread_critical, old_tc);
-}
-
-VALUE
-bsruby_set_thread_critical( VALUE c)
-{
-    rb_thread_critical = c;
-    return Qnil;
-}
-
-#endif
-
-
-
 /*
  *  Document-class: Struct
  */
@@ -1363,7 +1135,6 @@ bsruby_set_thread_critical( VALUE c)
  */
 
 
-
 /*
  *  Document-class: Object
  */
@@ -1393,9 +1164,6 @@ void Init_supplement( void)
 {
     rb_define_method( rb_cObject, "new_string", rb_obj_new_string, 0);
     rb_define_method( rb_cObject, "nil_if", rb_obj_nil_if, 1);
-#ifdef FEATURE_KERNEL_TAP
-    rb_define_method( rb_mKernel, "tap", rb_krn_tap, 0);
-#endif
     rb_define_method( rb_mKernel, "tap!", rb_krn_tap_bang, 0);
     rb_define_method( rb_mKernel, "with", rb_krn_with, 0);
 
@@ -1409,28 +1177,19 @@ void Init_supplement( void)
     rb_define_method( rb_cString, "notempty?", rb_str_notempty_p, 0);
     rb_define_method( rb_cString, "eat", rb_str_eat, -1);
     rb_define_method( rb_cString, "cut!", rb_str_cut_bang, 1);
-#ifdef FEATURE_STRING_CLEAR
-    rb_define_method( rb_cString, "clear", rb_str_clear, 0);
-#endif
     rb_define_method( rb_cString, "head", rb_str_head, -1);
     rb_define_method( rb_cString, "rest", rb_str_rest, -1);
     rb_define_method( rb_cString, "tail", rb_str_tail, -1);
-#ifdef FEATURE_STRING_START_WITH
-    rb_define_method( rb_cString, "start_with?", rb_str_start_with_p, 1);
-    rb_define_method( rb_cString, "end_with?", rb_str_end_with_p, 1);
-#endif
-    rb_define_method( rb_cString, "starts_with?", rb_str_starts_with_p, 1);
-    rb_define_method( rb_cString, "ends_with?", rb_str_ends_with_p, 1);
-    rb_define_alias(  rb_cString, "starts_with", "start_with?");
-    rb_define_alias(  rb_cString, "ends_with", "end_with?");
-#ifdef FEATURE_STRING_ORD
-    rb_define_method( rb_cString, "ord", rb_str_ord, 0);
-#endif
     rb_define_method( rb_cString, "axe", rb_str_axe, -1);
+    rb_define_method( rb_cString, "starts_with?", rb_str_starts_with_p, -1);
+    rb_define_method( rb_cString, "ends_with?", rb_str_ends_with_p, -1);
+    rb_define_method( rb_cSymbol, "starts_with?", rb_sym_starts_with_p, -1);
+    rb_define_method( rb_cSymbol, "ends_with?", rb_sym_ends_with_p, -1);
 
     rb_define_method( rb_cNumeric, "grammatical", rb_num_grammatical, 2);
     rb_define_method( rb_cNumeric, "sqrt", rb_num_sqrt, 0);
-    rb_define_method( rb_cNumeric, "cbrt", rb_num_cbrt, 0);
+
+    rb_define_method( rb_cRational, "inv", rb_rat_inverse, 0);
 
     rb_define_method( rb_cArray, "notempty?", rb_ary_notempty_p, 0);
     rb_define_method( rb_cArray, "first=", rb_ary_first_set, 1);
@@ -1440,10 +1199,6 @@ void Init_supplement( void)
     rb_define_method( rb_cArray, "range", rb_ary_range, 0);
     rb_define_method( rb_cArray, "pick", rb_ary_pick, -1);
     rb_define_method( rb_cArray, "rpick", rb_ary_rpick, -1);
-#ifdef FEATURE_ARRAY_INDEX_WITH_BLOCK
-    rb_define_method( rb_cArray, "index", rb_ary_index, -1);
-    rb_define_method( rb_cArray, "rindex", rb_ary_rindex, -1);
-#endif
 
     rb_define_method( rb_cHash, "notempty?", rb_hash_notempty_p, 0);
 
@@ -1451,19 +1206,11 @@ void Init_supplement( void)
 
     rb_define_singleton_method( rb_cDir, "current", rb_dir_s_current, 0);
     rb_define_singleton_method( rb_cDir, "mkdir!", rb_dir_s_mkdir_bang, -1);
-#ifdef FEATURE_DIR_CHILDREN
-    rb_define_method( rb_cDir, "children", rb_dir_children, 0);
-#endif
     rb_define_alias(  rb_cDir, "entries!", "children");
 
     rb_define_method( rb_cMatch, "begin", rb_match_begin, -1);
     rb_define_method( rb_cMatch, "end", rb_match_end, -1);
 
-#ifdef FEATURE_THREAD_EXCLUSIVE
-    rb_define_singleton_method( rb_cThread, "exclusive",
-                                                    rb_thread_exclusive, 0);
-#endif
-
     rb_define_alias( rb_singleton_class( rb_cStruct), "[]", "new");
     rb_define_method( rb_cStruct, "fields", rb_struct_fields, -1);
     rb_define_alias(  rb_cStruct, "fetch_values", "fields");

data/lib/supplement.h

@@ -11,9 +11,6 @@
 
 extern VALUE rb_obj_new_string( VALUE);
 extern VALUE rb_obj_nil_if( VALUE, VALUE);
-#ifdef FEATURE_KERNEL_TAP
-extern VALUE rb_krn_tap( VALUE);
-#endif
 extern VALUE rb_krn_tap_bang( VALUE);
 extern VALUE rb_krn_with( VALUE);
 
@@ -26,26 +23,18 @@ extern VALUE rb_str_new_string( VALUE);
 extern VALUE rb_str_notempty_p( VALUE);
 extern VALUE rb_str_eat( int, VALUE *, VALUE);
 extern VALUE rb_str_cut_bang( VALUE, VALUE);
-#ifdef FEATURE_STRING_CLEAR
-extern VALUE rb_str_clear( VALUE);
-#endif
 extern VALUE rb_str_head( int, VALUE *, VALUE);
 extern VALUE rb_str_rest( int, VALUE *, VALUE);
 extern VALUE rb_str_tail( int, VALUE *, VALUE);
-#ifdef FEATURE_STRING_START_WITH
-extern VALUE rb_str_start_with_p( VALUE, VALUE);
-extern VALUE rb_str_end_with_p( VALUE, VALUE);
-#endif
-extern VALUE rb_str_starts_with_p( VALUE, VALUE);
-extern VALUE rb_str_ends_with_p( VALUE, VALUE);
-#ifdef FEATURE_STRING_ORD
-extern VALUE rb_str_ord( VALUE);
-#endif
 extern VALUE rb_str_axe( int, VALUE *, VALUE);
+extern VALUE rb_str_starts_with_p( int argc, VALUE *argv, VALUE);
+extern VALUE rb_str_ends_with_p( int argc, VALUE *argv, VALUE);
+extern VALUE rb_sym_starts_with_p( int argc, VALUE *argv, VALUE);
+extern VALUE rb_sym_ends_with_p( int argc, VALUE *argv, VALUE);
 
 extern VALUE rb_num_grammatical( VALUE, VALUE, VALUE);
 extern VALUE rb_num_sqrt( VALUE);
-extern VALUE rb_num_cbrt( VALUE);
+extern VALUE rb_rat_inverse( VALUE);
 
 extern VALUE rb_ary_notempty_p( VALUE);
 extern VALUE rb_ary_first_set( VALUE, VALUE);
@@ -54,25 +43,16 @@ extern VALUE rb_ary_indexes( VALUE);
 extern VALUE rb_ary_range( VALUE);
 extern VALUE rb_ary_pick(  int, VALUE *, VALUE);
 extern VALUE rb_ary_rpick( int, VALUE *, VALUE);
-#ifdef FEATURE_ARRAY_INDEX_WITH_BLOCK
-extern VALUE rb_ary_index( int, VALUE *, VALUE);
-extern VALUE rb_ary_rindex( int, VALUE *, VALUE);
-#endif
 
 extern VALUE rb_hash_notempty_p( VALUE);
 
 extern VALUE rb_file_s_umask( int, VALUE *, VALUE);
 extern VALUE rb_dir_s_current( VALUE);
 extern VALUE rb_dir_s_mkdir_bang( int, VALUE *, VALUE);
-extern VALUE rb_dir_children( VALUE);
 
 extern VALUE rb_match_begin( int, VALUE *, VALUE);
 extern VALUE rb_match_end( int, VALUE *, VALUE);
 
-#ifdef FEATURE_THREAD_EXCLUSIVE
-extern VALUE rb_thread_exclusive( void);
-#endif
-
 extern VALUE rb_struct_fields( int, VALUE *, VALUE);
 
 extern VALUE rb_nil_to_bool( VALUE);

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: supplement
 version: !ruby/object:Gem::Version
-  version: '2.26'
+  version: '2.29'
 platform: ruby
 authors:
 - Bertram Scharpf
@@ -46,10 +46,10 @@ extensions:
 - lib/mkrf_conf
 extra_rdoc_files:
 - LICENSE
-- README
+- README.md
 files:
 - LICENSE
-- README
+- README.md
 - examples/teatimer
 - lib/Rakefile
 - lib/mkrf_conf
@@ -74,16 +74,14 @@ homepage: https://github.com/BertramScharpf/ruby-supplement
 licenses:
 - BSD-2-Clause
 metadata: {}
-rdoc_options:
-- "--main"
-- README
+rdoc_options: []
 require_paths:
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
-      version: 2.0.0
+      version: 3.1.0
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
@@ -91,7 +89,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements:
 - Ruby and the autorake gem
-rubygems_version: 3.6.7
+rubygems_version: 3.7.1
 specification_version: 4
 summary: Simple Ruby extensions
 test_files: []

data/README

@@ -1,68 +0,0 @@
-= supplement 2.26  --  Useful Ruby enhancements
-
-
-Some simple Ruby extensions.
-
-
-== Author
-
-Bertram Scharpf <software@bertram-scharpf.de>
-
-
-== Motivation
-
-The original motivation was my conviction that a language that has a
-Numeric#nonzero? method induces a programming style that as well demands
-for a String#notempty? method.
-
-
-
-== Description
-
-These are methods on standard classes that didn't manage to become part of
-the Ruby interpreter. (Although, some did in the meantime.)
-
-They are all very small, most of them have less than 15 lines of code.
-So they would not be a weight in the Ruby interpreter but it is very
-difficult to convince a majority that they belong there.
-
-The methods won't be useful for everybody but some programmers may like
-to make them part of their programming style.
-
-If you like to get taunted, then go to the Ruby mailing list and propose
-one of them to be included into the Ruby standard.
-
-
-
-== Intention
-
-In my own code I use quite often a method <code>String#notempty?</code>
-that does almost the same as <code>Numeric#nonzero?</code>. Every
-attempt proposing it for the Ruby standard implementation has failed;
-the discussion evolves the same every time.
-
-Now here it is where I can just point to.
-
-
-
-== Contents (uncomplete)
-
-  * String#notempty?
-  * String#clear
-  * String#head
-  * String#tail
-  * String#rest
-  * String#start_with?
-  * String#end_with?
-  * Array#notempty?
-  * Array#first=/last=
-  * Hash#notempty?
-  * Struct.[]
-  * Integer.roman
-  * Date.easter
-  * TCPServer/UNIXServer.accept with a code block
-  * File system stats
-  * Process.renice
-  * Interval timer
-  * LockedFile
-