diff options
Diffstat (limited to 'TAO/IIOP/test/Orbeline/base_server')
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/Makefile | 19 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp | 129 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h | 62 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/cubit.idl | 42 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp | 48 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/cubit_impl.h | 35 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/server.cpp | 51 | ||||
| -rw-r--r-- | TAO/IIOP/test/Orbeline/base_server/stdmk | 36 |
8 files changed, 0 insertions, 422 deletions
diff --git a/TAO/IIOP/test/Orbeline/base_server/Makefile b/TAO/IIOP/test/Orbeline/base_server/Makefile deleted file mode 100644 index 9fdad280ffc..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -include stdmk - -EXE = server - -all: $(EXE) - -clean: - -rm -f core *.o cubitC.* cubitS.* $(EXE) - -rm -rf Templates.DB - -cubitS.cpp: cubit.idl - $(ORBCC) cubit.idl - -cubitC.cpp: cubit.idl - $(ORBCC) cubit.idl - -server: cubitS.o cubitC.o server.o Profile_Timer.o cubit_impl.o - $(CC) -o server cubitS.o cubitC.o cubit_impl.o server.o Profile_Timer.o \ - $(LIBPATH) $(LIBORB) $(STDCC_LIBS) diff --git a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp b/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp deleted file mode 100644 index d20d988f48b..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp +++ /dev/null @@ -1,129 +0,0 @@ -// $Id$ - -#include "Profile_Timer.h" - -/* Initialize interval timer. */ - -Profile_Timer::Profile_Timer (void) -{ - char buf[20]; - ::sprintf(buf, "/proc/%d", ::getpid ()); - - ::memset (&this->end_usage_, 0, sizeof this->end_usage_); - ::memset (&this->begin_usage_, 0, sizeof this->begin_usage_); - ::memset (&this->last_usage_, 0, sizeof this->last_usage_); - if ((this->proc_fd_ = ::open (buf, O_RDONLY, 0)) == -1) - ::perror (buf); -} - -/* Terminate the interval timer. */ -Profile_Timer::~Profile_Timer (void) -{ - if (::close (this->proc_fd_) == -1) - ::perror ("Profile_Timer::~Profile_Timer"); -} - -/* Return the resource utilization. */ - -void -Profile_Timer::get_rusage (prusage_t &rusage) -{ - rusage = this->end_usage_; -} - -/* Compute the amount of resource utilization since the start time. */ - -void -Profile_Timer::elapsed_rusage (prusage_t &rusage) -{ - rusage.pr_lwpid = this->end_usage_.pr_lwpid - this->last_usage_.pr_lwpid; - rusage.pr_count = this->end_usage_.pr_count - this->last_usage_.pr_count; - rusage.pr_minf = this->end_usage_.pr_minf - this->last_usage_.pr_minf; - rusage.pr_majf = this->end_usage_.pr_majf - this->last_usage_.pr_majf; - rusage.pr_inblk = this->end_usage_.pr_inblk - this->last_usage_.pr_inblk; - rusage.pr_oublk = this->end_usage_.pr_oublk - this->last_usage_.pr_oublk; - rusage.pr_msnd = this->end_usage_.pr_msnd - this->last_usage_.pr_msnd; - rusage.pr_mrcv = this->end_usage_.pr_mrcv - this->last_usage_.pr_mrcv; - rusage.pr_sigs = this->end_usage_.pr_sigs - this->last_usage_.pr_sigs; - this->subtract (rusage.pr_wtime, this->end_usage_.pr_wtime, this->last_usage_.pr_wtime); - this->subtract (rusage.pr_ltime, this->end_usage_.pr_ltime, this->last_usage_.pr_ltime); - this->subtract (rusage.pr_slptime, this->end_usage_.pr_slptime, this->last_usage_.pr_slptime); - rusage.pr_vctx = this->end_usage_.pr_vctx - this->last_usage_.pr_vctx; - rusage.pr_ictx = this->end_usage_.pr_ictx - this->last_usage_.pr_ictx; - rusage.pr_sysc = this->end_usage_.pr_sysc - this->last_usage_.pr_sysc; - rusage.pr_ioch = this->end_usage_.pr_ioch - this->last_usage_.pr_ioch; -} - -/* Compute the elapsed time. */ - -void -Profile_Timer::compute_times (Elapsed_Time &et, prusage_t &end, prusage_t &begin) -{ - timespec_t td; - - this->subtract (td, end.pr_tstamp, begin.pr_tstamp); - et.real_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_utime, begin.pr_utime); - et.user_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_stime, begin.pr_stime); - et.system_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); -} - -/* Compute the amount of time that has elapsed between start and stop. */ - -int -Profile_Timer::elapsed_time (Elapsed_Time &et) -{ - this->compute_times (et, this->end_usage_, this->begin_usage_); - return 0; -} - -/* Determine the difference between T1 and T2. */ - -void -Profile_Timer::subtract (timespec_t &tdiff, timespec_t &t1, timespec_t &t0) -{ - tdiff.tv_sec = t1.tv_sec - t0.tv_sec; - tdiff.tv_nsec = t1.tv_nsec - t0.tv_nsec; - - /* Normalize the time. */ - - while (tdiff.tv_nsec < 0) - { - tdiff.tv_sec--; - tdiff.tv_nsec += (1000 * 1000 * 1000); - } -} - -#if defined (DEBUG) -#include <stdlib.h> -extern "C" int gettimeofday (timeval *tp); - -const int DEFAULT_ITERATIONS = 1000000; - -int -main (int argc, char *argv[]) -{ - Profile_Timer timer; - int iterations = argc > 1 ? atoi (argv[1]) : DEFAULT_ITERATIONS; - timeval tv; - - timer.start (); - - for (int i = 0; i < iterations; i++) - gettimeofday (&tv); - - timer.stop (); - - Profile_Timer::Elapsed_Time et; - - timer.elapsed_time (et); - - printf ("iterations = %d\n", iterations); - printf ("real time = %f secs, user time = %f secs, system time = %f secs\n", - et.real_time, et.user_time, et.system_time); - - printf ("time per call = %f usecs\n", (et.real_time / double (iterations)) * 1000000); - return 0; -} -#endif /* DEBUG */ diff --git a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h b/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h deleted file mode 100644 index 4198fba9a10..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h +++ /dev/null @@ -1,62 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -/* An interval timer class using C++. */ - -#if !defined (ACE_PROFILE_TIMER_H) -#define ACE_PROFILE_TIMER_H - -#include <sys/types.h> -#include <unistd.h> -#include <fcntl.h> -#include <sys/procfs.h> -#include <stdio.h> -#include <memory.h> - -class Profile_Timer -{ -public: - struct Elapsed_Time - { - double real_time; - double user_time; - double system_time; - }; - - Profile_Timer (void); - ~Profile_Timer (void); - int start (void); - int stop (void); - int elapsed_time (Elapsed_Time &et); - void elapsed_rusage (prusage_t &rusage); - void get_rusage (prusage_t &rusage); - -private: - void subtract (timespec_t &tdiff, timespec_t &t0, timespec_t &t1); - void compute_times (Elapsed_Time &et, prusage_t &, prusage_t &); - - prusage_t begin_usage_; - prusage_t end_usage_; - prusage_t last_usage_; - int proc_fd_; -}; - -/* Start timing */ - -inline int -Profile_Timer::start (void) -{ - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->begin_usage_); -} - -/* Stop timing */ - -inline int -Profile_Timer::stop (void) -{ - this->last_usage_ = this->end_usage_; - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->end_usage_); -} - -#endif /* ACE_PROFILE_TIMER_H */ - diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit.idl b/TAO/IIOP/test/Orbeline/base_server/cubit.idl deleted file mode 100644 index 7eedbe786ab..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. -// -//#pragma prefix "Eng.SUN.COM" -//#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp b/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp deleted file mode 100644 index c4313a1fccb..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp +++ /dev/null @@ -1,48 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit () - {} diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h b/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h deleted file mode 100644 index f1f5e3fa3ea..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h +++ /dev/null @@ -1,35 +0,0 @@ -// $Id$ - - -#ifndef cubit_ih -#define cubit_ih - -#include "cubitS.h" - - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual _sk_Cubit { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ - -public: - -#ifdef Cubit_USE_BOA - Cubit_Impl (const char *obj_name = NULL) : - _sk_Cubit(obj_name) - {} -#else - Cubit_Impl (const char *obj_name = NULL) - {} -#endif /* Cubit_USE_BOA */ - - virtual CORBA::Octet cube_octet(CORBA::Octet o); - virtual CORBA::Short cube_short(CORBA::Short s); - virtual CORBA::Long cube_long(CORBA::Long l); - virtual Cubit::Many cube_struct(const Cubit::Many& values); - virtual Cubit::oneof cube_union(const Cubit::oneof& values); - virtual void please_exit(); -}; - -#endif diff --git a/TAO/IIOP/test/Orbeline/base_server/server.cpp b/TAO/IIOP/test/Orbeline/base_server/server.cpp deleted file mode 100644 index 99c65c6718e..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/server.cpp +++ /dev/null @@ -1,51 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#include "cubit_impl.h" // server header file - -int -main (int argc, char** argv) -{ - - CORBA::ORB_var orb = CORBA::ORB_init(argc, argv); - CORBA::BOA_var boa = orb->BOA_init(argc, argv); - -#ifdef Cubit_USE_BOA - Cubit_Impl cb("Cubit"); - cout << "Using BOA approach" << endl; -#else - Cubit_Impl tied("Cubit"); - _tie_Cubit<Cubit_Impl> cb(tied, "Cubit"); - - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // - // Go get some work to do.... - // - try { - - boa->obj_is_ready(&cb); - - boa->impl_is_ready(); - - } catch (const CORBA::Exception &excep) { - cerr << "Server error: " << excep << endl; - return -1; - } catch (...) { - cerr << "Unknown exception" << endl; - return -1; - } - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbeline/base_server/stdmk b/TAO/IIOP/test/Orbeline/base_server/stdmk deleted file mode 100644 index df4125a38d8..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/stdmk +++ /dev/null @@ -1,36 +0,0 @@ -CC = CC -DEBUG = - -ORBELINEDIR = /project/waltz/Orbeline2.0 - -ORBCC = $(ORBELINEDIR)/bin/orbeline -v C -m S -c cpp -h h - -CCINCLUDES = -I. -I$(ORBELINEDIR)/include -I$(STL_DIR) -I$(ACE_DIR) - -CCFLAGS = -g $(CCINCLUDES) $(DEBUG) -DCubit_USE_BOA - -LIBPATH = -L$(ORBELINEDIR)/lib -L$(ACE_DIR)/ace - -STDCC_LIBS = -lsocket -lnsl -ldl -mt - -LIBORB = -lorb - -LIBACE = -lACE - -.SUFFIXES: .C .o .h .hh .cc .cpp - -.C.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.cc.o: - $(CC) $(CCFLAGS) -c -o $@ $< -.cpp.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.C.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - -.cc.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - - |