TweetFollow Us on Twitter

MPW Calculator
Volume Number:9
Issue Number:1
Column Tag:Jörg's Folder

MPW Calculator Tool in C++

An MPW tool written in bare bones C++ - not with MacApp.

By Jörg Langowski, MacTech Magazine Regular Contributing Author

Note: Source code files accompanying this article are located on MacTech CD-ROM or source code disks.

After a long break, you’ll find another C++ example in my column. Not with MacApp - we’re going back to the basics here and show a simple ‘bare C++’ program that executes as an MPW tool, or in the Simple Input/Output Window environment (SIOW) provided by Apple.

I came across this example reading a book on C++, “Programming in C++”, by Stephen Dewhurst and Kathy Stark (1989, Prentice Hall). I very much recommend this book for those of you who want to get the basic notions of C++ and an idea of its ‘programming flavor’. It may be not as comprehensive as the “C++ programming language” by Stroustrup (Addison-Wesley), or as the manuals that come with Apple’s C++ compiler; but it contains a lot of examples and exercises.

One classic exercise in computer science is to write a parser for algebraic expressions, that is, a program that takes an input string like

(3 + 5) * (-4 + (2 - 9))

and calculates the result of this expression. In fact, what you do to compute that expression is to convert it into an internal representation, and then evaluate that representation.

You can represent the expression given above by a linked list:

where each node of the list either contains an operator or a number. Once the arithmetic expression is given in list form, evaluating it is easy and can be done in a straightforward, object oriented way. Suppose you define a class node (also in listing):

class node {
 protected:
 
 node() {}
 public:
 virtual ~node() {}
 virtual int set (int)
 { cout << "Error: node::set(int) undefined" << eoln;
  return 0;} 
 virtual int eval() 
 { cout << "Error: node::eval() undefined" << eoln; 
 return 0;} 
};

where the constructor and destructor do nothing at the moment; they will have to be overridden by the derived node classes. There are two more virtual methods: eval(), which returns the value of the node, and set(), which can ‘set something’ in the node if defined in a subclass. For the base class, the methods just print error messages and return zero. These methods will be overridden, and they are virtual because we want their behavior to be determined at run time. That is, if we define a pointer mynode *node and assign it an object of a subclass of node, the actual eval() or set() methods used will be the ones corresponding to the subclass of the object that the pointer contains.

We now define two types of subclasses of node: dyadic operators and other stuff. All dyadic operators will be derived from the subclass :

class dyad : public node {
 protected:
 node *left, *right;
 dyad(node *l, node *r) {left=l; right=r;}
 ~dyad() {delete left; delete right;}
};

dyad only defines the two nodes that the operator connects: the constructor assigns these two nodes to two instance variables, and the destructor deletes them again. The classes derived from dyad define the four arithmetic operations, and the assignment (see listing). For example, addition is defined as:

class plus : public dyad {
 public:
 plus(node *l, node *r) : dyad(l,r) {}
 int eval() { return left->eval() + right->eval();} 
};

where the constructor just calls the superclass constructor, and

eval() returns the value of the sum of the values of the left and right hand side of the plus operation.

For the ‘expression tree’ shown above, you need one more class: numbers, which are ‘end nodes’ of the list. Thus, they do not contain pointers to other nodes, but an integer value in an instance variable. Their constructor assigns the value, and their eval() method simply returns it:

class inumber : public node {
 int value;
 public:
 inumber(int v) {value = v;}
 int eval() {return value;}
};

Finally, the unary minus operator (uminus in the listing) will return the negative value of the node that it points to.

The listing contains two more node classes: variables (id) and the assignment operator (equals), Variables contain a pointer to the head of a symbol table, and a pointer to the entry of this variable into the symbol table. The symbol table is a linked list of entries, and the pointer to its head is a static class variable. This means that, unlike instance variables, the pointer is not created again for every object of the class, but only one copy exists. Thus, all objects of this class reference the same symbol table, which is just what you want.

Assume we create a new node for a variable with its name given by the *char pointer nm. The constructor then first looks up the name in the symbol table (see listing, method look); if it is already there, it will put a pointer to the symbol table entry in the instance variable ent of the node. Otherwise, it will add a new entry to the symbol table, put its pointer into ent, make the new entry the head of the list, and change the (static) pointer so that it references the new head. All other variable objects will now have an updated reference to the symbol table.

A variable is assigned a value by the assignment operation equals. When an equals node is created, its right and left hand sides are set just as for the arithmetic operations; when its eval() method is called, the variable on the left hand side is set to the result of the right hand side. No check is done whether the left hand side is really a node of class id; but only those nodes contain a set method. The assignment operation also returns a value (just as in C), the right hand side of the statement.

So now we have defined a syntax tree for simple arithmetic expressions with assignment of variables. If, lets say, root is the pointer to the root of this tree (the times symbol in the drawing), and we call root->eval(), the result returned should be the value of the expression, in our case (3 + 5) * (-4 + (2 - 9)) = -88. With the class definitions given so far, this should work. But how do we set up the syntax tree in the first place? We need a routine, an expression parser, that takes the string expression and constructs the tree from it.

In order to write the parser, we first need to formalize the syntax of our simple arithmetic expressions. Such a formal description would for instance look like this:

<expression> :== <term> { [+|-] <term> }
<term>   :== <factor> { [*|/] <factor> }
<factor> :== <identifier> | <inumber> |
 (<expression >) | -<factor> |
 <identifier> = <expression>

We then define three parser routines that return an object of class node: e(), t(), and f(), returning, respectively, a pointer to an expression, a term, and a factor. Each of these routines makes repeated calls to another routine scan(), which gets the next token from the input stream. A token is a separate syntactic element, such as an open or close bracket, an arithmetic operator, a number or an identifier. scan() returns a character value, either the ascii value of a symbol if the token consists of one symbol, or a special value > 127. For the special values ID and INT, additional information can be found in a static char variable; this string will be used for the value of a number or the name of a variable. Other possible values are BAD (the scanner found something it couldn’t interpret), or EOLN (end of line found).

The first of the three parser routines, e(), is called from the main program (see listing for main()). On entry, one token has been read from the input stream; then e() tries to parse the input into a valid arithmetic expression and assign a pointer to its syntax tree to root. It does so by calling t() (see listing), which makes a term out of one or several factors by calling f(), just like e() makes the expression out of one or several term. When e() encounters a plus or minus sign after a term, is makes a new plus resp. minus node which connects the first term with the next one. Same for t(); here eventually a times or divide node is made, which connects two factors. f(), finally, will look for a number or identifier token and return a pointer to the corresponding node; or it might find an open bracket or a minus sign, after which a new expression or a factor have to follow. When all these recursive calls have been evaluated and no syntax errors have been found, the top-level e() returns the expression’s syntax tree.

In order to get the value of the expression, all we have to do then is call root->eval(), and the syntax tree will be evaluated as described above.

As long as no syntax errors are found, the main program loops continuously and asks for new expressions; the names and values of identifiers are remembered from one evaluation to the next, so you can play around with stored values a little.

As you may imagine, it is not too difficult to add on to this extremely simple calculator program e.g. to implement exponentiation or to include functions like exp(), log() etc. The constructed syntax tree could also serve in a bigger program as an internal representation of a function that the user has typed in and that has to be evaluated a lot of times (and computed fast). One could even imagine to generate real machine code out of the syntax tree, which makes this program some kind of a rudimentary compiler. We’ll add to the example during the next columns.

On the source code disk, I have compiled two versions of the program, one as an MPW tool, and the other one using the Simple Input/Output Window mechanism. Actually, the only thing that has to be changed is the linking. The MPW sequence to create the two versions of the program look like the following:

cplus calc.cp
Link -w -c 'MPS ' -t MPST 
 calc.cp.o 
 "{CLibraries}"StdCLib.o 
 "{Libraries}"ToolLibs.o 
 "{Libraries}"Runtime.o 
 "{Libraries}"Interface.o 
 "{CLibraries}"CPlusLib.o 
 -o calc

Rez -a "{MPW}"Interfaces:Rincludes:SIOW.r -o calcAppl
Link -w -c 'JLMT' -t 'APPL' 
 calc.cp.o 
 "{CLibraries}"StdClib.o 
 "{MPW}"Libraries:Libraries:SIOW.o 
 "{Libraries}"Runtime.o 
 "{Libraries}"Interface.o 
 "{CLibraries}"CPlusLib.o 
 -o calcAppl

So the second version can be run also by those of you who don’t have MPW.

FORTHcoming

I’m still waiting for those MacForth contributions coming in we’d really like to see more of that in MacTutor. I’m sure there are quite a few of you satisfied MacForth users who have something interesting to write about. Please contact me: I promise that you get your space in this column. My network address has changed in the meantime, since our institute is going from the Bitnet to the Internet world; so in the future, please send messages to either of those three addresses (in order of preference):

 jl@macjl.embl-grenoble.fr
 langowski.j@applelink.apple.com
 langowsk@titan.embl-grenoble.fr 

(note the missing last letter in the name)

Meanwhile, we do have news from the Forth world. I don’t have to tell you that the NEON successor, Yerk, keeps being updated faster than I can write about it; you know that you can get the current version by ftp from oddjob.uchicago.edu. Mops, the NEON lookalike with real 680x0 machine code, can also be found there.

But here is something very interesting for those of you who used and liked Mach2, the Forth in which I did most of my examples here: Two users of Mach2, John Fleming who works at Motorola, and Steven Wiley, a molecular biologist at the University of Utah, got together and made all those modifications to Mach2 that the implementers should have done two years ago; now it is System7 and 32-bit compatible. It may also be soon in the public domain (non-commercial) like Yerk is, with the full source code available. You’ll hear more about it in one of the next columns. Until then.

Listing: The MPW calculator tool
// 
// calc.cp
//
// a simple calculator program
// based on an example from Dewhurst/Stark
// "Programming in C++"
//
// J. Langowski November 1992
//

#include <Ctype.h>
#include <StdIO.h>
#include <String.h>
#include <Stream.h>
#include <StdLib.h>

#define NIL 0

// basic syntax tree structure
//
class node {
 protected:
 node() {}
 public:
 virtual ~node() {}
 virtual int set (int)
 { cout << "Error: node::set(int) undefined" << eoln;
  return 0;} 
 virtual int eval() 
 { cout << "Error: node::eval() undefined" << eoln; 
 return 0;} 
};

class dyad : public node {
 protected:
 node *left, *right;
 dyad(node *l, node *r) {left=l; right=r;}
 ~dyad() {delete left; delete right;}
};
// operators
//
class plus : public dyad {
 public:
 plus(node *l, node *r) : dyad(l,r) {}
 int eval() { return left->eval() + right->eval();} 
};

class minus : public dyad {
 public:
 minus(node *l, node *r) : dyad(l,r) {}
 int eval() { return left->eval() - right->eval();}
};

class times : public dyad {
 public:
 times(node *l, node *r) : dyad(l,r) {}
 int eval() { return left->eval() * right->eval();}
};

class divide : public dyad {
 public:
 divide(node *l, node *r) : dyad(l,r) {}
 int eval() { return left->eval() / right->eval();}
};

class uminus : public node {
 node *operand;
 public:
 uminus(node *o) {operand = o;}
 ~uminus() {delete operand;}
 int eval() {return -operand->eval();}
};

class inumber : public node {
 int value;
 public:
 inumber(int v) {value = v;}
 int eval() {return value;}
};


// identifier table
//
class id;

class entry {
 char *name;
 int value;
 entry *next;
 entry (char *nm, entry *n) {
 name = strcpy (new char[strlen(nm) + 1], nm);
 value = 0;
 next = n;
 }
 friend id;
};

class id : public node {
 static entry *symtab;
 entry *ent;
 entry *look(char *);
 public:
 id(char *nm) {ent = look(nm);}
 int set(int i) {return ent->value = i;}
 int eval() {return ent->value;}
};

entry *id::look(char *nm) {
 for(entry *p = symtab; p; p = p->next)
 if(strcmp(p->name,nm) == 0) return p;


 return symtab = new entry(nm,symtab);
}

entry *id::symtab = NIL;

// assignment
//
class equals : public dyad {
 public:
 equals(node *t,node *e) : dyad(t,e) {}
 int eval()
 { return left->set(right->eval()); }
};


// parsing + evaluation
//

static char token;   // current token 
static char line[81];   // for reading identifiers + numbers
enum {ID = char(128), INT, EOLN, BAD}; // special tokens

node *e(), *t(), *f();    // parser routines 
 // for expression, term, factor

// input stream scanner, returns next token
//
char scan() {
 char c;
 while (1)
 switch (c = cin.get()) {
 case '+': case '-': case '*': case '/':
 case '(': case ')': case '=':
 return c;
 case ' ': case '\t':
 continue;
 case '\n': case '\r':
 return EOLN;
 default:
 if (isdigit(c)) {
 char *s = line;
 do*s++ = c;
 while(isdigit(c = cin.get()));
 *s = '\0'; 
 // terminate string just read
 cin.putback(c); 
 // had read one too much
 return INT;
 }
 
 if (isalpha(c)) {
 char *s = line;
 do*s++ = c;
 while(isalnum(c = cin.get()));
 *s = '\0'; 
 // terminate string just read
 cin.putback(c); 
 // had read one too much
 return ID;
 }
 
 return BAD; 
 // if nothing fits, syntax error
 }
}

// simple error routine
//
void error() { cout << "Syntax error." << endl; exit(255); }

// parser routines for expression, term, factor
//

// expression = term (+ -) term
node *e() {
 node *root = t();
 while (1)
 switch (token) {
 case '+':
 token = scan();
 root = new plus(root, t()); 
 break;
 case '-':
 token = scan();
 root = new minus(root, t());
 break;
 default:
 return root;
 }
}

// term = factor (* /) factor
node *t() {
 node *root = f();
 while (1)
 switch (token) {
 case '*':
 token = scan();
 root = new times(root, t()); 
 break;
 case '/':
 token = scan();
 root = new divide(root, t()); 
 break;
 default:
 return root;
 }
}

// factor = identifier | number | expression | -factor
node *f() {
 node *root = NIL;
 switch (token) {
 case ID:
 root = new id(line);
 token = scan();
 if (token == '=') {
 token = scan();
 root = new equals(root, e());
 }
 return root;
 case INT:
 root = new inumber(atoi(line));
 token = scan();
 return root;
 case '(':
 token = scan();
 root = e();
 if (token != ')' ) error();
 token = scan();
 return root;
 case '-':
 token = scan();
 return new uminus(f());
 default:
 error();
 }
}

// main program
//

void main() {
 node *root = NIL;
 while (1) {
 cout << "Enter expression: " << endl;
 token = scan();
 root = e();

 if (token == BAD) error();
 
 if (root != NIL)
 { 
     cout << "Result = " << root->eval() << endl;
     delete root; 
 }
 }
}

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

iMazing 2.3.3 - Complete iOS device mana...
iMazing (was DiskAid) is the ultimate iOS device manager with capabilities far beyond what iTunes offers. With iMazing and your iOS device (iPhone, iPad, or iPod), you can: Copy music to and from... Read more
TeamViewer 12.0.81279 - Establish remote...
TeamViewer gives you remote control of any computer or Mac over the Internet within seconds, or can be used for online meetings. Find out why more than 200 million users trust TeamViewer! Free for... Read more
Safari Technology Preview 11.0 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more
PDFpen 9.1 - $74.95
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
GraphicConverter 10.4.3 - $39.95
GraphicConverter is an all-purpose image-editing program that can import 200 different graphic-based formats, edit the image, and export it to any of 80 available file formats. The high-end editing... Read more
Fission 2.3.2 - Streamlined audio editor...
Fission can crop and trim audio, paste in or join files, or just rapidly split one long file into many. It's streamlined for fast editing. Plus, it works without the quality loss caused by other... Read more
EarthDesk 7.2 - Striking real-time anima...
EarthDesk replaces your static desktop picture with a rendered image of Earth showing correct sun, moon, and city illumination. With an Internet connection, EarthDesk displays near-real-time global... Read more
Things 3.1.1 - Elegant personal task man...
Things is a task management solution that helps to organize your tasks in an elegant and intuitive way. Things combines powerful features with simplicity through the use of tags and its intelligent... Read more
iDefrag 5.2.0 - Disk defragmentation and...
iDefrag helps defragment and optimize your disk for improved performance. iDefrag Features Supports HFS and HFS+ (Mac OS Extended). Supports case sensitive and journaled filesystems. Supports... Read more
Google Chrome 60.0.3112.78 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more

Latest Forum Discussions

See All

Fighting Fantasy Legends (Games)
Fighting Fantasy Legends 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Create your own adventures in a dangerous land of monsters, treasures and traps. From renowned authors Steve Jackson... | Read more »
Knight Fever is a new take on the classi...
Knight Fever lands on the Google Play, and you won’t want to miss it if you’re a devoted RPG fan. Developed by indie creatives Buff Studios, the game looks like a retro RPG with some exciting new twists. | Read more »
Steam Panic (Games)
Steam Panic 1.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: Steampunk puzzle in which you spin the playfield to put yourself back together. Dear Reader,Enclosed is a copy of my bizarre 1935... | Read more »
Time Crash (Games)
Time Crash 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Time is about to Crash! It’s up to you to save the city! Time Crash is a 3D first person runner which lets you play as a powerful... | Read more »
Galaxy of Pen & Paper (Games)
Galaxy of Pen & Paper 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: *** NO IN-APP PURCHASES! ****** PREMIUM FOREVER *** THE ULTIMATE ROLE-PLAYING SIMULATION GOES TO SPACE! | Read more »
Niantic reveals more Pokémon GO legendar...
Oof. Pokémon GO Fest Chicago was pretty much a fiasco, huh? Niantic is feeling the heat from fans for their first big event that ultimately ended in failure. So much so that they've released a much longer apology that gives a full run down of... | Read more »
The 5 best life-saving apps for dog owne...
While it's true that dogs are man's best friend, they're also a pretty big responsibility. We want to give our dogs the best lives, but with busy schedules that's not always easy. Luckily, though, there are a bunch of quality apps out there that... | Read more »
Mix and match magical brews in Miracle M...
Miracle Merchant, the charming fantasy card game by Tiny Touch Tales, is arriving next week. The development team, which also brought you Card Crawl and Card Thief, announced the game's launch with a pleasant little trailer that showcases the game'... | Read more »
Last Day on Earth: Zombie Survival guide...
Last Day on Earth: Zombie Survival is the latest big hit in the survival game craze. The gist of the game is pretty cut and dry -- try your best to survive in a world overrun by flesh-eating zombies. But Last Day on Earth justifies the hype... | Read more »
Eden: Renaissance (Games)
Eden: Renaissance 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Eden: Renaissance is a thrilling turn-based puzzle adventure set in a luxurious world, offering a deep and moving... | Read more »

Price Scanner via MacPrices.net

Seven Cities, One Phone: OtterBox Sends iPhon...
Plenty of people have trekked around the world, but what about a globe-trotting iPhone? OtterBox is sending an iPhone around the world to capture the adventures of a diverse set of global ambassadors... Read more
L-Card Pro App May Spell End For Paper Busine...
OrangeTreeApps, LLC has announced the release of L-Card Pro 1.1, an update to their business app for iOS and Android devices that introduces eco-friendly, affordable, electronic business cards on the... Read more
Clearance previous generation iMacs, Apple re...
Apple has previous-generation Certified Refurbished 2015 21″ & 27″ iMacs available starting at $849. Apple’s one-year warranty is standard, and shipping is free. The following models are... Read more
27-inch 3.4GHz iMac on sale for $1699, save $...
MacMall has the new 2017 27″ 3.4GHz iMac (MNE92LL/A) in stock and on sale for $1699 including free shipping. Their price is $100 off MSRP. Read more
Photographer Explains Choosing Dell Laptop Ov...
Last week photographer and video blogger Manny Ortiz posted a video explaining the five most important reasons he settled on a Dell XPS 15 laptop instead of a MacBook Pro for his latest portable... Read more
Sale! 10-inch iPad Pros for $50 off MSRP, no...
B&H Photo has 64GB and 256GB 10.5″ iPad Pros in stock today and on sale for $50 off MSRP. Each iPad includes free shipping, and B&H charges sales tax in NY & NJ only: – 10.5″ 64GB iPad... Read more
WaterField Designs Upgrades TSA-friendly Zip...
San Francisco based designer and manufacturer Waterfield Designs has unveiled an upgraded and refined Zip Brief. Ideal for the minimalist professional, the ultra-slim Zip laptop bag actually holds a... Read more
USB 3.0 Promoter Group Announces USB 3.2 Upda...
The USB 3.0 Promoter Group has announced the pending release of the USB 3.2 specification, an incremental update that defines multi-lane operation for new USB 3.2 hosts and devices. USB Developer... Read more
Save on MacBook Pros with Apple Refurbished 2...
Apple recently dropped prices on Certified Refurbished 2016 15″ and 13″ MacBook Pros with models now as much as $590 off original MSRP. An Apple one-year warranty is included with each model, and... Read more
13-inch 2.3GHz/256GB MacBook Pros on sale for...
B&H Photo has 13″ 2.3GHz/256GB MacBook Pros in stock today and on sale for $100 off MSRP including free shipping plus NY & NJ sales tax only: – 13-inch 2.3GHz/256GB Space Gray MacBook Pro (... Read more

Jobs Board

Senior Software Engineer, *Apple* Online St...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Frameworks Engineering Manager, *Apple* Wat...
Frameworks Engineering Manager, Apple Watch Job Number: 41632321 Santa Clara Valley, California, United States Posted: Jun. 15, 2017 Weekly Hours: 40.00 Job Summary Read more
*Apple* Solutions Consultant (ASC) - Poole -...
Job Summary The people here at Apple don't just create products - they create the kind of wonder that's revolutionised entire industries. It's the diversity of those Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.