Changeset 20578 in project


Ignore:
Timestamp:
09/30/10 21:07:24 (11 years ago)
Author:
felix winkelmann
Message:

added return command

Location:
release/4/dissector
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/dissector/tags/1.7.6/dissection.scm

    r19980 r20578  
    213213    ((dissection-quit-cont dissection) unspecific)))
    214214
     215(define-dissection-command 'return '(r)
     216  "Quits the dissection and returns current focus object to toplevel."
     217  #f #f
     218  0
     219  (lambda (dissection)
     220    ((dissection-quit-cont dissection)
     221     (lambda () (dissection-focus dissection)))))
     222
    215223
    216224
  • release/4/dissector/tags/1.7.6/dissector.setup

    r19980 r20578  
    55;;; See the LICENCE file for details.
    66
    7 (make (("dissector.so" ("chicken_load.scm")
     7(make (("dissector.so" ("chicken_load.scm" "chicken_compat.scm"
     8                        "util.scm" "stream.scm" "parameters.scm"
     9                        "chicken_dissect.scm" "command.scm" "dissection.scm"
     10                        "menu.scm" "top.scm")
    811        (run (csc -s chicken_load.scm -o dissector.so -j dissector)))
    912       ("dissector.import.so" ("dissector.import.scm")
     
    1316(install-extension 'dissector
    1417  '("dissector.so" "dissector.import.so")
    15   '((version "1.7.5")))
     18  '((version "1.7.6")))
  • release/4/dissector/trunk/dissection.scm

    r19980 r20578  
    213213    ((dissection-quit-cont dissection) unspecific)))
    214214
     215(define-dissection-command 'return '(r)
     216  "Quits the dissection and returns current focus object to toplevel."
     217  #f #f
     218  0
     219  (lambda (dissection)
     220    ((dissection-quit-cont dissection)
     221     (lambda () (dissection-focus dissection)))))
     222
    215223
    216224
  • release/4/dissector/trunk/dissector.setup

    r19980 r20578  
    55;;; See the LICENCE file for details.
    66
    7 (make (("dissector.so" ("chicken_load.scm")
     7(make (("dissector.so" ("chicken_load.scm" "chicken_compat.scm"
     8                        "util.scm" "stream.scm" "parameters.scm"
     9                        "chicken_dissect.scm" "command.scm" "dissection.scm"
     10                        "menu.scm" "top.scm")
    811        (run (csc -s chicken_load.scm -o dissector.so -j dissector)))
    912       ("dissector.import.so" ("dissector.import.scm")
     
    1316(install-extension 'dissector
    1417  '("dissector.so" "dissector.import.so")
    15   '((version "1.7.5")))
     18  '((version "1.7.6")))
Note: See TracChangeset for help on using the changeset viewer.