can JCF create this kind of output, or not?

[jon bondy]

I want my procedures to look like this:

PROCEDURE Fred(i : INTEGER);
   VAR
      j : INTEGER;
   BEGIN
   i := i + 1;
   FOR j := 1 TO 10 DO
      i := i + 1;
      END;
   END; // Fred

but I can't figure out how to configure JCF to get this kind of output.  Any comments would be helpful

Thanks!

Jon Bondy
jon@jonbondy.com

[jon bondy]

Too bad the embedded spaces in my example were destroyed. This is what I wanted it to look like:

PROCEDURE Fred(i : INTEGER);
...VAR
......j : INTEGER;
...BEGIN
...i := i + 1;
...FOR j := 1 TO 10 DO BEGIN
......i := i + 1;
......END;
...END; // Fred

[Lawrence Johnstone]

That's almost exactly what I would like to generate, except that I'd like the contents of the procedure's BEGIN/END pair indented as well -- e.g.,

PROCEDURE Fred(i: INTEGER);
..VAR
....j: INTEGER;
..BEGIN
....i := i + 1;
....FOR j := 1 TO 10 DO BEGIN
......i := i + 1;
....END; // for
..END; // Fred

Again, if there's some combination of existing options that will produce this indentation style, I'd appreciate it if they could be pointed out.

Failing that, could someone point me to the relevant part of the indenter?  It's very heavy wading in the source code here!

Lawrence O. Johnstone
Ukiah, CA
loj@pacific.net