nomsu/compatibility/4.11.nom

#!/usr/bin/env nomsu -V4.11
#
    This file defines upgrades from Nomsu <4.11 to Nomsu 4.11
    (overhaul of function literals, deleting (if all of ...), etc. shorthand)
    
use "compatibility/compatibility.nom"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# Overhaul of function literals:
upgrade action "call 1 with" to "4.11" via (..)
    for (%tree %end_version):
        %tree2 = {type: "Action", source: %tree.source, 1: %tree.2}
        for %arg in %tree.4 at %i:
            %tree2.(%i + 1) = %arg
        return (SyntaxTree %tree2)

upgrade action (-> %yield_value) to "4.11" as (yield %yield_value)

# Replace set {%x:1, %y:2} with [%x, %y] = [1, 2]
upgrade action "set" to "4.11" via (..)
    for (%tree %end_version):
        [%lhs, %rhs] = [\[], \[]]
        %lhs.source = %tree.(2).source
        %rhs.source = %tree.(2).source
        for %entry in %tree.2 at %i:
            %lhs.%i = %entry.1
            %rhs.%i = %entry.2
        return (SyntaxTree {type: "Action", source: %tree.source, 1: %lhs, 2: "=", 3: %rhs})

# Deprecating shorthand functions:
upgrade action [if all of %items %body, if all of %items then %body] to "4.11" as (..)
    if (all of %items) %body

upgrade action [unless all of %items %body, unless all of %items then %body] to \
.."4.11" as (if (not (all of %items)) %body)

upgrade action [if any of %items %body, if any of %items then %body] to "4.11" as (..)
    if (any of %items) %body

upgrade action [unless any of %items %body, unless any of %items then %body] to \
.."4.11" as (if (not (any of %items)) %body)

upgrade action [if none of %items %body, if none of %items then %body] to "4.11" \
..as (if (not (any of %items)) %body)

upgrade action [unless none of %items %body, unless none of %items then %body] to \
.."4.11" as (if (any of %items) %body)

upgrade action [..]
    if all of %items %body else %else, if all of %items then %body else %else
..to "4.11" as (if (all of %items) %body else %else)

upgrade action [..]
    unless all of %items %body else %else, unless all of %items then %body else %else
..to "4.11" as (if (not (all of %items)) %body else %else)

upgrade action [..]
    if any of %items %body else %else, if any of %items then %body else %else
..to "4.11" as (if (any of %items) %body else %else)

upgrade action [..]
    unless any of %items %body else %else, unless any of %items then %body else %else
..to "4.11" as (if (not (any of %items)) %body else %else)

upgrade action [..]
    if none of %items %body else %else, if none of %items then %body else %else
..to "4.11" as (if (not (any of %items)) %body else %else)

upgrade action [..]
    unless none of %items %body else %else, unless none of %items then %body else %else
..to "4.11" as (if (any of %items) %body else %else)