Changeset 3900


Ignore:
Timestamp:
Sep 5, 2008, 5:12:20 PM (12 years ago)
Author:
orlov
Message:
  • New syntax.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Bit/bit_test.rf

    r1294 r3900  
    11$use StdIO Bit;
    2 Main = <PrintLN <Bit-Left 35 -3>>,
    3        <PrintLN <Bit-Left -32 3>>,
    4        <PrintLN <Bit-Right 32 -3>>,
    5        <PrintLN <Bit-Right -32 3>>,
    6        <PrintLN <Bit-And 32 -3>>,
    7        <PrintLN <Bit-Or 32 -3>>,
    8        <PrintLN <Bit-Clear 366 3>>,
    9        <PrintLN <Bit-Clear -25 4>>,
    10        <PrintLN <Bit-Not 25>>,
    11        <PrintLN <Bit-Not -25>>,
    12        <PrintLN <Bit-Print -320>>,
    13        <PrintLN <Bit-Print -33>>,
    14        <PrintLN <Bit-Print -1>>,
    15        <PrintLN <Bit-Print 256>>,
    16        <PrintLN <Bit-Set 253 1>>,
    17        <PrintLN <Bit-Set -6 2>>,
    18        <PrintLN <Bit-Xor 253 1>>,
    19        <PrintLN <Bit-Xor -253 1>>,
    20        <PrintLN <Bit-Xor 253 -1>>,
    21        <PrintLN <Bit-Xor -34 -1>>,
    22        <PrintLN <Bit-Test -1 1>>,
    23        <PrintLN <Bit-Test 253 4>>;
     2Main = <PrintLn <BitLeft 35 -3>>,
     3       <PrintLn <BitLeft -32 3>>,
     4       <PrintLn <BitRight 32 -3>>,
     5       <PrintLn <BitRight -32 3>>,
     6       <PrintLn <BitAnd 32 -3>>,
     7       <PrintLn <BitOr 32 -3>>,
     8       <PrintLn <BitClear 366 3>>,
     9       <PrintLn <BitClear -25 4>>,
     10       <PrintLn <BitNot 25>>,
     11       <PrintLn <BitNot -25>>,
     12       <PrintLn <BitPrint -320>>,
     13       <PrintLn <BitPrint -33>>,
     14       <PrintLn <BitPrint -1>>,
     15       <PrintLn <BitPrint 256>>,
     16       <PrintLn <BitSet 253 1>>,
     17       <PrintLn <BitSet -6 2>>,
     18       <PrintLn <BitXor 253 1>>,
     19       <PrintLn <BitXor -253 1>>,
     20       <PrintLn <BitXor 253 -1>>,
     21       <PrintLn <BitXor -34 -1>>,
     22       <PrintLn <BitTest -1 1>>,
     23       <PrintLn <BitLength 253>>,
     24       <PrintLn <BitTest 253 4>>;
    2425
    2526     
Note: See TracChangeset for help on using the changeset viewer.