/[VRac]/M6502/Arch.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /M6502/Arch.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82 - (show annotations)
Wed Aug 1 21:40:17 2007 UTC (12 years ago) by dpavlin
File size: 846 byte(s)
begin refactoring into proper XS module (really need to do this so I can handle SDL event loop)
1 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 =head2 boot
19
20 =head2 read
21
22 =head2 write
23
24 =head2 cli
25
26 =cut
27
28 use base qw(Class::Accessor Orao Prefs);
29 warn "loaded ",__PACKAGE__,$/;
30
31 my $prefs = { arch => 'Orao' };
32 if(1){
33 $prefs = {
34 arch => 'Orao',
35 scale => 1,
36 show_mem => 1,
37 trace => 0,
38 debug => 0,
39 };
40 }#if(0)
41
42 my $arch_name = $prefs->{arch} || die "need arch";
43 our $arch = $arch_name->new( $prefs );
44 warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
45 $arch->prefs;
46
47 sub boot {
48 warn "Arch $arch_name boot\n";
49 $arch->prefs;
50 $arch->boot;
51 $arch->prefs;
52 }
53
54 sub read { $arch->read( @_ ) };
55 sub write { $arch->write( @_ ) };
56 sub cli { $arch->cli( @_ ) };
57
58 1;

  ViewVC Help
Powered by ViewVC 1.1.26