mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-08 05:00:17 +02:00
e3b743dc72
* module/ice-9/source-properties.scm: New file, providing the source-properties API, as well as a replacement for `read' that always attaches source properties, regardless of the 'positions option on the port. * am/bootstrap.am (SOURCES): Add the new file. * libguile/srcprop.c: * libguile/srcprop.h: Remove. * libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES): (DOT_X_FILES): (DOT_DOC_FILES): (modinclude_HEADERS): * libguile.h: Remove srcprop.h. * libguile/deprecated.c: * libguile/deprecated.h: Add deprecation shims for srcprop.h interface. * libguile/backtrace.c: * libguile/debug.c: * libguile/eval.c: * libguile/init.c: * libguile/memoize.c: * libguile/promises.c: * libguile/read.c: * libguile/syntax.c: Remove needless srcprop.h includes. * module/ice-9/boot-9.scm: Reorder some definitions so that deprecated modules can use the (system syntax internal) module. * module/ice-9/deprecated.scm: Add shims for Scheme source-properties interface. * module/ice-9/read.scm (read): Never attach source properties. Users that want source can use read-syntax. * module/language/cps.scm: * module/language/cps/spec.scm: * module/language/ecmascript/compile-tree-il.scm: * module/language/elisp/compile-tree-il.scm: * module/language/elisp/lexer.scm: * module/language/elisp/parser.scm: * module/language/tree-il.scm: * module/language/tree-il/spec.scm: * module/language/wisp.scm: * module/system/base/lalr.scm: * test-suite/tests/elisp-reader.test: * test-suite/tests/reader.test: * test-suite/tests/srcprop.test: * test-suite/tests/srfi-105.test: * test-suite/tests/srfi-119.test: Use the (ice-9 source-properties) module to get access to source properties.
52 lines
2 KiB
Scheme
52 lines
2 KiB
Scheme
;;; -*- mode: scheme; coding: utf-8; -*-
|
|
;;;
|
|
;;; Copyright (C) 2010, 2025 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 License as published by
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
;;; your option) any later version.
|
|
;;;
|
|
;;; This library is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
|
|
;;; General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU Lesser General Public License
|
|
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (system base lalr)
|
|
|
|
;; XXX: In theory this import is not needed but the evaluator (not the
|
|
;; compiler) complains about `lexical-token' being unbound when expanding
|
|
;; `(define-record-type lexical-token ...)' if we omit it.
|
|
#:use-module (srfi srfi-9)
|
|
#:use-module (ice-9 source-properties)
|
|
|
|
#:export (lalr-parser print-states
|
|
|
|
make-lexical-token lexical-token?
|
|
lexical-token-category
|
|
lexical-token-source
|
|
lexical-token-value
|
|
|
|
make-source-location source-location?
|
|
source-location-input
|
|
source-location-line
|
|
source-location-column
|
|
source-location-offset
|
|
source-location-length
|
|
source-location->source-properties
|
|
|
|
;; `lalr-parser' is a defmacro, which produces code that refers to
|
|
;; these drivers.
|
|
lr-driver glr-driver))
|
|
|
|
;; The LALR parser generator was written by Dominique Boucher. It's available
|
|
;; from http://code.google.com/p/lalr-scm/ and released under the LGPLv3+.
|
|
(include-from-path "system/base/lalr.upstream.scm")
|
|
|
|
(define (source-location->source-properties loc)
|
|
`((filename . ,(source-location-input loc))
|
|
(line . ,(source-location-line loc))
|
|
(column . ,(source-location-column loc))))
|