foreign.lisp

   1 ;;; foreign.lisp - low-level bindings
   2 ;; Copyright (C) 2010, Joachim Fasting
   3 ;;
   4 ;;   This file is part of cl-webkit
   5 ;;
   6 ;; All rights reserved.
   7 ;;
   8 ;; Redistribution and use in source and binary forms, with or without
   9 ;; modification, are permitted provided that the following conditions are met:
  10 ;;
  11 ;; 1. Redistribution of source code must retain the above copyright
  12 ;;    notice, this list of conditions and the following disclaimer.
  13 ;;
  14 ;; 2. Redistribution in binary form must reproduce the above copyright
  15 ;;    notice, this list of conditions and the following disclaimer in the
  16 ;;    documentation and/or other materials provided with the distribution.
  17 ;;
  18 ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  19 ;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  20 ;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21 ;; DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
  22 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  23 ;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  24 ;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  25 ;; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  26 ;; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  27 ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 ;;; Code:
  30 \f
  31 (in-package :cl-webkit.foreign)
  32
  33 ;;; Load foreign library
  34 \f
  35 (define-foreign-library libwebkit
  36   (:unix (:or "libwebkitgtk-1.0.so")))
  37
  38 (use-foreign-library libwebkit)
  39
  40 ;;; Dummies
  41 \f
  42 (defctype gtk-target-list :pointer)
  43 (defctype gtk-movement-step :int)
  44 (defctype gdk-event-button :pointer)
  45
  46 ;; XXX: the following should be implemented
  47 (defctype soup-session :pointer)
  48
  49 (defctype soup-message :pointer)
  50
  51 (defctype webkit-hit-test-result :pointer)
  52
  53 (defctype webkit-web-frame :pointer)
  54
  55 (defctype webkit-web-window-features :pointer)
  56
  57 (defctype webkit-web-inspector :pointer)
  58
  59 ;;; Foreign structures
  60 \f
  61
  62 ;; This is the central class of the WebKit API. It's a widget implementing the
  63 ;; scrolling interface.
  64 ;;
  65 ;; It is responsible for managing the drawing of content and forwarding of
  66 ;; events.
  67 (defctype webkit-web-view :pointer)
  68 (export 'webkit-web-view)
  69
  70 (defctype webkit-web-back-forward-list :pointer)
  71 (export 'webkit-web-back-forward-list)
  72
  73 ;; Control the behaviour of a webkit-web-view
  74 ;;
  75 ;; Properties:
  76 ;;
  77 ;; auto-load-images boolean
  78 ;; auto-resize-window boolean
  79 ;; auto-shrink-images boolean
  80 ;; cursive-font-family string
  81 ;; default-encoding string
  82 ;; default-font-family string
  83 ;; default-font-size int
  84 ;; default-monospace-font-size int
  85 ;; editing-behavior webkit-editing-behavior
  86 ;; enable-caret-browsing boolean
  87 ;; enable-default-context-menu boolean
  88 ;; enable-developer-extras boolean
  89 ;; enable-dom-paste boolean
  90 ;; enable-file-access-from-file-uris boolean
  91 ;; enable-html5-database boolean
  92 ;; enable-html5-local-storage boolean
  93 ;; enable-java-applet boolean
  94 ;; enable-offline-web-application-cache boolean
  95 ;; enable-page-cache boolean
  96 ;; enable-scripts boolean
  97 ;; enable-site-specific-quirks boolean
  98 ;; enable-spatial-navigation boolean
  99 ;; enable-spell-checking boolean
 100 ;; enable-universal-access-from-file-uris boolean
 101 ;; enable-xss-auditor boolean
 102 ;; enforce-96-dpi boolean
 103 ;; fantasy-font-family string
 104 ;; javascript-can-access-clipboard boolean
 105 ;; javascript-can-open-windows-automatically boolean
 106 ;; minimum-font-size int
 107 ;; minimum-logical-font-size int
 108 ;; monospace-font-family string
 109 ;; print-backgrounds boolean
 110 ;; resizable-text-areas boolean
 111 ;; sans-serif-font-family string
 112 ;; serif-font-family string
 113 ;; spell-checking-languages string
 114 ;; tab-key-cycles-through-elements boolean
 115 ;; user-agent string
 116 ;; user-stylesheet-uri string
 117 ;; zoom-step float
 118 (defctype webkit-web-settings :pointer)
 119 (export 'webkit-web-settings)
 120
 121 ;; Represents the network related aspects of navigation request. Used whenever
 122 ;; WebKit wants to provide information about a request that will be sent, or has
 123 ;; been sent.
 124 ;;
 125 ;; For valid URIs, you also get a soup-message object, which provides access to
 126 ;; further information such as headers.
 127 (defctype webkit-network-request :pointer)
 128 (export 'webkit-network-request)
 129
 130 ;; Represents the network related aspects of navigation response
 131 (defctype webkit-network-response :pointer)
 132 (export 'webkit-network-response)
 133
 134 ;; Represents a downloaded URI, encapsulates the data of the download as well
 135 ;; as the URI, MIME type and frame name of the resource.
 136 (defctype webkit-web-resource :pointer)
 137 (export 'webkit-web-resource)
 138
 139 ;; Used in signals to provide details about what led the navigation to happen.
 140 (defctype webkit-web-navigation-action :pointer)
 141 (export 'webkit-web-navigation-action)
 142
 143 ;; A class that carries with it information about a download request.
 144 ;; Use this to control the download process, or to simply figure out what is
 145 ;; to be downlaoded, and do it yourself.
 146 (defctype webkit-download :pointer)
 147 (export 'webkit-download)
 148
 149 ;; Liason between WebKit and the application regarding asynchronous policy decisions,
 150 ;; like opening new windows, redirection, etc.
 151 ;;
 152 ;; These objects are passed to the application on signal emissions that deal with
 153 ;; policy decision. They are used by the application to tell the engine what to do.
 154 (defctype webkit-web-policy-decision :pointer)
 155 (export 'webkit-web-policy-decision)
 156
 157 (defctype webkit-web-history-item :pointer)
 158 (export 'webkit-web-history-item)
 159
 160 ;;; webkitversion.h
 161 \f
 162 (defcfun "webkit_major_version" :uint)
 163 (export 'webkit-major-version)
 164
 165 (defcfun "webkit_minor_version" :uint)
 166 (export 'webkit-minor-version)
 167
 168 (defcfun "webkit_micro_version" :uint)
 169 (export 'webkit-micro-version)
 170
 171 ;;; webkitwebsettings.h
 172 \f
 173 (defcfun "webkit_web_settings_new" webkit-web-settings)
 174 (export 'webkit-web-settings-new)
 175
 176 (defcfun "webkit_web_settings_copy" webkit-web-settings
 177   (web-settings webkit-web-settings))
 178 (export 'webkit-web-settings-copy)
 179
 180 (defcfun "webkit_web_settings_get_user_agent" :string ; *gchar
 181   (web-settings webkit-web-settings))
 182 (export 'webkit-web-settings-get-user-agent)
 183
 184 ;;; webkitnetworkrequest.h
 185 \f
 186 ;; NOTE: returns NULL if the URI is invalid
 187 (defcfun "webkit_network_request_new" webkit-network-request
 188   (uri :string))
 189 (export 'webkit-network-request-new)
 190
 191 ;; NOTE: if the request has an associated soup-message, its URI will also be set
 192 ;; by this call.
 193 (defcfun "webkit_network_request_set_uri" :void
 194   (request webkit-network-request)
 195   (uri :string))
 196 (export 'webkit-network-request-set-uri)
 197
 198 (defcfun "webkit_network_request_get_uri" :string
 199   (request webkit-network-request))
 200 (export 'webkit-network-request-get-uri)
 201
 202 (defcfun "webkit_network_request_get_message" soup-message
 203   (request webkit-network-request))
 204 (export 'webkit-network-request-get-message)
 205
 206 ;;; webkitnetworkresponse.h
 207 \f
 208 (defcfun "webkit_network_response_new" webkit-network-response
 209   (uri :string))
 210 (export 'webkit-network-response-new)
 211
 212 ;; NOTE: when the response has an associated soup-message, its URI will also
 213 ;; be set by this call
 214 (defcfun "webkit_network_response_set_uri" :void
 215   (response webkit-network-response)
 216   (uri :string))
 217 (export 'webkit-network-response-set-uri)
 218
 219 (defcfun "webkit_network_response_get_uri" :string
 220   (response webkit-network-response))
 221 (export 'webkit-network-response-get-uri)
 222
 223 (defcfun "webkit_network_response_get_message" soup-message
 224   (response webkit-network-response))
 225 (export 'webkit-network-response-get-message)
 226
 227 ;;; webkitwebresource.h
 228 \f
 229 ;; NOTE: encoding can be NULL
 230 ;; NOTE: frame_name can be used if the resource represents contents of an entire HTML
 231 ;; frame, otherwise pass NULL
 232 (defcfun "webkit_web_resource_new" webkit-web-resource
 233   (data :string)
 234   (size :int) ; is really `gssize'
 235   (uri :string)
 236   (mime-type :string)
 237   (encoding :string)
 238   (frame-name :string))
 239 (export 'webkit-web-resource-new)
 240
 241 ;; NOTE: the web-resource is owned by WebKit and should not be freed
 242 (defcfun "webkit_web_resource_get_data" glib:g-string ; this is GString
 243   (web-resource webkit-web-resource))
 244 (export 'webkit-web-resource-get-data)
 245
 246 (defcfun "webkit_web_resource_get_uri" :string
 247   (web-resource webkit-web-resource))
 248 (export 'webkit-web-resource-get-uri)
 249
 250 (defcfun "webkit_web_resource_get_mime_type" :string
 251   (web-resource webkit-web-resource))
 252 (export 'webkit-web-resource-get-mime-type)
 253
 254 (defcfun "webkit_web_resource_get_encoding" :string
 255   (web-resource webkit-web-resource))
 256 (export 'webkit-web-resource-get-encoding)
 257
 258 (defcfun "webkit_web_resource_get_frame_name" :string
 259   (web-resource webkit-web-resource))
 260 (export 'webkit-web-resource-get-frame-name)
 261
 262 ;;; webkitwebnavigationaction.h
 263 \f
 264 ;; The reason why WebKit is requesting a navigation.
 265 (defcfun "webkit_web_navigation_action_get_reason" webkit-web-navigation-reason
 266   (navigation-action webkit-web-navigation-action))
 267 (export 'webkit-web-navigation-action-get-reason)
 268
 269 (defcfun "webkit_web_navigation_action_set_reason" :void
 270   (navigation-action webkit-web-navigation-action)
 271   (reason webkit-web-navigation-reason))
 272 (export 'webkit-web-navigation-action-set-reason)
 273
 274 ;; The URI that was originally requested. May differ from navigation target (due to redirects).
 275 (defcfun "webkit_web_navigation_action_get_original_uri" :string
 276   (navigation-action webkit-web-navigation-action))
 277 (export 'webkit-web-navigation-action-get-original-uri)
 278
 279 (defcfun "webkit_web_navigation_action_set_original_uri" :void
 280   (navigation-action webkit-web-navigation-action)
 281   (uri :string))
 282 (export 'webkit-web-navigation-action-set-original-uri)
 283
 284 ;; The DOM identifier for the mouse button used to click.
 285 ;; Values are 0, 1 and 2 for left, middle and right buttons.
 286 ;; Actions not initiated by a mouse click are denoted by -1.
 287 (defcfun "webkit_web_navigation_action_get_button" :int
 288   (navigation-action webkit-web-navigation-action))
 289 (export 'webkit-web-navigation-action-get-button)
 290
 291 ;; The bitmask with the state of the modifier keys.
 292 (defcfun "webkit_web_navigation_action_get_modifier_state" :int
 293   (navigation-action webkit-web-navigation-action))
 294 (export 'webkit-web-navigation-action-get-modifier-state)
 295
 296 (defcfun "webkit_web_navigation_action_get_target_frame" :string
 297   (navigation-action webkit-web-navigation-action))
 298 (export 'webkit-web-navigation-action-get-target-frame)
 299
 300 ;;; webkitdownload.h
 301 \f
 302 (defcfun "webkit_download_new" webkit-download
 303   (request webkit-network-request))
 304 (export 'webkit-download-new)
 305
 306 ;; Initiate the download.
 307 (defcfun "webkit_download_start" :void
 308   (download webkit-download))
 309 (export 'webkit-download-start)
 310
 311 ;; Cancel the download.
 312 ;;
 313 ;; TODO: this will not free the download object, it must be freed with `g_object_unref()'
 314 ;; NOTE: this emits a WebKitDownload::error signal
 315 (defcfun "webkit_download_cancel" :void
 316   (download webkit-download))
 317 (export 'webkit-download-cancel)
 318
 319 (defcfun "webkit_download_get_uri" :string
 320   (download webkit-download))
 321 (export 'webkit-download-get-uri)
 322
 323 (defcfun "webkit_download_get_network_request" webkit-network-request
 324   (download webkit-download))
 325 (export 'webkit-download-get-network-request)
 326
 327 (defcfun "webkit_download_get_network_response" webkit-network-response
 328   (download webkit-download))
 329 (export 'webkit-download-get-network-response)
 330
 331 ;; The filename that was suggested by the server, or the one derived by WebKit from the URI.
 332 (defcfun "webkit_download_get_suggested_filename" :string
 333   (download webkit-download))
 334 (export 'webkit-download-get-suggested-filename)
 335
 336 (defcfun "webkit_download_get_destination_uri" :string
 337   (download webkit-download))
 338 (export 'webkit-download-get-destination-uri)
 339
 340 ;; Obtain the URI to which the downloaded file will be written.
 341 ;;
 342 ;; NOTE: must be set before calling `webkit_download_start()'
 343 ;; NOTE: may be NULL
 344 (defcfun "webkit_download_set_destination_uri" :void
 345   (download webkit-download)
 346   (destination-uri :string))
 347 (export 'webkit-download-set-destination-uri)
 348
 349 ;; Determine the current progress of the download. Returns a number ranging
 350 ;; from 0.0 to 1.0
 351 (defcfun "webkit_download_get_progress" :double
 352   (download webkit-download))
 353 (export 'webkit-download-get-progress)
 354
 355 ;; Returns the number of seconds since the download was started.
 356 (defcfun "webkit_download_get_elapsed_time" :double
 357   (download webkit-download))
 358 (export 'webkit-download-get-elapsed-time)
 359
 360 ;; The expected total size of the download. May be incorrect.
 361 (defcfun "webkit_download_get_total_size" :uint64
 362   (download webkit-download))
 363 (export 'webkit-download-get-total-size)
 364
 365 (defcfun "webkit_download_get_status" webkit-download-status
 366   (download webkit-download))
 367
 368 ;;; webkitwebpolicydecision.h
 369 \f
 370 (defcfun "webkit_web_policy_decision_use" :void
 371   (decision webkit-web-policy-decision))
 372 (export 'webkit-web-policy-decision-use)
 373
 374 (defcfun "webkit_web_policy_decision_ignore" :void
 375   (decision webkit-web-policy-decision))
 376 (export 'webkit-web-policy-decision-ignore)
 377
 378 (defcfun "webkit_web_policy_decision_download" :void
 379   (decision webkit-web-policy-decision))
 380 (export 'webkit-web-policy-decision-download)
 381
 382 ;;; webkitwebhistoryitem.h
 383 \f
 384 (defcfun "webkit_web_history_item_new" webkit-web-history-item)
 385 (export 'webkit-web-history-item-new)
 386
 387 (defcfun "webkit_web_history_item_new_with_data" webkit-web-history-item
 388   (uri :string)
 389   (title :string))
 390 (export 'webkit-web-history-item-new-with-data)
 391
 392 (defcfun "webkit_web_history_item_get_title" :string
 393   (web-history-item webkit-web-history-item))
 394 (export 'webkit-web-history-item-get-title)
 395
 396 (defcfun "webkit_web_history_item_get_alternate_title" :string
 397   (web-history-item webkit-web-history-item))
 398 (export 'webkit-web-history-item-get-alternate-title)
 399
 400 (defcfun "webkit_web_history_item_set_alternate_title" :void
 401   (web-history-item webkit-web-history-item)
 402   (title :string))
 403 (export 'webkit-web-history-item-set-alternate-title)
 404
 405 (defcfun "webkit_web_history_item_get_uri" :string
 406   (web-history-item webkit-web-history-item))
 407 (export 'webkit-web-history-item-get-uri)
 408
 409 (defcfun "webkit_web_history_item_get_original_uri" :string
 410   (web-history-item webkit-web-history-item))
 411 (export 'webkit-web-history-item-get-original-uri)
 412
 413 (defcfun "webkit_web_history_item_get_last_visited_time" :double
 414   (web-history-item webkit-web-history-item))
 415 (export 'webkit-web-history-item-get-last-visited-time)
 416
 417 (defcfun "webkit_web_history_item_copy" webkit-web-history-item
 418   (web-history-item webkit-web-history-item))
 419 (export 'webkit-web-history-item-copy)
 420
 421 ;;; webkitwebbackforwardlist.h
 422 \f
 423 (defcfun "webkit_web_back_forward_list_new_with_web_view" webkit-web-back-forward-list
 424   (web-view webkit-web-view))
 425 (export 'webkit-web-back-forward-list-new-with-web-view)
 426
 427 (defcfun "webkit_web_back_forward_list_go_forward" :void
 428   (web-back-forward-list webkit-web-back-forward-list))
 429 (export 'webkit-web-back-forward-list-go-forward)
 430
 431 (defcfun "webkit_web_back_forward_list_go_back" :void
 432   (web-back-forward-list webkit-web-back-forward-list))
 433 (export 'webkit-web-back-forward-list-go-back)
 434
 435 (defcfun "webkit_web_back_forward_list_contains_item" :boolean
 436   (web-back-forward-list webkit-web-back-forward-list)
 437   (history-item webkit-web-history-item))
 438 (export 'webkit-web-back-forward-list-contains-item)
 439
 440 (defcfun "webkit_web_back_forward_list_go_to_item" :void
 441   (web-back-forward-list webkit-web-back-forward-list)
 442   (history-item webkit-web-history-item))
 443 (export 'webkit-web-back-forward-list-go-to-item)
 444
 445 ;; XXX: why do we get errors with glib:glist as the return type?
 446 (defcfun "webkit_web_back_forward_list_get_forward_list_with_limit" :pointer ; GList
 447   (web-back-forward-list webkit-web-back-forward-list)
 448   (limit :int))
 449 (export 'webkit-web-back-forward-list-get-forward-list-with-limit)
 450
 451 ;; XXX: why do we get errors with glib:glist as the return type?
 452 (defcfun "webkit_web_back_forward_list_get_back_list_with_limit" :pointer ; GList
 453   (web-back-forward-list webkit-web-back-forward-list)
 454   (limit :int))
 455 (export 'webkit-web-back-forward-list-get-back-list-with-limit)
 456
 457 (defcfun "webkit_web_back_forward_list_get_back_item" webkit-web-history-item
 458   (web-back-forward-list webkit-web-back-forward-list))
 459 (export 'webkit-web-back-forward-list-get-back-item)
 460
 461 (defcfun "webkit_web_back_forward_list_get_current_item" webkit-web-history-item
 462   (web-back-forward-list webkit-web-back-forward-list))
 463 (export 'webkit-web-back-forward-list-get-current-item)
 464
 465 (defcfun "webkit_web_back_forward_list_get_forward_item" webkit-web-history-item
 466   (web-back-forward-list webkit-web-back-forward-list))
 467 (export 'webkit-web-back-forward-list-get-forward-item)
 468
 469 (defcfun "webkit_web_back_forward_list_get_nth_item" webkit-web-history-item
 470   (web-back-forward-list webkit-web-back-forward-list)
 471   (index :int))
 472 (export 'webkit-web-back-forward-list-get-nth-item)
 473
 474 (defcfun "webkit_web_back_forward_list_get_back_length" :int
 475   (web-back-forward-list webkit-web-back-forward-list))
 476 (export 'webkit-web-back-forward-list-get-back-length)
 477
 478 (defcfun "webkit_web_back_forward_list_get_forward_length" :int
 479   (web-back-forward-list webkit-web-back-forward-list))
 480 (export 'webkit-web-back-forward-list-get-forward-length)
 481
 482 (defcfun "webkit_web_back_forward_list_get_limit" :int
 483   (web-back-forward-list webkit-web-back-forward-list))
 484 (export 'webkit-web-back-forward-list-get-limit)
 485
 486 (defcfun "webkit_web_back_forward_list_set_limit" :void
 487   (web-back-forward-list webkit-web-back-forward-list)
 488   (limit :int))
 489 (export 'webkit-web-back-forward-list-set-limit)
 490
 491 (defcfun "webkit_web_back_forward_list_add_item" :void
 492   (web-back-forward-list webkit-web-back-forward-list)
 493   (history-item webkit-web-history-item))
 494 (export 'webkit-web-back-forward-list-add-item)
 495
 496 (defcfun "webkit_web_back_forward_list_clear" :void
 497   (web-back-forward-list webkit-web-back-forward-list))
 498 (export 'webkit-web-back-forward-list-clear)
 499
 500 ;;; webkitwebview.h
 501
 502 ;; TODO: this needs to be initialized!
 503 ;; TODO: what did I mean by that?
 504 (defcfun "webkit_web_view_new" webkit-web-view)
 505 (export 'webkit-web-view-new)
 506
 507 (defcfun "webkit_web_view_get_title" :string
 508   (web-view webkit-web-view))
 509 (export 'webkit-web-view-get-title)
 510
 511 (defcfun "webkit_web_view_get_uri" :string
 512   (web-view webkit-web-view))
 513 (export 'webkit-web-view-get-uri)
 514
 515 (defcfun "webkit_web_view_set_maintains_back_forward_list" :void
 516   (web-view webkit-web-view)
 517   (mode :boolean))
 518 (export 'webkit-web-view-set-maintains-back-forward-list)
 519
 520 (defcfun "webkit_web_view_get_back_forward_list" webkit-web-back-forward-list
 521   (web-view webkit-web-view))
 522 (export 'wekbit-web-view-get-back-forward-list)
 523
 524 (defcfun "webkit_web_view_go_to_back_forward_item" :boolean
 525   (web-view webkit-web-view)
 526   (item webkit-web-history-item))
 527 (export 'webkit-web-view-go-to-back-forward-item)
 528
 529 (defcfun "webkit_web_view_can_go_back" :boolean
 530   (web-view webkit-web-view))
 531 (export 'webkit-web-view-can-go-back)
 532
 533 (defcfun "webkit_web_view_can_go_back_or_forward" :boolean
 534   (web-view webkit-web-view)
 535   (steps :int)) ;; Negative means backward, positive forward
 536 (export 'webkit-web-view-can-go-back-or-forward)
 537
 538 (defcfun "webkit_web_view_can_go_forward" :boolean
 539   (web-view webkit-web-view))
 540 (export 'webkit-web-view-can-go-forward)
 541
 542 (defcfun "webkit_web_view_go_forward" :void
 543   (web-view webkit-web-view))
 544 (export 'webkit-web-view-go-forward)
 545
 546 (defcfun "webkit_web_view_stop_loading" :void
 547   (web-view webkit-web-view))
 548 (export 'webkit-web-view-stop-loading)
 549
 550 (defcfun "webkit_web_view_open" :void
 551   (web-view webkit-web-view)
 552   (uri :string))
 553 (export 'webkit-web-view-open)
 554
 555 (defcfun "webkit_web_view_reload" :void
 556   (web-view webkit-web-view))
 557 (export 'webkit-web-view-reload)
 558
 559 (defcfun "webkit_web_view_reload_bypass_cache" :void
 560   (web-view webkit-web-view))
 561 (export 'webkit-web-view-reload-bypass-cache)
 562
 563 (defcfun ("webkit_web_view_load_uri" %webkit-web-view-load-uri) :void
 564   (web-view webkit-web-view)
 565   (uri :string))
 566
 567 (defun webkit-web-view-load-uri (view uri)
 568   (with-foreign-string (c-uri uri)
 569     (%webkit-web-view-load-uri view c-uri)))
 570 (export 'webkit-web-view-load-uri)
 571
 572 (defcfun "webkit_web_view_load_string" :void
 573   (web-view webkit-web-view)
 574   (content :string)
 575   (mime-type :string)
 576   (encoding :string)
 577   (base-uri :string))
 578 (export 'webkit-web-view-load-string)
 579
 580 (defcfun "webkit_web_view_load_html_string" :void
 581   (web-view webkit-web-view)
 582   (content :string)
 583   (base-uri :string))
 584 (export 'webkit-web-view-load-html-string)
 585
 586 (defcfun "webkit_web_view_load_request" :void
 587   (web-view webkit-web-view)
 588   (request webkit-network-request))
 589 (export 'webkit-web-view-load-request)
 590
 591 (defcfun "webkit_web_view_search_text" :boolean
 592   (web-view webkit-web-view)
 593   (text :string)
 594   (case-sensitive :boolean)
 595   (forward :boolean)
 596   (wrap :boolean))
 597 (export 'webkit-web-view-search-text)
 598
 599 (defcfun "webkit_web_view_mark_text_matches" :uint
 600   (web-view webkit-web-view)
 601   (string :string)
 602   (case-sensitive :boolean)
 603   (limit :uint))
 604 (export 'webkit-web-view-mark-text-matches)
 605
 606 (defcfun "webkit_web_view_set_highlight_text_matches" :void
 607   (web-view webkit-web-view)
 608   (highlight :boolean))
 609 (export 'webkit-web-view-set-highlight-text-matches)
 610
 611 (defcfun "webkit_web_view_unmark_text_matches" :void
 612   (web-view webkit-web-view))
 613 (export 'wekbit-web-view-unmark-text-matches)
 614
 615 (defcfun "webkit_web_view_get_main_frame" webkit-web-frame
 616   (web-view webkit-web-view))
 617 (export 'webkit-web-view-get-main-frame)
 618
 619 (defcfun "webkit_web_view_get_focused_frame" webkit-web-frame
 620   (web-view webkit-web-view))
 621 (export 'webkit-web-view-get-focused-frame)
 622
 623 (defcfun "webkit_web_view_execute_script" :void
 624   (web-view webkit-web-view)
 625   (script :string))
 626 (export 'webkit-web-view-execute-script)
 627
 628 (defcfun "webkit_web_view_can_cut_clipboard" :boolean
 629   (web-view webkit-web-view))
 630 (export 'webkit-web-view-can-cut-clipboard)
 631
 632 (defcfun "webkit_web_view_can_copy_clipboard" :boolean
 633   (web-view webkit-web-view))
 634 (export 'webkit-web-view-can-copy-clipboard)
 635
 636 (defcfun "webkit_web_view_can_paste_clipboard" :boolean
 637   (web-view webkit-web-view))
 638 (export 'webkit-web-view-can-paste-clipboard)
 639
 640 (defcfun "webkit_web_view_cut_clipboard" :void
 641   (web-view webkit-web-view))
 642 (export 'webkit-web-view-cut-clipboard)
 643
 644 (defcfun "webkit_web_view_copy_clipboard" :void
 645   (web-view webkit-web-view))
 646 (export 'webkit-web-view-copy-clipboard)
 647
 648 (defcfun "webkit_web_view_paste_clipboard" :void
 649   (web-view webkit-web-view))
 650 (export 'webkit-web-view-paste-clipboard)
 651
 652 (defcfun "webkit_web_view_delete_selection" :void
 653   (web-view webkit-web-view))
 654 (export 'webkit-web-view-delete-selection)
 655
 656 (defcfun "webkit_web_view_has_selection" :boolean
 657   (web-view webkit-web-view))
 658 (export 'webkit-web-view-has-selection)
 659
 660 (defcfun "webkit_web_view_select_all" :void
 661   (web-view webkit-web-view))
 662 (export 'webkit-web-view-select-all)
 663
 664 (defcfun "webkit_web_view_get_editable" :boolean
 665   (web-view webkit-web-view))
 666 (export 'webkit-web-view-get-editable)
 667
 668 (defcfun "webkit_web_view_set_editable" :void
 669   (web-view webkit-web-view)
 670   (mode :boolean))
 671 (export 'webkit-web-view-set-editable)
 672
 673 (defcfun "webkit_web_view_get_copy_target_list" gtk-target-list
 674   (web-view webkit-web-view))
 675 (export 'webkit-web-view-get-copy-target-list)
 676
 677 (defcfun "webkit_web_view_get_paste_target_list" gtk-target-list
 678   (web-view webkit-web-view))
 679 (export 'webkit-web-view-get-paste-target-list)
 680
 681 (defcfun "webkit_web_view_set_settings" :void
 682   (web-view webkit-web-view)
 683   (settings webkit-web-settings))
 684 (export 'webkit-web-view-set-settings)
 685
 686 (defcfun "webkit_web_view_get_settings" webkit-web-settings
 687   (web-view webkit-web-view))
 688 (export 'webkit-web-view-get-settings)
 689
 690 (defcfun "webkit_web_view_get_inspector" webkit-web-inspector
 691   (web-view webkit-web-view))
 692 (export 'webkit-web-view-get-inspector)
 693
 694 (defcfun "webkit_web_view_get_window_features" webkit-web-window-features
 695   (web-view webkit-web-view))
 696 (export 'webkit-web-view-get-window-features)
 697
 698 (defcfun "webkit_web_view_can_show_mime_type" :boolean
 699   (web-view webkit-web-view)
 700   (mime-type :string))
 701 (export 'webkit-web-view-can-show-mime-type)
 702
 703 (defcfun "webkit_web_view_get_transparent" :void
 704   (web-view webkit-web-view)
 705   (mode :boolean))
 706 (export 'webkit-web-view-get-transparent)
 707
 708 (defcfun "webkit_web_view_get_zoom_level" :float
 709   (web-view webkit-web-view))
 710 (export 'webkit-web-view-get-zoom-level)
 711
 712 (defcfun "webkit_web_view_set_zoom_level" :void
 713   (web-view webkit-web-view)
 714   (level :float))
 715 (export 'webkit-web-view-set-zoom-level)
 716
 717 (defcfun "webkit_web_view_zoom_in" :void
 718   (web-view webkit-web-view))
 719 (export 'webkit-web-view-zoom-in)
 720
 721 (defcfun "webkit_web_view_zoom_out" :void
 722   (web-view webkit-web-view))
 723 (export 'webkit-web-view-zoom-out)
 724
 725 (defcfun "webkit_web_view_get_full_content_zoom" :boolean
 726   (web-view webkit-web-view))
 727 (export 'webkit-web-view-get-full-content-zoom)
 728
 729 (defcfun "webkit_web_view_set_full_content_zoom" :void
 730   (web-view webkit-web-view)
 731   (full-content-zoom :boolean))
 732 (export 'webkit-web-view-set-full-content-zoom)
 733
 734 (defcfun "webkit_get_default_session" soup-session)
 735 (export 'webkit-get-default-session)
 736
 737 (defcfun "webkit_web_view_get_encoding" :string
 738   (web-view webkit-web-view))
 739 (export 'webkit-web-view-get-encoding)
 740
 741 (defcfun "webkit_web_view_set_custom_encoding" :void
 742   (web-view webkit-web-view)
 743   (encoding :string))
 744 (export 'webkit-web-view-set-custom-encoding)
 745
 746 (defcfun "webkit_web_view_move_cursor" :void
 747   (web-view webkit-web-view)
 748   (step gtk-movement-step)
 749   (count :int))
 750 (export 'webkit-web-view-move-cursor)
 751
 752 (defcfun "webkit_web_view_get_load_status" webkit-load-status
 753   (web-view webkit-web-view))
 754 (export 'webkit-web-view-get-load-status)
 755
 756 (defcfun "webkit_web_view_get_progress" :double
 757   (web-view webkit-web-view))
 758 (export 'webkit-web-view-get-progress)
 759
 760 (defcfun "webkit_web_view_undo" :void
 761   (web-view webkit-web-view))
 762 (export 'webkit-web-view-undo)
 763
 764 (defcfun "webkit_web_view_can_undo" :boolean
 765   (web-view webkit-web-view))
 766 (export 'webkit-web-view-can-undo)
 767
 768 (defcfun "webkit_web_view_redo" :void
 769   (web-view webkit-web-view))
 770 (export 'webkit-web-view-redo)
 771
 772 (defcfun "webkit_web_view_can_redo" :boolean
 773   (web-view webkit-web-view))
 774 (export 'webkit-web-view-can-redo)
 775
 776 (defcfun "webkit_web_view_set_view_source_mode" :void
 777   (web-view webkit-web-view)
 778   (view-source-mode :boolean))
 779 (export 'webkit-web-view-set-view-source-mode)
 780
 781 (defcfun "webkit_web_view_get_view_source_mode" :boolean
 782   (web-view webkit-web-view))
 783 (export 'webkit-web-view-get-view-source-mode)
 784
 785 (defcfun "webkit_web_view_get_hit_test_result" webkit-hit-test-result
 786   (web-view webkit-web-view)
 787   (event gdk-event-button))
 788 (export 'webkit-web-view-get-hit-test-result)
 789
 790 (defcfun "webkit_web_view_get_icon_uri" :string
 791   (web-view webkit-web-view))
 792 (export 'webkit-web-view-get-icon-uri)
 793
 794 (defcfun "webkit_set_cache_model" :void
 795   (cache-model webkit-cache-model))
 796 (export 'webkit-set-cache-model)
 797
 798 (defcfun "webkit_get_cache_model" webkit-cache-model)
 799 (export 'webkit-get-cache-model)