javonet-ruby-sdk 2.1.1 → 2.1.2

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/PullParser.pm

@@ -1,210 +0,0 @@
-package HTML::PullParser;
-
-use strict;
-
-require HTML::Parser;
-our @ISA = qw(HTML::Parser);
-our $VERSION = '3.81';
-
-use Carp ();
-
-sub new
-{
-    my($class, %cnf) = @_;
-
-    # Construct argspecs for the various events
-    my %argspec;
-    for (qw(start end text declaration comment process default)) {
-	my $tmp = delete $cnf{$_};
-	next unless defined $tmp;
-	$argspec{$_} = $tmp;
-    }
-    Carp::croak("Info not collected for any events")
-	  unless %argspec;
-
-    my $file = delete $cnf{file};
-    my $doc  = delete $cnf{doc};
-    Carp::croak("Can't parse from both 'doc' and 'file' at the same time")
-	  if defined($file) && defined($doc);
-    Carp::croak("No 'doc' or 'file' given to parse from")
-	  unless defined($file) || defined($doc);
-
-    # Create object
-    $cnf{api_version} = 3;
-    my $self = $class->SUPER::new(%cnf);
-
-    my $accum = $self->{pullparser_accum} = [];
-    while (my($event, $argspec) = each %argspec) {
-	$self->SUPER::handler($event => $accum, $argspec);
-    }
-
-    if (defined $doc) {
-	$self->{pullparser_str_ref} = ref($doc) ? $doc : \$doc;
-	$self->{pullparser_str_pos} = 0;
-    }
-    else {
-	if (!ref($file) && ref(\$file) ne "GLOB") {
-	    require IO::File;
-	    $file = IO::File->new($file, "r") || return;
-	}
-
-	$self->{pullparser_file} = $file;
-    }
-    $self;
-}
-
-
-sub handler
-{
-    Carp::croak("Can't set handlers for HTML::PullParser");
-}
-
-
-sub get_token
-{
-    my $self = shift;
-    while (!@{$self->{pullparser_accum}} && !$self->{pullparser_eof}) {
-	if (my $f = $self->{pullparser_file}) {
-	    # must try to parse more from the file
-	    my $buf;
-	    if (read($f, $buf, 512)) {
-		$self->parse($buf);
-	    } else {
-		$self->eof;
-		$self->{pullparser_eof}++;
-		delete $self->{pullparser_file};
-	    }
-	}
-	elsif (my $sref = $self->{pullparser_str_ref}) {
-	    # must try to parse more from the scalar
-	    my $pos = $self->{pullparser_str_pos};
-	    my $chunk = substr($$sref, $pos, 512);
-	    $self->parse($chunk);
-	    $pos += length($chunk);
-	    if ($pos < length($$sref)) {
-		$self->{pullparser_str_pos} = $pos;
-	    }
-	    else {
-		$self->eof;
-		$self->{pullparser_eof}++;
-		delete $self->{pullparser_str_ref};
-		delete $self->{pullparser_str_pos};
-	    }
-	}
-	else {
-	    die;
-	}
-    }
-    shift @{$self->{pullparser_accum}};
-}
-
-
-sub unget_token
-{
-    my $self = shift;
-    unshift @{$self->{pullparser_accum}}, @_;
-    $self;
-}
-
-1;
-
-
-__END__
-
-=head1 NAME
-
-HTML::PullParser - Alternative HTML::Parser interface
-
-=head1 SYNOPSIS
-
- use HTML::PullParser;
-
- $p = HTML::PullParser->new(file => "index.html",
-                            start => 'event, tagname, @attr',
-                            end   => 'event, tagname',
-                            ignore_elements => [qw(script style)],
-                           ) || die "Can't open: $!";
- while (my $token = $p->get_token) {
-     #...do something with $token
- }
-
-=head1 DESCRIPTION
-
-The HTML::PullParser is an alternative interface to the HTML::Parser class.
-It basically turns the HTML::Parser inside out.  You associate a file
-(or any IO::Handle object or string) with the parser at construction time and
-then repeatedly call $parser->get_token to obtain the tags and text
-found in the parsed document.
-
-The following methods are provided:
-
-=over 4
-
-=item $p = HTML::PullParser->new( file => $file, %options )
-
-=item $p = HTML::PullParser->new( doc => \$doc, %options )
-
-A C<HTML::PullParser> can be made to parse from either a file or a
-literal document based on whether the C<file> or C<doc> option is
-passed to the parser's constructor.
-
-The C<file> passed in can either be a file name or a file handle
-object.  If a file name is passed, and it can't be opened for reading,
-then the constructor will return an undefined value and $!  will tell
-you why it failed.  Otherwise the argument is taken to be some object
-that the C<HTML::PullParser> can read() from when it needs more data.
-The stream will be read() until EOF, but not closed.
-
-A C<doc> can be passed plain or as a reference
-to a scalar.  If a reference is passed then the value of this scalar
-should not be changed before all tokens have been extracted.
-
-Next the information to be returned for the different token types must
-be set up.  This is done by simply associating an argspec (as defined
-in L<HTML::Parser>) with the events you have an interest in.  For
-instance, if you want C<start> tokens to be reported as the string
-C<'S'> followed by the tagname and the attributes you might pass an
-C<start>-option like this:
-
-   $p = HTML::PullParser->new(
-          doc   => $document_to_parse,
-          start => '"S", tagname, @attr',
-          end   => '"E", tagname',
-        );
-
-At last other C<HTML::Parser> options, like C<ignore_tags>, and
-C<unbroken_text>, can be passed in.  Note that you should not use the
-I<event>_h options to set up parser handlers.  That would confuse the
-inner logic of C<HTML::PullParser>.
-
-=item $token = $p->get_token
-
-This method will return the next I<token> found in the HTML document,
-or C<undef> at the end of the document.  The token is returned as an
-array reference.  The content of this array match the argspec set up
-during C<HTML::PullParser> construction.
-
-=item $p->unget_token( @tokens )
-
-If you find out you have read too many tokens you can push them back,
-so that they are returned again the next time $p->get_token is called.
-
-=back
-
-=head1 EXAMPLES
-
-The 'eg/hform' script shows how we might parse the form section of
-HTML::Documents using HTML::PullParser.
-
-=head1 SEE ALSO
-
-L<HTML::Parser>, L<HTML::TokeParser>
-
-=head1 COPYRIGHT
-
-Copyright 1998-2001 Gisle Aas.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/HTML/TokeParser.pm

@@ -1,372 +0,0 @@
-package HTML::TokeParser;
-
-use strict;
-
-require HTML::PullParser;
-our @ISA = qw(HTML::PullParser);
-our $VERSION = '3.81';
-
-use Carp ();
-use HTML::Entities qw(decode_entities);
-use HTML::Tagset ();
-
-my %ARGS =
-(
- start       => "'S',tagname,attr,attrseq,text",
- end         => "'E',tagname,text",
- text        => "'T',text,is_cdata",
- process     => "'PI',token0,text",
- comment     => "'C',text",
- declaration => "'D',text",
-
- # options that default on
- unbroken_text => 1,
-);
-
-
-sub new
-{
-    my $class = shift;
-    my %cnf;
-
-    if (@_ == 1) {
-	my $type = (ref($_[0]) eq "SCALAR") ? "doc" : "file";
-	%cnf = ($type => $_[0]);
-    }
-    else {
-	unshift @_, (ref($_[0]) eq "SCALAR") ? "doc" : "file" if(scalar(@_) % 2 == 1);
-	%cnf = @_;
-    }
-
-    my $textify = delete $cnf{textify} || {img => "alt", applet => "alt"};
-
-    my $self = $class->SUPER::new(%ARGS, %cnf) || return undef;
-
-    $self->{textify} = $textify;
-    $self;
-}
-
-
-sub get_tag
-{
-    my $self = shift;
-    my $token;
-    while (1) {
-	$token = $self->get_token || return undef;
-	my $type = shift @$token;
-	next unless $type eq "S" || $type eq "E";
-	substr($token->[0], 0, 0) = "/" if $type eq "E";
-	return $token unless @_;
-	for (@_) {
-	    return $token if $token->[0] eq $_;
-	}
-    }
-}
-
-
-sub _textify {
-    my($self, $token) = @_;
-    my $tag = $token->[1];
-    return undef unless exists $self->{textify}{$tag};
-
-    my $alt = $self->{textify}{$tag};
-    my $text;
-    if (ref($alt)) {
-	$text = &$alt(@$token);
-    } else {
-	$text = $token->[2]{$alt || "alt"};
-	$text = "[\U$tag]" unless defined $text;
-    }
-    return $text;
-}
-
-
-sub get_text
-{
-    my $self = shift;
-    my @text;
-    while (my $token = $self->get_token) {
-	my $type = $token->[0];
-	if ($type eq "T") {
-	    my $text = $token->[1];
-	    decode_entities($text) unless $token->[2];
-	    push(@text, $text);
-	} elsif ($type =~ /^[SE]$/) {
-	    my $tag = $token->[1];
-	    if ($type eq "S") {
-		if (defined(my $text = _textify($self, $token))) {
-		    push(@text, $text);
-		    next;
-		}
-	    } else {
-		$tag = "/$tag";
-	    }
-	    if (!@_ || grep $_ eq $tag, @_) {
-		 $self->unget_token($token);
-		 last;
-	    }
-	    push(@text, " ")
-		if $tag eq "br" || !$HTML::Tagset::isPhraseMarkup{$token->[1]};
-	}
-    }
-    join("", @text);
-}
-
-
-sub get_trimmed_text
-{
-    my $self = shift;
-    my $text = $self->get_text(@_);
-    $text =~ s/^\s+//; $text =~ s/\s+$//; $text =~ s/\s+/ /g;
-    $text;
-}
-
-sub get_phrase {
-    my $self = shift;
-    my @text;
-    while (my $token = $self->get_token) {
-	my $type = $token->[0];
-	if ($type eq "T") {
-	    my $text = $token->[1];
-	    decode_entities($text) unless $token->[2];
-	    push(@text, $text);
-	} elsif ($type =~ /^[SE]$/) {
-	    my $tag = $token->[1];
-	    if ($type eq "S") {
-		if (defined(my $text = _textify($self, $token))) {
-		    push(@text, $text);
-		    next;
-		}
-	    }
-	    if (!$HTML::Tagset::isPhraseMarkup{$tag}) {
-		$self->unget_token($token);
-		last;
-	    }
-	    push(@text, " ") if $tag eq "br";
-	}
-    }
-    my $text = join("", @text);
-    $text =~ s/^\s+//; $text =~ s/\s+$//; $text =~ s/\s+/ /g;
-    $text;
-}
-
-1;
-
-
-__END__
-
-=head1 NAME
-
-HTML::TokeParser - Alternative HTML::Parser interface
-
-=head1 SYNOPSIS
-
- require HTML::TokeParser;
- $p = HTML::TokeParser->new("index.html") ||
-      die "Can't open: $!";
- $p->empty_element_tags(1);  # configure its behaviour
-
- while (my $token = $p->get_token) {
-     #...
- }
-
-=head1 DESCRIPTION
-
-The C<HTML::TokeParser> is an alternative interface to the
-C<HTML::Parser> class.  It is an C<HTML::PullParser> subclass with a
-predeclared set of token types.  If you wish the tokens to be reported
-differently you probably want to use the C<HTML::PullParser> directly.
-
-The following methods are available:
-
-=over 4
-
-=item $p = HTML::TokeParser->new( $filename, %opt );
-
-=item $p = HTML::TokeParser->new( $filehandle, %opt );
-
-=item $p = HTML::TokeParser->new( \$document, %opt );
-
-The object constructor argument is either a file name, a file handle
-object, or the complete document to be parsed.  Extra options can be
-provided as key/value pairs and are processed as documented by the base
-classes.
-
-If the argument is a plain scalar, then it is taken as the name of a
-file to be opened and parsed.  If the file can't be opened for
-reading, then the constructor will return C<undef> and $! will tell
-you why it failed.
-
-If the argument is a reference to a plain scalar, then this scalar is
-taken to be the literal document to parse.  The value of this
-scalar should not be changed before all tokens have been extracted.
-
-Otherwise the argument is taken to be some object that the
-C<HTML::TokeParser> can read() from when it needs more data.  Typically
-it will be a filehandle of some kind.  The stream will be read() until
-EOF, but not closed.
-
-A newly constructed C<HTML::TokeParser> differ from its base classes
-by having the C<unbroken_text> attribute enabled by default. See
-L<HTML::Parser> for a description of this and other attributes that
-influence how the document is parsed. It is often a good idea to enable
-C<empty_element_tags> behaviour.
-
-Note that the parsing result will likely not be valid if raw undecoded
-UTF-8 is used as a source.  When parsing UTF-8 encoded files turn
-on UTF-8 decoding:
-
-   open(my $fh, "<:utf8", "index.html") || die "Can't open 'index.html': $!";
-   my $p = HTML::TokeParser->new( $fh );
-   # ...
-
-If a $filename is passed to the constructor the file will be opened in
-raw mode and the parsing result will only be valid if its content is
-Latin-1 or pure ASCII.
-
-If parsing from an UTF-8 encoded string buffer decode it first:
-
-   utf8::decode($document);
-   my $p = HTML::TokeParser->new( \$document );
-   # ...
-
-=item $p->get_token
-
-This method will return the next I<token> found in the HTML document,
-or C<undef> at the end of the document.  The token is returned as an
-array reference.  The first element of the array will be a string
-denoting the type of this token: "S" for start tag, "E" for end tag,
-"T" for text, "C" for comment, "D" for declaration, and "PI" for
-process instructions.  The rest of the token array depend on the type
-like this:
-
-  ["S",  $tag, $attr, $attrseq, $text]
-  ["E",  $tag, $text]
-  ["T",  $text, $is_data]
-  ["C",  $text]
-  ["D",  $text]
-  ["PI", $token0, $text]
-
-where $attr is a hash reference, $attrseq is an array reference and
-the rest are plain scalars.  The L<HTML::Parser/Argspec> explains the
-details.
-
-=item $p->unget_token( @tokens )
-
-If you find you have read too many tokens you can push them back,
-so that they are returned the next time $p->get_token is called.
-
-=item $p->get_tag
-
-=item $p->get_tag( @tags )
-
-This method returns the next start or end tag (skipping any other
-tokens), or C<undef> if there are no more tags in the document.  If
-one or more arguments are given, then we skip tokens until one of the
-specified tag types is found.  For example:
-
-   $p->get_tag("font", "/font");
-
-will find the next start or end tag for a font-element.
-
-The tag information is returned as an array reference in the same form
-as for $p->get_token above, but the type code (first element) is
-missing. A start tag will be returned like this:
-
-  [$tag, $attr, $attrseq, $text]
-
-The tagname of end tags are prefixed with "/", i.e. end tag is
-returned like this:
-
-  ["/$tag", $text]
-
-=item $p->get_text
-
-=item $p->get_text( @endtags )
-
-This method returns all text found at the current position. It will
-return a zero length string if the next token is not text. Any
-entities will be converted to their corresponding character.
-
-If one or more arguments are given, then we return all text occurring
-before the first of the specified tags found. For example:
-
-   $p->get_text("p", "br");
-
-will return the text up to either a paragraph of line break element.
-
-The text might span tags that should be I<textified>.  This is
-controlled by the $p->{textify} attribute, which is a hash that
-defines how certain tags can be treated as text.  If the name of a
-start tag matches a key in this hash then this tag is converted to
-text.  The hash value is used to specify which tag attribute to obtain
-the text from.  If this tag attribute is missing, then the upper case
-name of the tag enclosed in brackets is returned, e.g. "[IMG]".  The
-hash value can also be a subroutine reference.  In this case the
-routine is called with the start tag token content as its argument and
-the return value is treated as the text.
-
-The default $p->{textify} value is:
-
-  {img => "alt", applet => "alt"}
-
-This means that <IMG> and <APPLET> tags are treated as text, and that
-the text to substitute can be found in the ALT attribute.
-
-=item $p->get_trimmed_text
-
-=item $p->get_trimmed_text( @endtags )
-
-Same as $p->get_text above, but will collapse any sequences of white
-space to a single space character.  Leading and trailing white space is
-removed.
-
-=item $p->get_phrase
-
-This will return all text found at the current position ignoring any
-phrasal-level tags.  Text is extracted until the first non
-phrasal-level tag.  Textification of tags is the same as for
-get_text().  This method will collapse white space in the same way as
-get_trimmed_text() does.
-
-The definition of <i>phrasal-level tags</i> is obtained from the
-HTML::Tagset module.
-
-=back
-
-=head1 EXAMPLES
-
-This example extracts all links from a document.  It will print one
-line for each link, containing the URL and the textual description
-between the <A>...</A> tags:
-
-  use HTML::TokeParser;
-  $p = HTML::TokeParser->new(shift||"index.html");
-
-  while (my $token = $p->get_tag("a")) {
-      my $url = $token->[1]{href} || "-";
-      my $text = $p->get_trimmed_text("/a");
-      print "$url\t$text\n";
-  }
-
-This example extract the <TITLE> from the document:
-
-  use HTML::TokeParser;
-  $p = HTML::TokeParser->new(shift||"index.html");
-  if ($p->get_tag("title")) {
-      my $title = $p->get_trimmed_text;
-      print "Title: $title\n";
-  }
-
-=head1 SEE ALSO
-
-L<HTML::PullParser>, L<HTML::Parser>
-
-=head1 COPYRIGHT
-
-Copyright 1998-2005 Gisle Aas.
-
-This library is free software; you can redistribute it and/or
-modify it under the same terms as Perl itself.
-
-=cut

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/auto/Alien/FFI/FFI.txt

@@ -1 +0,0 @@
-Alien based distribution with architecture specific file in share

data/lib/javonet-ruby-sdk/Binaries/Perl/MacOs/X64/deps/lib/perl5/darwin-thread-multi-2level/auto/share/dist/Alien-FFI/_alien/alien.json

@@ -1,18 +0,0 @@
-{
-   "alien_build_version" : "2.78",
-   "cflags" : "-I/Library/Developer/CommandLineTools/SDKs/MacOSX11.sdk/usr/include/ffi ",
-   "cflags_static" : "-I/Library/Developer/CommandLineTools/SDKs/MacOSX11.sdk/usr/include/ffi ",
-   "install_type" : "system",
-   "legacy" : {
-      "finished_installing" : 1,
-      "install_type" : "system",
-      "name" : "libffi",
-      "original_prefix" : "/Users/runner/work/1/s/src/perl/deps/lib/perl5/darwin-thread-multi-2level/auto/share/dist/Alien-FFI",
-      "version" : "3.3-rc0"
-   },
-   "libs" : "-lffi ",
-   "libs_static" : "-lffi ",
-   "perl_module_version" : "0.27",
-   "prefix" : "/Users/runner/work/1/s/src/perl/deps/lib/perl5/darwin-thread-multi-2level/auto/share/dist/Alien-FFI",
-   "version" : "3.3-rc0"
-}