Module:File link: Difference between revisions

    From Nonbinary Wiki
    m (Undid revision 611451330 by Mr. Stradivarius (talk) whoops, that edit was supposed to be to the sandbox...)
    (make this a lot simpler - the original module was overkill for what it was trying to do)
    Line 1: Line 1:
    -- This module provides a library for formatting file wikilinks.
    -- This module provides a library for formatting file wikilinks.


    local libraryUtil = require('libraryUtil')
    local checkType = require('libraryUtil').checkType
    local checkType = libraryUtil.checkType


    local fileLink = {}
    local p = {}


    function fileLink.new(filename)
    function p._main(args)
    checkType('fileLink.new', 1, filename, 'string', true)
    checkType('_main', 1, args, 'table')
    local obj, data = {}, {}
     
    -- This is basically libraryUtil.checkTypeForNamedArg, but we are rolling our
    local checkSelf = libraryUtil.makeCheckSelfFunction(
    -- own function to get the right error level.
    'fileLink',
    local function checkArg(key, val, level)
    'fileLink',
    if type(val) ~= 'string' then
    obj,
    'fileLink object'
    )
    -- Set the filename if we were passed it as an input to fileLink.new.
    if filename then
    data.theName = filename
    end
    function data:name(s)
    checkSelf(self, 'name')
    checkType('fileLink:name', 1, s, 'string')
    data.theName = s
    return self
    end
    function data:format(s, filename)
    checkSelf(self, 'format')
    checkType('fileLink:format', 1, s, 'string', true)
    checkType('fileLink:format', 2, format, 'string', true)
    local validFormats = {
    thumb = true,
    thumbnail = true,
    frame = true,
    framed = true,
    frameless = true
    }
    if s == nil or validFormats[s] then
    data.theFormat = s
    data.theFormatFilename = filename
    else
    error(string.format(
    error(string.format(
    "bad argument #1 to 'fileLink:format' ('%s' is not a valid format)",
    "type error in '%s' parameter of '_main' (expected string, got %s)",
    s
    key, type(val)
    ), 2)
    ), level)
    end
    end
    return self
    end
    end


    local function sizeError(methodName)
    local ret = {}
    -- Used for formatting duplication errors in size-related methods.
     
    error(string.format(
    -- Adds a positional parameter to the buffer.
    "duplicate size argument detected in '%s'"
    local function addPositional(key)
    .. " ('upright' cannot be used in conjunction with height or width)",
    local val = args[key]
    methodName
    if not val then
    ), 3)
    return nil
    end
    function data:width(px)
    checkSelf(self, 'width')
    checkType('fileLink:width', 1, px, 'number', true)
    if px and data.isUpright then
    sizeError('fileLink:width')
    end
    end
    data.theWidth = px
    checkArg(key, val, 4)
    return self
    ret[#ret + 1] = val
    end
    end
     
    function data:height(px)
    -- Adds a named parameter to the buffer. We assume that the parameter name
    checkSelf(self, 'height')
    -- is the same as the argument key.
    checkType('fileLink:height', 1, px, 'number', true)
    local function addNamed(key)
    if px and data.isUpright then
    local val = args[key]
    sizeError('fileLink:height')
    if not val then
    return nil
    end
    end
    data.theHeight = px
    checkArg(key, val, 4)
    return self
    ret[#ret + 1] = key .. '=' .. val
    end
    end
     
    function data:upright(isUpright, factor)
    -- Filename
    checkSelf(self, 'upright')
    checkArg('file', args.file, 3)
    checkType('fileLink:upright', 1, isUpright, 'boolean', true)
    ret[#ret + 1] = 'File:' .. args.file
    checkType('fileLink:upright', 2, factor, 'number', true)
     
    if isUpright and (data.theWidth or data.theHeight) then
    -- Format
    sizeError('fileLink:upright')
    if args.format then
    end
    checkArg('format', args.format)
    data.isUpright = isUpright
    if args.formatfile then
    data.uprightFactor = factor
    checkArg('formatfile', args.formatfile)
    return self
    ret[#ret + 1] = args.format .. '=' .. args.formatfile
    end
    function data:resetSize()
    checkSelf(self, 'resetSize')
    for i, field in ipairs{'theWidth', 'theHeight', 'isUpright', 'uprightFactor'} do
    data[field] = nil
    end
    return self
    end
    function data:location(s)
    checkSelf(self, 'location')
    checkType('fileLink:location', 1, s, 'string', true)
    local validLocations = {
    right = true,
    left = true,
    center = true,
    none = true
    }
    if s == nil or validLocations[s] then
    data.theLocation = s
    else
    else
    error(string.format(
    ret[#ret + 1] = args.format
    "bad argument #1 to 'fileLink:location' ('%s' is not a valid location)",
    s
    ), 2)
    end
    end
    return self
    end
    function data:alignment(s)
    checkSelf(self, 'alignment')
    checkType('fileLink:alignment', 1, s, 'string', true)
    local validAlignments = {
    baseline = true,
    middle = true,
    sub = true,
    super = true,
    ['text-top'] = true,
    ['text-bottom'] = true,
    top = true,
    bottom = true
    }
    if s == nil or validAlignments[s] then
    data.theAlignment = s
    else
    error(string.format(
    "bad argument #1 to 'fileLink:alignment' ('%s' is not a valid alignment)",
    s
    ), 2)
    end
    return self
    end
    function data:border(hasBorder)
    checkSelf(self, 'border')
    checkType('fileLink:border', 1, hasBorder, 'boolean', true)
    data.hasBorder = hasBorder
    return self
    end
    function data:link(s)
    checkSelf(self, 'link')
    checkType('fileLink:link', 1, s, 'string', true)
    data.theLink = s
    return self
    end
    function data:alt(s)
    checkSelf(self, 'alt')
    checkType('fileLink:alt', 1, s, 'string', true)
    data.theAlt = s
    return self
    end
    function data:page(num)
    checkSelf(self, 'page')
    checkType('fileLink:page', 1, num, 'number', true)
    data.thePage = s
    return self
    end
    function data:class(s)
    checkSelf(self, 'class')
    checkType('fileLink:class', 1, s, 'string', true)
    data.theClass = s
    return self
    end
    function data:lang(s)
    checkSelf(self, 'lang')
    checkType('fileLink:lang', 1, s, 'string', true)
    data.theLang = s
    return self
    end
    end


    local function checkTypeStringOrNum(funcName, pos, arg)
    addPositional('border')
    local argType = type(arg)
    addPositional('location')
    if argType ~= 'nil' and argType ~= 'string' and argType ~= 'number' then
    addPositional('alignment')
    error(string.format(
    addPositional('size')
    "bad argument #%d to '%s' (string or number expected, got %s)",
    addNamed('upright')
    pos,
    addNamed('link')
    funcName,
    addNamed('alt')
    argType
    addNamed('page')
    ), 3)
    addNamed('class')
    end
    addNamed('lang')
    end
    addNamed('start')
    addNamed('end')
    function data:startTime(time)
    addNamed('thumbtime')
    checkSelf(self, 'startTime')
    addPositional('caption')
    checkTypeStringOrNum('fileLink:startTime', 1, time)
     
    data.theStartTime = time
    return string.format('[[%s]]', table.concat(ret, '|'))
    return self
    end
    end
    function data:endTime(time)
    checkSelf(self, 'endTime')
    checkTypeStringOrNum('fileLink:endTime', 1, time)
    data.theEndTime = time
    return self
    end
    function data:thumbTime(time)
    checkSelf(self, 'thumbTime')
    checkTypeStringOrNum('fileLink:thumbTime', 1, time)
    data.theThumbTime = time
    return self
    end
    function data:caption(s)
    checkSelf(self, 'caption')
    checkType('fileLink:caption', 1, s, 'string', true)
    data.theCaption = s
    return self
    end
    function data:render()
    checkSelf(self, 'render')
    local ret = {}
    -- Filename
    if not data.theName then
    error('fileLink:render: no filename was found')
    end
    ret[#ret + 1] = 'File:' .. data.theName
    -- Format
    if data.theFormat and data.theFormatFilename then
    ret[#ret + 1] = data.theFormat .. '=' .. data.theFormatFilename
    elseif data.theFormat then
    ret[#ret + 1] = data.theFormat
    end
    -- Border
    if data.hasBorder then
    ret[#ret + 1] = 'border'
    end
    -- Location
    ret[#ret + 1] = data.theLocation


    -- Alignment
    function p.main(frame)
    ret[#ret + 1] = data.theAlignment
    local origArgs = require('Module:Arguments').getArgs(frame, {
    wrappers = 'Template:File link'
    -- Size
    })
    if data.isUpright and data.uprightFactor then
    -- Copy the arguments that were passed to a new table to avoid looking up
    ret[#ret + 1] = 'upright=' .. tostring(data.uprightFactor)
    -- every possible parameter in the frame object.
    elseif data.isUpright then
    local args = {}
    ret[#ret + 1] = 'upright'
    for k, v in pairs(origArgs) do
    elseif data.theWidth and data.theHeight then
    -- Make _BLANK a special argument to add a blank parameter. For use in
    ret[#ret + 1] = string.format('%dx%dpx', data.theWidth, data.theHeight)
    -- conditional templates etc. it is useful for blank arguments to be
    elseif data.theWidth then
    -- ignored, but we still need a way to specify them so that we can do
    ret[#ret + 1] = tostring(data.theWidth) .. 'px'
    -- things like [[File:Example.png|link=]].
    elseif data.theHeight then
    if v == '_BLANK' then
    ret[#ret + 1] = string.format('x%dpx', data.theHeight)
    v = ''
    end
    -- Render named parameters.
    -- That includes link, alt, page, class, lang, start, end, and thumbtime.
    do
    local namedParameters = {
    {'link', 'theLink'},
    {'alt', 'theAlt'},
    {'page', 'thePage'},
    {'class', 'theClass'},
    {'lang', 'theLang'},
    {'start', 'theStartTime'},
    {'end', 'theEndTime'},
    {'thumbtime', 'theThumbTime'}
    }
    for i, t in ipairs(namedParameters) do
    local parameter = t[1]
    local value = data[t[2]]
    if value then
    ret[#ret + 1] = parameter .. '=' .. tostring(value)
    end
    end
    end
    end
     
    args[k] = v
    -- Caption
    ret[#ret + 1] = data.theCaption
    return string.format('[[%s]]', table.concat(ret, '|'))
    end
    end
    return p._main(args)
    local privateFields = {
    theName = true,
    theFormat = true,
    theFormatFilename = true,
    theWidth = true,
    theHeight = true,
    isUpright = true,
    uprightFactor = true,
    theLocation = true,
    theAlignment = true,
    hasBorder = true,
    theLink = true,
    theAlt = true,
    thePage = true,
    theClass = true,
    theLang = true,
    theCaption = true
    }
    local readOnlyFields = {}
    for field in pairs(data) do
    readOnlyFields[field] = true
    end
    readOnlyFields.theName = nil -- This is set if a filename is given to fileLink.new, so remove it.
    local function restrictedFieldError(key, restriction)
    error(string.format(
    "fileLink object field '%s' is %s",
    tostring(key),
    restriction
    ), 3)
    end
    setmetatable(obj, {
    __index = function (t, key)
    if privateFields[key] then
    restrictedFieldError(key, 'private')
    else
    return data[key]
    end
    end,
    __newindex = function (t, key, value)
    if privateFields[key] then
    restrictedFieldError(key, 'private')
    elseif readOnlyFields[key] then
    restrictedFieldError(key, 'read-only')
    else
    data[key] = value
    end
    end,
    __tostring = function (t)
    return t:render()
    end,
    __pairs = function ()
    local temp = {}
    for k, v in pairs(data) do
    if not privateFields[k] then
    temp[k] = v
    end
    end
    return pairs(temp)
    end
    })
    return obj
    end
    end


    return fileLink
    return p

    Revision as of 12:32, 18 December 2014

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

    -- This module provides a library for formatting file wikilinks.
    
    local checkType = require('libraryUtil').checkType
    
    local p = {}
    
    function p._main(args)
    	checkType('_main', 1, args, 'table')
    
    	-- This is basically libraryUtil.checkTypeForNamedArg, but we are rolling our
    	-- own function to get the right error level.
    	local function checkArg(key, val, level)
    		if type(val) ~= 'string' then
    			error(string.format(
    				"type error in '%s' parameter of '_main' (expected string, got %s)",
    				key, type(val)
    			), level)
    		end
    	end
    
    	local ret = {}
    
    	-- Adds a positional parameter to the buffer.
    	local function addPositional(key)
    		local val = args[key]
    		if not val then
    			return nil
    		end
    		checkArg(key, val, 4)
    		ret[#ret + 1] = val
    	end
    
    	-- Adds a named parameter to the buffer. We assume that the parameter name
    	-- is the same as the argument key.
    	local function addNamed(key)
    		local val = args[key]
    		if not val then
    			return nil
    		end
    		checkArg(key, val, 4)
    		ret[#ret + 1] = key .. '=' .. val
    	end
    
    	-- Filename
    	checkArg('file', args.file, 3)
    	ret[#ret + 1] = 'File:' .. args.file
    
    	-- Format
    	if args.format then
    		checkArg('format', args.format)
    		if args.formatfile then
    			checkArg('formatfile', args.formatfile)
    			ret[#ret + 1] = args.format .. '=' .. args.formatfile
    		else
    			ret[#ret + 1] = args.format
    		end
    	end
    
    	addPositional('border')
    	addPositional('location')
    	addPositional('alignment')
    	addPositional('size')
    	addNamed('upright')
    	addNamed('link')
    	addNamed('alt')
    	addNamed('page')
    	addNamed('class')
    	addNamed('lang')
    	addNamed('start')
    	addNamed('end')
    	addNamed('thumbtime')
    	addPositional('caption')
    
    	return string.format('[[%s]]', table.concat(ret, '|'))
    end
    
    function p.main(frame)
    	local origArgs = require('Module:Arguments').getArgs(frame, {
    		wrappers = 'Template:File link'
    	})
    	-- Copy the arguments that were passed to a new table to avoid looking up
    	-- every possible parameter in the frame object.
    	local args = {}
    	for k, v in pairs(origArgs) do
    		-- Make _BLANK a special argument to add a blank parameter. For use in
    		-- conditional templates etc. it is useful for blank arguments to be
    		-- ignored, but we still need a way to specify them so that we can do
    		-- things like [[File:Example.png|link=]].
    		if v == '_BLANK' then
    			v = ''
    		end
    		args[k] = v
    	end
    	return p._main(args)
    end
    
    return p