From fe3f0514d2eeccae2d89c83852f99dfeeaf55522 Mon Sep 17 00:00:00 2001
From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Sun, 30 Apr 2023 06:34:33 +0900
Subject: [PATCH] socket.gettime -> os.socketgettime if available

---
 src/ltj-debug.lua       | 3 +--
 src/ltj-inputbuf.lua    | 1 -
 test/test61-unhcopy.tex | 4 +++-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ltj-debug.lua b/src/ltj-debug.lua
index 9122426..97105e6 100644
--- a/src/ltj-debug.lua
+++ b/src/ltj-debug.lua
@@ -86,10 +86,9 @@ end
 ltjdbg.pformat = pformat
 
 -------------------- 所要時間合計
-require("socket")
 do
    local max = math.max
-   local gettime = socket.gettime
+   local gettime = os.socketgettime or (socket and socket.gettime)
    local time_stat = {}
    local function start_time_measure(n)
       if not time_stat[n] then
diff --git a/src/ltj-inputbuf.lua b/src/ltj-inputbuf.lua
index 66a466e..70195d4 100644
--- a/src/ltj-inputbuf.lua
+++ b/src/ltj-inputbuf.lua
@@ -57,7 +57,6 @@ end
 end
 --- the following function is modified from jafontspec.lua (by K. Maeda).
 --- Instead of "%", we use U+FFFFF for suppressing spaces.
---DEBUG require"socket"
 local time_line = 0
 local start_time_measure, stop_time_measure
    = ltjb.start_time_measure, ltjb.stop_time_measure
diff --git a/test/test61-unhcopy.tex b/test/test61-unhcopy.tex
index e002c70..bfde94f 100644
--- a/test/test61-unhcopy.tex
+++ b/test/test61-unhcopy.tex
@@ -11,7 +11,9 @@
 %%% \expandafter...\relax
 
 \directlua{
-  socket=require'socket'
+  if not socket then
+    socket = socket or {}; socket.gettime = os.socketgettime
+  end
   my_a=socket.gettime()
 }
 
-- 
2.11.0