pythonizer

pythonizer copied to clipboard

Enh: Implements signals and alarm()

1

Enhancement: Implements signals and alarm() and also anonymous sub's. Sample perl code: $SIG{ALRM} = sub { die "timeout"; }; eval { alarm($TIME); ... alarm(0); }; if($@ =~ /timeout/) { ......

snoopyjc

Multiline assignments of constant hashrefs generate bad code

2

Multiline assignments of constant hashrefs generate bad code. For example: $i = { key1 => "val1", key2 => "val2", };

snoopyjc

Quoted strings with nested brackets don't find the end properly

1

Quoted strings with nested brackets don't find the end properly: "If the delimiters are bracketing, nested pairs are also skipped. For example, while searching for a closing ] paired with...

snoopyjc

Translating a line with multiple bash-style "and"s / "or"s generates hanging indents

2

Translating a line with multiple bash-style "and"s / "or"s generates hanging indents. For example: ($ec1 = $ar2equivc{$r1}) || ($ec1 = $ar2equivc{"$r1:stub"}) || ($ec1 = $r1); Leaves the indent level set...

snoopyjc

Old perl scripts use ' instead of :: - not handled

1

Old perl scripts use `'` instead of `::` - not handled. Example: $tms_lib'HOME = "/ctms/ctms";

snoopyjc

Bad code generated if last statement in block before else or elsif doesn't end in ;

1

Bad code generated if last statement in block before else or elsif doesn't end in `;`, e.g. if(...) { next } else { ... } will spit out a line...

snoopyjc

Complex hash RHS values produces syntax error in the generated code

1

Complex hash RHS values produces syntax error in the generated code. For example: my %hop = ( "AClli" => $AClli, "ZClli" => $ZClli, "ID" => $circuitRow[$colNames{"ID"}], "mileage" => $circuitRow[$colNames{"mileage"}], "type"...

snoopyjc

Don't assume a subscript for bare words if space before the [...] in a string

1

Don't assume a subscript for bare words if space before the [...] in a string. For example: "Usage: $prog [options] " Generates this code: f"Usage: {prog[options]}] " instead of this...

snoopyjc

Regex with local sub call generates bad code

1

Regex with local sub call generates bad code. For example: next if exists $cl{$k} and strip($fac) =~ /^OC/; Generates: if k in cl and strip([fac])re.search(r'^OC',:

snoopyjc

Bad code generated for pattern match with complex LHS

1

Bad code generated for pattern match with complex LHS. For example: while (not (($line = shift @lines) =~ /^!/))

snoopyjc