续体

在计算机科学中，续体（continuation，也译作计算续体、续延、延续性），是对计算机程序的控制状态的一种抽象表示。续体实化了程序控制状态。可以理解为，续体是一种数据结构，它表示在进程执行中给定点上的计算过程，所建立的数据结构可以被编程语言访问，而不是被运行时环境所隐藏掉。这对实现编程语言的某些控制机制，比如例外处理、协程、生成器非常有用。
“当前续体”从运行代码的角度看来，是可以从程序执行的当前点导出的续体。续体还被用来提及“头等续体”，它是一种构造，赋予编程语言保存在任何点上的执行状态的能力，并在程序中后来的点上可能多次返回到这一点。

**历史**
Gerald J. Sussman和Guy L. Steele Jr.在1976年论文《Lambda: The Ultimate Imperative》中，认定Alonzo Church在1941年著作《The Calculi of Lambda-Conversion》里，已经清晰的理解了“续体”的使用，这是用纯λ演算彻底完成所有事情即邱奇编码的唯一方式，并举出其中有序对定义所对应的Scheme表示为例
  M, N means (LAMBDA (A) (A M N))
  21 means (LAMBDA (A) (A (LAMBDA (B C) B)))
  22 means (LAMBDA (A) (A (LAMBDA (B C) C)))
where 21 e.g. selects the first element of a pair. (Note that these functions are isomorphic to CONS, CAR, and CDR!) ”
：
(define (cons m n)
(lambda (a) (a m n)))
(define (car a)
(a (lambda (b c) b)))
(define (cdr a)
(a (lambda (b c) c)))
在1993年的论文《The Discoveries of Continuations》中给出了发现续体的完整历史。Reynolds认为续体的最早描述由Adriaan van Wijngaarden在1964年9月作出。Van Wijngaarden在奥地利的维也纳附近巴登召开的关于“形式语言描述语言”的IFIP工作会议上，在关于ALGOL 60预处理器的Formulation的论文《Recursive Definition of Syntax and Semantics》中，倡导通过将真正（proper）过程变换成续体传递风格而消除标签和goto语句，但是他没有使用“续体”这个名字。
Christopher Strachey、Christopher P. Wadsworth和John C. Reynolds，在指称语义领域的工作中突出了术语“续体”，此间广泛利用续体来允许使用函数式编程语义来分析顺序程序。
Steve Russell为他给IBM 704的LISP实现的一个用户，发明了续体来解决Double recursion问题，但是他没有为其命名。

**头等续体**
头等续体对程式语言而言是能完全控制指令执行次序的能力。它们可以用来跳转到产生对当前函数调用的那个函数，或者跳转到此前已经退出了的函数。人们可以认为头等体保存了程序执行状态，注意到真正的头等续体不同于进程映像是很重要的，它不保存程序数据，只保存执行上下文。这经常采用“续体三明治”譬喻来说明：
假想你正站在厨房冰箱之前，想要一个三明治。你就在这里将一个续体放入口袋里。接着在从冰箱里拿出火鸡肉和面包自己做了一个三明治，然后坐到桌案前。你启用了口袋里的续体，这时发现自己再次站到了冰箱之前，想要一个三明治。幸运的是，在桌案上就有一个三明治，而用于做三明治的材料都没有了。你可以吃三明治了。
在这个譬喻中，三明治是一部份程序数据，比如在分配堆上一个对象，并非去调用“制做三明治”例程并等它返回，这里调用“以当前续体制做三明治”例程，它创建一个三明治并在已脱离执行的续体所保存的地方继续执行。
Scheme是支持续体的第一个完全的生产系统，它最初提供了源自Maclisp的用于例外处理的命名catch/throwcite wikisource|wslanguage=en|title=Scheme: An Interpreter for Extended Lambda Calculus|author=Gerald J. Sussman, Guy L. Steele Jr.|year=1975|quote=CATCH － This is the "escape operator" which gives the user a handle on the control structure of the interpreter. The expression:(CATCH  )evaluates  in an environment where  is bound to a continuation which is "just about to return from the CATCH"; that is, if the continuation is called as a function of one argument, then control proceeds as if the CATCH expression had returned with the supplied (evaluated) argument as its value. ……As another example, we can define a THROW function, which may then be used with CATCH much as they are in LISP:(DEFINE THROW (LAMBDA (TAG RESULT) (TAG RESULT)))，后来提供了头等续体算子call-with-current-continuation（简写为call/cc）。
Bruce Duba将callcc介入到了SML/NJ：
val callcc : ('a cont -> 'a) -> 'a，这里的'a cont是接受类型为'a的参数的续体的类型；callcc f应用f到当前续体，如果f以参数x调用这个续体，则如同(callcc f)返回x作为结果。

**编程语言支持**
很多编程语言以各种名义体现出头等续体，特别是：
*Common Lisp：cl-cont，还可以使用定制宏
*C# / VB.NET：async/await
*Factor：callcc0和callcc1
*Haskell：在Control.Monad.Cont中的续体单子
*Haxe：haxe-continuation
*Icon / Unicon：suspend，coexpression：create与@算子
*Java：Lightwolf和javaflow
*Kotlin：Continuation
*Rhino (JavaScript引擎)：Continuation
*Parrot：Continuation PMC，对所有控制流程使用continuation-passing style
*Perl：Coro和Continuity
*Pico：call(exp())和continue(aContinuation, anyValue)
*Python：PyPy的_continuation.continulet
*Racket：call-with-current-continuation（通常简写为call/cc）
*Ruby：callcc
*Scala：scala.util.continuations提供了shift/reset
*Scheme：call-with-current-continuation（通常简写为call/cc）
*Smalltalk：Continuation currentDo:，在多数现代Smalltalk环境中续体不需要额外的VM支持就能实现
*新泽西Standard ML：SMLofNJ.Cont.callcc
在支持闭包和适当尾调用的任何编程语言中，都可能以续体传递风格书写程序并手工实现call/cc。在续体传递风格下，call/cc成为了可以用lambda表达式书写的一个简单函数。需要支持适当尾调用，因为在续体传递风格下没有函数会返回，所有调用都是尾调用。

**续体传递风格**
续体被用于计算模型，包括λ演算、指称语义Next, suppose that we can divide the functions which may be applied by our program into serious functions, whose application may sometimes run on forever, and trivial functions, whose application will always terminate. …… Then an expression will only be serious if its evaluation can cause the application of a serious function, and a program will be independent of order-of-application if no operand or declaring expression can cause such an application. ……As can be seen with a little thought, the condition implies that whenever some function calls a serious function, the calling function must return the same result as the called function, without performing any further computation. But any function which calls a serious function must be serious itself. Thus by induction, as soon as any serious function returns a result, every function must immediately return the same result, which must therefore be the final result of the entire program.Nevertheless, there is a method for transforming an arbitrary program into one which meets our apparently restrictive condition. …… Basically, one replaces each serious function fold (except the main program) by a new serious function fnew which accepts an additional argument called a continuation. The continuation will be a function itself, and fnew is expected to compute the same result as fold, apply the continuation to this result, and then return the result of the continuation, i.e.,  fnew(x1, …, xn, c) = c(fold(x1, …, xn)).This introduction of continuations provides an additional "degree of freedom" which can be used to meet our condition for order-of-evaluation independence. Essentially, instead of performing further actions after a serious function has returned, one imbeds the further actions in the continuation which is passed to the serious function.|access-date=2024-02-24|archive-date=2024-02-24|archive-url=https://web.archive.org/web/20240224050552/https://dl.acm.org/doi/10.1145/800194.805852|dead-url=no、演员模型
We shall assume that the reader is familiar with advanced pattern matching languages such as SNOBOL4, CONVERT, PLANNER-71, QA4, and POPLER.
We shall use (%A M%) to indicate sending the message M to the actor A. We shall use s1 s2 … sn to denote the finite squence s1, s2, … sn. ……
Identifiers can be created by the prefix operator =. ……
An expression (=> pattern body) is an abbreviation for (receive(message pattern) body) where receive is a more general actor that is capable of bindinq elements of the action in addition to the message.
Evaluating 
  (%(=> pattern body) the-message%), i.e. sending
  (=> pattern body) the-message,
will attempt to match the-message against pattern, If the-message is not of the form specified by pattern, then the actor is NOT-APPLICABLE to the-message. If the-message matches pattern, the body is evaluated.……
Conceptually at least a new actor is created every time a message is sent. Consider sending to a target T a message M and a continuation C.
(send T
(message M
#continuation C))
The transmission (%T M%) is an abbreviation for the above where C is defaulted to be the caller. If target T is the following:
(receive
(message the-body
#continuation =the-continuation)
the-body)
then the the-body is evaluated in an environment where the-message is bound to M and the-continuation is bound to C.……
Many actors who are executing in parallel can share the same continuation. They can all send a message “return” to the same continuation. ”
和进程演算。这些模型仰仗于编程者或语义工程师书写数学函数时采用“续体传递风格”（continuation-passing style，简写为CPS）。这意味着每个函数都消费一个表示有关于这个函数调用的余下计算的函数。要返回一个值，这个函数以此返回值调用这个续体函数；要中止这个计算，它返回一个值。以续体传递风格书写程序的函数式编程者，获得了以任意方式操纵控制流程的表达能力。代价是他们必须手工维护控制和续体的不变条件，这通常是高度复杂的任务。
以续体传递风格（CPS）书写的函数接受一个额外的实际参数：显式的续体，它是有一个实际参数的函数。当CPS函数已经计算出来其结果值的时候，它通过以这个值作为实际参数调用续体函数来“返回”它。这意味着在调用CPS函数的时候，调用者函数需要提供一个过程接受这个子例程的“返回”值。以这种形式表达代码使得在直接风格中隐含的一些事物显露出来。这包括了：过程返回变成了对续体的调用，中间值都有了给定名字，实际参数求值的次序变为显见，而尾调用成为简单的将传递给这个调用者的续体不修改的传递给被调用过程。
CPS的关键在于：所有函数都接受称为其续体的一个额外实际参数，并且在函数调用中的所有实际参数必须要幺是一个变量，要幺是一个λ表达式而非更复杂的表达式。这具有将表达式“从内至外”翻转的效果，由于表达式最内部份必须首先求值，因此CPS使得求值次序以及控制流程变得明确了。下面是在Scheme语言中仅使用其基本形式的几个例子，对比了直接风格代码和对应的CPS代码，这里约定了将续体函数表示为名为k的形式参数：
注意在CPS版本的代码中，使用的函数原语（functional primitive）如这里的*&、+&、-&、=&和sqrt&自身也是CPS而非直接风格，所以要使得上述例子在Scheme系统中运行，就必须写出这些函数原语的CPS版本，例如=&定义为：
(define (=& x y k)
(k (= x y)))
更通用的方式是写一个转换例程：
(define (cps-prim f)
(lambda args
(let ((r (reverse args)))
((car r) (apply f (reverse (cdr r)))))))
(define =& (cps-prim =))
(define *& (cps-prim *))
(define +& (cps-prim +))
(define -& (cps-prim -))
(define sqrt& (cps-prim sqrt))
要在直接风格函数中调用CPS函数，必须提供接收CPS函数计算结果的一个续体。上述例子在所需CPS函数原语均已提供的条件下，可以调用为：
(pyth& 3 4 (lambda (x) x))
(factorial& 4 (lambda (x) x))
一般的编程经常不采用CPS函数原语，比如将前面的阶乘函数写为：
(define (factorial& n k)
(if (= n 0)
(k 1)
(factorial& 
(- n 1) 
(lambda (acc) (k (* n acc))))))

**以当前续体调用**
Scheme编程语言包括了控制流程算子call-with-current-continuation（简写为call/cc），Scheme程序可以通过它操纵控制流程。在计算机科学中，使这种类型的隐含程序状态可见为对象，术语上叫做实化。在Scheme中，续体对象是头等值并被表示为函数，具有Function application作为其唯一的运算。Scheme在应用续体和函数二者之间不做语法上的区分。
在Scheme中，出现在一个表达式中的(call/cc f)，接受一个函数f作为它的唯一实际参数，并把它应用到这个表达式的当前续体上。当一个续体对象被应用于一个实际参数的时候，现存的续体被消除，而应用的续体在其所在位置上被恢复，所以程序流程将在续体被捕获的那一点上继续，而“续体的实际参数”则变成call/cc调用的“返回值”。call/cc建立的续体可以被多于一次调用，甚至可以从这个call/cc应用的动态时效范围（extent）的外部来调用。
例如在表达式((call/cc f) g)中，在概念上给出f所应用到的当前续体的方式，是通过将(call/cc f)替代为以lambda抽象绑定的一个变量比如叫做cc，故而它的当前续体是(lambda (cc) (cc g))。对它应用函数f，得到最终结果(f (lambda (cc) (cc g)))。而在表达式(g (call/cc f))中，子表达式的(call/cc f)的续体是(lambda (cc) (g cc))，故而整个表达式等价于(f (lambda (cc) (g cc)))。

**立即返回**
下面的例子中，使用call/cc来模拟C风格语言中的return语句：
(define (f return)                                                                                                                               
(return 2)                                                                                                                                     
3)
(f (lambda (x) x))
**> 3
(call/cc f)
**> 2
首先以正规函数实际参数(lambda (x) x)调用f，它将绑定到形式参数return上的这个函数应用于值2，接着执行下一个表达式返回3。但是，在f被传递给call/cc的时候，将绑定了续体的形式参数应用于2，将程序执行强制为跳转到调用call/cc那一点上，并导致call/cc返回值2。这个结果接着被顶层续体用display函数打印出来。

**生成器**
在下面的生成器代码中，call/cc被使用了两处：一处用于生成立即返回续体，而另一处用于遍历一个成员列表的迭代在暂停时保存恢复位置：
(define (generator-factory lst)
(define (control-state return)
(for-each 
(lambda (element)
(set! return (call/cc (lambda (resume-here)
(set! control-state resume-here)
(return element)))))
lst)
(return 'fell-off-the-end))
(define (generator)
(call/cc control-state))
generator)
上述代码的简单用例： 
(define generate-digit
(generator-factory '(0 1 2)))
(define (display-two-digits)
(display (generate-digit)) (newline)
(display (generate-digit)) (newline))
(display-two-digits) ;; 分两行打印 0 和 1
(display-two-digits) ;; 分两行打印 2 和 fell-off-the-end
在定义变量generate-digit之时，将其定义为函数generator-factory应用于列表'(0 1 2)上而得到的一个闭包generator。这个generator被定义为(call/cc control-state)。
在第一次执行(generate-digit)之时，执行(call/cc control-state)，进而执行(control-state return)，它将用于立即返回的续体绑定到形式参数return之上；然后开始遍历列表的元素进行迭代的(for-each (lambda (element) ……) lst)，在求值(set! return (……))的第二个实际参数之时，进行每一次迭代步骤(call/cc (lambda (resume-here) ……))，其中的(set! control-state resume-here)，将绑定到变量resume-here上的当前续体，重新绑定到函数名字control-state之上用于以后恢复执行，最后执行(return element)返回当前列表元素。
在下一次执行(generate-digit)之时，(call/cc control-state)将control-state所绑定的续体应用当前续体上，从而在迭代的(set! return (call/cc ……))之处恢复执行，它将传入的立即返回续体绑定到变量return上，此后继续这一次的迭代步骤。在遍历了列表的元素之后迭代结束，最终执行(return 'fell-off-the-end)，返回一个约定的文字常量。

**协程**
call/cc还可以表达其他复杂的原始运算。下面的代码使用续体达成协作式多任务的用户级线程，亦称为协程：
(define *ready-list* '())
(define (fork fn arg)
(call/cc (lambda (return)
(set! *ready-list* (cons return *ready-list*))
(fn arg)
(let ((cont (car *ready-list*)))
(set! *ready-list* (cdr *ready-list*)) 
(cont #f)))))
(define (yield)
(call/cc (lambda (return)
(let ((cont (car *ready-list*)))
(set! *ready-list        (append (cdr *ready-list*) (list return)))
(cont #f)))))
(define (schedule)
(let loop ()
(if (not (null? *ready-list*)) (begin
(call/cc (lambda (return)
(let ((cont (car *ready-list*)))
(set! *ready-list            (append (cdr *ready-list*) (list return)))
(cont #f))))
(loop)))))
上述代码的简单用例：
(import (srfi 28))
(define (do-stuff-n-print str)
(let loop ((n 0))
(if (
其输出为：
This is AAA 0
Hello from BBB 0
This is AAA 1
Hello from BBB 1
This is AAA 2
Hello from BBB 2

**参见**
continuation-passing style
*Delimited continuation

**引用与注释**

**延伸阅读**
cite web|author=Peter Landin|title=A Generalization of Jumps and Labels|publisher=Report. UNIVAC Systems Programming Research. Reprinted in Higher Order and Symbolic Computation, 11(2):125-143, 1998, with a foreword by Hayo Thielecke. |date=August 1965| url=http://www.math.bas.bg/bantchev/place/iswim/j.pdf
*url=https://www.ijcai.org/Proceedings/73/Papers/027C.pdf
*url=https://www.ijcai.org/Proceedings/73/Papers/027B.pdf
*cite web|author=Christopher Strachey, Christopher P. Wadsworth|title=Continuations: a Mathematical semantics for handling full jumps|publisher=Technical Monograph PRG-11.  Oxford University Computing Laboratory. Reprinted in Higher Order and Symbolic Computation, 13(1/2):135—152, 2000, with a foreword by Christopher P. Wadsworth. |date=January 1974| url=http://www.cs.ox.ac.uk/publications/publication3729-abstract.html
*url=https://surface.syr.edu/lcsmith_other/13/
*url=https://kilthub.cmu.edu/articles/journal_contribution/On_the_Relation_Between_Direct_and_Continuation_Semantics/6608018
*dead-url=no
*publisher=AI Memo 349, MIT Artificial Intelligence Laboratory, Cambridge, Massachusetts, December 1975. Reprinted in Higher-Order and Symbolic Computation 11(4):405-439, 1998, with a foreword
*cite web|author=Robert Hieb, R. Kent Dybvig, Carl Bruggeman|title=Representing Control in the Presence of First-Class Continuations|publisher=Proceedings of the ACM SIGPLAN '90 Conference on Programming Language Design and Implementation, pp. 66–77. |url=https://dl.acm.org/doi/10.1145/93548.93554
*url=https://dl.acm.org/doi/10.1145/62678.62692
*url=https://www.semanticscholar.org/paper/Inverting-back-the-inversion-of-control-or%2C-versus-Queinnec/91469a9b9685844b1b5b06593f37d763e3121e10

**外部链接**
 Continuations for Curmudgeons date=20210616221232  by Sam Ruby- Teach Yourself Scheme in Fixnum Days date=20230203160644  by Dorai Sitaram features a nice chapter on continuations.- Continuations and Stackless Python date=20220309055112  by Christian Tismer- Continuation, functions and jumps date=20231031113027 - http://okmij.org/ftp/continuations/ date=20211026053006  by Oleg Kiselyov- Haskell Continuation date=20240308084302 - Rhino With Continuations date=20240116071352 - Continuations in pure Java date=20240116071317  from the RIFE2 web application framework-  Comparison of generators, coroutines, and continuations, source of the above example date=20211026052319