[Compbench-devel] CompBenchmarks++/CBM-PI/t 00-CBMSystem-public.pl, NONE, 1.1 01-CBMSystem-protected.pl, NONE, 1.1 Makefile.am, NONE, 1.1 Makefile.in, NONE, 1.1

[Frederic T. <xf...@us...>]

Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31508

Added Files:
	00-CBMSystem-public.pl 01-CBMSystem-protected.pl Makefile.am 
	Makefile.in 
Log Message:
First import.

--- NEW FILE: Makefile.in ---
# Makefile.in generated by automake 1.10 from Makefile.am.
# @configure_input@

# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
# 2003, 2004, 2005, 2006  Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.

@SET_MAKE@

VPATH = @srcdir@
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
target_triplet = @target@
subdir = CBM-PI/t
DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.in
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
	$(ACLOCAL_M4)
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = $(top_builddir)/config.h
CONFIG_CLEAN_FILES =
SOURCES =
DIST_SOURCES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \
    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
    *) f=$$p;; \
  esac;
am__strip_dir = `echo $$p | sed -e 's|^.*/||'`;
am__installdirs = "$(DESTDIR)$(datadir)"
dataDATA_INSTALL = $(INSTALL_DATA)
DATA = $(data_DATA)
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AR = @AR@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CBM_PROG_BZIP2 = @CBM_PROG_BZIP2@
CBM_PROG_CAT = @CBM_PROG_CAT@
CBM_PROG_CP = @CBM_PROG_CP@
CBM_PROG_CUT = @CBM_PROG_CUT@
CBM_PROG_DD = @CBM_PROG_DD@
CBM_PROG_DIALOG = @CBM_PROG_DIALOG@
CBM_PROG_GREP = @CBM_PROG_GREP@
CBM_PROG_GZIP = @CBM_PROG_GZIP@
CBM_PROG_HEAD = @CBM_PROG_HEAD@
CBM_PROG_MAKE = @CBM_PROG_MAKE@
CBM_PROG_MKDIR = @CBM_PROG_MKDIR@
CBM_PROG_PATCH = @CBM_PROG_PATCH@
CBM_PROG_PERL = @CBM_PROG_PERL@
CBM_PROG_RM = @CBM_PROG_RM@
CBM_PROG_TAIL = @CBM_PROG_TAIL@
CBM_PROG_TAR = @CBM_PROG_TAR@
CBM_PROG_UNZIP = @CBM_PROG_UNZIP@
CBM_PROG_WGET = @CBM_PROG_WGET@
CBM_PROG_ZCAT = @CBM_PROG_ZCAT@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CFLAGS = @CFLAGS@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CXX = @CXX@
CXXCPP = @CXXCPP@
CXXDEPMODE = @CXXDEPMODE@
CXXFLAGS = @CXXFLAGS@
CYGPATH_W = @CYGPATH_W@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
ECHO = @ECHO@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
F77 = @F77@
FFLAGS = @FFLAGS@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LDFLAGS = @LDFLAGS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
PACKAGE = @PACKAGE@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
RANLIB = @RANLIB@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_CC = @ac_ct_CC@
ac_ct_CXX = @ac_ct_CXX@
ac_ct_F77 = @ac_ct_F77@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
bindir = @bindir@
build = @build@
build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
builddir = @builddir@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
host = @host@
host_alias = @host_alias@
host_cpu = @host_cpu@
host_os = @host_os@
host_vendor = @host_vendor@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target = @target@
target_alias = @target_alias@
target_cpu = @target_cpu@
target_os = @target_os@
target_vendor = @target_vendor@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
prog_tests = 00-CBMSystem-public.pl 01-CBMSystem-protected.pl
tests = $(top_srcdir)/CBM-PI/t/00-CBMSystem-public.pl \
			$(top_srcdir)/CBM-PI/t/01-CBMSystem-protected.pl

data_DATA = $(prog_tests)
all: all-am

.SUFFIXES:
$(srcdir)/Makefile.in:  $(srcdir)/Makefile.am  $(am__configure_deps)
	@for dep in $?; do \
	  case '$(am__configure_deps)' in \
	    *$$dep*) \
	      cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh \
		&& exit 0; \
	      exit 1;; \
	  esac; \
	done; \
	echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu  CBM-PI/t/Makefile'; \
	cd $(top_srcdir) && \
	  $(AUTOMAKE) --gnu  CBM-PI/t/Makefile
.PRECIOUS: Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
	@case '$?' in \
	  *config.status*) \
	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
	  *) \
	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
	esac;

$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh

$(top_srcdir)/configure:  $(am__configure_deps)
	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4):  $(am__aclocal_m4_deps)
	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh

mostlyclean-libtool:
	-rm -f *.lo

clean-libtool:
	-rm -rf .libs _libs
install-dataDATA: $(data_DATA)
	@$(NORMAL_INSTALL)
	test -z "$(datadir)" || $(MKDIR_P) "$(DESTDIR)$(datadir)"
	@list='$(data_DATA)'; for p in $$list; do \
	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
	  f=$(am__strip_dir) \
	  echo " $(dataDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(datadir)/$$f'"; \
	  $(dataDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(datadir)/$$f"; \
	done

uninstall-dataDATA:
	@$(NORMAL_UNINSTALL)
	@list='$(data_DATA)'; for p in $$list; do \
	  f=$(am__strip_dir) \
	  echo " rm -f '$(DESTDIR)$(datadir)/$$f'"; \
	  rm -f "$(DESTDIR)$(datadir)/$$f"; \
	done
tags: TAGS
TAGS:

ctags: CTAGS
CTAGS:


distdir: $(DISTFILES)
	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
	list='$(DISTFILES)'; \
	  dist_files=`for file in $$list; do echo $$file; done | \
	  sed -e "s|^$$srcdirstrip/||;t" \
	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
	case $$dist_files in \
	  */*) $(MKDIR_P) `echo "$$dist_files" | \
			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
			   sort -u` ;; \
	esac; \
	for file in $$dist_files; do \
	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
	  if test -d $$d/$$file; then \
	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
	      cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \
	    fi; \
	    cp -pR $$d/$$file $(distdir)$$dir || exit 1; \
	  else \
	    test -f $(distdir)/$$file \
	    || cp -p $$d/$$file $(distdir)/$$file \
	    || exit 1; \
	  fi; \
	done
check-am: all-am
check: check-am
all-am: Makefile $(DATA)
installdirs:
	for dir in "$(DESTDIR)$(datadir)"; do \
	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \
	done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am

install-am: all-am
	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am

installcheck: installcheck-am
install-strip:
	$(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
	  install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
	  `test -z '$(STRIP)' || \
	    echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
mostlyclean-generic:

clean-generic:

distclean-generic:
	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)

maintainer-clean-generic:
	@echo "This command is intended for maintainers to use"
	@echo "it deletes files that may require special tools to rebuild."
clean: clean-am

clean-am: clean-generic clean-libtool mostlyclean-am

distclean: distclean-am
	-rm -f Makefile
distclean-am: clean-am distclean-generic

dvi: dvi-am

dvi-am:

html: html-am

info: info-am

info-am:

install-data-am: install-dataDATA

install-dvi: install-dvi-am

install-exec-am:

install-html: install-html-am

install-info: install-info-am

install-man:

install-pdf: install-pdf-am

install-ps: install-ps-am

installcheck-am:

maintainer-clean: maintainer-clean-am
	-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic

mostlyclean: mostlyclean-am

mostlyclean-am: mostlyclean-generic mostlyclean-libtool

pdf: pdf-am

pdf-am:

ps: ps-am

ps-am:

uninstall-am: uninstall-dataDATA

.MAKE: install-am install-strip

.PHONY: all all-am check check-am clean clean-generic clean-libtool \
	distclean distclean-generic distclean-libtool distdir dvi \
	dvi-am html html-am info info-am install install-am \
	install-data install-data-am install-dataDATA install-dvi \
	install-dvi-am install-exec install-exec-am install-html \
	install-html-am install-info install-info-am install-man \
	install-pdf install-pdf-am install-ps install-ps-am \
	install-strip installcheck installcheck-am installdirs \
	maintainer-clean maintainer-clean-generic mostlyclean \
	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
	uninstall uninstall-am uninstall-dataDATA


test:
	PERL_DL_NONLAZY=1 @CBM_PROG_PERL@ "-MExtUtils::Command::MM" "-e" "test_harness(0, '$(top_srcdir)/CBM-PI', '$(INST_ARCHLIB)')" $(tests)
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

--- NEW FILE: 00-CBMSystem-public.pl ---
#!/usr/bin/perl -w -I ..
use strict;
use CBM;

use Test::Simple tests => 34;

my $sys;
my $top_srcdir = $0;
$top_srcdir =~ s/(.+)\/.*/$1/;

sub test_Split {
  ok($sys->Split("a\nb", "\n", 0) eq "a");
  ok(!defined($sys->Split("a\n\nb", "\n", 1)));
  ok($sys->Split("a\nb", "\n", 1) eq "b");
  ok($sys->Split("a\nb\n", "\n", 1) eq "b");
}

sub test_Chomp {
  my $t0 = CBM::stringref(" test");
  my $t1 = CBM::stringref("  test\n");

  $sys->Chomp($t0);
  ok(CBM::c_str($t0) eq "test");

  $sys->Chomp($t1);
  ok(CBM::c_str($t1) eq "test");
}

sub test_Exec {
  my $cmd = CBM::stringref("echo Ok");
  my $out = CBM::stringref("");

  $sys->exec($cmd, $out);
  ok(CBM::c_str($out) eq "Ok\n");
}

sub test_md5 {
  my $data = CBM::stringref("xYz012489787854A");
  ok($sys->md5($data) eq "1003e694a238d54c400eb13eb6731503");
}

sub test_md5File {
  my $dum = "$top_srcdir/reference/CBMSystem-copy.data";
  my $ref = CBM::stringref("$dum");
  ok($sys->md5File($ref) eq "654c4567bea6cba27c2bc123b8258319");
}

# !!! TODO
sub test_download {
}

sub test_copy {
  my $dum = "$top_srcdir/reference/CBMSystem-copy.data";
  my $cmd = CBM::stringref("rm -rf $dum.2");
  my $out = CBM::stringref("");

  ok($sys->copy("no-such-file", "neither-that") eq 256);
  ok($sys->copy("$dum", "$dum.2") eq 0);
  ok($sys->exec($cmd, $out) eq 0);
}

sub test_mkdir {
  my $dum = "$top_srcdir/reference/CBMSystem-mkdir.test";
  my $cmd = CBM::stringref("rm -rf $dum");
  my $out = CBM::stringref("");

  $sys->exec($cmd, $out);
  ok($sys->mkdir("$dum") eq 1);
  ok($sys->mkdir("$dum") eq 0);
  ok($sys->exec($cmd, $out) eq 0);
}

sub test_checkDirectory {
  my $dum = "$top_srcdir/reference/CBMSystem-mkdir.test";
  my $cmd = CBM::stringref("rm -rf $dum");
  my $out = CBM::stringref("");

  $sys->exec($cmd, $out);
  ok($sys->checkDirectory($dum) eq 0);
  $sys->mkdir("$dum");
  ok($sys->checkDirectory($dum) eq 1);
  $sys->exec($cmd, $out);

}

# !!! TODO
sub test_temporaryDirectory {
}

sub test_unlink {
  my $dum = "$top_srcdir/reference/CBMSystem-unlink.test";
  my $cmd = CBM::stringref("echo 1 > $dum");
  my $out = CBM::stringref("");

  ok($sys->unlink($dum) eq 0);
  $sys->exec($cmd, $out);
  ok($sys->unlink($dum) eq 1);
  ok($sys->unlink($dum) eq 0);
}

sub test_store {
  ok($sys->store("compbenchmarks-testsuite.K0", "x") eq 1);
  ok($sys->store("compbenchmarks-testsuite.K1", "1") eq 1);
}

sub test_read {
  ok($sys->read("compbenchmarks-testsuite.K0") eq "x");
  ok($sys->read("compbenchmarks-testsuite.K1") eq "1");

  ok($sys->store("compbenchmarks-testsuite.K0", "y") eq 1);
  ok($sys->store("compbenchmarks-testsuite.K1", "2") eq 1);

  ok($sys->read("compbenchmarks-testsuite.K0") eq "y");
  ok($sys->read("compbenchmarks-testsuite.K1") eq "2");
}

sub test_fileExists {
  my $dum = "$top_srcdir/reference/CBMSystem-copy.data";

  ok($sys->fileExists($dum) eq 1);
  ok($sys->fileExists("$dum.2") eq 0);
}

# !!! TODO
sub test_Time {
}

sub test_getLastCommand {
  my $cmd0 = CBM::stringref("echo 1");
  my $out0 = CBM::stringref("");

  my $cmd1 = CBM::stringref("echo 0");
  my $out1 = CBM::stringref("");

  $sys->exec($cmd0, $out0);
  ok(CBM::c_str($sys->getLastCommand()) eq "echo 1");

  $sys->exec($cmd1, $out1);
  ok(CBM::c_str($sys->getLastCommand()) eq "echo 0");
}

sub test_getLastCommandOutput {
  my $cmd0 = CBM::stringref("echo 1");
  my $out0 = CBM::stringref("");

  my $cmd1 = CBM::stringref("echo 0");
  my $out1 = CBM::stringref("");

  $sys->exec($cmd0, $out0);
  ok(CBM::c_str($sys->getLastCommandOutput()) eq "1\n");

  $sys->exec($cmd1, $out1);
  ok(CBM::c_str($sys->getLastCommandOutput()) eq "0\n");

}

$sys = CBM::Init();

test_Split();
test_Chomp();
test_Exec();
test_md5();
test_md5File();
test_download();
test_copy();
test_mkdir();
test_checkDirectory();
test_temporaryDirectory();
test_unlink();
test_store();
test_read();
test_fileExists();
test_Time();
test_getLastCommand();
test_getLastCommandOutput();

print ".... " . $sys->arch() . "\n";

$sys->done();

--- NEW FILE: Makefile.am ---
prog_tests	=	00-CBMSystem-public.pl 01-CBMSystem-protected.pl
tests		=	$(top_srcdir)/CBM-PI/t/00-CBMSystem-public.pl \
			$(top_srcdir)/CBM-PI/t/01-CBMSystem-protected.pl

data_DATA 	=	$(prog_tests)

test:
	PERL_DL_NONLAZY=1 @CBM_PROG_PERL@ "-MExtUtils::Command::MM" "-e" "test_harness(0, '$(top_srcdir)/CBM-PI', '$(INST_ARCHLIB)')" $(tests)
--- NEW FILE: 01-CBMSystem-protected.pl ---
#!/usr/bin/perl -w -I ..
use strict;
use CBM;

use Test::Simple tests => 40;

my $sys;
my $top_srcdir = $0;
$top_srcdir =~ s/(.+)\/.*/$1/;

sub check_simple {
  my $str = shift;

  ok($str ne "");
  if ($str =~ /\n/) {
    ok(0);
  } else {
    ok(1);
  }

  if ($str =~ /^ +(.*)/) {
    ok(0, "'$str' starts with space(s)");
  } else {
    ok(1);
  }

  if ($str =~ / $/) {
    ok(0, "'$str' ends with space(s)");
  } else {
    ok(1);
  }
}

# !!! TODO ???
sub test_exec0 {
  my $r0 = CBM::stringref("exit 0");
  my $r1 = CBM::stringref("exit 1");
  my $r2 = CBM::stringref("exit 232");

  # ok($sys->exec0($r0) eq 0);
  # ok($sys->exec0($r1) eq 1);
  # ok($sys->exec0($r2) eq 232);
}

sub test_arch {
  my $arch = $sys->arch();

  check_simple($arch);
}

sub test_hostid {
  my $id = $sys->hostid();

  check_simple($id);
  ok(length($id) == 8);
}

sub test_hostname {
  my $host = $sys->hostname();
  check_simple($host);
}

sub test_os {
  my $os = $sys->os();
  check_simple($os);
}

sub test_os_version {
  my $ver = $sys->os_version();
  check_simple($ver);
}

sub test_processor_name {
  my $proc = $sys->processor_name();
  check_simple($proc);
}

sub test_processor_mhz {
 my $mhz = $sys->processor_mhz();
 check_simple($mhz);
 ok($mhz > 1);
}

sub test_processor_cache {
 my $cache = $sys->processor_cache();
 check_simple($cache);
 ok($cache > 1);
}

sub test_processor_number {
 my $num = $sys->processor_number();
 check_simple($num);
 ok($num >= 1);
}

$sys = CBM::Init();

test_exec0();
test_arch();
test_hostid();
test_hostname();
test_os();
test_os_version();
test_processor_name();
test_processor_mhz();
test_processor_cache();
test_processor_number();

$sys->done();