Код:
Вывод на печать:
PROGRAM WasGenerated.ms.script USES DogAndBracket.ms.dict // - в этом словаре описано слово @[ ; USES Testing.ms.dict // - в этом словаре описано слово Test&Dump ; Test&Dump WasGenerated.ms.script.test %SUMMARY 'Метод WasGenerated.ms.script.test' ; // - Эта строчка будет видна в дампе кода : A %SUMMARY 'Метод A' ; // - Эта строчка будет видна в дампе кода ; // A : B %SUMMARY 'Метод B' ; // - Эта строчка будет видна в дампе кода ; // B : C %SUMMARY 'Метод C' ; // - Эта строчка будет видна в дампе кода ; // C @[ // - слово @[ открываем массив ССЫЛОК, а не ЗНАЧЕНИЙ A A A B B B C C C A A A B B B C C C ] // - это массив ССЫЛОК на функции (слова) .filter> ( @ B != ) // - отфильтровываем значения равные ссылке на B // ВАЖНО: тут сравниваем УКАЗАТЕЛИ на функции .map> pop:Word:Name // - мапируем значение на вызов функции pop:Word:Name .filter> ( 'C' != ) // - отфильтровываем значения равные 'C' // ВАЖНО: тут сравниваем ИМЕНА на функций .for> // - итерируем смапированные значения . // - печатаем каждое итерируемое значение ; // WasGenerated.ms.script.test WasGenerated.ms.script.test
Вывод на печать:
VOID TestWithDump WasGenerated.ms.script.test %SUMMARY %SUM 'Метод WasGenerated.ms.script.test' ; // %SUMMARY %SUM : A %SUMMARY %SUM 'Метод A' ; // %SUMMARY %SUM ; // : A : B %SUMMARY %SUM 'Метод B' ; // %SUMMARY %SUM ; // : B : C %SUMMARY %SUM 'Метод C' ; // %SUMMARY %SUM ; // : C WasGenerated.ms.script.test DumpElement ARRAY [ @ A @ A @ A @ B @ B @ B @ C @ C @ C @ A @ A @ A @ B @ B @ B @ C @ C @ C ] ( @ B != ) SWAP Array:Filter pop:Word:Name SWAP Array:Map ( 'C' != ) SWAP Array:Filter . SWAP Array:Iterate ; // VOID TestWithDump WasGenerated.ms.script.test A A A A A A
Комментариев нет:
Отправить комментарий