@naanlang/naan 1.0.0

package/plugins/serviceAws/aws/lambda_ws_init.nlg

@@ -0,0 +1,49 @@
+/*
+ * lambda_init.nlg
+ * serviceAws
+ *
+ *     Initialize the AWS Lambda function in Naan for WebSockets.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2019-2020 by Richard C. Zulch
+ *
+ */
+
+
+/*
+ * initPreload
+ *
+ */
+
+loglevel(2);
+
+function initPreload() {
+    Naan.module.chns("Play")
+    sudo(putproc(exception, false))                                         // ### need a better mechanism
+};
+initPreload();
+
+
+/*
+ * versionCheck
+ *
+ *     Ensure that Node is at least as new as the specified version.
+ *
+ */
+
+function versionCheck(minver, local rxver, curver) {
+    rxver = RegExp("([0-9]+)[.]([0-9]+)[.]([0-9]+)")
+    minver = minver.match(rxver).map(function(x){Number.parseInt(x)})
+    curver = js.g.process.version.match(rxver).map(function(x){Number.parseInt(x)})
+    minver[1] < curver[1] || minver[1] == curver[1] && (minver[2] < curver[2] || minver[2] == curver[2] && minver[3] <= curver[3])
+};
+
+cond (
+    if not versionCheck("10.0.0") {
+        debuglog("NodeJS too old; version 10.0.0 required.")
+        js.r("process").exit(2)
+    }
+);
+
+debuglog("end of lambda_init.nlg")

package/plugins/serviceAws/aws_cloudwatchlogs.nlg

@@ -0,0 +1,122 @@
+/*
+ * aws_cloudwatchlogs.nlg
+ * serviceAws
+ *
+ *     Access to the CloudWatchLogs services for AWS.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2021 by Richard C. Zulch
+ *
+ */
+
+
+/*
+ * CloudWatchLogs
+ *
+ *     CloudWatch service functions.
+ *
+ */
+
+closure CloudWatchLogs(local cwlogs) {
+    cwlogs = new(object, this)
+
+    //
+    // login
+    //
+    cwlogs.login = closure login(creds) {
+        cwlogs.aws = xnew(awsSDK.CloudWatchLogs, {
+            apiVersion:         "2014-03-28",
+            accessKeyId:        creds.keyID,
+            secretAccessKey:    creds.keySecret,
+            region:             creds.region })
+    }
+    
+    //
+    // cwlQueryPager
+    //
+    // Perform a CWL paged query. This implements paging conventions specific to CWL. The callback
+    // should return the number of items found in the data, or false to stop looping.
+    //
+    closure cwlQueryPager(procname, params, remaining, doneCB) {
+        if !remaining
+            remaining = 10                                              // default retrieve limit
+        params.limit = remaining
+        QueryPager(cwlogs.aws, procname, params, function(data, local processed) {
+            processed = doneCB(data)
+            if processed
+                remaining -= processed
+            if processed && remaining > 0 && data.nextToken && data.nextToken != params.nextToken {
+                params.limit = remaining                                // set up for next iteration
+                params.nextToken = data.nextToken
+                true                                                    // continue looping
+            }
+        })
+    }
+    
+    //
+    // describeLogStreams
+    //
+    cwlogs.describeLogStreams = closure describeLogStreams(name, options,
+        local params, remaining, output, error)
+    {
+        params = {
+            logGroupName: name
+            descending: true
+            orderBy: LastEventTime
+        }
+        output = []
+        `(error) = cwlQueryPager(`describeLogStreams, params, options.limit, function(data) {
+            debuglog("describeLogStreams:", params.limit, data.logStreams.length, output.length)
+            if data.logStreams.length > 0
+                output = output.concat(new(data.logStreams))
+            data.logStreams.length
+        })
+        if error
+            output = false
+        list(error, output)
+    }
+
+    //
+    // getLogEvents
+    //
+    cwlogs.getLogEvents = closure getLogEvents(groupName, streamName, options
+        local params, remaining, output, error)
+    {
+        params = {
+            logGroupName: groupName
+            logStreamName: streamName
+        }
+        output = []
+        `(error) = cwlQueryPager(`getLogEvents, params, options.limit, function(data) {
+            debuglog("getLogEvents:", params.limit, data.events.length, output.length)
+            if data.events.length > 0
+                output = output.concat(new(data.events))
+            data.events.length
+        })
+        if error
+            output = false
+        list(error, output)
+    }
+
+    // finis
+    cwlogs
+}
+
+/*
+ * cwlogsInit
+ *
+ *     Initialize the CloudwatchLogs module.
+ *
+ */
+
+function cwlogsInit(local manifest) {
+    manifest = `(CloudWatchLogs, cwlogsInit)
+
+    Naan.module.build(module.id, "aws_cloudwatchlogs", function(modobj, compobj) {
+        require("./aws_utils.nlg")
+        compobj.manifest = manifest
+        modobj.exports.CloudWatchLogs = CloudWatchLogs
+    })
+
+} ();

package/plugins/serviceAws/aws_cognito.nlg

@@ -0,0 +1,76 @@
+/*
+ * aws_cognito.nlg
+ * serviceAws
+ *
+ *     Access to Cognito services for AWS.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2022 by Richard C. Zulch
+ *
+ */
+
+
+/*
+ * Cognito
+ *
+ *     Cognito service functions.
+ *
+ */
+
+closure Cognito(userPoolID, local cogo) {
+    cogo = new(object, this)
+    cogo.userPoolID = userPoolID
+
+    //
+    // login
+    //
+    cogo.login = closure login(creds) {
+        cogo.aws = xnew(awsSDK.CognitoIdentityServiceProvider, {
+            apiVersion: '2016-04-18'
+            accessKeyId:        creds.keyID,
+            secretAccessKey:    creds.keySecret,
+            region:             creds.region })
+    }
+    
+    //
+    // getUser
+    //
+    cogo.adminGetUser = closure adminGetUser(username, local params, pending) {
+        params = {
+            UserPoolId: cogo.userPoolID
+            Username: username
+        }
+        pending = new(nonce)
+        cogo.aws.getFunction(params, function(error, data) {
+            if error {
+                cogoError = error
+                debuglog("aws.cognito.adminGetUser failed", error)
+            }
+            pending.signal(list(error, data))
+        })
+        pending.wait()
+    }
+
+    // finis
+    cogo
+}
+
+
+/*
+ * cogoInit
+ *
+ *     Initialize the Lambda module.
+ *
+ */
+
+function lambdaInit(local manifest) {
+    manifest = `(cogoInit, Cognito)
+
+    Naan.module.build(module.id, "aws_cognito", function(modobj, compobj) {
+        require("./serviceAws.nlg")
+        compobj.manifest = manifest
+        modobj.exports.Cognito = Cognito
+    })
+
+} ();