-#!/usr/bin/perl
+#!@PERL@
open GREP, "egrep -h '^struct|^class' *.hh *.cc|";
open OUT, "|sort | uniq";
-#!@PERL@ -w
+#!@PERL@ -w
# -*-Perl-*-
my $mudcount = 0;
my $mudela_b = 0;
// nextstep
#ifndef CLOCKS_PER_SEC
+#ifdef CLK_TCK
#define CLOCKS_PER_SEC CLK_TCK
+#elif defined _SC_CLK_TCK
+#define CLOCKS_PER_SEC sysconf(_SC_CLK_TCK)
+#else
+#error cannot determine CLOCKS_PER_SEC
+#endif
#endif
Command_script_req::do_print() const
{}
Command_script_req::Command_script_req(){}
+Command_script_req::~Command_script_req(){}
IMPLEMENT_IS_TYPE_B1(Command_script_req,Command_req);
public:
// huh?
Command_script_req();
+ ~Command_script_req();
REQUESTMETHODS(Command_script_req, commandscript);
};
Moment wholes (int dur, int dots);
double log_2(double x) ;
int intlog2(int d);
+#if ! defined(_ABS_)
inline int
abs (int i){
return (i < 0)?-i:i;
}
+#endif
inline int
sign (int i) {
if (i<0) return -1;