summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/tests/zero_search.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/tests/zero_search.tex')
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/zero_search.tex72
1 files changed, 0 insertions, 72 deletions
diff --git a/Build/source/texk/web2c/eptexdir/tests/zero_search.tex b/Build/source/texk/web2c/eptexdir/tests/zero_search.tex
deleted file mode 100644
index 02b0df3929c..00000000000
--- a/Build/source/texk/web2c/eptexdir/tests/zero_search.tex
+++ /dev/null
@@ -1,72 +0,0 @@
-%#!luatex
-\input luatexja.sty
-
-\catcode\endlinechar=12
-\catcode`\ =12
-\catcode`\%=12
-\catcode`\#=12
-\directlua{
-local f = io.open("zero_search.pl", "w")
-if f then
- function OUT(s) f:write(s .. string.char(10)) end
-else
- function OUT(s) end
-end
-local jisx0208 = luatexja.base.load_cache('ltj-jisx0208',
- function() return false end)
-local utf = unicode.utf8
-OUT([[
-(COMMENT THIS IS A KANJI FORMAT FILE)
-(DESIGNSIZE R 10.0)
-(COMMENT DESIGNSIZE IS IN POINTS)
-(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
-(CHECKSUM O 0)
-(FONTDIMEN
- (SLANT R 0.0)
- (SPACE R 0.0)
- (STRETCH R 0.0)
- (SHRINK R 0.0)
- (XHEIGHT R 1.0)
- (QUAD R 1.0)
- (EXTRASPACE R 0.0)
- (EXTRASTRETCH R 0.0)
- (EXTRASHRINK R 0.0)
- )]])
-local CNT=96
-local r = {}
-for i=1,94 do
- for j=1,94 do
- if not ((i>0x08 and i<0x10) or i>0x54) then
- local t = math.random( ((i>0x40) and 0 or 1), CNT-1)
- r[t] = r[t] or {}
- table.insert(r[t],0x2020+i*256+j)
- end
- end
-end
-local floor = math.floor
-for i=1,CNT-1 do
- if #(r[i])>0 then
- table.sort(r[i])
- OUT("(CHARSINTYPE D " .. tostring(i))
- local s, k = " ", 0
- for j=1,#(r[i]) do
- local f = r[i][j]
- k, s = k+1, s .. 'J ' .. string.format("%04X",f)
- if k%10==0 then OUT(s); s = " " else s = s .. " " end
- end
- if k%10>0 then OUT(s) end
- OUT(" )")
- end
-end
-for i=0,CNT-1 do
- if #(r[i])>0 then
- OUT("(TYPE D " .. tostring(i))
- OUT(" (CHARWD R " .. tostring(1+i/100) .. ")")
- OUT(" (CHARHT R 0.88)")
- OUT(" (CHARDP R 0.12)")
- OUT(" )")
- end
-end
-f:close()
-}
-\bye