Changeset 188 for trunk

Show
Ignore:
Timestamp:
09/02/07 20:47:05 (15 months ago)
Author:
zany
Message:

adding examples

Location:
trunk
Files:
4 added
1 removed
2 modified
4 copied
5 moved

Legend:

Unmodified
Added
Removed

  • trunk/Makefile.am

    r185 r188  
    1 SUBDIRS =                       bfb multicobex obexftp apps doc contrib swig 
     1SUBDIRS =                       bfb multicobex obexftp apps doc examples swig 
    22 
    33EXTRA_DIST =                    obexftp.spec.in \ 

  • trunk/apps/Makefile.am

    r180 r188  
    1 EXTRA_DIST =                    perl_example.pl \ 
    2                                 python_example.py \ 
    3                                 ruby_example.rb \ 
    4                                 tcl_example.tcl \ 
    5                                 ruby_obexftp.rb 
    6  
    71INCLUDES =                      @OPENOBEX_CFLAGS@ \ 
    82                                -I$(top_srcdir) \ 

  • trunk/examples/Makefile.am

    r78 r188  
    1 EXTRA_DIST =                    README_obexftpbackup \ 
     1EXTRA_DIST =                    perl_example.pl \ 
     2                                python_example.py \ 
     3                                ruby_example.rb \ 
     4                                tcl_example.tcl \ 
     5                                c_example.c \ 
     6                                c_example_obex_push.c \ 
     7                                ruby_list_devices.rb \ 
     8                                ruby_obex_push.rb 
     9                                ruby_obexftp.rb \ 
     10                                README_obexftpbackup \ 
    211                                obexftpbackup \ 
    312                                picture-mover 

  • trunk/examples/perl_example.pl

    r122 r188  
    44use OBEXFTP; 
    55 
    6 my $cli = new OBEXFTP::client($OBEXFTP::BLUETOOTH); 
     6my $obex = new OBEXFTP::client($OBEXFTP::BLUETOOTH); 
    77 
    8 my $devs = $cli->discover(); 
     8my $devs = $obex->discover(); 
    99die "No devices found" unless @$devs > 0; 
    1010print "Found " . scalar @$devs . " devices\n"; 
    1111my $dev = $devs->[0]; # or $$devs[0] 
    12 my $channel = 6; 
     12my $channel = OBEXFTP::browsebt($dev, 0); # default is ftp 
    1313print "Using device $dev on channel $channel\n"; 
    1414sleep 2; 
    1515 
    16 my $ret = $cli->connect($dev, $channel); 
     16my $ret = $obex->connect($dev, $channel); 
    1717print "$ret\n"; 
    1818 
    19 $ret = $cli->list("/"); 
     19$ret = $obex->list("/"); 
    2020print "$ret\n"; 
    2121sleep 2; 
    2222 
    23 $ret = $cli->list("/images"); 
     23$ret = $obex->list("/images"); 
    2424print "$ret\n"; 
    2525sleep 2; 
    2626 
    27 $ret = $cli->get("/images/some.jpg"); 
     27$ret = $obex->get("/images/some.jpg"); 
    2828open OUT, ">downloaded.jpg" or die "Can't write test.out: $@"; 
    2929binmode(OUT); 
    … …  
    3131close OUT; 
    3232 
    33 $ret = $cli->get("/data/README.txt"); 
     33$ret = $obex->get("/data/README.txt"); 
    3434print "$ret\n"; 
    3535 
    36 $ret = $cli->disconnect(); 
     36$ret = $obex->disconnect(); 
    3737print "$ret\n"; 
    3838 
    39 $cli->DESTROY(); 
     39$obex->DESTROY(); 
    4040 

  • trunk/examples/python_example.py

    r123 r188  
    33import obexftp 
    44 
    5 cli = obexftp.client(obexftp.BLUETOOTH) 
     5obex = obexftp.client(obexftp.BLUETOOTH) 
    66 
    7 devs = cli.discover(); 
     7devs = obex.discover(); 
    88print devs; 
    99dev = devs[0] 
    1010print "Using %s" % dev 
     11channel = obexftp.browsebt(dev,0) 
     12print "Channel %d" % channel 
    1113 
    12 print cli.connect(dev, 6) 
     14print obex.connect(dev, channel) 
    1315 
    14 print cli.list("/") 
     16print obex.list("/") 
    1517 
    16 print cli.list("/images") 
     18print obex.list("/images") 
    1719 
    18 data = cli.get("/images/some.jpg") 
     20data = obex.get("/images/some.jpg") 
    1921file = open('downloaded.jpg', 'wb') 
    2022file.write(data) 
    2123 
    22 print cli.disconnect() 
     24print obex.disconnect() 
    2325 
    24 cli.delete 
     26obex.delete 
    2527 

  • trunk/examples/ruby_example.rb

    r161 r188  
    88# - or - 
    99 
    10 cli = Obexftp::Client.new(Obexftp::BLUETOOTH) 
    11 intfs = cli.discover 
     10obex = Obexftp::Client.new(Obexftp::BLUETOOTH) 
     11intfs = obex.discover 
    1212intfs.each { |i| puts i } 
    1313 
    … …  
    1515 
    1616dev = intfs.first 
     17channel = Obexftp.browsebt(dev, 0) # default is ftp 
    1718 
    18 puts 'Sync channel' 
    19 puts Obexftp.browsebt(dev, Obexftp::SYNC) 
    20 puts 'Push channel' 
    21 puts Obexftp.browsebt(dev, Obexftp::PUSH) 
    22 puts 'FTP channel' 
    23 puts Obexftp.browsebt(dev, Obexftp::FTP) 
     19obex = Obexftp::Client.new(Obexftp::BLUETOOTH) # or reuse the above 
     20puts obex.connect(dev, channel) 
     21puts obex.list('/') 
     22puts obex.disconnect 
    2423 
    25 channel = Obexftp.browsebt(dev, 0) # default is ftp 
    26 cli = Obexftp::Client.new(Obexftp::BLUETOOTH) # or reuse the above 
    27 puts cli.connect(dev, channel) 
    28 puts cli.list('/') 
    29 puts cli.disconnect 
    30