;;; -*-scheme-*-
(use-modules (g-wrap))

(debug-set! maxdepth 100000)
(debug-set! stack    2000000)

(define-module (g-wrapped gw-gnc-spec)
  :use-module (g-wrap))

(use-modules (g-wrapped gw-engine-spec))
(use-modules (g-wrapped gw-glib-spec))

(let ((mod (gw:new-module "gw-gnc")))
  (define (standard-c-call-gen result func-call-code)
    (list (gw:result-get-c-name result) " = " func-call-code ";\n"))
  
  (define (add-standard-result-handlers! type c->scm-converter)
    (define (standard-pre-handler result)
      (let* ((ret-type-name (gw:result-get-proper-c-type-name result))
             (ret-var-name (gw:result-get-c-name result)))
        (list "{\n"
              "    " ret-type-name " " ret-var-name ";\n")))
    
    (gw:type-set-pre-call-result-ccodegen! type standard-pre-handler)
    
    (gw:type-set-post-call-result-ccodegen!
     type
     (lambda (result)
       (let* ((scm-name (gw:result-get-scm-name result))
              (c-name (gw:result-get-c-name result)))
         (list
          (c->scm-converter scm-name c-name)
          "  }\n")))))
  
  (gw:module-depends-on mod "gw-runtime")
  (gw:module-depends-on mod "gw-engine")
  (gw:module-depends-on mod "gw-glib")

  (gw:module-set-guile-module! mod '(g-wrapped gw-gnc))

  (gw:module-set-declarations-ccodegen!
   mod
   (lambda (client-only?)
     (list
      "#include <glib.h>\n"
      "#include <gnucash.h>\n"
      "#include <gnc-ui.h>\n"
      "#include <gnc-ui-util.h>\n"
      "#include <gnc-menu-extensions.h>\n"
      "#include <date.h>\n"
      "#include <guile-util.h>\n"
      "#include <gnc-engine.h>\n"
      "#include <gnc-commodity.h>\n"
      "#include <gnc-mdi-utils.h>\n"
      "#include <gnc-numeric.h>\n"
      "#include <window-main.h>\n"
      "#include <gnc-gui-query.h>\n"
      "#include <print-session.h>\n"
      "#include <dialog-column-view.h>\n"
      "#include <dialog-new-user.h>\n"
      "#include <dialog-print-check.h>\n"
      "#include <dialog-progress.h>\n"
      "#include <dialog-style-sheet.h>\n"
      "#include <dialog-totd.h>\n"
      "#include <dialog-commodity.h>\n"
      "#include <druid-hierarchy.h>\n"
      "#include <top-level.h>\n"
      "#include <window-help.h>\n"
      "#include <window-report.h>\n"
      "#include <window-main.h>\n"
      "#include <gnc-html.h>\n"
      "#include <dialog-find-transactions.h>\n"
      "#include <dialog-scheduledxaction.h>\n"
      "#include <dialog-sxsincelast.h>\n" )))

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:mdi-info*>
              "GNCMDIInfo*" "const GNCMDIInfo*")))
    #t)
  
  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:UIWidget>
              "gncUIWidget" "const gncUIWidget")))
    #t)
  
  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:report-window*>
              "gnc_report_window*" "const gnc_report_window*")))
    #t)
    
  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:column-view-edit*>
              "gnc_column_view_edit*" "const gnc_column_view_edit*")))
    #t)


  (gw:wrap-function
   mod
   'gnc:ui-hierarchy-druid
   '<gw:void>
   "gnc_ui_hierarchy_druid"
   '()
   "Open the hiearchy druid for importing an account hierarchy.")

  (gw:wrap-function
   mod
   'gnc:mdi-get-current
   '<gnc:mdi-info*>
   "gnc_mdi_get_current"
   '()
   "Return the main window data structure for the application.")

  (gw:wrap-function
   mod
   'gnc:ui-is-running?
   '<gw:bool>
   "gnucash_ui_is_running"
   '()
   "Predicate to determine if the UI is running.")

  (gw:wrap-function
   mod
   'gnc:ui-is-terminating?
   '<gw:bool>
   "gnucash_ui_is_terminating"
   '()
   "Predicate to determine if the UI is in the process of terminating.")

  (gw:wrap-function
   mod
   'gnc:new-user-dialog
   '<gw:void>
   "gnc_ui_new_user_dialog"
   '()
   "Show the new user dialog.")

  (gw:wrap-function
   mod
   'gnc:start-ui-event-loop
   '<gw:int>
   "gnc_ui_start_event_loop"
   '()
   "Start the UI event loop.")

  (gw:wrap-function
   mod
   'gnc:ui-init
   '<gw:void>
   "gnucash_ui_init"
   '()
   "Initialize the lower level ui parts.")

  (gw:wrap-function
   mod
   'gnc:ui-shutdown
   '<gw:void>
   "gnc_ui_shutdown"
   '()
   "Shutdown the UI.")

  (gw:wrap-function
   mod
   'gnc:ui-destroy
   '<gw:void>
   "gnc_ui_destroy"
   '()
   "Destroy the UI.")

  (gw:wrap-function
   mod
   'gnc:error-dialog
   '<gw:void>
   "gnc_error_dialog"
   '(((<gw:m-chars-caller-owned> gw:const) message))
   "Show ok dialog box with given error message.")

  (gw:wrap-function
   mod
   'gnc:verify-dialog
   '<gw:bool>
   "gnc_verify_dialog"
   '(((<gw:m-chars-caller-owned> gw:const) message) (<gw:bool> yes_is_default))
   "Show yes/no dialog box with given message.")

  (gw:wrap-function
   mod
   'gnc:report-window
   '<gw:void>
   "reportWindow"
   '((<gw:int> report-id))
   "Show report window")

  (gw:wrap-function
   mod
   'gnc:report-window-reload
   '<gw:void>
   "gnc_report_window_reload"
   '((<gnc:report-window*> wind))
   "Force reload of a report window")

  (gw:wrap-function
   mod
   'gnc:report-window-add-edited-report
   '<gw:void>
   "gnc_report_window_add_edited_report"
   '((<gnc:report-window*> wind) (<gw:scm> report))
   "Add a report to the list of reports with open editors")

  (gw:wrap-function
   mod
   'gnc:report-raise-editor
   '<gw:void>
   "gnc_report_raise_editor"
   '((<gw:scm> report))
   "Raise the report's editor window")
  
  (gw:wrap-function
   mod
   'gnc:main-window-open-report
   '<gw:void>
   "gnc_main_window_open_report"
   '((<gw:int> report-id) (<gw:bool> top-level))
   "Show report window")
  
  (gw:wrap-function
   mod
   'gnc:print-report
   '<gw:void>
   "gnc_print_report"
   '((<gw:int> report-id))
   "Print a report with dialog support")

  (gw:wrap-function
   mod
   'gnc:style-sheet-dialog-open
   '<gw:void>
   "gnc_style_sheet_dialog_open"
   '()
   "Show the style sheet editor window.")

  (gw:wrap-function
   mod
   'gnc:info-dialog
   '<gw:void>
   "gnc_info_dialog"
   '(((<gw:m-chars-caller-owned> gw:const) message))
   "Show ok dialog box with given message.")

  (gw:wrap-function
   mod
   'gnc:warning-dialog
   '<gw:void>
   "gnc_warning_dialog"
   '(((<gw:m-chars-caller-owned> gw:const) message))
   "Show warning dialog box with given message.")

  (gw:wrap-function
   mod
   'gnc:choose-radio-option-dialog-parented
   '<gw:int>
   "gnc_choose_radio_option_dialog_parented"
   '((<gnc:UIWidget> parent)
     ((<gw:m-chars-caller-owned> gw:const) title)
     ((<gw:m-chars-caller-owned> gw:const) msg)
     (<gw:int> default-choice)
     (<gnc:list-of-string> choices))
   "Show a dialog offering different mutually exclusive choices
in a radio list.")

  (gw:wrap-function
   mod
   'gnc:add-extension
   '<gw:void>
   "gnc_add_extension"
   '((<gw:scm> extension))
   "")

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:PrintSession*>
              "PrintSession*" "const PrintSession*")))
    #t)

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:PrintDialog*>
              "PrintDialog*" "const PrintDialog*")))
    #t)

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:PaperDialog*>
              "PaperDialog*" "const PaperDialog*")))
    #t)

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:PrintCheckDialog*>
              "PrintCheckDialog*" "const PrintCheckDialog*")))
    #t)

  (gw:wrap-function
   mod
   'gnc:print-session-create
   '<gnc:PrintSession*>
   "gnc_print_session_create"
   '()
   "Start a new print session.")

  (gw:wrap-function
   mod
   'gnc:print-session-destroy
   '<gw:void>
   "gnc_print_session_destroy"
   '((<gnc:PrintSession*> p))
   "Free a print session's resources")

  (gw:wrap-function
   mod
   'gnc:print-session-moveto
   '<gw:void>
   "gnc_print_session_moveto"
   '((<gnc:PrintSession*> p) (<gw:double> x) (<gw:double> y))
   "Move the current point")

  (gw:wrap-function
   mod
   'gnc:print-session-text
   '<gw:void>
   "gnc_print_session_text"
   '((<gnc:PrintSession*> p) ((<gw:m-chars-caller-owned> gw:const) text))
   "Show some text in Courier 16")

  (gw:wrap-function
   mod
   'gnc:print-session-done
   '<gw:void>
   "gnc_print_session_done"
   '((<gnc:PrintSession*> p))
   "Let the print context know you're finished with it.")

  (gw:wrap-function
   mod
   'gnc:print-session-print
   '<gw:void>
   "gnc_print_session_print"
   '((<gnc:PrintSession*> p))
   "Show the GNOME print dialog to start printing.")

  (gw:wrap-function
   mod
   'gnc:print-check-dialog-create
   '<gnc:PrintCheckDialog*>
   "gnc_ui_print_check_dialog_create"
   '((<gw:scm> callback))
   "Pop up a dialog to set up printing a check.")
  
  (gw:wrap-function
   mod
   'gnc:ui-totd-dialog-create-and-run
   '<gw:void>
   "gnc_ui_totd_dialog_create_and_run"
   '()
   "Create and run the \"Tip Of The Day\" dialog")

  (let ((nnt (gw:wrap-non-native-type
              mod
              '<gnc:ProgressDialog*>
              "GNCProgressDialog *" "const GNCProgressDialog *")))
    #t)

  (gw:wrap-function
   mod
   'gnc:progress-dialog-new
   '<gnc:ProgressDialog*>
   "gnc_progress_dialog_new"
   '((<gnc:UIWidget> parent) (<gw:bool> use_ok_button))
   "Create and return a progress dialog. The parent may be NULL.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-title
   '<gw:void>
   "gnc_progress_dialog_set_title"
   '((<gnc:ProgressDialog*> progress)
     ((<gw:m-chars-caller-owned> gw:const) title))
   "Set the title of 'progress' to 'title'.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-heading
   '<gw:void>
   "gnc_progress_dialog_set_heading"
   '((<gnc:ProgressDialog*> progress)
     ((<gw:m-chars-caller-owned> gw:const) heading))
   "Set the heading of 'progress' to 'heading'.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-limits
   '<gw:void>
   "gnc_progress_dialog_set_limits"
   '((<gnc:ProgressDialog*> progress)
     (<gw:float> min)
     (<gw:float> max))
   "Set the mininum and maximum range of 'progress'.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-activity-mode
   '<gw:void>
   "gnc_progress_dialog_set_activity_mode"
   '((<gnc:ProgressDialog*> progress)
     (<gw:bool> activity-mode))
   "Set the mininum and maximum range of 'progress'.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-cancel-scm-func
   '<gw:void>
   "gnc_progress_dialog_set_cancel_scm_func"
   '((<gnc:ProgressDialog*> progress)
     (<gw:scm> cancel_func))
   "Set the guile cancel callback function. This callback is invoked
with no arguments when the user hits the cancel button. If the callback
returns #t, the dialog is closed, but not destroyed.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-set-value
   '<gw:void>
   "gnc_progress_dialog_set_value"
   '((<gnc:ProgressDialog*> progress) (<gw:float> value))
   "Set the value of the progress dialog to 'value'.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-update
   '<gw:void>
   "gnc_progress_dialog_update"
   '((<gnc:ProgressDialog*> progress))
   "Update the progress bar, calling any pending cancel callback.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-finish
   '<gw:void>
   "gnc_progress_dialog_finish"
   '((<gnc:ProgressDialog*> progress))
   "Set the progress dialog to the finished state. The OK button becomes
sensitive and the dialog closes after the user clicks it.")

  (gw:wrap-function
   mod
   'gnc:progress-dialog-destroy
   '<gw:void>
   "gnc_progress_dialog_destroy"
   '((<gnc:ProgressDialog*> progress))
   "Destroy the progess dialog. You must call this function in
order to destroy the dialog. The dialog will not be destroyed
by the user closing the window.")

  (gw:wrap-function
   mod
   'gnc:default-options-editor
   '<gnc:UIWidget>
   "gnc_report_window_default_params_editor"
   '((<gw:scm> options) (<gw:scm> report))
   "Default options editor window for reports")

  (gw:wrap-function
   mod
   'gnc:column-view-edit-options
   '<gnc:UIWidget>
   "gnc_column_view_edit_options"
   '((<gw:scm> options) (<gw:scm> view))
   "Create an editor for a column-view options object")

  (gw:wrap-function
   mod
   'gnc:main-window-can-save?
   '<gw:bool>
   "gnc_main_window_can_save" '((<gnc:mdi-info*> mi))
   "Return true if the MDI window configuration can be saved")

  (gw:wrap-function
   mod
   'gnc:mdi-save 
   '<gw:void>
   "gnc_mdi_save" '((<gnc:mdi-info*> mi) 
                    ((<gw:m-chars-caller-owned>) bookname))
   "Save the MDI window configuration for the specified book")

  (gw:wrap-function
   mod
   'gnc:mdi-restore
   '<gw:void>
   "gnc_mdi_restore" '((<gnc:mdi-info*> mi) 
                       ((<gw:m-chars-caller-owned> gw:const) bookname))
   "Restore MDI window configuration for the specified book")

  (gw:wrap-function 
   mod
   'gnc:html-encode-string 
   '<glib:g-chars-caller-owned> 
   "gnc_html_encode_string" '(((<gw:m-chars-caller-owned> gw:const) bookname)))

  (gw:wrap-function
   mod
   'gnc:sx-editor
   '<gw:void>
   "gnc_ui_scheduled_xaction_dialog_create" '()
   "Open the Scheduled Transaction Editor" )

  (gw:wrap-function
   mod
   'gnc:sx-sincelast-create
   '<gw:void>
   "gnc_ui_sxsincelast_dialog_create" '()
   "Wrapper to open the since-last-run dialog from a book-open hook." )

  (gw:wrap-function
   mod
   'gnc:sx-since-last-run-wrapper
   '<gw:void>
   "gnc_ui_sxsincelast_guile_wrapper" '( ((<gw:m-chars-caller-owned>) foo) )
   "Wrapper to open the since-last-run dialog from a book-open hook." )

  )