socket.gettime -> os.socketgettime if available

diff --git a/src/ltj-debug.lua b/src/ltj-debug.lua
index 9122426..97105e6 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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()
 }