local demo_list = {}
local function load_demo(name)
 local record = require('demos/' .. name)
 local group, info = record[1], record[2]
 local section = demo_list[group]
 if not section then
 section = {}
 demo_list[group] = section
 end
 local i = #section
 for k, v in ipairs(info) do
 section[i+k] = v
 end
end
local demo_files = {
 'fft', 'bspline', 'wave-particle', 'plot', 'fractals', 'ode', 'nlinfit', 'integ', 'anim', 'linfit', 'contour', 'svg', 'graphics', 'sf', 'vegas', 'gdt-lm'}
for i, name in ipairs(demo_files) do
 load_demo(name)
end
local function print_demos_list()
 for group, t in pairs(demo_list) do
 io.write('*** ', group, '\n')
 for k, v in ipairs(t) do
 print(v.name .. ' - ' .. v.description)
 end
 print ''
 print("***************************************************")
 end
 print("Type demo(<name>) to execute the demo.")
 print("For example type demo(\"wave\") for wave particle demo.")
 print ''
end
local function load_demo(name)
 for group, t in pairs(demo_list) do
 for k, entry in ipairs(t) do
 if entry.name == name then
 return entry
 end
 end
 end
end
return {
 list = print_demos_list,
 load = load_demo,
}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://cgit.git.savannah.gnu.org/cgit/gsl-shell.git/plain/demo-init.lua">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://cgit.git.savannah.gnu.org/cgit/gsl-shell.git/plain/demo-init.lua" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>