Pragmas 的工作方式似乎与我在 Seaside 中的预期不同

Question

对 Pharo/Seaside 相当陌生，我已经有很长时间没有使用 Smalltalk 了。我正在尝试制作 RESTful 服务，但无法按照我认为应该的方式使用编译指示让它工作。即这是我在 class TeamMembers 中的列表方法，它是 WARestfulHandler.

的直接子 class

list
   <get>

^ String streamContents: [ :stream |
    self teamMembers do: [ :each |
       stream nextPutAll: each ; crlf ] ]

完成所有正确的注册后 WAAdmin 注册：TeamMembers 位于：'team-members' 当我在浏览器中执行时 (http://localhost:8080/team-members) 我收到消息

/找不到团队成员
但如果我执行 (http://localhost:8080/team-members/list)，它会按预期工作。

这似乎与 http://book.seaside.st/book/advanced/restful/getting-started/define-handler 中的文档相矛盾。

如果我覆盖 TeamMembers>>

createRoutes
    | route |
    route := WARoute get: '/listJson' selector: #listJson.
    ^OrderedCollection new
        "GET"
        add: route; 
        add: (WARoute get: #list); 
        yourself

然后我在浏览到 (http://localhost:8080/team-members)

时得到了预期的行为

但是，要获得 Json 输出，我仍然必须使用 (http://localhost:8080/team-members/listJson)。

我可能错过了一些非常简单的事情，但我们将不胜感激。

将 Pharo6.0-64.image 与 Seaside 一起使用，这就是 Seaside 的安装方式。

Metacello new
  configuration:'Seaside3';
  repository: 
 'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main';
  version: #stable;
  load.


Gofer new
  squeaksource: 'Seaside30Addons';
  package: 'Seaside-REST-Core';
  package: 'Seaside-Pharo-REST-Core';
  package: 'Seaside-Tests-REST-Core';
  load.

谢谢

Answer 1

看来在list方法中再添加一个pragma就解决了问题

list
   <get>
   <path: '/'>

   ^ String streamContents: [ :stream |
        self teamMembers do: [ :each |
           stream nextPutAll: each ; crlf ] ]

Answer 2

您需要添加 <path: '/'> 编译指示，因为您有不止一种带有 <get> 编译指示且没有参数的方法。

Pragmas 的工作方式似乎与我在 Seaside 中的预期不同

Pragmas seem to work differently than I expect in Seaside

smalltalk

pharo

seaside