depager 0.1.9

data/ChangeLog

@@ -0,0 +1,4 @@
+2007-05-27  maita  <maita@fujiyama.slis.tsukuba.ac.jp>
+
+	* Initial release.
+

data/Manifest.txt

@@ -0,0 +1,52 @@
+ChangeLog
+Manifest.txt
+README.en
+README.ja
+bin/depager
+data/depager/misc/depager-mode.el
+data/depager/sample/extension/paction.dr
+data/depager/sample/extension/pactiontest.dr
+data/depager/sample/pl0d/pl0ds.dr
+data/depager/sample/pl0d/pl0test.pl0
+data/depager/sample/sample_calc/calc.action.dr
+data/depager/sample/sample_calc/calc.astdf.dr
+data/depager/sample/sample_calc/calc.astl.action.dr
+data/depager/sample/sample_calc/calc.astl.dr
+data/depager/sample/sample_calc/calc.atree.dr
+data/depager/sample/sample_calc/calc.cst.dr
+data/depager/sample/sample_calc/calc.dr
+data/depager/sample/sample_calc/calc.lex.dr
+data/depager/sample/sample_calc/calc.nvaction.dr
+data/depager/sample/sample_calc/calc_prec.nvaction.dr
+data/depager/sample/slex_test/slextest1.dr
+data/depager/sample/slex_test/slextest2.dr
+lib/depager.rb
+lib/depager/Rakefile
+lib/depager/action.rb
+lib/depager/ast_base.dr
+lib/depager/ast_base.rb
+lib/depager/astdf.rb
+lib/depager/astl.rb
+lib/depager/atree.dr
+lib/depager/atree.rb
+lib/depager/cst.dr
+lib/depager/cst.rb
+lib/depager/lex.dr
+lib/depager/lex.rb
+lib/depager/lr.rb
+lib/depager/nvaction.rb
+lib/depager/parse_action.rb
+lib/depager/parser.rb
+lib/depager/psrtmpl.rb
+lib/depager/slex.dr
+lib/depager/slex.rb
+lib/depager/srp.rb
+lib/depager/template/astdf.erbs
+lib/depager/template/astl.erbs
+lib/depager/template/extension_lalr_master.erb
+lib/depager/template/extension_lalr_slave.erb
+lib/depager/template/simple.erb
+lib/depager/template/single_lalr_parser.erb
+lib/depager/utils.rb
+lib/depager/version.rb
+setup.rb

data/README.en

@@ -0,0 +1,64 @@
+Depager README
+==============
+
+  Depager is a self extensible parser generator.
+
+
+Requirements
+------------
+
+  * Ruby 1.8
+
+
+Install(gem)
+------------
+
+  $ sudo gem install depager
+
+
+Install(tgz)
+------------
+
+  De-compress archive and enter its top directory.
+  Then type:
+
+   ($ su)
+    # ruby setup.rb
+
+  These simple step installs this program under the default
+  location of Ruby libraries.  You can also install files into
+  your favorite directory by supplying setup.rb some options.
+  Try "ruby setup.rb --help".
+
+
+Usage
+-----
+
+    $ depager -o outputfile inputfile
+
+  ex.
+
+    $ depager -o calc.tab.rb calc.dr
+
+  Try -h option for more detail.
+
+
+License
+-------
+
+  GPL
+
+Stuff
+-----
+
+  Author:
+    maita and Nakai "Language" lab.
+
+  Supervisor:
+    Hisashi Nakai
+
+  Original(Depage) Author:
+    Chikara Satake
+
+
+maita <maita@fujiyama.slis.tsukuba.ac.jp>

data/README.ja

@@ -0,0 +1,128 @@
+Depager README
+==============
+
+  Deager�ϼ��ʳ�ĥ��ǽ�ʹ�ʸ���ϴ������ϤǤ���
+
+
+ɬ�״Ķ�
+--------
+
+  * Ruby 1.8
+
+
+���󥹥ȡ�����ˡ(gem)
+---------------------
+
+  gem��depager�򤪻Ȥ��Υ����ƥ�˥��󥹥ȡ��뤹���硢
+  ���ޥ�ɥ饤��ǰʲ��Τ褦���Ǥ�����Ǥ���������
+
+    # sudo gem install depager
+
+
+���󥹥ȡ�����ˡ(tgz)
+---------------------
+
+  tgz��depager�򤪻Ȥ��Υ����ƥ�˥��󥹥ȡ��뤹���硢
+  ���ޥ�ɥ饤��ǰʲ��Τ褦���Ǥ�����Ǥ���������
+  UNIX �� OS �ǤϤ����餯 root ���¤�ɬ�פˤʤ�ޤ���
+
+   ($ su)
+    # ruby setup.rb
+
+  �ĿͤΥۡ���ǥ��쥯�ȥ�ʲ��˥��󥹥ȡ��뤹���硢
+  ���ޥ�ɥ饤��ǰʲ��Τ褦���Ǥ�����Ǥ���������
+  ('home'����ʬ�Ϥ��ʤ��Υۡ���ǥ��쥯�ȥ�Ǥ�*�ʤ�*��
+   'home'�Ȥ���ʸ����Ǥ�)
+
+    # ruby setup.rb all --installdirs=home
+
+  �ĿͤΥۡ���ǥ��쥯�ȥ�ʲ��˥��󥹥ȡ��뤷����硢
+  �Ķ��ѿ�RUBYLIB�˥ǥ��쥯�ȥ���ɲä��Ƥ���������
+  (�����餯 $HOME/lib/ruby �Ǥ�)
+
+    $ RUBYLIB=$RUBYLIB:$HOME/lib/ruby
+    $ export RUBYLIB
+
+  ���󥹥ȡ�������ѹ������ꤹ�뤳�Ȥ�Ǥ��ޤ���
+  ���ξ��� ruby setup.rb --help ��¹Ԥ��ƤߤƤ���������
+
+  ����˾ܤ���setup.rb�λȤ����ˤĤ��Ƥϡ�
+    setup.rb ( LoveRubyNet )
+    http://i.loveruby.net/ja/projects/setup/
+  �򻲾Ȥ��Ƥ���������
+
+
+��ñ�ʻȤ���
+------------
+
+    # depager -o ���ϥե����� ���ϥե�����
+
+  ��.
+
+    # depager -o calc.tab.rb calc.dr
+
+  �ܤ����� -h ���ץ��������Ѥ���������
+
+
+�ե����������
+--------------
+
+  /bin
+        depager           �¹���
+  /lib
+        depager.rb        �����ϥᥤ��
+    /depager
+        Rakefile          �ӥ����
+        action.rb         ����������ĥ
+        ast_base.rb       AST�ϳ�ĥ�δ��쥯�饹
+        astdf.rb          ����ͥ��õ��AST��ĥ
+        astl.rb           ��ͳõ��AST��ĥ
+        atree.rb          ����ˤ���ڹ��۳�ĥ
+        cst.rb            CST��ĥ
+        lex.rb            ������ϳ�ĥ
+        lr.rb             LRɽ������
+        nvaction.rb       ̾���ե���������ĥ
+        parse_action.rb   ��ñ�ʥ�������������
+        parser.rb         ��󥿥���饤�֥��
+        psrtmpl.rb        �ǥ��졼���ο���
+        srp.rb            �����å�ɽ���ǥ��졼��
+        slex.rb           �����ջ�����ϳ�ĥ
+    /template
+        astdf.erbs        astdf�ƥ�ץ졼��
+        astl.erbs         astl�ƥ�ץ졼��
+        extension_lalr_master.erb 
+                          ��ĥ�ޥ����ƥ�ץ졼��
+        extension_lalr_slave.erb
+                          ��ĥ���졼�֥ƥ�ץ졼��
+        simple.rb
+                          ����ץ�ƥ�ץ졼��
+        single_lalr_parser.erb
+                          ɸ��LR�ѡ����ƥ�ץ졼��
+  /data
+    /depager
+      /misc
+        depager-mode.el   Emacs��depager-mode
+      /sample
+        /samlpe_calc      ���������������ץ�
+        /pl0d             PL0���󥿥ץ꥿
+        /slextest         �����ջ�����ϳ�ĥ����ץ�
+
+
+�饤����
+----------
+
+  GPL�˽��ä����ۤ��ޤ���
+
+
+����¾
+------
+
+  Depager�������δ��ĤΤ�ȡ�maita��������
+  ���漼�ˤ�äƳ�ȯ����ޤ�����
+  
+  Depager�δ�Ȥʤä�Depage��Ʊ���漼�κ����ϻ�ˤ�ä�
+  ��ȯ����ޤ�����
+
+
+maita <maita@fujiyama.slis.tsukuba.ac.jp>
+��渦�漼 http://nakai2.slis.tsukuba.ac.jp/hiki/

data/bin/depager

@@ -0,0 +1,47 @@
+#!/usr/local/bin/ruby
+require 'depager'
+require 'optparse'
+
+include Depager
+begin
+  $MP_DEBUG = nil
+  dp = nil
+  output_file_name = nil
+  ARGV.options do |opt|
+    opt.on('-g') { $MP_DEBUG=true }
+    opt.on('-o [file]') {|ofn| output_file_name = ofn }
+    opt.parse!
+  end
+  unless ARGV[0]
+    warn "#{File.basename $0}: no input file."; exit 1
+  end
+
+  lineno = 0
+  File.open(ARGV[0]) do |f|
+    begin
+      dp = DeclParser.new
+      res = dp.parse(f, ARGV[0])
+      if output_file_name
+        File.open(output_file_name, "w"){|o| o.write res }
+      else
+        print res
+      end
+    rescue Exception
+      lineno = dp.files.lineno rescue '?'
+      raise
+    end
+  end
+rescue SystemExit
+rescue Exception
+  warn "#{File.basename $0}: fatal error."
+  warn "| #{$!}"
+  warn "| - #{dp.files.path}:#{lineno}" if dp
+  $@[0].match(/^(.+):(\d+)(:.+)?$/)
+  warn "| ( #{File.basename $1}:#{$2} )"
+  if $MP_DEBUG
+    warn "#{File.basename $0}: #{$@.unshift($!).join("\n")}"
+  else
+    warn "Try -g option if you want to see more error info."
+  end
+  exit 1
+end

data/data/depager/misc/depager-mode.el

@@ -0,0 +1,209 @@
+;; depager-mode.el
+;;   original is racc-mode.el
+;;   modified for Depager by M
+;;
+;; write the following in your .emacs file
+;; depager-mode
+;; (autoload 'depager-mode "depager-mode" "alternate mode for editing depager files" t)
+;; (setq auto-mode-alist (append '(("\\.dr$" . depager-mode)) auto-mode-alist))
+;;
+;; racc-mode.el
+;; 
+;; Copyright (c) 2001 sheepman
+;; All rights reserved.
+;;
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;; 2. 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.
+;; 3. The name of the author may not be used to endorse or promote products
+;;    derived from this software without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+;; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+;; THEORY OF 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.
+;;
+
+(require 'derived)
+
+(define-derived-mode depager-mode ruby-mode "Depager"
+  "Major mode for Depager editing."
+  (interactive)
+  (setq indent-line-function 'depager-indent-line)
+  (define-key depager-mode-map "\t" 'depager-indent-command)
+  (define-key depager-mode-map "\C-j" 'depager-reindent-newline-and-indent)
+  (run-hooks 'depager-mode-hook))
+
+(defun depager-indent-command ()
+  (interactive)
+  (depager-indent-line t))
+
+(defun depager-reindent-newline-and-indent ()
+  (interactive)
+  (depager-indent-command)
+  (newline)
+  (depager-indent-command))
+
+(defun depager-indent-line (&optional flag)
+  (if (or (string-match "^#begin-rule[ \t]*$" (current-line))
+          (string-match "^#end-rule[ \t]*$" (current-line)))
+      (depager-indent-to 0)
+    (if (point-in-rule)
+        (depager-indent-to (depager-calculate-indent))
+      (if (point-before-rule)
+          (depager-indent-to (depager-calculate-indent-before-rule))
+        (ruby-indent-line t)))))
+
+(defun beginning-of-rule ()
+  (beginning-of-buffer)
+  (re-search-forward "^#begin-rule")
+  (beginning-of-line))
+
+(defun end-of-rule ()
+  (beginning-of-buffer)
+  (re-search-forward "^#end-rule")
+  (end-of-line))
+
+(defun point-in-rule ()
+  (save-excursion
+    (let (forward-begin-rule (re-search-forward-without-moving-point "^#begin-rule"))
+      (backward-end-rule (re-search-backward-without-moving-point "^#end-rule"))
+      (forward-end-rule (re-search-forward-without-moving-point "^#end-rule"))
+      (tmp (print "???")))
+    (or (and forward-begin-rule
+             backward-end-rule
+             forward-end-rule
+             (< forward-end-rule forward-begin-rule)
+             (< forward-begin-rule backward-end-rule))
+        (and backward-begin-rule
+             forward-end-rule
+             (< forward-begin-rule backward-end-rule)))))
+
+(defun point-before-rule ()
+  (save-excursion
+    (and (not (point-in-rule))
+         (re-search-forward-without-moving-point "^#begin-rule"))))
+
+(defun point-in-p ()
+  (save-excursion
+    (and (point-before-rule)
+         (re-search-forward-without-moving-point "^%}")
+         (re-search-backward-without-moving-point "^%\\(.*\\){")
+         )))
+
+(defun point-in-s-p (s)
+  (save-excursion
+    (and (point-before-rule)
+         (re-search-forward-without-moving-point "^%}")
+         (re-search-backward-without-moving-point "^%\\(.*\\){")
+         (string-match s (match-string 1))
+         )))
+
+(defun point-in-token-statement ()
+  (save-excursion
+    (defun match-token-line (str)
+      (or (string-match "^[ \t]*|[ \t]*"
+                        str)
+          (string-match "[ \t]*:[ \t]*\\(#.*\\)?\n$"
+                        str)
+          (string-match "^[ \t]*=>[ \t]*"
+                        str)
+          (string-match "^[ \t]*<.*>[ \t]*\n$"
+                        str)
+          (string-match "^[ \t]*;[ \t]*\n$"
+                        str)))
+    (defun match-token-line2 ()
+      (save-excursion
+        (forward-line -1)
+        (while (string-match "^[ \t]*\n$" (current-line))
+          (forward-line -1))
+        (string-match "[ \t]*:[ \t]*\\(#.*\\)?$"
+                      (current-line))))
+    (and (point-in-rule)
+         (or (match-token-line (current-line))
+             (match-token-line2)))))
+
+(defun point-in-action-statement ()
+  (and (point-in-rule)
+       (not (point-in-token-statement))))
+
+(defun beginning-of-action ()
+  (if (point-in-action-statement)
+      (re-search-backward "^[ \t]*{" nil t)
+    nil))
+
+(defvar depager-indent-level 2)
+(setq depager-token-length-max 0)
+
+(defun depager-indent-to (x)
+  (ruby-indent-to x))
+
+(defun depager-calculate-indent ()
+  (save-excursion
+    (if (point-in-token-statement)
+        (cond ((string-match "^[ \t]*|[ \t]*" (current-line))
+               (* 2 depager-indent-level))
+              ((string-match "[ \t]*:[ \t]*\\(#.*\\)?$" (current-line)) 
+               depager-indent-level)
+              ((string-match "^[ \t]*=>[ \t]*" (current-line)) 
+               (* 3 depager-indent-level))
+              ((string-match "^[ \t]*<.*>[ \t]*$" (current-line)) 
+               (* 3 depager-indent-level))
+              ((string-match "^[ \t]*;[ \t]*$" (current-line))
+               depager-indent-level)
+              (t (* 3 depager-indent-level)))
+      (if (string-match "^[ \t]*[{}][ \t]*#*[ \t]*$" (current-line))
+          (* 3 depager-indent-level)
+        (ruby-calculate-indent (max (save-excursion
+                                      (ruby-beginning-of-indent)
+                                      (point))
+                                    (save-excursion
+                                      (beginning-of-action)
+                                      (point))))))))
+
+(defun depager-calculate-indent-before-rule ()
+  (cond ((or (string-match "^%.*{[ \t]*$" (current-line))
+             (string-match "^%}[ \t]*$" (current-line)))
+         0)
+        ((point-in-p)
+         (ruby-calculate-indent (max (save-excursion
+                                       (ruby-beginning-of-indent)
+                                       (point))
+                                     (save-excursion
+                                       (re-search-backward "^%.*\\({\\)" nil t)
+                                       (match-beginning 1)))))
+        (t 0)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;
+;; general functions
+;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun current-line ()
+  (save-excursion
+    (buffer-substring (save-excursion (beginning-of-line)
+                                      (point))
+                      (save-excursion (end-of-line)
+                                      (1+ (point))))))
+(defun string-length (str)
+  (- (string-match "$" str) (string-match "^" str)))
+
+(defun re-search-forward-without-moving-point (str)
+  (save-excursion
+    (re-search-forward str nil t)))
+
+(defun re-search-backward-without-moving-point (str)
+  (save-excursion
+    (re-search-backward str nil t)))
+
+(provide 'depager-mode)