comment_extractor 1.0.1

data/spec/assets/source_code/d.d

@@ -0,0 +1,110 @@
+/*[-1-]@copyright wikipedia http://en.wikibooks.org/wiki/D_Programming/First_Program_Examples [-end-]*/
+/*[-2-]Hello World in D
+[-3-]To compile:
+[-4-]dmd hello.d
+[-5-]or to optimize:
+[-6-]dmd -O -inline -release hello.d
+[-7-]or to get generated documentation:
+[-8-]dmd hello.d -D
+*/
+import std.stdio;  //[-10-]References to  commonly used I/O routines.
+void main(char[][] args)
+{
+  //[-13-]Write-Formatted-Line
+  writefln("Hello World, "
+      "Reloaded");
+  foreach(argc, argv; args)
+  {
+    auto cl = new CmdLin(argc, argv);
+
+    writefln(cl.argnum, cl.suffix, " arg: //%s", cl.argv);
+    delete cl;
+  }
+  struct specs
+  {
+    int count, allocated;
+  }
+
+  specs argspecs(char[][] args)
+    in{
+      assert (args.length > 0);
+    }
+  out(result){
+    assert(result.count == CmdLin.total);
+    assert(result.allocated > 0);
+  }
+  body{
+    specs* s = new specs;
+    s.count = args.length;  //[-38-] The 'length' property is number of elements.
+    s.allocated = typeof(args).sizeof;
+    foreach(argv; args)
+      s.allocated += argv.length * typeof(argv[0]).sizeof;
+    return *s;
+  }
+
+  char[] argcmsg  = "argc = %d";
+  char[] allocmsg = "allocated = %d";
+  writefln(argcmsg ~ ", " ~ allocmsg,
+      argspecs(args).count,argspecs(args).allocated);
+}
+/*[-50-]
+[-51-]Stores a single command line argument.
+[-52-][-end-]*/
+class CmdLin
+{
+  private {
+    int _argc;
+    char[] _argv;
+    static uint _totalc;
+  }
+
+  public:
+  this(int argc, char[] argv)
+  {
+    _argc = argc + 1;
+    _argv = argv;
+    _totalc++;
+  }
+
+  ~this()
+  {
+  }
+
+  int argnum()
+  {
+    return _argc;
+  }
+  char[] argv()
+  {
+    return _argv;
+  }
+  wchar[] suffix()
+  {
+    wchar[] suffix;
+    switch(_argc)
+    {
+      case 1:
+        suffix = "st";
+        break;
+      case 2:
+        suffix = "nd";
+        break;
+      case 3:
+        suffix = "rd";
+        break;
+      default:
+        suffix = "th";
+    }
+    return suffix;
+  }
+
+  static typeof(_totalc) total()
+  {
+    return _totalc;
+  }
+  invariant
+  {
+    assert(_argc > 0);
+    assert(_totalc >= _argc);
+  }
+}

data/spec/assets/source_code/erlang.es

@@ -0,0 +1,34 @@
+%%[-1-]Attribution-Share Alike 3.0 License, copyright (c) 2010 Pieter Hintjens, modified @alpaca-tc
+%%[-2-] Reading from multiple sockets
+%%[-3-] This version uses active sockets
+%[-4-]
+
+main(_) ->
+    {ok,Context} = erlzmq:context(),
+
+    %%[-9-] Connect to task ventilator
+    {ok, Receiver} = erlzmq:socket(Context, [pull, {active, true}]),
+    ok = erlzmq:connect(Receiver, "tcp://localhost:5557"),
+
+    %%[-13-] Connect to weather server
+    {ok, Subscriber} = erlzmq:socket(Context, [sub, {active, true}]),
+    ok = erlzmq:connect(Subscriber, "tcp://localhost:5556"),
+    ok = erlzmq:setsockopt(Subscriber, subscribe, <<"10001">>),
+
+    %%[-18-] Process messages from both sockets
+    loop(Receiver, Subscriber),
+
+    %%[-21-] We never get here
+    ok = erlzmq:close(Receiver), %%[-22-] we never get here
+    ok = erlzmq:close(Subscriber),
+    ok = erlzmq:term(Context).
+
+loop(Tasks, Weather) ->
+    receive
+        {zmq, Tasks, Msg, _Flags} ->
+            io:format("Processing task: ~s~n",[Msg]),
+            loop(Tasks, Weather);
+        {zmq, Weather, Msg, _Flags} ->
+            io:format("Processing weather update: ~s~n",[Msg]),
+            loop(Tasks, Weather)
+    end.

data/spec/assets/source_code/fortran.f

@@ -0,0 +1,41 @@
+program average
+
+![-3-]@copyright wikipedia, modified @alpaca-tc. http://en.wikipedia.org/wiki/Fortran
+![-4-] Read in some numbers and take the average
+![-5-] As written, if there are no data points, an average of zero is returned
+![-6-] While this may not be desired behavior, it keeps this example simple
+
+implicit none
+
+real, dimension(:), allocatable :: points
+integer                         :: number_of_points
+real                            :: average_points=0., positive_average=0., negative_average=0.
+
+write (*,*) "Input number of points to average:"
+read  (*,*) number_of_points
+
+allocate (points(number_of_points))
+
+write (*,*) "Enter the points to average:"
+read  (*,*) points
+
+![-22-] Take the average by summing points and dividing by number_of_points
+if (number_of_points > 0) average_points = sum(points) / number_of_points
+
+![-25-] Now form average over positive and negative points only
+if (count(points > 0.) > 0) then
+  positive_average = sum(points, points > 0.) / count(points > 0.)
+end if
+
+if (count(points < 0.) > 0) then
+  negative_average = sum(points, points < 0.) / count(points < 0.)
+end if
+
+deallocate (points) ![-34-] Print result to terminal
+
+![-36-] Print result to terminal
+write (*,'(a,g12.4)') 'Average = ', average_points
+write (*,'(a,g12.4)') 'Average of positive points = ', positive_average
+write (*,'(a,g12.4)') 'Average of negative points = ', negative_average
+
+end program average

data/spec/assets/source_code/golang.go

@@ -0,0 +1,61 @@
+//[-1-]Attribution-Share Alike 3.0 License, copyright (c) 2010 Pieter Hintjens, modified @alpaca-tc
+//[-2-] Task Wroker
+//[-3-] Connects PULL socket to tcp://localhost:5557
+//[-4-] Collects workloads from ventilator via that socket
+//[-5-] Connects PUSH socket to tcp://localhost:5558
+//[-6-] Connects SUB socket to tcp://localhost:5559
+//[-7-] Sends results to sink via that socket
+//[-8-]
+package main
+
+import (
+  "fmt"
+  zmq "github.com/alecthomas/gozmq"
+  "strconv"
+  "time"
+)
+
+func main() {
+  context, _ := zmq.NewContext()
+  defer context.Close()
+
+  /*[-22-]
+[-23-]  Socket to receive messages on
+*/
+  receiver.Connect("tcp://localhost:5557")
+
+  //[-27-]  Socket to send messages to task sink
+  sender, _ := context.NewSocket(zmq.PUSH)
+  defer sender.Close()
+  sender.Connect("tcp://localhost:5558")
+
+  //[-32-]  Socket for control input
+  controller, _ := context.NewSocket(zmq.SUB)
+  defer controller.Close()
+  controller.Connect("tcp://localhost:5559")
+  controller.SetSubscribe("")
+
+  items := zmq.PollItems{
+    zmq.PollItem{Socket: receiver, Events: zmq.POLLIN},
+    zmq.PollItem{Socket: controller, Events: zmq.POLLIN},
+  }
+
+  //[-43-]  Process tasks forever
+  for {
+    zmq.Poll(items, -1)
+    switch {
+    case items[0].REvents&zmq.POLLIN != 0: /*[-47-]  Process tasks forever [-end-]*/
+      msgbytes, _ := receiver.Recv(0)
+      fmt.Printf("%s.", string(msgbytes))
+
+      //[-51-]  Do the work
+      msec, _ := strconv.ParseInt(string(msgbytes), 10, 64)
+      time.Sleep(time.Duration(msec) * 1e6)
+
+      sender.Send([]byte(""), 0) //[-55-]  Send results to sink
+    case items[1].REvents&zmq.POLLIN != 0:
+      fmt.Println("stopping")
+      return
+    }
+  }
+}

data/spec/assets/source_code/haml.haml

@@ -0,0 +1,26 @@
+!!! 5
+%html(lang="en")
+  %head
+    %meta(charset="utf-8")
+    %meta(http-equiv="X-UA-Compatible" content="IE=Edge,chrome=1")
+    %meta(name="viewport" content="width=device-width, initial-scale=1.0")
+    %title= content_for?(:title) ? yield(:title) : "EnfacTv"
+    = csrf_meta_tags
+    / Le HTML5 shim, for IE6-8 support of HTML elements
+    = favicon_link_tag 'favicon.ico', :rel => 'shortcut icon' #[-10-] single line
+    -#[-11-] single line
+    -#[-12-]
+
+    = huga
+  %body
+    #header
+      .inner
+        #header_links.clearfix
+          %ul
+            %li
+              %a{ :href => "" }= '' #[-21-] single line
+    #main_contents
+      #content_area
+        .inner.clearfix
+          = yield
+          -#[-26-]

data/spec/assets/source_code/haskell.hs

@@ -0,0 +1,36 @@
+--[-1-]Attribution-Share Alike 3.0 License, copyright (c) 2010 Pieter Hintjens, modified @alpaca-tc
+--[-2-] | Pub/Sub envelope subscriber (p.76)
+--[-3-] Pub/Sub envelope subscriber (p.76)
+--[-4-] ^
+{-[-5-]
+[-6-]
+[-7-][-end-]-}
+{-[-8-]|
+[-9-][-end-]-}
+{-[-10-]| [-end-]-}
+module Main where
+
+import System.ZMQ4.Monadic
+import Data.ByteString.Char8 (unpack)
+import Control.Monad (when)
+import Text.Printf
+
+main :: IO ()
+main =
+    runZMQ $ do
+        subscriber <- socket Sub
+        connect subscriber "tcp://localhost:5563"
+        subscribe subscriber "B"
+
+        loop subscriber --[-25-]start listening for pub messages
+
+    where
+        loop subscriber = do
+            --[-29-] read envelope with address
+            receive subscriber >>= \addr -> liftIO $ printf "Address is %s\n" (unpack addr)
+            --[-31-] read message content
+            more <- moreToReceive subscriber
+            when more $ do
+                contents <- receive subscriber
+                liftIO $ putStrLn (unpack contents)
+            loop subscriber

data/spec/assets/source_code/html.html

@@ -0,0 +1,139 @@
+<!DOCTYPE html>
+<html lang="ja">
+  <head>
+    <meta charset="UTF-8">
+    <title>RailsとRubyとVimのブログ</title>
+
+    <meta name="viewport" content="width=device-width, user-scalable=no, initial-scale=1, maximum-scale=1">
+    <meta content='RailsとRubyとVimのブログ' name='title' />
+
+
+    <link rel="author" href="https://plus.google.com/105581201951227096827" />
+    <link rel="publisher" href="https://plus.google.com/105581201951227096827" />
+    <!--[-13-][if lte IE 8]>
+[-14-] multiline comment
+[-15-]<![endif][-end-]-->
+
+    <meta property="og:title" content='RailsとRubyとVimのブログ' />
+    <meta property="og:locale" content="ja_JP"/>
+    <meta property="og:image" content="http://http://alpaca.tc/images/meta/site_title.png"/>
+    <meta property="og:type" content="blog"/>
+    <meta property="og:url" content="http://alpaca.tc/index.html"/>
+    <meta property="og:site_name" content="RailsとRubyとVimのブログ"/>
+    <meta property="og:description" content="ここまで出来る！RubyのSplat Operatorまとめ Feb 12th, 2014 Posted by 石井浩之 Splat Operatorとは、*のことです この前、友人にコードレビューしてもらっていたら 「え、Rubyってこんな書き方出来るんですか？」と言われて、「 &hellip;" />
+    <meta property="fb:app_id" content="224701561024840" />
+
+    <meta name="twitter:card" content="summary">
+    <meta name="twitter:title" content="RailsとRubyとVimのブログ">
+    <meta name="twitter:description" content="ここまで出来る！RubyのSplat Operatorまとめ Feb 12th, 2014 Posted by 石井浩之 Splat Operatorとは、*のことです この前、友人にコードレビューしてもらっていたら 「え、Rubyってこんな書き方出来るんですか？」と言われて、「 &hellip;">
+    <meta name="twitter:image" content="http://http://alpaca.tc/images/meta/twitter.png">
+    <meta name="twitter:site" content="@alpaca_taichou">
+    <meta name="twitter:creator" content="@alpaca_taichou">
+
+
+    <script type="text/javascript">window._pt_lt = new Date().getTime();</script>
+
+    <link rel="stylesheet" href="/stylesheets/reset.css" type="text/css" media="all"/>
+    <link rel="stylesheet" href="/stylesheets/compression.css" type="text/css" media="all"/>
+    <meta name="google-site-verification" content="thSL3cUT7BV1-AENglRFIF-kv6I85JJ6_iUGAU8GaQI" />
+
+    <!--[-40-] multiline comment [-end-]-->
+    <script src="//ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
+
+
+    <script>
+      var _gaq = _gaq || [];
+      _gaq.push(['_require', 'inpage_linkid', '//www.google-analytics.com/plugins/ga/inpage_linkid.js']);
+      _gaq.push(['_setAccount', 'UA-44082439-2']);
+      _gaq.push(['_trackPageview']);
+      (function() {
+       var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
+       ga.src = ('https:' == document.location.protocol ? 'https://' : 'http://') + 'stats.g.doubleclick.net/dc.js';
+       var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
+       })();
+     </script>
+
+
+
+
+
+     <link rel="next" href="/blog/page/2/">
+
+
+
+
+
+     <link rel="canonical" href="http://alpaca.tc/index.html">
+
+
+
+   </head>
+   <div id="fb-root"></div>
+
+   <body id="default_contents">
+     <div id="header_top" class="outer_envelope clearfix">
+       <header>        <div class="inner_wrapper clearfix">
+           <div class="inner clearfix">
+             <div id="logo">
+
+               <h1 id="site_title"><a href="/">RailsとRubyとVimのブログ</a></h1>
+
+             </div>
+
+             <nav id="header_nav">
+               <ul class="clearfix">
+                 <li>
+                   <a href="/about_me">About Me</a>
+                 </li>
+                 <li>
+                   <a href="/">Blog</a>
+                 </li>
+                 <li>
+                   <a href="/works/">Works</a>
+                 </li>
+                 <li>
+                   <a target="_blank" href="https://github.com/alpaca-tc">GitHub</a>
+                 </li>
+                 <li>
+                   <a target="_blank" href="https://twitter.com/alpaca_taichou">Twitter</a>
+                 </li>
+               </ul>
+             </nav>
+           </div>
+         </div>
+       </header>
+
+       <div id="main_contents" class="clearfix">
+         <div class="inner_wrapper">
+           <div class="inner">
+             <div class="left_page inner_wrapper">
+               <div id="page_contents" class="inner">
+                 <div id="index_contents" class="blog-index">
+                   <!--[-112-]
+[-113-][-end-]-->
+                   <script type="text/javascript" charset="utf-8">
+                     (function() {
+                      $(function() {
+                        var isSmartPhone = /android|webos|iphone|ipad|ipod|blackberry|iemobile|opera mini/i.test(navigator.userAgent.toLowerCase());
+                        if (isSmartPhone) {
+                        var $pagination = $('.pagination'),
+                        $prev = $pagination.find('.prev'),
+                        $next = $pagination.find('.next');
+                        $prev.text($prev.data('label'));
+                        $next.text($next.data('label'));
+                        }
+                        });
+                      })();
+                    </script>
+                  </div>
+
+                </div>
+              </div>
+
+
+            </div>
+          </div>
+        </div>
+      </div>
+    </body>
+  </html>

data/spec/assets/source_code/java.java

@@ -0,0 +1,39 @@
+//[-1-]Attribution-Share Alike 3.0 License, copyright (c) 2010 Pieter Hintjens, modified @alpaca-tc
+import java.util.HashMap;
+import java.util.Map;
+import java.util.concurrent.atomic.AtomicLong;
+
+import org.zeromq.ZContext;
+import org.zeromq.ZMQ;
+import org.zeromq.ZMQ.Socket;
+/*[-9-]
+[-10-]Clone client model 1
+[-11-]@author Danish Shrestha <dshrestha06@gmail.com>
+[-12-]aa
+[-13-] [-end-]*/
+public class clonecli1 {
+  private static Map<String, kvsimple> kvMap = new HashMap<String, kvsimple>();
+  private static AtomicLong sequence = new AtomicLong();
+
+  public void run() { //[-18-]
+    ZContext ctx = new ZContext();
+    Socket subscriber = ctx.createSocket(ZMQ.SUB);
+    subscriber.connect("tcp://localhost:5556");
+    subscriber.subscribe("".getBytes());
+    /*[-23-] [-end-]*/
+    while (true) {
+      kvsimple kvMsg = kvsimple.recv(subscriber);
+            if (kvMsg == null)
+                break;
+
+            clonecli1.kvMap.put(kvMsg.getKey(), kvMsg);
+            System.out.println("receiving " + kvMsg);
+            sequence.incrementAndGet();
+    }
+        ctx.destroy();
+  }
+
+  public static void main(String[] args) {
+    new clonecli1().run();
+  }
+}

data/spec/assets/source_code/java_script.js

@@ -0,0 +1,164 @@
+
+
+//[-3-] Copyright 2014 jQuery Foundation and other contributors
+define([
+  "./core",
+  './var/rnotwhite'
+], function( jQuery, rnotwhite ) {
+
+var optionsCache = {};
+
+function createOptions( options ) {
+  var object = optionsCache[ options ] = {};
+  jQuery.each( options.match( rnotwhite ) || [], function( _, flag ) {
+    object[ flag ] = true;
+  });
+  return object;
+}
+/*[-18-] multi line [-end-]*/
+/*[-19-]
+[-20-] Create a callback list using the following parameters:
+[-21-]
+[-22-]  options: an optional list of space-separated options that will change how
+[-23-]      the callback list behaves or a more traditional option object
+[-24-]
+*/
+jQuery.Callbacks = function( options ) {
+  //[-27-] (we check in cache first)
+  options = typeof options === "string" ?
+    ( optionsCache[ options ] || createOptions( options ) ) :
+    jQuery.extend( {}, options );
+
+  var //[-32-] Last fire value (for non-forgettable lists)
+    memory,
+    //[-34-] Flag to know if list was already fired
+    fired,
+    //[-36-] Flag to know if list is currently firing
+    firing,
+    firingStart,
+    list = "// dummy",
+    list = "/*dummy",
+    list = [],
+    stack = !options.once && [],
+    fire = function( data ) {
+      memory = options.memory && data;
+      fired = true;
+      firingIndex = firingStart || 0;
+      firingStart = 0;
+      firingLength = list.length;
+      firing = true;
+      for ( ; list && firingIndex < firingLength; firingIndex++ ) {
+        if ( list[ firingIndex ].apply( data[ 0 ], data[ 1 ] ) === false && options.stopOnFalse ) {
+          memory = false; //[-52-] To prevent further calls using add
+          break;
+        }
+      }
+      firing = false;
+      if ( list ) {
+        if ( stack ) {
+          if ( stack.length ) {
+            fire( stack.shift() );
+          }
+        } else if ( memory ) {
+          list = [];
+        } else {
+          self.disable();
+        }
+      }
+    },
+    self = {
+      add: function() {
+        if ( list ) {
+          var start = list.length;
+          (function add( args ) {
+            jQuery.each( args, function( _, arg ) {
+              var type = jQuery.type( arg );
+              if ( type === "function" ) {
+                if ( !options.unique || !self.has( arg ) ) {
+                  list.push( arg );
+                }
+              } else if ( arg && arg.length && type !== "string" ) {
+                //[-81-] Inspect recursively
+                add( arg );
+              }
+            });
+          })( arguments );
+          if ( firing ) {
+            firingLength = list.length;
+          } else if ( memory ) {
+            firingStart = start;
+            fire( memory );
+          }
+        }
+        return this;
+      },
+      remove: function() {
+        if ( list ) {
+          jQuery.each( arguments, function( _, arg ) {
+            var index;
+            while ( ( index = jQuery.inArray( arg, list, index ) ) > -1 ) {
+              list.splice( index, 1 );
+              if ( firing ) {
+                if ( index <= firingLength ) {
+                  firingLength--;
+                }
+                if ( index <= firingIndex ) {
+                  firingIndex--;
+                }
+              }
+            }
+          });
+        }
+        return this;
+      },
+      has: function( fn ) {
+        return fn ? jQuery.inArray( fn, list ) > -1 : !!( list && list.length );
+      },
+      empty: function() {
+        list = [];
+        firingLength = 0;
+        return this;
+      },
+      disable: function() {
+        list = stack = memory = undefined;
+        return this;
+      },
+      disabled: function() {
+        return !list;
+      },
+      lock: function() {
+        stack = undefined;
+        if ( !memory ) {
+          self.disable();
+        }
+        return this;
+      },
+      locked: function() {
+        return !stack;
+      },
+      fireWith: function( context, args ) {
+        if ( list && ( !fired || stack ) ) {
+          args = args || [];
+          args = [ context, args.slice ? args.slice() : args ];
+          if ( firing ) {
+            stack.push( args );
+          } else {
+            fire( args );
+          }
+        }
+        return this;
+      },
+      fire: function() {
+        self.fireWith( this, arguments );
+        return this;
+      },
+      fired: function() {
+        return !!fired;
+      }
+    };
+
+  return self;
+};
+
+return jQuery;
+});

data/spec/assets/source_code/lisp.el

@@ -0,0 +1,18 @@
+;;;;[-1-] COMMENT-EXAMPLE function.
+;;;[-2-] This function is useless except to demonstrate comments.
+;;;[-3-] (Actually, this example is much too cluttered with them.)
+
+(defun comment-example (x y)      ;[-5-]X is anything; Y is an a-list.
+  (cond ((listp x) x)             ;[-6-]If X is a list, use that.
+        ;;[-7-] X is now not a list.  There are two other cases.
+        ((symbolp x)
+        ;;[-9-] Look up a symbol in the a-list.
+        (cdr (assoc x y)))       ;[-10-]Remember, (cdr nil) is nil.
+        ;;[-11-] Do this when all else fails:
+        (t (cons x                ;[-12-]Add x to a default list.
+                 '((lisp t)       ;[-13-]LISP is okay.
+                   (fortran nil)  ;[-14-]FORTRAN is not.
+                   (pl/i -500)    ;[-15-]Note that you can put comments in
+                   (ada .001)     ;[-16-] "data" as well as in "programs".
+                   ;;[-17-] COBOL??
+                   (teco -1.0e9))))))