местопонаселениюрегионы
Для документации этого модуля может быть создана страница Модуль:МестоПоНаселениюРегионы/doc
require('Module:No globals') local bit32 = require( 'bit32' ) local ArrayPopSRC= mw.loadData('Module:Statistical/RUS-AAA') local ArrayPopCur = {} local function LimitDouble(Val) local MaxNumber = 2147483648 return Val - (math.floor(Val / MaxNumber) * MaxNumber) end local function shl(Val, Shift) if Shift > 0 then return LimitDouble(Val * (2 ^ Shift)) else return Value end end local function shr(Val, Shift) if Shift > 0 then return math.floor(Val / (2 ^ Shift)) else return Val end end local function MakeHash(PlaceName) local dataLength = mw.ustring.len(PlaceName) if dataLength == 0 then return 0 end local hash = dataLength local remainingBytes = math.fmod(dataLength, 2) local numberOfLoops = math.floor(dataLength / 2) local currentIndex = 0 local tmp = 0 while (numberOfLoops > 0) do hash = LimitDouble(hash + mw.ustring.codepoint(PlaceName, currentIndex + 1)) tmp = bit32.bxor(shl(mw.ustring.codepoint(PlaceName, currentIndex + 2), 11), hash) hash = bit32.bxor(shl(hash, 16), tmp) hash = LimitDouble(hash + shr(hash, 11)) currentIndex = currentIndex + 2 numberOfLoops = numberOfLoops - 1 end if remainingBytes == 1 then hash = LimitDouble(hash + mw.ustring.codepoint(PlaceName, currentIndex + 1)) hash = bit32.bxor(hash, shl(hash, 10)) hash = LimitDouble(hash + shr(hash, 1)) end hash = bit32.bxor(hash, shl(hash, 3)) hash = LimitDouble(hash + shr(hash, 5)) hash = bit32.bxor(hash, shl(hash, 4)) hash = LimitDouble(hash + shr(hash, 17)) hash = bit32.bxor(hash, shl(hash, 25)) hash = LimitDouble(hash + shr(hash, 6)) return hash end local function Getreg(regname) local PlaceName = regname if PlaceName == nil then return "Введите название объекта АТД" end PlaceName = mw.text.trim(PlaceName) local PlaceHash = MakeHash(PlaceName) local function FormatH() return PlaceHash end local PlaceData = nil PlaceData = ArrayPopSRC[PlaceHash] local LastRecord = 0 for k in pairs(PlaceData) do LastRecord = LastRecord + 1 end local NumRecord = LastRecord local function FormatN() return PlaceData[NumRecord][2] end return FormatN() end local ArrayReg = { 'Алтайский край', 'Амурская область', 'Архангельская область', 'Астраханская область', 'Белгородская область', 'Брянская область', 'Владимирская область', 'Волгоградская область', 'Вологодская область', 'Воронежская область', 'Москва', 'Санкт-Петербург', 'Еврейская автономная область', 'Забайкальский край', 'Ивановская область', 'Иркутская область', 'Кабардино-Балкария', 'Калининградская область', 'Калужская область', 'Камчатский край', 'Карачаево-Черкесия', 'Республика Карелия', 'Кемеровская область', 'Кировская область', 'Костромская область', 'Краснодарский край', 'Красноярский край', 'Курганская область', 'Курская область', 'Ленинградская область', 'Липецкая область', 'Магаданская область', 'Московская область', 'Мурманская область', 'Ненецкий автономный округ', 'Нижегородская область', 'Новгородская область', 'Новосибирская область', 'Омская область', 'Оренбургская область', 'Орловская область', 'Пензенская область', 'Пермский край', 'Приморский край', 'Псковская область', 'Адыгея', 'Республика Алтай', 'Башкортостан', 'Бурятия', 'Дагестан', 'Ингушетия', 'Калмыкия', 'Республика Коми', 'Республика Крым', 'Марий Эл', 'Мордовия', 'Якутия', 'Северная Осетия', 'Татарстан', 'Тыва', 'Хакасия', 'Ростовская область', 'Рязанская область', 'Самарская область', 'Саратовская область', 'Сахалинская область', 'Свердловская область', 'Севастополь', 'Смоленская область', 'Ставропольский край', 'Тамбовская область', 'Тверская область', 'Томская область', 'Тульская область', 'Тюменская область', 'Удмуртия', 'Ульяновская область', 'Хабаровский край', 'Ханты-Мансийский автономный округ — Югра', 'Челябинская область', 'Чечня', 'Чувашия', 'Чукотский автономный округ', 'Ямало-Ненецкий автономный округ', 'Ярославская область'} local NOAOCheck = {'Архангельская область без Ненецкого автономного округа', 'Тюменская область без автономных округов'} local ForceAOCheck = {'Архангельская область', 'Тюменская область'} local ArrayDatas = {} local ArrayIndexes = {} local ArrayTemps = {} local PopPlace = {} PopPlace.__index = PopPlace function PopPlace:gkeyfromVal( t, value ) for k,v in pairs(t) do if v==value then return k end end return '' end function table.contains(table, element) for _, value in pairs(table) do if value == element then return true end end return false end function PopPlace:NAOCheck(Regarg, NAOARG) if table.contains(NOAOCheck, Regarg) then return true end if NAOARG=='NOAO' then if table.contains(ForceAOCheck, Regarg) then return false else return true end end return false end function PopPlace:render() if self.args['ФО'] then ArrayReg = require('Module:МестоПоНаселениюРегионы/'..self.args['ФО']) end for p,v in ipairs(ArrayReg) do ArrayPopCur[v..""]=Getreg(v) end local AOBase, NAOPop, TOBase, KHMAOPop, YNAOPop AOBase = ArrayPopCur['Архангельская область'] NAOPop = ArrayPopCur['Ненецкий автономный округ'] TOBase = ArrayPopCur['Тюменская область'] KHMAOPop = ArrayPopCur['Ханты-Мансийский автономный округ — Югра'] YNAOPop = ArrayPopCur['Ямало-Ненецкий автономный округ'] if self:NAOCheck(self.args['1'], self.args['2']) then local GETArOblForReplace = self:gkeyfromVal(ArrayReg, 'Архангельская область') local GETTOblForReplace = self:gkeyfromVal(ArrayReg, 'Тюменская область') ArrayReg[GETArOblForReplace] = tostring(ArrayReg[GETArOblForReplace]..' без Ненецкого автономного округа') ArrayReg[GETTOblForReplace] = tostring(ArrayReg[GETTOblForReplace]..' без автономных округов') end for p,v in ipairs(ArrayReg) do if v=='Архангельская область без Ненецкого автономного округа' then ArrayDatas[#ArrayDatas+1] = AOBase-NAOPop ArrayTemps[v..""]=AOBase-NAOPop elseif v=='Тюменская область без автономных округов' then ArrayDatas[#ArrayDatas+1]=TOBase-KHMAOPop-YNAOPop ArrayTemps[v..""]=TOBase-KHMAOPop-YNAOPop else ArrayDatas[#ArrayDatas+1] = ArrayPopCur[v] ArrayTemps[v..""]=ArrayPopCur[v] end end table.sort(ArrayDatas, function(a,b) return a>b end) for _,o in ipairs(ArrayReg) do ArrayIndexes[o..""] = self:gkeyfromVal(ArrayDatas, ArrayTemps[o..""]) end --end ArrayPopSRC, ArrayDatas, ArrayTemps, NOAOCheck, ForceAOCheck, AOBase, NAOPop, TOBase, KHMAOPop, YNAOPop = nil if table.contains(ArrayReg, self.args['1']) then ArrayReg = nil return ArrayIndexes[self.args['1']] or '' end end function PopPlace.new(frame, args) if not args then args = require('Module:Arguments').getArgs(frame, {wrappers = {'Template:МестоПоНаселениюРегионы'}}) --return end local obj = { frame = frame, args = args } return setmetatable(obj, PopPlace) end local p = {} function p.main(frame) return PopPlace.new(frame):render() end return p