/* $NetBSD: edge_cases.c,v 1.4 2023/06/17 22:09:24 rillig Exp $ */

/*
 * 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

//indent run-equals-input -di0 -npsl