examples/iOS/ViewController.m

   1 //
   2 //  ViewController.m
   3 //
   4 //  Created by Marc Feeley on 11-03-06.
   5 //  Copyright 2011-2012 Université de Montréal. All rights reserved.
   6 //
   7
   8 // Note: some of this code comes from the KeyboardAccessory
   9 // sample application written by Apple.
  10
  11 #import <UIKit/UIKit.h>
  12 #import <AudioToolbox/AudioToolbox.h>
  13 #import "ViewController.h"
  14
  15
  16 @implementation ViewController
  17
  18 @synthesize segmCtrl, webView0, webView1, webView2, webView3, textView0, textView1, imageView0, imageView1, cancelButton, accessoryView, toolbar, keyboardSounds, timer, queuedActions, locationManager;
  19
  20 //-----------------------------------------------------------------------------
  21
  22 // Gambit setup/cleanup.
  23
  24
  25 /*
  26  * ___VERSION must match the version number of the Gambit header file.
  27  */
  28
  29 #define ___VERSION 406004
  30 #include "gambit.h"
  31
  32 /*
  33  * Define SCHEME_LIBRARY_LINKER as the name of the Scheme library
  34  * prefixed with "____20_" and suffixed with "__".  This is the
  35  * function that initializes the Scheme library.
  36  */
  37
  38 #define SCHEME_LIBRARY_LINKER ____20_program__
  39
  40 ___BEGIN_C_LINKAGE
  41 extern ___mod_or_lnk SCHEME_LIBRARY_LINKER (___global_state_struct*);
  42 ___END_C_LINKAGE
  43
  44
  45 extern char **main_argv;
  46 ___UCS_2 ucs2_gambcdir[1024];
  47
  48 void gambit_setup()
  49 {
  50   /*
  51    * Setup the Scheme library by calling "___setup" with appropriate
  52    * parameters.  The call to "___setup_params_reset" sets all
  53    * parameters to their default setting.
  54    */
  55
  56   int debug_settings = ___DEBUG_SETTINGS_INITIAL;
  57   ___UCS_2STRING *ucs2_argv;
  58   int last_dir_sep;
  59   int i;
  60
  61   if (___NONNULLCHARSTRINGLIST_to_NONNULLUCS_2STRINGLIST
  62         (main_argv,
  63          &ucs2_argv)
  64       != ___FIX(___NO_ERR))
  65     exit(1);
  66
  67   last_dir_sep = 0;
  68   i = 0;
  69
  70   while (ucs2_argv[0][i] != '\0')
  71     {
  72       if (ucs2_argv[0][i] == '/')
  73         last_dir_sep = i;
  74       i++;
  75     }
  76
  77   for (i=0; i<last_dir_sep; i++)
  78     ucs2_gambcdir[i] = ucs2_argv[0][i];
  79
  80   ucs2_gambcdir[i] = '\0';
  81
  82   // Set debugging settings so that all threads with uncaught
  83   // exceptions start a REPL.
  84
  85   debug_settings =
  86     (debug_settings
  87      & ~___DEBUG_SETTINGS_UNCAUGHT_MASK)
  88     | (___DEBUG_SETTINGS_UNCAUGHT_ALL
  89        << ___DEBUG_SETTINGS_UNCAUGHT_SHIFT);
  90
  91   debug_settings =
  92     (debug_settings
  93      & ~___DEBUG_SETTINGS_ERROR_MASK)
  94     | (___DEBUG_SETTINGS_ERROR_REPL
  95        << ___DEBUG_SETTINGS_ERROR_SHIFT);
  96
  97   ___setup_params_struct setup_params;
  98
  99   ___setup_params_reset (&setup_params);
 100
 101   setup_params.version        = ___VERSION;
 102   setup_params.linker         = SCHEME_LIBRARY_LINKER;
 103   setup_params.argv           = ucs2_argv;
 104   setup_params.gambcdir       = ucs2_gambcdir;
 105   setup_params.debug_settings = debug_settings;
 106
 107   ___setup (&setup_params);
 108
 109   ___disable_heartbeat_interrupts ();
 110 }
 111
 112
 113 void gambit_cleanup()
 114 {
 115   ___cleanup ();
 116 }
 117
 118
 119 //-----------------------------------------------------------------------------
 120
 121
 122 static ViewController *theViewController = nil;
 123
 124 - (void)viewDidLoad {
 125
 126   [super viewDidLoad];
 127
 128   webViews[0] = webView0;
 129   webViews[1] = webView1;
 130   webViews[2] = webView2;
 131   webViews[3] = webView3;
 132
 133   textViews[0] = textView0;
 134   textViews[1] = textView1;
 135
 136   imageViews[0] = imageView0;
 137   imageViews[1] = imageView1;
 138
 139   theViewController = self;
 140
 141   set_textView_font(0, @"Courier-Bold", 16);
 142
 143   segmCtrl.selectedSegmentIndex = UISegmentedControlNoSegment;
 144
 145   [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(keyboardWillShow:) name:UIKeyboardWillShowNotification object:nil];
 146   [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(keyboardWillHide:) name:UIKeyboardWillHideNotification object:nil];
 147
 148   timer = nil;
 149
 150   queuedActions = [[NSMutableArray alloc] init];
 151
 152   locationManager = nil;
 153
 154   gambit_setup();
 155
 156   [self heartbeat_tick];
 157 }
 158
 159
 160 - (void)viewDidUnload {
 161
 162   [super viewDidUnload];
 163
 164   [[NSNotificationCenter defaultCenter] removeObserver:self name:UIKeyboardWillShowNotification object:nil];
 165   [[NSNotificationCenter defaultCenter] removeObserver:self name:UIKeyboardWillHideNotification object:nil];
 166
 167   segmCtrl = nil;
 168
 169   webView0 = nil;
 170   webView1 = nil;
 171   webView2 = nil;
 172   webView3 = nil;
 173
 174   textView0 = nil;
 175   textView1 = nil;
 176
 177   imageView0 = nil;
 178   imageView1 = nil;
 179
 180   cancelButton = nil;
 181
 182   accessoryView = nil;
 183   toolbar = nil;
 184
 185   theViewController = nil;
 186
 187   gambit_cleanup();
 188 }
 189
 190
 191 - (void)viewWillAppear:(BOOL)animated {
 192
 193   [super viewWillAppear:animated];
 194 }
 195
 196
 197 - (BOOL)shouldAutorotateToInterfaceOrientation:(UIInterfaceOrientation)interfaceOrientation {
 198
 199   return YES;
 200 }
 201
 202
 203 - (void)didReceiveMemoryWarning {
 204
 205   [super didReceiveMemoryWarning];
 206 }
 207
 208
 209 #pragma mark -
 210 #pragma mark Text view delegate methods
 211
 212 - (BOOL)textViewShouldBeginEditing:(UITextView *)aTextView {
 213
 214   if (textViews[0].inputAccessoryView == nil)
 215     {
 216       [[NSBundle mainBundle] loadNibNamed:@"AccessoryView" owner:self options:nil];
 217
 218       textViews[0].inputAccessoryView = accessoryView;
 219
 220       accessoryView = nil;
 221
 222       show_textView(0);
 223     }
 224
 225   return YES;
 226 }
 227
 228
 229 - (BOOL)textViewShouldEndEditing:(UITextView *)aTextView {
 230
 231   [aTextView resignFirstResponder];
 232   return YES;
 233 }
 234
 235
 236 #pragma mark -
 237 #pragma mark Responding to keyboard events
 238
 239 - (void)keyboardWillShow:(NSNotification *)notification {
 240
 241   /*
 242     Reduce the size of the text view so that it's not obscured by the keyboard.
 243     Animate the resize so that it's in sync with the appearance of the keyboard.
 244   */
 245
 246   NSDictionary *userInfo = [notification userInfo];
 247
 248   // Get the origin of the keyboard when it's displayed.
 249   NSValue* aValue = [userInfo objectForKey:UIKeyboardFrameEndUserInfoKey];
 250
 251   // Get the top of the keyboard as the y coordinate of its origin in
 252   // self's view's coordinate system. The bottom of the text view's
 253   // frame should align with the top of the keyboard's final position.
 254   CGRect keyboardRect = [aValue CGRectValue];
 255   keyboardRect = [self.view convertRect:keyboardRect fromView:nil];
 256
 257   CGFloat keyboardTop = keyboardRect.origin.y;
 258   CGRect newTextViewFrame = self.view.bounds;
 259   newTextViewFrame.size.height = keyboardTop - self.view.bounds.origin.y;
 260
 261   // Get the duration of the animation.
 262   NSValue *animationDurationValue = [userInfo objectForKey:UIKeyboardAnimationDurationUserInfoKey];
 263   NSTimeInterval animationDuration;
 264   [animationDurationValue getValue:&animationDuration];
 265
 266   // Animate the resize of the text view's frame in sync with the
 267   // keyboard's appearance.
 268   [UIView beginAnimations:nil context:NULL];
 269   [UIView setAnimationDuration:animationDuration];
 270
 271   textViews[0].frame = newTextViewFrame;
 272
 273   [UIView commitAnimations];
 274 }
 275
 276
 277 - (void)keyboardWillHide:(NSNotification *)notification {
 278
 279   NSDictionary* userInfo = [notification userInfo];
 280
 281   /*
 282     Restore the size of the text view (fill self's view).  Animate the
 283     resize so that it's in sync with the disappearance of the
 284     keyboard.
 285   */
 286
 287   NSValue *animationDurationValue = [userInfo objectForKey:UIKeyboardAnimationDurationUserInfoKey];
 288   NSTimeInterval animationDuration;
 289   [animationDurationValue getValue:&animationDuration];
 290
 291   [UIView beginAnimations:nil context:NULL];
 292   [UIView setAnimationDuration:animationDuration];
 293
 294   textViews[0].frame = self.view.bounds;
 295
 296   [UIView commitAnimations];
 297 }
 298
 299
 300 #include "intf.h"
 301
 302
 303 void set_navigation(int n) {
 304
 305   ViewController *vc = theViewController;
 306   if (vc != nil)
 307     {
 308       [vc->segmCtrl removeTarget:vc action:@selector(navigation_changed:) forControlEvents:UIControlEventValueChanged];
 309       vc->segmCtrl.selectedSegmentIndex = n;
 310       [vc->segmCtrl addTarget:vc action:@selector(navigation_changed:) forControlEvents:UIControlEventValueChanged];
 311     }
 312 }
 313
 314
 315 - (void)queue_action:(void(^)())action {
 316
 317   [queuedActions addObject:[action copy]];
 318 }
 319
 320
 321 - (void)queue_action_asap:(void(^)())action {
 322
 323   [self queue_action:action];
 324
 325   [self schedule_next_heartbeat_tick:0.0];
 326 }
 327
 328
 329 - (void)send_event:(NSString*)name {
 330
 331   [self queue_action_asap:^{ send_event(name); }];
 332 }
 333
 334
 335 - (void)send_key:(NSString*)name {
 336
 337   [self queue_action_asap:^{ send_key(name); }];
 338 }
 339
 340
 341 - (void)heartbeat_tick {
 342
 343   [self queue_action:^{ [self schedule_next_heartbeat_tick:heartbeat()]; }];
 344
 345   ___enable_heartbeat_interrupts ();
 346
 347   while ([queuedActions count] > 0)
 348     {
 349       void (^action)(void) = [queuedActions objectAtIndex:0];
 350       [queuedActions removeObjectAtIndex:0];
 351
 352       ___ON_THROW(
 353         {
 354           action();
 355         },
 356         exit(0);
 357       );
 358     }
 359
 360   ___disable_heartbeat_interrupts ();
 361 }
 362
 363
 364 - (void)schedule_next_heartbeat_tick:(double)interval {
 365
 366   if (interval >= 0)
 367     {
 368       if (timer != nil)
 369         {
 370           [timer invalidate];
 371           [timer release];
 372         }
 373
 374       timer = [[NSTimer scheduledTimerWithTimeInterval:interval target:self selector:@selector(heartbeat_tick) userInfo:nil repeats:NO] retain];
 375     }
 376 }
 377
 378
 379 - (void)app_become_active {
 380
 381   theViewController.keyboardSounds = -1; // delay check of user preferences
 382
 383   [self send_event:@"app-become-active"];
 384 }
 385
 386
 387 void show_cancelButton() {
 388
 389   ViewController *vc = theViewController;
 390   if (vc != nil)
 391     {
 392       vc->cancelButton.hidden = NO;
 393     }
 394 }
 395
 396
 397 void hide_cancelButton() {
 398
 399   ViewController *vc = theViewController;
 400   if (vc != nil)
 401     {
 402       vc->cancelButton.hidden = YES;
 403     }
 404 }
 405
 406
 407 void show_webView(int view) {
 408
 409   ViewController *vc = theViewController;
 410   if (vc != nil)
 411     {
 412       int i;
 413
 414       for (int i=0; i<NB_WEBVIEWS; i++)
 415         if (i != view)
 416           {
 417             [vc->webViews[i] resignFirstResponder];
 418             vc->webViews[i].hidden = YES;
 419           }
 420
 421       for (int i=0; i<NB_TEXTVIEWS; i++)
 422         {
 423           [vc->textViews[i] resignFirstResponder];
 424           vc->textViews[i].hidden = YES;
 425         }
 426
 427       for (int i=0; i<NB_IMAGEVIEWS; i++)
 428         {
 429           [vc->imageViews[i] resignFirstResponder];
 430           vc->imageViews[i].hidden = YES;
 431         }
 432
 433       [vc->webViews[view] becomeFirstResponder];
 434       vc->webViews[view].hidden = NO;
 435     }
 436 }
 437
 438
 439 void show_textView(int view) {
 440
 441   ViewController *vc = theViewController;
 442   if (vc != nil)
 443     {
 444       int i;
 445
 446       for (int i=0; i<NB_WEBVIEWS; i++)
 447         {
 448           [vc->webViews[i] resignFirstResponder];
 449           vc->webViews[i].hidden = YES;
 450         }
 451
 452       for (int i=0; i<NB_TEXTVIEWS; i++)
 453         if (i != view)
 454           {
 455             [vc->textViews[i] resignFirstResponder];
 456             vc->textViews[i].hidden = YES;
 457           }
 458
 459       for (int i=0; i<NB_IMAGEVIEWS; i++)
 460         {
 461           [vc->imageViews[i] resignFirstResponder];
 462           vc->imageViews[i].hidden = YES;
 463         }
 464
 465       [vc->textViews[view] becomeFirstResponder];
 466       vc->textViews[view].hidden = NO;
 467     }
 468 }
 469
 470
 471 void show_imageView(int view) {
 472
 473   ViewController *vc = theViewController;
 474   if (vc != nil)
 475     {
 476       int i;
 477
 478       for (int i=0; i<NB_WEBVIEWS; i++)
 479         {
 480           [vc->webViews[i] resignFirstResponder];
 481           vc->webViews[i].hidden = YES;
 482         }
 483
 484       for (int i=0; i<NB_TEXTVIEWS; i++)
 485         {
 486           [vc->textViews[i] resignFirstResponder];
 487           vc->textViews[i].hidden = YES;
 488         }
 489
 490       for (int i=0; i<NB_IMAGEVIEWS; i++)
 491         if (i != view)
 492           {
 493             [vc->imageViews[i] resignFirstResponder];
 494             vc->imageViews[i].hidden = YES;
 495           }
 496
 497       [vc->imageViews[view] becomeFirstResponder];
 498       vc->imageViews[view].hidden = NO;
 499     }
 500 }
 501
 502
 503 void set_textView_font(int view, NSString *name, int size) {
 504
 505   ViewController *vc = theViewController;
 506   if (vc != nil)
 507     {
 508       vc->textViews[view].font = [UIFont fontWithName:name size:size];
 509     }
 510 }
 511
 512
 513 void set_textView_content(int view, NSString *str) {
 514
 515   ViewController *vc = theViewController;
 516   if (vc != nil)
 517     {
 518       vc->textViews[view].text = str;
 519     }
 520 }
 521
 522
 523 NSString *get_textView_content(int view) {
 524
 525   ViewController *vc = theViewController;
 526   if (vc != nil)
 527     {
 528       return vc->textViews[view].text;
 529     }
 530
 531   return @"";
 532 }
 533
 534
 535 void add_to_textView(int view, NSString *str) {
 536
 537   ViewController *vc = theViewController;
 538   if (vc != nil)
 539     {
 540       NSMutableString *new_text = [vc->textViews[view].text mutableCopy];
 541       [new_text appendString:str];
 542       vc->textViews[view].text = new_text;
 543       [new_text release];
 544     }
 545 }
 546
 547
 548 void add_output_to_textView(int view, NSString *str) {
 549
 550   add_to_textView(view, [str stringByReplacingOccurrencesOfString:@" " withString:@"\u2007"]);
 551 }
 552
 553
 554 void add_input_to_textView(int view, NSString *str) {
 555
 556   ViewController *vc = theViewController;
 557   if (vc != nil)
 558     {
 559       NSMutableString *new_text = [vc->textViews[view].text mutableCopy];
 560       NSRange selectedRange = vc->textViews[view].selectedRange;
 561
 562       [new_text replaceCharactersInRange:selectedRange withString:str];
 563
 564       vc->textViews[view].text = new_text;
 565       [new_text release];
 566     }
 567 }
 568
 569
 570 void set_webView_content(int view, NSString *str, NSString *base_url_path, BOOL enable_scaling, NSString *mime_type) {
 571
 572   ViewController *vc = theViewController;
 573   if (vc != nil)
 574     {
 575       [vc->webViews[view]
 576           loadData:[str dataUsingEncoding:NSUnicodeStringEncoding]
 577           MIMEType:mime_type
 578           textEncodingName:@"UTF-8"
 579           baseURL:[NSURL fileURLWithPath:(base_url_path != nil) ? base_url_path : [[NSBundle mainBundle] bundlePath]]
 580       ];
 581       vc->webViews[0].scalesPageToFit = enable_scaling;
 582     }
 583 }
 584
 585
 586 void set_webView_content_from_file(int view, NSString *path, NSString *base_url_path, BOOL enable_scaling, NSString *mime_type) {
 587
 588   ViewController *vc = theViewController;
 589   if (vc != nil)
 590     {
 591       NSData *data = [NSData dataWithContentsOfFile:path];
 592       if (data != nil)
 593         {
 594           [vc->webViews[view]
 595               loadData:data
 596               MIMEType:mime_type
 597               textEncodingName:@"UTF-8"
 598               baseURL:[NSURL fileURLWithPath:(base_url_path != nil) ? base_url_path : [[NSBundle mainBundle] bundlePath]]
 599            ];
 600           vc->webViews[view].scalesPageToFit = enable_scaling;
 601         }
 602     }
 603 }
 604
 605
 606 NSString *eval_js_in_webView(int view, NSString *script) {
 607
 608   ViewController *vc = theViewController;
 609   if (vc != nil)
 610     {
 611       return [vc->webViews[view] stringByEvaluatingJavaScriptFromString:script];
 612     }
 613
 614   return nil;
 615 }
 616
 617
 618 void open_URL(NSString *url) {
 619
 620   [[UIApplication sharedApplication] openURL:[NSURL URLWithString:url]];
 621 }
 622
 623
 624 BOOL send_SMS(NSString *recipient, NSString *message) {
 625
 626   ViewController *vc = theViewController;
 627   if (vc != nil)
 628     {
 629       if ([MFMessageComposeViewController canSendText])
 630         {
 631           MFMessageComposeViewController *controller = [[[MFMessageComposeViewController alloc] init] autorelease];
 632
 633           controller.body = message;
 634           controller.recipients = [NSArray arrayWithObjects:recipient,nil];
 635           controller.messageComposeDelegate = vc;
 636           [vc presentModalViewController:controller animated:YES];
 637
 638           return YES;
 639         }
 640     }
 641
 642   return NO;
 643 }
 644
 645
 646 - (void)messageComposeViewController:(MFMessageComposeViewController *)controller didFinishWithResult:(MessageComposeResult)result
 647 {
 648   NSString *event;
 649
 650   [self dismissModalViewControllerAnimated:YES];
 651
 652   switch (result) {
 653
 654   default:
 655   case MessageComposeResultFailed:
 656     event = @"SMS-failed";
 657     break;
 658
 659   case MessageComposeResultCancelled:
 660     event = @"SMS-cancelled";
 661     break;
 662
 663   case MessageComposeResultSent:
 664     event = @"SMS-sent";
 665     break;
 666   }
 667
 668   [self send_event:event];
 669 }
 670
 671
 672 BOOL pick_image() {
 673
 674   ViewController *vc = theViewController;
 675   if (vc != nil)
 676     {
 677       if ([UIImagePickerController isCameraDeviceAvailable: UIImagePickerControllerCameraDeviceRear] ||
 678           [UIImagePickerController isCameraDeviceAvailable: UIImagePickerControllerCameraDeviceFront])
 679         {
 680           UIImagePickerController *controller = [[[UIImagePickerController alloc] init] autorelease];
 681
 682           controller.mediaTypes = [UIImagePickerController availableMediaTypesForSourceType: UIImagePickerControllerSourceTypeCamera];
 683
 684           controller.sourceType = UIImagePickerControllerSourceTypeCamera;
 685
 686           controller.delegate = vc;
 687
 688           [vc presentModalViewController:controller animated:YES];
 689
 690           return YES;
 691         }
 692     }
 693
 694   return NO;
 695 }
 696
 697
 698 - (void)imagePickerController:(UIImagePickerController *)picker didFinishPickingMediaWithInfo:(NSDictionary *)info
 699 {
 700   [picker dismissModalViewControllerAnimated:YES];
 701
 702   [self send_event:@"pick-image:"];
 703 }
 704
 705
 706 void set_idle_timer(BOOL enable) {
 707
 708   [UIApplication sharedApplication].idleTimerDisabled = !enable;
 709 }
 710
 711
 712 void set_toolbar_alpha(double alpha) {
 713
 714   ViewController *vc = theViewController;
 715   if (vc != nil)
 716     {
 717       [vc->toolbar setAlpha: alpha];
 718     }
 719 }
 720
 721 void segm_ctrl_set_title(int segment, NSString *title) {
 722
 723   ViewController *vc = theViewController;
 724   if (vc != nil)
 725     {
 726       [vc->segmCtrl setTitle:title forSegmentAtIndex:segment];
 727     }
 728 }
 729
 730
 731 void segm_ctrl_insert(int segment, NSString *title) {
 732
 733   ViewController *vc = theViewController;
 734   if (vc != nil)
 735     {
 736       [vc->segmCtrl insertSegmentWithTitle:title atIndex:segment animated:false];
 737     }
 738 }
 739
 740
 741 void segm_ctrl_remove(int segment) {
 742
 743   ViewController *vc = theViewController;
 744   if (vc != nil)
 745     {
 746       [vc->segmCtrl removeSegmentAtIndex:segment animated:false];
 747     }
 748 }
 749
 750
 751 void segm_ctrl_remove_all() {
 752
 753   ViewController *vc = theViewController;
 754   if (vc != nil)
 755     {
 756       [vc->segmCtrl removeAllSegments];
 757     }
 758 }
 759
 760
 761 void set_pref(NSString *key, NSString *value) {
 762
 763   NSUserDefaults *prefs = [NSUserDefaults standardUserDefaults];
 764   [prefs setObject:value forKey:key];
 765   [prefs synchronize];
 766 }
 767
 768
 769 NSString *get_pref(NSString *key) {
 770
 771   NSUserDefaults *prefs = [NSUserDefaults standardUserDefaults];
 772   return [prefs stringForKey:key];
 773 }
 774
 775
 776 void set_pasteboard(NSString *value) {
 777
 778   UIPasteboard *pb = [UIPasteboard generalPasteboard];
 779   pb.string = value;
 780 }
 781
 782
 783 NSString *get_pasteboard() {
 784
 785   UIPasteboard *pb = [UIPasteboard generalPasteboard];
 786   return pb.string;
 787 }
 788
 789
 790 NSString *get_documents_dir() {
 791
 792   NSArray *paths = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, YES);
 793   return [paths objectAtIndex:0];
 794 }
 795
 796
 797 void popup_alert(NSString *title, NSString *msg, NSString *cancel_button, NSString *accept_button) {
 798
 799   UIAlertView *alert = [[UIAlertView alloc]
 800                         initWithTitle: title
 801                         message: msg
 802                         delegate: theViewController
 803                         cancelButtonTitle: cancel_button
 804                         otherButtonTitles: accept_button, nil];
 805   [alert show];
 806   [alert release];
 807 }
 808
 809
 810 // Called when an alertview button is touched
 811 - (void)alertView:(UIAlertView *)alertView clickedButtonAtIndex:(NSInteger)buttonIndex {
 812
 813   NSString *event;
 814
 815   switch (buttonIndex) {
 816
 817   case 1:
 818     event = @"popup-alert-accept";
 819     break;
 820
 821   default:
 822   case 0:
 823     event = @"popup-alert-cancel";
 824     break;
 825   }
 826
 827   [self send_event:event];
 828 }
 829
 830
 831 #pragma mark -
 832 #pragma mark Toolbar action
 833
 834 - (IBAction)navigation_changed:(id)sender {
 835   int n = segmCtrl.selectedSegmentIndex;
 836   if (n >= 0)
 837     [self send_event:[NSString stringWithFormat:@"NAV%d", n]];
 838 }
 839
 840
 841 #pragma mark -
 842 #pragma mark Cancel button action
 843
 844 - (IBAction)touch_up_cancel:(id)sender {
 845   [self send_event:@"cancel"];
 846 }
 847
 848
 849 - (BOOL)textView:(UITextView *)textView2 shouldChangeTextInRange:(NSRange)range replacementText:(NSString *)text {
 850
 851   if ([text hasSuffix:@"\n"])
 852     {
 853       unichar c;
 854       int end = [textViews[0].text length];
 855
 856       int line_start = range.location+range.length;
 857
 858       while (line_start > 0 &&
 859              (c = [textViews[0].text characterAtIndex:line_start-1]) != '\n' &&
 860              c != 0x2007) // non breaking space
 861         line_start--;
 862
 863       int line_end = range.location+range.length;
 864
 865       while (line_end < end &&
 866              [textViews[0].text characterAtIndex:line_end] != '\n')
 867         line_end++;
 868
 869       if (line_start == line_end)
 870         {
 871           [textViews[0] resignFirstResponder]; // Hide the keyboard after "return" key is pressed on empty line
 872         }
 873       else
 874         {
 875           NSString *line = [textViews[0].text substringWithRange:NSMakeRange(line_start, line_end-line_start)];
 876
 877           if (line_end == end)
 878             {
 879               add_to_textView(0, text);
 880
 881               [self queue_action_asap:^{
 882                   send_input([line stringByAppendingString:text]);
 883               }];
 884             }
 885           else
 886             add_to_textView(0, line);
 887         }
 888
 889       return NO;
 890     }
 891
 892   return YES;
 893 }
 894
 895
 896 - (IBAction)touch_up_Char:(id)sender withString:(NSString *)aString {
 897
 898   add_input_to_textView(0, aString);
 899 }
 900
 901
 902 #pragma mark -
 903 #pragma mark Accessory view action
 904
 905 - (IBAction)touch_down:(id)sender {
 906
 907   if (keyboardSounds != 0)
 908     {
 909       if (keyboardSounds == -1) // delayed check of user preferences?
 910         {
 911           Boolean exists_and_valid;
 912           keyboardSounds =
 913             CFPreferencesGetAppBooleanValue(CFSTR("keyboard"),
 914                                             CFSTR("/var/mobile/Library/Preferences/com.apple.preferences.sounds"),
 915                                             &exists_and_valid);
 916           if (!exists_and_valid)
 917             keyboardSounds = true; // by default turn on keyboard clicks
 918         }
 919
 920       if (keyboardSounds != 0)
 921         AudioServicesPlaySystemSound(1104); // keyboard "tock" sound
 922     }
 923 }
 924
 925
 926 #pragma mark -
 927 #pragma mark Accessory view action
 928
 929 - (IBAction)touch_up_F1:(id)sender {
 930   [self send_key:@"F1"];
 931 }
 932
 933
 934 #pragma mark -
 935 #pragma mark Accessory view action
 936
 937 - (IBAction)touch_up_F2:(id)sender {
 938   [self send_key:@"F2"];
 939 }
 940
 941
 942 #pragma mark -
 943 #pragma mark Accessory view action
 944
 945 - (IBAction)touch_up_F3:(id)sender {
 946   [self send_key:@"F3"];
 947 }
 948
 949
 950 #pragma mark -
 951 #pragma mark Accessory view action
 952
 953 - (IBAction)touch_up_F4:(id)sender {
 954   [self send_key:@"F4"];
 955 }
 956
 957
 958 #pragma mark -
 959 #pragma mark Accessory view action
 960
 961 - (IBAction)touch_up_F5:(id)sender {
 962   [self send_key:@"F5"];
 963 }
 964
 965
 966 #pragma mark -
 967 #pragma mark Accessory view action
 968
 969 - (IBAction)touch_up_F6:(id)sender {
 970   [self send_key:@"F6"];
 971 }
 972
 973
 974 #pragma mark -
 975 #pragma mark Accessory view action
 976
 977 - (IBAction)touch_up_F7:(id)sender {
 978   [self send_key:@"F7"];
 979 }
 980
 981
 982 #pragma mark -
 983 #pragma mark Accessory view action
 984
 985 - (IBAction)touch_up_F8:(id)sender {
 986   [self send_key:@"F8"];
 987 }
 988
 989
 990 #pragma mark -
 991 #pragma mark Accessory view action
 992
 993 - (IBAction)touch_up_F9:(id)sender {
 994   [self send_key:@"F9"];
 995 }
 996
 997
 998 #pragma mark -
 999 #pragma mark Accessory view action
1000
1001 - (IBAction)touch_up_F10:(id)sender {
1002   [self send_key:@"F10"];
1003 }
1004
1005
1006 #pragma mark -
1007 #pragma mark Accessory view action
1008
1009 - (IBAction)touch_up_F11:(id)sender {
1010   [self send_key:@"F11"];
1011 }
1012
1013
1014 #pragma mark -
1015 #pragma mark Accessory view action
1016
1017 - (IBAction)touch_up_F12:(id)sender {
1018   [self send_key:@"F12"];
1019 }
1020
1021
1022 #pragma mark -
1023 #pragma mark Accessory view action
1024
1025 - (IBAction)touch_up_F13:(id)sender {
1026   [self send_key:@"F13"];
1027 }
1028
1029
1030 #pragma mark -
1031 #pragma mark Accessory view action
1032
1033 - (IBAction)touch_up_SHARP:(id)sender {
1034   [self send_key:@"#"];
1035 }
1036
1037
1038 #pragma mark -
1039 #pragma mark Accessory view action
1040
1041 - (IBAction)touch_up_DQUOTE:(id)sender {
1042   [self send_key:@"\""];
1043 }
1044
1045
1046 #pragma mark -
1047 #pragma mark Accessory view action
1048
1049 - (IBAction)touch_up_QUOTE:(id)sender {
1050   [self send_key:@"'"];
1051 }
1052
1053
1054 #pragma mark -
1055 #pragma mark Accessory view action
1056
1057 - (IBAction)touch_up_COMMA:(id)sender {
1058   [self send_key:@","];
1059 }
1060
1061
1062 #pragma mark -
1063 #pragma mark Accessory view action
1064
1065 - (IBAction)touch_up_PLUS:(id)sender {
1066   [self send_key:@"+"];
1067 }
1068
1069
1070 #pragma mark -
1071 #pragma mark Accessory view action
1072
1073 - (IBAction)touch_up_MINUS:(id)sender {
1074   [self send_key:@"-"];
1075 }
1076
1077
1078 #pragma mark -
1079 #pragma mark Accessory view action
1080
1081 - (IBAction)touch_up_STAR:(id)sender {
1082   [self send_key:@"*"];
1083 }
1084
1085
1086 #pragma mark -
1087 #pragma mark Accessory view action
1088
1089 - (IBAction)touch_up_SLASH:(id)sender {
1090   [self send_key:@"/"];
1091 }
1092
1093
1094 #pragma mark -
1095 #pragma mark Accessory view action
1096
1097 - (IBAction)touch_up_LPAREN:(id)sender {
1098   [self send_key:@"("];
1099 }
1100
1101
1102 #pragma mark -
1103 #pragma mark Accessory view action
1104
1105 - (IBAction)touch_up_RPAREN:(id)sender {
1106   [self send_key:@")"];
1107 }
1108
1109
1110 - (BOOL)webView:(UIWebView *)webView shouldStartLoadWithRequest:(NSURLRequest *)request navigationType:(UIWebViewNavigationType)navigationType {
1111
1112   NSString *url = [[request URL] relativeString];
1113
1114   if ([url hasPrefix:@"event:"])
1115     {
1116       [self send_event:url];
1117
1118       return NO;
1119     }
1120
1121   return YES;
1122 }
1123
1124
1125 void setup_location_updates(double desired_accuracy, double distance_filter)
1126 {
1127   ViewController *vc = theViewController;
1128   if (vc != nil)
1129     {
1130       if (vc->locationManager == nil)
1131         {
1132           vc->locationManager = [[CLLocationManager alloc] init];
1133           vc->locationManager.delegate = vc;
1134         }
1135
1136       if (desired_accuracy < 0.0)
1137         [vc->locationManager stopUpdatingLocation];
1138       else
1139         {
1140           if (desired_accuracy == 0.0)
1141             vc->locationManager.desiredAccuracy = kCLLocationAccuracyBestForNavigation;
1142           else
1143             vc->locationManager.desiredAccuracy = desired_accuracy;
1144
1145           vc->locationManager.distanceFilter = kCLDistanceFilterNone;
1146
1147           if (distance_filter < 0.0)
1148             [vc->locationManager startMonitoringSignificantLocationChanges];
1149           else
1150             {
1151               if (distance_filter > 0.0)
1152                 vc->locationManager.distanceFilter = distance_filter;
1153               [vc->locationManager startUpdatingLocation];
1154             }
1155         }
1156     }
1157 }
1158
1159
1160 // Delegate method from the CLLocationManagerDelegate protocol.
1161
1162 - (void)locationManager:(CLLocationManager *)manager
1163     didUpdateToLocation:(CLLocation *)newLocation
1164     fromLocation:(CLLocation *)oldLocation
1165 {
1166     NSString *event = [NSString stringWithFormat:@"location-update:%+.9f %+.9f %+.1f %+.1f %+.1f %+.1f %+.1f %+.6f",
1167                                 newLocation.coordinate.latitude,
1168                                 newLocation.coordinate.longitude,
1169                                 newLocation.horizontalAccuracy,
1170                                 newLocation.altitude,
1171                                 newLocation.verticalAccuracy,
1172                                 newLocation.course,
1173                                 newLocation.speed,
1174                                 [newLocation.timestamp timeIntervalSince1970]];
1175     [self send_event:event];
1176 }
1177
1178 #pragma mark -
1179 #pragma mark Memory management
1180
1181 - (void)dealloc {
1182
1183   int i;
1184
1185   [[NSNotificationCenter defaultCenter] removeObserver:self name:nil object:nil];
1186
1187   [segmCtrl release];
1188
1189   for (i=0; i<NB_WEBVIEWS; i++)
1190     [webViews[i] release];
1191
1192   for (i=0; i<NB_TEXTVIEWS; i++)
1193     [textViews[i] release];
1194
1195   for (i=0; i<NB_IMAGEVIEWS; i++)
1196     [imageViews[i] release];
1197
1198   [cancelButton release];
1199
1200   [super dealloc];
1201 }
1202
1203
1204 @end