[BACK]Return to tests.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/tests.k, Revision 1.1

1.1     ! maekawa     1:
        !             2: /* 1997, 3/7 */
        !             3: def foo() {
        !             4:   local s;
        !             5:   Println(StringToIntegerArray("abcd ABCD"));
        !             6:   s = "abc ABC"; Print(s); Print(" " );
        !             7:   Println(k00AreThereLeftBrace(s));
        !             8:   s = "a[xc]"; Print(s); Print(" " );
        !             9:   Println(k00AreThereLeftBrace(s));
        !            10: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>