[devscripts] 01/01: licensecheck: also extract info from end of file
Nicholas Bamber
nicholas at periapt.co.uk
Sat Dec 5 19:47:19 UTC 2015
Dominique,
This is breaking the licensecheck_SL test I think because you are
getting a false positive from line. I wonder if it would be better to
test the head and tail separately - accepting the tail only if nothing
is found in the head.
Could also be becasue the SL data is different from what is expected.
I'll have a look at that.
On 05/12/15 18:42, dod at debian.org wrote:
> This is an automated email from the git hooks/post-receive script.
>
> dod pushed a commit to branch master
> in repository devscripts.
>
> commit 2eb741693dc3e701687160d721b8c1549b70f8e8
> Author: Dominique Dumont <dod at debian.org>
> Date: Sat Dec 5 19:29:45 2015 +0100
>
> licensecheck: also extract info from end of file
>
> Be default, the last 5k bytes of a file is parsed to get
> copyright and license information.
> (also required or #806424)
> ---
> debian/changelog | 1 +
> scripts/licensecheck.pl | 24 ++-
> test/licensecheck/info-at-eof.h | 388 ++++++++++++++++++++++++++++++++++++++++
> test/test_licensecheck | 5 +
> 4 files changed, 413 insertions(+), 5 deletions(-)
>
> diff --git a/debian/changelog b/debian/changelog
> index 1bb7e60..157ada9 100644
> --- a/debian/changelog
> +++ b/debian/changelog
> @@ -48,6 +48,7 @@ devscripts (2.15.10) UNRELEASED; urgency=medium
> + parse multi-line copyright blocks (Closes: #519080)
> + parse .lisp file (part of #806424)
> + added LLGPL license (part of #806424)
> + + also parse last 5kb of a file
>
> [ Osamu Aoki ]
> * uscan:
> diff --git a/scripts/licensecheck.pl b/scripts/licensecheck.pl
> index 3a936b7..3ba7ebd 100755
> --- a/scripts/licensecheck.pl
> +++ b/scripts/licensecheck.pl
> @@ -151,6 +151,9 @@ use warnings qw< FATAL utf8 >;
>
> use Getopt::Long qw(:config gnu_getopt);
> use File::Basename;
> +use File::stat;
> +use IO::File;
> +use Fcntl qw/:seek/;
>
> binmode STDOUT, ':utf8';
>
> @@ -334,16 +337,27 @@ while (@files) {
> my $copyright = '';
> my $license = '';
>
> + my $st = stat $file;
> +
> my $enc = $OPT{encoding} ;
> my $mode = $enc ? "<:encoding($enc)" : '<';
> # need to use "<" when encoding is unknown otherwise we break compatibility
> - open (my $F, $mode ,$file) or die "Unable to access $file\n";
> + my $fh = IO::File->new ($file ,$mode) or die "Unable to access $file\n";
> +
> + while ( my $line = $fh->getline ) {
> + last if ($fh->input_line_number > $OPT{'lines'});
> + $content .= $line;
> + }
> + my $position = $fh->tell; # See IO::Seekable
> +
> + my $jump = $st->size - 4800; # yeah, that's 60 x 80 chars
> + $jump = $position if $jump < $position;
>
> - while ( <$F>) {
> - last if ($. > $OPT{'lines'});
> - $content .= $_;
> + if ( $jump < $st->size) {
> + $fh->seek($jump, SEEK_SET) ; # also IO::Seekable
> + $content .= join('',$fh->getlines);
> }
> - close($F);
> + $fh->close;
>
> my %copyrights = extract_copyright($content);
> $copyright = join(" / ", reverse sort values %copyrights);
> diff --git a/test/licensecheck/info-at-eof.h b/test/licensecheck/info-at-eof.h
> new file mode 100644
> index 0000000..f651a79
> --- /dev/null
> +++ b/test/licensecheck/info-at-eof.h
> @@ -0,0 +1,388 @@
> +/*
> +** $Id: lua.h,v 1.218.1.7 2012/01/13 20:36:20 roberto Exp $
> +** Lua - An Extensible Extension Language
> +** Lua.org, PUC-Rio, Brazil (http://www.lua.org)
> +** See Copyright Notice at the end of this file
> +*/
> +
> +
> +#ifndef lua_h
> +#define lua_h
> +
> +#include <stdarg.h>
> +#include <stddef.h>
> +
> +
> +#include "luaconf.h"
> +
> +
> +#define LUA_VERSION "Lua 5.1"
> +#define LUA_RELEASE "Lua 5.1.5"
> +#define LUA_VERSION_NUM 501
> +#define LUA_COPYRIGHT "Copyright (C) 1994-2012 Lua.org, PUC-Rio"
> +#define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
> +
> +
> +/* mark for precompiled code (`<esc>Lua') */
> +#define LUA_SIGNATURE "\033Lua"
> +
> +/* option for multiple returns in `lua_pcall' and `lua_call' */
> +#define LUA_MULTRET (-1)
> +
> +
> +/*
> +** pseudo-indices
> +*/
> +#define LUA_REGISTRYINDEX (-10000)
> +#define LUA_ENVIRONINDEX (-10001)
> +#define LUA_GLOBALSINDEX (-10002)
> +#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i))
> +
> +
> +/* thread status; 0 is OK */
> +#define LUA_YIELD 1
> +#define LUA_ERRRUN 2
> +#define LUA_ERRSYNTAX 3
> +#define LUA_ERRMEM 4
> +#define LUA_ERRERR 5
> +
> +
> +typedef struct lua_State lua_State;
> +
> +typedef int (*lua_CFunction) (lua_State *L);
> +
> +
> +/*
> +** functions that read/write blocks when loading/dumping Lua chunks
> +*/
> +typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz);
> +
> +typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud);
> +
> +
> +/*
> +** prototype for memory-allocation functions
> +*/
> +typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize);
> +
> +
> +/*
> +** basic types
> +*/
> +#define LUA_TNONE (-1)
> +
> +#define LUA_TNIL 0
> +#define LUA_TBOOLEAN 1
> +#define LUA_TLIGHTUSERDATA 2
> +#define LUA_TNUMBER 3
> +#define LUA_TSTRING 4
> +#define LUA_TTABLE 5
> +#define LUA_TFUNCTION 6
> +#define LUA_TUSERDATA 7
> +#define LUA_TTHREAD 8
> +
> +
> +
> +/* minimum Lua stack available to a C function */
> +#define LUA_MINSTACK 20
> +
> +
> +/*
> +** generic extra include file
> +*/
> +#if defined(LUA_USER_H)
> +#include LUA_USER_H
> +#endif
> +
> +
> +/* type of numbers in Lua */
> +typedef LUA_NUMBER lua_Number;
> +
> +
> +/* type for integer functions */
> +typedef LUA_INTEGER lua_Integer;
> +
> +
> +
> +/*
> +** state manipulation
> +*/
> +LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud);
> +LUA_API void (lua_close) (lua_State *L);
> +LUA_API lua_State *(lua_newthread) (lua_State *L);
> +
> +LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
> +
> +
> +/*
> +** basic stack manipulation
> +*/
> +LUA_API int (lua_gettop) (lua_State *L);
> +LUA_API void (lua_settop) (lua_State *L, int idx);
> +LUA_API void (lua_pushvalue) (lua_State *L, int idx);
> +LUA_API void (lua_remove) (lua_State *L, int idx);
> +LUA_API void (lua_insert) (lua_State *L, int idx);
> +LUA_API void (lua_replace) (lua_State *L, int idx);
> +LUA_API int (lua_checkstack) (lua_State *L, int sz);
> +
> +LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n);
> +
> +
> +/*
> +** access functions (stack -> C)
> +*/
> +
> +LUA_API int (lua_isnumber) (lua_State *L, int idx);
> +LUA_API int (lua_isstring) (lua_State *L, int idx);
> +LUA_API int (lua_iscfunction) (lua_State *L, int idx);
> +LUA_API int (lua_isuserdata) (lua_State *L, int idx);
> +LUA_API int (lua_type) (lua_State *L, int idx);
> +LUA_API const char *(lua_typename) (lua_State *L, int tp);
> +
> +LUA_API int (lua_equal) (lua_State *L, int idx1, int idx2);
> +LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2);
> +LUA_API int (lua_lessthan) (lua_State *L, int idx1, int idx2);
> +
> +LUA_API lua_Number (lua_tonumber) (lua_State *L, int idx);
> +LUA_API lua_Integer (lua_tointeger) (lua_State *L, int idx);
> +LUA_API int (lua_toboolean) (lua_State *L, int idx);
> +LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len);
> +LUA_API size_t (lua_objlen) (lua_State *L, int idx);
> +LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx);
> +LUA_API void *(lua_touserdata) (lua_State *L, int idx);
> +LUA_API lua_State *(lua_tothread) (lua_State *L, int idx);
> +LUA_API const void *(lua_topointer) (lua_State *L, int idx);
> +
> +
> +/*
> +** push functions (C -> stack)
> +*/
> +LUA_API void (lua_pushnil) (lua_State *L);
> +LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n);
> +LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n);
> +LUA_API void (lua_pushlstring) (lua_State *L, const char *s, size_t l);
> +LUA_API void (lua_pushstring) (lua_State *L, const char *s);
> +LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt,
> + va_list argp);
> +LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...);
> +LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
> +LUA_API void (lua_pushboolean) (lua_State *L, int b);
> +LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p);
> +LUA_API int (lua_pushthread) (lua_State *L);
> +
> +
> +/*
> +** get functions (Lua -> stack)
> +*/
> +LUA_API void (lua_gettable) (lua_State *L, int idx);
> +LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k);
> +LUA_API void (lua_rawget) (lua_State *L, int idx);
> +LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n);
> +LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec);
> +LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz);
> +LUA_API int (lua_getmetatable) (lua_State *L, int objindex);
> +LUA_API void (lua_getfenv) (lua_State *L, int idx);
> +
> +
> +/*
> +** set functions (stack -> Lua)
> +*/
> +LUA_API void (lua_settable) (lua_State *L, int idx);
> +LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k);
> +LUA_API void (lua_rawset) (lua_State *L, int idx);
> +LUA_API void (lua_rawseti) (lua_State *L, int idx, int n);
> +LUA_API int (lua_setmetatable) (lua_State *L, int objindex);
> +LUA_API int (lua_setfenv) (lua_State *L, int idx);
> +
> +
> +/*
> +** `load' and `call' functions (load and run Lua code)
> +*/
> +LUA_API void (lua_call) (lua_State *L, int nargs, int nresults);
> +LUA_API int (lua_pcall) (lua_State *L, int nargs, int nresults, int errfunc);
> +LUA_API int (lua_cpcall) (lua_State *L, lua_CFunction func, void *ud);
> +LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt,
> + const char *chunkname);
> +
> +LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data);
> +
> +
> +/*
> +** coroutine functions
> +*/
> +LUA_API int (lua_yield) (lua_State *L, int nresults);
> +LUA_API int (lua_resume) (lua_State *L, int narg);
> +LUA_API int (lua_status) (lua_State *L);
> +
> +/*
> +** garbage-collection function and options
> +*/
> +
> +#define LUA_GCSTOP 0
> +#define LUA_GCRESTART 1
> +#define LUA_GCCOLLECT 2
> +#define LUA_GCCOUNT 3
> +#define LUA_GCCOUNTB 4
> +#define LUA_GCSTEP 5
> +#define LUA_GCSETPAUSE 6
> +#define LUA_GCSETSTEPMUL 7
> +
> +LUA_API int (lua_gc) (lua_State *L, int what, int data);
> +
> +
> +/*
> +** miscellaneous functions
> +*/
> +
> +LUA_API int (lua_error) (lua_State *L);
> +
> +LUA_API int (lua_next) (lua_State *L, int idx);
> +
> +LUA_API void (lua_concat) (lua_State *L, int n);
> +
> +LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud);
> +LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);
> +
> +
> +
> +/*
> +** ===============================================================
> +** some useful macros
> +** ===============================================================
> +*/
> +
> +#define lua_pop(L,n) lua_settop(L, -(n)-1)
> +
> +#define lua_newtable(L) lua_createtable(L, 0, 0)
> +
> +#define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
> +
> +#define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0)
> +
> +#define lua_strlen(L,i) lua_objlen(L, (i))
> +
> +#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION)
> +#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE)
> +#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
> +#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL)
> +#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN)
> +#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD)
> +#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE)
> +#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0)
> +
> +#define lua_pushliteral(L, s) \
> + lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
> +
> +#define lua_setglobal(L,s) lua_setfield(L, LUA_GLOBALSINDEX, (s))
> +#define lua_getglobal(L,s) lua_getfield(L, LUA_GLOBALSINDEX, (s))
> +
> +#define lua_tostring(L,i) lua_tolstring(L, (i), NULL)
> +
> +
> +
> +/*
> +** compatibility macros and functions
> +*/
> +
> +#define lua_open() luaL_newstate()
> +
> +#define lua_getregistry(L) lua_pushvalue(L, LUA_REGISTRYINDEX)
> +
> +#define lua_getgccount(L) lua_gc(L, LUA_GCCOUNT, 0)
> +
> +#define lua_Chunkreader lua_Reader
> +#define lua_Chunkwriter lua_Writer
> +
> +
> +/* hack */
> +LUA_API void lua_setlevel (lua_State *from, lua_State *to);
> +
> +
> +/*
> +** {======================================================================
> +** Debug API
> +** =======================================================================
> +*/
> +
> +
> +/*
> +** Event codes
> +*/
> +#define LUA_HOOKCALL 0
> +#define LUA_HOOKRET 1
> +#define LUA_HOOKLINE 2
> +#define LUA_HOOKCOUNT 3
> +#define LUA_HOOKTAILRET 4
> +
> +
> +/*
> +** Event masks
> +*/
> +#define LUA_MASKCALL (1 << LUA_HOOKCALL)
> +#define LUA_MASKRET (1 << LUA_HOOKRET)
> +#define LUA_MASKLINE (1 << LUA_HOOKLINE)
> +#define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT)
> +
> +typedef struct lua_Debug lua_Debug; /* activation record */
> +
> +
> +/* Functions to be called by the debuger in specific events */
> +typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);
> +
> +
> +LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar);
> +LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);
> +LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n);
> +LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n);
> +LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n);
> +LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n);
> +
> +LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count);
> +LUA_API lua_Hook lua_gethook (lua_State *L);
> +LUA_API int lua_gethookmask (lua_State *L);
> +LUA_API int lua_gethookcount (lua_State *L);
> +
> +
> +struct lua_Debug {
> + int event;
> + const char *name; /* (n) */
> + const char *namewhat; /* (n) `global', `local', `field', `method' */
> + const char *what; /* (S) `Lua', `C', `main', `tail' */
> + const char *source; /* (S) */
> + int currentline; /* (l) */
> + int nups; /* (u) number of upvalues */
> + int linedefined; /* (S) */
> + int lastlinedefined; /* (S) */
> + char short_src[LUA_IDSIZE]; /* (S) */
> + /* private part */
> + int i_ci; /* active function */
> +};
> +
> +/* }====================================================================== */
> +
> +
> +/******************************************************************************
> +* Copyright (C) 1994-2012 Lua.org, PUC-Rio. All rights reserved.
> +*
> +* Permission is hereby granted, free of charge, to any person obtaining
> +* a copy of this software and associated documentation files (the
> +* "Software"), to deal in the Software without restriction, including
> +* without limitation the rights to use, copy, modify, merge, publish,
> +* distribute, sublicense, and/or sell copies of the Software, and to
> +* permit persons to whom the Software is furnished to do so, subject to
> +* the following conditions:
> +*
> +* The above copyright notice and this permission notice shall be
> +* included in all copies or substantial portions of the Software.
> +*
> +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
> +* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
> +* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
> +* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
> +* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
> +* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
> +* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
> +******************************************************************************/
> +
> +
> +#endif
> diff --git a/test/test_licensecheck b/test/test_licensecheck
> index ecea50f..74583ca 100755
> --- a/test/test_licensecheck
> +++ b/test/test_licensecheck
> @@ -150,4 +150,9 @@ testEncoding () {
> license2 "-m --copyright --encoding iso-8859-1" "copr-iso8859.h" "GPL (v2) (with incorrect FSF address) 2011 Heinrich Müller <henmull at src.gnome.org>"
> license2 "-m --copyright --encoding utf8" "copr-utf8.h" "GPL (v2 or later) 2004-2015 Oliva 'f00' Oberto / 2001-2010 Paul 'bar' Stevénsön"
> }
> +
> +testInfoAtEnd () {
> + license2 "-m --copyright" "info-at-eof.h" "MIT/X11 (BSD like) 1994-2012 Lua.org, PUC-Rio. All rights reserved"
> +}
> +
> . shunit2
>
More information about the devscripts-devel
mailing list