Infrastructure as a Service / Nemoptera

Artifact a8a2e6d07340bcd46eb42a95fad322fef8f91f2af18ab79e67464643fee235b1:

• File src/nemoptera_text.lfe — part of check-in [14d905c889] at 2026-11-08 15:25:21 on branch trunk — refactor(core): 重命名项目为 Nemoptera (user: pluto size: 958)

(defmodule nemoptera_text
  (export all))

(defun to-str (value)
  (cond
    ((is_binary value) (binary_to_list value))
    ((is_integer value) (integer_to_list value))
    ((is_list value) value)
    ((or (=:= value 'undefined) (=:= value 'null) (=:= value 'nil) (=:= value 'none)) "")
    ((is_atom value) (atom_to_list value))
    ('true (lists:flatten (io_lib:format "~p" (list value))))))

(defun blank? (value)
  (=:= "" (string:trim (to-str value))))

(defun now-iso ()
  (calendar:system_time_to_rfc3339 (os:system_time 'second)
                                    (list (tuple 'unit 'second))))

(defun sql-quote (value)
  (string:replace (to-str value) "'" "''" 'all))

(defun clip (value limit)
  (let ((s (to-str value)))
    (if (> (length s) limit)
        (lists:sublist s limit)
        s)))

(defun to-int (value default)
  (case (catch (list_to_integer (string:trim (to-str value))))
    (n (if (is_integer n) n default))
    (_ default)))