续体

在计算机科学中，续体（，也译作计算续体、续延、延续性），是对计算机程序的控制状态的一种抽象表示。续体实化了程序控制状态。可以理解为，续体是一种数据结构，它表示在进程执行中给定点上的计算过程，所建立的数据结构可以被编程语言访问，而不是被运行时环境所隐藏掉。这对实现编程语言的某些控制机制，比如例外处理、协程、生成器非常有用。
“当前续体”从运行代码的角度看来，是可以从程序执行的当前点导出的续体。续体还被用来提及“头等续体”，它是一种构造，赋予编程语言保存在任何点上的执行状态的能力，并在程序中后来的点上可能多次返回到这一点。
历史.
Gerald J. Sussman和Guy L. Steele Jr.在1976年论文《Lambda: The Ultimate Imperative》中，认定Alonzo Church在1941年著作《The Calculi of Lambda-Conversion》里，已经清晰的理解了“续体”的使用，这是用纯λ演算彻底完成所有事情即邱奇编码的唯一方式，并举出其中有序对定义所对应的Scheme表示为例：
 (lambda (a) (a m n)))
 (a (lambda (b c) b)))
 (a (lambda (b c) c)))
在1993年的论文《The Discoveries of Continuations》中给出了发现续体的完整历史。Reynolds认为续体的最早描述由Adriaan van Wijngaarden在1964年9月作出。Van Wijngaarden在奥地利的维也纳附近巴登召开的关于“形式语言描述语言”的工作会议上，在关于ALGOL 60预处理器的的论文《Recursive Definition of Syntax and Semantics》中，倡导通过将真正（proper）过程变换成续体传递风格而消除标签和goto语句，但是他没有使用“续体”这个名字。
Christopher Strachey、Christopher P. Wadsworth和，在指称语义领域的工作中突出了术语“续体”，此间广泛利用续体来允许使用函数式编程语义来分析顺序程序。
Steve Russell为他给IBM 704的LISP实现的一个用户，发明了续体来解决问题，但是他没有为其命名。
头等续体.
头等续体对程式语言而言是能完全控制指令执行次序的能力。它们可以用来跳转到产生对当前函数调用的那个函数，或者跳转到此前已经退出了的函数。人们可以认为头等体保存了程序执行状态，注意到真正的头等续体不同于是很重要的，它不保存程序数据，只保存执行上下文。这经常采用“续体三明治”譬喻来说明：
假想你正站在厨房冰箱之前，想要一个三明治。你就在这里将一个续体放入口袋里。接着在从冰箱里拿出火鸡肉和面包自己做了一个三明治，然后坐到桌案前。你启用了口袋里的续体，这时发现自己再次站到了冰箱之前，想要一个三明治。幸运的是，在桌案上就有一个三明治，而用于做三明治的材料都没有了。你可以吃三明治了。
在这个譬喻中，三明治是一部份程序数据，比如在分配堆上一个对象，并非去调用“制做三明治”例程并等它返回，这里调用“以当前续体制做三明治”例程，它创建一个三明治并在已脱离执行的续体所保存的地方继续执行。
Scheme是支持续体的第一个完全的生产系统，它最初提供了源自Maclisp的用于例外处理的命名codice_1/codice_2，后来提供了头等续体算子（简写为codice_3）。
Bruce Duba将codice_4介入到了SML/NJ：
val callcc : ('a cont -&gt; 'a) -&gt; 'a，这里的codice_5是接受类型为codice_6的参数的续体的类型；codice_7应用codice_8到当前续体，如果codice_8以参数codice_10调用这个续体，则如同codice_11返回codice_10作为结果。
编程语言支持.
很多编程语言以各种名义体现出头等续体，特别是：
在支持闭包和适当尾调用的任何编程语言中，都可能以续体传递风格书写程序并手工实现codice_3。在续体传递风格下，codice_3成为了可以用lambda表达式书写的一个简单函数。需要支持适当尾调用，因为在续体传递风格下没有函数会返回，所有调用都是尾调用。
续体传递风格.
续体被用于计算模型，包括λ演算、指称语义、演员模型和进程演算。这些模型仰仗于编程者或语义工程师书写数学函数时采用“续体传递风格”（continuation-passing style，简写为CPS）。这意味着每个函数都消费一个表示有关于这个函数调用的余下计算的函数。要返回一个值，这个函数以此返回值调用这个续体函数；要中止这个计算，它返回一个值。以续体传递风格书写程序的函数式编程者，获得了以任意方式操纵控制流程的表达能力。代价是他们必须手工维护控制和续体的不变条件，这通常是高度复杂的任务。
以续体传递风格（CPS）书写的函数接受一个额外的实际参数：显式的续体，它是有一个实际参数的函数。当CPS函数已经计算出来其结果值的时候，它通过以这个值作为实际参数调用续体函数来“返回”它。这意味着在调用CPS函数的时候，调用者函数需要提供一个过程接受这个子例程的“返回”值。以这种形式表达代码使得在直接风格中隐含的一些事物显露出来。这包括了：过程返回变成了对续体的调用，中间值都有了给定名字，实际参数求值的次序变为显见，而尾调用成为简单的将传递给这个调用者的续体不修改的传递给被调用过程。
CPS的关键在于：所有函数都接受称为其续体的一个额外实际参数，并且在函数调用中的所有实际参数必须要么是一个变量，要么是一个λ表达式而非更复杂的表达式。这具有将表达式“从内至外”翻转的效果，由于表达式最内部份必须首先求值，因此CPS使得求值次序以及控制流程变得明确了。下面是在Scheme语言中仅使用其基本形式的几个例子，对比了直接风格代码和对应的CPS代码，这里约定了将续体函数表示为名为codice_39的形式参数：
注意在CPS版本的代码中，使用的函数原语（functional primitive）如这里的codice_40、codice_41、codice_42、codice_43和codice_44自身也是CPS而非直接风格，所以要使得上述例子在Scheme系统中运行，就必须写出这些函数原语的CPS版本，例如codice_43定义为：
 (k (= x y)))
更通用的方式是写一个转换例程：
 (lambda args
 (let ((r (reverse args)))
 ((car r) (apply f (reverse (cdr r)))))))
要在直接风格函数中调用CPS函数，必须提供接收CPS函数计算结果的一个续体。上述例子在所需CPS函数原语均已提供的条件下，可以调用为：
一般的编程经常不采用CPS函数原语，比如将前面的阶乘函数写为：
 (if (= n 0)
 (k 1)
 (factorial&amp; 
 (- n 1) 
 (lambda (acc) (k (* n acc))))))
以当前续体调用.
Scheme编程语言包括了控制流程算子（简写为codice_3），Scheme程序可以通过它操纵控制流程。在计算机科学中，使这种类型的隐含程序状态可见为对象，术语上叫做实化。在Scheme中，续体对象是头等值并被表示为函数，具有作为其唯一的运算。Scheme在应用续体和函数二者之间不做语法上的区分。
在Scheme中，出现在一个表达式中的(call/cc f)，接受一个函数codice_8作为它的唯一实际参数，并把它应用到这个表达式的当前续体上。当一个续体对象被应用于一个实际参数的时候，现存的续体被消除，而应用的续体在其所在位置上被恢复，所以程序流程将在续体被捕获的那一点上继续，而“续体的实际参数”则变成codice_3调用的“返回值”。codice_3建立的续体可以被多于一次调用，甚至可以从这个codice_3应用的动态时效范围（extent）的外部来调用。
例如在表达式((call/cc f) g)中，在概念上给出codice_8所应用到的当前续体的方式，是通过将(call/cc f)替代为以lambda抽象绑定的一个变量比如叫做codice_52，故而它的当前续体是(lambda (cc) (cc g))。对它应用函数codice_8，得到最终结果(f (lambda (cc) (cc g)))。而在表达式(g (call/cc f))中，子表达式的(call/cc f)的续体是(lambda (cc) (g cc))，故而整个表达式等价于(f (lambda (cc) (g cc)))。
立即返回.
下面的例子中，使用codice_3来模拟C风格语言中的return语句：
(define (f return) 
 (return 2) 
 3)
=&gt; 3
=&gt; 2
首先以正规函数实际参数(lambda (x) x)调用codice_8，它将绑定到形式参数codice_56上的这个函数应用于值codice_57，接着执行下一个表达式返回codice_58。但是，在codice_8被传递给codice_3的时候，将绑定了续体的形式参数应用于codice_57，将程序执行强制为跳转到调用codice_3那一点上，并导致codice_3返回值codice_57。这个结果接着被顶层续体用codice_65函数打印出来。
生成器.
在下面的生成器代码中，codice_3被使用了两处：一处用于生成立即返回续体，而另一处用于遍历一个成员列表的迭代在暂停时保存恢复位置：
 (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)))
 (display (generate-digit)) (newline)
 (display (generate-digit)) (newline))
(display-two-digits) ;; 分两行打印 0 和 1
(display-two-digits) ;; 分两行打印 2 和 fell-off-the-end
在定义变量codice_67之时，将其定义为函数codice_68应用于列表codice_69上而得到的一个闭包codice_70。这个codice_70被定义为(call/cc control-state)。
在第一次执行codice_72之时，执行(call/cc control-state)，进而执行codice_73，它将用于立即返回的续体绑定到形式参数codice_56之上；然后开始遍历列表的元素进行迭代的(for-each (lambda (element) ……) lst)，在求值(set! return (……))的第二个实际参数之时，进行每一次迭代步骤(call/cc (lambda (resume-here) ……))，其中的(set! control-state resume-here)，将绑定到变量codice_75上的当前续体，重新绑定到函数名字codice_76之上用于以后恢复执行，最后执行codice_77返回当前列表元素。
在下一次执行codice_72之时，(call/cc control-state)将codice_76所绑定的续体应用当前续体上，从而在迭代的(set! return (call/cc ……))之处恢复执行，它将传入的立即返回续体绑定到变量codice_56上，此后继续这一次的迭代步骤。在遍历了列表的元素之后迭代结束，最终执行codice_81，返回一个约定的常量。
协程.
codice_3还可以表达其他复杂的原始运算。下面的代码使用续体达成协作式多任务的用户级线程，亦称为协程：
 (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)))))
 (call/cc (lambda (return)
 (let ((cont (car *ready-list*)))
 (set! *ready-list*
 (append (cdr *ready-list*) (list return)))
 (cont #f)))))
 (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)))))
上述代码的简单用例：
 (let loop ((n 0))
 (if (&lt; n 3) (begin
 (display (format "~a ~a~%" str n))
 ;; 调用退让过程，它捕获调用者的当前续体，
 ;; 将其追加到等待线程的列表，本线程暂停。
 (yield)
 (loop (+ n 1))))))
 ;; 调用分叉过程，它接受一个函数和相应的一个参数，
 ;; 创建一个新线程运行这个函数。
 (fork do-stuff-n-print "This is AAA")
 (fork do-stuff-n-print "Hello from BBB")
 ;; 调用调度过程，它采用FIFO，只要有任何其他线程等待，
 ;; 就取其中第一个线程运行，最终无等待者时结束。
 (schedule))
其输出为：
This is AAA 0
Hello from BBB 0
This is AAA 1
Hello from BBB 1
This is AAA 2
Hello from BBB 2