Err.rf


Sergei M. Abramov (abram@botik.ru)
Mon, 16 Aug 1999 17:26:19 +0400


День добрый, всем!

Я вернулся из "загула" и до того, как разберу почту решил выслать маленький
тест, который шел под RFP/16 и ломал RFP/Linux.

Возможно, это то, что мешает работе FLAC? Посмотрите, пожалуйста:

Сергей
===================8<==========================
$use STDIO;
$func F ex = ;

Main = <F 'abcdefg'>;

F ex =
   { ex : $r e1 e2, <PRINTLN (e1) (e2)>, $fail ;
      = <PRINTLN "O'K"> ;
   };

===================8<==========================
Успешное выполнение под ДОС, RFP/16:

C:\-ABRAM\BCASE>err.exe
(abcdefg)()
(abcdef)(g)
(abcde)(fg)
(abcd)(efg)
(abc)(defg)
(ab)(cdefg)
(a)(bcdefg)
()(abcdefg)
O'K



This archive was generated by hypermail 2.0b3 on Mon Aug 16 1999 - 17:26:33 MSD