/*
* Tests for edge cases in the C programming language that indent does not
* support or in which cases indent behaves strangely.
*/
/*
* Digraphs are replacements for the characters '[', '{' and '#', which are
* missing in some exotic restricted source character sets. They are not used
* in practice, therefore indent doesn't need to support them.
*
* See C99 6.4.6
*/
//indent input
void
digraphs(void)
{
/* same as 'array[subscript]' */
number = array<:subscript:>;
/* same as '(int){ initializer }' */
number = (int)<% initializer %>;
}
//indent end
//indent run
void
digraphs(void)
{
/* same as 'array[subscript]' */
// $ Indent interprets everything before the second ':' as a label name,
// $ indenting the "label" 2 levels to the left.
// $
// $ The space between 'array' and '<' comes from the binary operator '<'.
number = array <:subscript: >;
/* same as '(int){ initializer }' */
// $ The opening '<' and '%' are interpreted as unary operators.
// $ The closing '%' and '>' are interpreted as a binary and unary operator.
number = (int)<%initializer % >;
}
//indent end
/* TODO: test trigraphs, which are as unusual as digraphs */
/* TODO: test digraphs and trigraphs in string literals, just for fun */
/*
* The keywords 'break', 'continue', 'goto' and 'restrict' are ordinary words,
* they do not force a line break before.
*/
//indent input
{
Whether to break or not to break, that is the question;
The people goto the shopping mall;
Begin at the beginning, then continue until you come to the end;
then stop;
Try to restrict yourself;
}
//indent end
//indent run-equals-input -di0
/*
* Try a bit of Perl code, just for fun, taken from pkgsrc/pkgtools/pkglint4.
*
* It works surprisingly well.
*/
//indent input
package PkgLint::Line;
use strict;
use warnings;
BEGIN {
import PkgLint::Util qw(
false true
assert
);
}
use enum qw(FNAME LINES TEXT PHYSLINES CHANGED BEFORE AFTER EXTRA);
sub new($$$$) {
my ($class, $fname, $lines, $text, $physlines) = @_;
my ($self) = ([$fname, $lines, $text, $physlines, false, [], [], {}]);
bless($self, $class);
return $self;
}
sub fname($) { return shift()->[FNAME]; }
# querying, getting and setting the extra values.
sub has($$) {
my ($self, $name) = @_;
return exists($self->[EXTRA]->{$name});
}
//indent end
//indent run -di0 -nfbs -npsl
// $ Space after '::'.
package PkgLint:: Line;
use strict;
use warnings;
BEGIN {
// $ Space after '::'.
import PkgLint:: Util qw(
false true
assert
);
}
// $ Space between 'qw' and '('.
use enum qw (FNAME LINES TEXT PHYSLINES CHANGED BEFORE AFTER EXTRA);
sub new($$$$) {
// $ No space between 'my' and '('.
my($class, $fname, $lines, $text, $physlines) = @_;
my($self) = ([$fname, $lines, $text, $physlines, false, [], [], {
// $ Line break between '{' and '}'.
}
// $ Line break between '}' and ']'.
]);
bless($self, $class);
return $self;
}
sub fname($) {
return shift()->[FNAME];
}
// $ Preprocessing lines are mostly preserved.
# querying, getting and setting the extra values.
sub has($$) {
my($self, $name) = @_;
return exists($self->[EXTRA]->{
// $ Line breaks between '{', '$name', '}' and ');'.
$name
}
);
}
// exit 1
// error: Standard Input:17: Unbalanced parentheses
// warning: Standard Input:17: Extra ']'
// warning: Standard Input:17: Extra ')'
// error: Standard Input:27: Unbalanced parentheses
// warning: Standard Input:27: Extra ')'
//indent end
/*
* Try a piece of old-style JavaScript, just for fun, using '==' instead of the
* now recommended '==='.
*/
//indent input
function join(delim, values)
{
if (values.length == 0)
return '';
if (values.length == 1)
return values[0];
var result = '';
for (var i in values) {
result += delim;
result += values[i];
}
return result.substr(delim.length);
}
//indent end
