locutus 2.0.34 → 2.0.36

package/awk/builtin/index.js

@@ -1,3 +1,5 @@
 module.exports.int = require('./int')
 module.exports.length = require('./length')
 module.exports.substr = require('./substr')
+module.exports.tolower = require('./tolower')
+module.exports.toupper = require('./toupper')

package/awk/builtin/tolower.js

@@ -0,0 +1,11 @@
+module.exports = function tolower(s) {
+  //      discuss at: https://locutus.io/awk/tolower/
+  // parity verified: GNU AWK 5.3
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: tolower('HELLO')
+  //       returns 1: 'hello'
+  //       example 2: tolower('Hello World')
+  //       returns 2: 'hello world'
+
+  return String(s).toLowerCase()
+}

package/awk/builtin/toupper.js

@@ -0,0 +1,11 @@
+module.exports = function toupper(s) {
+  //      discuss at: https://locutus.io/awk/toupper/
+  // parity verified: GNU AWK 5.3
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: toupper('hello')
+  //       returns 1: 'HELLO'
+  //       example 2: toupper('Hello World')
+  //       returns 2: 'HELLO WORLD'
+
+  return String(s).toUpperCase()
+}

package/lua/string/index.js

@@ -0,0 +1,3 @@
+module.exports.lower = require('./lower')
+module.exports.sub = require('./sub')
+module.exports.upper = require('./upper')

package/lua/string/lower.js

@@ -0,0 +1,11 @@
+module.exports = function lower(s) {
+  //      discuss at: https://locutus.io/lua/lower/
+  // parity verified: Lua 5.4
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: lower('HELLO')
+  //       returns 1: 'hello'
+  //       example 2: lower('Hello World')
+  //       returns 2: 'hello world'
+
+  return String(s).toLowerCase()
+}

package/lua/string/sub.js

@@ -0,0 +1,33 @@
+module.exports = function sub(s, i, j) {
+  //      discuss at: https://locutus.io/lua/sub/
+  // parity verified: Lua 5.4
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //          note 1: Lua uses 1-based indexing, negative indices count from end
+  //       example 1: sub('Hello', 1, 3)
+  //       returns 1: 'Hel'
+  //       example 2: sub('Hello', 2)
+  //       returns 2: 'ello'
+  //       example 3: sub('Hello', -2)
+  //       returns 3: 'lo'
+
+  s = String(s)
+  const len = s.length
+
+  // Convert Lua 1-based index to JS 0-based
+  // Negative indices count from end in Lua
+  let start = i < 0 ? len + i : i - 1
+  let end = j === undefined ? len : j < 0 ? len + j + 1 : j
+
+  // Clamp to valid range
+  if (start < 0) {
+    start = 0
+  }
+  if (end > len) {
+    end = len
+  }
+  if (start >= end) {
+    return ''
+  }
+
+  return s.substring(start, end)
+}

package/lua/string/upper.js

@@ -0,0 +1,11 @@
+module.exports = function upper(s) {
+  //      discuss at: https://locutus.io/lua/upper/
+  // parity verified: Lua 5.4
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: upper('hello')
+  //       returns 1: 'HELLO'
+  //       example 2: upper('Hello World')
+  //       returns 2: 'HELLO WORLD'
+
+  return String(s).toUpperCase()
+}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "locutus",
-  "version": "2.0.34",
+  "version": "2.0.36",
   "description": "Locutus other languages' standard libraries to JavaScript for fun and educational purposes",
   "keywords": [
     "php",

package/perl/core/index.js

@@ -1 +1,4 @@
+module.exports.lc = require('./lc')
 module.exports.length = require('./length')
+module.exports.substr = require('./substr')
+module.exports.uc = require('./uc')

package/perl/core/lc.js

@@ -0,0 +1,11 @@
+module.exports = function lc(str) {
+  //      discuss at: https://locutus.io/perl/lc/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: lc('HELLO')
+  //       returns 1: 'hello'
+  //       example 2: lc('Hello World')
+  //       returns 2: 'hello world'
+
+  return String(str).toLowerCase()
+}

package/perl/core/substr.js

@@ -0,0 +1,44 @@
+module.exports = function substr(str, offset, length) {
+  //      discuss at: https://locutus.io/perl/substr/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //          note 1: Perl's offset is 0-based, negative counts from end
+  //       example 1: substr('hello', 0, 3)
+  //       returns 1: 'hel'
+  //       example 2: substr('hello', 1)
+  //       returns 2: 'ello'
+  //       example 3: substr('hello', -2)
+  //       returns 3: 'lo'
+
+  str = String(str)
+  const len = str.length
+
+  // Handle negative offset (count from end)
+  let start = offset < 0 ? len + offset : offset
+
+  // Clamp start to valid range
+  if (start < 0) {
+    start = 0
+  }
+  if (start > len) {
+    return ''
+  }
+
+  // If length is undefined, return rest of string
+  if (length === undefined) {
+    return str.substring(start)
+  }
+
+  // Handle negative length (leave that many chars at end)
+  let end
+  if (length < 0) {
+    end = len + length
+    if (end < start) {
+      return ''
+    }
+  } else {
+    end = start + length
+  }
+
+  return str.substring(start, end)
+}

package/perl/core/uc.js

@@ -0,0 +1,11 @@
+module.exports = function uc(str) {
+  //      discuss at: https://locutus.io/perl/uc/
+  // parity verified: Perl 5.40
+  //     original by: Kevin van Zonneveld (https://kvz.io)
+  //       example 1: uc('hello')
+  //       returns 1: 'HELLO'
+  //       example 2: uc('Hello World')
+  //       returns 2: 'HELLO WORLD'
+
+  return String(str).toUpperCase()
+}