juli 2.0.0

data/lib/juli/macro/wikipedia.rb

@@ -0,0 +1,19 @@
+require 'juli/macro/template_base'
+
+module Juli
+  module Macro
+    # Interwiki for Wikipedia
+    class Wikipedia < TemplateBase
+      DEFAULT_TEMPLATE = '<a href="http://en.wikipedia.org/wiki/%{wikipedia}">%{wikipedia}</a>'
+
+      def self.conf_template
+        <<EOM
+# HTML template for wikipedia.
+# '%{wikipedia}' in the template will be replaced by actual Wikipedia word:
+#
+#wikipedia: #{DEFAULT_TEMPLATE}
+EOM
+      end
+    end
+  end
+end

data/lib/juli/parser.y

@@ -0,0 +1,360 @@
+# Text parser for Juli format.
+class Juli::Parser
+  options no_result_var
+
+rule
+  # Racc action returns absyn node to build absyn-tree
+  text
+    : blocks              { @root = val[0] }
+
+  blocks
+    : /* none */          { Absyn::ArrayNode.new }
+    | blocks block        { val[0].add(val[1]) if val[1]; val[0] }
+
+  block
+    : textblock           { Absyn::StrNode.new(val[0]) }
+    | '(' textblock ')'   { Absyn::Verbatim.new(val[1]) }
+    | '{' chapters '}'    { val[1] }
+    | '(' ulist ')'       { val[1] }
+    | '(' olist ')'       { val[1] }
+    | cdlist
+    | dlist
+    | WHITELINE           { nil }
+
+  textblock
+    : STRING
+    | textblock STRING    { val[0] + val[1] }
+
+  # chapters are list of chapter at the same level,
+  # and chapter is header + blocks.
+  #
+  # Where, chapter here refers both chapter and/or section in
+  # usual meanings since (again) it contains header + blocks.
+  # 
+  # '{' ... '}' at chapters syntax is to let
+  # racc parse headlines with *level* correctly.
+  # It's the same as 'if ... elsif ... elsif ... end' in Ada, Eiffel, and Ruby.
+  chapters
+    : chapter             { h = Absyn::ArrayNode.new; h.add(val[0]) }
+    | chapters chapter    { val[0].add(val[1]) }
+  chapter
+    : H STRING blocks     { Absyn::Chapter.new(val[0], val[1], val[2]) }
+
+  # unordered list
+  ulist
+    : ulist_item          { l = Absyn::UnorderedList.new; l.add(val[0]) }
+    | ulist ulist_item    { val[0].add(val[1]) }
+  ulist_item
+    : '*' blocks          { val[1] }
+
+  # ordered list
+  olist
+    : olist_item          { l = Absyn::OrderedList.new; l.add(val[0]) }
+    | olist olist_item    { val[0].add(val[1]) }
+  olist_item
+    : '#' blocks          { val[1] }
+
+  # compact dictionary list
+  cdlist
+    : cdlist_item         { l = Absyn::CompactDictionaryList.new; l.add(val[0])}
+    | cdlist cdlist_item  { val[0].add(val[1]) }
+  cdlist_item
+    : CDT STRING          { Absyn::CompactDictionaryListItem.new(val[0],val[1])}
+
+  # dictionary list
+  dlist
+    : dlist_item          { l = Absyn::DictionaryList.new; l.add(val[0]) }
+    | dlist dlist_item    { val[0].add(val[1]) }
+  dlist_item
+    : DT '(' textblock ')'{ Absyn::DictionaryListItem.new(val[0], val[2]) }
+end
+
+---- header
+require 'juli/wiki'
+
+---- inner
+  require 'erb'
+  require 'juli/visitor'
+
+  # keep nest level; will be used to yield ')'
+  #
+  # This is used for both headline level and list nesting.
+  class NestStack
+    class InvalidOrder < StandardError; end
+
+    def initialize
+      @stack    = []
+      @baseline = 0
+    end
+
+    # action on '('
+    def push(length)
+      if @stack.last && @stack.last >= length
+        raise InvalidOrder, "top(#{@stack.last}) >= length(#{length})"
+      end
+      @stack << length
+      @baseline = length
+    end
+
+    # current baseline
+    def baseline
+      @baseline
+    end
+
+    # action on ')'
+    #
+    # go up nest until length meets.  Block (mainly for ')') is called
+    # on each pop
+    # If length==nil, pop just 1 level up
+    def pop(length = nil, &block)
+      if length
+        if @stack.last && @stack.last > length
+          @stack.pop
+          yield if block_given?
+          self.pop(length, &block)
+        else
+          @baseline = @stack.last ? length : 0
+        end
+      else
+        if @stack.last
+          @stack.pop
+          yield if block_given?
+          @baseline = @stack.last || 0
+        end
+      end
+    end
+
+    def flush(&block)
+      while @stack.last do
+        yield if block_given?
+        @stack.pop
+      end
+      @baseline = 0
+    end
+
+    # for debug
+    def status
+      @stack.inspect
+    end
+  end
+
+  # parse one file, build Absyn tree, then generate HTML
+  def parse(in_file, visitor)
+    @yydebug      = true          if ENV['YYDEBUG']
+    @indent_stack = NestStack.new
+    @header_stack = NestStack.new
+
+    @in_verbatim  = false
+    @in_file      = in_file
+    File.open(in_file) do |io|
+      @in_io = io
+      yyparse self, :scan
+    end
+    visitor.run_file(in_file, @root)
+  end
+
+  # return absyn tree
+  def tree
+    @root
+  end
+
+private
+  class ScanError < Exception; end
+
+  def scan(&block)
+    @src_line = 0
+    while line = @in_io.gets do
+      debug("@in_verbatim = #{@in_verbatim.inspect}")
+      @src_line += 1
+      case line
+      when /^\s*$/
+        if @in_verbatim
+          yield [:STRING, "\n"]
+        else
+          indent_or_dedent(0, &block)
+          yield [:WHITELINE, nil]
+        end
+      when /^(={1,6})\s+(.*)$/
+        header_nest($1.length, &block)
+        yield [:H,       $1.length]
+        yield [:STRING,  $2]
+      when /^(\s*)(\d+\.\s+)(.*)$/
+        on_list_item(line, '#', $1.length, $2.length, $3, &block)
+      when /^(\s*)(\*\s+)(.*)$/
+        on_list_item(line, '*', $1.length, $2.length, $3, &block)
+      when /^(\s*)(\S.*)::\s*$/
+        if !on_item($1.length, $2 + "::\n", &block)
+          yield [:DT, $2]
+        end
+      when /^(\s*)((\S.*)::\s+(.*))$/
+        if !on_item($1.length, $2 + "\n", &block)
+          yield [:CDT, $3]
+          yield [:STRING, $4]
+        end
+      when /^(\s*)(.*)$/
+        length = $1.length
+        if indent_or_dedent(length, &block)
+          @in_verbatim = true
+        end
+        yield [:STRING,
+               (@in_verbatim ?
+                   ' ' * (length - @indent_stack.baseline) :
+                   '') + $2 + "\n"]
+      else
+        raise ScanError
+      end
+    end
+    @indent_stack.flush{ yield [')', nil] }
+    @header_stack.flush{ yield ['}', nil] }
+    yield [false, nil]
+  end
+
+  class NoSrcLine < ParseError; end
+
+  def on_error(et, ev, values)
+    print_line('Juli syntax error')
+    raise ParseError
+  rescue NoSrcLine
+    raise ParseError, sprintf("Juli syntax error at line %d\n", @src_line)
+  end
+
+  def on_list_item(line, token, length1, length2, str, &block)
+    length  = length1 + length2
+    debug_indent("list item('#{token}')", length)
+    if @in_verbatim
+      if @indent_stack.baseline <= length1
+        yield [:STRING,  line]
+      else
+        # after verbatim, dedent just 1-level because there is no
+        # deeper nest in verbatim
+        dedent(&block)
+        @in_verbatim = false
+        indent_or_dedent_on_non_verbatim(length, &block)
+        yield [token, nil]
+        yield [:STRING, str + "\n"]
+      end
+    else
+      base_line_before = @indent_stack.baseline
+      indent_or_dedent(length, &block)
+      if base_line_before > 0 && @indent_stack.baseline == 0
+        warn('Incorrect nest here, but reset it and continue to process.')
+        indent(length, &block)
+      end
+      yield [token, nil]
+      yield [:STRING, str + "\n"]
+    end
+  end
+
+  # action on dictionary list and compact dictionary list
+  #
+  # 1st, check indent, dedent, or continue.
+  # 2nd, if in verbatime, yield string.
+  # otherwise, return in_verbatim to tell caller to do the 'NON verbatim'
+  # case.
+  #
+  # === RETURN
+  # in verbatim
+  def on_item(length, str, &block)
+    if indent_or_dedent(length, &block)
+      @in_verbatim = true
+    end
+    if @in_verbatim
+      yield [:STRING, str]
+    end
+    @in_verbatim
+  end
+
+  # calculate indent level and yield '(' or ')' correctly
+  #
+  # === RETURN
+  # true::  not @in_verbatim and  @indent_stack.baseline < length
+  # false:: other case
+  def indent_or_dedent(length, &block)
+    if @in_verbatim
+      debug_indent('in_verbatim', length)
+      if @indent_stack.baseline > length    # end of verbatim
+        dedent(length, &block)
+        @in_verbatim = false
+      end
+      false
+    else
+      indent_or_dedent_on_non_verbatim(length, &block)
+    end
+  end
+
+  def indent_or_dedent_on_non_verbatim(length, &block)
+    debug_indent('NOTverbatim', length)
+    if @indent_stack.baseline < length    # begin verbatim
+      indent(length, &block)
+      true
+    elsif @indent_stack.baseline > length
+      dedent(length, &block)
+      false
+    end
+  end
+
+  def indent(length, &block)
+    @indent_stack.push(length)
+    yield ['(', nil]
+  end
+
+  def dedent(length=nil, &block)
+    @indent_stack.pop(length) do
+      yield [')', nil]
+    end
+  end
+
+  # calculate header level and yield '(' or ')' correctly
+  def header_nest(length, &block)
+    # at header level change, flush indent_stack
+    @indent_stack.flush{ yield [')', nil] }
+    @in_verbatim = false
+
+    if @header_stack.baseline < length
+      @header_stack.push(length)
+      yield ['{', nil]
+    elsif @header_stack.baseline > length
+      @header_stack.pop(length) do
+        yield ['}', nil]
+      end
+    end
+  end
+
+  # print indent info on debug
+  def debug_indent(key, length)
+    debug(sprintf(
+        "indent(%s): @indent_stack(%s,%d), length=%d",
+        key,
+        @indent_stack.status,
+        @indent_stack.baseline,
+        length))
+  end
+
+  # print str with source text line info to $stderr.
+  # If @src_line is not found, NoSrcLine error is raised.
+  def print_line(str)
+    File.open(@in_file) do |io|
+      line = 0
+      while line_str = io.gets do
+        line += 1
+        if @src_line == line
+          return $stderr.printf("%s: %s\n%04d: %s\n",
+                    @in_file,
+                    str,
+                    @src_line,
+                    line_str)
+        end
+      end
+    end
+    raise NoSrcError
+  end
+
+  def warn(str)
+    print_line('WARN: ' + str)
+  end
+
+  # general debug method
+  def debug(str)
+    @racc_debug_out.print(str, "\n") if @yydebug
+  end
+---- footer

data/lib/juli/template/default.html

@@ -0,0 +1,64 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<!--
+
+                    DO NOT MODIFY THIS FILE DIRECTORY!
+
+This file is automatically generated from a text file by juli(1).
+
+Thanks!
+-->
+<%#
+= Required methods
+
+juli(1) template must have following methods:
+
+title::       title string
+prototype::   prototype url
+javascript::  javascript url
+stylesheet::  stylesheet url
+body::        generate html
+
+= Optional methods
+
+Following helper methods are optional:
+
+contents::    draw contents of page
+%>
+<head>
+  <meta http-equiv="Content-Type"        content="text/html; charset=UTF-8">
+  <title><%= title %></title>
+  <script src="<%= prototype %>"  type="text/javascript"></script>
+  <script src="<%= javascript %>" type="text/javascript"></script>
+  <link href="<%= stylesheet %>" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<h1>
+  <%= title %>
+</h1>
+<br/><br/>
+
+<table width='100%'>
+<tr>
+  <td>
+    <%= contents %>
+  </td>
+  <td align=right valign=top>
+    <table>
+    <tr><td align=left valign=top>
+          <div class=sitemap>
+            <a href="<%= sitemap %>">Sitemap</a>
+          </div>
+          <br/>
+          <!--#include virtual="recent_update.shtml" -->
+        </td></tr>
+    </table>
+  </td>
+</tr>
+</table>
+<br/><br/>
+<%= body %>
+<hr/>
+Generated by <a href='http://jjjuli.sourceforge.net/'>juli <%= Juli::VERSION %></a>
+</body>
+</html>

data/lib/juli/template/facebook.html

@@ -0,0 +1,82 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html xmlns:fb="http://ogp.me/ns/fb#">
+<!--
+
+                    DO NOT MODIFY THIS FILE DIRECTORY!
+
+This file is automatically generated from a text file by juli(1).
+
+Thanks!
+-->
+<%#
+= Required methods
+
+juli(1) template must have following methods:
+
+title::       title string
+prototype::   prototype url
+javascript::  javascript url
+stylesheet::  stylesheet url
+body::        generate html
+
+= Optional methods
+
+Following helper methods are optional:
+
+contents::    draw contents of page
+%>
+<head>
+  <meta http-equiv="Content-Type"        content="text/html; charset=UTF-8">
+  <title><%= title %></title>
+  <script src="<%= prototype %>"  type="text/javascript"></script>
+  <script src="<%= javascript %>" type="text/javascript"></script>
+  <link href="<%= stylesheet %>" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="fb-root"></div>
+<!--
+YOUR_APPID below is a uniq ID for your site.
+This *SHOULD* be replaced with your actual digits taken from
+Facebook developer site application registration page fo
+-->
+<script>(function(d, s, id) {
+  var js, fjs = d.getElementsByTagName(s)[0];
+  if (d.getElementById(id)) return;
+  js = d.createElement(s); js.id = id;
+  js.src = "//connect.facebook.net/ja_JP/all.js#xfbml=1&appId=YOUR_APPID";
+  fjs.parentNode.insertBefore(js, fjs);
+}(document, 'script', 'facebook-jssdk'));
+</script>
+
+<h1>
+  <%= title %>
+</h1>
+<br/><br/>
+
+<table width='100%'>
+<tr>
+  <td>
+    <%= contents %>
+  </td>
+  <td align=right valign=top>
+    <table>
+    <tr><td align=left valign=top>
+          <div class=sitemap>
+            <a href="<%= sitemap %>">Sitemap</a>
+          </div>
+          <br/>
+          <!--#include virtual="recent_update.shtml" -->
+        </td></tr>
+    </table>
+  </td>
+</tr>
+</table>
+<br/><br/>
+<%= body %>
+<br/><br/>
+<%= fb_like %>
+<%= fb_comments %>
+<hr/>
+Generated by <a href='http://jjjuli.sourceforge.net/'>juli <%= Juli::VERSION %></a>
+</body>
+</html>