Changeset 8

Show
Ignore:
Timestamp:
12/10/06 13:22:45 (2 years ago)
Author:
ingy
Message:
 r2298@skinny-2:  ingy | 2006-12-10 12:06:02 -0800
 more bootstrap
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/Configure.pl

    r6 r8  
    77# Clobber @INC to make sure we are self contained. 
    88BEGIN { 
    9     system("cd lib; make core") == 0 or die; 
     9    system("(cd lib; make core)") == 0 or die; 
    1010    @INC = ( 
    1111        'lib', 
    …… 
    2323    use IO::All; 
    2424 
     25    sub initialize { 
     26        my ($self, $data) = @_; 
     27        my $save = $self->save; 
     28        $save->{kwiki_base} = $ENV{PWD}; 
     29        return; 
     30    } 
     31 
    2532    sub write_config_yaml { 
    2633        my ($self, $data) = @_; 
    2734        my $save = $self->save; 
    2835        my $config = <<"..."; 
    29 perl_path: $save->{perl_path} 
    30 kwiki_base: . 
     36PERL = $save->{perl_path} 
     37KWIKI_BASE = $save->{kwiki_base} 
    3138... 
    32         io('config.yaml')->print($config); 
     39        io('config.mk')->print($config); 
    3340        return; 
    3441    } 
    …… 
    5360start: 
    5461  handler: check_sanity 
     62  next: setup 
     63 
     64setup: 
     65  handler: initialize 
    5566  next: welcome 
    5667 

  • trunk/README

    r2 r8  
    33For a fast start, change directory: 
    44 
    5     cd server/ 
    6     more README 
    7     make 
     5    > perl Configure.pl 
     6    > cd kwiki/sample 
     7    > more README 
     8    > make 
    89 
    910== Installation 
    1011 
    11 0 Run `make` in this directory 
    12 0 Put `./bin/` in your path 
     120 Run `perl Configure.pl` in this directory 
     130 Put `/path/to/this/dir/bin/` in your path 
    13140 Run `kwiki -new mywiki` somewhere 
    1415 
    15  

  • trunk/core/Script-Hater/lib/Script/Hater.pm

    r6 r8  
    3434    require YAML; 
    3535    local $/; 
     36    no warnings 'once'; 
    3637    YAML::Load(<main::DATA>); 
    3738} 
    …… 
    4243 
    4344    if (my $handler = $data->{handler}) { 
    44         $next = $self->$handler($data) 
     45        $next = $self->$handler($data); 
     46        $next ||= ''; 
     47        $next = '' unless $next =~ /^[a-z]\w+$/; 
    4548    } 
    4649 
    4750    $self->clear if $data->{clear}; 
    4851 
    49     print "\n", $data->{print} if $data->{print}; 
     52    if (my $print = $data->{print}) { 
     53        $print .= "\n" unless $print =~ /\n\z/; 
     54        print "\n$print"; 
     55    } 
    5056 
    5157    $next = $self->prompt($data->{prompt}) if $data->{prompt}; 

  • trunk/lib/Makefile

    r6 r8  
    33all: core 
    44 
    5 core: $(CORE_PATHS) $(CORE_MODULES) 
     5core: dummy/dummy $(CORE_PATHS) $(CORE_MODULES) 
    66 
    77$(CORE_LEVEL_1): 
    88        ln -s ../core/*/lib/$@ $@ 
    99 
    10 $(CORE_LEVEL_2): dummy 
     10$(CORE_LEVEL_2): 
    1111        @( \ 
    1212        cd dummy; \ 
    1313        lib=../../core/*/lib/$@; \ 
    14         ln -s $$lib ../$@; \ 
     14        ln -fs $$lib ../$@; \ 
    1515        echo ln -s $$lib $@ \ 
    1616        ) 
    1717 
    18 $(CORE_LEVEL_3): dummy/dummy 
     18$(CORE_LEVEL_3): 
    1919        @( \ 
    2020        cd dummy/dummy; \ 
    2121        lib=../../../core/*/lib/$@; \ 
    22         ln -s $$lib ../../$@; \ 
     22        ln -fs $$lib ../../$@; \ 
    2323        echo ln -s $$lib $@ \ 
    2424        ) 
    2525 
    26 $(CORE_PATHS) dummy dummy/dummy: 
     26$(CORE_PATHS) dummy/dummy: 
    2727        mkdir -p $@ 
    2828