2

GNU Smalltalk 省略了 argv 中的脚本名称。

#!/usr/bin/env gst -f

| argv program |

argv := Smalltalk arguments.

(argv size) > 0 ifTrue: [
    program := argv at: 1.

    Transcript show: 'Program: ', program; cr.
] ifFalse: [
    Transcript show: 'argv = {}'; cr.
]

$ ./scriptname.st
argv = {}

我看到了两种获取脚本名称的方法：

  • 追踪一些 Smalltalk 方法，该方法返回类似于 Perl 的变量的脚本名称$0。
  • 跟踪多行 shebang 的语法并强制 GST 提供脚本名作为 argv 的第一个成员。这是Common Lisp中的一个示例。
4

2 回答 2

1

似乎最好的办法是使用 shebangs 将脚本名称强制为 ARGV，然后检查是否Smalltalk getArgv: 1以硬编码字符串结尾。

在此处和Rosetta Code上发布。

"exec" "gst" "-f" "$0" "$0" "$@"
"exit"

Object subclass: ScriptedMain [
    ScriptedMain class >> meaningOfLife [ ^42 ]
]

| main |

main := [
    Transcript show: 'Main: The meaning of life is ', ((ScriptedMain meaningOfLife) printString); cr.
].

(((Smalltalk getArgc) > 0) and: [ ((Smalltalk getArgv: 1) endsWith: 'scriptedmain.st') ]) ifTrue: [
    main value.
]
于 2011-08-07T20:48:14.353 回答
1

您可以询问当前方法它来自哪里：thisContext method methodSourceFile printNl.

于 2011-08-08T11:35:20.043 回答