DreamShell lua source code

[SWAT]

В связи с вынужденным обновлением DS, я решил воспользоваться возможностью и всетаки впихнуть нужные функции для CD-ROM.
И написал более автоматизированный скрипт по рипу GD-ROM'ов
Теперь не нужно указывать сектора, скрипт все треки сам рипанет и рипанет как надо :)

Работает он естественно только в v2.3.1

Код:

-- RIP GD-ROM with modem using v1.5
-- Created by SWAT
-- http://www.dc-swat.net.ru
-- dc-swat@nm.ru
-- Usage: lua gdrip.lua



function write_data(sbuf, sbyte)

return DS.modem_write_data(sbuf, sbyte);

end



function rip_sec(trak_num, first, nsec, type)

local secbyte, rerr, werr, istep, secbuf


if type == 4 then
  secbyte = 2048
end

if type ~= 4 then
  secbyte = 2352
end

rerr = 0
werr = 1

print("\nCerrent Sector | Total MBytes| Track number\n")

    for istep=0, nsec do

 
    rerr = DS.cdrom_read_sectors(secbuf,first+istep,1)
 
 if rerr ~= 0 then
      print("DS_ERROR: GD-ROM read error")
    return
 end

    werr = write_data(secbuf, secbyte)

 
   if werr == 0 then
       print("DS_ERROR: 0 bytes written, maybe modem not connected?")
         break
 end
 
       if istep == 0 then
          print(first+istep, "", secbyte/102400, "", trak_num)
       end
       
       if istep > 0 then
          print(first+istep, "", istep*secbyte/102400, "", trak_num)
       end
    end
end






print("DS_PROCESS: Ripping GD-ROM...")

local start, s_end, s_size, type, tn
toc = DS.CDROM_TOC_new();

for session=0, 1 do

local ret = DS.cdrom_read_toc(toc, session);
    if ret > 0 then
 print("DS_ERROR: Toc read error")
    return
    end

local first = DS.TOC_TRACK_(toc.first);
local last = DS.TOC_TRACK_(toc.last);

    print("DS_INF: Session ", session+1)

    for tn=first, last do

 type = DS.TOC_CTRL_(toc.entry[tn-1]);
 start = DS.TOC_LBA_(toc.entry[tn-1]);
 
 if tn == last then
   s_end = DS.TOC_LBA_(toc.dunno);
 end

 if tn ~= last then
   s_end = DS.TOC_LBA_(toc.entry[tn]);
 end

 s_size = s_end - start
 rip_sec(tn, start, s_size, type)
    end
end

print("DS_OK: End ripping.")