From c8b5b3a960a1e28a9bcfa36d515158e585813bb7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Apr 2018 16:42:19 -0700 Subject: [PATCH] Downcase all symbols and constants. --- src/edwin/macros.scm | 92 ++++++++++++++++++++++---------------------- 1 file changed, 46 insertions(+), 46 deletions(-) diff --git a/src/edwin/macros.scm b/src/edwin/macros.scm index b94c5d878..433360c60 100644 --- a/src/edwin/macros.scm +++ b/src/edwin/macros.scm @@ -42,11 +42,11 @@ USA. (receive (table name-map) (case type ((MODE) - (values 'EDITOR-MODES mode-name->scheme-name)) - ((COMMAND) - (values 'EDITOR-COMMANDS command-name->scheme-name)) - ((VARIABLE) - (values 'EDITOR-VARIABLES variable-name->scheme-name)) + (values 'editor-modes mode-name->scheme-name)) + ((command) + (values 'editor-commands command-name->scheme-name)) + ((variable) + (values 'editor-variables variable-name->scheme-name)) (else (error "Unknown alias type:" type))) `(BEGIN @@ -68,18 +68,18 @@ USA. (interactive (list-ref form 3)) (procedure (list-ref form 4))) (let ((scheme-name (command-name->scheme-name name))) - `(,(close-syntax 'DEFINE environment) + `(,(close-syntax 'define environment) ,scheme-name - (,(close-syntax 'MAKE-COMMAND environment) + (,(close-syntax 'make-command environment) ',name ,description ,interactive ,(if (and (pair? procedure) (identifier=? instance-environment (car procedure) - environment 'LAMBDA) + environment 'lambda) (pair? (cdr procedure))) - `(,(close-syntax 'NAMED-LAMBDA environment) + `(,(close-syntax 'named-lambda environment) (,scheme-name ,@(cadr procedure)) ,@(cddr procedure)) procedure))))) @@ -93,7 +93,7 @@ USA. (ill-formed-syntax form))))) (define (command-name->scheme-name name) - (symbol 'EDWIN-COMMAND$ name)) + (symbol 'edwin-command$ name)) (define-syntax ref-command (sc-macro-transformer @@ -117,25 +117,25 @@ USA. (define-syntax define-variable (rsc-macro-transformer (lambda (form environment) - (expand-variable-definition form environment `#F)))) + (expand-variable-definition form environment `#f)))) (define-syntax define-variable-per-buffer (rsc-macro-transformer (lambda (form environment) - (expand-variable-definition form environment `#T)))) + (expand-variable-definition form environment `#t)))) (define (expand-variable-definition form environment buffer-local?) (if (and (syntax-match? '(symbol + expression) (cdr form)) (<= (length form) 6)) - `(,(close-syntax 'DEFINE environment) + `(,(close-syntax 'define environment) ,(variable-name->scheme-name (list-ref form 1)) - (,(close-syntax 'MAKE-VARIABLE environment) + (,(close-syntax 'make-variable environment) ',(list-ref form 1) - ,(if (> (length form) 2) (list-ref form 2) '#F) - ,(if (> (length form) 3) (list-ref form 3) '#F) + ,(if (> (length form) 2) (list-ref form 2) '#f) + ,(if (> (length form) 3) (list-ref form 3) '#f) ,buffer-local? - ,(if (> (length form) 4) (list-ref form 4) '#F) - ,(if (> (length form) 5) (list-ref form 5) '#F))) + ,(if (> (length form) 4) (list-ref form 4) '#f) + ,(if (> (length form) 5) (list-ref form 5) '#f))) (ill-formed-syntax form))) (define-syntax ref-variable-object @@ -146,17 +146,17 @@ USA. (ill-formed-syntax form))))) (define (variable-name->scheme-name name) - (symbol 'EDWIN-VARIABLE$ name)) + (symbol 'edwin-variable$ name)) (define-syntax ref-variable (sc-macro-transformer (lambda (form environment) (if (syntax-match? '(symbol ? expression) (cdr form)) - (let ((name `(REF-VARIABLE-OBJECT ,(cadr form)))) + (let ((name `(ref-variable-object ,(cadr form)))) (if (pair? (cddr form)) - `(VARIABLE-LOCAL-VALUE ,(close-syntax (caddr form) environment) + `(variable-local-value ,(close-syntax (caddr form) environment) ,name) - `(VARIABLE-VALUE ,name))) + `(variable-value ,name))) (ill-formed-syntax form))))) (define-syntax set-variable! @@ -165,24 +165,24 @@ USA. (expand-variable-assignment form environment (lambda (name value buffer) (if buffer - `(SET-VARIABLE-LOCAL-VALUE! ,buffer ,name ,value) - `(SET-VARIABLE-VALUE! ,name ,value))))))) + `(set-variable-local-value! ,buffer ,name ,value) + `(set-variable-value! ,name ,value))))))) (define-syntax local-set-variable! (sc-macro-transformer (lambda (form environment) (expand-variable-assignment form environment (lambda (name value buffer) - `(DEFINE-VARIABLE-LOCAL-VALUE! ,(or buffer `(CURRENT-BUFFER)) ,name + `(define-variable-local-value! ,(or buffer `(current-buffer)) ,name ,value)))))) (define (expand-variable-assignment form environment generator) (if (and (syntax-match? '(symbol * expression) (cdr form)) (<= (length form) 4)) - (generator `(REF-VARIABLE-OBJECT ,(list-ref form 1)) + (generator `(ref-variable-object ,(list-ref form 1)) (if (> (length form) 2) (close-syntax (list-ref form 2) environment) - `#F) + `#f) (if (> (length form) 3) (close-syntax (list-ref form 3) environment) #f)) @@ -200,14 +200,14 @@ USA. (let ((name (list-ref form 1)) (super-mode-name (list-ref form 2))) (let ((scheme-name (mode-name->scheme-name name))) - `(DEFINE ,scheme-name - (MAKE-MODE ',name - #T + `(define ,scheme-name + (make-mode ',name + #t ',(or (list-ref form 3) (symbol->string name)) ,(if super-mode-name - `(->MODE ',super-mode-name) - `#F) + `(->mode ',super-mode-name) + `#f) ,(close-syntax (list-ref form 4) environment) ,(let ((initialization (if (and (> (length form) 5) @@ -216,19 +216,19 @@ USA. environment) #f))) (if super-mode-name - `(LAMBDA (BUFFER) - ((MODE-INITIALIZATION - (MODE-SUPER-MODE + `(lambda (buffer) + ((mode-initialization + (mode-super-mode ,(close-syntax scheme-name environment))) - BUFFER) + buffer) ,@(if initialization - `((,initialization BUFFER)) + `((,initialization buffer)) `())) (or initialization - `(LAMBDA (BUFFER) - BUFFER - UNSPECIFIC)))))))) + `(lambda (buffer) + buffer + unspecific)))))))) (ill-formed-syntax form)))))) (define-syntax define-minor-mode @@ -240,17 +240,17 @@ USA. (lambda (form environment) (if (syntax-match? pattern (cdr form)) (let ((name (list-ref form 1))) - `(DEFINE ,(mode-name->scheme-name name) - (MAKE-MODE ',name - #F + `(define ,(mode-name->scheme-name name) + (make-mode ',name + #f ',(or (list-ref form 2) (symbol->string name)) - #F + #f ,(close-syntax (list-ref form 3) environment) ,(if (and (> (length form) 4) (list-ref form 4)) (close-syntax (list-ref form 4) environment) - `(LAMBDA (BUFFER) BUFFER UNSPECIFIC))))) + `(lambda (buffer) buffer unspecific))))) (ill-formed-syntax form)))))) (define-syntax ref-mode-object @@ -261,4 +261,4 @@ USA. (ill-formed-syntax form))))) (define (mode-name->scheme-name name) - (symbol 'EDWIN-MODE$ name)) \ No newline at end of file + (symbol 'edwin-mode$ name)) \ No newline at end of file -- 2.25.1