FIXED: asciio_to_text opens projects

Author: nkh

documentation/mdbook_asciio/src/UI/CLI.md

@@ -6,7 +6,7 @@
 
 ## asciio_to_text
 
-Converts an existing '.asciio' file to ASCII and display it in the terminal
+Converts an existing '.asciio' file/project to ASCII and display it in the terminal
 
 ## text_to_asciio
 

lib/App/Asciio/GTK/Asciio/TabManager.pm

@@ -872,7 +872,6 @@ if($tar)
 		}
 	else
 		{
-		print "loaded tar\n" ;
 		for my $document_name ($asciio_project->{documents}->@*) 
 			{
 			my ($config, $asciio) = $self->create_tab({serialized => $tar->get_content($document_name)}) ;

lib/App/Asciio/Io.pm

@@ -149,7 +149,7 @@ Readonly my  @ELEMENTS_TO_KEEP_AWAY_FROM_CURRENT_OBJECT =>
 
 sub load_serialized_self 
 {
-my ($self, $serialized_self)  = @_;
+my ($self, $serialized_self) = @_;
 
 return unless defined $serialized_self ;
 

script/asciio

@@ -11,7 +11,6 @@ use App::Asciio::GTK::Asciio::TabManager ;
 my $window = Gtk3::Window->new('toplevel') ;
 $window->set_title('Asciio') ;
 $window->set_default_size(600, 400) ;
-
 my $tab_manager =  App::Asciio::GTK::Asciio::TabManager->new() ;
 
 $window->add($tab_manager->get_widget()) ;

script/asciio_to_text

@@ -4,11 +4,109 @@ use strict;
 use warnings;
 use utf8 ;
 
-use App::Asciio ;
-
 use Module::Util qw(find_installed) ;
 use File::Basename ;
+use Archive::Tar ;
+
+use open qw( :std :encoding(UTF-8) ) ;
+binmode(STDOUT) ;
+binmode(STDIN) ;
+
+use App::Asciio ;
+my $ASCIIO_MIME_TYPE = "application/x-asciio" ;
+
+# ------------------------------------------------------------------------------ 
+
+asciio_to_text() ;
+
+# ------------------------------------------------------------------------------ 
+
+sub asciio_to_text
+{
+my ($asciio_config, $asciio) = get_asciio() ;
+
+if (-p STDIN || -f STDIN) 
+	{
+	print STDERR "document_name: reading from STDIN\n" ;
+	
+	undef $/ ;
+	$asciio->load_self($asciio->get_decompressed_asciio(<STDIN>)) ;
+	
+	print $asciio->transform_elements_to_ascii_buffer() ;
+	}
+else
+	{
+	for my $project_name ($asciio_config->{TARGETS}->@*)
+		{
+		process_file($asciio, $project_name) ;
+		}
+	
+	# if(defined $asciio_config->{SCRIPT})
+	# 	{
+	# 	require App::Asciio::Scripting ;
+			
+	# 	App::Asciio::Scripting::run_external_script($asciio, $asciio_config->{SCRIPT}) ;
+	# 	}
+	}
+
+}
+
+# ------------------------------------------------------------------------------ 
+
+sub process_file
+{
+my ($asciio, $project_name) = @_ ;
+
+# save original settings. You could also use lexical typeglobs.
+*OLD_STDOUT = *STDOUT;
+*OLD_STDERR = *STDERR;
 
+# reassign STDOUT, STDERR
+open my $log_fh, '>>', 'asciio_io.log' ;
+*STDOUT = $log_fh;
+*STDERR = $log_fh;
+
+my $tar = Archive::Tar->new($project_name) ; 
+
+# restore STDOUT/STDERR
+*STDOUT = *OLD_STDOUT;
+*STDERR = *OLD_STDERR;
+
+if($tar)
+	{
+	my %documents = map { $_ => 1 } grep { $_ ne 'asciio_project' } $tar->list_files ;
+	
+	my $serialized_asciio_project = $tar->get_content('asciio_project') ;
+	my $asciio_project            = eval { Sereal::Decoder->new->decode($serialized_asciio_project) } ;
+	
+	if ($@)
+		{
+		print STDERR "Error: deserializing '$project_name': $@" 
+		}
+	else
+		{
+		for my $document_name ($asciio_project->{documents}->@*) 
+			{
+			$asciio->load_serialized_self($tar->get_content($document_name)) ;
+			print STDERR "document_name: $document_name\n" ;
+			print $asciio->transform_elements_to_ascii_buffer() ;
+			}
+		}
+	}
+else
+	{
+	print STDERR "document_name: $project_name\n" ;
+	
+	my $document_name = $asciio->load_file($project_name) ;
+	
+	print $asciio->transform_elements_to_ascii_buffer() ;
+	}
+}
+
+# ------------------------------------------------------------------------------ 
+
+sub get_asciio
+{
 my $asciio = new App::Asciio() ;
 
 $asciio->{UI} = 'TUI' ;
@@ -50,20 +148,6 @@ else
 	$asciio->setup($setup_paths, { %object_override, DISPLAY_SETUP_INFORMATION_ACTION => 0 }) ;
 	}
 
-if(defined $asciio_config->{TARGETS}[0])
-	{
-	local $asciio->{ACTION_VERBOSE} = sub { ; } ;
-	$asciio->run_actions_by_name(['Open', $asciio_config->{TARGETS}[0]]) ;
-	}
-	
-
-if(defined $asciio_config->{SCRIPT})
-	{
-	require App::Asciio::Scripting ;
-	
-	App::Asciio::Scripting::run_external_script($asciio, $asciio_config->{SCRIPT}) ;
-	}
-
-use open qw( :std :encoding(UTF-8) ) ;
-print $asciio->transform_elements_to_ascii_buffer() ;
+return $asciio_config, $asciio ;
+}
 

script/text_to_asciio

@@ -5,6 +5,7 @@ use strict; use warnings;
 use File::Slurper qw(read_text) ;
 use App::Asciio::Scripting ;
 
+use open qw( :std :encoding(UTF-8) ) ;
 binmode(STDOUT) ;
 my $pos = -1 ;