Module:Solab

Documentation for this module may be created at Module:Solab/doc

 local subString, lenString = mw.ustring.sub, mw.ustring.len
 local p = {}
 local util = require "Module:Utility"
 local split = util.split
 local comp = util.comp

 local subString, lenString = mw.ustring.sub, mw.ustring.len
 function p.Company(frame)
    local fields ={'Name',
                   'Cat',
                   'Product',
                   'products',
                   'Technology',
                   'Homepage',
                   'streetAddress',
                   'has_location_city','city',
                   'has_location_country', 'country',
                   'has_coordinates',
                   'Photo',
                   'logo',
                   'source',
                   'ticker'}
    r= ''
    r = r..'\n{|class="wikitable sortable"\n!Name!!Value\n'

    for key, nam in pairs(fields) do 
     local val = frame.args[nam]
     if val == nil and nam == 'Name' then
        r = r..'|-\n|'..nam..'|| [[Name::'.. mw.title.getCurrentTitle().text ..']]\n'
     elseif val ~= nil and (nam == 'Product' or nam == 'Technology' or nam == 'products')  then
       val = split(val, ',') 
       val_list = ''
       for y,x in ipairs(val) do
              val_list  = val_list .. '[['..nam..'::'..x..']],'
       end
       r = r..'|-\n|[['..nam..']]||'..val_list..'\n' 
     elseif val ~= nil and (nam == 'Photo' or nam == 'logo') then
       r = r..'|-\n|'..nam..'||[[File:'..val..'| 150px ]]\n'
       r = r..'|-\n|'..nam..'||[[Logo::'..val..']]\n'

     elseif val == nil and  nam == 'Cat' then
        r = r..'|-\n|'..nam..'|| [[Cat::Solar]]\n' 
     elseif val ~= nil and (nam == 'has_location_city' or nam == 'city') then
         --r = r..'|-\n|[[Property:'..nam..']]||[['..nam..'::'..val..']]\n'
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
          hsc = 'has_location_country'
          hasc =  'has_coordinates'
          format = 'format=plainlist'
          link  = 'link=none'
          co    = '?Country'
          coord = '?Coordinates'
          local hscv = frame:preprocess("{{#show: "..val.."|"..co.."| "..link.."| "..format.."|mainlabel=-}}")
          local hsco = frame:preprocess("{{#show: "..val.."|"..coord.."| "..link.."| "..format.."}}")

          if frame.args['has_location_country'] == nil then
             -- r = r..'|-\n|[[Property:'..hsc..']]||[['..hsc..'::'..hscv..']]\n' 
                r = r..'|-\n|[[Property:'..hsc..']]||[['..hsc..'::'..hscv..']]\n' 

          end
          if frame.args['has_coordinates'] == nil then
              r = r..'|-\n|[[Property:'..hasc..']]||[['..hasc..'::'..hsco..']]\n'
          end
    elseif val ~= nil and nam == 'has_location_country' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
    elseif val ~= nil and nam == 'has_coordinates' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'


     elseif val ~= nil then

     r = r..'|-\n|'..nam..'||[['..nam..'::'..val..']]\n'
    end 
     end
    r=r..'|}\n'

    local man=frame:preprocess("{{#ask: [[HasManufacturer::{{PAGENAME}}]] |?Category }}")

    r = r .. man ..'\n'
    return r
end

function p.Event(frame)
    local t={}   
    local fields ={'Title',
                   'Cat',
                   'Start_date',
                   'End_date',
                   'Homepage',
                   'has_location_city',
                   'has_location_country',
                   'has_coordinates',
                   'Photo'
                   }

    r = ''
    r = r..'\n{|class="wikitable sortable"\n!Name!!Value\n'
 
    for key, nam in pairs(fields)  do 
     local val  = frame.args[nam]
     if val == nil and  nam == 'Name' then
        r = r..'|-\n|'..nam..'|| [[Name::'.. mw.title.getCurrentTitle().text ..']]\n'
     elseif val ~= nil and (nam == 'Product' or nam == 'Technology')  then
      val  =  split( val, ',' ) 
      val_list = ''
      for y,x in ipairs(val)  do
       val_list  = val_list .. '[['..nam..'::'..x..']],'
       end
        r = r..'|-\n|[['..nam..']]||'..val_list..'\n' 
     elseif val ~= nil and  nam == 'Photo' then
        r = r..'|-\n|'..nam..'|Poster||[[File:'..val..'| 150px ]]\n'
     elseif val == nil and  nam == 'Cat' then
        r = r..'|-\n|'..nam..'|| [[Cat::Solar]]\n' 

     elseif val ~= nil and nam == 'has_location_city' then
         r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
          hsc = 'Has location country'
          hasc =  'Has coordinates'
          format = 'format=list'
          link  = 'link=none'
          co    = '?Country'
          coord = '?Coordinates'

          local hscv=frame:preprocess("{{#show: "..val.."|"..co.."|"..link.."|"..format.."}}")
          local hsco=frame:preprocess("{{#show: "..val.."|"..coord.."|"..link.."|"..format.."}}")
           if frame.args['has_location_country'] == nil then
             r = r..'|-\n|[[Property:'..hsc..'|Country]]||[['..hsc..'::'..hscv..']]\n' 
           end
           if frame.args['has_coordinates'] == nil then
              r = r..'|-\n|[[Property:'..hasc..'|GEO]]||[['..hasc..'::'..hsco..']]\n' 
           end

     elseif val ~= nil and nam == 'has_location_country' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
     
    elseif val ~= nil and nam == 'has_coordinates' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'

     elseif val ~= nil then
     r = r..'|-\n|'..nam..'||[['..nam..'::'..val..']]\n'
    end 
     end
    r=r..'|}\n'
    return r
end

function p.Panel(frame)
    local t={}   
    local fields =
{'Name', 
                  'Material', 
                  'Product',
                  'Homepage',
                  'Producer',
                  'Photo',
'Pmax',
'Vmpp',
'Impp',
'Voc',
'Isc',
'Max. over current rating',
'Power tolerance',
'Max. system voltage',
'Solar panel efficiency',
'Weight',
'Maximum_Reverse_Current',
 'COP',
 'Eta',
 'ticker' }

    r = ''
    r = r..'\n{|class="wikitable sortable"\n!name!!value\n'

    for key, nam in pairs(fields)  do 
     local val  = frame.args[nam]
     if val ~= nil and nam == 'Product' then
      val  =  split( val, ',' ) 
      val_list = ''
      for y,x in ipairs(val)  do
       val_list  = val_list .. '[['..nam..'::'..x..']],'
       end
        r = r..'|-\n|[['..nam..']]||'..val_list..'\n'
     elseif val ~= nil and nam == 'Photo' then
        r = r..'|-\n|'..nam..'||[[File:'..val..'| 150px ]]\n' 
        r = r..'|-\n|'.. 'Electrical data' ..'||[['..'STC' ..']]\n' 
     elseif val ~= nil and  nam == 'Producer' then
        r = r..'|-\n|'..nam..'||[[hasManufacturer::'..val..']]\n' 
     elseif val ~= nil then
     r = r..'|-\n|'..nam..'|| [['..nam..'::'..val..']]\n'
     else
     r = r..'|-\n|[['..nam..']]|| [['..nam..'::'..'??'..']]\n'
    end 
     end
    r=r..'|}\n'
    return r
end


function p.Plant(frame)
local fields ={'Name',
                   'Cat',
                   'Product',
                   'Power',
                   'Energy',
                   'products',
                   'Technology',
                   'Homepage',
                   'has_location_city','city',
                   'has_location_country', 'country',
                   'has_coordinates',
                   'Photo',
                   'Owner',
                   'Developer',
                   'logo',
                   'ticker'}

    r= ''
    r = r..'\n{|class="wikitable sortable"\n!Name!!Value\n'

    for key, nam in pairs(fields) do 
     local val = frame.args[nam]
     if val == nil and nam == 'Name' then
        r = r..'|-\n|'..nam..'|| [[Name::'.. mw.title.getCurrentTitle().text ..']]\n'
     elseif val ~= nil and (nam == 'Product' or nam == 'Technology' or nam == 'products')  then
       val = split(val, ',') 
       val_list = ''
       for y,x in ipairs(val) do
              val_list  = val_list .. '[['..nam..'::'..x..']],'
       end
       r = r..'|-\n|[['..nam..']]||'..val_list..'\n' 
     elseif val ~= nil and  (nam == 'Photo'  or nam == 'logo')  then
       r = r..'|-\n|'..nam..'||[[File:'..val..'| 150px ]]\n'
     elseif val == nil and  nam == 'Cat' then
        r = r..'|-\n|'..nam..'|| [[Cat::Solar]]\n' 
     elseif val ~= nil and (nam == 'has_location_city' or nam == 'city') then
         --r = r..'|-\n|[[Property:'..nam..']]||[['..nam..'::'..val..']]\n'
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
          hsc = 'Has location country'
          hasc =  'Has coordinates'
          format = 'format=list'
          link  = 'link=none'
          co    = '?Country'
          coord = '?Coordinates'
          local hscv=frame:preprocess("{{#show: "..val.."|"..co.."|"..link.."|"..format.."}}")
          local hsco=frame:preprocess("{{#show: "..val.."|"..coord.."|"..link.."|"..format.."}}")
          if frame.args['has_location_country'] == nil then
             r = r..'|-\n|[[Property:'..hsc..']]||[['..hsc..'::'..hscv..']]\n' 
          end
          if frame.args['has_coordinates'] == nil then
              r = r..'|-\n|[[Property:'..hasc..']]||[['..hasc..'::'..hsco..']]\n'
          end
    elseif val ~= nil and nam == 'has_location_country' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
    elseif val ~= nil and nam == 'has_coordinates' then
          r = r..'|-\n|[[Property:'..nam..'|'..nam..']]||[['..nam..'::'..val..']]\n'
   

     elseif val ~= nil then

     r = r..'|-\n|'..nam..'||[['..nam..'::'..val..']]\n'
    end 
     end
    r=r..'|}\n'
    return r
end



function p.In(frame)
    local t={}
    for n,v in frame:argumentPairs() do table.insert (t,{n,v}) end
    table.sort (t,comp)
    tot = 0
    r = '{|class="wikitable sortable"\n!name!!value\n'
    for i,nv in ipairs(t) do 
    r = r..'|-\n|'..nv[1]..'||[['..nv[1]..'::'..nv[2]..']]\n' 
    end
    r=r..'|}\n'
    return r
end

function p.Out(frame)
    local t={}
    for n,v in frame:argumentPairs() do table.insert (t,{n,v}) end
    table.sort (t,comp)
    tot = 0
    r = '{|class="wikitable sortable"\n!name!!value\n'
    for i,nv in ipairs(t) do 
    r = r..'|-\n|'..nv[1]..'||'..nv[2]..'\n' 
    tot = tot + nv[2]
    end
    r = r..'|-\n|'..'Tot'..'||'..tot..'\n'
    r=r..'|}\n'
    return r
end
return p