TweetFollow Us on Twitter

March 93 - An Introduction to BETA: A New Object-oriented Language

An Introduction to BETA: A New Object-oriented Language

Steve Mann

New object-oriented products are announced every day. Most of them are based on a familiar language such as C++, SmallTalk, or LISP / CLOS. New object-oriented languages are another matter. When was the last time you saw an announcement for a commercial-grade object-oriented language product? BETA is such a product.

Development on BETA started in 1976 as a joint venture between several universities in Norway, Denmark, and Finland. This is the same computer science community (often called the Scandinavian School of object-orientation) that in the early 1960s developed Simula, the first object-oriented language. Throughout its formative years, the BETA research has been supported by grants from many companies, including Apollo, Apple, and Hewlett Packard. After more than 15 years of research and development, Mjolner Informatics has released the first commercial BETA product.

AN OVERVIEW OF BETA

BETA is a completely new language with a design heavily influenced by its object-oriented predecessors, especially Simula. It is strongly typed like C++, with most type checking being done at compile time. The language design is based on a powerful abstraction mechanism called a pattern. The syntax for a pattern is:
<Pattern Name> :
    (#  <Attribute 1> ;
        <Attribute 2> ;
            .
        <Attribute N> ;

    Enter <Input list>
    Do <Imperatives>
    Exit <Output list>
    #);

Attributes can be many things-the most common are object declarations and methods specific to the pattern being defined. The Enter statement lists the values passed to the Do section, Exit lists the values output from the Do section. The Do section contains imperative (executable) statements that perform actions. All the syntactic elements of a pattern are optional.

There are several types of patterns, including classes, procedures, functions, coroutines, processes, and exceptions. There are also three types of pattern derivatives:

  • subpatterns (like subclasses but more powerful),
  • virtual patterns (like C++ virtual procedures), and
  • pattern variables (variables that can be assigned any legal pattern value).

You can create any of these three derivatives from any of BETA's pattern types, making BETA a very orthogonal language. For instance, using subpatterns, you can create a hierarchy of procedures, functions, coroutines, processes, or exceptions, where all the subpatterns inherit attributes from their superpatterns. You can also define virtual classes, virtual procedures, virtual functions, and so on . Table 1 lists all the possible combinations of pattern derivatives and types.

Other important BETA features include:

  • class-less objects for one-of-a-kind object definitions;
  • direct and reference (pointer-based) attributes allowing the modeling of complex relationships;
  • block structures similar to Algol, allowing nested structures with local and global scopes for all patterns.

SAMPLE PROGRAMS

Here is a simple class pattern that defines a bank account object. It has three attributes-balance (a declaration using a predefined class pattern called integer), Deposit (a procedure pattern), and Withdraw (another procedure pattern).
Account :  (* a simple bank account class pattern *)   
    (#  balance : @ integer;        (* bank account balance *)

        Deposit :       (* add 'amount' to balance *) 
            (#  amount : @ integer          (* local declaration *)
            enter amount                    (* input list *)
            do balance + amount -> balance   (* action *)
            exit balance                        (* output list *)
            #); 
        Withdraw :      (* subtract 'amount' from balance *)
            (#  amount : @ integer  
            enter amount    
            do balance - amount -> balance
            exit amount     
            #); 
    #); 

Note that:

  • Asterick/parens ('(*' and '*)') are used to enclose comments.
  • A colon (':') indicates a declaration.
  • An @ sign indicates the name of an object type.
  • Integer is a predefined BETA basic pattern (the other basic patterns are real, boolean, and char, plus there is a predefined text pattern that works much like strings).
  • Imperative statements always read left to right.

According to BETA terminology, both Deposit and Withdraw are procedure (not function) patterns. BETA procedures and functions both can have input and output lists. A BETA function computes a return value using only the input values, causing no side effects (a procedure may cause side effects).

The preceding sample is simply a class definition pattern with attributes (balance) and methods (Deposit and Withdraw). In order to create a complete BETA program, we need more, such as some declarations to create real account objects, and some imperatives to perform actions on those accounts:

(# (* a pattern with no name *)
    Account : (*  a pattern declaration within the unnamed pattern *)
        (#  acct_balance : @ integer;
            Deposit :                
                (#  amount : @ integer  
                enter amount
                do acct_balance + amount -> acct_balance
                exit balance    
                #); 
            Withdraw :      
                (#  amount : @ integer  
                enter amount    
                do acct_balance - amount -> acct_balance
                exit amount     
                #); 
            Balance :
                (#
                exit acct_balance
                #)
        #); 
    A : @ Account;              
    cash_on_hand, balance : @ integer;  

do  100 -> &A.Deposit;               
    250 -> &A.Deposit;               
    75  -> &A.Withdraw -> cash_on_hand;   (* $75 on hand *)
    &A.Balance -> balance;                (* $275 balance *)
#)

In BETA the symbol '&' means new; the expression &account.Deposit means "create a new instance of the pattern account.Deposit and execute it". This is basically the same as invoking a procedure. Note that the finished program, the primary object definition (Account), and the methods that operate on that account (Deposit, Withdraw, and Balance) are all patterns. This use of a single syntactic element to define everything and execute operations gives BETA much of its power and flexibility.

REFERENCE ATTRIBUTES

BETA allows you to define both static and dynamic reference attributes. The previous sample programs all have examples of static object references such as
A : @ Account;             
cash_on_hand, balance : @ integer;

Static objects are also called part objects (or part references) in BETA because the declared objects are a permanent part of the objects containing their declarations.

BETA also lets you define object references that denote different objects at different points in time (much like pointers). An example of a dynamic reference is

A : ^Account ;

The initial value of a dynamic reference is NONE (trying to reference an object attribute using a NONE pointer causes a runtime error). If we define an account using

A1 : Account ;

we can assign A1 to A using the statement

A1[] -> A[] ;

It is also possible to create objects dynamically by invoking their pattern as an executable statement. For instance, the statement

&Account[]

creates a new instance of an Account and returns a reference to that account. If we declare a reference object using

A1 : ^Account;

the following statement is valid:

&Account[] -> A1[];

The difference between &Account and &Account[] is important. The first means "generate an instance of Account and execute it"; the second means "generate a new instance of Account without executing it and return a reference to it".

OTHER BETA SYNTACTIC ELEMENTS

When presenting a new language, there is always a certain amount of rote presentation to cover the basic syntax needed to create programs in that language. This section covers some of the more recognizable parts of BETA, including predefined basic patterns and attributes, arrays, assignment statements (evaluations), and control statements.

Basic Patterns

BETA has four predefined basic patterns : integer, real, boolean, and char. The default values and standard operators for BETA's basic patterns are shown in Table 2. In addition, BETA has a standard set of relational operators. Chars are ordered from 0 to 255, and false is less than true.

One unusual restriction that BETA has is that it is not possible to declare dynamic references to instances of these four basic patterns. Apparently this restriction is primarily for efficiency reasons.

Repetitions

BETA arrays (called repetitions) are defined using one of these two forms:
<Name>: [size] @<Type> ;       (* static repetition *)
<Name>: [size] ^<Type> ;        (* dynamic repetition *)

Array indices range from one to <Name>.range (range is an intrinsic attribute of all array objects). You can dynamically resize arrays using the extend attribute, which adds elements to an array. You can reallocate an array, initializing all the elements to the default value for the array object type. You can also assign array slices (or parts of an array).

Here are some array examples:

A1, A2 : [10] @integer;    (* integer arrays A1[1]-A1[10],
                              A2[1]-A2[10] *)
1050 -> A1.[1];         (* assignment *)
10 -> A1.extend;        (* resize A2 to 20 elements *)
25 -> A2.new;           (* resize and reinitialize A2 *)
A1 [1:5] -> A2 [10];    (* slice assignment *)

There is also a special repetition pattern called text which is derived from a string pattern. It is a character array, subject to all normal array operations, with additional predefined patterns for string manipulation.

For Statement

The BETA for statement is straightforward. It has the following form:
(for <Index>: <Range> repeat <Imperative-list> for)

<Index> is an integer object declared locally within the scope of the for statement. It cannot be changed within the loop. The index always starts at one and increments by one. A pattern with a for loop might look like

(#     sum: @ integer;
    V : [100] @ integer     (* integer array *)
do  (for i : V.range repeat i -> V [i] for)
    0 -> sum;
    (for i : V.range repeat sum + v [i] -> sum for)
#)

It is possible to overcome the limitations of the for index structure (integer indices which always start at one and increment by one) using other patterns. That capability is not explored in this introductory article.

If Statement

The BETA if statement is an unusual combination of a traditional if statement and a case statement. Its form is
(if E0
    // E1 then I1
    // E2 then I2
        . . .
    //En then In
    else I
if)

E1 . . . En are evaluations and I1 . . . In are imperatives. The else clause is optional. Here's an example of a simple if statement:

(if x
    // 17 then . . .
    // 33 then . . .
    // y+3 then . . .
    else
if)

A boolean evaluation (albeit an awkward one) might be written

(if (x > 0) and (y < 0)
    // True then . . .
    // False then . . .
if)

Evaluations

BETA evaluation (assignment) statements are very flexible. You can define multiple assignment statements such as
   3 -> I -> J

You can also combine multiple assignments with pattern executions and enter and exit redirection like in this program:

   (#  Power :     (* compute X^n where n > 0 *)
        (#  X, Y : @ real; n : @ integer;
        enter (X, n) 
        do  1 -> Y;
            (for i : n repeat Y * X -> Y for)
        exit Y
        #)

        Reciproc :  (* compute (Q, 1/Q) *)
        (# Q, R : @ real;
        enter Q
        do  (if (Q // 0) then 0 -> R
            else (1 div Q) -> R
            if )
        exit (Q, R)
        #);
    A, B : @ real;
    do  (3.14, 2) -> &Power -> &Reciproc -> (A, B);
        (* A = 3.14 ^ 2, B = 1/A *)
    #)

THE MJOLNER BETA SYSTEM

So far I have described the more basic elements of the BETA language. There are many advanced capabilities, such as subpatterns and virtual patterns, exception handling, and concurrency, that really show off BETA's power as an object-oriented language and the depth of its design. I''ll cover these topics in a future article.

The Mjolner BETA System, created by several of the language's original designers, is currently the only commercial implementation of a BETA development environment. The Mjolner BETA System includes:

  • native code generation,
  • automatic garbage collection and storage management,
  • separate compilation of program fragments with automatic dependency analysis,
  • interfaces to C and assembly language modules (and Pascal on the Mac),
  • persistent objects, although not a full-blown object-oriented database (a complete OODB is expected by late 1993),
  • basic patterns for simple data types,
  • a set of container patterns for more complex data structures (including sets, has tables, stacks, queues, and lists),
  • stream patterns for text and file handling,
  • process management and concurrency control patterns, and
  • application frameworks for X Windows, Motif, and the Macintosh Toolbox.

As if that weren't enough, Mjolner also sells a variety of additional tools including a modifiable Hyper Structure Editor, a metaprogramming system, a BETA CASE Tool (Unix only), and a source-level debugger (Unix only). In the coming months we hope to present an overview of BETA's advanced features, a comprehensive review of Mjolner's BETA System and tools, and advanced programming examples. Let us know if there are specific topics you would like addressed. -

MADA is pleased to announce that as we were going to press with this issue, Mjolner selected MADA as their exclusive US and Canada distributor for the Macintosh version of BETA. We are also carrying the reset of the Mjolner BETA product line. See page 67 for more details.

In addition, a demo version of the Mjolner BETA System is available on MADA's "Five Years of Objects" CD-ROM.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

FINAL FANTASY Ⅸ (Games)
FINAL FANTASY Ⅸ 1.0.4 Device: iOS Universal Category: Games Price: $16.99, Version: 1.0.4 (iTunes) Description: ==========●Special sale price for the FINAL FANTASY IX release! ●20% off from February 10 to February 21, 2016... | Read more »
Tennis Club Story (Games)
Tennis Club Story 1.03 Device: iOS Universal Category: Games Price: $4.99, Version: 1.03 (iTunes) Description: Aim for the ace position of tennis club prestige in this simulation! Your leadership decides if players make it to the big... | Read more »
Check out the new Pirate Attack update i...
Love pirates and board games? Well, you'll love the new Pirate Attack themed update that just launched in Game of Dice. It adds a bunch of new content themed around pirates, like an all new event map based on a pirate ship which revamps the toll... | Read more »
Splash Cars guide - How to paint the tow...
Splash Cars is an arcade driving game that feels like a hybrid between Dawn of the Plow and Splatoon. In it, you'll need to drive a car around to repaint areas of a town that have lost all of their color. Check out these tips to help you perform... | Read more »
The best video player on mobile
We all know the stock video player on iOS is not particularly convenient, primarily because it asks us to hook a device up to iTunes to sync video in a world that has things like Netflix. [Read more] | Read more »
Four apps to help improve your Super Bow...
Super Bowl Sunday is upon us, and whether you’re a Panthers or a Broncos fan you’re no doubt gearing up for it. [Read more] | Read more »
LooperSonic (Music)
LooperSonic 1.0 Device: iOS Universal Category: Music Price: $4.99, Version: 1.0 (iTunes) Description: LooperSonic is a multi-track audio looper and recorder that will take your loops to the next level. Use it like a loop pedal to... | Read more »
Space Grunts guide - How to survive
Space Grunts is a fast-paced roguelike from popular iOS developer, Orange Pixel. While it taps into many of the typical roguelike sensibilities, you might still find yourself caught out by a few things. We delved further to find you some helpful... | Read more »
Dreii guide - How to play well with othe...
Dreii is a rather stylish and wonderful puzzle game that’s reminiscent of cooperative games like Journey. If that sounds immensely appealing, then you should immediately get cracking and give it a whirl. We can offer you some tips and tricks on... | Read more »
Kill the Plumber World guide - How to ou...
You already know how to hop around like Mario, but do you know how to defeat him? Those are your marching orders in Kill the Plumber, and it's not always as easy as it looks. Here are some tips to get you started. This is not a seasoned platform... | Read more »

Price Scanner via MacPrices.net

Apple refurbished 15-inch Retina MacBook Pros...
Apple has Certified Refurbished 2015 15″ Retina MacBook Pros available for up to $380 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2... Read more
BookBook For iPad Pro Coming Soon
The iPad Pro is a device unlike any other, and with Apple Pencil, it’s the ideal portable sketchpad: all that’s missing is the modern easel and portfolio to go. TwelveSouth’s BookBook for iPad Pro... Read more
12-inch 1.2GHz Silver Retina MacBook on sale...
B&H Photo has the 12″ 1.2GHz Silver Retina MacBook on sale for $1399 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price for this model from... Read more
iPads on sale at Target: $100 off iPad Air 2,...
Target has WiFi iPad Air 2s and iPad mini 4s on sale for up to $100 off MSRP on their online store for a limited time. Choose free shipping or free local store pickup (if available). Sale prices for... Read more
Target offers Apple Watch for $100 off MSRP
Target has Apple Watches on sale for $100 for a limited time. Choose free shipping or free local store pickup (if available). Sale prices for online orders only, in-store prices may vary: - Apple... Read more
Apple refurbished 2014 13-inch Retina MacBook...
Apple has Certified Refurbished 2014 13″ Retina MacBook Pros available for up to $400 off original MSRP, starting at $979. An Apple one-year warranty is included with each model, and shipping is free... Read more
Macs available for up to $300 off MSRP, $20 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
Watch Super Bowl 50 Live On Your iPad For Fre...
Watch Super Bowl 50 LIVE on the CBS Sports app for iPad and Apple TV. Get the app and then tune in Sunday, February 7, 2016 at 6:30 PM ET to catch every moment of the big game. The CBS Sports app is... Read more
Two-thirds Of All Smart Watches Shipped In 20...
Apple dominated the smart watch market in 2015, accounting for over 12 million units and two-thirds of all shipments according to Canalys market research analysts’ estimates. Samsung returned to... Read more
12-inch 1.2GHz Retina MacBooks on sale for up...
B&H Photo has 12″ 1.2GHz Retina MacBooks on sale for $180 off MSRP. Shipping is free, and B&H charges NY tax only: - 12″ 1.2GHz Gray Retina MacBook: $1499 $100 off MSRP - 12″ 1.2GHz Silver... Read more

Jobs Board

*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
*Apple* Subject Matter Expert - Experis (Uni...
This position is for an Apple Subject Matter Expert to assist in developing the architecture, support and services for integration of Apple devices into the domain. Read more
*Apple* Macintosh OSX - Net2Source Inc. (Uni...
…: * Work Authorization : * Contact Number(Best time to reach you) : Skills : Apple Macintosh OSX Location : New York, New York. Duartion : 6+ Months The associate would Read more
Computer Operations Technician ll - *Apple*...
# Web Announcement** Apple Technical Liaison**The George Mason University, Information Technology Services (ITS), Technology Support Services, Desktop Support Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.