1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2011-2013 Alexis Laferrière <alexis.laf@xymus.net>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
20 var rw
: String = "rw"
22 fun print_all
import String.to_cstring
, r
, rw
`{
24 String_to_cstring( A_r( self ) ),
25 String_to_cstring( A_rw( self ) ) );
27 fun modify
import CString.to_s
, w
=, rw
= `{
28 A_w__assign( self, CString_to_s( "w set from native" ) );
29 A_rw__assign( self, CString_to_s( "rw set from native" ) );
34 fun print_and_modify
( a
: A
) import A
.rw
, A
.rw
=, String.to_cstring
, CString.to_s
`{
35 printf( "%s\n", String_to_cstring( A_rw( a ) ) );
36 A_rw__assign( a, CString_to_s( "set from native" ) );
37 printf( "%s\n", String_to_cstring( A_rw( a ) ) );
47 b
.print_and_modify
( a
)