head

Spreadsheet::ODS - Work with Open Document (ODS) spreadsheets.


code

=begin code :lang<raku>

use Spreadsheet::ODS;

=end code



use Libarchive::Simple;
use LibXML::Document;
use LibXML::Element;

class Spreadsheet::ODS::TableCell {
    has LibXML::Element $.element;
    method content() {
        $!element.childNodes.grep(LibXML::Element).grep(*.name eq 'text:p').map: -> LibXML::Element $element {
            $element
        };
    }
}
class Spreadsheet::ODS::TableRow {
    has LibXML::Element $.element;
    has Spreadsheet::ODS::TableCell @.cells;
    submethod TWEAK() {
        @!cells = flat $!element.childNodes.grep(LibXML::Element).grep(*.name eq 'table:table-cell').map: -> LibXML::Element $element {
            Spreadsheet::ODS::TableCell.new(:$element) xx ($element.getAttribute('table:number-columns-repeated') // 1)
        };
    }
}
class Spreadsheet::ODS::Table {
    has LibXML::Element $.element;
    has @.columns;
    has Spreadsheet::ODS::TableRow @.rows;
    submethod TWEAK() {
        @!rows = $!element.childNodes.grep(LibXML::Element).grep(*.name eq 'table:table-row').map: -> LibXML::Element $element {
            Spreadsheet::ODS::TableRow.new: :$element
        };
    }
}
class Spreadsheet::ODS::Spreadsheet {
    has LibXML::Element $.element;
    has @.tables;
    submethod TWEAK() {
        @!tables = $!element.childNodes.grep(LibXML::Element).grep(*.name eq 'table:table').map: -> LibXML::Element $element {
            Spreadsheet::ODS::Table.new: :$element
        };
    }
}
class Spreadsheet::ODS::DocumentContent {
    has LibXML::Document $!doc;
    has Spreadsheet::ODS::Spreadsheet @.spreadsheets;
    method from-xml(Str $xml) {
        my LibXML::Document $doc .= parse(:string($xml));
        my LibXML::Element $document = $doc.documentElement;
        die $document.name unless $document.name eq 'office:document-content';

        my Spreadsheet::ODS::Spreadsheet @spreadsheets;
        with $document.childNodes.list.first(*.name eq 'office:body') -> LibXML::Element $body-node {
            @spreadsheets = $body-node.childNodes.grep(*.name eq 'office:spreadsheet').map: -> LibXML::Element $element {
                Spreadsheet::ODS::Spreadsheet.new: :$element
            }
        }

        self.new(:$doc, :@spreadsheets)
    }
}

class Spreadsheet::ODS {

    #| Map of files in the decompressed archive we read from, if any.
    has Hash $!archive;

    has Spreadsheet::ODS::DocumentContent $.content;

    #| Load an ODS workbook from the file path identified by the given string.
    multi method load(Str $file --> Spreadsheet::ODS) {
        self.load($file.IO)
    }

    #| Load an ODS workbook in the specified file.
    multi method load(IO::Path $file --> Spreadsheet::ODS) {
        self.load($file.slurp(:bin))
    }

    #| Load an ODS workbook from the specified blob. This is useful in
    #| the case it was sent over the network, and so never written to disk.
    multi method load(Blob $content --> Spreadsheet::ODS) {
        my %archive = do for archive-read($content, :format<zip>) {
            .pathname => .data if .is-file
        }
        self.new(:%archive)
    }

    submethod TWEAK(Hash :$!archive) {
        with $!archive {
            with $!archive<content.xml> -> Blob $content {
                $!content = Spreadsheet::ODS::DocumentContent.from-xml($content.decode("utf-8"));
            }
        }
    }
}



This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


ODS

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

Spreadsheet::ODS v0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation