mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
remove `version' field from <language>
* module/system/base/language.scm (<language>): Remove the `version' field from languages. It just wasn't useful. * module/language/assembly/spec.scm: * module/language/brainfuck/spec.scm: * module/language/bytecode/spec.scm: * module/language/ecmascript/spec.scm: * module/language/elisp/spec.scm: * module/language/glil/spec.scm: * module/language/objcode/spec.scm: * module/language/scheme/spec.scm: * module/language/tree-il/spec.scm: * module/language/value/spec.scm: Remove #:version from all language definitions. Shorten some language names (e.g. "Guile Scheme" -> "Scheme").
This commit is contained in:
Andy Wingo
parent
acc51c3e65
commit
246ea9e16a
11 changed files with 15 additions and 26 deletions
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Virtual Machine Assembly
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -26,7 +26,6 @@
|
|||
|
||||
(define-language assembly
|
||||
#:title "Guile Virtual Machine Assembly Language"
|
||||
#:version "2.0"
|
||||
#:reader (lambda (port env) (read port))
|
||||
#:printer write
|
||||
#:parser read ;; fixme: make a verifier?
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Brainfuck for GNU Guile.
|
||||
|
||||
;; Copyright (C) 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; This library is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -35,8 +35,7 @@
|
|||
; language.
|
||||
|
||||
(define-language brainfuck
|
||||
#:title "Guile Brainfuck"
|
||||
#:version "1.0"
|
||||
#:title "Brainfuck"
|
||||
#:reader (lambda (port env) (read-brainfuck port))
|
||||
#:compilers `((tree-il . ,compile-tree-il)
|
||||
(scheme . ,compile-scheme))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Lowlevel Intermediate Language
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -31,7 +31,6 @@
|
|||
|
||||
(define-language bytecode
|
||||
#:title "Guile Bytecode Vectors"
|
||||
#:version "0.3"
|
||||
#:reader (lambda (port env) (read port))
|
||||
#:printer write
|
||||
#:compilers `((objcode . ,compile-objcode))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; ECMAScript specification for Guile
|
||||
|
||||
;; Copyright (C) 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -29,8 +29,7 @@
|
|||
;;;
|
||||
|
||||
(define-language ecmascript
|
||||
#:title "Guile ECMAScript"
|
||||
#:version "3.0"
|
||||
#:title "ECMAScript"
|
||||
#:reader (lambda (port env) (read-ecmascript/1 port))
|
||||
#:compilers `((tree-il . ,compile-tree-il))
|
||||
;; a pretty-printer would be interesting.
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Emac Lisp
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -26,7 +26,6 @@
|
|||
|
||||
(define-language elisp
|
||||
#:title "Emacs Lisp"
|
||||
#:version "0.0"
|
||||
#:reader (lambda (port env) (read-elisp port))
|
||||
#:printer write
|
||||
#:compilers `((tree-il . ,compile-tree-il)))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Lowlevel Intermediate Language
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -33,7 +33,6 @@
|
|||
|
||||
(define-language glil
|
||||
#:title "Guile Lowlevel Intermediate Language (GLIL)"
|
||||
#:version "0.3"
|
||||
#:reader (lambda (port env) (read port))
|
||||
#:printer write-glil
|
||||
#:parser parse-glil
|
||||
|
|
|
|||
|
|
@ -80,7 +80,6 @@
|
|||
|
||||
(define-language objcode
|
||||
#:title "Guile Object Code"
|
||||
#:version "0.3"
|
||||
#:reader #f
|
||||
#:printer write-objcode
|
||||
#:compilers `((value . ,objcode->value))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Scheme specification
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -36,8 +36,7 @@
|
|||
;;;
|
||||
|
||||
(define-language scheme
|
||||
#:title "Guile Scheme"
|
||||
#:version "0.5"
|
||||
#:title "Scheme"
|
||||
#:reader (lambda (port env)
|
||||
;; Use the binding of current-reader from the environment.
|
||||
;; FIXME: Handle `read-options' as well?
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Tree Intermediate Language
|
||||
|
||||
;; Copyright (C) 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -37,7 +37,6 @@
|
|||
|
||||
(define-language tree-il
|
||||
#:title "Tree Intermediate Language"
|
||||
#:version "1.0"
|
||||
#:reader (lambda (port env) (read port))
|
||||
#:printer write-tree-il
|
||||
#:parser parse-tree-il
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Guile Lowlevel Intermediate Language
|
||||
|
||||
;; Copyright (C) 2001 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
;;;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -23,8 +23,7 @@
|
|||
#:export (value))
|
||||
|
||||
(define-language value
|
||||
#:title "Guile Values"
|
||||
#:version "0.3"
|
||||
#:title "Values"
|
||||
#:reader #f
|
||||
#:printer write
|
||||
)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; Multi-language support
|
||||
|
||||
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
|
||||
|
||||
;; This library is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU Lesser General Public
|
||||
|
|
@ -22,7 +22,7 @@
|
|||
(define-module (system base language)
|
||||
#:use-module (system base syntax)
|
||||
#:export (define-language language? lookup-language make-language
|
||||
language-name language-title language-version language-reader
|
||||
language-name language-title language-reader
|
||||
language-printer language-parser
|
||||
language-compilers language-decompilers language-evaluator
|
||||
language-joiner language-make-default-environment
|
||||
|
|
@ -38,7 +38,6 @@
|
|||
(define-record/keywords <language>
|
||||
name
|
||||
title
|
||||
version
|
||||
reader
|
||||
printer
|
||||
(parser #f)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue