TweetFollow Us on Twitter

Math Compiler
Volume Number:8
Issue Number:3
Column Tag:C Workshop

A Compiler for Math Equations

We’ve seen mathematical equation interpreters, what about a compiler?

By Kevin Raner, Mt. Waverley, Victoria, Australia

I am a scientist with an interest in Macintosh programming, and I a spend a large proportion of my spare time writing number crunching programs. I set out to write an application to use various algorithms to fit specific mathematical functions to some of my experimental data. I didn’t want to hard code these equations into my application as I thought it would be nice to have one version that would handle any equation you gave it. The first version of my program took the equation as a string of characters and stored it away. Then whenever it evaluated the equation, it parsed the string and did the appropriate calculations as it went along. However, this had one big disadvantage, namely it was very slow! Since what I had written was essentially an equation interpreter, the obvious way to improve things was to write an equation compiler.

This article describes such a compiler for mathematical equations. The code, written in THINK C, is designed to be incorporated into a project that needs to evaluate an equation in order to perform some useful task, e.g., optimization, least squares curve fitting, etc. When invoked, the compiler parses a string of characters and sets up a block of executable code in the heap. In this manner, the code for evaluating the equation can be compiled at run time. Consequently, it runs as quickly as if it had been hard coded in the first place. Hence an application can be developed without prior knowledge of what equation it might have to deal with.

An Example

The following code fragment illustrates the use of the equation compiler:

/* 1 */

#include"EqnCompiler.h"

extended(*eqnFn)(); /* func ptr to code */
Handle  eqnCode; /* handle to code block */

main()
{
 char   eqnText[80];
 int    theErr, index;
 extended x, y, a, b, c, coeff[5];

 /* allocate memory */
 eqnCode = NewHandle(0);
 /* equation text to be compiled */
 strcpy(eqnText, "eqnFn(x) = a*sin(b*x+c)");
 /* compile right hand side of equation */
 index = 11;
 theErr = CompileEqn(eqnText, strlen(eqnText),
 &index, eqnCode);
 HLock(eqnCode); /* lock code block */
 eqnFn = *eqnCode; /* set function ptr */

 coeff[0] = a; /* set coefficients */
 coeff[1] = b;
 coeff[2] = c;
 y = (*eqnFn)(x, coeff); /* call function */
}

The above fragment of code allocates a block of heap space to accommodate the new function. Next it sets up a string of characters that defines the equation as text. CompileEqn() is then called with a pointer to the text, the length of the text, the location of the beginning of the equation, and the handle to a relocatable block on the heap where the new function will reside. CompileEqn() expects the code block to be unlocked so that it may grow in size as the code is compiled. (If the equation text is relocatable, it should be locked in memory so that the pointer remains valid.) The third argument, &index, is the address of an index variable. When the routine is called, index informs the routine where to start parsing (position zero indicates the first character in the buffer). In the above example the first character to be parsed is ‘a’. The text buffer is parsed until the end is reached, a semicolon is found, or a syntax error is encountered. The use of a semicolon to mark the end of the equation allows comments to be appended. On the function’s return, index will have been incremented by the number of characters that were successfully parsed. If the text cannot be compiled due to a syntax error, the nature of the error is returned in theErr and its position is indicated in index. The possible errors that can be returned are listed in the file “EqnCompiler.h”. When the code block has been set up, it is locked and dereferenced to give the function pointer. Thereafter (*eqnFn)(x, coeff) is functionally identical to the following function:

/* 2 */

extendedeqnFn(extended x, extended *coeff)
{
 extended y;

 /* eqnFn(x) = a*sin(b*x+c) */
 y = coeff[0]*sin(coeff[1]*x+coeff[2]);
 return y;
}

The equation compiler always generates code that has the prototype shown above. The new function expects two arguments, x and a pointer to an array of coefficients. CompileEqn() recognizes five coefficients namely a, b, c, d, and e. If these coefficients are referenced in the equation text then their numerical values should be placed in an array before the function is called. A pointer to this array is passed as the second argument, NULL may be passed if you are sure that the equation text does not contain references to the coefficients. If you require more than five coefficients, you can edit the routine ScanFn() to handle extra coefficients.

Equation Syntax

The equation compiler recognizes the following operands: a, b, c, d, e, x, Π, pi, and numeric strings. The numeric strings may be expressed in scientific or non-scientific format. Unary minus and the following binary operators are allowed: + (addition), - (subtraction), * (multiplication), / (division) and ^ (exponentiation). The compiler recognizes the following elementary functions: sin(), cos(), tan() atan(), sqrt(), exp() and log() (natural). Custom unary functions may also be defined, the file “CustomFn.c” implements the functions asin() and acos(). The compiler is not case sensitive and space characters inserted between operands, operators, and functions are ignored. Parentheses may be used to change the priority of operations, and comments may be appended to the end of an equation using the semicolon delimiter, e.g., “2.1*(1-exp(-a*x)); first order growth”. The relative priorities of the operators are shown below.

Priority of Operators

( ) (parentheses)

^ (exponentiation)

- (unary minus)

* / (multiplication, division)

+ - (addition, subtraction)

How it Works

I’m not going to describe this in great detail; however, I will describe the roles of the various routines that make up the compiler. You’ll need to be familiar with assembly language to understand the routines that do the actual coding. The first routine called is CompileEqn(); this initializes the global variables and coordinates the other routines which perform specific tasks. All of these routines notify CompileEqn() of their success by returning an integer error code. CompileEqn() parses the text buffer by calling any of three scanning routines: ScanNum(), ScanFn() and ScanOp(). The global variable mode controls which routine is called next. There are two modes, SCAN_OPERAND and SCAN_OPERATOR. When mode is set to SCAN_OPERAND it expects the current location in the text to contain either a numerical substring; an operand such as x, c, Π etc.; a left hand parenthesis; or a substring denoting an external function, e.g., sin(x). The first situation is handled by ScanNum() which returns the number, in extended format, by address. The variable operand is then set to CONST_OPERAND to indicate that a numerical value has been stored in the variable num. ScanFn() deals with the other possibilities and returns an integer result, by address. If ScanFn() finds an operand, operand is set to either X_OPERAND, COEFF_OPERAND or PI_OPERAND to indicate what was found. If a coefficient was found, its offset from the start of the array coeff is stored in the variable offset (e.g. c is offset 20 bytes from the start of the array). If Π was found, num is set to the value of pi as determined by the SANE function pi(). If ScanFn() finds a unary function, e.g., unary minus, sin(x) etc., the integer result contains information about the unary operation (see below).

If mode is SCAN_OPERATOR, ScanOp() is called. This scans for a binary operator or a right hand parenthesis and returns an integer result, by address. All operations are ranked in an order of priority and are executed in order. The ranking depends on the priority of an operation and on how deeply it’s embedded in parentheses. Details about the pending operations are stored in the array operation[] as long integers. Operation[0] describes the oldest entry in the queue with more recent operations having higher index numbers. The long integer entries in the array operation contain the following information.

Operation Information

bits 31-16 level of parentheses

bits 15-12 relative priority of operation

bits 11-8 function type

bits 7-0 low byte of SANE opword

The parenthesis level is stored in the high word of the operation[] entry. The low word is the result returned by either ScanFn() or ScanOp(). The bits 15-12 contain the relative priority of the operation. All arithmetic operations and elementary functions are performed using the SANE software packages (see The Standard Apple Numerics Manual, 2nd Edition). Bits 11-8 indicate whether the operation will be handled by the fp68k package, elems68k package or by a customized unary function. If the operation is performed by the SANE software, then the least significant byte contains the low byte of the SANE opword. If the operation is a customized unary function, then bits 7-0 contain an index to an array of custom function pointers.

The routines OperandCode(), OperationCode(), UnOpCode(), BinOpCode1(), BinOpCode2(), ReturnCode1() and ReturnCode2() write MC68000 instructions into the block on the heap. OperandCode() sets up code to copy an operand into a stack frame used by the function. OperationCode() coordinates the routines that write instructions that invoke arithmetic or elementary functions. These routines (namely UnOpCode(), BinOpCode1() and BinOpCode2()) push the addresses of the operands onto the stack followed by the SANE opword. The package trap is then called and the mathematical operation is performed. UnOpCode(), BinOpCode1() and BinOpCode2() are commented with the symbolic assembler representations of the instructions that they write to the code block.

The functions ReturnCode1() and ReturnCode2() write instructions that copy the computed result to a location specified by the caller. Usually ReturnCode2() is called which copies the result from the stack frame. The purpose of ReturnCode1() is to write more efficient code for trivial functions such as eqnFn(x) = x. Rather than copy x into the stack frame and then back out to the result address, it copies x directly to the result address without setting up a stack frame.

Custom Unary Functions

Most of the mathematical functions you may need for your project are included in the SANE packages. However, you may need to define your own functions for use with the equation compiler. For example, you may need base-10 logarithm functions, inverse trigonometric or hyperbolic trigonometric functions etc. The file “CustomFn.c” contains two predefined custom functions. (Excuse the phrase “predefined custom”. It’s a bit like “military intelligence”.)

These are included to illustrate how you can customize the equation compiler. To add your own functions to the equation compiler you edit “CustomFn.c” in the following way. First, you must redefine the macro NUM_CF to the total number of custom functions in the file. Second, you need to declare the functions. Your custom functions must have the prototype:

extendedMyFunc(extended);

Third, the function pointers to your custom functions must be added to the array CFPtr[]. Similarly, pointers to the corresponding keyword strings must be included in the array CFKeyword[] with matching index numbers. Finally, you need to include the source code for your custom functions.

When the routine ScanFn() encounters one of your custom keywords it will cause UnOpCode() to write code to call your custom function. The custom functions already included are saneasin() and saneacos(). These are SANE versions of their ANSI counterparts asin() and acos() (see The Standard Apple Numerics Manual, 2nd Edition. Chapter 9). The ANSI functions return zero when they are passed an invalid argument whereas the SANE functions return a NAN (Not-A-Number) code.

SANE, the Code and the MC68881 Option

For complete compatibility with all machines, the code that is assembled by the equation compiler performs all of its calculations using 80 bit floating point data types with calls to the SANE packages. If the MC68881 coprocessor is available, the SANE packages will take advantage of its presence, otherwise they will do all the work themselves. The code that is assembled by the equation compiler does not take direct advantage of the MC68881 coprocessor, and so there is no advantage in enabling THINK C’s MC68881 option when compiling your project. However, you may have other reasons for setting this option in your project. The code in “EqnCompiler.c” is written so that it will compile correctly with this option, but bear the following comments in mind.

The MC68881 option sets the size of type double to 96 bits and the extended data type remains as 80 bits. The equation code that will be assembled at run time expects 80 bit (extended) arguments and returns an 80 bit (extended) result. This means a 96 bit interface must be defined to call the equation function (see below). Note that the array of coefficients must contain values in 80 bit extended format.

/* 3 */

extended(*eqnFn80)();/* ptr to 80 bit func */
double  eqnFn(double, extended *);

/* 96 bit interface function */
double  eqnFn(double x96, extended *coeff)
{
 extended x80, y80;
 double y96;

 /* convert x from 96 to 80 bits */
 x96tox80(&x96, &x80);
 /* 80 bit func */
 y80=(*eqnFn80)(x80, coeff);
 /* convert result from 80 to 96 bits */
 x80tox96(&y80, &y96);
 /* return 96 bit result */  
 return y96;
}

One other point to remember is that custom unary functions are expected to take an 80 bit (extended) and return an 80 bit (extended) result. Custom functions defined by you in “CustomFn.c” must conform to this requirement. The functions saneasin() and saneacos() manipulate extended variables as if they are doubles. While this is allowed without the MC68881 option, the compiler will report errors if this option is enabled. If you want to use the MC68881 option, you must rewrite or omit these two functions.

The Demo Program

To illustrate the use of EqnCompiler, I have written a small demonstration application. In order to keep it small I’ve programmed the visual interface as a dialog box, in this manner Dialog Manager handles most of the tedious work. The code for this application is listed in the files “Demo.c” and “Demo.h”. To put together the project you need to include the ANSI, MacTraps and SANE libraries.

The completed application allows you to type a string representing an equation into the field labelled “f(x) =”. The typed string, bar comments, is then compiled when the “Compile” button is clicked. The “Plot” button does the obvious. The equation that is plotted is the most recently compiled equation that is evaluated with the current coefficients (left hand fields). The range and domain of the plot are controlled by the bottom fields.

Figure 1: The demonstration program

For those assembly language programmers who’d like to see exactly what the assembled equation code looks like, I suggest modifying “Demo.c” to write the contents of the eqnCode block into a disk file. You can then open this file with a disassembler and see what’s going on. In fact this was how I debugged EqnCompiler. As you can imagine, writing a collection of numbers to the heap and then jumping to it can produce some nasty results.

I hope this equation compiler is of use to some of you number crunchers. In the process of writing this I’ve certainly learned a lot about SANE and assembly language. Enjoy.

Final Note

At the time of submission, a similar article appeared in MacTutor, see “A Practical Parser” Vol. 7, page 8. In this article Bill Murray describes a mathematical parser of his own. However, my parser differs in that it is integrated with a compiler. This allows efficient evaluation of an equation using fast compiled object code.

Listing:  EqnCompiler.h
/* EqnCompiler and Demonstration program. */
/* Written for THINK C, compile with MacHeaders */

/* Header file for EqnCompiler */

/* maximum number of pending operations */
#define MAX_PENDING20
/* maximum length for a numeric constant */
#define MAX_CONST_LEN20
/* maximum length for a custom keyword */
#define MAX_KWORD_LEN10

#define OPERAND_SCAN 1
#define OPERATOR_SCAN2
#define PARENTH  0
#define RANK0xFFFFF000
/* operands */
#define X_OPERAND0x1000
#define COEFF_OPERAND0x2000
#define CONST_OPERAND0x4000
#define PI_OPERAND 0x4000
/* operations - in order of priority */
#define PRIORITY_1 0x1000 /* add, subtract */
#define PRIORITY_2 0x2000 /* mult, divide */
#define UN_MINUS 0x3000 /* unary minus */
#define EXPONENT 0x4000 /* raise power */
#define UN_FUNC  0x5000 /* unary func */
/* function types */
#define FP68K    0x0100
#define ELEMS68K 0x0200
#define CUSTOM   0x0400

/* errors returned by CompileEqn() */
#define nullEqnErr 1
/* only white space chars found in text */
#define memoryErr2
/* problems allocating memory for code */
#define longNumErr 3
/* numeric constant too long */
#define badNumErr4
/* invalid numeric constant */
#define noOperandErr 5
/* expecting operand or function */
#define noOperatorErr6
/* missing operator */
#define badTokenErr7
/* unrecognized characters */
#define noLeftParenErr  8
/* missing left parenthesis in function */
#define unbalParenErr9
/* unbalanced parentheses */
#define tooManyOpErr 10
/* too many pending operations */
#define miscErr  11
/* other error */

/* function prototypes */
intCompileEqn(void *, int, int *, Handle);
intScanNum(extended *);
intScanFn(int *);
intScanOp(int *);
intOperationCode(int, int, int, extended *);
intOperandCode(int, int, extended *);
intUnOpCode(int);
intBinOpCode1(int, int, int);
intBinOpCode2(int);
intReturnCode1(int, int, extended *);
intReturnCode2(void);
intLookUpCF(char *, int *);
Listing:  EqnCompiler.c

/* Contains the equation compiler */

#include<ctype.h>
#include<SANE.h>
#include"EqnCompiler.h"

/* Global Variables */
static int**codeBlock; /* handle to code */
static char *textPtr; /* ptr to eqn text */
static inttextLen; /* length of eqn text */
static char mode; /* text scan mode */
static int*textIndex; /* current scan posn */
static intcodeIndex; /* current write posn */
static intframeIndex; /* stack frame posn */
static intframeSize; /* stack frame size */
extern ProcPtr CFPtr[]; /* custom func ptrs */

intCompileEqn(void *textBuff, int length, 
int *index, Handle codeHand)
{
 int  level=0; /* parenthesis level */
 int  operand=0; /* current operand type */
 int  offset; /* coeff offset from array ptr */
 long operation[MAX_PENDING]; /* stored operns */
 int  opIndex=0; /* next posn in operation[] */
 int  result, error;
 extended num;
 
 /* re-initialize globals */
 codeBlock = (int **) codeHand;
 textPtr = textBuff;
 textIndex = index;
 textLen = length;
 frameIndex = 0;
 frameSize = 0;
 mode = OPERAND_SCAN;
 
 SetHandleSize(codeBlock, 0); /* zero code blk */
 if (MemError()) return memoryErr;
 
 /* get first char, ignore white space chars */
 while (isspace(*(textPtr+*textIndex)) && 
 *textIndex<textLen) (*textIndex)++;
 if (*textIndex>=textLen || *(textPtr+*textIndex)==';')
 return nullEqnErr;
 
 /* code for setting up a stack frame */
 codeIndex = 2;
 SetHandleSize(codeBlock, 4);
 if (MemError()) return memoryErr;
 **codeBlock = 0x4E56; /* link A6,#-__ */
 /* fill in size of frame later */
 
 while (true) {
 if (mode == OPERAND_SCAN) {
 /* scan for operand or unary function */
 if ((*(textPtr+*textIndex)=='.') ||
 isdigit(*(textPtr+*textIndex))) {
 /* scan for numeric constant */
 if (operand) {
 /* copy old operand to frame */
 error = OperandCode(operand, offset, &num);
 if (error) return error;
 }
 error = ScanNum(&num);
 if (error) return error;
 operand = CONST_OPERAND;
 } else {
 /* scan for operand or unary function */
 error = ScanFn(&result);
 if (error) return error;
 switch (result & 0xF000) {
 case PARENTH: /* ( */
 level++; /* inc parenth level */
 break;
 case X_OPERAND: /* x */
 case COEFF_OPERAND: /* a, b, c   */
 case PI_OPERAND: /* Π */
 if (operand) {
 /* copy old operand to frame */
 error = OperandCode(operand, offset, &num);
 if (error) return error;
 }
 operand = result & 0xF000;
 if (operand == PI_OPERAND) num = pi();
 else if (operand == COEFF_OPERAND)
   offset = result & 0x00FF;
 break;
 case UN_MINUS: /* unary minus */
 case UN_FUNC: /* unary function */
 opIndex++;
 if (opIndex > MAX_PENDING)
 return tooManyOpErr;
 /* add operation to queue */
 operation[opIndex-1] = level*0x10000 + result;                
 if ((result & 0xF000) != UN_MINUS)
 level++; /* inc parenth level */
 }
 }
 } else if (mode == OPERATOR_SCAN) {
 /* scan for binary operator */
 error = ScanOp(&result);
 if (error) return error;
 if (result) { /* found operator */
 opIndex++;
 if (opIndex > MAX_PENDING)
 return tooManyOpErr;
 /* add operation to queue */
 operation[opIndex-1] = level*0x10000 + result;
 } else { /* ')' */
 level--; /* decrement parenth level */
 if (level < 0) return unbalParenErr;
 }
 }
 /* compact pending operation array */
 while (opIndex > 1) {
 if ((operation[opIndex-1]&RANK) <=
 (operation[opIndex-2]&RANK)) {
 error = OperationCode(operation[opIndex-2],
 operand, offset, &num); /* add opern to code */
 if (error) return error;
 operand = 0;
 /* remove operation from queue */
 operation[opIndex-2] = operation[opIndex-1];
 opIndex--;
 } else break;
 }
 /* get next token, ignore white space chars */
 while (isspace(*(textPtr+*textIndex)) &&
 *textIndex<textLen) (*textIndex)++;
 if (*textIndex>=textLen || *(textPtr+*textIndex)==';') {
 if (mode==OPERAND_SCAN)
 return noOperandErr;
 else break;
 }
 }
 
 /* add pending operations to code */
 while (opIndex > 0) {
 error = OperationCode(operation[opIndex-1],
 operand, offset, &num);
 if (error) return error;
 operand = 0;
 opIndex--; /* remove opern from queue */
 }
 
 if (level) return unbalParenErr;
 /* set frame size of initial link instrn */
 *(*codeBlock+1) = -10*frameSize;

 if (operand) /* code for return value */
 error = ReturnCode1(operand, offset, &num);
 else error = ReturnCode2();
 if (error) return error;
 codeIndex += 2; /* unlink and rts code */
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 *(*codeBlock+codeIndex-2)=0x4E5E; /* unlk A6 */
 *(*codeBlock+codeIndex-1)=0x4E75; /* rts */
 return 0;
}

/* scan the text for a number */
intScanNum(extended *num)
{
 int    i=0;
 char   valid;
 char   str[MAX_CONST_LEN+1]; /* C str */
 short  index;
 decimaldec;
 
 do { /* find longest valid numeric string */
 if (i>=MAX_CONST_LEN) return longNumErr;
 str[i] = *(textPtr+*textIndex+i);
 str[i+1] = 0; /* NULL terminator */
 index = 0;
 cstr2dec(str, &index, &dec, &valid);
 if (!valid) break;
 i++;
 if (*textIndex+i>=textLen || *(textPtr+*textIndex+i)==';') break;
 } while (valid);
 
 if (!index) return badNumErr;
 *num = dec2num(&dec);
 if (classextended(*num)<3 && classextended(*num)>-3)
 return badNumErr; /* NAN, INF */
 *textIndex += index;
 mode = OPERATOR_SCAN;
 return 0;
}

/* scan text for operand or function */
intScanFn(int *result)
{
 char str[MAX_KWORD_LEN+1]; /* pascal str */
 int  error, i=0;
 
 /* get longest alphabetic substring */
 while (isalpha(*(textPtr+*textIndex+i))) {
 if (i>MAX_KWORD_LEN) return badTokenErr;
 str[i+1] = *(textPtr+*textIndex+i);
 i++;
 if (*textIndex+i>=textLen || *(textPtr+*textIndex+i)==';') break;
 }
 
 str[0] = i; /* length byte */
 switch (i) {
 /* match string against expected strings */
 case 0: /* first char was not alphabetic */
 if (*(textPtr+*textIndex) == '-')
 /* unary minus */
 *result = UN_MINUS+FP68K+(FNEGX&0x00FF);
 else if (*(textPtr+*textIndex) == '(')
 *result = PARENTH; /* '(' */
 else if (*(textPtr+*textIndex) == 'Π' ||
 *(textPtr+*textIndex) == '½') {
 *result = PI_OPERAND; /* pi */
 mode = OPERATOR_SCAN;
 } else return noOperandErr;
 (*textIndex)++;
 return 0;
 case 1: /* single alphabetic character */
 if (tolower(str[1]) >= 'a' && tolower(str[1]) <= 'e') {
 /* coefficient */
 switch (tolower(str[1])) {
 case 'a':
 *result = COEFF_OPERAND;
 break;
 case 'b':
 *result = COEFF_OPERAND + 10;
 break;
 case 'c':
 *result = COEFF_OPERAND + 20;
 break;
 case 'd':
 *result = COEFF_OPERAND + 30;
 break;
 case 'e':
 *result = COEFF_OPERAND + 40;
 }
 } else if (tolower(str[1]) == 'x')
 *result = X_OPERAND; /* x */
 else goto lookup; /* custom func? */
 (*textIndex)++;
 mode = OPERATOR_SCAN;
 return 0;
 case 2: /* two alphabetic characters */
 if (EqualString(str, "\ppi", false, true))
 *result = PI_OPERAND; /* pi */
 else goto lookup; /* custom func? */
 *textIndex += 2;
 mode = OPERATOR_SCAN;
 return 0;
 case 3: /* three alphabetic characters */
 if (EqualString(str, "\psin", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FSINX&0x00FF);
 else if (EqualString(str, "\pcos", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FCOSX&0x00FF);
 else if (EqualString(str, "\ptan", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FTANX&0x00FF);
 else if (EqualString(str, "\plog", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FLNX&0x00FF);
 else if (EqualString(str, "\pexp", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FEXPX&0x00FF);
 else goto lookup; /* custom func? */
 break;
 case 4: /* four alphabetic characters */
 if (EqualString(str, "\psqrt", 0, 1))
 *result = UN_FUNC+FP68K+(FSQRTX&0x00FF);
 else if (EqualString(str, "\patan", 0, 1))
 *result = UN_FUNC+ELEMS68K+(FATANX&0x00FF);
 else goto lookup; /* custom func? */
 break;
 default: /* other string lengths */
 lookup: /* custom func? */
 error = LookUpCF(str, result);
 if (error) return error;
 }

 /* check next char is '(' */
 while (isspace(*(textPtr+*textIndex+i)) &&
 *textIndex+i<textLen) i++;
 if (*textIndex+i>=textLen || *(textPtr+*textIndex+i)==';' ||
 *(textPtr+*textIndex+i)!='(')
 return noLeftParenErr;
 *textIndex += i+1;
 return 0;
}

/* scan text for an operator */
intScanOp(int *result)
{
 switch (*(textPtr+*textIndex)) {
 case '+': /* addition */
 *result = PRIORITY_1+FP68K+(FADDX&0x00FF);
 break;
 case '-': /* subtraction */
 *result = PRIORITY_1+FP68K+(FSUBX&0x00FF);
 break;
 case '*': /* multiplication */
 *result = PRIORITY_2+FP68K+(FMULX&0x00FF);
 break;
 case '/': /* division */
 *result = PRIORITY_2+FP68K+(FDIVX&0x00FF);
 break;
 case '^': /* exponentiation */
 *result = EXPONENT+ELEMS68K+(FXPWRY&0x00FF);
 break;
 case ')': /* end of parenthesis */
 *result = PARENTH;
 break;
 default: /* syntax error */
 return noOperatorErr;
 }

 /* don't change mode if ')' encountered */
 if (*result != PARENTH) mode = OPERAND_SCAN;
 (*textIndex)++;
 return 0;
}

/* classify operation, call handler routines */
intOperationCode(int operation, int operand, 
int offset, extended *numPtr)
{
 int  error;
 
 if ((operation&0xF000) == UN_MINUS ||
 (operation&0xF000) == UN_FUNC) {
 /* unary operation */
 if (operand) {
 error = OperandCode(operand, offset, numPtr);
 if (error) return error;
 }
 error = UnOpCode(operation);
 if (error) return error;
 } else {
 /* binary operation */
 if (operand == X_OPERAND || operand == COEFF_OPERAND) {
 error = BinOpCode1(operation, operand, offset);
 if (error) return error;
 } else {
 if (operand == CONST_OPERAND) {
 error = OperandCode(CONST_OPERAND, 0, numPtr);
 if (error) return error;
 }
 error = BinOpCode2(operation);
 if (error) return error;
 }
 }
 return 0;
}

/* set up code for copying operand into stack frame */
intOperandCode(int operand,  int offset, extended *numPtr)
{
 frameIndex++;
 if (frameIndex>frameSize) frameSize=frameIndex;
 if (operand == X_OPERAND) {
 codeIndex += 7;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* lea.l -10fi(A6),A0; A0 <- frame_adr */
 *(*codeBlock+codeIndex-7) = 0x41EE;
 *(*codeBlock+codeIndex-6) = -10*frameIndex;
 /* lea.l 12(A6),A1; A1 <- x_adr */
 *(*codeBlock+codeIndex-5) = 0x43EE;
 *(*codeBlock+codeIndex-4) = 0x000C;
 /* move.l (A1)+,(A1)+; copy x into frame */
 *(*codeBlock+codeIndex-3) = 0x20D9;
 /* move.l (A1)+,(A1)+ */
 *(*codeBlock+codeIndex-2) = 0x20D9;
 /* move.w (A1)+,(A1)+ */
 *(*codeBlock+codeIndex-1) = 0x30D9;
 } else if (operand == COEFF_OPERAND) {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 22(A6),A0; A0 <- coeff base adr */
 *(*codeBlock+codeIndex-2) = 0x206E;
 *(*codeBlock+codeIndex-1) = 0x0016;
 if (offset) {
 codeIndex += 3;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l off(A0),-10fi(A6); copy coeff */
 *(*codeBlock+codeIndex-3) = 0x2D68;
 *(*codeBlock+codeIndex-2) = offset;
 *(*codeBlock+codeIndex-1) = -10*frameIndex;
 } else {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l (A0),-10fi(A6); copy coeff */
 *(*codeBlock+codeIndex-2) = 0x2D50;
 *(*codeBlock+codeIndex-1) = -10*frameIndex;
 }
 codeIndex += 6;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l off+4(A0),-10fi+4(A6); copy coeff */
 *(*codeBlock+codeIndex-6) = 0x2D68;
 *(*codeBlock+codeIndex-5) = offset+4;
 *(*codeBlock+codeIndex-4) = -10*frameIndex+4;
 /* move.w off+8(A0),-10fi+8(A6); copy coeff */
 *(*codeBlock+codeIndex-3) = 0x3D68;
 *(*codeBlock+codeIndex-2) = offset+8;
 *(*codeBlock+codeIndex-1) = -10*frameIndex+8;
 } else if (operand == CONST_OPERAND) {
 codeIndex += 11;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l #__,-10fi(A6); frame <- const */
 *(*codeBlock+codeIndex-11) = 0x2D7C;
 *(*codeBlock+codeIndex-10) = *((int *) numPtr);
 *(*codeBlock+codeIndex-9) = *((int *) numPtr+1);
 *(*codeBlock+codeIndex-8) = -10*frameIndex;
 /* move.l #__,-10fi+4(A6) */
 *(*codeBlock+codeIndex-7) = 0x2D7C;
 *(*codeBlock+codeIndex-6) = *((int *) numPtr+2);
 *(*codeBlock+codeIndex-5) = *((int *) numPtr+3);
 *(*codeBlock+codeIndex-4) = -10*frameIndex+4;
 /* move.w #__,-10fi+8(A6) */
 *(*codeBlock+codeIndex-3) = 0x3D7C;
 *(*codeBlock+codeIndex-2) = *((int *) numPtr+4);
 *(*codeBlock+codeIndex-1) = -10*frameIndex+8;
 } else return miscErr;
 
return 0;
}

/* write code for unary function, operand in stack frame */
intUnOpCode(int operation)
{
 if (!frameIndex) return miscErr;
 if ((operation&0x0F00)==FP68K ||
 (operation&0x0F00)==ELEMS68K) { /* SANE func */
 codeIndex += 5;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* pea.l -10fi(A6); push operand_adr */
 *(*codeBlock+codeIndex-5) = 0x486E;
 *(*codeBlock+codeIndex-4) = -10*frameIndex;
 /* move.w opword, -(A7); push SANE opword */
 *(*codeBlock+codeIndex-3) = 0x3F3C;
 *(*codeBlock+codeIndex-2) = operation&0x00FF;
 if ((operation&0x0F00) == FP68K)
 *(*codeBlock+codeIndex-1)=0xA9EB;/* _Pack4 */
 else if ((operation&0x0F00) == ELEMS68K)
 *(*codeBlock+codeIndex-1)=0xA9EC;/* _Pack5*/
 else return miscErr;
 } else if ((operation&0x0F00) == CUSTOM) {
 /* custom unary function */
 codeIndex += 14;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l -10fi+6(A6),-(A7); push operand */
 *(*codeBlock+codeIndex-14) = 0x2F2E;
 *(*codeBlock+codeIndex-13) = -10*frameIndex+6;
 /* move.l -10fi+2(A6),-(A7) */
 *(*codeBlock+codeIndex-12) = 0x2F2E;
 *(*codeBlock+codeIndex-11) = -10*frameIndex+2;
 /* move.w -10fi(A6),-(A7) */
 *(*codeBlock+codeIndex-10) = 0x3F2E;
 *(*codeBlock+codeIndex-9) = -10*frameIndex;
 /* pea.l -10fi(A6); push result adr */
 *(*codeBlock+codeIndex-8) = 0x486E;
 *(*codeBlock+codeIndex-7) = -10*frameIndex;
 /* move.l #__,A0; A0 <- func_adr */
 *(*codeBlock+codeIndex-6) = 0x207C;
 *(*codeBlock+codeIndex-5) =
 HiWord((long) CFPtr[operation&0x00FF]);
 *(*codeBlock+codeIndex-4) =
 LoWord((long) CFPtr[operation&0x00FF]);
 /* jsr (A0); jump to func */
 *(*codeBlock+codeIndex-3) = 0x4E90;
 /* lea.l 14(A7),A7; reset stack ptr */
 *(*codeBlock+codeIndex-2) = 0x4FEF;
 *(*codeBlock+codeIndex-1) = 0x000E;
 } else return miscErr;
 return 0;
}

/* set up binary operation code - only destination operand in stack frame 
*/
intBinOpCode1(int operation, int operand, int offset)
{
 if (frameIndex < 1) return miscErr;
 if (operand == X_OPERAND) {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* pea.l 12(A6); push x_adr */
 *(*codeBlock+codeIndex-2) = 0x486E;
 *(*codeBlock+codeIndex-1) = 0x000C;
 } else if (operand == COEFF_OPERAND) {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 22(A6),A0; A0 <- coeff base adr */
 *(*codeBlock+codeIndex-2) = 0x206E;
 *(*codeBlock+codeIndex-1) = 0x0016;
 if (offset) {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* pea.l off(A0); push coeff_adr */
 *(*codeBlock+codeIndex-2) = 0x4868;
 *(*codeBlock+codeIndex-1) = offset;
 } else {
 codeIndex++;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* pea.l (A0); push coeff_adr */
 *(*codeBlock+codeIndex-1) = 0x4850;
 }
 } else return miscErr;
 codeIndex += 5;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /*  pea.l -10fi(A6); push dest_adr  */
 *(*codeBlock+codeIndex-5) = 0x486E;
 *(*codeBlock+codeIndex-4) = -10*frameIndex;
 if ((operation&0xF000) == EXPONENT) {
 /* move.w FXPWRY,-(A7); push FXPWRY */
 *(*codeBlock+codeIndex-3) = 0x3F3C;
 *(*codeBlock+codeIndex-2) = FXPWRY;
 *(*codeBlock+codeIndex-1)=0xA9EC;/* _Pack5 */
 } else if ((operation&0x0F00) == FP68K) {

 /* move.w opword,-(A7); push SANE opword */
 *(*codeBlock+codeIndex-3) = 0x3F3C;
 *(*codeBlock+codeIndex-2) = operation&0x00FF;
 *(*codeBlock+codeIndex-1)=0xA9EB;/* _Pack4 */
 } else return miscErr;
 return 0;
}

/* set up binary operation code - both operands are in stack frame */
intBinOpCode2(int operation)
{
 if (frameIndex < 2) return miscErr;
 codeIndex += 7;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* pea.l -10fi(A6); push src operand */
 *(*codeBlock+codeIndex-7) = 0x486E;
 *(*codeBlock+codeIndex-6) = -10*frameIndex;
 /* pea.l -10fi+10(A6); push dest operand */
 *(*codeBlock+codeIndex-5) = 0x486E;
 *(*codeBlock+codeIndex-4) = -10*frameIndex+10;
 if ((operation&0xF000) == EXPONENT) {
 /* move.w FXPWRY,-(A7); push FXWPRY */
 *(*codeBlock+codeIndex-3) = 0x3F3C;
 *(*codeBlock+codeIndex-2) = FXPWRY;
 *(*codeBlock+codeIndex-1)=0xA9EC;/* _Pack5 */
 } else if ((operation&0x0F00) == FP68K) {
 /* move.w opword,-(A7); push SANE opword */
 *(*codeBlock+codeIndex-3) = 0x3F3C;
 *(*codeBlock+codeIndex-2) = operation&0x00FF;
 *(*codeBlock+codeIndex-1)=0xA9EB;/* _Pack4 */
 } else return miscErr;
 frameIndex--; /* decrement frame position */
 return 0;
}

/* copy operand to address specified by 8(A6) */
intReturnCode1(int operand, int offset, extended *numPtr)
{
 if (operand == CONST_OPERAND) {
 codeIndex += 10;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 8(A6),A0; A0 <- result_adr */
 *(*codeBlock+codeIndex-10) = 0x206E;
 *(*codeBlock+codeIndex-9) = 0x0008;
 /* move.l #__,(A0)+; copy const to result_adr */
 *(*codeBlock+codeIndex-8) = 0x20FC;
 *(*codeBlock+codeIndex-7) = *((int *) numPtr);
 *(*codeBlock+codeIndex-6) = *((int *) numPtr+1);
 /* move.l #__,(A0)+ */
 *(*codeBlock+codeIndex-5) = 0x20FC;
 *(*codeBlock+codeIndex-4) = *((int *) numPtr+2);
 *(*codeBlock+codeIndex-3) = *((int *) numPtr+3);
 /* move.w #__,(A0)+ */
 *(*codeBlock+codeIndex-2) = 0x30FC;
 *(*codeBlock+codeIndex-1) = *((int *) numPtr+4);
 return 0;
 } else if (operand == X_OPERAND) {
 codeIndex += 4;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 8(A6),A0; A0 <- result_adr */
 *(*codeBlock+codeIndex-4) = 0x206E;
 *(*codeBlock+codeIndex-3) = 0x0008;
 /* lea.l 12(A6),A1; A1 <- x_adr */
 *(*codeBlock+codeIndex-2) = 0x43EE;
 *(*codeBlock+codeIndex-1) = 0x000C;
 } else if (operand == COEFF_OPERAND) {
 codeIndex += 4;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 8(A6),A0; A0 <- result_adr */
 *(*codeBlock+codeIndex-4) = 0x206E;
 *(*codeBlock+codeIndex-3) = 0x0008;
 /* move.l 22(A6),A1; A1 <- coeff base Adr */
 *(*codeBlock+codeIndex-2) = 0x226E;
 *(*codeBlock+codeIndex-1) = 0x0016;
 if (offset) {
 codeIndex += 2;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* lea.l off(A1),A1; A1 <- coeff_adr */
 *(*codeBlock+codeIndex-2) = 0x43E9;
 *(*codeBlock+codeIndex-1) = offset;
 }
 } else return miscErr;
 codeIndex += 3;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l (A1)+,(A0)+; copy operand to result */
 *(*codeBlock+codeIndex-3) = 0x20D9;
 /* move.l (A1)+,(A0)+ */
 *(*codeBlock+codeIndex-2) = 0x20D9;
 /* move.w (A1)+,(A0)+ */
 *(*codeBlock+codeIndex-1) = 0x30D9;
 return 0;
}

/* copy result to address in 8(A6) */
intReturnCode2(void)
{
 codeIndex += 7;
 SetHandleSize(codeBlock, 2*codeIndex);
 if (MemError()) return memoryErr;
 /* move.l 8(A6),A0; A0 <- result_adr */
 *(*codeBlock+codeIndex-7) = 0x206E;
 *(*codeBlock+codeIndex-6) = 0x0008;
 /* lea.l -10(A6),A1; A1 <- frame_adr */
 *(*codeBlock+codeIndex-5) = 0x43EE;
 *(*codeBlock+codeIndex-4) = 0xFFF6;
 /* move.l (A1)+,(A0)+; copy frame to result */
 *(*codeBlock+codeIndex-3) = 0x20D9;
 /* move.l (A1)+,(A0)+ */
 *(*codeBlock+codeIndex-2) = 0x20D9;
 /* move.w (A1)+,(A0)+ */
 *(*codeBlock+codeIndex-1) = 0x30D9;
 return 0;
}
Listing:  Demo.c

/* Code for demo program */

#include<SANE.h>
#include"Demo.h"
#include"EqnCompiler.h"

/* Global Variables */
Handle  eqnCode; /* handle to block of code */
char    **eqnText; /* handle to eqn text */
extended(*eqnFn)(); /* func ptr to eqn code */
extendedcoeff[5]; /* array of coefficients */
extendedminX, maxX, minY, maxY; /* plot range */
DialogPtr eqnDialog; /* dialog pointer */
CursHandleiBeam, watch;

main()
{
 Handle userItemH;
 int    i, type, itemHit, error, index;
 Rect   rect;
 
 InitStuff();
 /* get dialog */
 eqnDialog = GetNewDialog(300, NULL, (WindowPtr) -1);
 /* get handle to eqn text */
 GetDItem(eqnDialog, FUNCTION, &type, &eqnText, &rect);
 /* get user item (plot frame) */
 GetDItem(eqnDialog, FRAME, &type, &userItemH, &rect);
 /* install user item */
 SetDItem(eqnDialog, FRAME, type, FramePlot, &rect);
 /* centre window on screen */
 MoveWindow(eqnDialog, (screenBits.bounds.right-
 screenBits.bounds.left - 490)/2, 45, true);
 ShowWindow(eqnDialog);
 SetPort(eqnDialog);
 
 do {
 ModalDialog(DialogFilter, &itemHit);
 if (itemHit == COMPILE) { /* compile eqn */
 /* Code block should be unlocked and */
 /* eqn text buffer should be locked. */
 HUnlock(eqnCode);
 HLock(eqnText);
 index = 0; /* parse text from start */
 error = CompileEqn(*eqnText, GetHandleSize(eqnText),
 &index, eqnCode);
 if (error) {
 /* position of error is in index */
 SelIText (eqnDialog, FUNCTION, index, index);
 /* put up alert to explain error */
 SyntaxErr(error);
 eqnFn = NULL; /* null function ptr */
 } else {
 SelIText (eqnDialog, FUNCTION, 0, 0);
 /* compiled OK, lock code block and */
 /* dereference to get address of func */
 HLock(eqnCode);
 eqnFn = (void *) *eqnCode;
 }
 } else if (itemHit == PLOT) { /* plot eqn */
 /* update coefficients array */
 for (i=0; i<5; i++)
 coeff[i] = GetEditField(COEFF_A + i);
 /* update plot range */
 minX = GetEditField(MIN_X);
 maxX = GetEditField(MAX_X);
 minY = GetEditField(MIN_Y);
 maxY = GetEditField(MAX_Y);
 PlotEqn();
 }
 } while (itemHit != QUIT);
 
 DisposDialog(eqnDialog); /* tidy up & leave */
 HUnlock(eqnCode);
}

/* Plot the equation */
void  PlotEqn(void)
{
 extended x, y, vert;
 int    hPos=0, lastvPos, vPos;
 char   skip=2;
 Rect   plotRect, bigRect;
 
 if (!eqnFn) return; /* invalid function */
 if ((minX >= maxX) || (minY >= maxY))
 return; /* invalid plot range */
 SetRect(&plotRect, 170, 59, 470, 230);
 EraseRect(&plotRect); /* clear plot area */
 ClipRect(&plotRect); /* new clip region */
 SetCursor(*watch);
 
 do {
 /* calculate x */
 x = minX + (maxX - minX)*hPos/300.0;
 y = (*eqnFn)(x, coeff); /* calculate y */
 if (fabs(classextended(y)) < 2)
 skip = 2; /* y is a NAN */
 else { /* get new Y screen coord */
 lastvPos = vPos; /* save last Y coord */
 vert = rint(170*(maxY-y)/(maxY-minY));
 /* pin extreme values to window's edge */
 if (vert+59>eqnDialog->portRect.bottom)
 vPos = eqnDialog->portRect.bottom-59;
 else if (vert+59<eqnDialog->portRect.top)
 vPos = eqnDialog->portRect.top-59;
 else vPos = vert;
 if (y >= minY && y <= maxY) {
 /* y is in range */
 if (skip < 2) /* last y was not NAN */
 LineTo(170+hPos, 59+vPos);
 else MoveTo(170+hPos, 59+vPos);
 skip = 0;
 } else { /* y is out of range */
 if (!skip) /* last point was in range */
 LineTo(170+hPos, 59+vPos);
 else MoveTo(170+hPos, 59+vPos);
 skip = 1;
 }
 }
 } while ((hPos += 2) <= 300);
 
 SetRect(&bigRect, -32767, -32767, 32767, 32767);
 ClipRect(&bigRect); /* reset clip rect */
}
pascal Boolean DialogFilter(DialogPtr theDialog,
 EventRecord *theEvent, int *itemHit)
{
 Point  mousePt;
 int    item, type;
 char   c;
 Rect   rect;
 Handle hand;
 TEHandle dialogTE;
 
 if (theEvent->what == keyDown) {
 /* disable clear, enter keys in all fields */
 c = theEvent->message & charCodeMask;
 if (c == CLEAR_KEY || c == ENTER)
 return true;
 if (((DialogPeek) theDialog)->editField + 1
 == FUNCTION) {
 /* current edit field is function */
 if (c == TAB) {
 /* override default tab behaviour */
 dialogTE = ((DialogPeek) theDialog)->textH;
 TEKey(TAB, dialogTE);
 return true;
 }
 } else if (c == RETURN)
 /* disable return in other fields */
 return true;
 }
 
 /* set cursor as appropriate */
 GetMouse(&mousePt);
 item = 1 + FindDItem(theDialog, mousePt);
 if (item) {
 GetDItem(theDialog, item, &type, &hand, &rect);
 if (type == editText) SetCursor(*iBeam);
 else InitCursor();
 } else InitCursor();

 return false;
}
 
AAPL
$111.78
Apple Inc.
-0.87
MSFT
$47.66
Microsoft Corpora
+0.14
GOOG
$516.35
Google Inc.
+5.25

MacTech Search:
Community Search:

Software Updates via MacUpdate

CleanApp 5.0.0 Beta 5 - Application dein...
CleanApp is an application deinstaller and archiver.... Your hard drive gets fuller day by day, but do you know why? CleanApp 5 provides you with insights how to reclaim disk space. There are... Read more
Monolingual 1.6.2 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. It requires a 64-bit capable Intel-based Mac and at least... Read more
NetShade 6.1 - Browse privately using an...
NetShade is an Internet security tool that conceals your IP address on the web. NetShade routes your Web connection through either a public anonymous proxy server, or one of NetShade's own dedicated... Read more
calibre 2.13 - Complete e-library manage...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
Mellel 3.3.7 - Powerful word processor w...
Mellel is the leading word processor for OS X and has been widely considered the industry standard since its inception. Mellel focuses on writers and scholars for technical writing and multilingual... Read more
ScreenFlow 5.0.1 - Create screen recordi...
Save 10% with the exclusive MacUpdate coupon code: AFMacUpdate10 Buy now! ScreenFlow is powerful, easy-to-use screencasting software for the Mac. With ScreenFlow you can record the contents of your... Read more
Simon 4.0 - Monitor changes and crashes...
Simon monitors websites and alerts you of crashes and changes. Select pages to monitor, choose your alert options, and customize your settings. Simon does the rest. Keep a watchful eye on your... Read more
BBEdit 11.0.2 - Powerful text and HTML e...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more
ExpanDrive 4.2.1 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Adobe After Effects CC 2014 13.2 - Creat...
After Effects CC 2014 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous After Effects customer). After Effects CS6 is still available... Read more

Latest Forum Discussions

See All

Make your own Tribez Figures (and More)...
Make your own Tribez Figures (and More) with Toyze Posted by Jessica Fisher on December 19th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
So Many Holiday iOS Sales Oh My Goodness...
The holiday season is in full-swing, which means a whole lot of iOS apps and games are going on sale. A bunch already have, in fact. Naturally this means we’re putting together a hand-picked list of the best discounts and sales we can find in order... | Read more »
It’s Bird vs. Bird in the New PvP Mode f...
It’s Bird vs. Bird in the New PvP Mode for Angry Birds Epic Posted by Jessica Fisher on December 19th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Telltale Games and Mojang Announce Minec...
Telltale Games and Mojang Announce Minecraft: Story Mode – A Telltale Games Series Posted by Jessica Fisher on December 19th, 2014 [ permalink ] | Read more »
WarChest and Splash Damage Annouce Their...
WarChest and Splash Damage Annouce Their New Game: Tempo Posted by Jessica Fisher on December 19th, 2014 [ permalink ] WarChest Ltd and Splash Damage Ltd are teaming up again to work | Read more »
BulkyPix Celebrates its 6th Anniversary...
BulkyPix Celebrates its 6th Anniversary with a Bunch of Free Games Posted by Jessica Fisher on December 19th, 2014 [ permalink ] BulkyPix has | Read more »
Indulge in Japanese cuisine in Cooking F...
Indulge in Japanese cuisine in Cooking Fever’s new sushi-themed update Posted by Simon Reed on December 19th, 2014 [ permalink ] Lithuanian developer Nordcurrent has yet again updated its restaurant simulat | Read more »
Badland Daydream Level Pack Arrives to C...
Badland Daydream Level Pack Arrives to Celebrate 20 Million Downloads Posted by Ellis Spice on December 19th, 2014 [ permalink ] | Read more »
Far Cry 4, Assassin’s Creed Unity, Desti...
Far Cry 4, Assassin’s Creed Unity, Destiny, and Beyond – AppSpy Takes a Look at AAA Companion Apps Posted by Rob Rich on December 19th, 2014 [ permalink ] These day | Read more »
A Bunch of Halfbrick Games Are Going Fre...
A Bunch of Halfbrick Games Are Going Free for the Holidays Posted by Ellis Spice on December 19th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »

Price Scanner via MacPrices.net

The Apple Store offering free next-day shippi...
The Apple Store is now offering free next-day shipping on all in stock items if ordered before 12/23/14 at 10:00am PT. Local store pickup is also available within an hour of ordering for any in stock... Read more
It’s 1992 Again At Sony Pictures, Except For...
Techcrunch’s John Biggs interviewed a Sony Pictures Entertainment (SPE) employee, who quite understandably wished to remain anonymous, regarding post-hack conditions in SPE’s L.A office, explaining “... Read more
Holiday sales this weekend: MacBook Pros for...
 B&H Photo has new MacBook Pros on sale for up to $300 off MSRP as part of their Holiday pricing. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1699... Read more
Holiday sales this weekend: MacBook Airs for...
B&H Photo has 2014 MacBook Airs on sale for up to $120 off MSRP, for a limited time, for the Thanksgiving/Christmas Holiday shopping season. Shipping is free, and B&H charges NY sales tax... Read more
Holiday sales this weekend: iMacs for up to $...
B&H Photo has 21″ and 27″ iMacs on sale for up to $200 off MSRP including free shipping plus NY sales tax only. B&H will also include a free copy of Parallels Desktop software: - 21″ 1.4GHz... Read more
Holiday sales this weekend: Mac minis availab...
B&H Photo has new 2014 Mac minis on sale for up to $80 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 1.4GHz Mac mini: $459 $40 off MSRP - 2.6GHz Mac mini: $629 $70 off MSRP... Read more
Holiday sales this weekend: Mac Pros for up t...
B&H Photo has Mac Pros on sale for up to $500 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2599, $400 off MSRP - 3.5GHz 6-core Mac Pro: $3499, $... Read more
Save up to $400 on MacBooks with Apple Certif...
The Apple Store has Apple Certified Refurbished 2014 MacBook Pros and MacBook Airs available for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Save up to $300 on Macs, $30 on iPads with Ap...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
iOS and Android OS Targeted by Man-in-the-Mid...
Cloud services security provider Akamai Technologies, Inc. has released, through the company’s Prolexic Security Engineering & Research Team (PLXsert), a new cybersecurity threat advisory. The... Read more

Jobs Board

*Apple* Store Leader Program (US) - Apple, I...
…Summary Learn and grow as you explore the art of leadership at the Apple Store. You'll master our retail business inside and out through training, hands-on experience, Read more
Project Manager, *Apple* Financial Services...
**Job Summary** Apple Financial Services (AFS) offers consumers, businesses and educational institutions ways to finance Apple purchases. We work with national and Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.