diff options
Diffstat (limited to 'tests/examplefiles/all.nit')
| -rw-r--r-- | tests/examplefiles/all.nit | 1986 |
1 files changed, 0 insertions, 1986 deletions
diff --git a/tests/examplefiles/all.nit b/tests/examplefiles/all.nit deleted file mode 100644 index d4e1ddfa..00000000 --- a/tests/examplefiles/all.nit +++ /dev/null @@ -1,1986 +0,0 @@ -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -import gtk - -class CalculatorContext - var result : nullable Float = null - - var last_op : nullable Char = null - - var current : nullable Float = null - var after_point : nullable Int = null - - fun push_op( op : Char ) - do - apply_last_op_if_any - if op == 'C' then - self.result = 0.0 - last_op = null - else - last_op = op # store for next push_op - end - - # prepare next current - after_point = null - current = null - end - - fun push_digit( digit : Int ) - do - var current = current - if current == null then current = 0.0 - - var after_point = after_point - if after_point == null then - current = current * 10.0 + digit.to_f - else - current = current + digit.to_f * 10.0.pow(after_point.to_f) - self.after_point -= 1 - end - - self.current = current - end - - fun switch_to_decimals - do - if self.current == null then current = 0.0 - if after_point != null then return - - after_point = -1 - end - - fun apply_last_op_if_any - do - var op = last_op - - var result = result - if result == null then result = 0.0 - - var current = current - if current == null then current = 0.0 - - if op == null then - result = current - else if op == '+' then - result = result + current - else if op == '-' then - result = result - current - else if op == '/' then - result = result / current - else if op == '*' then - result = result * current - end - self.result = result - self.current = null - end -end - -class CalculatorGui - super GtkCallable - - var win : GtkWindow - var container : GtkGrid - - var lbl_disp : GtkLabel - var but_eq : GtkButton - var but_dot : GtkButton - - var context = new CalculatorContext - - redef fun signal( sender, user_data ) - do - var after_point = context.after_point - if after_point == null then - after_point = 0 - else - after_point = (after_point.abs) - end - - if user_data isa Char then # is an operation - var c = user_data - if c == '.' then - but_dot.sensitive= false - context.switch_to_decimals - lbl_disp.text = "{context.current.to_i}." - else - but_dot.sensitive= true - context.push_op( c ) - - var s = context.result.to_precision_native(6) - var index : nullable Int = null - for i in s.length.times do - var chiffre = s.chars[i] - if chiffre == '0' and index == null then - index = i - else if chiffre != '0' then - index = null - end - end - if index != null then - s = s.substring(0, index) - if s.chars[s.length-1] == ',' then s = s.substring(0, s.length-1) - end - lbl_disp.text = s - end - else if user_data isa Int then # is a number - var n = user_data - context.push_digit( n ) - lbl_disp.text = context.current.to_precision_native(after_point) - end - end - - init - do - init_gtk - - win = new GtkWindow( 0 ) - - container = new GtkGrid(5,5,true) - win.add( container ) - - lbl_disp = new GtkLabel( "_" ) - container.attach( lbl_disp, 0, 0, 5, 1 ) - - # digits - for n in [0..9] do - var but = new GtkButton.with_label( n.to_s ) - but.request_size( 64, 64 ) - but.signal_connect( "clicked", self, n ) - if n == 0 then - container.attach( but, 0, 4, 1, 1 ) - else container.attach( but, (n-1)%3, 3-(n-1)/3, 1, 1 ) - end - - # operators - var r = 1 - for op in ['+', '-', '*', '/' ] do - var but = new GtkButton.with_label( op.to_s ) - but.request_size( 64, 64 ) - but.signal_connect( "clicked", self, op ) - container.attach( but, 3, r, 1, 1 ) - r+=1 - end - - # = - but_eq = new GtkButton.with_label( "=" ) - but_eq.request_size( 64, 64 ) - but_eq.signal_connect( "clicked", self, '=' ) - container.attach( but_eq, 4, 3, 1, 2 ) - - # . - but_dot = new GtkButton.with_label( "." ) - but_dot.request_size( 64, 64 ) - but_dot.signal_connect( "clicked", self, '.' ) - container.attach( but_dot, 1, 4, 1, 1 ) - - #C - var but_c = new GtkButton.with_label( "C" ) - but_c.request_size( 64, 64 ) - but_c.signal_connect("clicked", self, 'C') - container.attach( but_c, 2, 4, 1, 1 ) - - win.show_all - end -end - -# context tests -var context = new CalculatorContext -context.push_digit( 1 ) -context.push_digit( 2 ) -context.push_op( '+' ) -context.push_digit( 3 ) -context.push_op( '*' ) -context.push_digit( 2 ) -context.push_op( '=' ) -var r = context.result.to_precision( 2 ) -assert r == "30.00" else print r - -context = new CalculatorContext -context.push_digit( 1 ) -context.push_digit( 4 ) -context.switch_to_decimals -context.push_digit( 1 ) -context.push_op( '*' ) -context.push_digit( 3 ) -context.push_op( '=' ) -r = context.result.to_precision( 2 ) -assert r == "42.30" else print r - -context.push_op( '+' ) -context.push_digit( 1 ) -context.push_digit( 1 ) -context.push_op( '=' ) -r = context.result.to_precision( 2 ) -assert r == "53.30" else print r - -context = new CalculatorContext -context.push_digit( 4 ) -context.push_digit( 2 ) -context.switch_to_decimals -context.push_digit( 3 ) -context.push_op( '/' ) -context.push_digit( 3 ) -context.push_op( '=' ) -r = context.result.to_precision( 2 ) -assert r == "14.10" else print r - -#test multiple decimals -context = new CalculatorContext -context.push_digit( 5 ) -context.push_digit( 0 ) -context.switch_to_decimals -context.push_digit( 1 ) -context.push_digit( 2 ) -context.push_digit( 3 ) -context.push_op( '+' ) -context.push_digit( 1 ) -context.push_op( '=' ) -r = context.result.to_precision( 3 ) -assert r == "51.123" else print r - -#test 'C' button -context = new CalculatorContext -context.push_digit( 1 ) -context.push_digit( 0 ) -context.push_op( '+' ) -context.push_digit( 1 ) -context.push_digit( 0 ) -context.push_op( '=' ) -context.push_op( 'C' ) -r = context.result.to_precision( 1 ) -assert r == "0.0" else print r - -# graphical application - -if "NIT_TESTING".environ != "true" then - var app = new CalculatorGui - run_gtk -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# This sample has been implemented to show you how simple is it to play -# with native callbacks (C) through an high level with NIT program. - -module callback_chimpanze -import callback_monkey - -class Chimpanze - super MonkeyActionCallable - - fun create - do - var monkey = new Monkey - print "Hum, I'm sleeping ..." - # Invoking method which will take some time to compute, and - # will be back in wokeUp method with information. - # - Callback method defined in MonkeyActionCallable Interface - monkey.wokeUpAction(self, "Hey, I'm awake.") - end - - # Inherit callback method, defined by MonkeyActionCallable interface - # - Back of wokeUpAction method - redef fun wokeUp( sender:Monkey, message:Object ) - do - print message - end -end - -var m = new Chimpanze -m.create -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# This sample has been implemented to show you how simple is it to play -# with native callbacks (C) through an high level with NIT program. - -module callback_monkey - -in "C header" `{ - #include <stdio.h> - #include <stdlib.h> - - typedef struct { - int id; - int age; - } CMonkey; - - typedef struct { - MonkeyActionCallable toCall; - Object message; - } MonkeyAction; -`} - -in "C body" `{ - // Method which reproduce a callback answer - // Please note that a function pointer is only used to reproduce the callback - void cbMonkey(CMonkey *mkey, void callbackFunc(CMonkey*, MonkeyAction*), MonkeyAction *data) - { - sleep(2); - callbackFunc( mkey, data ); - } - - // Back of background treatment, will be redirected to callback function - void nit_monkey_callback_func( CMonkey *mkey, MonkeyAction *data ) - { - // To call a your method, the signature must be written like this : - // <Interface Name>_<Method>... - MonkeyActionCallable_wokeUp( data->toCall, mkey, data->message ); - } -`} - -# Implementable interface to get callback in defined methods -interface MonkeyActionCallable - fun wokeUp( sender:Monkey, message: Object) is abstract -end - -# Defining my object type Monkey, which is, in a low level, a pointer to a C struct (CMonkey) -extern class Monkey `{ CMonkey * `} - - new `{ - CMonkey *monkey = malloc( sizeof(CMonkey) ); - monkey->age = 10; - monkey->id = 1; - return monkey; - `} - - # Object method which will get a callback in wokeUp method, defined in MonkeyActionCallable interface - # Must be defined as Nit/C method because of C call inside - fun wokeUpAction( toCall: MonkeyActionCallable, message: Object ) is extern import MonkeyActionCallable.wokeUp `{ - - // Allocating memory to keep reference of received parameters : - // - Object receiver - // - Message - MonkeyAction *data = malloc( sizeof(MonkeyAction) ); - - // Incrementing reference counter to prevent from releasing - MonkeyActionCallable_incr_ref( toCall ); - Object_incr_ref( message ); - - data->toCall = toCall; - data->message = message; - - // Calling method which reproduce a callback by passing : - // - Receiver - // - Function pointer to object return method - // - Datas - cbMonkey( recv, &nit_monkey_callback_func, data ); - `} -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Implementation of circular lists -# This example shows the usage of generics and somewhat a specialisation of collections. -module circular_list - -# Sequences of elements implemented with a double-linked circular list -class CircularList[E] - # Like standard Array or LinkedList, CircularList is a Sequence. - super Sequence[E] - - # The first node of the list if any - # The special case of an empty list is handled by a null node - private var node: nullable CLNode[E] = null - - redef fun iterator do return new CircularListIterator[E](self) - - redef fun first do return self.node.item - - redef fun push(e) - do - var new_node = new CLNode[E](e) - var n = self.node - if n == null then - # the first node - self.node = new_node - else - # not the first one, so attach nodes correctly. - var old_last_node = n.prev - new_node.next = n - new_node.prev = old_last_node - old_last_node.next = new_node - n.prev = new_node - end - end - - redef fun pop - do - var n = self.node - assert n != null - var prev = n.prev - if prev == n then - # the only node - self.node = null - return n.item - end - # not the only one do detach nodes correctly. - var prev_prev = prev.prev - n.prev = prev_prev - prev_prev.next = n - return prev.item - end - - redef fun unshift(e) - do - # Circularity has benefits. - push(e) - self.node = self.node.prev - end - - redef fun shift - do - # Circularity has benefits. - self.node = self.node.next - return self.pop - end - - # Move the first at the last position, the second at the first, etc. - fun rotate - do - var n = self.node - if n == null then return - self.node = n.next - end - - # Sort the list using the Josephus algorithm. - fun josephus(step: Int) - do - var res = new CircularList[E] - while not self.is_empty do - # count 'step' - for i in [1..step[ do self.rotate - # kill - var x = self.shift - res.add(x) - end - self.node = res.node - end -end - -# Nodes of a CircularList -private class CLNode[E] - # The current item - var item: E - - # The next item in the circular list. - # Because of circularity, there is always a next; - # so by default let it be self - var next: CLNode[E] = self - - # The previous item in the circular list. - # Coherence between next and previous nodes has to be maintained by the - # circular list. - var prev: CLNode[E] = self -end - -# An iterator of a CircularList. -private class CircularListIterator[E] - super IndexedIterator[E] - - redef var index: Int - - # The current node pointed. - # Is null if the list is empty. - var node: nullable CLNode[E] - - # The list iterated. - var list: CircularList[E] - - redef fun is_ok - do - # Empty lists are not OK. - # Pointing again the first node is not OK. - return self.node != null and (self.index == 0 or self.node != self.list.node) - end - - redef fun next - do - self.node = self.node.next - self.index += 1 - end - - redef fun item do return self.node.item - - init(list: CircularList[E]) - do - self.node = list.node - self.list = list - self.index = 0 - end -end - -var i = new CircularList[Int] -i.add_all([1, 2, 3, 4, 5, 6, 7]) -print i.first -print i.join(":") - -i.push(8) -print i.shift -print i.pop -i.unshift(0) -print i.join(":") - -i.josephus(3) -print i.join(":") -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# This module beef up the clock module by allowing a clock to be comparable. -# It show the usage of class refinement -module clock_more - -import clock - -redef class Clock - # Clock are now comparable - super Comparable - - # Comparaison of a clock make only sense with an other clock - redef type OTHER: Clock - - redef fun <(o) - do - # Note: < is the only abstract method of Comparable. - # All other operators and methods rely on < and ==. - return self.total_minutes < o.total_minutes - end -end - -var c1 = new Clock(8, 12) -var c2 = new Clock(8, 13) -var c3 = new Clock(9, 13) - -print "{c1}<{c2}? {c1<c2}" -print "{c1}<={c2}? {c1<=c2}" -print "{c1}>{c2}? {c1>c2}" -print "{c1}>={c2}? {c1>=c2}" -print "{c1}<=>{c2}? {c1<=>c2}" -print "{c1},{c2}? max={c1.max(c2)} min={c1.min(c2)}" -print "{c1}.is_between({c2}, {c3})? {c1.is_between(c2, c3)}" -print "{c2}.is_between({c1}, {c3})? {c2.is_between(c1, c3)}" - -print "-" - -c1.minutes += 1 - -print "{c1}<{c2}? {c1<c2}" -print "{c1}<={c2}? {c1<=c2}" -print "{c1}>{c2}? {c1>c2}" -print "{c1}>={c2}? {c1>=c2}" -print "{c1}<=>{c2}? {c1<=>c2}" -print "{c1},{c2}? max={c1.max(c2)} min={c1.min(c2)}" -print "{c1}.is_between({c2}, {c3})? {c1.is_between(c2, c3)}" -print "{c2}.is_between({c1}, {c3})? {c2.is_between(c1, c3)}" -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# This module provide a simple wall clock. -# It is an example of getters and setters. -# A beefed-up module is available in clock_more -module clock - -# A simple wall clock with 60 minutes and 12 hours. -class Clock - # total number of minutes from 0 to 719 - var total_minutes: Int - # Note: only the read acces is public, the write access is private. - - # number of minutes in the current hour (from 0 to 59) - fun minutes: Int do return self.total_minutes % 60 - - # set the number of minutes in the current hour. - # if m < 0 or m >= 60, the hour will be changed accordinlgy - fun minutes=(m: Int) do self.total_minutes = self.hours * 60 + m - - # number of hours (from 0 to 11) - fun hours: Int do return self.total_minutes / 60 - - # set the number of hours - # the minutes will not be updated - fun hours=(h: Int) do self.total_minutes = h * 60 + minutes - - # the position of the hour arrow in the [0..60[ interval - fun hour_pos: Int do return total_minutes / 12 - - # replace the arrow of hours (from 0 to 59). - # the hours and the minutes will be updated. - fun hour_pos=(h: Int) do self.total_minutes = h * 12 - - redef fun to_s do return "{hours}:{minutes}" - - fun reset(hours, minutes: Int) do self.total_minutes = hours*60 + minutes - - init(hours, minutes: Int) do self.reset(hours, minutes) - - redef fun ==(o) - do - # Note: o is a nullable Object, a type test is required - # Thanks to adaptive typing, there is no downcast - # i.e. the code is safe! - return o isa Clock and self.total_minutes == o.total_minutes - end -end - -var c = new Clock(10,50) -print "It's {c} o'clock." - -c.minutes += 22 -print "Now it's {c} o'clock." - -print "The short arrow in on the {c.hour_pos/5} and the long arrow in on the {c.minutes/5}." - -c.hours -= 2 -print "Now it's {c} o'clock." - -var c2 = new Clock(9, 11) -print "It's {c2} on the second clock." -print "The two clocks are synchronized: {c == c2}." -c2.minutes += 1 -print "It's now {c2} on the second clock." -print "The two clocks are synchronized: {c == c2}." -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Sample of the Curl module. -module curl_http - -import curl - -# Small class to represent an Http Fetcher -class MyHttpFetcher - super CurlCallbacks - - var curl: Curl - var our_body: String = "" - - init(curl: Curl) do self.curl = curl - - # Release curl object - fun destroy do self.curl.destroy - - # Header callback - redef fun header_callback(line: String) do - # We keep this callback silent for testing purposes - #if not line.has_prefix("Date:") then print "Header_callback : {line}" - end - - # Body callback - redef fun body_callback(line: String) do self.our_body = "{self.our_body}{line}" - - # Stream callback - Cf : No one is registered - redef fun stream_callback(buffer: String, size: Int, count: Int) do print "Stream_callback : {buffer} - {size} - {count}" -end - - -# Program -if args.length < 2 then - print "Usage: curl_http <method wished [POST, GET, GET_FILE]> <target url>" -else - var curl = new Curl - var url = args[1] - var request = new CurlHTTPRequest(url, curl) - - # HTTP Get Request - if args[0] == "GET" then - request.verbose = false - var getResponse = request.execute - - if getResponse isa CurlResponseSuccess then - print "Status code : {getResponse.status_code}" - print "Body : {getResponse.body_str}" - else if getResponse isa CurlResponseFailed then - print "Error code : {getResponse.error_code}" - print "Error msg : {getResponse.error_msg}" - end - - # HTTP Post Request - else if args[0] == "POST" then - var myHttpFetcher = new MyHttpFetcher(curl) - request.delegate = myHttpFetcher - - var postDatas = new HeaderMap - postDatas["Bugs Bunny"] = "Daffy Duck" - postDatas["Batman"] = "Robin likes special characters @#ùà!è§'(\"é&://,;<>∞~*" - postDatas["Batman"] = "Yes you can set multiple identical keys, but APACHE will consider only once, the last one" - request.datas = postDatas - request.verbose = false - var postResponse = request.execute - - print "Our body from the callback : {myHttpFetcher.our_body}" - - if postResponse isa CurlResponseSuccess then - print "*** Answer ***" - print "Status code : {postResponse.status_code}" - print "Body should be empty, because we decided to manage callbacks : {postResponse.body_str.length}" - else if postResponse isa CurlResponseFailed then - print "Error code : {postResponse.error_code}" - print "Error msg : {postResponse.error_msg}" - end - - # HTTP Get to file Request - else if args[0] == "GET_FILE" then - var headers = new HeaderMap - headers["Accept"] = "Moo" - request.headers = headers - request.verbose = false - var downloadResponse = request.download_to_file(null) - - if downloadResponse isa CurlFileResponseSuccess then - print "*** Answer ***" - print "Status code : {downloadResponse.status_code}" - print "Size downloaded : {downloadResponse.size_download}" - else if downloadResponse isa CurlResponseFailed then - print "Error code : {downloadResponse.error_code}" - print "Error msg : {downloadResponse.error_msg}" - end - # Program logic - else - print "Usage : Method[POST, GET, GET_FILE]" - end -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Mail sender sample using the Curl module -module curl_mail - -import curl - -var curl = new Curl -var mail_request = new CurlMailRequest(curl) - -# Networks -var response = mail_request.set_outgoing_server("smtps://smtp.example.org:465", "user@example.org", "mypassword") -if response isa CurlResponseFailed then - print "Error code : {response.error_code}" - print "Error msg : {response.error_msg}" -end - -# Headers -mail_request.from = "Billy Bob" -mail_request.to = ["user@example.org"] -mail_request.cc = ["bob@example.org"] -mail_request.bcc = null - -var headers_body = new HeaderMap -headers_body["Content-Type:"] = "text/html; charset=\"UTF-8\"" -headers_body["Content-Transfer-Encoding:"] = "quoted-printable" -mail_request.headers_body = headers_body - -# Content -mail_request.body = "<h1>Here you can write HTML stuff.</h1>" -mail_request.subject = "Hello From My Nit Program" - -# Others -mail_request.verbose = false - -# Send mail -response = mail_request.execute -if response isa CurlResponseFailed then - print "Error code : {response.error_code}" - print "Error msg : {response.error_msg}" -else if response isa CurlMailResponseSuccess then - print "Mail Sent" -else - print "Unknown Curl Response type" -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2012-2013 Alexis Laferrière <alexis.laf@xymus.net> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Draws an arithmetic operation to the terminal -module draw_operation - -redef enum Int - fun n_chars: Int `{ - int c; - if ( abs(recv) >= 10 ) - c = 1+(int)log10f( (float)abs(recv) ); - else - c = 1; - if ( recv < 0 ) c ++; - return c; - `} -end - -redef enum Char - fun as_operator(a, b: Int): Int - do - if self == '+' then return a + b - if self == '-' then return a - b - if self == '*' then return a * b - if self == '/' then return a / b - if self == '%' then return a % b - abort - end - - fun override_dispc: Bool - do - return self == '+' or self == '-' or self == '*' or self == '/' or self == '%' - end - - fun lines(s: Int): Array[Line] - do - if self == '+' then - return [new Line(new P(0,s/2),1,0,s), new Line(new P(s/2,1),0,1,s-2)] - else if self == '-' then - return [new Line(new P(0,s/2),1,0,s)] - else if self == '*' then - var lines = new Array[Line] - for y in [1..s-1[ do - lines.add( new Line(new P(1,y), 1,0,s-2) ) - end - return lines - else if self == '/' then - return [new Line(new P(s-1,0), -1,1, s )] - else if self == '%' then - var q4 = s/4 - var lines = [new Line(new P(s-1,0),-1,1,s)] - for l in [0..q4[ do - lines.append([ new Line( new P(0,l), 1,0,q4), new Line( new P(s-1,s-1-l), -1,0,q4) ]) - end - return lines - else if self == '1' then - return [new Line(new P(s/2,0), 0,1,s),new Line(new P(0,s-1),1,0,s), - new Line( new P(s/2,0),-1,1,s/2)] - else if self == '2' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,0),0,1,s/2), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,s/2), 0,1,s/2), - new Line( new P(0,s/2), 1,0,s)] - else if self == '3' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,0),0,1,s), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,s/2), 1,0,s)] - else if self == '4' then - return [new Line(new P(s-1,0),0,1,s), new Line( new P(0,0), 0,1,s/2), - new Line( new P(0,s/2), 1,0,s)] - else if self == '5' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,s/2),0,1,s/2), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,0), 0,1,s/2), - new Line( new P(0,s/2), 1,0,s)] - else if self == '6' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,s/2),0,1,s/2), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,0), 0,1,s), - new Line( new P(0,s/2), 1,0,s)] - else if self == '7' then - var tl = new P(0,0) - var tr = new P(s-1,0) - return [new Line(tl, 1,0,s), new Line(tr,-1,1,s)] - else if self == '8' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,0),0,1,s), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,0), 0,1,s), - new Line( new P(0,s/2), 1,0,s)] - else if self == '9' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,0),0,1,s), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,0), 0,1,s/2), - new Line( new P(0,s/2), 1,0,s)] - else if self == '0' then - return [new Line(new P(0,0), 1,0,s),new Line(new P(s-1,0),0,1,s), - new Line( new P(0,s-1),1,0,s), new Line( new P(0,0), 0,1,s)] - end - return new Array[Line] - end -end - -class P - var x : Int - var y : Int -end - -redef class String - # hack is to support a bug in the evaluation software - fun draw(dispc: Char, size, gap: Int, hack: Bool) - do - var w = size * length +(length-1)*gap - var h = size - var map = new Array[Array[Char]] - for x in [0..w[ do - map[x] = new Array[Char].filled_with( ' ', h ) - end - - var ci = 0 - for c in self.chars do - var local_dispc - if c.override_dispc then - local_dispc = c - else - local_dispc = dispc - end - - var lines = c.lines( size ) - for line in lines do - var x = line.o.x+ci*size - x += ci*gap - var y = line.o.y - for s in [0..line.len[ do - assert map.length > x and map[x].length > y else print "setting {x},{y} as {local_dispc}" - map[x][y] = local_dispc - x += line.step_x - y += line.step_y - end - end - - ci += 1 - end - - if hack then - for c in [0..size[ do - map[c][0] = map[map.length-size+c][0] - map[map.length-size+c][0] = ' ' - end - end - - for y in [0..h[ do - for x in [0..w[ do - printn map[x][y] - end - print "" - end - end -end - -class Line - var o : P - var step_x : Int - var step_y : Int - var len : Int -end - -var a -var b -var op_char -var disp_char -var disp_size -var disp_gap - -if "NIT_TESTING".environ == "true" then - a = 567 - b = 13 - op_char = '*' - disp_char = 'O' - disp_size = 8 - disp_gap = 1 -else - printn "Left operand: " - a = gets.to_i - - printn "Right operand: " - b = gets.to_i - - printn "Operator (+, -, *, /, %): " - op_char = gets.chars[0] - - printn "Char to display: " - disp_char = gets.chars[0] - - printn "Size of text: " - disp_size = gets.to_i - - printn "Space between digits: " - disp_gap = gets.to_i -end - -var result = op_char.as_operator( a, b ) - -var len_a = a.n_chars -var len_b = b.n_chars -var len_res = result.n_chars -var max_len = len_a.max( len_b.max( len_res ) ) + 1 - -# draw first line -var d = max_len - len_a -var line_a = "" -for i in [0..d[ do line_a += " " -line_a += a.to_s -line_a.draw( disp_char, disp_size, disp_gap, false ) - -print "" -# draw second line -d = max_len - len_b-1 -var line_b = op_char.to_s -for i in [0..d[ do line_b += " " -line_b += b.to_s -line_b.draw( disp_char, disp_size, disp_gap, false ) - -# draw ----- -print "" -for i in [0..disp_size*max_len+(max_len-1)*disp_gap] do - printn "_" -end -print "" -print "" - -# draw result -d = max_len - len_res -var line_res = "" -for i in [0..d[ do line_res += " " -line_res += result.to_s -line_res.draw( disp_char, disp_size, disp_gap, false ) -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Example using the privileges module to drop privileges from root -module drop_privileges - -import privileges - -# basic command line options -var opts = new OptionContext -var opt_ug = new OptionUserAndGroup.for_dropping_privileges -opt_ug.mandatory = true -opts.add_option(opt_ug) - -# parse and check command line options -opts.parse(args) -if not opts.errors.is_empty then - print opts.errors - print "Usage: drop_privileges [options]" - opts.usage - exit 1 -end - -# original user -print "before {sys.uid}:{sys.gid}" - -# make the switch -var user_group = opt_ug.value -assert user_group != null -user_group.drop_privileges - -# final user -print "after {sys.uid}:{sys.egid}" -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2012-2013 Alexis Laferrière <alexis.laf@xymus.net> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# This module illustrates some uses of the FFI, specifically -# how to use extern methods. Which means to implement a Nit method in C. -module extern_methods - -redef enum Int - # Returns self'th fibonnaci number - # implemented here in C for optimization purposes - fun fib : Int import fib `{ - if ( recv < 2 ) - return recv; - else - return Int_fib( recv-1 ) + Int_fib( recv-2 ); - `} - - # System call to sleep for "self" seconds - fun sleep `{ - sleep( recv ); - `} - - # Return atan2l( self, x ) from libmath - fun atan_with( x : Int ) : Float `{ - return atan2( recv, x ); - `} - - # This method callback to Nit methods from C code - # It will use from C code: - # * the local fib method - # * the + operator, a method of Int - # * to_s, a method of all objects - # * String.to_cstring, a method of String to return an equivalent char* - fun foo import fib, +, to_s, String.to_cstring `{ - long recv_fib = Int_fib( recv ); - long recv_plus_fib = Int__plus( recv, recv_fib ); - - String nit_string = Int_to_s( recv_plus_fib ); - char *c_string = String_to_cstring( nit_string ); - - printf( "from C: self + fib(self) = %s\n", c_string ); - `} - - # Equivalent to foo but written in pure Nit - fun bar do print "from Nit: self + fib(self) = {self+self.fib}" -end - -print 12.fib - -print "sleeping 1 second..." -1.sleep - -print 100.atan_with( 200 ) -8.foo -8.bar - -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2004-2008 Jean Privat <jean@pryen.org> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# A simple exemple of refinement where a method is added to the integer class. -module fibonacci - -redef class Int - # Calculate the self-th element of the fibonacci sequence. - fun fibonacci: Int - do - if self < 2 then - return 1 - else - return (self-2).fibonacci + (self-1).fibonacci - end - end -end - -# Print usage and exit. -fun usage -do - print "Usage: fibonnaci <integer>" - exit 0 -end - -# Main part -if args.length != 1 then - usage -end -print args.first.to_i.fibonacci -print "hello world" -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -import html - -class NitHomepage - super HTMLPage - - redef fun head do - add("meta").attr("charset", "utf-8") - add("title").text("Nit") - add("link").attr("rel", "icon").attr("href", "http://nitlanguage.org/favicon.ico").attr("type", "image/x-icon") - add("link").attr("rel", "stylesheet").attr("href", "http://nitlanguage.org/style.css").attr("type", "text/css") - add("link").attr("rel", "stylesheet").attr("href", "http://nitlanguage.org/local.css").attr("type", "text/css") - end - - redef fun body do - open("article").add_class("page") - open("section").add_class("pageheader") - add_html("<a id='toptitle_first' class='toptitle'>the</a><a id='toptitle_second' class='toptitle' href=''>Nit</a><a id='toptitle_third' class='toptitle' href=''>Programming Language</a>") - open("header").add_class("header") - open("div").add_class("topsubtitle") - add("p").text("A Fun Language for Serious Programming") - close("div") - close("header") - close("section") - - open("div").attr("id", "pagebody") - open("section").attr("id", "content") - add("h1").text("# What is Nit?") - add("p").text("Nit is an object-oriented programming language. The goal of Nit is to propose a robust statically typed programming language where structure is not a pain.") - add("p").text("So, what does the famous hello world program look like, in Nit?") - add_html("<pre><tt><span class='normal'>print </span><span class='string'>'Hello, World!'</span></tt></pre>") - - add("h1").text("# Feature Highlights") - add("h2").text("Usability") - add("p").text("Nit's goal is to be usable by real programmers for real projects") - - open("ul") - open("li") - add("a").attr("href", "http://en.wikipedia.org/wiki/KISS_principle").text("KISS principle") - close("li") - add("li").text("Script-like language without verbosity nor cryptic statements") - add("li").text("Painless static types: static typing should help programmers") - add("li").text("Efficient development, efficient execution, efficient evolution.") - close("ul") - - add("h2").text("Robustness") - add("p").text("Nit will help you to write bug-free programs") - - open("ul") - add("li").text("Strong static typing") - add("li").text("No more NullPointerException") - close("ul") - - add("h2").text("Object-Oriented") - add("p").text("Nit's guideline is to follow the most powerful OO principles") - - open("ul") - open("li") - add("a").attr("href", "./everything_is_an_object/").text("Everything is an object") - close("li") - open("li") - add("a").attr("href", "./multiple_inheritance/").text("Multiple inheritance") - close("li") - open("li") - add("a").attr("href", "./refinement/").text("Open classes") - close("li") - open("li") - add("a").attr("href", "./virtual_types/").text("Virtual types") - close("li") - close("ul") - - - add("h1").text("# Getting Started") - add("p").text("Get Nit from its Git repository:") - - add_html("<pre><code>$ git clone http://nitlanguage.org/nit.git</code></pre>") - add("p").text("Build the compiler (may be long):") - add_html("<pre><code>$ cd nit\n") - add_html("$ make</code></pre>") - add("p").text("Compile a program:") - add_html("<pre><code>$ bin/nitc examples/hello_world.nit</code></pre>") - add("p").text("Execute the program:") - add_html("<pre><code>$ ./hello_world</code></pre>") - close("section") - close("div") - close("article") - end -end - -var page = new NitHomepage -page.write_to stdout -page.write_to_file("nit.html") -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# An example that defines and uses stacks of integers. -# The implementation is done with a simple linked list. -# It features: free constructors, nullable types and some adaptive typing. -module int_stack - -# A stack of integer implemented by a simple linked list. -# Note that this is only a toy class since a real linked list will gain to use -# generics and extends interfaces, like Collection, from the standard library. -class IntStack - # The head node of the list. - # Null means that the stack is empty. - private var head: nullable ISNode = null - - # Add a new integer in the stack. - fun push(val: Int) - do - self.head = new ISNode(val, self.head) - end - - # Remove and return the last pushed integer. - # Return null if the stack is empty. - fun pop: nullable Int - do - var head = self.head - if head == null then return null - # Note: the followings are statically safe because of the - # previous 'if'. - var val = head.val - self.head = head.next - return val - end - - # Return the sum of all integers of the stack. - # Return 0 if the stack is empty. - fun sumall: Int - do - var sum = 0 - var cur = self.head - while cur != null do - # Note: the followings are statically safe because of - # the condition of the 'while'. - sum += cur.val - cur = cur.next - end - return sum - end - - # Note: Because all attributes have a default value, a free constructor - # "init()" is implicitly defined. -end - -# A node of a IntStack -private class ISNode - # The integer value stored in the node. - var val: Int - - # The next node, if any. - var next: nullable ISNode - - # Note: A free constructor "init(val: Int, next: nullable ISNode)" is - # implicitly defined. -end - -var l = new IntStack -l.push(1) -l.push(2) -l.push(3) - -print l.sumall - -# Note: the 'for' control structure cannot be used on IntStack in its current state. -# It requires a more advanced topic. -# However, why not using the 'loop' control structure? -loop - var i = l.pop - if i == null then break - # The following is statically safe because of the previous 'if'. - print i * 10 -end - -# Note: 'or else' is used to give an alternative of a null expression. -l.push(5) -print l.pop or else 0 # l.pop gives 5, so print 5 -print l.pop or else 0 # l.pop gives null, so print the alternative: 0 - - -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2014 Alexis Laferrière <alexis.laf@xymus.net> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Basic example of OpenGL ES 2.0 usage from the book OpenGL ES 2.0 Programming Guide. -# -# Code reference: -# https://code.google.com/p/opengles-book-samples/source/browse/trunk/LinuxX11/Chapter_2/Hello_Triangle/Hello_Triangle.c -module opengles2_hello_triangle - -import glesv2 -import egl -import mnit_linux # for sdl -import x11 - -if "NIT_TESTING".environ == "true" then exit(0) - -var window_width = 800 -var window_height = 600 - -# -## SDL -# -var sdl_display = new SDLDisplay(window_width, window_height) -var sdl_wm_info = new SDLSystemWindowManagerInfo -var x11_window_handle = sdl_wm_info.x11_window_handle - -# -## X11 -# -var x_display = x_open_default_display -assert x_display != 0 else print "x11 fail" - -# -## EGL -# -var egl_display = new EGLDisplay(x_display) -assert egl_display.is_valid else print "EGL display is not valid" -egl_display.initialize - -print "EGL version: {egl_display.version}" -print "EGL vendor: {egl_display.vendor}" -print "EGL extensions: {egl_display.extensions.join(", ")}" -print "EGL client APIs: {egl_display.client_apis.join(", ")}" - -assert egl_display.is_valid else print egl_display.error - -var config_chooser = new EGLConfigChooser -#config_chooser.surface_type_egl -config_chooser.blue_size = 8 -config_chooser.green_size = 8 -config_chooser.red_size = 8 -#config_chooser.alpha_size = 8 -#config_chooser.depth_size = 8 -#config_chooser.stencil_size = 8 -#config_chooser.sample_buffers = 1 -config_chooser.close - -var configs = config_chooser.choose(egl_display) -assert configs != null else print "choosing config failed: {egl_display.error}" -assert not configs.is_empty else print "no EGL config" - -print "{configs.length} EGL configs available" -for config in configs do - var attribs = config.attribs(egl_display) - print "* caveats: {attribs.caveat}" - print " conformant to: {attribs.conformant}" - print " size of RGBA: {attribs.red_size} {attribs.green_size} {attribs.blue_size} {attribs.alpha_size}" - print " buffer, depth, stencil: {attribs.buffer_size} {attribs.depth_size} {attribs.stencil_size}" -end - -var config = configs.first - -var format = config.attribs(egl_display).native_visual_id - -# TODO android part -# Opengles1Display_midway_init(recv, format); - -var surface = egl_display.create_window_surface(config, x11_window_handle, [0]) -assert surface.is_ok else print egl_display.error - -var context = egl_display.create_context(config) -assert context.is_ok else print egl_display.error - -var make_current_res = egl_display.make_current(surface, surface, context) -assert make_current_res - -var width = surface.attribs(egl_display).width -var height = surface.attribs(egl_display).height -print "Width: {width}" -print "Height: {height}" - -assert egl_bind_opengl_es_api else print "eglBingAPI failed: {egl_display.error}" - -# -## GLESv2 -# - -print "Can compile shaders? {gl_shader_compiler}" -assert_no_gl_error - -assert gl_shader_compiler else print "Cannot compile shaders" - -# gl program -print gl_error.to_s -var program = new GLProgram -if not program.is_ok then - print "Program is not ok: {gl_error.to_s}\nLog:" - print program.info_log - abort -end -assert_no_gl_error - -# vertex shader -var vertex_shader = new GLVertexShader -assert vertex_shader.is_ok else print "Vertex shader is not ok: {gl_error}" -vertex_shader.source = """ -attribute vec4 vPosition; -void main() -{ - gl_Position = vPosition; -} """ -vertex_shader.compile -assert vertex_shader.is_compiled else print "Vertex shader compilation failed with: {vertex_shader.info_log} {program.info_log}" -assert_no_gl_error - -# fragment shader -var fragment_shader = new GLFragmentShader -assert fragment_shader.is_ok else print "Fragment shader is not ok: {gl_error}" -fragment_shader.source = """ -precision mediump float; -void main() -{ - gl_FragColor = vec4(1.0, 0.0, 0.0, 1.0); -} -""" -fragment_shader.compile -assert fragment_shader.is_compiled else print "Fragment shader compilation failed with: {fragment_shader.info_log}" -assert_no_gl_error - -program.attach_shader vertex_shader -program.attach_shader fragment_shader -program.bind_attrib_location(0, "vPosition") -program.link -assert program.is_linked else print "Linking failed: {program.info_log}" -assert_no_gl_error - -# draw! -var vertices = [0.0, 0.5, 0.0, -0.5, -0.5, 0.0, 0.5, -0.5, 0.0] -var vertex_array = new VertexArray(0, 3, vertices) -vertex_array.attrib_pointer -gl_clear_color(0.5, 0.0, 0.5, 1.0) -for i in [0..10000[ do - printn "." - assert_no_gl_error - gl_viewport(0, 0, width, height) - gl_clear_color_buffer - program.use - vertex_array.enable - vertex_array.draw_arrays_triangles - egl_display.swap_buffers(surface) -end - -# delete -program.delete -vertex_shader.delete -fragment_shader.delete - -# -## EGL -# -# close -egl_display.make_current(new EGLSurface.none, new EGLSurface.none, new EGLContext.none) -egl_display.destroy_context(context) -egl_display.destroy_surface(surface) - -# -## SDL -# -# close -sdl_display.destroy -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2004-2008 Jean Privat <jean@pryen.org> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# How to print arguments of the command line. -module print_arguments - -for a in args do - print a -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2004-2008 Jean Privat <jean@pryen.org> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# A procedural program (without explicit class definition). -# This program manipulates arrays of integers. -module procedural_array - -# The sum of the elements of `a'. -# Uses a 'for' control structure. -fun array_sum(a: Array[Int]): Int -do - var sum = 0 - for i in a do - sum = sum + i - end - return sum -end - -# The sum of the elements of `a' (alternative version). -# Uses a 'while' control structure. -fun array_sum_alt(a: Array[Int]): Int -do - var sum = 0 - var i = 0 - while i < a.length do - sum = sum + a[i] - i = i + 1 - end - return sum -end - -# The main part of the program. -var a = [10, 5, 8, 9] -print(array_sum(a)) -print(array_sum_alt(a)) -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Client sample using the Socket module which connect to the server sample. -module socket_client - -import socket - -if args.length < 2 then - print "Usage : socket_client <host> <port>" - return -end - -var s = new Socket.client(args[0], args[1].to_i) -print "[HOST ADDRESS] : {s.address}" -print "[HOST] : {s.host}" -print "[PORT] : {s.port}" -print "Connecting ... {s.connected}" -if s.connected then - print "Writing ... Hello server !" - s.write("Hello server !") - print "[Response from server] : {s.read(100)}" - print "Closing ..." - s.close -end -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2013 Matthieu Lucas <lucasmatthieu@gmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Server sample using the Socket module which allow client to connect -module socket_server - -import socket - -if args.is_empty then - print "Usage : socket_server <port>" - return -end - -var socket = new Socket.server(args[0].to_i, 1) -print "[PORT] : {socket.port.to_s}" - -var clients = new Array[Socket] -var max = socket -loop - var fs = new SocketObserver(true, true, true) - fs.readset.set(socket) - - for c in clients do fs.readset.set(c) - - if fs.select(max, 4, 0) == 0 then - print "Error occured in select {sys.errno.strerror}" - break - end - - if fs.readset.is_set(socket) then - var ns = socket.accept - print "Accepting {ns.address} ... " - print "[Message from {ns.address}] : {ns.read(100)}" - ns.write("Goodbye client.") - print "Closing {ns.address} ..." - ns.close - end -end - -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -import template - -### Here, definition of the specific templates - -# The root template for composers -class TmplComposers - super Template - - # Short list of composers - var composers = new Array[TmplComposer] - - # Detailled list of composers - var composer_details = new Array[TmplComposerDetail] - - # Add a composer in both lists - fun add_composer(firstname, lastname: String, birth, death: Int) - do - composers.add(new TmplComposer(lastname)) - composer_details.add(new TmplComposerDetail(firstname, lastname, birth, death)) - end - - redef fun rendering do - add """ -COMPOSERS -========= -""" - add_all composers - add """ - -DETAILS -======= -""" - add_all composer_details - end -end - -# A composer in the short list of composers -class TmplComposer - super Template - - # Short name - var name: String - - init(name: String) do self.name = name - - redef fun rendering do add "- {name}\n" -end - -# A composer in the detailled list of composers -class TmplComposerDetail - super Template - - var firstname: String - var lastname: String - var birth: Int - var death: Int - - init(firstname, lastname: String, birth, death: Int) do - self.firstname = firstname - self.lastname = lastname - self.birth = birth - self.death = death - end - - redef fun rendering do add """ - -COMPOSER: {{{firstname}}} {{{lastname}}} -BIRTH...: {{{birth}}} -DEATH...: {{{death}}} -""" - -end - -### Here a simple usage of the templates - -var f = new TmplComposers -f.add_composer("Johann Sebastian", "Bach", 1685, 1750) -f.add_composer("George Frideric", "Handel", 1685, 1759) -f.add_composer("Wolfgang Amadeus", "Mozart", 1756, 1791) -f.write_to(stdout) -# This file is part of NIT ( http://www.nitlanguage.org ). -# -# Copyright 2014 Lucas Bajolet <r4pass@hotmail.com> -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. - -# Sample module for a minimal chat server using Websockets on port 8088 -module websocket_server - -import websocket - -var sock = new WebSocket(8088, 1) - -var msg: String - -if sock.listener.eof then - print sys.errno.strerror -end - -sock.accept - -while not sock.listener.eof do - if not sock.connected then sock.accept - if sys.stdin.poll_in then - msg = gets - printn "Received message : {msg}" - if msg == "exit" then sock.close - if msg == "disconnect" then sock.disconnect_client - sock.write(msg) - end - if sock.can_read(10) then - msg = sock.read_line - if msg != "" then print msg - end -end - |