[b9514d]: / bin / kephra  Maximize  Restore  History

Download this file

45 lines (30 with data), 1.1 kB

#! /usr/bin/perl -w
#############################################################################
## Author:      Herbert Breunung
## Purpose:     Kephra starter
## Created:     09/5/2008
## Copyright:   (c) Herbert Breunung
## Licence:     GPL
#############################################################################

=head1 NAME

kephra - Kephra starter script

=head1 SYNOPSIS

    > kephra [<files>]   # start with certain files open

for main Docs please go to the main Module named L<Kephra>.

=cut

use strict;
use vars qw{ $ALLINC $DEV_START};
our $VERSION = '0.14';
our $STANDALONE = '';



BEGIN {
	# set it true if you like to have a relocatable (by simple copy) editor
	$STANDALONE = 'dev' if $ENV{KEPHRA_DEV_START};
	# set it true if this distro includes a full runtime env (KRE)
	$ALLINC = 0;

	push @INC, 'kre/lib', 'kre/site' if $ALLINC;
	push @INC, 'src' if $STANDALONE;
}

use Kephra;

$Kephra::STANDALONE = $STANDALONE;
$Kephra::LOGLEVEL = 0;            # switch for benchmark output

Kephra::start();                  # starter for the main app