code / nomsu

   1 #!/usr/bin/env nomsu -V7.0.0
   2 ###
   3     This file defines upgrades from Nomsu <6.14 to 6.14
   4     
   5 use "compatibility/compatibility"
   6 
   7 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   8 
   9 upgrade action
  10     try $action and if it succeeds $success or if it barfs $msg $fallback
  11 ..to "6.14" as (try $action if it succeeds $success if it fails $msg $fallback)
  12 
  13 upgrade action
  14     try $action and if it barfs $msg $fallback or if it succeeds $success
  15 ..to "6.14" as (try $action if it fails $msg $fallback if it succeeds $success)
  16 
  17 upgrade action (try $action and if it barfs $fallback or if it succeeds $success)
  18 ..to "6.14" as (try $action if it fails $fallback if it succeeds $success)
  19 
  20 upgrade action (try $action and if it barfs $msg $fallback) to "6.14" as
  21     try $action if it fails $msg $fallback
  22 
  23 upgrade action (try $action and if it succeeds $success) to "6.14" as
  24     try $action if it succeeds $success
  25 
  26 upgrade action (assume $assumption or barf $err) to "6.14" as
  27     unless $assumption: fail $err
  28 
  29 upgrade action (barf $msg) to "6.14" as (fail $msg)
  30 upgrade action (\(1's meaning)).stub to "6.14" via
  31     $tree -> ("Var" tree from $tree.source with $tree.1)
  32 upgrade action (log base $b of $n) to "6.14" as (log $n base $b)
  33 upgrade action "use" to "6.14" via
  34     for $tree:
  35         $path = $tree.2.1
  36         $path = ($path, with "%.nom$" -> "")
  37         $path = ($path, with "^lib/" -> "")
  38         return \(use \("Text" tree from $tree.2.source with $path))