| … | |
… | |
| 46 | The default (enabled) has been in-use on productions servers for some time |
46 | The default (enabled) has been in-use on productions servers for some time |
| 47 | now, without any problem reports so far. |
47 | now, without any problem reports so far. |
| 48 | |
48 | |
| 49 | EOF |
49 | EOF |
| 50 | |
50 | |
| 51 | print "Do you want to enable C context sharing (y/n) [y]? "; |
51 | if (prompt ("Do you want to enable C context sharing (y/n)", "y") !~ /^\s*n/i) { |
| 52 | |
|
|
| 53 | if (<> !~ /^\s*n/i) { |
|
|
| 54 | print "\nExperimental context sharing enabled.\n\n"; |
52 | print "\nExperimental context sharing enabled.\n\n"; |
| 55 | $DEFINE .= " -DCORO_LAZY_STACK"; |
53 | $DEFINE .= " -DCORO_LAZY_STACK"; |
| 56 | } |
54 | } |
| 57 | |
55 | |
| 58 | if ($iface) { |
56 | if ($iface) { |
| … | |
… | |
| 81 | (it's fast), although s and u should also work now. |
79 | (it's fast), although s and u should also work now. |
| 82 | |
80 | |
| 83 | EOF |
81 | EOF |
| 84 | |
82 | |
| 85 | retry: |
83 | retry: |
| 86 | print "Use which implementation,\n", |
|
|
| 87 | "<s>etjmp/longjump, <u>context, <i>rix or <l>inux [$iface]? "; |
|
|
| 88 | |
84 | |
| 89 | my $r = <>; |
85 | my $r = prompt "Use which implementation,\n" . |
|
|
86 | "<s>etjmp/longjump, <u>context, <i>rix or <l>inux?", |
|
|
87 | $iface; |
| 90 | $iface = lc $1 if $r =~ /(\S)/; |
88 | $iface = lc $1 if $r =~ /(\S)/; |
| 91 | |
89 | |
| 92 | if ($iface eq "u") { |
90 | if ($iface eq "u") { |
| 93 | $DEFINE .= " -DCORO_UCONTEXT"; |
91 | $DEFINE .= " -DCORO_UCONTEXT"; |
| 94 | print "\nUsing ucontext implementation\n\n"; |
92 | print "\nUsing ucontext implementation\n\n"; |
