File Manager

#! /usr/bin/crm
#
#	paolo_overvars.com - paolo written testscript

# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.
#

{
     window
     output /isolate :a: as 'hdgdgb aaa hdgdb', match b as \/aaa\/\n/
     isolate (:a:) /hdgdgb aaa hdgdb/
     match (:b:) [:a:] /aaa/
     output /a=:*:a: - b=:*:b:\n/

     output /alter :a: as 'x'\n/
     alter (:a:) /x/
     output /a=:*:a: - b=:*:b:\n/

     output /\nre-isolate :a: as 'hdgdgb bbb hdgdb'\n/
     isolate (:a:) /hdgdgb bbb hdgdb/
     output /a=:*:a: - b=:*:b:\n/

     output /\nnow match :b: to :a:'s 'bbb' section\n/
     match (:b:) [:a:] /bbb/
     output /a=:*:a: - b=:*:b:\n/

     output /\nnow alter :a: to 'x' again\n/
     alter (:a:) /x/
     output /a=:*:a: - b=:*:b:\n/

     output /\nre-re-isolate :a: as 'hdgdgb ccc hdgdb'\n/
     isolate (:a:) /hdgdgb ccc hdgdb/
     output /a=:*:a: - b=:*:b:\n/

     output /\nnow match :b: to :a:'s 'ccc' section\n/
     match (:b:) [:a:] /ccc/
     output /a=:*:a: - b=:*:b:\n/

     output /\nnow alter :a: to 'x' again\n/
     alter (:a:) /x/
     output /a=:*:a: - b=:*:b:\n/
}