代码之家 › 专栏 › 技术社区 › Atonic

提供语法规则Racket

syntax-rules define-syntax racket

Atonic · 技术社区 · 8 年前

如何在racket中提供语法规则?

我有类似的代码:

(define-syntax SELECT 
  (syntax-rules (FROM WHERE star)
    [(SELECT colnames FROM relnames)
     ...]
    [(SELECT colnames FROM relnames WHERE . expression)
     ...]))

如何使用“提供”语句来提供来自何处和星形?

这就是我提供SELECT的方式:

(provide SELECT)

1 回复 | 直到 8 年前

soegaard 8 年前

这里有一种方法。首先定义文本(如果在SELECT之外使用,则给出一条很好的错误消息),然后提供它们。

#lang racket
(provide SELECT FROM WHERE)

(define-syntax FROM  (Î» (stx) (raise-syntax-error 'FROM  "literal FROM used outside SELECT"  stx)))
(define-syntax WHERE (Î» (stx) (raise-syntax-error 'WHERE "literal WHERE used outside SELECT" stx)))

(define-syntax SELECT 
  (syntax-rules (FROM WHERE star)
    [(SELECT colnames FROM relnames)                    ...]
    [(SELECT colnames FROM relnames WHERE . expression) ...]))

推荐文章

Artemis · 如何变异变量方案

8 年前

Joe · 如何修复“无法更改常量”错误

8 年前

xnv23 · 使用方案中的变量创建环境

8 年前

Jaro · racket:处理jpeg文件

8 年前

Michael Winterstein · 有没有办法对DrRacket中的文件使用加载模式?

8 年前

Atonic · 提供语法规则Racket

8 年前

Zelphir Kaltstahl · 程序开始时的当前延续

8 年前

MastRofDsastR · 使用lambdas解释此方案程序的复杂评估

8 年前

user8866063 · 在递归过程中打印

8 年前

Nime · 生成递归和结构递归之间有什么区别?

8 年前