Am 24.07.2013 12:13, schrieb Bernd Oppolzer:
Oh, so it is already implemented :-)
same here:
TOF:
1 LINE # D/NEST LVL < STANFORD PASCAL, OPPOLZER VERSION OF
10.2011 > 12:07:15 07-24-2013 PAGE 1
1 ) program DECOD ( INPUT , OUTPUT ) ;
2 ) (*$N+*)
3 ) var I : INTEGER ;
4 356D 1) C1 : CHAR ;
5 357D 1) C2 : CHAR ;
6 358D 1) CH : CHAR ;
7 359D 1) HEX : packed array [ 0 .. 15 ] of CHAR ;
8 375D 1)
9 375D 1) BEGIN (* HAUPTPROGRAMM *)
10 ) (* A (* B (* C *) *) *)
11 ) HEX := '0123456789ABCDEF' ;
12 1N 1) I := 0 ;
13 1N 1) while not ( EOF ( INPUT ) ) do
the (*$N+*) comment switches on the nested comment option
In FPC you can use
{$modeswitch nestedcomments}
or
{$modeswitch nestedcomments+}
to switch them on and
{$modeswitch nestedcomments-}
to switch them off.
They are enabled by default in the modes fpc (default mode) and objfpc.
The modeswitch directive can only be used at the beginning of a
program/unit though (basically till before the uses section is parsed).
Regards,
Sven
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
