[comp.lang.icon] final language construct

TENAGLIA@mis.mcw.edu (Chris Tenaglia - 257-8765) (11/26/90)

Icon is a pretty nifty programming language. I like and use the 'initial'
construct. But sometimes I wished I had a 'final' construct. This may be
a crummy example, but it illustrates the concept of the final pass through
a procedure. Perhaps this isn't even implementable? Any comments on it's
usefullness or implementation problems?

procedure print(fo,line)
  static ff, pageno, line_count
  initial
    {
    ff := ""
    pageno := 0
    line_count := 0
    }
  if (line_count -:= 1) < 0 then
    {
    write(fo,ff,"title line ",(pageno +:= 1))
    line_count := 55
    ff := "\f"
    }
  write(fo,format(line))
  final
    {
    output_summary()
    }
  end

Chris Tenaglia (System Manager) | Medical College of Wisconsin
8701 W. Watertown Plank Rd.     | Milwaukee, WI 53226
(414)257-8765                   | tenaglia@mis.mcw.edu, mcwmis!tenaglia