UNIX — универсальная среда программирования

  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val > d2.val);
  push(d1);
 }

 lt {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val < d2.val);
  push(d1);
 }

 ge {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val >= d2.val);
  push(d1);
 }

 le {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val <= d2.val);
  push(d1);
 }

 eq {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val == d2.val);
  push(d1);
 }

 ne {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val != d2.val);
  push(d1);
 }

 and {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val != 0.0 && d2.val != 0.0);
  push(d1);
 }

 or {
  Datum d1, d2;
  d2 = pop;
  d1 = pop;
  d1.val = (double)(d1.val != 0.0 || d2.val != 0.0);
  push(d1);
 }

 not {
  Datum d;
  d = pop;
  d.val = (double)(d.val == 0.0);
  push(d);
 }

 power {
  Datum d1, d2;
  extern double Pow;
  d2 = pop;
  d1 = pop;
  d1.val = Pow(d1.val, d2.val);
  push(d1);
 }

 assign {
  Datum d1, d2;
  d1 = pop;
  d2 = pop;
  if (d1.sym->type != VAR && d1.sym->type != UNDEF)
  execerror("assignment to non-variable", d1.sym->name);
  d1.sym->u.val = d2.val;
  d1.sym->type = VAR;
  push(d2);
 }

 print {
  Datum d;
  d = pop;
  printf("\t%.8g\n", d.val);
 }

 prexpr /* print numeric value */
 {
  Datum d;
  d = pop;
  printf("%.8g\n", d.val);
 }

 Inst *code(f) /* install one instruction or operand */
  Inst f;
 {
  Inst *oprogp = progp;
  if (progp >= &prog[NPROG])
  execerror("expression too complicated", (char*)0);
  *progp++ = f;
  return oprogp;
 }

 execute(p)
  Inst *p;
 {
  for (pc = p; *pc != STOP; ) (*(*pc++));
 }

3.6.2 fib

 {
  a=0
  b=1
  while(b<1000) {
  c=b
  b=a+b
  a=c
  print(c)
  }
 }

3.6.3 fib2

 {
  n=0
  a=0
  b=1
  while(b<10000000){
  n=n+1
  c=b
  b=a+b
  a=c
  print(b)
  }
  print(n)
 }

3.6.4 hoc.h

 typedef struct Symbol { /* symbol table entry */
  char *name;
  short type; /* VAR, BLTIN, UNDEF */
  union {
  double val; /* if VAR */
  double (*ptr); /* if BLTIN */
  } u;
  struct Symbol *next; /* to link to another */
 } Symbol;
 Symbol *install, *lookup;

 typedef union Datum { /* interpreter stack type */
  double val;
  Symbol *sym;
 } Datum;
 extern Datum pop;

 typedef int (*Inst); /* machine instruction */
 #define STOP (Inst)0

 extern Inst prog[], *progp, *code;
 extern eval, add, sub, mul, div, negate, power;
 extern assign, bltin, varpush, constpush, print;
 extern prexpr;