supplement 2.30 → 2.31

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: fd387c214f1666040ad8c1d4844543310d0616449c08cf3b69a3f11cdc83e93a
-  data.tar.gz: 1b5460d3ecf411e6c7cda40510a8649f8ecd9a42ea405d1284f4b3d57148fa9d
+  metadata.gz: 0ecb9754ff9168f112f5cc9535bdd6fa1dd1877cb7eb4738757a32854a56c325
+  data.tar.gz: 983d0b6c6c91258fd74eb0e6fe31f16124654e730d750a09105fe66873086915
 SHA512:
-  metadata.gz: 513e9ff98266e00ef2ee11f47961cadb834074a7c7d889708032c14515aaf2db28d95a593d25d6904a66d29f030b4cb9e65219152ae88b6cca9b9a532a60c260
-  data.tar.gz: c8c0be3cff0f29e4d5476f694d78f44105222b58f8e86ac37977567a6b702efe65bc0b9f2d5a0dbf4288761b348231cea62fe6ce90f00c964dcd73fff2d9180a
+  metadata.gz: 31724b42dca923848441e648d91757c58bb212a63d91a3613fbedb760b6894f64d432bfb30de89f95fbba93002b9e316283efab175ef747e162ca174ac25e3c4
+  data.tar.gz: 5f9e2ff5d368ea29e22bc2218c22b2261b582a8d81724ae5fb48f841fd1c6d77d3367950a68372a74fd8287a8b51b08ba0c7e7635d5bed296619362103f2f5bb

data/README.md

@@ -1,4 +1,4 @@
-# supplement 2.30  --  Useful Ruby enhancements
+# supplement 2.31  --  Useful Ruby enhancements
 
 Some simple Ruby extensions.
 

data/lib/supplement.c

@@ -11,6 +11,8 @@
 #include <ruby/re.h>
 
 
+static long  supplement_args_len_default( int, VALUE *);
+static void  supplement_make_ellipse( void);
 static void  supplement_ary_assure_notempty( VALUE);
 static VALUE supplement_index_blk( VALUE);
 static VALUE supplement_index_ref( VALUE, VALUE);
@@ -19,6 +21,9 @@ static VALUE supplement_rindex_ref( VALUE, VALUE);
 static VALUE supplement_do_unumask( VALUE);
 
 
+static VALUE supplement_ellipse = Qnil;
+static long  supplement_len_ell = 0;
+
 static ID id_delete_at = 0;
 static ID id_cmp = 0;
 static ID id_eqq = 0;
@@ -395,49 +400,102 @@ rb_str_tail( int argc, VALUE *argv, VALUE str)
 }
 
 
+long
+supplement_args_len_default( int argc, VALUE *argv)
+{
+    VALUE n;
+    long r;
+
+    if (rb_scan_args( argc, argv, "01", &n) == 1 && !NIL_P( n))
+        r = NUM2LONG( n);
+    else
+        r = 80;
+    return r;
+}
+
+void
+supplement_make_ellipse( void)
+{
+    if (!NIL_P( supplement_ellipse))
+        return;
+    supplement_ellipse = rb_str_new2( "...");
+    supplement_len_ell = rb_str_strlen( supplement_ellipse);
+}
+
 /*
  *  call-seq:
  *     axe( n = 80)   -> str
  *
- *  Cut off everthing beyond then <code>n</code>th character. Replace the
+ *  Cut off everthing beyond the <code>n</code>th character. Replace the
  *  last bytes by ellipses.
  *
- *     a = "Redistribution and use in source and binary forms, with or without"
- *     a.axe( 16)     #=> "Redistributio..."
+ *     a = "Now is the time for all good men to come to the aid of their country etc."
+ *     a.axe( 16)     #=> "Now is the ti..."
  */
 
 VALUE
 rb_str_axe( int argc, VALUE *argv, VALUE str)
 {
-    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;
+    newlen = supplement_args_len_default( argc, argv);
     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);
+        supplement_make_ellipse();
+        if (newlen >= supplement_len_ell) {
+            ret = rb_str_substr( str, 0, newlen - supplement_len_ell);
+            rb_str_append( ret, supplement_ellipse);
         } else
-            ret = rb_str_substr( str, 0, newlen);
+            ret = rb_str_substr( supplement_ellipse, 0, newlen);
     } else
         ret = str;
     return ret;
 }
 
 
+/*
+ *  call-seq:
+ *     axe!( n = 80)   -> str
+ *
+ *  Cut off everthing beyond the <code>n</code>th character. Replace the
+ *  last bytes by ellipses.
+ *
+ *     a = "Now is the time for all good men to come to the aid of their country etc."
+ *     a.axe!( 16)     #=> "Now is the ti..."
+ *     a               #=> "Now is the ti..."
+ *
+ *  If nothing was removed, <code>nil</code> is returned.
+ */
+
+VALUE
+rb_str_axe_bang( int argc, VALUE *argv, VALUE str)
+{
+    long newlen, oldlen;
+
+    newlen = supplement_args_len_default( argc, argv);
+    if (newlen < 0)
+        return Qnil;
+
+    rb_str_modify( str);
+
+    oldlen = rb_str_strlen( str);
+    if (newlen < oldlen) {
+        long re;
+
+        rb_str_update( str, newlen, oldlen - newlen, rb_str_new( NULL, 0));
+        supplement_make_ellipse();
+        re = newlen < supplement_len_ell ? newlen : supplement_len_ell;
+        rb_str_update( str, newlen - re, re, rb_str_substr( supplement_ellipse, 0, re));
+        return str;
+    } else
+        return Qnil;
+}
+
+
 /*
  *  call-seq:
  *     starts_with?( *oth)   -> nil or int
@@ -1185,6 +1243,7 @@ void Init_supplement( void)
     rb_define_method( rb_cString, "rest", rb_str_rest, -1);
     rb_define_method( rb_cString, "tail", rb_str_tail, -1);
     rb_define_method( rb_cString, "axe", rb_str_axe, -1);
+    rb_define_method( rb_cString, "axe!", rb_str_axe_bang, -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);
@@ -1206,7 +1265,7 @@ void Init_supplement( void)
 
     rb_define_method( rb_cHash, "notempty?", rb_hash_notempty_p, 0);
 
-    rb_undef_method( rb_singleton_class( rb_cFile), "umask");
+    rb_undef_method( CLASS_OF( rb_cFile), "umask");
     rb_define_singleton_method( rb_cFile, "umask", rb_file_s_umask, -1);
 
     rb_define_singleton_method( rb_cDir, "current", rb_dir_s_current, 0);

data/lib/supplement.h

@@ -27,6 +27,7 @@ extern VALUE rb_str_head( int, VALUE *, VALUE);
 extern VALUE rb_str_rest( int, VALUE *, VALUE);
 extern VALUE rb_str_tail( int, VALUE *, VALUE);
 extern VALUE rb_str_axe( int, VALUE *, VALUE);
+extern VALUE rb_str_axe_bang( 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);

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: supplement
 version: !ruby/object:Gem::Version
-  version: '2.30'
+  version: '2.31'
 platform: ruby
 authors:
 - Bertram Scharpf