Виртуална Лаборатория по Компютърни Мрежи и Разпределени ...

Виртуална Лаборатория по Компютърни Мрежи и Разпределени Системи• Присвояване на стойност на променлива: [set]set a 0 # еквивалентно на а = 0 при С/С++• Извличане на стойността на променлива:[ $]set x $a # еквивалентно на x = a при С/С++• Математически операции:set y [expr $a + $b] # еквивалентно на y = a + b при С/С++• Tcl променливите нямат тип, типа им зависи от стойността която имбъде присвоена:set z [expr 1 / 50] # z има стойност 0set w [expr 1.0 / 50.0] # z има стойност 0.02• Създаване на файл: [open]set file1 [open filename w]• Разпечатване на екрана и във файл: [puts]puts $file1 “test” # записва думата test във файла file1• Извикване на UNIX команди: [exec]exec • Дефиниране на условни преходи:[ if, else]if { условие } {... изпълнение на някакви команди} else {... изпълнение на някакви команди}• Дефиниране на цикли: [for]for { set i 0 } { $i < 10} { incr i } {... изпълнение на някакви команди}• Дефиниране на процедури: [proc, global, return]proc my_procedure {parameter1 parameter2 … } {global var1 var2set ret 0... изпълнение на някакви командиreturn $ret}В горната дефиниция на процедура var1 и var2 са променливи външни запроцедурата и за да могат да бъдат използвани вътре в тялото й се дефинираткато глобални с ключовата дума global.• Дефиниранe на клас в OTcl: [class, self, instproc, instvar, superclass]Декларирането на нов клас става с използването на ключовата дума classследвана от името на класа. Методите на класа се декларират чрез ключоватадума instproc, пред която стои името на класа, а след нея името на саматаСтр.77Симулационно изследване на мрежови протоколи