Re: devel build.m. Was: cygwin-related problem ?

[Julien Bect]

Le 01/06/2016 17:22, Marco Atzeri a écrit :
>  23/05/2016 17:51, Julien Bect wrote:
>
> > > > 1) the problem arises only on pkg build but not on pkg install.
>
> I catched.
>
> For the cywgin binary I ported build.m from dev, and it has a
> bug that it arises only with your type of tar file.
>
> So it is not visible on other 4.0.2 but it should be visible from
> anyone with the development build.
>
> The changeset responsible is
> http://hg.savannah.gnu.org/hgweb/octave/rev/2ee20a290d61
>
> Carne expected that all tar files includes the directory entries,
> but your has not it, so the package root is wrongly defined
>
> octave:1> filelist=unpack("generate_html-0.1.11.tar.gz")
> filelist =
> {
>   [1,1] = generate_html.0.1.11/COPYING
>   [2,1] = generate_html.0.1.11/DESCRIPTION
>   [3,1] = generate_html.0.1.11/INDEX
>   [4,1] = generate_html.0.1.11/NEWS
>   [5,1] = generate_html.0.1.11/inst/generate_html_manual.m
>   [6,1] = generate_html.0.1.11/inst/generate_operators.m
>   [7,1] = generate_html.0.1.11/inst/generate_package_html.m
>   [8,1] = generate_html.0.1.11/inst/get_html_options.m
>   [9,1] = generate_html.0.1.11/inst/html_help_text.m
>   [10,1] = generate_html.0.1.11/inst/private/find_package.m
>   [11,1] = generate_html.0.1.11/inst/private/get_alpha_database.m
>   [12,1] = generate_html.0.1.11/inst/private/get_feature.m
>   [13,1] = 
> generate_html.0.1.11/inst/private/get_header_title_and_footer.m
>   [14,1] = generate_html.0.1.11/inst/private/get_root.m
>   [15,1] = generate_html.0.1.11/inst/private/get_texi_conf.m
>   [16,1] = generate_html.0.1.11/inst/private/get_txi_files.m
>   [17,1] = generate_html.0.1.11/inst/private/html_see_also_with_prefix.m
>   [18,1] = generate_html.0.1.11/inst/private/insert_char_entities.m
>   [19,1] = generate_html.0.1.11/inst/private/octave_forge_seealso.m
>   [20,1] = generate_html.0.1.11/inst/texi2html.m
>   [21,1] = generate_html.0.1.11/inst/txi2index.m
>   [22,1] = generate_html.0.1.11/inst/txi2reference.m
> }
>
> [~, root_idx] = min (cellfun ("numel", filelist))
> root_idx =  4
>
> package_root = filelist{root_idx}
> package_root = generate_html.0.1.11/NEWS
>
> any idea how to replace the   min (cellfun ("numel", filelist))  ?

Why not simply something like:

# assuming that there is only one file named DESCRIPTION, for simplicity
idx = find (cellfun (@(s) ~ isempty (regexp (s, "DESCRIPTION$")), filelist))
package_root = fileparts (filelist{idx});