Summary

###########################################################################

	File:     gen.icn

	Subject:  Procedures for meta-variant code generation

	Author:   Ralph E. Griswold

	Date:     April 30, 1993

###########################################################################

   This file is in the public domain.

###########################################################################

  These procedures are for use with code produced by a meta-variant
  translator.  As given here, they produce an identity translation.
  Modifications can be made to effect variant translations.

###########################################################################

This file is part of the (main) package.

Alt_(e1, e2)

 e1 | e2

Apply_(e1, e2)

 e1 ! e2

Asgnop_(op, e1, e2)

 e1 op e2

Augscan_(e1, e2)

 e1 ?:= e2

Bamper_(e1, e2)

 e1 & e2

Binop_(op, e1, e2)

 e1 op e2

Break_(e)

 break e

Case_(e, clist)

 case e of { caselist }

Cclause_(e1, e2)

 e1 : e2

Clist_(e1, e2)

 e1 ; e2 in case list

Clit_(e)

 's'

Compound_(es)

 { e1; e2; ... }

Create_(e)

 create e

Default_(e)

 default: e

End_()

 end

Every_(e)

 every e

Every_Do_(e1, e2)

 every e1 do e2

Fail_()

 fail

Field_(e1, e2)

 e . f

Global_(vs)

 global v1, v2, ...

If_(e1, e2)

 if e1 then e2

If_Else_(e1, e2, e3)

 if e1 then e2 else e3

Ilit_(e)

 i

Initial_(s)

 initial e

Invoke_(e0, es)

 e0(e1, e2, ...)

Key_(s)

 &s

Limit_(e1, e2)

 e1 \ e2

Link_(vs)

 link "v1, v2, ..." (problem)

List_(es)

 [e1, e2, ... ]

Local_(vs)

 local v1, v2, ...

Next_()

 next

Not_(e)

 not e

Null_()

 &null

Paren_(es)

 (e1, e2, ... )

Pdco_(e0, es)

 e0{e1, e2, ... }

Proc_(s, es)

 procedure s(v1, v2, ...)

Record_(s, es)

 record s(v1, v2, ...)

Reduce_(s)

 used in code generation

Repalt_(e)

 |e

Repeat_(e)

 repeat e

Return_(e)

 return e

Rlit_(e)

Scan_(e1, e2)

 e1 ? e2

Section_(op, e1, e2, e3)

 e1[e2 op  e3]

Slit_(s)

 "s"

Static_(ev)

 static v1, v2, ..

Subscript_(e1, e2)

 e1[e2]

Suspend_(e)

 suspend e

Suspend_Do_(e1, e2)

 suspend e1 do e2

To_(e1, e2)

 e1 to e2

To_By_(e1, e2, e3)

 e1 to e2 by e3

Unop_(op, e)

 op e

Until_(e)

 until e

Until_Do_(e1, e2)

 until e1 do e2

Var_(s)

 v

While_(e)

 while e

While_Do_(e1, e2)

 while e1 do e2

main()