VRac/M6502/Arch.pm

package Arch;

# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 21:40:53 CEST

use strict;
use warnings;

use Data::Dump qw/dump/;

=head1 NAME

Arch - tie arhitecutre components together

=cut

=head1 IMPLEMENTATION

=head2 boot

=head2 read

=head2 write

=head2 cli

=cut

use base qw(Class::Accessor Orao Prefs);
warn "loaded ",__PACKAGE__,$/;

my $prefs = { arch => 'Orao' };
if(1){
$prefs = {
        arch => 'Orao',
        scale => 1,
        show_mem => 1,
        trace => 0,
        debug => 0,
};
}#if(0)

my $arch_name = $prefs->{arch} || die "need arch";
our $arch = $arch_name->new( $prefs );
warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
$arch->prefs;

sub boot {
        warn "Arch $arch_name boot\n";
        $arch->prefs;
        $arch->boot;
        $arch->prefs;
}

sub read { $arch->read( @_ ) };
sub write { $arch->write( @_ ) };
sub cli { $arch->cli( @_ ) };

1;
1	dpavlin	55	package Arch;
2
3			# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 21:40:53 CEST
4
5			use strict;
6			use warnings;
7
8			use Data::Dump qw/dump/;
9
10			=head1 NAME
11
12			Arch - tie arhitecutre components together
13
14			=cut
15
16			=head1 IMPLEMENTATION
17
18	dpavlin	82	=head2 boot
19	dpavlin	55
20			=head2 read
21
22			=head2 write
23
24			=head2 cli
25
26			=cut
27
28	dpavlin	56	use base qw(Class::Accessor Orao Prefs);
29	dpavlin	55	warn "loaded ",__PACKAGE__,$/;
30
31	dpavlin	56	my $prefs = { arch => 'Orao' };
32	dpavlin	71	if(1){
33	dpavlin	56	$prefs = {
34	dpavlin	55	arch => 'Orao',
35			scale => 1,
36			show_mem => 1,
37	dpavlin	71	trace => 0,
38			debug => 0,
39	dpavlin	55	};
40	dpavlin	56	}#if(0)
41	dpavlin	55
42	dpavlin	56	my $arch_name = $prefs->{arch} \|\| die "need arch";
43	dpavlin	55	our $arch = $arch_name->new( $prefs );
44			warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
45			$arch->prefs;
46
47	dpavlin	82	sub boot {
48			warn "Arch $arch_name boot\n";
49	dpavlin	55	$arch->prefs;
50	dpavlin	82	$arch->boot;
51	dpavlin	55	$arch->prefs;
52			}
53
54			sub read { $arch->read( @_ ) };
55			sub write { $arch->write( @_ ) };
56			sub cli { $arch->cli( @_ ) };
57
58			1;