Add talks examples for Forth Day 2024

Author: rjose

forthic-py/pyproject.toml

@@ -10,7 +10,7 @@ readme = "README.md"
 version = "4.0.0"
 description = "A stack-based language for concisely building tweakable apps"
 dependencies = [
-    "urllib3",
+    "urllib3 == 1.26.15",
     "pytz",
     "cryptography",
     "python-dateutil",

forthic-py/src/forthic/__init__.py

@@ -0,0 +1,4 @@
+from .interpreter import Interpreter
+from .modules.cache_module import CacheModule
+from .modules.org_module import OrgModule, OrgContext
+from .modules.jira_module import JiraModule, JiraContext

forthic-py/src/forthic/modules/jira_module.py

@@ -9,6 +9,7 @@
 from ..global_module import drill_for_value
 from collections import defaultdict
 from ..utils.errors import JiraError, UnauthorizedError
+import certifi
 from ..interfaces import IInterpreter
 from typing import List, Any, Dict, Optional
 
@@ -954,7 +955,10 @@ def get_flags(self):
 class JiraContext:
     """Override this and pass to PUSH-CONTEXT! in order to make Jira calls"""
 
-    def __init__(self):
+    def __init__(self, host, username, password):
+        self.host = host
+        self.username = username
+        self.password = password
         self.field_map = self.get_field_map()
         self.field_name_to_id = self.make_field_name_to_id()
         self.field_to_schema = self.make_field_schema()
@@ -1050,21 +1054,21 @@ def requests_put(self, api_url, json=None, session=None):
             )
         return result
 
+    # Override this to supply the path to the cert file to use. Use False to skip verification
+    def get_cert_verify(self):
+        return certifi.where()
+
     def get_field(self):
-        return None
+        return "JIRA"
 
     def get_host(self):
-        return None
-
-    # Override this to supply the path to the cert file to use. Use False to skip verification
-    def get_cert_verify(self):
-        return False
+        return self.host
 
     def get_username(self):
-        return None
+        return self.username
 
     def get_password(self):
-        return None
+        return self.password
 
 
 JIRA_FORTHIC = """

server/apps/coding-forthic/simple/main.forthic

@@ -1,4 +1,4 @@
 ["simple"] USE-MODULES
 
-: RUN         2 3 + 4 *;
+: RUN         2 5 + 4 *;
 : MAIN-PAGE   ["<code>"  RUN >JSON  "</code>"] CONCAT;

server/apps/talks/jira/config.json

@@ -0,0 +1,4 @@
+{
+    "forthic_version": "v3",
+    "tags": ["coding-forthic", "cache"]
+}

server/apps/talks/jira/main.forthic

@@ -0,0 +1,11 @@
+["jira" "contexts" "cache"] USE-MODULES
+
+contexts.JIRA-PROD jira.PUSH-CONTEXT!
+
+: JQL       "resolution = null and updated > -60d";
+: FIELDS    ["Summary"  "Assignee" "Status"];
+: TICKETS   JQL FIELDS jira.SEARCH;
+
+TICKETS
+# TICKETS "Assignee" GROUP-BY-FIELD "LENGTH" MAP  "tickets" cache.CACHE!
+

server/apps/talks/map/config.json

@@ -0,0 +1,4 @@
+{
+    "forthic_version": "v3",
+    "tags": ["coding-forthic", "cache"]
+}

server/apps/talks/map/main.forthic

@@ -0,0 +1,7 @@
+[1 2 3] "3 *" MAP
+
+# [
+#     ["alpha"  1]
+#     ["beta"   2]
+#     ["gamma"  3]
+# ] REC "3 *" MAP

server/apps/talks/simple/config.json

@@ -0,0 +1,4 @@
+{
+    "forthic_version": "v3",
+    "tags": ["coding-forthic", "cache"]
+}

server/apps/talks/simple/main.forthic

@@ -0,0 +1,2 @@
+: VAL   2 5 + 4 *;
+[VAL 1 2 3] "3 *" MAP