File: pvm.dem

package info (click to toggle)
scilab 4.0-12
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 100,640 kB
  • ctags: 57,333
  • sloc: ansic: 377,889; fortran: 242,862; xml: 179,819; tcl: 42,062; sh: 10,593; ml: 9,441; makefile: 4,377; cpp: 1,354; java: 621; csh: 260; yacc: 247; perl: 130; lex: 126; asm: 72; lisp: 30
file content (38 lines) | stat: -rw-r--r-- 925 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
mode(-1)
// Copyright INRIA

if ~with_pvm() then
  x_message('Sorry this version has not been built with pvm interface')
  return
end

if MSDOS then
	mes=x_message(['This demo recquires rsh or ssh client/server on Windows.' ..
	'Click on Cancel, if you aren''t sure to have it.' ..
	'' ..
	'Scilab may be unstable if you haven''t rsh/ssh.' ..
	'' ..
	'Before using PVM, you should test the functionality of the additional software, e.g.' ..
  '' ..  
  '""rsh localhost -l login dir | more""' ..
  '' ..  
  'This should show the directory listing of the local host.' ..
  'Piping to ""more"" additionally checks for buffered std{io,err}.'],['Ok','Cancel'])
	if mes==2 then return, end
end

demos_name=[
    'Master and slave'
    ]
exec('SCI/demos/pvm/pvm1.sce');
return
while %t do
  n=tk_choose(demos_name,'Choose a demo')
  select n
  case 0 then 
    break
  case 1 then  
    exec('SCI/demos/pvm/pvm1.sce');

  end
end