- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想在我编写的几个 Racket 脚本中分享一个简单的代码部分。我不想(需要..)它,但想在顶层运行它(公共(public)代码包括对(current-command-line-arguments)的调用等,所需模块不理解(在至少我不知道这是否可能)。
我尝试(加载)它,但它不起作用,因为它是当前顶级上下文的一部分 - 我在加载上下文中为公共(public) header 中定义的定义收到未绑定(bind)标识符错误。
看来我仍然不理解 Racket 引用第 14 章的某些部分 - 我尝试了 14.1(命名空间)、14.3( Racket /负载)的一些示例,但无法使其正常工作。
我错过了什么?我们如何才能使这样一个看似简单的案例工作?
编辑:这是我的例子:
这是 header.rkt:
#lang racket/load
(define-for-syntax args (current-command-line-arguments))
(define-for-syntax PROTOTYPING (or
(= (vector-length args) 0)
(equal? (vector-ref args 0) "local")))
(define-syntax (if-prototyping stx)
(syntax-case stx ()
((_ debug-expr non-debug-expr)
(if PROTOTYPING
#'debug-expr
#'non-debug-expr))))
(if-prototyping
(require (prefix-in "ci:" (file "/debugenvpath/utils.rkt")))
(require (prefix-in "ci:" (file "/releaseenvpath/utils.rkt"))))
; arrange arguments
(define args (current-command-line-arguments))
(if-prototyping
(set! args (if (= (vector-length args) 0)
(vector "arg1")
(vector (vector-ref args 1))))
#t)
; @echo off
; "C:\Program Files\Racket\racket.exe" "%~f0" %*
; exit /b
#lang racket
(require "header.rkt")
"hello, args are: "
args
args: unbound identifier in module in: args
#lang racket
(define-for-syntax args (current-command-line-arguments))
(define-for-syntax PROTOTYPING (or
(begin
(printf "phase1 expansion, args are: ~a\n" args)
(= (vector-length args) 0))
(equal? (vector-ref args 0) "local")))
(begin-for-syntax
(printf "phase1, val for PROTOTYPING is: ~a\n" PROTOTYPING))
(define-syntax (if-prototyping stx)
(syntax-case stx ()
((_ debug-expr non-debug-expr)
(if PROTOTYPING
#'debug-expr
#'non-debug-expr))))
(if-prototyping
(require (prefix-in "ci:" (file "./debug-env/util.rkt")))
(require (prefix-in "ci:" (file "./release-env/util.rkt"))))
; arrange arguments
(define args (current-command-line-arguments))
(printf "phase0 expansion, args are: ~a\n" args)
(if-prototyping
(set! args (if (= (vector-length args) 0)
(vector "my-testing-arg-to-use-from-drracket")
(vector (vector-ref args 1))))
#t)
"util func call: "
(ci:f)
#lang racket
(provide f)
(define (f) (display "f from debug"))
#lang racket
(provide f)
(define (f) (display "f from release"))
>test-commonheader.bat local arg1 arg2
phase1 expansion, args are: #(local arg1 arg2)
phase1, val for PROTOTYPING is: #t
phase0 expansion, args are: #(local arg1 arg2)
"util func call: "
f from debug
>test-commonheader.bat arg1 arg2
phase1 expansion, args are: #(arg1 arg2)
phase1, val for PROTOTYPING is: #f
phase0 expansion, args are: #(arg1 arg2)
#t
"util func call: "
f from release
#lang racket
(provide if-prototyping)
(define-for-syntax args (current-command-line-arguments))
(define-for-syntax PROTOTYPING (or
(begin
(printf "phase1 expansion, args are: ~a\n" args)
(= (vector-length args) 0))
(equal? (vector-ref args 0) "local")))
(begin-for-syntax
(printf "phase1, val for PROTOTYPING is: ~a\n" PROTOTYPING))
(define-syntax (if-prototyping stx)
(syntax-case stx ()
((_ debug-expr non-debug-expr)
(if PROTOTYPING
#'debug-expr
#'non-debug-expr))))
(if-prototyping
(begin
(require "debug-env/util.rkt")
(provide (all-from-out "debug-env/util.rkt")))
(begin
(require "release-env/util.rkt")
(provide (all-from-out "release-env/util.rkt"))))
(require "header.rkt")
>test-commonheader.bat arg1 arg2
phase1 expansion, args are: #(arg1 arg2)
phase1, val for PROTOTYPING is: #f
phase1 expansion, args are: #(arg1 arg2)
phase1, val for PROTOTYPING is: #f
phase0 expansion, args are: #(arg1 arg2)
#t
"util func call: "
f from release
最佳答案
如果您需要使用 current-command-line-arguments
在运行时,使用 require
应该为此工作。这是一个简单的例子:
在 common-code.rkt 中:
#lang racket
(current-command-line-arguments)
(current-command-line-arguments (vector "helloo"))
#lang racket
(require "common-code.rkt")
(current-command-line-arguments)
these are my arguments
运行 file.rkt 时,它打印这个:
'#("these" "are" "my" "arguments")
'#("helloo")
current-command-line-arguments
这样的东西, 在运行时由其他文件的代码看到。此外,
current-command-line-arguments
等参数用于当前正在运行的脚本,而不是当前文件。
#lang racket
(provide setup)
(define (setup)
(println (current-command-line-arguments))
(current-command-line-arguments (vector "helloo")))
#lang racket
(require "common-code.rkt")
(setup)
(current-command-line-arguments)
these are my arguments
也打印出来
'#("these" "are" "my" "arguments")
'#("helloo")
(setup)
被调用,它也可以将参数传递给函数(如果你修改它以接受它们),如果你希望公共(public)代码依赖于 file.rkt 中的某些东西,这将非常有用。
debug
,你想要文件的调试版本,如果第一个参数是其他任何东西,你想要文件的非调试版本。
#lang racket
(provide f g)
(define (f x)
(add1 x))
(define (g x)
(* 2 x))
#lang racket
(provide f g)
(require (prefix-in - "non-debug.rkt"))
(define (f x)
(printf "(f ~v)\n" x)
(-f x))
(define (g x)
(printf "(g ~v)\n" x)
(-g x))
#lang racket
(provide return-f-and-g)
(define (return-f-and-g)
(define args (current-command-line-arguments))
(define debug? (or (= (vector-length args) 0)
(equal? (vector-ref args 0) "debug")))
(cond [debug?
(local-require "debug.rkt")
(values f g)]
[else
(local-require "non-debug.rkt")
(values f g)]))
#lang racket
(require "common-code.rkt")
(define-values [f g]
(return-f-and-g))
(f 2)
(g 2)
dynamic-require
功能
dynamic-require
.它将在 common-code.rkt 中像这样使用:
#lang racket
(provide f g)
(define args (current-command-line-arguments))
(define debug? (or (= (vector-length args) 0)
(equal? (vector-ref args 0) "debug")))
(define debug-on-non-debug (if debug? "debug.rkt" "non-debug.rkt"))
(define f (dynamic-require debug-on-non-debug 'f))
(define g (dynamic-require debug-on-non-debug 'g))
#lang racket
(require "common-code.rkt")
(f 2)
(g 2)
(define f (dynamic-require debug-on-non-debug 'f))
的问题。每一行。
#lang racket/signature
声明调试和非调试文件的接口(interface)。 .所以在 debug-or-non-debug-sig.rkt 中,输入:
#lang racket/signature
f ; takes a number and adds 1 to it
g ; takes a number and multiplies it by 2
f
和
g
做什么,他们接受什么作为参数,他们返回什么,等等。
#lang racket/unit
和
export
形式。
#lang racket/unit
(require "debug-or-non-debug-sig.rkt")
(import)
(export debug-or-non-debug^)
(define (f x)
(add1 x))
(define (g x)
(* 2 x))
#lang racket
(require "debug-or-non-debug-sig.rkt")
(import)
(export debug-or-non-debug^)
(define (f x)
(printf "(f ~v)\n" x)
(add1 x))
(define (g x)
(printf "(g ~v)\n" x)
(* 2 x))
define-values/invoke-unit
。 .
#lang racket
(provide (all-defined-out))
(require "debug-or-non-debug-sig.rkt"
"debug-unit.rkt"
"non-debug-unit.rkt")
(define args (current-command-line-arguments))
(define debug? (or (= (vector-length args) 0)
(equal? (vector-ref args 0) "debug")))
(define-values/invoke-unit (if debug? debug@ non-debug@)
(import)
(export debug-or-non-debug^))
#lang racket
(require "common-code.rkt")
(f 2)
(g 2)
debug
的情况下运行作为第一个参数,它打印:
(f 2)
3
(g 2)
4
3
4
关于scheme - 将通用 Racket 头加载到当前顶层,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37234158/
我使用 AppFuse 创建项目已经有一段时间了。我已经知道有两种方法可以开发 DAO 和 Manager 类: GenericDao/GenericManager 方法 UniversalDao/U
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它,visit the help center 。 已关
在普通的单线程程序中,捕获异常只需要通过try ... catch ... finally ...代码块就可以了。那么,在并发情况下,比如在父线程中启动了子线程,如何在父线程中捕获来自子线程的异常,
假设我有一个这样的界面 interface Example { first_name: string, last_name: string, home_town: string
我已经成为 hg 用户几年了,对此我很高兴! 我必须开始一个我以前从未做过的项目。我们的想法是开发一个具有批处理模式和 GUI 的软件。 因此,批处理模式和 GUI 模式都有共同的源,但每种模式也都包
我可以在Silverlight中使用generic.xaml来设置应用程序中所有TextBlock的样式吗? 我原以为它会起作用,但它没
顶部 map 有 3 个子 map ,每个子 map 都有不同的对象。 像下面的代码,如何将通用添加到 map 顶部? Map top = new ConcurrentHashMap();
我想创建一个hashmap,其中键是接口(interface)A,值是接口(interface)B。然后我想用实现A和B的类来初始化它。是否可以使用java泛型来做到这一点? 也就是说,我想要类似的东
Enum 位于 java.lang.Enum 中,Object 位于 java.lang.Object 中>。那么,为什么 Enum 不是 Object 呢? (我收到一个java.lang.Clas
我有一种方法,check,它有两个 HashMap 作为参数。这些映射的键是 String,值是 String 或 Arraylist。 哪个是更好的解决方案: public static boole
我启动了针对iPhone的应用程序,现在我也想将其应用程序用于iPad。当我开始做iPhone项目时,即使我添加了iPad xib,它也无法正确显示,如何转换我的项目同时适用于iPhone和iPad(
这行代码(代码1)有什么区别 auto l1 = [](auto a) { static int l = 0; std::cout operator() for type const char*) 被
使用 Generic#to,我可以获得 case class 的 HList 表示: import shapeless._ case class F(x: Int, y: String) scala>
我有一个 BiDiMap 类。如何使其通用,不仅接受 String 而且接受 Object 类型的对象作为输入参数,同时保持所有原始函数正常工作。例如,我希望能够使用函数 put() 和 Object
我在编译 foreach 循环时遇到问题。我很确定这是我的泛型处理的问题,因为该错误是对象兼容性问题。我已搜索解决方案,但找不到任何可以解决该问题的内容。 这是定义 Iterable adjList
大约有 6 个 POJO 类(域实体、DTO、DMO)都具有几乎相同的字段。为了从一个对象转换为另一个对象,我传递一个对象并调用它的 getter 将其设置到另一个对象中。 private UserT
有没有什么方法可以创建一个通用的 for 循环,它可以正确地循环遍历数组或对象?我知道我可以编写以下 for 循环,但它也会遍历将添加到数组的其他属性。 for (item in x) { co
我已经有一段时间没有写js了,显然有点生疏了。试图理解以下问题。 getCurrentPosition successCallback 中的警报正确显示纬度,但最后一行警报未定义。为什么我的 clie
请帮助我,我从来没有用 xib 为 iPhone/iPad 制作过通用的 UIViewControllers。如何使用 .m 和 .h 文件以及 _iphone.xib 和 _ipad.xib 创建类
我正在尝试创建一个 createRequest 函数,我可以将其重新用于我的所有网络调用,有些需要发布 JSON 而其他则不需要,所以我正在考虑创建一个采用可选通用对象的函数;理论上是这样的: str
我是一名优秀的程序员,十分优秀!