"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "TeXmacs/progs/prog/prog-format.scm" between
TeXmacs-2.1.1-src.tar.gz and TeXmacs-2.1.2-src.tar.gz

About: GNU TeXmacs is a scientific editing platform designed to create beautiful technical documents using a wysiwyg interface.

prog-format.scm  (TeXmacs-2.1.1-src)	:	prog-format.scm  (TeXmacs-2.1.2-src)
skipping to change at line 16		skipping to change at line 16
;;		;;
;; This software falls under the GNU general public license version 3 or later.		;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE		;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.		;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(texmacs-module (prog prog-format)		(texmacs-module (prog prog-format)
(:use (convert rewrite init-rewrite)))		(:use (convert rewrite init-rewrite)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; C++ source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format cpp
(:name "C++ Source Code")
(:suffix "cpp" "cc" "hpp" "hh"))
(define (texmacs->cpp x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
(define (cpp->texmacs x . opts)
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
(define (cpp-snippet->texmacs x . opts)
(verbatim-snippet->texmacs x
(acons "verbatim->texmacs:encoding" "SourceCode" '())))
(converter texmacs-tree cpp-document
(:function texmacs->cpp))
(converter cpp-document texmacs-tree
(:function cpp->texmacs))
(converter texmacs-tree cpp-snippet
(:function texmacs->cpp))
(converter cpp-snippet texmacs-tree
(:function cpp-snippet->texmacs))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scheme source files		;; Scheme source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format scheme		(define-format scheme
(:name "Scheme Source Code")		(:name "Scheme Source Code")
(:suffix "scm"))		(:suffix "scm"))
(define (texmacs->scheme x . opts)		(define (texmacs->scheme x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))		(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
skipping to change at line 74		skipping to change at line 44
(:function texmacs->scheme))		(:function texmacs->scheme))
(converter scheme-document texmacs-tree		(converter scheme-document texmacs-tree
(:function scheme->texmacs))		(:function scheme->texmacs))
(converter texmacs-tree scheme-snippet		(converter texmacs-tree scheme-snippet
(:function texmacs->scheme))		(:function texmacs->scheme))
(converter scheme-snippet texmacs-tree		(converter scheme-snippet texmacs-tree
(:function scheme-snippet->texmacs))		(:function scheme-snippet->texmacs))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scala source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format scala
(:name "Scala Source Code")
(:suffix "scala"))
(define (texmacs->scala x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
(define (scala->texmacs x . opts)
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
(define (scala-snippet->texmacs x . opts)
(verbatim-snippet->texmacs x
(acons "verbatim->texmacs:encoding" "SourceCode" '())))
(converter texmacs-tree scala-document
(:function texmacs->scala))
(converter scala-document texmacs-tree
(:function scala->texmacs))
(converter texmacs-tree scala-snippet
(:function texmacs->scala))
(converter scala-snippet texmacs-tree
(:function scala-snippet->texmacs))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Java source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format java
(:name "Java Source Code")
(:suffix "java"))
(define (texmacs->java x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
(define (java->texmacs x . opts)
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
(define (java-snippet->texmacs x . opts)
(verbatim-snippet->texmacs x
(acons "verbatim->texmacs:encoding" "SourceCode" '())))
(converter texmacs-tree java-document
(:function texmacs->java))
(converter java-document texmacs-tree
(:function java->texmacs))
(converter texmacs-tree java-snippet
(:function texmacs->java))
(converter java-snippet texmacs-tree
(:function java-snippet->texmacs))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Python source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format python
(:name "Python Source Code")
(:suffix "py"))
(define (texmacs->python x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
(define (python->texmacs x . opts)
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
(define (python-snippet->texmacs x . opts)
(verbatim-snippet->texmacs x
(acons "verbatim->texmacs:encoding" "SourceCode" '())))
(converter texmacs-tree python-document
(:function texmacs->python))
(converter python-document texmacs-tree
(:function python->texmacs))
(converter texmacs-tree python-snippet
(:function texmacs->python))
(converter python-snippet texmacs-tree
(:function python-snippet->texmacs))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Julia source files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-format julia
(:name "Julia Source Code")
(:suffix "jl"))
(define (texmacs->julia x . opts)
(texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
(define (julia->texmacs x . opts)
(verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
(define (julia-snippet->texmacs x . opts)
(verbatim-snippet->texmacs x
(acons "verbatim->texmacs:encoding" "SourceCode" '())))
(converter texmacs-tree julia-document
(:function texmacs->julia))
(converter julia-document texmacs-tree
(:function julia->texmacs))
(converter texmacs-tree julia-snippet
(:function texmacs->julia))
(converter julia-snippet texmacs-tree
(:function julia-snippet->texmacs))
End of changes. 2 change blocks.
30 lines changed or deleted		0 lines changed or added

---