Functional.h

//
// $Id: Functional.h,v 1.27 2007/03/06 20:42:19 will_mason Exp $
//
// vi: set ft=objc:

/*
 * ObjectiveLib - a library of containers and algorithms for Objective-C
 *
 * Copyright (c) 2004-2007
 * Will Mason
 *
 * Portions:
 *
 * Copyright (c) 1994
 * Hewlett-Packard Company
 *
 * Copyright (c) 1996,1997
 * Silicon Graphics Computer Systems, Inc.
 *
 * Copyright (c) 1997
 * Moscow Center for SPARC Technology
 *
 * Copyright (c) 1999 
 * Boris Fomitchev
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * You may contact the author at will_mason@users.sourceforge.net.
 */

#if !defined(FUNCTIONAL_OL_GUARD)
#define FUNCTIONAL_OL_GUARD

#include <ObjectiveLib/ObjectBase.h>
#include <ObjectiveLib/Types.h>

@protocol OLBinaryFunction

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@protocol OLUnaryFunction

- (id) performUnaryFunctionWithArg: (id)arg;

@end

@protocol OLBoolBinaryFunction

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@protocol OLBoolUnaryFunction

- (BOOL) performUnaryFunctionWithArg: (id)arg;

@end

@interface OLFunctor :
#if defined(OL_NO_OPENSTEP)
    Object
#else
    NSObject
#endif
{
}

+ (id) functorOfType: (OLFunctorType)type;

@end

@interface OLStreamableFunctor : OLFunctor
#if defined(OL_NO_OPENSTEP)
<OLStreamable>
#else
<OLStreamable, NSCoding>
#endif
{
}

#if !defined(OL_NO_OPENSTEP)

- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithObjectInStream: (OLObjectInStream*)stream;

#if !defined(OL_NO_OPENSTEP)

- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLBinaryNegate : OLStreamableFunctor <OLBoolBinaryFunction>
{
@protected
    OLStreamableFunctor<OLBoolBinaryFunction>* fn;
}

+ (id) functorWithBinaryFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithBinaryFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function;

- (id) initWithObjectInStream: (OLObjectInStream*)stream;

#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLBinder1st : OLStreamableFunctor <OLUnaryFunction>
{
@protected
    OLStreamableFunctor<OLBinaryFunction>*  fn;

    id                                      lft;
}

+ (id) functorWithFunction: (OLStreamableFunctor<OLBinaryFunction>*)function andLeftArg: (id)left;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithFunction: (OLStreamableFunctor<OLBinaryFunction>*)function andLeftArg: (id)left;
- (id) initWithObjectInStream: (OLObjectInStream*)stream;
#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (id) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLBinder2nd : OLStreamableFunctor <OLUnaryFunction>
{
@protected
    OLStreamableFunctor<OLBinaryFunction>*  fn;

    id                                  rght;
}

+ (id) functorWithFunction: (OLStreamableFunctor<OLBinaryFunction>*)function andRightArg: (id)right;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithFunction: (OLStreamableFunctor<OLBinaryFunction>*)function andRightArg: (id)right;
- (id) initWithObjectInStream: (OLObjectInStream*)stream;
#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (id) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLBoolBinder1st : OLStreamableFunctor <OLBoolUnaryFunction>
{
@protected
    OLStreamableFunctor<OLBoolBinaryFunction>*  fn;

    id                                      lft;
}

+ (id) functorWithBoolFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function andLeftArg: (id)left;

/* @{ */
- (id) initWithBoolFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function andLeftArg: (id)left;
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif
- (id) initWithObjectInStream: (OLObjectInStream*)stream;
#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (BOOL) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLBoolBinder2nd : OLStreamableFunctor <OLBoolUnaryFunction>
{
@protected
    OLStreamableFunctor<OLBoolBinaryFunction>*  fn;

    id                                      rght;
}

+ (id) functorWithBoolFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function andRightArg: (id)right;

/* @{ */
- (id) initWithBoolFunction: (OLStreamableFunctor<OLBoolBinaryFunction>*)function andRightArg: (id)right;
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif
- (id) initWithObjectInStream: (OLObjectInStream*)stream;
#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (BOOL) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLDivides : OLStreamableFunctor <OLBinaryFunction>
{
}

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLEqualTo : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLGreater : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLGreaterEqual : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLLess : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLLessEqual : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLLogicalAnd : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLLogicalNot : OLStreamableFunctor <OLBoolUnaryFunction>
{
}

- (BOOL) performUnaryFunctionWithArg: (id)arg;

@end

@interface OLLogicalOr : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLMemFun : OLStreamableFunctor <OLUnaryFunction>
{
@protected
    SEL sel;
}

+ (id) functorWithSelector: (SEL)selector;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithObjectInStream: (OLObjectInStream*)stream;

- (id) initWithSelector: (SEL)selector;
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (id) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLMemFun1 : OLStreamableFunctor <OLBinaryFunction>
{
@protected
    SEL sel;
}

+ (id) functorWithSelector: (SEL)selector;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithObjectInStream: (OLObjectInStream*)stream;

- (id) initWithSelector: (SEL)selector;
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

@interface OLMinus : OLStreamableFunctor <OLBinaryFunction>
{
}

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLModulus : OLStreamableFunctor <OLBinaryFunction>
{
}

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLMultiplies : OLStreamableFunctor <OLBinaryFunction>
{
}

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLNegate : OLStreamableFunctor <OLUnaryFunction>
{
}

- (id) performUnaryFunctionWithArg: (id)arg;

@end

@interface OLNotEqualTo : OLStreamableFunctor <OLBoolBinaryFunction>
{
}

- (BOOL) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLPlus : OLStreamableFunctor <OLBinaryFunction>
{
}

- (id) performBinaryFunctionWithArg: (id)arg1 andArg: (id)arg2;

@end

@interface OLUnaryNegate : OLStreamableFunctor <OLBoolUnaryFunction>
{
@protected
    OLStreamableFunctor<OLBoolUnaryFunction>* fn;
}

+ (id) functorWithUnaryFunction: (OLStreamableFunctor<OLBoolUnaryFunction>*)function;

/* @{ */
#if !defined(OL_NO_OPENSTEP)
- (id) initWithCoder: (NSCoder*)decoder;
#endif

- (id) initWithObjectInStream: (OLObjectInStream*)stream;

- (id) initWithUnaryFunction: (OLStreamableFunctor<OLBoolUnaryFunction>*)function;

#if defined(OL_NO_OPENSTEP)
- (id) free;
#else
- (void) dealloc;
#endif
/* @} */

#if !defined(OL_NO_OPENSTEP)
- (void) encodeWithCoder: (NSCoder*)encoder;
#endif

- (BOOL) performUnaryFunctionWithArg: (id)arg;

- (void) writeSelfToStream: (OLObjectOutStream*)stream;

@end

#endif

---

Generated Sun Apr 22 15:17:58 2007, © 2004-2007 Will Mason