-- Implements {{Sum RFC}}, {{Ref RFC}}, and {{IETF RFC}}
require('strict')
localgetArgs=require('Module:Arguments').getArgs
localerr=require('Module:Error')._error
localyesno=require('Module:Yesno')
localp={}
localsectionMatch=function(n,t)return'<section%s+begin=rfc'..n..t..'%s*/>(.-)<section%s+end=rfc'..n..t..'%s*/>'end
localisblank=function(v)return(vor'')==''end
localfunctionsummary(args,dbContent,frame)
--implements {{Ref RFC/summary}}, which is only used by {{Sum RFC}}
--args.ref(false): add a reference to the summary.
--args.plain(false): do not prepend the RFC number with 'RFC'.
--args.title(true): include the title of the RFC.
--args.status(true): include the status of the RFC.
--args.notes(false): include the notes of the RFC.
--args.comment(''): add a {{Block indent}} with a comment.
ifnotframethenframe=mw.getCurrentFrame()end
localrefContent=""
localrfc=isblank(tonumber(args[1]))and0ortonumber(args[1])
ifnotdbContentthen
dbContent=mw.title.new('Template:Ref RFC/db/'..math.floor(rfc/100)).content
end
ifyesno(args.reforfalse,false)then
refContent=p._ref({[1]=rfc,notes=yesno(args.refnotesortrue,true)and'yes'or'no'},dbContent,frame)
end
ifyesno(args.plainorfalse,false)then
returnp._IETF({[1]=rfc,plainlink='yes'})..refContent
end
localoutput={}
table.insert(output,p._IETF({[1]=rfc,link='no'}))
ifyesno(args.titleortrue,true)then
localtitleContent=mw.ustring.match(dbContent,sectionMatch(rfc,'title'))
ifrfc<10000thentable.insert(output,'&numsp;')end
ifrfc<1000thentable.insert(output,'&numsp;')end
ifrfc<100thentable.insert(output,'&numsp;')end
ifrfc<10thentable.insert(output,'&numsp;')end
table.insert(output,string.format(
'&ndash;&numsp;"%s"%s ',
frame:extensionTag('cite',frame:preprocess(titleContent)..','),
refContent
))
ifyesno(args.statusortrue,true)then
localstatusContent=mw.ustring.match(dbContent,sectionMatch(rfc,'status'))
table.insert(output,"''"..statusContent..".''")
end
table.insert(output,' ')
ifyesno(args.notesorfalse,false)then
localnotesContent=mw.ustring.match(dbContent,sectionMatch(rfc,'notes'))
table.insert(output,frame:preprocess(notesContent))
end
elseifyesno(args.reforfalse,false)then
table.insert(output,refContent)
end
if(notisblank(args.comment))then
table.insert(output,frame:expandTemplate{title="Block indent",args={text=args.comment}})
end
returntable.concat(output)
end
localfunctionsecpage(section,page,pp)
--implements {{Ref RFC/secpage}}, which is only used by {{Ref RFC/getref}}
localoutput={}
ifnotisblank(section)then
table.insert(output,'sec. '..section)
ifnotisblank(page)ornotisblank(pp)then
table.insert(output,',&nbsp;')
end
end
ifnotisblank(page)then
table.insert(output,'p. '..page)
elseifnotisblank(pp)then
table.insert(output,'pp. '..pp)
end
ifnotisblank(page)ornotisblank(pp)ornotisblank(section)then
table.insert(output,'.')
end
returntable.concat(output)
end
localfunctiongetref(rfc,section,page,pp,notes,quote,status,dbContent,frame)
-- implements {{Ref RFC/getref}}, which is only used by {{REf RFC}}
ifnotframethenframe=mw.getCurrentFrame()end
localoutput={}
localrefContent=mw.ustring.match(dbContent,sectionMatch(rfc,'ref'))
table.insert(output,refContent..' ')
ifyesno(statusortrue,true)then
localstatusContent=mw.ustring.match(dbContent,sectionMatch(rfc,'status'))
table.insert(output,"''"..statusContent..".''")
end
table.insert(output,' '..secpage(section,page,pp)..' ')
ifyesno(notesortrue,true)then
localnotesContent=mw.ustring.match(dbContent,sectionMatch(rfc,'notes'))
table.insert(output,notesContent)
end
table.insert(output,' ')
ifnotisblank(quote)then
table.insert(output,frame:extensionTag('q',quote))
end
returntable.concat(output)
end
functionp._IETF(args,frame)
-- Implements {{IETF RFC}}
ifnotframethenframe=mw.getCurrentFrame()end
ifnotisblank(args[1])then
localcll=require('Module:Catalog lookup link')._main
localcllArgs={
['link-prefix']='https://www.rfc-editor.org/rfc/rfc',
['list-leadout']=args.leadoutor''
}
fori=1,9do
cllArgs[i]=tonumber(args[i])
end
ifyesno(args.plainlinkorfalse,false)==falseandyesno(args.linkortrue,true)==truethen
cllArgs['article-link']='RFC (identifier)'
end
ifyesno(args.plainlinkorfalse,false)==falsethen
cllArgs['article-name']='RFC'
end
returncll(cllArgs,frame)
else
localerrMsg='Parameter error in {{[[Template:IETF RFC|IETF RFC]]}}: Missing [[RFC (identifier)|RFC]].'
returnerr({message=errMsg,style='font-size:inherit',tag='span'})
end
end
functionp.IETF(frame)
returnp._IETF(getArgs(frame),frame)
end
functionp._ref(args,dbContent,frame)
--implements {{Ref RFC}}
ifnotframethenframe=mw.getCurrentFrame()end
localrfc=tonumber(args[1])
ifrfcthen
localdb='Template:Ref RFC/db/'..math.floor(rfc/100)
if(notdbContent)andrfcthen
dbContent=mw.title.new(db).content
end
ifdbContentthen
localrefContent=mw.ustring.match(dbContent,sectionMatch(rfc,'ref'))
ifrefContentthen
localoutput={}
ifyesno(args['repeat']orfalse,false)then
output[1]=frame:extensionTag('ref','',{name='rfc'..rfc})
else
output[1]=getref(rfc,args.section,args.p,args.pp,args.notes,args.quote,args.status,dbContent,frame)
ifyesno(args.refortrue,true)then
localrefname=''
ifisblank(args.p)andisblank(args.pp)andisblank(args.section)andisblank(args.quote)then
refname='rfc'..rfc
end
output[1]=frame:extensionTag('ref',output[1],{name=refname})
else
output[1]=frame:preprocess(output[1])
end
end
ifnotisblank(args.rp)then
table.insert(output,frame:expandTemplate{title='rp',args={page=args.rp}})
end
ifnotisblank(args.rpp)then
table.insert(output,frame:expandTemplate{title='rp',args={pages=args.rpp}})
end
ifnotisblank(args.rsection)then
table.insert(output,frame:expandTemplate{title='rp',args={at='§'..args.rsection}})
end
returntable.concat(output)
else
localerrMsg='REFERENCE FOR RFC'..rfc..' IS NOT DEFINED YET.'
returnerr({errMsg})..' You are invited to add it [['..db..'|here]].'
end
else
localerrMsg='REFERENCE FOR RFC'..rfc..' IS NOT DEFINED YET.'
returnerr({errMsg})..' You are invited to add it [[Template:Ref RFC/db|here]].'
end
else
localerrMsg='Parameter error in {{[[Template:Ref RFC|Ref RFC]]}}: Missing [[RFC (identifier)|RFC]].'
returnerr({message=errMsg,style='font-size:inherit',tag='span'})
end
end
functionp.ref(frame)
returnp._ref(getArgs(frame),nil,frame)
end
functionp._sum(args,frame)
--implements {{Sum RFC}}
ifnotframethenframe=mw.getCurrentFrame()end
ifnotisblank(args[1])then
localrfc=tonumber(args[1])
ifrfcthen
localdb='Template:Ref RFC/db/'..math.floor(rfc/100)
localdbContent=mw.title.new(db).content
ifdbContentthen
localtitleContent=mw.ustring.match(dbContent,sectionMatch(rfc,'title'))
iftitleContentthen
returnsummary(args,dbContent,frame)
else
localerrMsg='Reference for RFC'..rfc..' is not defined yet.'
returnerr({errMsg})..' You are invited to add it [['..db..'|here]].'
end
else
localerrMsg='Reference for RFC'..rfc..' is not defined yet.'
returnerr({errMsg})..' You are invited to add it [[Template:Ref RFC/db|here]].'
end
else
localerrMsg='Parameter error in {{[[Template:Sum RFC|Sum RFC]]}}: "'..args[1]..'" is not a number.'
returnerr({message=errMsg,style='font-size:inherit',tag='span'})
end
else
localerrMsg='Parameter error in {{[[Template:Sum RFC|Sum RFC]]}}: Missing [[RFC (identifier)|RFC]].'
returnerr({message=errMsg,style='font-size:inherit',tag='span'})
end
end
functionp.sum(frame)
returnp._sum(getArgs(frame),frame)
end
returnp