PPAP

PPAP is a (maybe yet another) programming language inspired by https://www.youtube.com/watch?v=0E00Zuayv9Q

Example

PPAP

I have 80 Pen
I have 65 Apple

Uh! Put-Pen
Uh! Put-Pen
Uh! Put-Apple
Uh! Put-Pen

Result:

PPAP

Echo

I have a Pen
I have an Apple
Apple-Pen
Uh! Pick-Pen          # Read a character
Uh! Put-Pen           # Print the character
Uh! Jump-Apple-Pen    # Loop

FizzBuzz

examples/fizbuzz.ppap

How to run

This implementation is written in Ruby.

$ git clone https://github.com/yhara/ppap-lang/
$ bundle install
$ bundle exec ppap exec examples/ppap.ppap
PPAP

Language Spec

Execution Model

• Unlimited number of registers
• 24-bits wide memory (initialized with 0)
• A PPAP program is executed line by line

TODO:

• Define range of a register value

Comment

# This is comment
I have an Apple  # This is also comment

Register declaration

Registers must be declared before use. For example, the following code declares a register Pen with 5 as its initial value. (Note that register name must be singular even when the value is more than 1, and register value must be >= 0.)

I have 5 Pen

Name of a register must:

• start with A-Z
• consist of A-Z, a-z, 0-9
• include 'p' or 'P'
• not a command verb (Replace, Compare, etc.)

There are some special forms for register value 0 and 1.

I have no Pinapple   # Pinapple == 0

I have Pinapple      # Pinapple == 1
I have a Pinapple    # Pinapple == 1
I have an Pinapple   # Pinapple == 1

Register values are always parsed as decimal, even when it starts with '0'.

It is allowed to declare a register with the same name. In this case, the latter will overwrite the register value.

I have 3 Pen  # Pen == 3
I have 5 Pen  # Pen == 5

Labels

Labels are names joined with -. Each name must be previously declared as a register (You cannot set a label Apple-Pen when you don't have at least 1 Apple and Pen.)

Example:

I have a Pen
I have an Apple
Apple-Pen                # A label

I have a Pinapple
Pen-Pinappple-Apple-Pen  # Another label

You can optionally prefix Uh! to a label.

I have a Pen
I have an Apple
Uh! Apple-Pen

It is an error when two labels of the same name are declared.

Command execution

A command execution starts with Uh! and a specific verb corresponding to the command described below.

MOV(Replace)

Uh! Replace-A-B

Change the value of A to the value of B

Example:

I have a Pen
I have 5 Apple
Uh! Replace-Pen-Apple   # Pen == 5

ADD(Append)

Uh! Append-A-B

A += B

SUB(Rip)

Uh! Rip-A-B

A -= B

MUL(Multiply)

Uh! Multiply-A-B

A *= B

DIV(Chop)

Uh! Chop-A-B

A /= B

STORE(Push)

Uh! Push-A-B

Store the value of A to memory address B

LOAD(Pull)

Uh! Pull-A-B

Load the value of memory address B into register A

PRINT(Print)

Uh! Print-A

Print the value of A as a number

Example:

I have 97 Apple
Uh! Print-Apple
#=> 97

PUTC(Put)

Uh! Put-A

Print the character whose character code is A

Example:

I have 97 Apple
Uh! Put-Apple
#=> a

Put can take more than one arguments.

I have 97 Apple
Uh! Put-Apple-Apple-Apple
#=> aaa

GETC(Pick)

Uh! Pick-A

Read a character from stdin and store its code to A

EQ(Compare)

Uh! Compare-A-B

A = (A == B ? 1 : 0)

Uh! Compare-A-B-C!

Jump to C if A == B

NE(Compare?)

Compare performes NE when suffixed ?.

Uh! Compare-A-B?

A = (A != B ? 1 : 0)

Use !? when you also want to jump (note: ?! is not allowed.)

Uh! Compare-A-B-C!?

Jump to C if A != B

GT(Superior)

Uh! Superior-A-B

A = (A > B ? 1 : 0)

Uh! Superior-A-B-C!

Jump to C if A > B

GE(Superior?)

Uh! Superior-A-B?

A = (A >= B ? 1 : 0)

Uh! Superior-A-B-C!?

Jump to C if A >= B

JMP(Jump)

Uh! Jump-C

Jump to C

Contributing

• Let me know if you have a nice keyword for LT/LE or MOD (it must include 'p')

License

MIT

Contact

https://github.com/yhara/ppap-lang