| 
					
				 | 
			
			
				@@ -1,6 +1,6 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; ob-ebnf.el --- org-babel functions for ebnf evaluation 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-;; Copyright (C) your name here 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+;; Copyright (C) 2013 Free Software Foundation, Inc. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;; Author: Michael Gauland 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;; Keywords: literate programming, reproducible research 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -36,7 +36,7 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;     :style specifies a value in ebnf-style-database. This provides the 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;            ability to customise the output. The style can also specify the 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-;;;            gramnmar syntax (by setting ebnf-syntax); note that only ebnf, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+;;;            grammar syntax (by setting ebnf-syntax); note that only ebnf, 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;            iso-ebnf, and yacc are supported by this file. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; Requirements: 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -64,14 +64,13 @@ called by `org-babel-execute-src-block'" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (result nil)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (with-temp-buffer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(when style (ebnf-push-style style)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(let  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	    ((comment-format 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      (cond ((string= ebnf-syntax 'yacc) "/*%s*/") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    ((string= ebnf-syntax 'ebnf) ";%s") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    ((string= ebnf-syntax 'iso-ebnf) "(*%s*)") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (t (setq result 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			     (format "EBNF error: format %s not supported." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-				     ebnf-syntax)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(let ((comment-format 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (cond ((string= ebnf-syntax 'yacc) "/*%s*/") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     ((string= ebnf-syntax 'ebnf) ";%s") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     ((string= ebnf-syntax 'iso-ebnf) "(*%s*)") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (t (setq result 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			      (format "EBNF error: format %s not supported." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				      ebnf-syntax)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (setq ebnf-eps-prefix dest-dir) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (insert (format comment-format (format "[%s" dest-root))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (newline) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -80,8 +79,7 @@ called by `org-babel-execute-src-block'" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (insert (format comment-format (format "]%s" dest-root))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (ebnf-eps-buffer) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (when style (ebnf-pop-style)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      result 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      ))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      result))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (provide 'ob-ebnf) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;; ob-ebnf.el ends here 
			 |