Add tasks for all the new languages

Task/Strip-block-comments/Nim/strip-block-comments.nim

@@ -0,0 +1,48 @@
+import strutils
+
+proc commentStripper(txt; delim: tuple[l,r: string] = ("/*", "*/")): string =
+  let i = txt.find(delim.l)
+  if i < 0:
+    return txt
+
+  result = if i > 0: txt[0 .. <i] else: ""
+  let tmp = commentStripper(txt[i+delim.l.len .. txt.high])
+  let j = tmp.find(delim.r)
+  assert j >= 0
+  result &= tmp[j+delim.r.len .. tmp.high]
+
+echo "NON-NESTED BLOCK COMMENT EXAMPLE:"
+echo commentStripper("""/**
+   * Some comments
+   * longer comments here that we can parse.
+   *
+   * Rahoo
+   */
+   function subroutine() {
+    a = /* inline comment */ b + c ;
+   }
+   /*/ <-- tricky comments */
+
+   /**
+    * Another comment.
+    */
+    function something() {
+    }""")
+
+echo "\nNESTED BLOCK COMMENT EXAMPLE:"
+echo commentStripper("""  /**
+   * Some comments
+   * longer comments here that we can parse.
+   *
+   * Rahoo
+   *//*
+   function subroutine() {
+    a = /* inline comment */ b + c ;
+   }
+   /*/ <-- tricky comments */
+   */
+   /**
+    * Another comment.
+    */
+    function something() {
+    }""")

Task/Strip-block-comments/Phix/strip-block-comments.phix

@@ -0,0 +1,34 @@
+constant test = """
+  /**
+   * Some comments
+   * longer comments here that we can parse.
+   *
+   * Rahoo
+   */
+   function subroutine() {
+    a = /* inline comment */ b + c ;
+   }
+   /*/ <-- tricky comments */
+
+   /**
+    * Another comment.
+    */
+    function something() {
+    }
+"""
+
+function strip_comments(string text, startc="/*", endc="*/")
+    while 1 do
+        integer startp = match(startc,text)
+        if startp=0 then exit end if
+        integer endp = match(endc,text,startp+length(startc))
+        if endp=0 then
+            puts(1,"error, aborting...")
+            abort(0)
+        end if
+        text[startp..endp+length(endc)-1] = ""
+    end while
+    return text
+end function
+
+puts(1,strip_comments(test))

Task/Strip-block-comments/Ring/strip-block-comments.ring

@@ -0,0 +1,13 @@
+example = "123/*456*/abc/*def*/789"
+
+example2 = example
+nr = 1
+while nr = 1
+      n1 = substr(example2,"/*")
+      n2 = substr(example2,"*/")
+      if n1 > 0 and n2 > 0
+         example3 = substr(example2,n1,n2-n1+2)
+         example2 = substr(example2,example3,"")
+      else nr = 0 ok
+end
+see example2 + nl

Task/Strip-block-comments/Sidef/strip-block-comments.sidef

@@ -0,0 +1,6 @@
+func strip_block_comments(code, beg='/*', end='*/') {
+    var re = Regex.new(beg.escape + '.*?' + end.escape, 's');
+    code.gsub(re, '');
+}
+
+say strip_block_comments(ARGF.slurp);

Task/Strip-block-comments/jq/strip-block-comments.jq

@@ -0,0 +1,9 @@
+def strip_block_comments(open; close):
+  def deregex:
+    reduce ("\\\\", "\\*", "\\^", "\\?", "\\+", "\\.",
+            "\\!", "\\{", "\\}", "\\[", "\\]", "\\$", "\\|" ) as $c
+      (.; gsub($c; $c));
+  # "?" => reluctant, "m" => multiline
+  gsub( (open|deregex) + ".*?" + (close|deregex); ""; "m") ;
+
+strip_block_comments("/*"; "*/")