Perl extension to convert games::go::diagrams to ascii diagrams
use Games::Go::Dg2ASCII
my $dg2ascii = B<Games::Go::Dg2ASCII-E<gt>new> (options); my $ascii = $dg2ascii->convertDiagram($diagram);
A Games::Go::Dg2ASCII object converts a Games::Go::Diagram object into \s-1ASCII\s0 diagrams.
A new Games::Go::Dg2ASCII takes the following options:
Sets the size of the board. Default: 19
Numbers on stones are wrapped back to 1 after they reach 100. Numbers associated with comments and diagram titles are not affected. Default: false
Generates a coordinate grid. Default: false
The edges of the board that should be displayed. Any portion of the board that extends beyond these numbers is not included in the output. This callback defines a subroutine to convert coordinates from $x, $y to whatever coordinates are used in the Games::Go::Diagram object. The default diaCoords converts 1-based $x, $y to the same coordinates used in \s-1SGF\s0 format files. You only need to define this if you're using a different coordinate system in the Diagram. Default:
sub { my ($x, $y) = @_;
$x = chr($x - 1 + ord('a')); # convert 1 to 'a', etc
$y = chr($y - 1 + ord('a'));
return(\*(L"$x$y\*(R"); }, # concatenate two letters
If file is defined, the \s-1ASCII\s0 diagram is dumped into the target. The target can be any of:
The filename will be opened using IO::File->new. The filename should include the '>' or '>>' operator as described in 'perldoc IO::File'. The \s-1ASCII\s0 diagram is written into the file.
A file descriptor as returned by IO::File->new, or a \*FILE descriptor. The \s-1ASCII\s0 diagram is written into the file.
The \s-1ASCII\s0 diagram is concatenated to the end of the string.
The \s-1ASCII\s0 diagram is split on \*(L"\n\*(R" and each line is pushed onto the array.
Default: undef
A user defined subroutine to replace the default printing method. This callback is called from the print method (below) with the reference to the Dg2ASCII object and a list of lines that are part of the \s-1ASCII\s0 diagram lines. Change Dg2TeX options from values passed at new time. prints the input $text directly to file as defined at new time. Whether or not file was defined, print accumulates the $text for later retrieval with converted. Returns the entire \s-1ASCII\s0 diagram converted so far for the Dg2ASCII object. If $replacement is defined, the accumulated \s-1ASCII\s0 is replaced by $replacement. Inserts the comment character (which is nothing for \s-1ASCII\s0) in front of each line of each comment and prints it to file. Converts a Games::Go::Diagram into \s-1ASCII\s0. If file was defined in the new method, the \s-1ASCII\s0 is dumped into the file. In any case, the \s-1ASCII\s0 is returned as a string scalar. Converts $text into \s-1ASCII\s0 code - gee, that's not very hard. In fact, this method simply returns whatever is passed to it. This is really just a place-holder for more complicated converters. Returns the converted text. convertProperties takes a reference to a hash of properties as extracted from an \s-1SGF\s0 file. Each hash key is a property \s-1ID\s0 and the hash value is a reference to an array of property values: $hash->{propertyId}->[values]. The following \s-1SGF\s0 properties are recognized:
Both long and short property names are recognized, and all unrecognized properties are ignored with no warnings. Note that these properties are all intended as game-level notations.
prints any final text to the diagram (currently none) and closes the dg2ascii object. Also closes file if appropriate.
Script to convert \s-1SGF\s0 format files to Go diagrams
Seems unlikely.
Reid Augustin, <[email protected]>
Copyright (C) 2005 by Reid Augustin
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.