Fixing package loading and starting support of query answers historical storage.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-31 13:40:32 -05:00
parent b2acdeba55
commit d707364e78
11 changed files with 38 additions and 5 deletions

View File

@ -2,7 +2,7 @@ baselines
baseline: spec baseline: spec
<baseline> <baseline>
spec spec
for: #comomn for: #common
do: [ do: [
spec spec
package: 'Datanalitica' package: 'Datanalitica'

View File

@ -0,0 +1,3 @@
I model some parts of the Twitter API version 2 as described in:
<https://developer.twitter.com/en/docs/twitter-api/early-access>

View File

@ -0,0 +1,4 @@
accessing
storage: aFolder
storage := aFolder

View File

@ -0,0 +1,4 @@
accessing
storage
^ storage

View File

@ -5,4 +5,6 @@ usersGroupMentioning: userName
^ TwitterUsersGroup new ^ TwitterUsersGroup new
users: response messagesAuthors; users: response messagesAuthors;
title: 'Users mentioning @', userName; title: 'Users mentioning @', userName;
origin: response queryURL origin: response queryURL;
date: DateAndTime now;
storage: self storage.

View File

@ -1,5 +1,5 @@
{ {
"commentStamp" : "", "commentStamp" : "<historical>",
"super" : "Object", "super" : "Object",
"category" : "Datanalitica", "category" : "Datanalitica",
"classinstvars" : [ ], "classinstvars" : [ ],
@ -7,7 +7,9 @@
"classvars" : [ "classvars" : [
"keys" "keys"
], ],
"instvars" : [ ], "instvars" : [
"storage"
],
"name" : "TwitterAPI", "name" : "TwitterAPI",
"type" : "normal" "type" : "normal"
} }

View File

@ -0,0 +1,4 @@
accessing
date: aDateAndTime
date := aDateAndTime

View File

@ -0,0 +1,4 @@
accessing
date
^ date

View File

@ -0,0 +1,4 @@
accessing
storage: aFileReference
storage := aFileReference

View File

@ -0,0 +1,4 @@
accessing
storage
^ storage

View File

@ -9,7 +9,9 @@
"users", "users",
"title", "title",
"discourseTopics", "discourseTopics",
"origin" "origin",
"date",
"storage"
], ],
"name" : "TwitterUsersGroup", "name" : "TwitterUsersGroup",
"type" : "normal" "type" : "normal"