diff options
Diffstat (limited to 'spec/outputs/codes_from_doc.lua')
| -rw-r--r-- | spec/outputs/codes_from_doc.lua | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/spec/outputs/codes_from_doc.lua b/spec/outputs/codes_from_doc.lua index 55be7df..cce0516 100644 --- a/spec/outputs/codes_from_doc.lua +++ b/spec/outputs/codes_from_doc.lua | |||
| @@ -688,6 +688,56 @@ end) | |||
| 688 | if success then | 688 | if success then |
| 689 | print(result) | 689 | print(result) |
| 690 | end | 690 | end |
| 691 | local a, b, c | ||
| 692 | do | ||
| 693 | local _ok_0, _ret_0, _ret_1, _ret_2 = pcall(function() | ||
| 694 | return func() | ||
| 695 | end) | ||
| 696 | if _ok_0 then | ||
| 697 | a, b, c = _ret_0, _ret_1, _ret_2 | ||
| 698 | end | ||
| 699 | end | ||
| 700 | do | ||
| 701 | local _exp_0 = ((function() | ||
| 702 | return (function(_arg_0, ...) | ||
| 703 | local _ok_0 = _arg_0 | ||
| 704 | if _ok_0 then | ||
| 705 | return ... | ||
| 706 | end | ||
| 707 | end)(pcall(function() | ||
| 708 | return func() | ||
| 709 | end)) | ||
| 710 | end)()) | ||
| 711 | if _exp_0 ~= nil then | ||
| 712 | a = _exp_0 | ||
| 713 | else | ||
| 714 | a = "default" | ||
| 715 | end | ||
| 716 | end | ||
| 717 | f((function() | ||
| 718 | return (function(_arg_0, ...) | ||
| 719 | local _ok_0 = _arg_0 | ||
| 720 | if _ok_0 then | ||
| 721 | return ... | ||
| 722 | end | ||
| 723 | end)(pcall(function() | ||
| 724 | return func() | ||
| 725 | end)) | ||
| 726 | end)()) | ||
| 727 | f((function() | ||
| 728 | return (function(_arg_0, ...) | ||
| 729 | local _ok_0 = _arg_0 | ||
| 730 | if _ok_0 then | ||
| 731 | return ... | ||
| 732 | end | ||
| 733 | end)(xpcall(function() | ||
| 734 | print(123) | ||
| 735 | return func() | ||
| 736 | end, function(e) | ||
| 737 | print(e) | ||
| 738 | return e | ||
| 739 | end)) | ||
| 740 | end)()) | ||
| 691 | local a <const> = 123 | 741 | local a <const> = 123 |
| 692 | local _ <close> = setmetatable({ }, { | 742 | local _ <close> = setmetatable({ }, { |
| 693 | __close = function() | 743 | __close = function() |
| @@ -2909,6 +2959,56 @@ end) | |||
| 2909 | if success then | 2959 | if success then |
| 2910 | print(result) | 2960 | print(result) |
| 2911 | end | 2961 | end |
| 2962 | local a, b, c | ||
| 2963 | do | ||
| 2964 | local _ok_0, _ret_0, _ret_1, _ret_2 = pcall(function() | ||
| 2965 | return func() | ||
| 2966 | end) | ||
| 2967 | if _ok_0 then | ||
| 2968 | a, b, c = _ret_0, _ret_1, _ret_2 | ||
| 2969 | end | ||
| 2970 | end | ||
| 2971 | do | ||
| 2972 | local _exp_0 = ((function() | ||
| 2973 | return (function(_arg_0, ...) | ||
| 2974 | local _ok_0 = _arg_0 | ||
| 2975 | if _ok_0 then | ||
| 2976 | return ... | ||
| 2977 | end | ||
| 2978 | end)(pcall(function() | ||
| 2979 | return func() | ||
| 2980 | end)) | ||
| 2981 | end)()) | ||
| 2982 | if _exp_0 ~= nil then | ||
| 2983 | a = _exp_0 | ||
| 2984 | else | ||
| 2985 | a = "default" | ||
| 2986 | end | ||
| 2987 | end | ||
| 2988 | f((function() | ||
| 2989 | return (function(_arg_0, ...) | ||
| 2990 | local _ok_0 = _arg_0 | ||
| 2991 | if _ok_0 then | ||
| 2992 | return ... | ||
| 2993 | end | ||
| 2994 | end)(pcall(function() | ||
| 2995 | return func() | ||
| 2996 | end)) | ||
| 2997 | end)()) | ||
| 2998 | f((function() | ||
| 2999 | return (function(_arg_0, ...) | ||
| 3000 | local _ok_0 = _arg_0 | ||
| 3001 | if _ok_0 then | ||
| 3002 | return ... | ||
| 3003 | end | ||
| 3004 | end)(xpcall(function() | ||
| 3005 | print(123) | ||
| 3006 | return func() | ||
| 3007 | end, function(e) | ||
| 3008 | print(e) | ||
| 3009 | return e | ||
| 3010 | end)) | ||
| 3011 | end)()) | ||
| 2912 | local a <const> = 123 | 3012 | local a <const> = 123 |
| 2913 | local _ <close> = setmetatable({ }, { | 3013 | local _ <close> = setmetatable({ }, { |
| 2914 | __close = function() | 3014 | __close = function() |