Vikivortaro

Modulo:mpiktbllki

 MODULO
dokumentaĵo: redakti · rigardi · historio
modulo: subpaĝoj · uzata en ŝablonoj · uzata en moduloj
AKTUALIGI
Memtesto disponeblas sur la dokumentaĵa subpaĝo.
-- THIS MODULE IS DEPRECATED

local exporttable = {}

  local construsmo = "Modulo:loaddata-tbllingvoj"  -- EO

  local contabrxi = {[0]=0,1,2,3,4,5,6,7,8,9,10}

  local contabisbanned = {}
  contabisbanned = {'by','dc','ll','jp','art','deu','eng','epo','fra','gem','ger','ido','lat','por','rus','spa','swe','tup','zxx'}

  local conbookodlng  = false  -- "true" to allow long codes like "zh-min-nan"
  local conboomiddig  = false  -- "true" to allow middle digit "s7a"

local qtbllingbaha = {} -- from submodule type "table" but metaized up to 11 e
local qbooguard = false -- only for the guard test, pass to other var ASAP
local qboodetrc = true  -- from "detrc=true" but default is "true" !!!
local qstrtrace = ""    -- for main & sub:s, debug report request by "detrc="

  -- GUARD AGAINST INTERNAL ERROR & ONE IMPOR VIA LOADDATA HUGE SRC TABLE --

if (type(construsmo)~="string") then
  qbooguard = true
else
  qtbllingbaha = mw.loadData(construsmo) -- can crash here despite guarding ??
  if (type(qtbllingbaha)~='table') then
    qbooguard = true
  end--if
end--if

------------------------------------------------------------------------

---- DEBUG FUNCTIONS [D] ----

------------------------------------------------------------------------

-- Local function LFTRACEMSG

-- for variables the other sub "lfdshowvar" is preferable but in exceptional
-- cases it can be justified to send text containing variables to this sub

-- enhances upvalue "qstrtrace" (may NOT be type "nil" on entry)
-- uses upvalue "qboodetrc"

local function lftracemsg (strbigcrap)
  if (qboodetrc) then
    qstrtrace = qstrtrace .. "<br>" .. strbigcrap .. '.'
  end--if
end--function lftracemsg

------------------------------------------------------------------------

---- NUMBER CONVERSION FUNCTIONS [N] ----

------------------------------------------------------------------------

-- Local function LFDEC1DIGIT

-- Convert 1 decimal digit to integer 0...9 (255 if invalid).

local function lfdec1digit (num1digit)
  num1digit = num1digit - 48 -- may become invalid
  if ((num1digit<0) or (num1digit>9)) then
    num1digit = 255
  end--if
  return num1digit
end--function lfdec1digit

------------------------------------------------------------------------

-- Local function LFNSTR12DIG2INT

-- Convert string with either 1 or 2 decimal ASCII digit:s
-- to integer 0...99 (255 if invalid).

-- Depends on functions :
-- [N] lfdec1digit

local function lfnstr12dig2int (strmasuk)
  local numleeng = 0
  local numletf = 255 -- preASSume guilt
  local numrigt = 0
  numleeng = string.len (strmasuk)
  if ((numleeng==1) or (numleeng==2)) then
    numletf = string.byte (strmasuk,1,1)
    numletf = lfdec1digit (numletf) -- 255 if invalid, ZERO would be valid
  end--if
  if ((numletf~=255) and (numleeng==2)) then
    numrigt = string.byte (strmasuk,2,2)
    numrigt = lfdec1digit (numrigt) -- 255 if invalid, ZERO would be valid
    if (numrigt==255) then
      numletf = 255 -- 255 is invalid, note that ZERO would be valid
    else
      numletf = numletf * 10 + numrigt -- valid integer number 0...99 now
    end--if
  end--if
  return numletf
end--function lfnstr12dig2int

------------------------------------------------------------------------

---- LOW LEVEL STRING FUNCTIONS [G] ----

------------------------------------------------------------------------

-- test whether char is an ASCII digit "0"..."9", return boolean

local function lfgtestnum (numkaad)
  local boodigit = false
  boodigit = ((numkaad>=48) and (numkaad<=57))
  return boodigit
end--function lfgtestnum

-- test whether char is an ASCII lowercase letter, return bool

local function lfgtestlc (numcode)
  local boolowerc = false
  boolowerc = ((numcode>=97) and (numcode<=122))
  return boolowerc
end--function lfgtestlc

------------------------------------------------------------------------

-- Local function LFCOUNTNDG

-- Count occurrences of non-digits (from a customizable set) in a string.

-- Tolerable char:s that do not count are:
-- * digits "0"..."9"
-- * maybe apo for (trictl=1) or (trictl=2)
-- * maybe space for (trictl=2)

-- Depends on functions :
-- [G] lfgtestnum

local function lfcountndg (strzzz,trictl)
  local numjrezalt = 0 -- number of non-digits
  local numcair = 0
  local numjukuran = 0
  local numjindxe = 0 -- ZERO-based
  numjukuran = string.len(strzzz)
  while true do
    if (numjindxe==numjukuran) then
      break
    end--if
    numcair = string.byte(strzzz,(numjindxe+1),(numjindxe+1))
    if ((numcair==39) and (trictl~=0)) then
      numcair = 48 -- apo OK
    end--if
    if ((numcair==32) and (trictl==2)) then
      numcair = 48 -- space OK
    end--if
    if (not lfgtestnum(numcair)) then
      numjrezalt = numjrezalt + 1
    end--if
    numjindxe = numjindxe + 1
  end--while
  return numjrezalt
end--function lfcountndg

------------------------------------------------------------------------

---- HIGH LEVEL STRING FUNCTIONS [I] ----

------------------------------------------------------------------------

-- Local function LFIVALIDATELNKOADV

-- Advanced test whether a string (intended to be a language code) is valid
-- containing only 2 or 3 lowercase letters, or 2...10 char:s and with some
-- dashes, or maybe a digit in middle position or maybe instead equals to "-"
-- or "??" and maybe additionally is not included on the ban list.

-- Input  : * strqooq -- string (empty is useless and returns
--                       "true" ie "bad" but cannot cause any major harm)
--          * booyesdsh -- "true" to allow special code dash "-"
--          * booyesqst -- "true" to allow special code doublequest "??"
--          * booloonkg -- "true" to allow long codes such as "zh-min-nan"
--          * boodigit -- "true" to allow digit in middle position
--          * boonoban -- (inverted) "true" to skip test against ban table

-- Output : * booisvaladv -- true if string is valid

-- Depends on functions :
-- [G] lfgtestnum lfgtestlc

-- Depends on constants :
-- * table "contabisbanned"

-- Incoming empty string is safe but type "nil" is NOT.

-- Digit is tolerable only ("and" applies):
-- * if boodigit is "true"
-- * if length is 3 char:s
-- * in middle position

-- Dashes are tolerable (except in special code "-") only ("and" applies):
-- * if length is at least 4 char:s (if this is permitted at all)
-- * in inner positions
-- * NOT adjacent
-- * maximally TWO totally
-- There may be maximally 3 adjacent letters, this makes at least ONE dash
-- obligatory for length 4...7, and TWO dashes for length 8...10.

local function lfivalidatelnkoadv (strqooq, booyesdsh, booyesqst, booloonkg, boodigit, boonoban)

  local varomongkosong = 0 -- for check against the ban list
  local numchiiar = 0
  local numukurran = 0
  local numindeex = 0 -- ZERO-based -- two loops
  local numadjlet = 0 -- number of adjacent letters (max 3)
  local numadjdsh = 0 -- number of adjacent dashes (max 1)
  local numtotdsh = 0 -- total number of dashes (max 2)
  local booislclc = false
  local booisdigi = false
  local booisdash = false
  local booisvaladv = true -- preASSume innocence -- later final verdict here

  while true do -- fake (outer) loop

    if (strqooq=="-") then
      booisvaladv = booyesdsh
      break -- to join mark -- good or bad
    end--if
    if (strqooq=="??") then
      booisvaladv = booyesqst
      break -- to join mark -- good or bad
    end--if
    numukurran = string.len (strqooq)
    if ((numukurran<2) or (numukurran>10)) then
      booisvaladv = false
      break -- to join mark -- evil
    end--if
    if (not booloonkg and (numukurran>3)) then
      booisvaladv = false
      break -- to join mark -- evil
    end--if

    numindeex = 0
    while true do -- inner genuine loop over char:s
      if (numindeex>=numukurran) then
        break -- done -- good
      end--if
      numchiiar = string.byte (strqooq,(numindeex+1),(numindeex+1))
      booisdash = (numchiiar==45)
      booisdigi = lfgtestnum(numchiiar)
      booislclc = lfgtestlc(numchiiar)
      if (not (booislclc or booisdigi or booisdash)) then
        booisvaladv = false
        break -- to join mark -- inherently bad char
      end--if
      if (booislclc) then
        numadjlet = numadjlet + 1
      else
        numadjlet = 0
      end--if
      if (booisdigi and ((numukurran~=3) or (numindeex~=1) or (not boodigit))) then
        booisvaladv = false
        break -- to join mark -- illegal digit
      end--if
      if (booisdash) then
        if ((numukurran<4) or (numindeex==0) or ((numindeex+1)==numukurran)) then
          booisvaladv = false
          break -- to join mark -- illegal dash
        end--if
        numadjdsh = numadjdsh + 1
        numtotdsh = numtotdsh + 1 -- total
      else
        numadjdsh = 0 -- do NOT zeroize the total !!!
      end--if
      if ((numadjlet>3) or (numadjdsh>1) or (numtotdsh>2)) then
        booisvaladv = false
        break -- to join mark -- evil
      end--if
      numindeex = numindeex + 1 -- ZERO-based
    end--while -- inner genuine loop over char:s

    if (not boonoban) then -- if "yesban" then
      numindeex = 0
      while true do -- lower inner genuine loop
        varomongkosong = contabisbanned[numindeex+1] -- number of elem unknown
        if (type(varomongkosong)~="string") then
          break -- abort inner loop (then outer fake loop) due to end of table
        end--if
        numukurran = string.len (varomongkosong)
        if ((numukurran<2) or (numukurran>3)) then
          break -- abort inner loop (then outer fake loop) due to faulty table
        end--if
        if (strqooq==varomongkosong) then
          booisvaladv = false
          break -- abort inner loop (then outer fake loop) due to violation
        end--if
        numindeex = numindeex + 1 -- ZERO-based
      end--while -- lower inner genuine loop
    end--if (not boonoban) then

    break -- finally to join mark
  end--while -- fake loop -- join mark

  return booisvaladv

end--function lfivalidatelnkoadv

------------------------------------------------------------------------

-- Local function LFHRLSTRIP

-- Strip "rl .. lr" if it is present and string length is at least 8 octet:s.

local function lfhrlstrip (strrlinut)
  local numsoct = 0
  local numsodt = 0
  local numsoet = 0
  local numsoft = 0
  local numsogt = 0
  local numsoht = 0
  local numlaengd = 0
  numlaengd = string.len(strrlinut)
  if (numlaengd>=8) then -- at least 2 Octet:s length "rl .. lr" after strip
    numsoct = string.byte(strrlinut,1,1)
    numsodt = string.byte(strrlinut,2,2)
    numsoet = string.byte(strrlinut,3,3)
    numsoft = string.byte(strrlinut,(numlaengd-2),(numlaengd-2))
    numsogt = string.byte(strrlinut,(numlaengd-1),(numlaengd-1))
    numsoht = string.byte(strrlinut,(numlaengd  ),(numlaengd  ))
    if ((numsoct==114) and (numsodt==108) and (numsoet==32) and (numsoft==32) and (numsogt==108) and (numsoht==114)) then
      strrlinut = string.sub(strrlinut,4,(numlaengd-3)) -- stri off 3+3 char:s
    end--if
  end--if
  return strrlinut
end--function lfhrlstrip

------------------------------------------------------------------------

-- Local function LFHPICKCSV

  -- This is done in 3 steps:
  -- * skip possible unsuitable elements
  -- * skip possible whitespace preceding the searched element
  -- * copy the searched element (takes a char from previous step)

  -- this is a copy of module "mpiksubstrind" with minimal modifications

local function lfhpickcsv (strcsvline, numxindex)

  local strelemento = ''

  local numypos  = 1 -- ONE-based
  local numlymyt = 0
  local numocct  = 0

  local bootymp  = false
  local boospc   = false -- flag for whitespace reduction feature
  local boouch   = false -- flag for found useful char when skipping element

  numlymyt = string.len(strcsvline)

  while true do -- iterate through elements in order to skip them
        if (numxindex==0) then -- nothing to skip anymore
          bootymp = true
          break -- exit the outer loop, nothing to skip anymore
        end--if
        numxindex = numxindex - 1
        bootymp = false
        boouch = false
        while true do -- iterate through whspc & chars mix looking for comma
          if (numypos>=numlymyt) then
            break -- exit the inner loop, NOT found, give up
          end--if
          numypos = numypos + 1
          numocct = string.byte (strcsvline,numypos,numypos)
          if ((numocct<32) and (numocct~=9)) then
            break -- EOL: exit the inner loop, NOT found, give up
          end--if
          if ((numocct>32) and (numocct~=44)) then
            boouch = true -- found a valid char (empty field is an error)
          end--if
          if (numocct==44) then
            if (boouch) then
              bootymp = true -- field was not empty
            end--if
            break -- exit the inner loop, found a comma, this is good or bad
          end--if
        end--while
        if (not bootymp) then
          break -- exit the outer loop, NOT found or empty field, give up
        end--if
  end--while

  if (bootymp) then
        bootymp = false
        while true do -- iterate through chars skipping whitespace
          if (numypos>=numlymyt) then
            break -- exit the loop, NOT found, give up
          end--if
          numypos = numypos + 1
          numocct = string.byte (strcsvline,numypos,numypos)
          if ((numocct<32) and (numocct~=9)) then
            break -- EOL: exit the loop, NOT found, give up
          end--if
          if (numocct>32) then
            if (numocct==44) then
              break -- exit loop, found comma, give up according to rules
            end--if
            bootymp = true
            break -- exit the loop, found valid char, start copying now
          end--if
        end--while
  end--if

  if (bootymp) then
        while true do -- iterate through chars copying the found element
          if ((numocct==32) or (numocct==9)) then
            boospc=true
          else
            if (boospc) then
              strelemento = strelemento .. string.char (32,numocct)
              boospc = false
            else
              strelemento = strelemento .. string.char (numocct)
            end--if
          end--if
          if (numypos>=numlymyt) then -- "strelemento" was preassigned to empty
            break -- done
          end--if
          numypos = numypos + 1
          numocct = string.byte (strcsvline,numypos,numypos)
          if ((numocct<32) and (numocct~=9)) then
            break -- EOL: exit the loop, done
          end--if
          if (numocct==44) then
            break -- comma: exit the loop, done
          end--if
        end--while
  end--if

  if (not bootymp) then
    strelemento = ''
  end--if

  return strelemento

end--function lfhpickcsv

------------------------------------------------------------------------

---- VARIABLES [R] ----

------------------------------------------------------------------------

function exporttable.ek (arxframent)

  -- general unknown type

  local vartmp = 0     -- variable without type

  -- special type "args"

  local arxourown = 0  -- metaized "args" from our own "frame" (NOT caller's)

  -- general str (cool "qstrtrace" declared separately outside main)

  local strcy      = '' -- for reverse query only, is NOT equal "str1anon"
  local strkomline = ''
  local strret     = '' -- output string
  local strtump    = ''

  -- stuff from "args" (cool "qboodetrc" declared separately outside main)

  local str1anon = ''    -- y-index from args[1]
  local num2anon = 255   -- x-index from args[2] (0...10 111 177 233 237)

  local boobin   = false
  local boorel   = true  -- flag from "rel=1" for stripping rl-lr-enclosement
  local stralt   = "-"   -- alternative string to replace "-" literal fr table
  local sterr    = "="   -- default or alterna string to replace "=" on error

  -- stuff from incoming table

  local num0statcode = 0
  local num1lenfullo = 0
  -- local num2lenstrip = 0
  -- local num3errposit = 0
  -- local num4lineslin = 0

  -- local str5errorstr = ''
  -- local str6errorstr = ''
  -- local str7errorstr = ''

  -- local tab10enume    = {} -- obligatory but we don't use it here
  local tab11forward  = {} -- obligatory
  local tab12reverse  = {} -- optional
  local tab13extra    = {} -- optional

  -- general num

  local numoct  = 0 -- temp
  local numlong = 0 -- temp for parameter evaluation

  -- general boo

  local booerr  = false -- overall error flag
  local bootimp = false -- temp

------------------------------------------------------------------------

---- MAIN [Z] ----

------------------------------------------------------------------------

  ---- GUARD AGAINST INTERNAL ERROR AGAIN ----

  booerr = qbooguard
  lftracemsg ('This is "mpiktbllki", requested "detrc" report')
  lftracemsg ('Const "conbookodlng" is "' .. tostring(conbookodlng) .. '"')
  lftracemsg ('Const "conboomiddig" is "' .. tostring(conboomiddig) .. '"')
  lftracemsg ('Var "booerr" is "' .. tostring(booerr) .. '" so far')

  ---- GATHER LESS THAN 11 ITEMS FROM THE HUGE TABLE AND PRECHECK ----

  -- we do NOT have "nummaxwidth" yet !!!FIXME!!!
  -- spec allows 32 ... 8'000'000 but here we restrict to 320...1'000'000

  while true do -- fake loop
    if (booerr) then
      break -- to join mark
    end--if
    num0statcode = qtbllingbaha[2]
    if (num0statcode~=0) then
      lftracemsg ("Submodule failed with error code " .. tostring (num0statcode))
      booerr = true
      break -- to join mark
    end--if
    num1lenfullo = qtbllingbaha[3]
    if ((num1lenfullo>=320) and (num1lenfullo<=1000000)) then
      lftracemsg ("Passed 320...1'000'000 check with length " .. tostring (num1lenfullo))
    else
      lftracemsg ("Failed 320...1'000'000 check with length " .. tostring (num1lenfullo))
      booerr = true
      break -- to join mark
    end--if
    tab11forward = qtbllingbaha['T77'] -- ultimately obligatory
    if (type(tab11forward)~='table') then -- important check
      lftracemsg ("Submodule failed to deliver obligatory [T77]")
      booerr = true
      break -- to join mark
    end--if
    tab12reverse = qtbllingbaha['T80'] -- optional
    if (type(tab12reverse)~='table') then -- important check
      tab12reverse = {} -- replace by empty table
      lftracemsg ("Submodule failed to deliver optional [T80] reverse")
    end--if
    tab13extra = qtbllingbaha['T81-1'] -- optional
    if (type(tab13extra)~='table') then -- important check
      tab13extra = {} -- replace by empty table
      lftracemsg ("Submodule failed to deliver optional [T81-1] extra")
    end--if
    break -- finally to join mark
  end--while -- fake loop -- join mark

  ---- SEIZE 1 OR 2 ANONYMOUS PARAMS (1 OBLIGATORY PLUS 1 OPTINOAL) ----

  -- y-index string from arxourown[1] is "str1anon"
  -- here y-index is checked very preliminarily only

  -- x-index string or special value from arxourown[2] is integer "num2anon"
  -- (0...10, special 111, 177, 233, 237, invalid 255)
  -- here we access "contabrxi" (x-translation)

  arxourown = arxframent.args -- "args" from our own "frame"

  str1anon = '' -- preassume not given (but it's obligatory)
  num2anon = 255 -- preassume not given (maybe can live without it)

  if (not booerr) then
    vartmp = arxourown[1] -- requested y-index
    if (type(vartmp)=='string') then
      numlong = string.len (vartmp)
      if ((numlong>0) and (numlong<100)) then
        str1anon = vartmp -- preliminarily accepted
      else
        lftracemsg ('Requested y-index is blatantly invalid')
        booerr = true
      end--if
    else
      lftracemsg ('No y-index')
      booerr = true
    end--if
  end--if

  if (not booerr) then
    vartmp = arxourown[2] -- x-index or special
    if (type(vartmp)=='string') then
      numlong = string.len (vartmp)
      if ((numlong>0) and (numlong<100)) then
        strtump = vartmp -- preliminarily accepted
        if (numlong==1) then
          numoct = string.byte (strtump,1,1)
          if (numoct==76) then
            num2anon = 177 -- special "L" (complete line)
          end--if
          if (numoct==82) then
            num2anon = 233 -- special "R" (reverse query)
          end--if
          if (numoct==88) then
            num2anon = 237 -- special "X" (extra query)
          end--if
        end--if
        if ((num2anon==255) and ((numlong==1) or (numlong==2))) then
          numoct = lfnstr12dig2int (strtump) -- 255 if invalid
          vartmp = contabrxi [numoct] -- risk of type "nil"
          lftracemsg ('Translated requested x-index from "' .. strtump .. '" to "' .. tostring(vartmp) .. '"')
          if (type(vartmp)=="number") then
            num2anon = vartmp -- otherwise keep the preassigned 255
          end--if
        end--if
        if (num2anon==255) then
          lftracemsg ('Requested x-index "' .. strtump .. '" is invalid') -- NOT "vartmp" !!!
          booerr = true
        end--if
      else
        lftracemsg ('Requested x-index is blatantly invalid')
        booerr = true
      end--if
    else
      lftracemsg ('No x-index')
    end--if
  end--if

  ---- SEIZE 3 OF 5 NAMED AND OPTIONAL PARAMETERS ----

  if (not booerr) then
    vartmp = arxourown["bin"] or "0" -- default is "false"
    boobin = (vartmp=="1")
    bootimp = (vartmp=="0")
    if (not (boobin or bootimp)) then
      lftracemsg ('Invalid parameter "bin="')
      booerr = true
    end--if
    if (boobin) then
      lftracemsg ('Parameter "bin=1" seized') -- silent for "bin=0"
    end--if
  end--if

  if (not booerr) then
    vartmp = arxourown["rel"] or "1" -- default is "true"
    boorel = (vartmp=="1")
    bootimp = (vartmp=="0")
    if (not (boorel or bootimp)) then
      lftracemsg ('Invalid parameter "rel="')
      booerr = true
    end--if
    if (not boorel) then
      lftracemsg ('Parameter "rel=0" seized') -- silent for "rel=1"
    end--if
  end--if

  if (not booerr) then
    vartmp = arxourown["alt"] -- 1...64 char:s alt string no default
    if (type(vartmp)=='string') then
      numlong = string.len (vartmp)
      if ((numlong<1) or (numlong>64)) then
        lftracemsg ('Invalid parameter "alt="')
        booerr = true
      else
        lftracemsg ('Parameter "alt=" seized')
        stralt = vartmp -- default was "-"
      end--if
    end--if
  end--if

  ---- CHECK PARAM CONSISTENCY ----

  -- here we access "conbookodlng" and "conboomiddig"

  if ((not booerr) and boobin) then -- "bin=1" here
    if (num2anon==255) then
      num2anon = 111 -- y-index only, parameter x-index not given
    end--if
    if ((num2anon~=111) and (num2anon~=233) and (num2anon~=237)) then
      lftracemsg ('Forward search and "bin=1" exclude ordinary x-index and "L"')
      booerr = true
    end--if
  end--if

  if (not booerr) then
    if ((not boobin) and (num2anon==255)) then
      lftracemsg ('Without "bin=1" an x-index is required')
      booerr = true
    end--if
  end--if

  if (not booerr) then
    if (num2anon>200) then -- must be done after 255->111 conversion
      numlong = string.len (str1anon) -- reverse or extra query
      if ((numlong<2) or (numlong>48)) then
        lftracemsg ("Requested y-index has invalid length for reverse or extra query")
        booerr = true -- not valid
      end--if
    else
      if (not lfivalidatelnkoadv(str1anon,false,false,conbookodlng,conboomiddig,false)) then
        lftracemsg ("Requested y-index is invalid for forward query, need language code")
        booerr = true -- not valid language code
      end--if
    end--if
  end--if

  ---- SEIZE NAMED PARAMETER "ERR" EVEN IF WE ALREADY SUCK ----

  -- try to pick named param "err=" even if we already have "booerr==true"
  -- 1...64 char:s alternative string to replace "="

  vartmp = arxourown["err"] -- can be type "nil"
  if (type(vartmp)=='string') then
    numlong = string.len (vartmp)
    if ((numlong<1) or (numlong>64)) then
      lftracemsg ('Alterna string "err=" has invalid length')
      booerr = true -- damn -- maybe redundant -- keep "sterr" as "="
    else
      sterr = vartmp -- was preassigned to "="
      lftracemsg ('Alterna string "err=" seized')
    end--if
  end--if

  ---- SEIZE NAMED PARAMETER "DETRC" EVEN IF WE ALREADY SUCK ----

  -- try to pick named param "detrc=" even if we already have an error
  -- so far have collected to "qstrtrace" unconditionally, maybe shut up now

  if (arxourown["detrc"]=="true") then
    lftracemsg ('Param "detrc=true" seized')
  else
    qboodetrc = false -- was preassigned to "true"
    qstrtrace = '' -- shut up now
  end--if

  lftracemsg ('All params done, "booerr" is "' .. tostring(booerr) .. '" so far')

  ---- PERFORM FORWARD

  if (not booerr) then
      strkomline = tab11forward [str1anon] or "" -- protect against type "nil"
      if (strkomline=='') then
        lftracemsg ('Forward search for "' .. str1anon .. '" resulted in no hit')
        booerr = true
      else
        lftracemsg ('Forward search for "' .. str1anon .. '" resulted in len=' .. tostring(string.len(strkomline)))
      end--if
  end--if

  ---- RETURN ONE ELEMENT PICKED ACCORDING TO X-INDEX NUMBER ----

  -- for forward query excessive whitespace already reduced in submodule

  -- "num2anon" can be 0...10 whereas values > 100 are reserved:
  -- * 111 forward search y-only query per "bin=1" while no "R" no "X"
  -- * 177 complete line per "L"

  if (num2anon<100) then

    if (not booerr) then
      do
        local numa = 0
        local numb = 0
        numa = string.len(str1anon) + 5 -- ONE-based position after "]]"
        numb = string.len(strkomline)
        if (numa>numb) then
          lftracemsg ('Failed to discard /cy/')
          booerr = true -- should impossible to occur unless submodule broken
        else
          strkomline = string.sub(strkomline,numa,numb) -- discard /cy/ part
          lftracemsg ('Discarded /cy/ before x-pick')
          strret = lfhpickcsv (strkomline,num2anon) -- pick
          lftracemsg ('After x-pick got "' .. strret .. '"')
          booerr = (strret=='')
        end--if
      end--do
    end--if

    if (not booerr) then
      if (boorel) then -- default is "true"
        strret = lfhrlstrip (strret) -- strip
      end--if
      if (strret=='-') then
        strret = stralt -- do this BEFORE "=" -> "-"
      end--if
      if (strret=='=') then
        strret = '-' -- string "=" is prohibited, punishment is conversion to "-"
      end--if
    end--if

  end--if

  ---- RETURN COMPLETE LINE OR RESULT OF REVERSE OR EXTRA QUERY ----

  -- excessive whitespace from forward query already reduced in submodule

  if ((not booerr) and (num2anon==177)) then -- x-index was "L"
    strret = strkomline
  end--if
  if ((not booerr) and (num2anon>200)) then -- x-index was "R" or "X"
    strret = strcy
  end--if

  ---- RETURN BINARY DIGIT OR CARE ABOUT ERRORS ----

  if (boobin) then -- "bin=1"
    if (booerr) then
      strret = "0" -- y-index NOT found or error
    else
      strret = "1" -- y-index found
    end--if
  else
    if (booerr) then
      strret = sterr -- string "strret" was preassigned to empty
    end--if
  end--if

  if (qboodetrc) then
    strret = "<br>" .. qstrtrace .. "<br><br>" .. strret
  end--if
  return strret

end
  ---- RETURN THE JUNK LUA TABLE ----

return exporttable
Elŝutita el "https://eo.wiktionary.org/w/index.php?title=Modulo:mpiktbllki&oldid=1187942"