Skip to content

add goldfish top environment. #33

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
ufo5260987423 merged 1 commit into from
Sep 7, 2025
Merged

add goldfish top environment. #33

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion ...fier/rules/goldfish/define-case-class.sls → ...ined-rules/goldfish/define-case-class.sls
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(library (scheme-langserver analysis identifier rules goldfish define-case-class)
(library (scheme-langserver analysis identifier self-defined-rules goldfish define-case-class)
(export
define-case-class-process
define-case-class-parameter-process)
Expand Down
2 changes: 1 addition & 1 deletion analysis/identifier/rules/goldfish/let1.sls → ...fier/self-defined-rules/goldfish/let1.sls
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(library (scheme-langserver analysis identifier rules goldfish let1)
(library (scheme-langserver analysis identifier self-defined-rules goldfish let1)
(export
let1-process
let1-parameter-process)
Expand Down
2 changes: 1 addition & 1 deletion ...dentifier/rules/goldfish/typed-lambda.sls → ...f-defined-rules/goldfish/typed-lambda.sls
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
(library (scheme-langserver analysis identifier rules goldfish typed-lambda)
(library (scheme-langserver analysis identifier self-defined-rules goldfish typed-lambda)
(export
typed-lambda-process
typed-parameter-process)
Expand Down
13 changes: 12 additions & 1 deletion analysis/identifier/self-defined-rules/router.sls
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,11 @@

(scheme-langserver analysis identifier self-defined-rules srfi include-resolve)
(scheme-langserver analysis identifier self-defined-rules ufo-match match)
(scheme-langserver analysis identifier self-defined-rules ufo-try try))
(scheme-langserver analysis identifier self-defined-rules ufo-try try)

(scheme-langserver analysis identifier self-defined-rules goldfish define-case-class)
(scheme-langserver analysis identifier self-defined-rules goldfish let1)
(scheme-langserver analysis identifier self-defined-rules goldfish typed-lambda))

(define (route&add
rules target-identifier
Expand Down Expand Up @@ -58,5 +62,12 @@
;not now to delete
rules
]
[(and (equal? library-identifiers '((liii base))) (equal? expressions '(let1)))
(add-rule-procedure rules `((,let1-process) . ,target-identifier))]
[(and (equal? library-identifiers '((liii oop))) (equal? expressions '(define-case-class)))
(add-rule-procedure rules `((,define-case-class-process) . ,target-identifier))]
[(and (equal? library-identifiers '((liii base))) (equal? expressions '(typed-lambda)))
(add-rule-procedure rules `((,typed-lambda-process) . ,target-identifier))]

[else rules])))
)
4 changes: 2 additions & 2 deletions run.ss
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ Options:

-h, --help Print help information

-e, --top-environment Switch to support different top environment, for example R6RS, R7RS, etc.(default: R6RS)
-e, --top-environment Switch to support different top environment, for example R6RS, R7RS, s7, goldfish, etc.(default: R6RS)


Example Usage:
Expand Down Expand Up @@ -63,7 +63,7 @@ Example Usage:
((string-ci=? str "r6rs") 'r6rs)
((string-ci=? str "r7rs") 'r7rs)
((string-ci=? str "s7") 's7)
;; ((string-ci=? str "goldfish") 'goldfish)
((string-ci=? str "goldfish") 's7)
(else #f)))


Expand Down
2 changes: 1 addition & 1 deletion tests/analysis/identifier/rules/goldfish/test-define-case-class.sps
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
(import (rnrs (6)) (srfi :64 testing)
(scheme-langserver analysis workspace)
(scheme-langserver analysis identifier reference)
(scheme-langserver analysis identifier rules goldfish define-case-class)
(scheme-langserver analysis identifier self-defined-rules goldfish define-case-class)
(scheme-langserver analysis identifier rules let)
(scheme-langserver analysis identifier rules library-import)
(scheme-langserver analysis package-manager akku)
Expand Down
2 changes: 1 addition & 1 deletion tests/analysis/identifier/rules/goldfish/test-define-class.sps
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
(import (rnrs (6)) (srfi :64 testing)
(scheme-langserver analysis workspace)
(scheme-langserver analysis identifier reference)
(scheme-langserver analysis identifier rules goldfish define-case-class)
(scheme-langserver analysis identifier self-defined-rules goldfish define-case-class)
(scheme-langserver analysis identifier rules let)
(scheme-langserver analysis identifier rules library-import)
(scheme-langserver analysis package-manager akku)
Expand Down
2 changes: 1 addition & 1 deletion tests/analysis/identifier/rules/goldfish/test-let1.sps
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
(import (rnrs (6)) (srfi :64 testing)
(scheme-langserver analysis workspace)
(scheme-langserver analysis identifier reference)
(scheme-langserver analysis identifier rules goldfish let1)
(scheme-langserver analysis identifier self-defined-rules goldfish let1)
(scheme-langserver analysis identifier rules let)
(scheme-langserver analysis identifier rules library-import)
(scheme-langserver analysis package-manager akku)
Expand Down
2 changes: 1 addition & 1 deletion tests/analysis/identifier/rules/goldfish/test-typed-lambda.sps
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
(import (rnrs (6)) (srfi :64 testing)
(scheme-langserver analysis workspace)
(scheme-langserver analysis identifier reference)
(scheme-langserver analysis identifier rules goldfish typed-lambda)
(scheme-langserver analysis identifier self-defined-rules goldfish typed-lambda)
(scheme-langserver analysis package-manager akku)

(scheme-langserver util text)
Expand Down