Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • uspace/dist/src/sysel/demos/property.sy

    r051b3db8 rc5cb943d  
    3333        prop X : int is
    3434                get is
    35                         Console.Write("Getting value of X which is ");
    36                         Console.WriteLine(x);
     35                        Builtin.Write("Getting value of X which is ");
     36                        Builtin.WriteLine(x);
    3737                        return x;
    3838                end
    3939
    4040                set value is
    41                         Console.Write("Setting value of X to ");
    42                         Console.WriteLine(value);
     41                        Builtin.Write("Setting value of X to ");
     42                        Builtin.WriteLine(value);
    4343                        x = value;
    4444                end
    45         end
    46 
    47         -- Test accessing property via an unqualified name
    48         fun TestUnqualPropAcc() is
    49                 var i : int;
    50 
    51                 X = 1;
    52                 i = X;
    53 
    54                 Console.Write("TestUnqualPropAcc(): Got ");
    55                 Console.WriteLine(i);
    5645        end
    5746
    … …  
    6251        prop self[index : int] : int is
    6352                get is
    64                         Console.Write("Getting property with index ");
    65                         Console.Write(index);
    66                         Console.Write(" which is ");
    67                         Console.WriteLine(iprops[index]);
     53                        Builtin.Write("Getting property with index ");
     54                        Builtin.Write(index);
     55                        Builtin.Write(" which is ");
     56                        Builtin.WriteLine(iprops[index]);
    6857
    6958                        return iprops[index];
    … …  
    7160
    7261                set value is
    73                         Console.Write("Setting property with index ");
    74                         Console.Write(index);
    75                         Console.Write(" to ");
    76                         Console.WriteLine(value);
     62                        Builtin.Write("Setting property with index ");
     63                        Builtin.Write(index);
     64                        Builtin.Write(" to ");
     65                        Builtin.WriteLine(value);
    7766
    7867                        iprops[index] = value;
    … …  
    9382        prop B : Bar is
    9483                get is
    95                         Console.WriteLine("Getting B");
     84                        Builtin.WriteLine("Getting B");
    9685                        return bprop;
    9786                end
    9887                set value is
    99                         Console.WriteLine("Setting B");
     88                        Builtin.WriteLine("Setting B");
    10089                        bprop = value;
    10190                end
    … …  
    121110                i = a.X;
    122111
    123                 Console.Write("Main(): Got ");
    124                 Console.WriteLine(i);
    125 
    126                 a.TestUnqualPropAcc();
     112                Builtin.Write("Main(): Got ");
     113                Builtin.WriteLine(i);
    127114
    128115                a.iprops = new int[5];
    … …  
    134121                i = a[1];
    135122
    136                 Console.Write("Main(): Got ");
    137                 Console.WriteLine(i);
     123                Builtin.Write("Main(): Got ");
     124                Builtin.WriteLine(i);
    138125
    139126                -- Property field access
    … …  
    145132                a.bprop = b;
    146133
    147                 Console.WriteLine(a.bprop.i);
     134                Builtin.WriteLine(a.bprop.i);
    148135                a.bprop.i = 2;
    149                 Console.WriteLine(a.bprop.i);
     136                Builtin.WriteLine(a.bprop.i);
    150137        end
    151138end
Note: See TracChangeset for help on using the changeset viewer.