RPL (programming language)

RPL
Paradigm stack, structured, object-oriented
Designed by Hewlett-Packard
First appeared 1984 (1986)
OS HP calculators
Dialects
System RPL, User RPL
Influenced by
RPN, Forth, Lisp[1]

RPL (derived from Reverse Polish Lisp according to its original developers,[2][3][4][5][6][7] whilst for a short while in 1987 HP marketing attempted to coin the backronym ROM-based Procedural Language for it[1][7][8]) is a handheld calculator operating system and application programming language used on Hewlett-Packard's scientific graphing RPN (Reverse Polish Notation) calculators of the HP 28, 48, 49 and 50 series, but it is also usable on non-RPN calculators, such as the 38, 39 and 40 series.

RPL is a structured programming language based on RPN, but equally capable of processing algebraic expressions and formulae, implemented as a threaded interpreter.[9] RPL has many similarities to Forth, both languages being stack-based, as well as the list-based LISP. Contrary to previous HP RPN calculators, which had a fixed four-level stack, the stack used by RPL is only limited by available calculator RAM.

RPL originated from HP's Corvallis, Oregon development facility in 1984 as a replacement for the previous practice of implementing the operating systems of calculators in assembly language.[10] The last calculator supporting RPL, the HP 50g, was discontinued in 2015.[11][12][13]

Variants

The internal low- to medium-level variant of RPL, called System RPL (or SysRPL) is used on some earlier HP calculators as well as the aforementioned ones, as part of their operating system implementation language. In the HP 48 series this variant of RPL is not accessible to the calculator user without the use of external tools, but in the HP 49/50 series there is a compiler built in ROM to use SysRPL. It is possible to cause a serious crash while coding in SysRPL, so caution must be used while using it. The high-level User RPL (or UserRPL) version of the language is available on said graphing calculators for developing textual as well as graphical application programs. All UserRPL programs are internally represented as SysRPL programs, but use only a safe subset of the available SysRPL commands. The error checking that is a part of UserRPL commands, however, makes UserRPL programs noticeably slower than equivalent SysRPL programs. The UserRPL command SYSEVAL tells the calculator to process designated parts of a UserRPL program as SysRPL code.

Control blocks

RPL control blocks are not strictly postfix. Although there are some notable exceptions, the control block structures appear as they would in a standard infix language. The calculator manages this by allowing the implementation of these blocks to skip ahead in the program stream as necessary.

Conditional statements

IF/THEN/ELSE/END

RPL supports basic conditional testing through the IF/THEN/ELSE structure. The basic syntax of this block is:

IF condition THEN if-true [ELSE if-false] END

The following example tests to see if the number at the bottom of the stack is "1" and, if so, replaces it with "Equal to one":

« IF 1 == THEN "Equal to one" END »

The IF construct evaluates the condition then tests the bottom of the stack for the result. As a result RPL can optionally support FORTH-style IF blocks, allowing the condition to be determined before the block. By leaving the condition empty, the IF statement will not make any changes to the stack during the condition execution and will use the existing result at the bottom of the stack for the test:

« 1 == IF THEN "Equal to one" END »

IFT/IFTE

Postfix conditional testing may be accomplished by using the IFT ("if-then") and IFTE ("if-then-else") functions.

IFT and IFTE pop two or three commands off the stack, respectively. The topmost value is evaluated as a boolean and, if true, the second topmost value is pushed back on the stack. IFTE allows a third "else" value that will be pushed back on the stack if the boolean is false.

The following example uses the IFT function to pop an object from the bottom of the stack and, if it is equal to 1, replaces it with "One":

« 1 == "One" IFT »

The following example uses the IFTE function to pop an object from the bottom of the stack and, if it is equal to 1, replaces it with "One". If it does not equal 1, it replaces it with the string "Not one":

« 1 == "One" "Not one" IFTE »

IFT and IFTE will evaluate a program block given as one of its arguments, allowing a more compact form of conditional logic than an IF/THEN/ELSE/END structure. The following example pops an object from the bottom of the stack, and replaces it with "One", "Less", or "More", depending on whether it is equal to, less than, or greater than 1.

«
  DUP 1 ==
  « DROP "One" »
  « 1 < "Less" "More" IFTE »
  IFTE
»

CASE/THEN/END

To support more complex conditional logic, RPL provides the CASE/THEN/END structure for handling multiple exclusive tests. Only one of the branches within the CASE statement will be executed. The basic syntax of this block is:

CASE 
 condition_1 THEN if-condition_1 END 
  ...
 condition_n THEN if-condition_n END
 if-none
END

The following code illustrates the use of a CASE/THEN/END block. Given a letter at the bottom of the stack, it replaces it with its string equivalent or "Unknown letter":

« 
  CASE 
     DUP "A" == THEN "Alpha" END
     DUP "B" == THEN "Beta" END
     DUP "G" == THEN "Gamma" END
     "Unknown letter"
  END
  SWAP DROP  @ Get rid of the original letter
»

This code is identical to the following nested IF/THEN/ELSE/END block equivalent:

«
   IF DUP "A" ==
   THEN
      "Alpha"
   ELSE 
      IF DUP "B" == THEN
         "Beta"
      ELSE 
         IF DUP "G" == THEN
            "Gamma"
         ELSE
            "Unknown letter"
         END
      END 
   END
   SWAP DROP  @ Get rid of the original letter
»

Looping statements

FOR/NEXT

RPL provides a FOR/NEXT statement for looping from one index to another. The index for the loop is stored in a temporary local variable that can be accessed in the loop. The syntax of the FOR/NEXT block is:

index_from index_to FOR variable_name loop_statement NEXT

The following example uses the FOR loop to sum the numbers from 1 to 10. The index variable of the FOR loop is "I":

« 
   0       @ Start with zero on the stack
   1 10    @ Loop from 1 to 10
   FOR I   @ "I" is the local variable
      I +  @ Add "I" to the running total
   NEXT    @ Repeat...
»

START/NEXT

The START/NEXT block is used for a simple block that runs from a start index to an end index. Unlike the FOR/NEXT loop, the looping variable is not available. The syntax of the START/NEXT block is:

index_from index_to START loop_statement NEXT

FOR/STEP and START/STEP

Both FOR/NEXT and START/NEXT support a user-defined step increment. By replacing the terminating NEXT keyword with an increment and the STEP keyword, the loop variable will be incremented or decremented by a different value than the default of +1. For instance, the following loop steps back from 10 to 2 by decrementing the loop index by 2:

« 10 2 START -2 STEP »

WHILE/REPEAT/END

The WHILE/REPEAT/END block in RPL supports an indefinite loop with the condition test at the start of the loop. The syntax of the WHILE/REPEAT/END block is:

WHILE condition REPEAT loop_statement END

DO/UNTIL/END

The DO/UNTIL/END block in RPL supports an indefinite loop with the condition test at the end of the loop. The syntax of the DO/UNTIL/END block is:

DO loop_statement UNTIL condition END

See also

References

  1. 1 2 Patton, Charles M. (August 1987). "Computation for Handheld Calculators" (PDF). Hewlett-Packard Journal. Palo Alto, California, USA: Hewlett-Packard Company. 38 (8): 21–25. Retrieved 2015-09-12.
  2. Wickes, William C. (1988). RPL: A Mathematical Control Language. Proceedings Rochester Forth Conference on Programming Environments. Rochester, New York, USA: Institute for Applied Forth Research, Inc. pp. 27–32. Several existing operating systems and languages were considered, but none could meet all of the design objectives. A new system was therefore developed, which merges the threaded interpretation of Forth with the functional approach of Lisp. The resulting operating system, known unofficially as RPL (for Reverse-Polish Lisp), made its first public appearance in June of 1986 in the HP-18C Business Consultant calculator.
  3. Wickes, William C. (1991-03-11). "RPL stands for Reverse Polish Lisp". www.hpcalc.org. Retrieved 2015-09-12. RPL stands for Reverse Polish Lisp. In the early days of RPL development, we got tired of calling the unnamed system "the new system", and one of the development team came up with "RPL", both as a play on "RPN" which has been the loved/hated hallmark of HP calcs forever, and as an accurate indication of the derivation of the language from Forth and Lisp.
    RPL was never particularly intended to be a public term; at the time of the HP Journal article (August 1987) on the HP 28C there was an attempt to create a less whimsical name--hence "ROM-based procedural language," which preserved the initials but had a more dignified sound. The development team never calls it anything but (the initials) RPL. You can choose either of the two full-word versions that you prefer. Or how about "Rich People's Language?" Bill Wickes, HP Corvallis.
  4. Schoorl, André (2000-04-04) [1997]. "HP48 Frequently Asked Questions List". HP Calculator Archive. p. 69. Retrieved 2015-09-12.
  5. "I've heard the names RPL, Saturn, STAR, GL etc... What are they? - RPL". FAQ: 2 of 4 - Hardware, Programs, and Programming. 4.62. comp.sys.hp48. 2000-04-14. 8.1. Retrieved 2015-09-12.
  6. Nelson, Richard J. (2012-04-04). "HP RPN Evolves" (PDF). HP Solve. Hewlett-Packard (27): 30–32. Retrieved 2015-09-12.
  7. 1 2 Mier-Jedrzejowicz, Włodek A. C. (July 1991). A Guide to HP Handheld Calculators and Computers (5 ed.). HHC 2011. ISBN 978-1888840308. 1888840307. RPL stands for Reverse Polish Lisp - it combined the RPN calculator language of earlier models with features of the Lisp and Forth programming languages. For a time HP explained the letters RPL as an acronym for "ROM-based Procedural Language".
  8. "HP Celebrates 35 Years of Handheld Calculator Innovation". Hewlett-Packard Development Company, L.P. 2007. Archived from the original on 2007-03-17. Retrieved 2015-09-13. 1987: HP-28C: First full RPL calculator: In the late 1980s, HP developed a new programming language for its new series of extremely powerful calculators. By combining elements of RPN, Lisp and Forth, HP came up with a language called RPL (or ROM-based Procedural Language).
  9. Horn, Joe K. "RPL.DOC". Retrieved 2015-09-12.
  10. Hewlett-Packard. "RPLMan from Goodies Disk 4" (RPLMAN.ZIP). Retrieved 2015-09-12.
  11. Kuperus, Klaas (2015-03-04). "HP 50g: End of an era". Moravia. Archived from the original on 2015-04-02.
  12. Kuperus, Klaas (2015-03-06). "HP 50g not so good news?". Moravia. Retrieved 2016-01-01.
  13. Wessman, Tim (2015-12-26). "Windows 10 won't allow HP 50g USB drivers to be installed". HP Museum. Retrieved 2016-01-01.

Further reading

This article is issued from Wikipedia. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.