// oils_for_unix.mycpp.cc: translated from Python by mycpp // #include "_gen/bin/oils_for_unix.mycpp.h" #include "cpp/preamble.h" // BEGIN mycpp output #include "mycpp/runtime.h" GLOBAL_STR(str0, "("); GLOBAL_STR(str1, ")"); GLOBAL_STR(str2, "_"); GLOBAL_STR(str3, "T"); GLOBAL_STR(str4, "F"); GLOBAL_STR(str5, ""); GLOBAL_STR(str6, ""); GLOBAL_STR(str7, ""); GLOBAL_STR(str8, ""); GLOBAL_STR(str9, ""); GLOBAL_STR(str10, "\n\n \n oil AST\n \n \n \n 
\n");
GLOBAL_STR(str11, "\n
\n \n\n "); GLOBAL_STR(str12, "n"); GLOBAL_STR(str13, "s"); GLOBAL_STR(str14, "o"); GLOBAL_STR(str15, "o"); GLOBAL_STR(str16, "o"); GLOBAL_STR(str17, ""); GLOBAL_STR(str18, ""); GLOBAL_STR(str19, " "); GLOBAL_STR(str20, "\n"); GLOBAL_STR(str21, " "); GLOBAL_STR(str22, "]"); GLOBAL_STR(str23, " "); GLOBAL_STR(str24, " "); GLOBAL_STR(str25, "\n"); GLOBAL_STR(str26, "\n"); GLOBAL_STR(str27, " "); GLOBAL_STR(str28, "%s%s: ["); GLOBAL_STR(str29, "\n"); GLOBAL_STR(str30, "\n"); GLOBAL_STR(str31, "%s]"); GLOBAL_STR(str32, "%s%s: "); GLOBAL_STR(str33, "\n"); GLOBAL_STR(str34, "\n"); GLOBAL_STR(str35, " "); GLOBAL_STR(str36, "UNTYPED any"); GLOBAL_STR(str37, "...0x%s"); GLOBAL_STR(str38, " "); GLOBAL_STR(str39, " "); GLOBAL_STR(str40, " %s:"); GLOBAL_STR(str41, "UNTYPED any"); GLOBAL_STR(str42, "["); GLOBAL_STR(str43, " "); GLOBAL_STR(str44, "]"); GLOBAL_STR(str45, "...0x%s"); GLOBAL_STR(str46, "foo"); GLOBAL_STR(str47, "\n"); GLOBAL_STR(str48, "Running Oil in ---caper mode"); GLOBAL_STR(str49, "FANOS error: %s"); GLOBAL_STR(str50, "ERROR %s"); GLOBAL_STR(str51, "msg = %r"); GLOBAL_STR(str52, " "); GLOBAL_STR(str53, "GETPID"); GLOBAL_STR(str54, "CHDIR"); GLOBAL_STR(str55, "SETENV"); GLOBAL_STR(str56, "MAIN"); GLOBAL_STR(str57, "oils-for-unix"); GLOBAL_STR(str58, "oil"); GLOBAL_STR(str59, "Missing required applet name."); GLOBAL_STR(str60, "-h"); GLOBAL_STR(str61, "--help"); GLOBAL_STR(str62, "oils-usage"); GLOBAL_STR(str63, "-V"); GLOBAL_STR(str64, "--version"); GLOBAL_STR(str65, "---caper"); GLOBAL_STR(str66, "-"); GLOBAL_STR(str67, "ysh"); GLOBAL_STR(str68, "oil"); GLOBAL_STR(str69, "ysh"); GLOBAL_STR(str70, "sh"); GLOBAL_STR(str71, "osh"); GLOBAL_STR(str72, "true"); GLOBAL_STR(str73, "false"); GLOBAL_STR(str74, "readlink"); GLOBAL_STR(str75, "readlink not translated"); GLOBAL_STR(str76, "Invalid applet %r"); GLOBAL_STR(str77, "oils: %s"); GLOBAL_STR(str78, ""); GLOBAL_STR(str79, "oils I/O error (main): %s"); GLOBAL_STR(str80, "g"); GLOBAL_STR(str81, "a"); GLOBAL_STR(str82, "A"); GLOBAL_STR(str83, "n"); GLOBAL_STR(str84, "r"); GLOBAL_STR(str85, "x"); GLOBAL_STR(str86, "%s=%s"); GLOBAL_STR(str87, "-"); GLOBAL_STR(str88, "+"); GLOBAL_STR(str89, "-"); GLOBAL_STR(str90, "+"); GLOBAL_STR(str91, "-"); GLOBAL_STR(str92, "+"); GLOBAL_STR(str93, "n"); GLOBAL_STR(str94, "r"); GLOBAL_STR(str95, "x"); GLOBAL_STR(str96, "a"); GLOBAL_STR(str97, "A"); GLOBAL_STR(str98, "-"); GLOBAL_STR(str99, "declare -"); GLOBAL_STR(str100, ""); GLOBAL_STR(str101, " "); GLOBAL_STR(str102, "="); GLOBAL_STR(str103, "=()"); GLOBAL_STR(str104, ";"); GLOBAL_STR(str105, " "); GLOBAL_STR(str106, "["); GLOBAL_STR(str107, "]="); GLOBAL_STR(str108, " "); GLOBAL_STR(str109, "=("); GLOBAL_STR(str110, ""); GLOBAL_STR(str111, ")"); GLOBAL_STR(str112, " "); GLOBAL_STR(str113, "["); GLOBAL_STR(str114, "]="); GLOBAL_STR(str115, "=("); GLOBAL_STR(str116, ""); GLOBAL_STR(str117, ")"); GLOBAL_STR(str118, ""); GLOBAL_STR(str119, "export_"); GLOBAL_STR(str120, "doesn't accept -f because it's dangerous. (The code can usually be restructured with 'source')"); GLOBAL_STR(str121, "doesn't accept RHS with -n"); GLOBAL_STR(str122, "Got -a but RHS isn't an array"); GLOBAL_STR(str123, "Got -A but RHS isn't an associative array"); GLOBAL_STR(str124, "readonly"); GLOBAL_STR(str125, "new_var"); GLOBAL_STR(str126, "with -f expects function names"); GLOBAL_STR(str127, "declare -f %s"); GLOBAL_STR(str128, "doesn't implement flag -i (shopt --set ignore_flags_not_impl)"); GLOBAL_STR(str129, "Warning: OSH doesn't implement flags -l or -u (shopt --set ignore_flags_not_impl)"); GLOBAL_STR(str130, "-"); GLOBAL_STR(str131, "-"); GLOBAL_STR(str132, "-"); GLOBAL_STR(str133, "+"); GLOBAL_STR(str134, "+"); GLOBAL_STR(str135, "+"); GLOBAL_STR(str136, "unset"); GLOBAL_STR(str137, "Invalid shift argument %r"); GLOBAL_STR(str138, "got too many arguments"); GLOBAL_STR(str139, "compexport"); GLOBAL_STR(str140, "expected a -c string, like sh -c"); GLOBAL_STR(str141, "jlines"); GLOBAL_STR(str142, "tsv8"); GLOBAL_STR(str143, "TSV8 format not implemented"); GLOBAL_STR(str144, "cd"); GLOBAL_STR(str145, "cd"); GLOBAL_STR(str146, "requires an argument when a block is passed"); GLOBAL_STR(str147, "HOME"); GLOBAL_STR(str148, "got too many arguments"); GLOBAL_STR(str149, "-"); GLOBAL_STR(str150, "OLDPWD"); GLOBAL_STR(str151, "PWD"); GLOBAL_STR(str152, "cd %r: %s"); GLOBAL_STR(str153, "PWD"); GLOBAL_STR(str154, "OLDPWD"); GLOBAL_STR(str155, "%2d %s"); GLOBAL_STR(str156, " "); GLOBAL_STR(str157, "pushd"); GLOBAL_STR(str158, "pushd: no other directory"); GLOBAL_STR(str159, "got too many arguments"); GLOBAL_STR(str160, "pushd: %r: %s"); GLOBAL_STR(str161, "HOME"); GLOBAL_STR(str162, "PWD"); GLOBAL_STR(str163, "%s: directory stack is empty"); GLOBAL_STR(str164, "%s: %r: %s"); GLOBAL_STR(str165, "PWD"); GLOBAL_STR(str166, "pushd"); GLOBAL_STR(str167, "got extra argument"); GLOBAL_STR(str168, "popd"); GLOBAL_STR(str169, "HOME"); GLOBAL_STR(str170, "dirs"); GLOBAL_STR(str171, "HOME"); GLOBAL_STR(str172, "pwd"); GLOBAL_STR(str173, "try_"); GLOBAL_STR(str174, "code"); GLOBAL_STR(str175, "failed"); GLOBAL_STR(str176, "code"); GLOBAL_STR(str177, "error"); GLOBAL_STR(str178, "expected a message to display"); GLOBAL_STR(str179, "code"); GLOBAL_STR(str180, "status must be a non-zero integer"); GLOBAL_STR(str181, "boolstatus"); GLOBAL_STR(str182, "expected a command to run"); GLOBAL_STR(str183, "boolstatus expected status 0 or 1, got %d"); GLOBAL_STR(str184, "\n"); GLOBAL_STR(str185, "Expected: "); GLOBAL_STR(str186, "Got: "); GLOBAL_STR(str187, "Not equal"); GLOBAL_STR(str188, "Expression isn't true"); GLOBAL_STR(str189, "assert"); GLOBAL_STR(str190, "\n"); GLOBAL_STR(str191, "Value isn't true: "); GLOBAL_STR(str192, "assertion"); GLOBAL_STR(str193, "Expected capture group less than %d, got %d"); GLOBAL_STR(str194, "ERE captures don't have names (%r)"); GLOBAL_STR(str195, "No such group %r"); GLOBAL_STR(str196, "expected Int or Str"); GLOBAL_STR(str197, "No regex capture groups"); GLOBAL_STR(str198, "Couldn't open %r: %s"); GLOBAL_STR(str199, "len() expected Str, List, or Dict"); GLOBAL_STR(str200, ""); GLOBAL_STR(str201, "maybe() expected Str, but got %s"); GLOBAL_STR(str202, "Can't convert float %s to Int"); GLOBAL_STR(str203, "Can't convert %s to Int"); GLOBAL_STR(str204, "int() expected Bool, Int, Float, or Str"); GLOBAL_STR(str205, "Cannot convert %s to Float"); GLOBAL_STR(str206, "float() expected Int, Float, or Str"); GLOBAL_STR(str207, "str() expected Str, Int, or Float"); GLOBAL_STR(str208, "list() expected Dict, List, or Range"); GLOBAL_STR(str209, "dict() expected Dict or BashAssoc"); GLOBAL_STR(str210, "space"); GLOBAL_STR(str211, "start_pos"); GLOBAL_STR(str212, "end_pos"); GLOBAL_STR(str213, "len"); GLOBAL_STR(str214, "get"); GLOBAL_STR(str215, "set"); GLOBAL_STR(str216, "unset"); GLOBAL_STR(str217, "subst"); GLOBAL_STR(str218, "keys"); GLOBAL_STR(str219, "slice"); GLOBAL_STR(str220, "append"); GLOBAL_STR(str221, "Invalid SparseArray operation %r"); GLOBAL_STR(str222, "builtin expects 'define', 'reset' or 'pp'"); GLOBAL_STR(str223, "Recursive 'hay eval' not allowed"); GLOBAL_STR(str224, "source"); GLOBAL_STR(str225, "children"); GLOBAL_STR(str226, "children"); GLOBAL_STR(str227, "children"); GLOBAL_STR(str228, "define"); GLOBAL_STR(str229, "define expected a name"); GLOBAL_STR(str230, "/"); GLOBAL_STR(str231, "got invalid path %r. Parts can't be empty."); GLOBAL_STR(str232, "eval"); GLOBAL_STR(str233, "expected variable name"); GLOBAL_STR(str234, ":"); GLOBAL_STR(str235, "eval expected a block"); GLOBAL_STR(str236, "reset"); GLOBAL_STR(str237, "pp"); GLOBAL_STR(str238, "\n"); GLOBAL_STR(str239, "haynode"); GLOBAL_STR(str240, "type"); GLOBAL_STR(str241, "expected at least 1 arg, or a literal block { }"); GLOBAL_STR(str242, "args"); GLOBAL_STR(str243, "command node requires a literal block argument"); GLOBAL_STR(str244, "expr"); GLOBAL_STR(str245, "location_str"); GLOBAL_STR(str246, "location_start_line"); GLOBAL_STR(str247, "code_str"); GLOBAL_STR(str248, "children"); GLOBAL_STR(str249, "_"); GLOBAL_STR(str250, "attrs"); GLOBAL_STR(str251, "e"); GLOBAL_STR(str252, "n"); GLOBAL_STR(str253, "echo"); GLOBAL_STR(str254, ""); GLOBAL_STR(str255, " "); GLOBAL_STR(str256, "\n"); GLOBAL_STR(str257, "mapfile"); GLOBAL_STR(str258, "MAPFILE"); GLOBAL_STR(str259, "mapfile: read() error: %s"); GLOBAL_STR(str260, "osh I/O error: %s"); GLOBAL_STR(str261, "\n"); GLOBAL_STR(str262, "pp"); GLOBAL_STR(str263, "value"); GLOBAL_STR(str264, ""); GLOBAL_STR(str265, "asdl_"); GLOBAL_STR(str266, "\n"); GLOBAL_STR(str267, "test_"); GLOBAL_STR(str268, "(%s) "); GLOBAL_STR(str269, "cell_"); GLOBAL_STR(str270, "got invalid variable name %r"); GLOBAL_STR(str271, "Couldn't find a variable named %r"); GLOBAL_STR(str272, "%s = "); GLOBAL_STR(str273, "\n"); GLOBAL_STR(str274, "gc-stats_"); GLOBAL_STR(str275, "TODO"); GLOBAL_STR(str276, "proc"); GLOBAL_STR(str277, "Invalid proc %r"); GLOBAL_STR(str278, "proc_name\tdoc_comment"); GLOBAL_STR(str279, ""); GLOBAL_STR(str280, "\t"); GLOBAL_STR(str281, "got invalid action %r"); GLOBAL_STR(str282, "write"); GLOBAL_STR(str283, "fopen"); GLOBAL_STR(str284, "expected a block"); GLOBAL_STR(str285, "builtin expects 'read' or 'write'"); GLOBAL_STR(str286, "json8"); GLOBAL_STR(str287, "json"); GLOBAL_STR(str288, "write"); GLOBAL_STR(str289, "json_write"); GLOBAL_STR(str290, "write got too many args"); GLOBAL_STR(str291, "space"); GLOBAL_STR(str292, "%s write: %s"); GLOBAL_STR(str293, "\n"); GLOBAL_STR(str294, "read"); GLOBAL_STR(str295, "json_read"); GLOBAL_STR(str296, "_reply"); GLOBAL_STR(str297, "read got too many args"); GLOBAL_STR(str298, "read error: %s"); GLOBAL_STR(str299, "%s read: %s"); GLOBAL_STR(str300, "eval"); GLOBAL_STR(str301, "requires code string"); GLOBAL_STR(str302, "requires exactly 1 argument"); GLOBAL_STR(str303, " "); GLOBAL_STR(str304, "eval"); GLOBAL_STR(str305, "eval"); GLOBAL_STR(str306, "source"); GLOBAL_STR(str307, "missing required argument"); GLOBAL_STR(str308, "///"); GLOBAL_STR(str309, "stdlib"); GLOBAL_STR(str310, "source failed: No builtin file %r"); GLOBAL_STR(str311, "source %r failed: %s"); GLOBAL_STR(str312, "source"); GLOBAL_STR(str313, "file"); GLOBAL_STR(str314, "alias"); GLOBAL_STR(str315, "an alias for %s"); GLOBAL_STR(str316, "a shell %s"); GLOBAL_STR(str317, "%s is %s"); GLOBAL_STR(str318, "file"); GLOBAL_STR(str319, "command"); GLOBAL_STR(str320, "%s: not found"); GLOBAL_STR(str321, "Can't run assignment builtin recursively"); GLOBAL_STR(str322, "%r isn't a shell builtin"); GLOBAL_STR(str323, "runproc"); GLOBAL_STR(str324, "requires arguments"); GLOBAL_STR(str325, "runproc: no proc named %r"); GLOBAL_STR(str326, "function"); GLOBAL_STR(str327, "alias"); GLOBAL_STR(str328, "builtin"); GLOBAL_STR(str329, "builtin"); GLOBAL_STR(str330, "builtin"); GLOBAL_STR(str331, "keyword"); GLOBAL_STR(str332, "keyword"); GLOBAL_STR(str333, "file"); GLOBAL_STR(str334, "type"); GLOBAL_STR(str335, "%s: not found"); GLOBAL_STR(str336, "status"); GLOBAL_STR(str337, "captureStdout(): command failed with status %d"); GLOBAL_STR(str338, "promptVal() expected a single char, got %r"); GLOBAL_STR(str339, "^"); GLOBAL_STR(str340, "^"); GLOBAL_STR(str341, "$"); GLOBAL_STR(str342, "$"); GLOBAL_STR(str343, "expected pattern to be Eggex or Str"); GLOBAL_STR(str344, "expected pattern to be Eggex or Str"); GLOBAL_STR(str345, "expected Eggex or Str"); GLOBAL_STR(str346, "pos"); GLOBAL_STR(str347, "^"); GLOBAL_STR(str348, "^"); GLOBAL_STR(str349, "0"); GLOBAL_STR(str350, "expected expr to eval to a Str"); GLOBAL_STR(str351, "expected pattern to be Eggex or Str"); GLOBAL_STR(str352, "expected substitution to be Str or Expr"); GLOBAL_STR(str353, "count"); GLOBAL_STR(str354, ""); GLOBAL_STR(str355, "https://www.oilshell.org/release"); GLOBAL_STR(str356, " %s/%s/doc/ref/chap-%s.html#%s"); GLOBAL_STR(str357, "no help topics match %r"); GLOBAL_STR(str358, "help"); GLOBAL_STR(str359, "help"); GLOBAL_STR(str360, "%s-chapters"); GLOBAL_STR(str361, "All docs: https://www.oilshell.org/release/%s/doc/"); GLOBAL_STR(str362, ""); GLOBAL_STR(str363, "source-guard"); GLOBAL_STR(str364, "requires a name"); GLOBAL_STR(str365, "(interactive) Reloading source file %r"); GLOBAL_STR(str366, "expected 'bin' or 'dialect'"); GLOBAL_STR(str367, "dialect"); GLOBAL_STR(str368, "expected dialect name"); GLOBAL_STR(str369, "_DIALECT"); GLOBAL_STR(str370, "Expected dialect %r, got %r"); GLOBAL_STR(str371, "Expected dialect %r"); GLOBAL_STR(str372, "bin"); GLOBAL_STR(str373, "bin %s"); GLOBAL_STR(str374, "expected 'bin' or 'dialect'"); GLOBAL_STR(str375, "# +"); GLOBAL_STR(str376, "osh printf doesn't support the %r flag"); GLOBAL_STR(str377, "eEfFgG"); GLOBAL_STR(str378, "osh printf doesn't support floating point"); GLOBAL_STR(str379, "c"); GLOBAL_STR(str380, "osh printf doesn't support single characters (bytes)"); GLOBAL_STR(str381, "Invalid printf format character"); GLOBAL_STR(str382, "Expected a printf format character"); GLOBAL_STR(str383, ""); GLOBAL_STR(str384, "printf got invalid width %r"); GLOBAL_STR(str385, "0"); GLOBAL_STR(str386, ""); GLOBAL_STR(str387, "printf got invalid precision %r"); GLOBAL_STR(str388, ""); GLOBAL_STR(str389, "s"); GLOBAL_STR(str390, "q"); GLOBAL_STR(str391, "b"); GLOBAL_STR(str392, ""); GLOBAL_STR(str393, "diouxX"); GLOBAL_STR(str394, "'\""); GLOBAL_STR(str395, "Warning: %s"); GLOBAL_STR(str396, "printf expected an integer, got %r"); GLOBAL_STR(str397, "TZ"); GLOBAL_STR(str398, "TZ"); GLOBAL_STR(str399, "ouxX"); GLOBAL_STR(str400, "Can't format negative number with %%%s: %d"); GLOBAL_STR(str401, "o"); GLOBAL_STR(str402, "x"); GLOBAL_STR(str403, "X"); GLOBAL_STR(str404, "0"); GLOBAL_STR(str405, "-"); GLOBAL_STR(str406, "-"); GLOBAL_STR(str407, ""); GLOBAL_STR(str408, "0"); GLOBAL_STR(str409, "-"); GLOBAL_STR(str410, " "); GLOBAL_STR(str411, " "); GLOBAL_STR(str412, "%"); GLOBAL_STR(str413, "printf"); GLOBAL_STR(str414, "requires a format string"); GLOBAL_STR(str415, "printf"); GLOBAL_STR(str416, ""); GLOBAL_STR(str417, "jobs"); GLOBAL_STR(str418, ""); GLOBAL_STR(str419, "No job to put in the foreground"); GLOBAL_STR(str420, "Continue PID %d"); GLOBAL_STR(str421, "isn't implemented"); GLOBAL_STR(str422, "fork"); GLOBAL_STR(str423, "got unexpected argument %r"); GLOBAL_STR(str424, "expected a block"); GLOBAL_STR(str425, "forkwait"); GLOBAL_STR(str426, "got unexpected argument %r"); GLOBAL_STR(str427, "expected a block"); GLOBAL_STR(str428, "exec"); GLOBAL_STR(str429, "exec: %r not found"); GLOBAL_STR(str430, "unreachable"); GLOBAL_STR(str431, "wait"); GLOBAL_STR(str432, "wait"); GLOBAL_STR(str433, ""); GLOBAL_STR(str434, "%"); GLOBAL_STR(str435, "expected PID or jobspec, got %r"); GLOBAL_STR(str436, "%s isn't a child of this shell"); GLOBAL_STR(str437, "0%03o"); GLOBAL_STR(str438, "osh warning: umask with symbolic input isn't implemented"); GLOBAL_STR(str439, "umask: unexpected arguments"); GLOBAL_STR(str440, "unlimited"); GLOBAL_STR(str441, "-c"); GLOBAL_STR(str442, "core dump size"); GLOBAL_STR(str443, "-d"); GLOBAL_STR(str444, "data segment size"); GLOBAL_STR(str445, "-f"); GLOBAL_STR(str446, "file size"); GLOBAL_STR(str447, "-n"); GLOBAL_STR(str448, "file descriptors"); GLOBAL_STR(str449, "-s"); GLOBAL_STR(str450, "stack size"); GLOBAL_STR(str451, "-t"); GLOBAL_STR(str452, "CPU seconds"); GLOBAL_STR(str453, "-v"); GLOBAL_STR(str454, "address space size"); GLOBAL_STR(str455, "ulimit"); GLOBAL_STR(str456, "can only handle one resource at a time; got too many flags"); GLOBAL_STR(str457, "doesn't accept resource flags with -a"); GLOBAL_STR(str458, "got extra arg with -a"); GLOBAL_STR(str459, "%5s %15s %15s %7s %s"); GLOBAL_STR(str460, "FLAG"); GLOBAL_STR(str461, "SOFT"); GLOBAL_STR(str462, "HARD"); GLOBAL_STR(str463, "FACTOR"); GLOBAL_STR(str464, "DESC"); GLOBAL_STR(str465, "unlimited"); GLOBAL_STR(str466, "expected a number or 'unlimited', got %r"); GLOBAL_STR(str467, "doesn't accept negative numbers, got %r"); GLOBAL_STR(str468, "detected integer overflow: %s"); GLOBAL_STR(str469, "got extra arg"); GLOBAL_STR(str470, "ulimit error: %s"); GLOBAL_STR(str471, "alias"); GLOBAL_STR(str472, "alias %s=%r"); GLOBAL_STR(str473, "="); GLOBAL_STR(str474, "No alias named %r"); GLOBAL_STR(str475, "alias %s=%r"); GLOBAL_STR(str476, "unalias"); GLOBAL_STR(str477, "requires an argument"); GLOBAL_STR(str478, "No alias named %r"); GLOBAL_STR(str479, "%s=%s"); GLOBAL_STR(str480, "set"); GLOBAL_STR(str481, "shopt"); GLOBAL_STR(str482, "got invalid option %r"); GLOBAL_STR(str483, "hash"); GLOBAL_STR(str484, "got extra arguments after -r"); GLOBAL_STR(str485, "hash: %r not found"); GLOBAL_STR(str486, ":"); GLOBAL_STR(str487, "OPTIND"); GLOBAL_STR(str488, "OPTIND"); GLOBAL_STR(str489, "OPTARG"); GLOBAL_STR(str490, "OPTARG"); GLOBAL_STR(str491, ""); GLOBAL_STR(str492, "?"); GLOBAL_STR(str493, "-"); GLOBAL_STR(str494, "-"); GLOBAL_STR(str495, "?"); GLOBAL_STR(str496, "?"); GLOBAL_STR(str497, "getopts: option %r requires an argument."); GLOBAL_STR(str498, "(getopts argv: %s)"); GLOBAL_STR(str499, " "); GLOBAL_STR(str500, "?"); GLOBAL_STR(str501, ""); GLOBAL_STR(str502, "requires an argspec"); GLOBAL_STR(str503, "requires the name of a variable to set"); GLOBAL_STR(str504, "got invalid variable name %r"); GLOBAL_STR(str505, "shvar"); GLOBAL_STR(str506, "expected a block"); GLOBAL_STR(str507, "Expected name=value"); GLOBAL_STR(str508, "="); GLOBAL_STR(str509, "Expected name=value"); GLOBAL_STR(str510, "PATH"); GLOBAL_STR(str511, "Could not find a context. Did you forget to 'ctx push'?"); GLOBAL_STR(str512, "Expected the context item '%s' to be a List"); GLOBAL_STR(str513, "ctx"); GLOBAL_STR(str514, "Expected a verb (push, set, emit)"); GLOBAL_STR(str515, "push"); GLOBAL_STR(str516, "set"); GLOBAL_STR(str517, "emit"); GLOBAL_STR(str518, "A target field is required"); GLOBAL_STR(str519, "Unknown verb '%s'"); GLOBAL_STR(str520, "push-registers"); GLOBAL_STR(str521, "expected a block"); GLOBAL_STR(str522, "append"); GLOBAL_STR(str523, "expected List or BashArray"); GLOBAL_STR(str524, ""); GLOBAL_STR(str525, ""); GLOBAL_STR(str526, "'"); GLOBAL_STR(str527, ""); GLOBAL_STR(str528, ""); GLOBAL_STR(str529, "Oils read error: %s"); GLOBAL_STR(str530, "Oils read I/O error: %s"); GLOBAL_STR(str531, "_reply"); GLOBAL_STR(str532, "got extra argument"); GLOBAL_STR(str533, "read"); GLOBAL_STR(str534, "doesn't accept typed args without --all, or --num-bytes"); GLOBAL_STR(str535, "read -t isn't implemented (except t=0)"); GLOBAL_STR(str536, ""); GLOBAL_STR(str537, "REPLY"); GLOBAL_STR(str538, "REPLY"); GLOBAL_STR(str539, ""); GLOBAL_STR(str540, "warning: bind isn't implemented"); GLOBAL_STR(str541, "is disabled because Oil wasn't compiled with 'readline'"); GLOBAL_STR(str542, "history"); GLOBAL_STR(str543, "Error writing HISTFILE %r: %s"); GLOBAL_STR(str544, "Error reading HISTFILE %r: %s"); GLOBAL_STR(str545, "couldn't find item %d"); GLOBAL_STR(str546, "got invalid argument %r"); GLOBAL_STR(str547, "got too many arguments"); GLOBAL_STR(str548, "%5d %s\n"); GLOBAL_STR(str549, "ERR"); GLOBAL_STR(str550, "ERR"); GLOBAL_STR(str551, "1"); GLOBAL_STR(str552, "2"); GLOBAL_STR(str553, "3"); GLOBAL_STR(str554, "6"); GLOBAL_STR(str555, "9"); GLOBAL_STR(str556, "13"); GLOBAL_STR(str557, "14"); GLOBAL_STR(str558, "15"); GLOBAL_STR(str559, "SIG"); GLOBAL_STR(str560, "EXIT"); GLOBAL_STR(str561, "ERR"); GLOBAL_STR(str562, "RETURN"); GLOBAL_STR(str563, "DEBUG"); GLOBAL_STR(str564, "trap"); GLOBAL_STR(str565, "trap"); GLOBAL_STR(str566, "%s TrapState"); GLOBAL_STR(str567, "%d TrapState"); GLOBAL_STR(str568, " %s"); GLOBAL_STR(str569, "requires a code string"); GLOBAL_STR(str570, "requires a signal or hook name"); GLOBAL_STR(str571, "0"); GLOBAL_STR(str572, "EXIT"); GLOBAL_STR(str573, "Invalid signal or hook %r"); GLOBAL_STR(str574, "-"); GLOBAL_STR(str575, "Signal or trap"); GLOBAL_STR(str576, "RETURN"); GLOBAL_STR(str577, "osh warning: The %r hook isn't implemented"); GLOBAL_STR(str578, "Signal %r can't be handled"); GLOBAL_STR(str579, "Signal or trap"); GLOBAL_STR(str580, " "); GLOBAL_STR(str581, ""); GLOBAL_STR(str582, ""); GLOBAL_STR(str583, ""); GLOBAL_STR(str584, ""); GLOBAL_STR(str585, ""); GLOBAL_STR(str586, "\u0001"); GLOBAL_STR(str587, "\u0002"); GLOBAL_STR(str588, "\n"); GLOBAL_STR(str589, "\n"); GLOBAL_STR(str590, " %s\n"); GLOBAL_STR(str591, " ... and %d more\n"); GLOBAL_STR(str592, "%-"); GLOBAL_STR(str593, "s"); GLOBAL_STR(str594, " "); GLOBAL_STR(str595, "\n"); GLOBAL_STR(str596, "\n"); GLOBAL_STR(str597, "%"); GLOBAL_STR(str598, "s"); GLOBAL_STR(str599, "... and %d more\n"); GLOBAL_STR(str600, " %-"); GLOBAL_STR(str601, "s "); GLOBAL_STR(str602, "%s"); GLOBAL_STR(str603, "\n"); GLOBAL_STR(str604, ""); GLOBAL_STR(str605, " %s\n"); GLOBAL_STR(str606, " ... "); GLOBAL_STR(str607, "%"); GLOBAL_STR(str608, "s"); GLOBAL_STR(str609, "... and %d more\n"); GLOBAL_STR(str610, "\u001b[%dA"); GLOBAL_STR(str611, "\u001b[%dC"); GLOBAL_STR(str612, "DISPLAY POS in _PrintCandidates = %d\n"); GLOBAL_STR(str613, "\n"); GLOBAL_STR(str614, ""); GLOBAL_STR(str615, " "); GLOBAL_STR(str616, " "); GLOBAL_STR(str617, " "); GLOBAL_STR(str618, "\r\n"); GLOBAL_STR(str619, "\u001b[2K"); GLOBAL_STR(str620, "\u001b[1B"); GLOBAL_STR(str621, "\u001b[%dA"); GLOBAL_STR(str622, "tab: complete"); GLOBAL_STR(str623, "set horizontal-scroll-mode on"); GLOBAL_STR(str624, ""); GLOBAL_STR(str625, "invalid (state, ch) pair"); GLOBAL_STR(str626, " ("); GLOBAL_STR(str627, " %s=%s"); GLOBAL_STR(str628, "1"); GLOBAL_STR(str629, "0"); GLOBAL_STR(str630, " )\n"); GLOBAL_STR(str631, ""); GLOBAL_STR(str632, ""); GLOBAL_STR(str633, "__fallback"); GLOBAL_STR(str634, "__first"); GLOBAL_STR(str635, ""); GLOBAL_STR(str636, "[Commands]\n"); GLOBAL_STR(str637, "%s:\n"); GLOBAL_STR(str638, "[Patterns]\n"); GLOBAL_STR(str639, "%s:\n"); GLOBAL_STR(str640, "__fallback"); GLOBAL_STR(str641, "__first"); GLOBAL_STR(str642, "__first"); GLOBAL_STR(str643, "__fallback"); GLOBAL_STR(str644, ""); GLOBAL_STR(str645, "???CompletionAction "); GLOBAL_STR(str646, "UserAction "); GLOBAL_STR(str647, "TestAction "); GLOBAL_STR(str648, "DynamicWordsAction "); GLOBAL_STR(str649, "FileSystemAction "); GLOBAL_STR(str650, ""); GLOBAL_STR(str651, "."); GLOBAL_STR(str652, "basename %r"); GLOBAL_STR(str653, "to_list %r"); GLOBAL_STR(str654, "dirname %r"); GLOBAL_STR(str655, "/"); GLOBAL_STR(str656, "TODO-complete-C"); GLOBAL_STR(str657, "[ShellFuncAction %s] "); GLOBAL_STR(str658, "COMPREPLY"); GLOBAL_STR(str659, "COMP_ARGV"); GLOBAL_STR(str660, ":"); GLOBAL_STR(str661, "="); GLOBAL_STR(str662, "COMP_WORDS"); GLOBAL_STR(str663, "COMP_CWORD"); GLOBAL_STR(str664, "COMP_LINE"); GLOBAL_STR(str665, "COMP_POINT"); GLOBAL_STR(str666, "Running completion function %r with %d arguments"); GLOBAL_STR(str667, "comp.first %r, commands_changed: %s"); GLOBAL_STR(str668, ", "); GLOBAL_STR(str669, "Function %r returned 124, but the completion spec for %r wasn't changed"); GLOBAL_STR(str670, "COMPREPLY"); GLOBAL_STR(str671, "osh error: Ran function %r but COMPREPLY was unset"); GLOBAL_STR(str672, "osh error: COMPREPLY should be an array, got %s"); GLOBAL_STR(str673, "> %r"); GLOBAL_STR(str674, "VariablesAction "); GLOBAL_STR(str675, "ExternalCommandAction "); GLOBAL_STR(str676, "PATH"); GLOBAL_STR(str677, ":"); GLOBAL_STR(str678, "???Predicate "); GLOBAL_STR(str679, "DefaultPredicate "); GLOBAL_STR(str680, ""); GLOBAL_STR(str681, "GlobPredicate "); GLOBAL_STR(str682, " actions: "); GLOBAL_STR(str683, "\n"); GLOBAL_STR(str684, " extra: "); GLOBAL_STR(str685, "\n"); GLOBAL_STR(str686, " else: "); GLOBAL_STR(str687, "\n"); GLOBAL_STR(str688, " predicate: "); GLOBAL_STR(str689, "\n"); GLOBAL_STR(str690, " prefix: %s\n"); GLOBAL_STR(str691, " suffix: %s\n"); GLOBAL_STR(str692, "line: %r"); GLOBAL_STR(str693, "rl_slice from byte %d to %d: %r"); GLOBAL_STR(str694, ""); GLOBAL_STR(str695, "/"); GLOBAL_STR(str696, "/"); GLOBAL_STR(str697, "Completing redirect arg"); GLOBAL_STR(str698, "Error evaluating redirect word: %s"); GLOBAL_STR(str699, "Didn't get a string from redir arg"); GLOBAL_STR(str700, ""); GLOBAL_STR(str701, ""); GLOBAL_STR(str702, "Completing words"); GLOBAL_STR(str703, "After tilde detection"); GLOBAL_STR(str704, "words2:"); GLOBAL_STR(str705, " %s"); GLOBAL_STR(str706, "partial_argv: [%s]"); GLOBAL_STR(str707, ","); GLOBAL_STR(str708, "alias_first: %s"); GLOBAL_STR(str709, "** DISPLAY_POS = %d"); GLOBAL_STR(str710, "display_pos %d"); GLOBAL_STR(str711, ""); GLOBAL_STR(str712, "Didn't find anything to complete"); GLOBAL_STR(str713, "Got 124, trying again ..."); GLOBAL_STR(str714, "Completing %r ... (Ctrl-C to cancel)"); GLOBAL_STR(str715, "filenames"); GLOBAL_STR(str716, "filenames"); GLOBAL_STR(str717, "filenames"); GLOBAL_STR(str718, "/"); GLOBAL_STR(str719, "nospace"); GLOBAL_STR(str720, "nospace"); GLOBAL_STR(str721, "nospace"); GLOBAL_STR(str722, ""); GLOBAL_STR(str723, " "); GLOBAL_STR(str724, ""); GLOBAL_STR(str725, "es"); GLOBAL_STR(str726, "... %d match%s for %r in %d ms (Ctrl-C to cancel)"); GLOBAL_STR(str727, ""); GLOBAL_STR(str728, "es"); GLOBAL_STR(str729, "Found %d match%s for %r in %d ms"); GLOBAL_STR(str730, "Api %r %d %d"); GLOBAL_STR(str731, "osh: Ignoring 'exit' in completion plugin"); GLOBAL_STR(str732, "osh: Runtime error while completing: %s"); GLOBAL_STR(str733, "Runtime error while completing: %s"); GLOBAL_STR(str734, "osh: I/O error (completion): %s"); GLOBAL_STR(str735, "Ctrl-C in completion"); GLOBAL_STR(str736, "osh: Unhandled exception while completing: %s"); GLOBAL_STR(str737, "Unhandled exception while completing: %s"); GLOBAL_STR(str738, "msg"); GLOBAL_STR(str739, "source"); GLOBAL_STR(str740, "line_num"); GLOBAL_STR(str741, "line"); GLOBAL_STR(str742, "var_stack"); GLOBAL_STR(str743, "argv_stack"); GLOBAL_STR(str744, "debug_stack"); GLOBAL_STR(str745, "error"); GLOBAL_STR(str746, "status"); GLOBAL_STR(str747, "pid"); GLOBAL_STR(str748, "%d-osh-crash-dump.json"); GLOBAL_STR(str749, "[%d] Wrote crash dump to %s"); GLOBAL_STR(str750, "proc"); GLOBAL_STR(str751, "source"); GLOBAL_STR(str752, "?"); GLOBAL_STR(str753, "("); GLOBAL_STR(str754, ")"); GLOBAL_STR(str755, " "); GLOBAL_STR(str756, "("); GLOBAL_STR(str757, "[%s]=%s"); GLOBAL_STR(str758, ")"); GLOBAL_STR(str759, " "); GLOBAL_STR(str760, " "); GLOBAL_STR(str761, " "); GLOBAL_STR(str762, "\n"); GLOBAL_STR(str763, "argv0"); GLOBAL_STR(str764, "count"); GLOBAL_STR(str765, "pid"); GLOBAL_STR(str766, "metric_argv0"); GLOBAL_STR(str767, "%d.argv0.json"); GLOBAL_STR(str768, "[%d] Wrote metrics dump to %s"); GLOBAL_STR(str769, ""); GLOBAL_STR(str770, ""); GLOBAL_STR(str771, ""); GLOBAL_STR(str772, ""); GLOBAL_STR(str773, "SHX_indent"); GLOBAL_STR(str774, "SHX_punct"); GLOBAL_STR(str775, "SHX_pid_str"); GLOBAL_STR(str776, "PS4"); GLOBAL_STR(str777, ""); GLOBAL_STR(str778, ""); GLOBAL_STR(str779, ""); GLOBAL_STR(str780, " "); GLOBAL_STR(str781, "+"); GLOBAL_STR(str782, "|"); GLOBAL_STR(str783, "command %d:"); GLOBAL_STR(str784, "forkwait %d\n"); GLOBAL_STR(str785, "command sub %d\n"); GLOBAL_STR(str786, "proc sub %d\n"); GLOBAL_STR(str787, "here doc %d\n"); GLOBAL_STR(str788, "fork %d\n"); GLOBAL_STR(str789, "part %d\n"); GLOBAL_STR(str790, ";"); GLOBAL_STR(str791, "process %d: status %d\n"); GLOBAL_STR(str792, " %d"); GLOBAL_STR(str793, ">"); GLOBAL_STR(str794, "proc"); GLOBAL_STR(str795, "source"); GLOBAL_STR(str796, "wait"); GLOBAL_STR(str797, "\n"); GLOBAL_STR(str798, "<"); GLOBAL_STR(str799, " "); GLOBAL_STR(str800, "\n"); GLOBAL_STR(str801, "!"); GLOBAL_STR(str802, "\n"); GLOBAL_STR(str803, "."); GLOBAL_STR(str804, "exec"); GLOBAL_STR(str805, "."); GLOBAL_STR(str806, "builtin"); GLOBAL_STR(str807, "\n"); GLOBAL_STR(str808, " "); GLOBAL_STR(str809, " "); GLOBAL_STR(str810, "="); GLOBAL_STR(str811, "\n"); GLOBAL_STR(str812, "?"); GLOBAL_STR(str813, "%s[%d]"); GLOBAL_STR(str814, "%s[%s]"); GLOBAL_STR(str815, "+="); GLOBAL_STR(str816, "="); GLOBAL_STR(str817, "\n"); GLOBAL_STR(str818, "+"); GLOBAL_STR(str819, " "); GLOBAL_STR(str820, "\n"); GLOBAL_STR(str821, "\n"); GLOBAL_STR(str822, " ..."); GLOBAL_STR(str823, "\n"); GLOBAL_STR(str824, "<%s %r>"); GLOBAL_STR(str825, "code"); GLOBAL_STR(str826, "message"); GLOBAL_STR(str827, "%s, got %s"); GLOBAL_STR(str828, " (line %d, offset %d-%d: %r)"); GLOBAL_STR(str829, "/usr/local/sbin"); GLOBAL_STR(str830, "/usr/local/bin"); GLOBAL_STR(str831, "/usr/sbin"); GLOBAL_STR(str832, "/usr/bin"); GLOBAL_STR(str833, "/sbin"); GLOBAL_STR(str834, "/bin"); GLOBAL_STR(str835, "Invalid control flow %r in pipeline / subshell / background"); GLOBAL_STR(str836, "%s builtin I/O error: %s"); GLOBAL_STR(str837, "%r "); GLOBAL_STR(str838, "%s builtin I/O error: %s"); GLOBAL_STR(str839, "Command evaluated to an empty argv array"); GLOBAL_STR(str840, "Can't run assignment builtin recursively"); GLOBAL_STR(str841, "errexit was disabled for this construct"); GLOBAL_STR(str842, ""); GLOBAL_STR(str843, "Can't run a proc while errexit is disabled. Use 'try' or wrap it in a process with $0 myproc"); GLOBAL_STR(str844, "proc"); GLOBAL_STR(str845, "Unknown command %r while running hay"); GLOBAL_STR(str846, "%r appears to be external. External commands don't accept typed args (OILS-ERR-200)"); GLOBAL_STR(str847, "%r not found (OILS-ERR-100)"); GLOBAL_STR(str848, "for -Wreturn-type in C++"); GLOBAL_STR(str849, "[%d] %d"); GLOBAL_STR(str850, "pipeline"); GLOBAL_STR(str851, "Oils I/O error (read): %s"); GLOBAL_STR(str852, ""); GLOBAL_STR(str853, "\n"); GLOBAL_STR(str854, "status wouldn't be checked (strict_errexit)"); GLOBAL_STR(str855, "eval_unsafe_arith is off"); GLOBAL_STR(str856, "Command subs not allowed here because %s"); GLOBAL_STR(str857, "__cat"); GLOBAL_STR(str858, "Command Sub exited with status %d"); GLOBAL_STR(str859, "Process subs not allowed here because status wouldn't be checked (strict_errexit)"); GLOBAL_STR(str860, "/dev/fd/%d"); GLOBAL_STR(str861, "/dev/fd/%d"); GLOBAL_STR(str862, "[FANOS] %s"); GLOBAL_STR(str863, "ERROR %s"); GLOBAL_STR(str864, ""); GLOBAL_STR(str865, "Connect stdin and stdout to one end of socketpair() and send control messages. osh writes debug messages (like this one) to stderr."); GLOBAL_STR(str866, "protocol error: %s"); GLOBAL_STR(str867, "EOF received"); GLOBAL_STR(str868, "received blob %r"); GLOBAL_STR(str869, " "); GLOBAL_STR(str870, " "); GLOBAL_STR(str871, ""); GLOBAL_STR(str872, "GETPID"); GLOBAL_STR(str873, "EVAL"); GLOBAL_STR(str874, "Expected 3 file descriptors"); GLOBAL_STR(str875, "received descriptor %d"); GLOBAL_STR(str876, "PARSE"); GLOBAL_STR(str877, "TODO:PARSE"); GLOBAL_STR(str878, "Invalid command %r"); GLOBAL_STR(str879, "Invalid command %r"); GLOBAL_STR(str880, "OK %s"); GLOBAL_STR(str881, "^C"); GLOBAL_STR(str882, "STATUS\t%r"); GLOBAL_STR(str883, ""); GLOBAL_STR(str884, "%"); GLOBAL_STR(str885, "%%"); GLOBAL_STR(str886, "%+"); GLOBAL_STR(str887, "<_FdFrame %s>"); GLOBAL_STR(str888, "r"); GLOBAL_STR(str889, "mylib.LineReader"); GLOBAL_STR(str890, "w"); GLOBAL_STR(str891, "mylib.Writer"); GLOBAL_STR(str892, "F_DUPFD fd %d: %s"); GLOBAL_STR(str893, "F_GETFD fd %d: %s"); GLOBAL_STR(str894, "dup2(%d, %d): %s"); GLOBAL_STR(str895, " (noclobber)"); GLOBAL_STR(str896, ""); GLOBAL_STR(str897, "Can't open %r: %s%s"); GLOBAL_STR(str898, "Error closing descriptor %d: %s"); GLOBAL_STR(str899, "dup2(%d, %d) error: %s"); GLOBAL_STR(str900, ""); GLOBAL_STR(str901, ""); GLOBAL_STR(str902, "osh: child %d failed to set its process group to %d: %s"); GLOBAL_STR(str903, "osh: parent failed to set process group for PID %d to %d: %s"); GLOBAL_STR(str904, "Hijacked: %s"); GLOBAL_STR(str905, "/bin/sh"); GLOBAL_STR(str906, "/bin/sh"); GLOBAL_STR(str907, "Can't execute %r: %s"); GLOBAL_STR(str908, "[process] %s"); GLOBAL_STR(str909, " "); GLOBAL_STR(str910, "[subprog] %s"); GLOBAL_STR(str911, ""); GLOBAL_STR(str912, "oils I/O error (subprogram): %s"); GLOBAL_STR(str913, "[here doc writer]"); GLOBAL_STR(str914, ""); GLOBAL_STR(str915, " "); GLOBAL_STR(str916, "%%%d"); GLOBAL_STR(str917, "%d\n"); GLOBAL_STR(str918, "%s %d %7s "); GLOBAL_STR(str919, "\n"); GLOBAL_STR(str920, "Fatal error in posix.fork()"); GLOBAL_STR(str921, "[%d] Done PID %d"); GLOBAL_STR(str922, "%d\n"); GLOBAL_STR(str923, "%%%d"); GLOBAL_STR(str924, " "); GLOBAL_STR(str925, "%s %d %7s "); GLOBAL_STR(str926, "\n"); GLOBAL_STR(str927, "Pipeline in state %s"); GLOBAL_STR(str928, "Error setting up last part of pipeline: %s"); GLOBAL_STR(str929, "[%d] Done PGID %d"); GLOBAL_STR(str930, "/dev/tty"); GLOBAL_STR(str931, "osh: Failed to move process group %d to foreground: %s"); GLOBAL_STR(str932, "%-"); GLOBAL_STR(str933, "^%([0-9]+)$"); GLOBAL_STR(str934, "\n"); GLOBAL_STR(str935, "[process debug info]\n"); GLOBAL_STR(str936, "\n"); GLOBAL_STR(str937, "[pipeline debug info]\n"); GLOBAL_STR(str938, "osh: PID %d stopped, but osh didn't start it"); GLOBAL_STR(str939, ""); GLOBAL_STR(str940, ""); GLOBAL_STR(str941, "[PID %d] Stopped with signal %d"); GLOBAL_STR(str942, " \t\n\"'><=;|&(:"); GLOBAL_STR(str943, "/"); GLOBAL_STR(str944, "PATH"); GLOBAL_STR(str945, ":"); GLOBAL_STR(str946, "/"); GLOBAL_STR(str947, "got invalid option %r"); GLOBAL_STR(str948, "got invalid option %r"); GLOBAL_STR(str949, "invalid option %r (try shopt)"); GLOBAL_STR(str950, "SHELLOPTS"); GLOBAL_STR(str951, ":"); GLOBAL_STR(str952, "Syntax options must be set at the top level (outside any function)"); GLOBAL_STR(str953, "Warning: set -o verbose not implemented"); GLOBAL_STR(str954, "SHELLOPTS"); GLOBAL_STR(str955, "%s:%s"); GLOBAL_STR(str956, "SHELLOPTS"); GLOBAL_STR(str957, ":"); GLOBAL_STR(str958, ":"); GLOBAL_STR(str959, "SHELLOPTS"); GLOBAL_STR(str960, "set %so %s"); GLOBAL_STR(str961, "-"); GLOBAL_STR(str962, "+"); GLOBAL_STR(str963, "got invalid option %r"); GLOBAL_STR(str964, "shopt -%s %s"); GLOBAL_STR(str965, "s"); GLOBAL_STR(str966, "u"); GLOBAL_STR(str967, "<_ArgFrame %s %d at %x>"); GLOBAL_STR(str968, "argv"); GLOBAL_STR(str969, "num_shifted"); GLOBAL_STR(str970, "x"); GLOBAL_STR(str971, "r"); GLOBAL_STR(str972, "flags"); GLOBAL_STR(str973, "val"); GLOBAL_STR(str974, "val"); GLOBAL_STR(str975, "Can't determine working directory: %s"); GLOBAL_STR(str976, "-1"); GLOBAL_STR(str977, "call_source"); GLOBAL_STR(str978, "call_line_num"); GLOBAL_STR(str979, "call_line"); GLOBAL_STR(str980, "IFS"); GLOBAL_STR(str981, "UID"); GLOBAL_STR(str982, "EUID"); GLOBAL_STR(str983, "PPID"); GLOBAL_STR(str984, "HOSTNAME"); GLOBAL_STR(str985, "OSTYPE"); GLOBAL_STR(str986, "OPTIND"); GLOBAL_STR(str987, "1"); GLOBAL_STR(str988, "PS4"); GLOBAL_STR(str989, "${SHX_indent}${SHX_punct}${SHX_pid_str} "); GLOBAL_STR(str990, "COMP_WORDBREAKS"); GLOBAL_STR(str991, "SHELLOPTS"); GLOBAL_STR(str992, "SHELLOPTS"); GLOBAL_STR(str993, ""); GLOBAL_STR(str994, "SHELLOPTS"); GLOBAL_STR(str995, "PWD"); GLOBAL_STR(str996, "PWD"); GLOBAL_STR(str997, "PWD"); GLOBAL_STR(str998, "PATH"); GLOBAL_STR(str999, "PATH"); GLOBAL_STR(str1000, "/bin:/usr/bin"); GLOBAL_STR(str1001, "OIL_VERSION"); GLOBAL_STR(str1002, "OILS_VERSION"); GLOBAL_STR(str1003, "LIB_OSH"); GLOBAL_STR(str1004, "///osh"); GLOBAL_STR(str1005, "LIB_YSH"); GLOBAL_STR(str1006, "///ysh"); GLOBAL_STR(str1007, "NAN"); GLOBAL_STR(str1008, "INFINITY"); GLOBAL_STR(str1009, "PWD"); GLOBAL_STR(str1010, "PS1"); GLOBAL_STR(str1011, "PS1"); GLOBAL_STR(str1012, "\\s-\\v\\$ "); GLOBAL_STR(str1013, "ARGV"); GLOBAL_STR(str1014, "ARGV"); GLOBAL_STR(str1015, ""); GLOBAL_STR(str1016, ""); GLOBAL_STR(str1017, ""); GLOBAL_STR(str1021, "\n"); GLOBAL_STR(str1022, "\n"); GLOBAL_STR(str1023, "Call"); GLOBAL_STR(str1024, "Source"); GLOBAL_STR(str1025, "Main"); GLOBAL_STR(str1026, "type"); GLOBAL_STR(str1027, "func_name"); GLOBAL_STR(str1028, "type"); GLOBAL_STR(str1029, "source_name"); GLOBAL_STR(str1030, "type"); GLOBAL_STR(str1031, "dollar0"); GLOBAL_STR(str1032, "0"); GLOBAL_STR(str1033, "0"); GLOBAL_STR(str1034, "0"); GLOBAL_STR(str1035, "nameref %r is undefined"); GLOBAL_STR(str1036, "nameref %r contains invalid variable name %r"); GLOBAL_STR(str1037, "Circular nameref %s"); GLOBAL_STR(str1038, " -> "); GLOBAL_STR(str1039, "Can't assign to place that's no longer on the call stack."); GLOBAL_STR(str1040, "Container place not implemented"); GLOBAL_STR(str1041, "Can't assign to readonly value %r"); GLOBAL_STR(str1042, "Can't assign to readonly value %r"); GLOBAL_STR(str1043, "Only strings can be exported (strict_array)"); GLOBAL_STR(str1044, "nameref must be a string"); GLOBAL_STR(str1045, "Can't assign to readonly array"); GLOBAL_STR(str1046, "Can't assign to items in a string"); GLOBAL_STR(str1047, "Value of type %s can't be indexed"); GLOBAL_STR(str1048, "Can't assign to readonly associative array"); GLOBAL_STR(str1049, "_status"); GLOBAL_STR(str1050, "_error"); GLOBAL_STR(str1051, "_this_dir"); GLOBAL_STR(str1052, "PIPESTATUS"); GLOBAL_STR(str1053, "_pipeline_status"); GLOBAL_STR(str1054, "_process_sub_status"); GLOBAL_STR(str1055, "BASH_REMATCH"); GLOBAL_STR(str1056, "FUNCNAME"); GLOBAL_STR(str1057, "source"); GLOBAL_STR(str1058, "main"); GLOBAL_STR(str1059, "BASH_SOURCE"); GLOBAL_STR(str1060, "BASH_LINENO"); GLOBAL_STR(str1061, "0"); GLOBAL_STR(str1062, "LINENO"); GLOBAL_STR(str1063, "BASHPID"); GLOBAL_STR(str1064, "_"); GLOBAL_STR(str1065, "SECONDS"); GLOBAL_STR(str1066, "Can't unset readonly variable %r"); GLOBAL_STR(str1067, "%r isn't an array"); GLOBAL_STR(str1068, "$%s isn't defined"); GLOBAL_STR(str1069, "$%s should be a string"); GLOBAL_STR(str1070, "$%s should be a string, got %s"); GLOBAL_STR(str1071, "$%s doesn't look like an integer, got %r"); GLOBAL_STR(str1072, ""); GLOBAL_STR(str1073, "history: %s"); GLOBAL_STR(str1074, "\n"); GLOBAL_STR(str1075, "%s %s %s\n"); GLOBAL_STR(str1076, "~~~ %s ~~~\n"); GLOBAL_STR(str1077, "\n"); GLOBAL_STR(str1078, "_devbuild/help/%s"); GLOBAL_STR(str1079, "\n"); GLOBAL_STR(str1080, "Oils %s\t\thttps://www.oilshell.org/\n"); GLOBAL_STR(str1081, "\n"); GLOBAL_STR(str1082, "\n"); GLOBAL_STR(str1083, ""); GLOBAL_STR(str1084, " 0x%s"); GLOBAL_STR(str1085, ""); GLOBAL_STR(str1086, "\n"); GLOBAL_STR(str1087, "\n"); GLOBAL_STR(str1088, " "); GLOBAL_STR(str1089, "[]"); GLOBAL_STR(str1090, "["); GLOBAL_STR(str1091, ","); GLOBAL_STR(str1092, "]"); GLOBAL_STR(str1093, "{}"); GLOBAL_STR(str1094, "{"); GLOBAL_STR(str1095, ","); GLOBAL_STR(str1096, ":"); GLOBAL_STR(str1097, "}"); GLOBAL_STR(str1098, "{"); GLOBAL_STR(str1099, "\"type\":"); GLOBAL_STR(str1100, "\"data\":"); GLOBAL_STR(str1101, "}"); GLOBAL_STR(str1102, "\"SparseArray\","); GLOBAL_STR(str1103, "{}"); GLOBAL_STR(str1104, "{"); GLOBAL_STR(str1105, ","); GLOBAL_STR(str1106, ":"); GLOBAL_STR(str1107, "}"); GLOBAL_STR(str1108, "\"BashArray\","); GLOBAL_STR(str1109, "{}"); GLOBAL_STR(str1110, "{"); GLOBAL_STR(str1111, ","); GLOBAL_STR(str1112, ":"); GLOBAL_STR(str1113, "}"); GLOBAL_STR(str1114, "\"BashAssoc\","); GLOBAL_STR(str1115, "{}"); GLOBAL_STR(str1116, "{"); GLOBAL_STR(str1117, ","); GLOBAL_STR(str1118, ":"); GLOBAL_STR(str1119, "}"); GLOBAL_STR(str1120, "null"); GLOBAL_STR(str1121, "true"); GLOBAL_STR(str1122, "false"); GLOBAL_STR(str1123, "null"); GLOBAL_STR(str1124, "INFINITY"); GLOBAL_STR(str1125, "-"); GLOBAL_STR(str1126, "null"); GLOBAL_STR(str1127, "NAN"); GLOBAL_STR(str1128, "[ -->%s ]"); GLOBAL_STR(str1129, "Can't encode List%s in object cycle"); GLOBAL_STR(str1130, "{ -->%s }"); GLOBAL_STR(str1131, "Can't encode Dict%s in object cycle"); GLOBAL_STR(str1132, "<%s%s>"); GLOBAL_STR(str1133, "Can't serialize object of type %s"); GLOBAL_STR(str1134, "Single quotes aren't part of JSON; you may want 'json8 read'"); GLOBAL_STR(str1135, "Comments aren't part of JSON; you may want 'json8 read'"); GLOBAL_STR(str1136, "Pure JSON does not accept j\"\" prefix"); GLOBAL_STR(str1137, "Invalid UTF-8 in %s string literal"); GLOBAL_STR(str1138, "J8 Lines can't have unescaped ASCII control chars"); GLOBAL_STR(str1139, "Unexpected EOF while lexing %s string"); GLOBAL_STR(str1140, "Bad backslash escape in %s string"); GLOBAL_STR(str1141, "%s strings can't have unescaped ASCII control chars"); GLOBAL_STR(str1142, "Invalid UTF-8 in %s string literal"); GLOBAL_STR(str1143, "Code point can't be greater than U+10ffff"); GLOBAL_STR(str1144, "\\u{%s} escape is illegal because it's in the surrogate range"); GLOBAL_STR(str1145, "\\y%s escapes not allowed in u'' strings"); GLOBAL_STR(str1146, "J8"); GLOBAL_STR(str1147, "JSON"); GLOBAL_STR(str1148, ""); GLOBAL_STR(str1149, "Expected %s, got %s"); GLOBAL_STR(str1150, "t"); GLOBAL_STR(str1151, "Integer is too big"); GLOBAL_STR(str1152, "Unexpected EOF while parsing %s"); GLOBAL_STR(str1153, "Invalid token while parsing %s: %s"); GLOBAL_STR(str1154, "Got %d bytes of unexpected trailing input"); GLOBAL_STR(str1155, "t"); GLOBAL_STR(str1156, "Unexpected EOF while parsing %s"); GLOBAL_STR(str1157, "Invalid token while parsing %s: %s"); GLOBAL_STR(str1158, "Unexpected trailing input"); GLOBAL_STR(str1159, "%s tok_id %s %d-%d"); GLOBAL_STR(str1160, "Unexpected text after J8 Line (%s)"); GLOBAL_STR(str1161, "Unexpected trailing input in J8 Lines"); GLOBAL_STR(str1162, "\u001b[0;0m"); GLOBAL_STR(str1163, "\u001b[1m"); GLOBAL_STR(str1164, "\u001b[4m"); GLOBAL_STR(str1165, "\u001b[7m"); GLOBAL_STR(str1166, "\u001b[31m"); GLOBAL_STR(str1167, "\u001b[32m"); GLOBAL_STR(str1168, "\u001b[33m"); GLOBAL_STR(str1169, "\u001b[34m"); GLOBAL_STR(str1170, "\u001b[35m"); GLOBAL_STR(str1171, "\u001b[36m"); GLOBAL_STR(str1172, "\u001b[37m"); GLOBAL_STR(str1173, "INFINITY"); GLOBAL_STR(str1174, "-"); GLOBAL_STR(str1175, "NAN"); GLOBAL_STR(str1176, " "); GLOBAL_STR(str1177, "("); GLOBAL_STR(str1178, ")"); GLOBAL_STR(str1179, ""); GLOBAL_STR(str1180, ""); GLOBAL_STR(str1181, ""); GLOBAL_STR(str1182, ""); GLOBAL_STR(str1183, " "); GLOBAL_STR(str1184, " "); GLOBAL_STR(str1185, "[]"); GLOBAL_STR(str1186, "["); GLOBAL_STR(str1187, ","); GLOBAL_STR(str1188, "]"); GLOBAL_STR(str1189, "{}"); GLOBAL_STR(str1190, ": "); GLOBAL_STR(str1191, "{"); GLOBAL_STR(str1192, ","); GLOBAL_STR(str1193, " "); GLOBAL_STR(str1194, "}"); GLOBAL_STR(str1195, "BashArray"); GLOBAL_STR(str1196, "("); GLOBAL_STR(str1197, ")"); GLOBAL_STR(str1198, "null"); GLOBAL_STR(str1199, "("); GLOBAL_STR(str1200, " "); GLOBAL_STR(str1201, ""); GLOBAL_STR(str1202, ")"); GLOBAL_STR(str1203, "BashAssoc"); GLOBAL_STR(str1204, "("); GLOBAL_STR(str1205, ")"); GLOBAL_STR(str1206, "["); GLOBAL_STR(str1207, "]="); GLOBAL_STR(str1208, "("); GLOBAL_STR(str1209, " "); GLOBAL_STR(str1210, ""); GLOBAL_STR(str1211, " "); GLOBAL_STR(str1212, ")"); GLOBAL_STR(str1213, "SparseArray"); GLOBAL_STR(str1214, "("); GLOBAL_STR(str1215, ")"); GLOBAL_STR(str1216, "["); GLOBAL_STR(str1217, "]="); GLOBAL_STR(str1218, "("); GLOBAL_STR(str1219, " "); GLOBAL_STR(str1220, ""); GLOBAL_STR(str1221, " "); GLOBAL_STR(str1222, ")"); GLOBAL_STR(str1223, "null"); GLOBAL_STR(str1224, "true"); GLOBAL_STR(str1225, "false"); GLOBAL_STR(str1226, ".."); GLOBAL_STR(str1227, "("); GLOBAL_STR(str1228, " "); GLOBAL_STR(str1229, ""); GLOBAL_STR(str1230, " "); GLOBAL_STR(str1231, ")"); GLOBAL_STR(str1232, "["); GLOBAL_STR(str1233, "..."); GLOBAL_STR(str1234, "]"); GLOBAL_STR(str1235, "{"); GLOBAL_STR(str1236, "..."); GLOBAL_STR(str1237, "}"); GLOBAL_STR(str1238, "<"); GLOBAL_STR(str1239, ">"); GLOBAL_STR(str1240, "\n"); GLOBAL_STR(str1241, "EOF"); GLOBAL_STR(str1242, "/"); GLOBAL_STR(str1243, "~"); GLOBAL_STR(str1244, " "); GLOBAL_STR(str1245, "\n "); GLOBAL_STR(str1246, "\t"); GLOBAL_STR(str1247, "\t"); GLOBAL_STR(str1248, " "); GLOBAL_STR(str1249, "^"); GLOBAL_STR(str1250, "~"); GLOBAL_STR(str1251, "\n"); GLOBAL_STR(str1252, " "); GLOBAL_STR(str1253, "\n "); GLOBAL_STR(str1254, "\t"); GLOBAL_STR(str1255, "\t"); GLOBAL_STR(str1256, " "); GLOBAL_STR(str1257, "^\n"); GLOBAL_STR(str1258, "%s:%d: Token starting at column %d is too long: %d bytes (%s)\n"); GLOBAL_STR(str1259, "[ interactive ]"); GLOBAL_STR(str1260, "[ headless ]"); GLOBAL_STR(str1261, "[ -c flag ]"); GLOBAL_STR(str1262, "[ stdin%s ]"); GLOBAL_STR(str1263, "[ %s word at ? ]"); GLOBAL_STR(str1264, "[ %s word at line %d of %s ]"); GLOBAL_STR(str1265, "?"); GLOBAL_STR(str1266, "?"); GLOBAL_STR(str1267, "line %d of %s"); GLOBAL_STR(str1268, "[ var %s at %s ]"); GLOBAL_STR(str1269, "line %d of %s"); GLOBAL_STR(str1270, "[ contents of var %r at %s ]"); GLOBAL_STR(str1271, "[ expansion of alias %r ]"); GLOBAL_STR(str1272, "[ %s in %s ]"); GLOBAL_STR(str1273, "-- %s"); GLOBAL_STR(str1274, "[??? no location ???] %s%s\n"); GLOBAL_STR(str1275, "%s:%d\n"); GLOBAL_STR(str1276, "\n"); GLOBAL_STR(str1277, "%s:%d: %s%s\n"); GLOBAL_STR(str1278, "%s:%d: "); GLOBAL_STR(str1279, ""); GLOBAL_STR(str1280, ""); GLOBAL_STR(str1281, ""); GLOBAL_STR(str1282, "errexit PID %d: "); GLOBAL_STR(str1283, "none"); GLOBAL_STR(str1284, "AST not printed."); GLOBAL_STR(str1285, "%8d %s"); GLOBAL_STR(str1286, "%8d total tokens"); GLOBAL_STR(str1287, "%8d unique tokens IDs"); GLOBAL_STR(str1288, "%8d %s"); GLOBAL_STR(str1289, "%8d total tokens"); GLOBAL_STR(str1290, "%8d tokens with LazyVal()"); GLOBAL_STR(str1291, "%8d unique tokens IDs"); GLOBAL_STR(str1292, "%8d %s"); GLOBAL_STR(str1293, "text"); GLOBAL_STR(str1294, "abbrev-text"); GLOBAL_STR(str1295, "html"); GLOBAL_STR(str1296, "abbrev-html"); GLOBAL_STR(str1297, "abbrev-"); GLOBAL_STR(str1298, "\n"); GLOBAL_STR(str1299, "\n"); GLOBAL_STR(str1300, "-"); GLOBAL_STR(str1301, "_"); GLOBAL_STR(str1302, "<_Attributes %s>"); GLOBAL_STR(str1303, ""); GLOBAL_STR(str1304, "got too many arguments"); GLOBAL_STR(str1305, "expected argument to %r"); GLOBAL_STR(str1306, "-"); GLOBAL_STR(str1307, "expected integer after %s, got %r"); GLOBAL_STR(str1308, "-"); GLOBAL_STR(str1309, "got invalid integer for %s: %s"); GLOBAL_STR(str1310, "-"); GLOBAL_STR(str1311, "expected number after %r, got %r"); GLOBAL_STR(str1312, "-"); GLOBAL_STR(str1313, "got invalid float for %s: %s"); GLOBAL_STR(str1314, "-"); GLOBAL_STR(str1315, "got invalid argument %r to %r, expected one of: %s"); GLOBAL_STR(str1316, "-"); GLOBAL_STR(str1317, "|"); GLOBAL_STR(str1318, "0"); GLOBAL_STR(str1319, "F"); GLOBAL_STR(str1320, "false"); GLOBAL_STR(str1321, "False"); GLOBAL_STR(str1322, "1"); GLOBAL_STR(str1323, "T"); GLOBAL_STR(str1324, "true"); GLOBAL_STR(str1325, "Talse"); GLOBAL_STR(str1326, "got invalid argument to boolean flag: %r"); GLOBAL_STR(str1327, "-"); GLOBAL_STR(str1328, "-"); GLOBAL_STR(str1329, "Invalid option %r"); GLOBAL_STR(str1330, "Expected argument for action"); GLOBAL_STR(str1331, "Invalid action name %r"); GLOBAL_STR(str1332, "--"); GLOBAL_STR(str1333, "--"); GLOBAL_STR(str1334, "="); GLOBAL_STR(str1335, "got invalid flag %r"); GLOBAL_STR(str1336, "-"); GLOBAL_STR(str1337, "0"); GLOBAL_STR(str1338, "Z"); GLOBAL_STR(str1339, "-"); GLOBAL_STR(str1340, "doesn't accept flag %s"); GLOBAL_STR(str1341, "-"); GLOBAL_STR(str1342, "+"); GLOBAL_STR(str1343, "+"); GLOBAL_STR(str1344, "doesn't accept option %s"); GLOBAL_STR(str1345, "+"); GLOBAL_STR(str1346, "-"); GLOBAL_STR(str1347, "--"); GLOBAL_STR(str1348, "--"); GLOBAL_STR(str1349, "got invalid flag %r"); GLOBAL_STR(str1350, "-"); GLOBAL_STR(str1351, "+"); GLOBAL_STR(str1352, "got invalid flag %r"); GLOBAL_STR(str1353, "-"); GLOBAL_STR(str1354, "got unexpected typed args"); GLOBAL_STR(str1355, "+"); GLOBAL_STR(str1356, ""); GLOBAL_STR(str1357, ""); GLOBAL_STR(str1358, ""); GLOBAL_STR(str1359, ""); GLOBAL_STR(str1360, ""); GLOBAL_STR(str1361, "for -Wreturn-type in C++"); GLOBAL_STR(str1362, "for -Wreturn-type in C++"); GLOBAL_STR(str1363, ""); GLOBAL_STR(str1364, "> "); GLOBAL_STR(str1365, "Here docs aren't allowed in expressions"); GLOBAL_STR(str1366, "\n"); GLOBAL_STR(str1367, ""); GLOBAL_STR(str1368, "^D"); GLOBAL_STR(str1369, "got unexpected typed args"); GLOBAL_STR(str1370, "Expected at least %d typed args, but only got %d"); GLOBAL_STR(str1371, "Arg %d should be a Str"); GLOBAL_STR(str1372, "Arg %d should be a Bool"); GLOBAL_STR(str1373, "Arg %d should be an Int"); GLOBAL_STR(str1374, "Arg %d should be a Float"); GLOBAL_STR(str1375, "Arg %d should be a BashArray"); GLOBAL_STR(str1376, "Arg %d should be a SparseArray"); GLOBAL_STR(str1377, "Arg %d should be a List"); GLOBAL_STR(str1378, "Arg %d should be a Dict"); GLOBAL_STR(str1379, "Arg %d should be a Place"); GLOBAL_STR(str1380, "Arg %d should be a Match"); GLOBAL_STR(str1381, "Arg %d should be an Eggex"); GLOBAL_STR(str1382, "Arg %d should be IO"); GLOBAL_STR(str1383, "Arg %d should be a Expr"); GLOBAL_STR(str1384, "Arg %d should be a Command"); GLOBAL_STR(str1385, "Arg %d should be a Command"); GLOBAL_STR(str1386, "Arg %d should be a LiteralBlock"); GLOBAL_STR(str1387, "Expected a block arg"); GLOBAL_STR(str1388, "Named arg %r should be a Str"); GLOBAL_STR(str1389, "Named arg %r should be a Bool"); GLOBAL_STR(str1390, "Named arg %r should be a Int"); GLOBAL_STR(str1391, "Named arg %r should be a Float"); GLOBAL_STR(str1392, "Named arg %r should be a List"); GLOBAL_STR(str1393, "Named arg %r should be a Dict"); GLOBAL_STR(str1394, "Expected %d typed args, but got %d"); GLOBAL_STR(str1395, ", "); GLOBAL_STR(str1396, "Got unexpected named args: %s"); GLOBAL_STR(str1397, "The [ operator doesn't apply to this expression"); GLOBAL_STR(str1398, "Expected ]]"); GLOBAL_STR(str1399, "Unexpected trailing word %s"); GLOBAL_STR(str1400, "Invalid argument to unary operator"); GLOBAL_STR(str1401, "Expected ), got %s"); GLOBAL_STR(str1402, "Unexpected token in boolean expression (%s)"); GLOBAL_STR(str1403, ""); GLOBAL_STR(str1404, "Expected %d, got %d"); GLOBAL_STR(str1405, "Step can't be 0"); GLOBAL_STR(str1406, "Invalid step %d for ascending integer range"); GLOBAL_STR(str1407, "Invalid step %d for descending integer range"); GLOBAL_STR(str1408, "Invalid step %d for ascending character range"); GLOBAL_STR(str1409, "Invalid step %d for descending character range"); GLOBAL_STR(str1410, "Mismatched cases in character range"); GLOBAL_STR(str1411, ""); GLOBAL_STR(str1412, "0"); GLOBAL_STR(str1413, "0"); GLOBAL_STR(str1414, ""); GLOBAL_STR(str1415, "Can't append array to string"); GLOBAL_STR(str1416, "Can't append string to array"); GLOBAL_STR(str1417, "Can't append to value of type %s"); GLOBAL_STR(str1418, "Assignment builtin %r not configured"); GLOBAL_STR(str1419, "%s builtin I/O error: %s"); GLOBAL_STR(str1420, "%r "); GLOBAL_STR(str1421, "%s builtin I/O: %s"); GLOBAL_STR(str1422, "%s failed with status %d"); GLOBAL_STR(str1423, "Brace expansion not allowed (try adding quotes)"); GLOBAL_STR(str1424, "Can't redirect to zero files"); GLOBAL_STR(str1425, "Can't redirect to more than one file"); GLOBAL_STR(str1426, "Redirect descriptor can't be empty"); GLOBAL_STR(str1427, "-"); GLOBAL_STR(str1428, "-"); GLOBAL_STR(str1429, "Invalid descriptor %r. Expected D, -, or D- where D is an integer"); GLOBAL_STR(str1430, "\n"); GLOBAL_STR(str1431, "Unknown redirect op"); GLOBAL_STR(str1432, "Unknown redirect type"); GLOBAL_STR(str1433, "for -Wreturn-type in C++"); GLOBAL_STR(str1434, "strict_errexit only allows simple commands in conditionals (got %s). "); GLOBAL_STR(str1435, "strict_errexit only allows a single command. Hint: use 'try'."); GLOBAL_STR(str1436, "strict_errexit only allows simple commands in conditionals (got %s). "); GLOBAL_STR(str1437, "Destructuring assignment expected List"); GLOBAL_STR(str1438, "Got %d places on the left, but %d values on right"); GLOBAL_STR(str1439, "Destructuring assignment expected List"); GLOBAL_STR(str1440, "Got %d places on the left, but %d values on the right"); GLOBAL_STR(str1441, "List index should be Int"); GLOBAL_STR(str1442, "Dict index should be Str"); GLOBAL_STR(str1443, "obj[index] expected List or Dict"); GLOBAL_STR(str1444, ""); GLOBAL_STR(str1445, "ShAssignment builtins don't accept blocks"); GLOBAL_STR(str1446, "|& isn't supported"); GLOBAL_STR(str1447, ""); GLOBAL_STR(str1448, ""); GLOBAL_STR(str1449, "I/O error during = keyword: %s"); GLOBAL_STR(str1450, "I/O error during = keyword: %s"); GLOBAL_STR(str1451, "%r expected a small integer, got %r"); GLOBAL_STR(str1452, "Invalid control flow at top level"); GLOBAL_STR(str1453, "warning: "); GLOBAL_STR(str1454, "List iteration expects at most 2 loop variables"); GLOBAL_STR(str1455, "Range iteration expects at most 2 loop variables"); GLOBAL_STR(str1456, "Stdin iteration expects at most 2 loop variables"); GLOBAL_STR(str1457, "for loop expected List, Dict, Range, or Stdin"); GLOBAL_STR(str1458, "Argv iteration expects at most 2 loop variables"); GLOBAL_STR(str1459, "Function %s was already defined (redefine_proc_func)"); GLOBAL_STR(str1460, "Proc %s was already defined (redefine_proc_func)"); GLOBAL_STR(str1461, "Func %s was already defined (redefine_proc_func)"); GLOBAL_STR(str1462, "failglob: "); GLOBAL_STR(str1463, "I/O error applying redirect: %s"); GLOBAL_STR(str1464, "Fatal error popping redirect: %s"); GLOBAL_STR(str1465, "trap"); GLOBAL_STR(str1466, "failglob: "); GLOBAL_STR(str1467, "optimizing"); GLOBAL_STR(str1468, ""); GLOBAL_STR(str1469, "Simple optimized"); GLOBAL_STR(str1470, "optimizing"); GLOBAL_STR(str1471, ""); GLOBAL_STR(str1472, "Simple optimized"); GLOBAL_STR(str1473, "after opt:"); GLOBAL_STR(str1474, ""); GLOBAL_STR(str1475, "Loop and control flow can't be in different processes"); GLOBAL_STR(str1476, "fatal: "); GLOBAL_STR(str1477, "Unexpected control flow in block"); GLOBAL_STR(str1478, "EXIT"); GLOBAL_STR(str1479, "trap EXIT"); GLOBAL_STR(str1480, "DEBUG"); GLOBAL_STR(str1481, "trap DEBUG"); GLOBAL_STR(str1482, "ERR"); GLOBAL_STR(str1483, "trap ERR"); GLOBAL_STR(str1484, "Unexpected %r (in proc call)"); GLOBAL_STR(str1485, "Attempted to exit from completion hook."); GLOBAL_STR(str1486, "Couldn't find terminator for here doc that starts here"); GLOBAL_STR(str1487, "\t"); GLOBAL_STR(str1488, "Invalid here doc delimiter"); GLOBAL_STR(str1489, "%s != %s"); GLOBAL_STR(str1490, "array LHS"); GLOBAL_STR(str1491, "Environment binding shouldn't look like an array assignment"); GLOBAL_STR(str1492, "Expected = in environment binding, got +="); GLOBAL_STR(str1493, "Environment bindings can't contain array literals"); GLOBAL_STR(str1494, "Commands can't contain array literals"); GLOBAL_STR(str1495, "procs must be defined at the top level"); GLOBAL_STR(str1496, "funcs must be defined at the top level"); GLOBAL_STR(str1497, "shell functions can't be defined inside proc or func"); GLOBAL_STR(str1498, "%r was already declared"); GLOBAL_STR(str1499, "setvar couldn't find matching 'var %s' (OILS-ERR-10)"); GLOBAL_STR(str1500, "Expected word type %s, got %s"); GLOBAL_STR(str1501, "{"); GLOBAL_STR(str1502, "}"); GLOBAL_STR(str1503, "Invalid token after redirect operator"); GLOBAL_STR(str1504, "=word isn't allowed. Hint: add a space after =, or quote it"); GLOBAL_STR(str1505, "Space required before ("); GLOBAL_STR(str1506, "Unexpected left paren (might need a space before it)"); GLOBAL_STR(str1507, "Empty arg list not allowed"); GLOBAL_STR(str1508, " "); GLOBAL_STR(str1509, " "); GLOBAL_STR(str1510, ""); GLOBAL_STR(str1511, "AFTER expansion:"); GLOBAL_STR(str1512, "Unexpected typed args"); GLOBAL_STR(str1513, "Use var/setvar to assign in YSH"); GLOBAL_STR(str1514, "Unexpected typed args"); GLOBAL_STR(str1515, "Control flow shouldn't have redirects"); GLOBAL_STR(str1516, "Control flow shouldn't have environment bindings"); GLOBAL_STR(str1517, "Shell-style returns not allowed here"); GLOBAL_STR(str1518, "Typed return is only allowed inside func"); GLOBAL_STR(str1519, "Typed return expects one argument"); GLOBAL_STR(str1520, "Typed return doesn't take named arguments"); GLOBAL_STR(str1521, "Unexpected typed args"); GLOBAL_STR(str1522, "Unexpected argument to %r"); GLOBAL_STR(str1523, "Invalid word in for loop"); GLOBAL_STR(str1524, "Invalid word after for expression"); GLOBAL_STR(str1525, "Expected loop variable (a constant word)"); GLOBAL_STR(str1526, ","); GLOBAL_STR(str1527, "Loop variables look like x, y (fix spaces)"); GLOBAL_STR(str1528, "Invalid loop variable name %r"); GLOBAL_STR(str1529, "Unexpected word after 3 loop variables"); GLOBAL_STR(str1530, "Expected { after iterable expression"); GLOBAL_STR(str1531, "Reserved syntax"); GLOBAL_STR(str1532, "Reserved syntax"); GLOBAL_STR(str1533, "Surround this word with either parens or quotes (parse_bare_word)"); GLOBAL_STR(str1534, "Expected at most 2 loop variables"); GLOBAL_STR(str1535, "Unexpected word after for loop variable"); GLOBAL_STR(str1536, "Bash for loops aren't allowed (parse_dparen)"); GLOBAL_STR(str1537, "Expected a condition"); GLOBAL_STR(str1538, "Expected case pattern"); GLOBAL_STR(str1539, "Expected ;; or esac"); GLOBAL_STR(str1540, "Expected case pattern"); GLOBAL_STR(str1541, "This is a constant string. You may want a variable like $x (parse_bare_word)"); GLOBAL_STR(str1542, "Expected a word to match against"); GLOBAL_STR(str1543, "Bash [[ not allowed in YSH (parse_dbracket)"); GLOBAL_STR(str1544, "Bash (( not allowed in YSH (parse_dparen, see OILS-ERR-14 for wart)"); GLOBAL_STR(str1545, "Unexpected word while parsing compound command (%s)"); GLOBAL_STR(str1546, "Invalid function name"); GLOBAL_STR(str1547, "Expected ) in function definition"); GLOBAL_STR(str1548, "Invalid KSH-style function name"); GLOBAL_STR(str1549, "Unexpected word when parsing command"); GLOBAL_STR(str1550, "proc is a YSH keyword, but this is OSH."); GLOBAL_STR(str1551, "Expected 'proc' after 'typed'"); GLOBAL_STR(str1552, "typed is a YSH keyword, but this is OSH."); GLOBAL_STR(str1553, "func is a YSH keyword, but this is OSH."); GLOBAL_STR(str1554, "const can't be inside proc or func. Use var instead."); GLOBAL_STR(str1555, "Unexpected right brace"); GLOBAL_STR(str1556, "Unexpected = (Hint: use var/setvar, or quote it)"); GLOBAL_STR(str1557, "Unexpected EOF while parsing command"); GLOBAL_STR(str1558, "Invalid word while parsing command"); GLOBAL_STR(str1559, "Invalid word while parsing command line (%s)"); GLOBAL_STR(str1560, "Invalid word while parsing command list"); GLOBAL_STR(str1561, "Unterminated here doc began here"); GLOBAL_STR(str1562, "\\"); GLOBAL_STR(str1563, "*"); GLOBAL_STR(str1564, "?"); GLOBAL_STR(str1565, "["); GLOBAL_STR(str1566, "]"); GLOBAL_STR(str1567, "\\*?[]-:!()|"); GLOBAL_STR(str1568, "\\?*+{}^$.()|[]"); GLOBAL_STR(str1569, "\\"); GLOBAL_STR(str1570, "Unexpected escaped character %r"); GLOBAL_STR(str1571, ""); GLOBAL_STR(str1572, "Malformed character class; treating as literal"); GLOBAL_STR(str1573, "Got unescaped right bracket"); GLOBAL_STR(str1574, "Got unescaped trailing backslash"); GLOBAL_STR(str1575, ".|^$()+*?[]{}\\"); GLOBAL_STR(str1576, "\\"); GLOBAL_STR(str1577, "\\"); GLOBAL_STR(str1578, "\\["); GLOBAL_STR(str1579, "\\]"); GLOBAL_STR(str1580, "\\\\"); GLOBAL_STR(str1581, "^"); GLOBAL_STR(str1582, "."); GLOBAL_STR(str1583, ".*"); GLOBAL_STR(str1584, "["); GLOBAL_STR(str1585, "^"); GLOBAL_STR(str1586, "\\-"); GLOBAL_STR(str1587, "\\]"); GLOBAL_STR(str1588, "]"); GLOBAL_STR(str1589, "-"); GLOBAL_STR(str1590, "]"); GLOBAL_STR(str1591, ""); GLOBAL_STR(str1592, "GlobToERE()"); GLOBAL_STR(str1593, " %s"); GLOBAL_STR(str1594, "Error expanding glob %r: %s"); GLOBAL_STR(str1595, "-"); GLOBAL_STR(str1596, "history length = %d"); GLOBAL_STR(str1597, "!"); GLOBAL_STR(str1598, "Couldn't parse historical command %r: %s"); GLOBAL_STR(str1599, "^"); GLOBAL_STR(str1600, "No first word in %r"); GLOBAL_STR(str1601, "$"); GLOBAL_STR(str1602, "No last word in %r"); GLOBAL_STR(str1603, "*"); GLOBAL_STR(str1604, "Couldn't find words in %r"); GLOBAL_STR(str1605, "%s: not found"); GLOBAL_STR(str1606, ""); GLOBAL_STR(str1607, "?"); GLOBAL_STR(str1608, "%r found no results"); GLOBAL_STR(str1609, ""); GLOBAL_STR(str1610, "! %s"); GLOBAL_STR(str1611, " "); GLOBAL_STR(str1612, "Unbalanced \\[ and \\]"); GLOBAL_STR(str1613, "$"); GLOBAL_STR(str1614, "#"); GLOBAL_STR(str1615, "$"); GLOBAL_STR(str1616, "hostname"); GLOBAL_STR(str1617, "user"); GLOBAL_STR(str1618, "D"); GLOBAL_STR(str1619, "\\D{} not in promptVal()"); GLOBAL_STR(str1620, "$"); GLOBAL_STR(str1621, "$"); GLOBAL_STR(str1622, "u"); GLOBAL_STR(str1623, "user"); GLOBAL_STR(str1624, "h"); GLOBAL_STR(str1625, "hostname"); GLOBAL_STR(str1626, "."); GLOBAL_STR(str1627, "H"); GLOBAL_STR(str1628, "hostname"); GLOBAL_STR(str1629, "s"); GLOBAL_STR(str1630, "v"); GLOBAL_STR(str1631, "A"); GLOBAL_STR(str1632, "%H:%M"); GLOBAL_STR(str1633, "D"); GLOBAL_STR(str1634, "%X"); GLOBAL_STR(str1635, "w"); GLOBAL_STR(str1636, "PWD"); GLOBAL_STR(str1637, "HOME"); GLOBAL_STR(str1638, "W"); GLOBAL_STR(str1639, "PWD"); GLOBAL_STR(str1640, "PWD is not a string"); GLOBAL_STR(str1641, "\\%s is invalid or unimplemented in $PS1"); GLOBAL_STR(str1642, "\u0001"); GLOBAL_STR(str1643, "\u0002"); GLOBAL_STR(str1644, "D"); GLOBAL_STR(str1645, "$"); GLOBAL_STR(str1646, "\\$"); GLOBAL_STR(str1647, "Invalid token %r %r"); GLOBAL_STR(str1648, ""); GLOBAL_STR(str1649, ""); GLOBAL_STR(str1650, ""); GLOBAL_STR(str1651, "renderPrompt"); GLOBAL_STR(str1652, "renderPrompt() should return Str, got %s"); GLOBAL_STR(str1653, "PS1"); GLOBAL_STR(str1654, "ysh"); GLOBAL_STR(str1655, "ysh "); GLOBAL_STR(str1656, "PROMPT_COMMAND"); GLOBAL_STR(str1657, "Undefined variable %r"); GLOBAL_STR(str1658, "Can't use [] on value of type %s"); GLOBAL_STR(str1659, ""); GLOBAL_STR(str1660, "Can't use [] on value of type %s"); GLOBAL_STR(str1661, ""); GLOBAL_STR(str1662, "Invalid variable name %r (parse_sh_arith is off)"); GLOBAL_STR(str1663, "dynamic LHS"); GLOBAL_STR(str1664, "got invalid LHS expression"); GLOBAL_STR(str1665, "Invalid var ref expression"); GLOBAL_STR(str1666, "0x"); GLOBAL_STR(str1667, "Invalid hex constant %r"); GLOBAL_STR(str1668, "0"); GLOBAL_STR(str1669, "Invalid octal constant %r"); GLOBAL_STR(str1670, "#"); GLOBAL_STR(str1671, "Invalid base for numeric constant %r"); GLOBAL_STR(str1672, "a"); GLOBAL_STR(str1673, "A"); GLOBAL_STR(str1674, "@"); GLOBAL_STR(str1675, "_"); GLOBAL_STR(str1676, "Invalid digits for numeric constant %r"); GLOBAL_STR(str1677, "Digits %r out of range for base %d"); GLOBAL_STR(str1678, "Parse error in recursive arithmetic"); GLOBAL_STR(str1679, "Invalid integer constant %r"); GLOBAL_STR(str1680, "Invalid integer constant %r"); GLOBAL_STR(str1681, "Invalid integer constant %r"); GLOBAL_STR(str1682, "Undefined value in arithmetic context"); GLOBAL_STR(str1683, "Expected a value convertible to integer, got %s"); GLOBAL_STR(str1684, "0"); GLOBAL_STR(str1685, "Undefined variable %r"); GLOBAL_STR(str1686, "Divide by zero"); GLOBAL_STR(str1687, "Divide by zero"); GLOBAL_STR(str1688, "Value of type Str can't be indexed (strict_arith)"); GLOBAL_STR(str1689, "Value of type Undef can't be indexed (strict_arith)"); GLOBAL_STR(str1690, "Value of type %s can't be indexed"); GLOBAL_STR(str1691, "Divide by zero"); GLOBAL_STR(str1692, "Divide by zero"); GLOBAL_STR(str1693, "Exponent can't be a negative number"); GLOBAL_STR(str1694, "Can't left shift by negative number"); GLOBAL_STR(str1695, "Can't right shift by negative number"); GLOBAL_STR(str1696, "for -Wreturn-type in C++"); GLOBAL_STR(str1697, "Assoc array keys must be strings: $x 'x' \"$x\" etc. (OILS-ERR-101)"); GLOBAL_STR(str1698, "Invalid variable name %r"); GLOBAL_STR(str1699, "Invalid LHS to modify"); GLOBAL_STR(str1700, "-v expected name or name[index]"); GLOBAL_STR(str1701, "-v got BashArray and invalid index %r"); GLOBAL_STR(str1702, "-v got invalid negative index %s"); GLOBAL_STR(str1703, "Expected BashArray or BashAssoc"); GLOBAL_STR(str1704, "%s isn't implemented"); GLOBAL_STR(str1705, " \t\n"); GLOBAL_STR(str1706, "IFS"); GLOBAL_STR(str1707, "IFS shouldn't be an array"); GLOBAL_STR(str1708, " \t\n"); GLOBAL_STR(str1709, "IFS"); GLOBAL_STR(str1710, " "); GLOBAL_STR(str1711, ""); GLOBAL_STR(str1712, "IFS shouldn't be an array"); GLOBAL_STR(str1713, "for -Wreturn-type in C++"); GLOBAL_STR(str1714, "SPAN %s"); GLOBAL_STR(str1715, ""); GLOBAL_STR(str1716, "\\"); GLOBAL_STR(str1717, "\\"); GLOBAL_STR(str1718, "Invalid transition from %r with %r"); GLOBAL_STR(str1719, "i %d byte %r ch %s current: %s next: %s %s"); GLOBAL_STR(str1720, "UTF-8 decode: Overlong"); GLOBAL_STR(str1721, "UTF-8 decode: Surrogate range"); GLOBAL_STR(str1722, "UTF-8 decode: Integer too large"); GLOBAL_STR(str1723, "UTF-8 decode: Bad encoding"); GLOBAL_STR(str1724, "UTF-8 decode: Truncated bytes"); GLOBAL_STR(str1725, "%s at offset %d in string of %d bytes"); GLOBAL_STR(str1726, "%s at offset %d in string of %d bytes"); GLOBAL_STR(str1727, "Invalid start of UTF-8 sequence"); GLOBAL_STR(str1728, ""); GLOBAL_STR(str1729, "%s can't have an argument"); GLOBAL_STR(str1730, ""); GLOBAL_STR(str1731, "%s can't have an argument"); GLOBAL_STR(str1732, ""); GLOBAL_STR(str1733, "%s can't have an argument"); GLOBAL_STR(str1734, ""); GLOBAL_STR(str1735, "%s can't have an argument"); GLOBAL_STR(str1736, ""); GLOBAL_STR(str1737, "<_GlobReplacer regex %r r %r>"); GLOBAL_STR(str1738, "(%s)"); GLOBAL_STR(str1739, "Error matching regex %r: %s"); GLOBAL_STR(str1740, "^"); GLOBAL_STR(str1741, "$"); GLOBAL_STR(str1742, "\r"); GLOBAL_STR(str1743, ""); GLOBAL_STR(str1744, "\n"); GLOBAL_STR(str1745, ""); GLOBAL_STR(str1746, " `~!$&*()[]{}\\|;'\"<>?"); GLOBAL_STR(str1747, "Left-hand side of this assignment is invalid"); GLOBAL_STR(str1748, "Token can't be used in prefix position"); GLOBAL_STR(str1749, "Token can't be used in infix position"); GLOBAL_STR(str1750, "Parser expected %s, got %s"); GLOBAL_STR(str1751, "Unexpected end of input"); GLOBAL_STR(str1752, "POSIX shell arithmetic isn't allowed (parse_sh_arith)"); GLOBAL_STR(str1753, ""); GLOBAL_STR(str1754, ""); GLOBAL_STR(str1755, ""); GLOBAL_STR(str1756, ""); GLOBAL_STR(str1757, ""); GLOBAL_STR(str1758, ""); GLOBAL_STR(str1759, ""); GLOBAL_STR(str1760, "EOF"); GLOBAL_STR(str1761, "T %s"); GLOBAL_STR(str1762, "Code point can't be greater than U+10ffff"); GLOBAL_STR(str1763, "%s escape is illegal because it's in the surrogate range"); GLOBAL_STR(str1764, ""); GLOBAL_STR(str1765, " \t"); GLOBAL_STR(str1766, " \n\r\t"); GLOBAL_STR(str1767, "--"); GLOBAL_STR(str1768, ""); GLOBAL_STR(str1769, "--"); GLOBAL_STR(str1770, "BASH_SOURCE"); GLOBAL_STR(str1771, "FUNCNAME"); GLOBAL_STR(str1772, "BASH_LINENO"); GLOBAL_STR(str1773, "0"); GLOBAL_STR(str1774, "0"); GLOBAL_STR(str1775, "Assignment builtin expected NAME=value, got %r"); GLOBAL_STR(str1776, "+"); GLOBAL_STR(str1777, "\\"); GLOBAL_STR(str1778, "\\\\"); GLOBAL_STR(str1779, ""); GLOBAL_STR(str1780, "Can't substitute into word"); GLOBAL_STR(str1781, "for -Wreturn-type in C++"); GLOBAL_STR(str1782, ""); GLOBAL_STR(str1783, "Array slice can't have negative length: %d"); GLOBAL_STR(str1784, "Can't slice associative arrays"); GLOBAL_STR(str1785, "Slice op expected Str or BashArray"); GLOBAL_STR(str1786, "i"); GLOBAL_STR(str1787, "e"); GLOBAL_STR(str1788, "f"); GLOBAL_STR(str1789, "n"); GLOBAL_STR(str1790, "u"); GLOBAL_STR(str1791, "x"); GLOBAL_STR(str1792, "C"); GLOBAL_STR(str1793, ""); GLOBAL_STR(str1794, "HOME"); GLOBAL_STR(str1795, "Error expanding tilde (e.g. invalid user)"); GLOBAL_STR(str1796, "~"); GLOBAL_STR(str1797, "Can't assign to special variable"); GLOBAL_STR(str1798, "???"); GLOBAL_STR(str1799, "Hint: operator %s means a variable can't be %s"); GLOBAL_STR(str1800, "unset"); GLOBAL_STR(str1801, "empty"); GLOBAL_STR(str1802, ": %r"); GLOBAL_STR(str1803, ""); GLOBAL_STR(str1804, "Var %s is %s%s"); GLOBAL_STR(str1805, "warning: "); GLOBAL_STR(str1806, "Length op expected Str, BashArray, BashAssoc"); GLOBAL_STR(str1807, "Keys op expected Str"); GLOBAL_STR(str1808, "Indirect expansion of array"); GLOBAL_STR(str1809, "Indirect expansion of assoc array"); GLOBAL_STR(str1810, "Var Ref op expected Str"); GLOBAL_STR(str1811, "Unary op expected Str, BashArray, BashAssoc"); GLOBAL_STR(str1812, "extended globs not supported in ${x//GLOB/}"); GLOBAL_STR(str1813, ""); GLOBAL_STR(str1814, "Pat Sub op expected Str, BashArray, BashAssoc"); GLOBAL_STR(str1815, "warning: "); GLOBAL_STR(str1816, ""); GLOBAL_STR(str1817, "\u0001"); GLOBAL_STR(str1818, ""); GLOBAL_STR(str1819, "\u0002"); GLOBAL_STR(str1820, ""); GLOBAL_STR(str1821, "Can't use @P on %s"); GLOBAL_STR(str1822, " "); GLOBAL_STR(str1823, "Can't use @Q on %s"); GLOBAL_STR(str1824, "a"); GLOBAL_STR(str1825, "A"); GLOBAL_STR(str1826, "r"); GLOBAL_STR(str1827, "x"); GLOBAL_STR(str1828, "n"); GLOBAL_STR(str1829, ""); GLOBAL_STR(str1830, "Var op %r not implemented"); GLOBAL_STR(str1831, "Can't index string with @"); GLOBAL_STR(str1832, "Can't index string with *"); GLOBAL_STR(str1833, "Can't index string %r with integer"); GLOBAL_STR(str1834, "Index op expected BashArray, BashAssoc"); GLOBAL_STR(str1835, ""); GLOBAL_STR(str1836, ""); GLOBAL_STR(str1837, "$"); GLOBAL_STR(str1838, "Undefined variable %r"); GLOBAL_STR(str1839, "Undefined array %r"); GLOBAL_STR(str1840, "Array %r can't be referred to as a scalar (without @ or *)"); GLOBAL_STR(str1841, "Test operation not allowed with ${!array[@]}"); GLOBAL_STR(str1842, "Not implemented"); GLOBAL_STR(str1843, "Illegal array word part (strict_array)"); GLOBAL_STR(str1844, " "); GLOBAL_STR(str1845, ""); GLOBAL_STR(str1846, "Array %r can't be referred to as a scalar (without @ or *)"); GLOBAL_STR(str1847, "@("); GLOBAL_STR(str1848, "|"); GLOBAL_STR(str1849, ")"); GLOBAL_STR(str1850, "Extended globs and arrays can't appear in the same word"); GLOBAL_STR(str1851, "*"); GLOBAL_STR(str1852, "Unexpected array literal"); GLOBAL_STR(str1853, "Unexpected associative array literal"); GLOBAL_STR(str1854, "("); GLOBAL_STR(str1855, ")"); GLOBAL_STR(str1856, "ZSH var subs are parsed, but can't be evaluated"); GLOBAL_STR(str1857, ""); GLOBAL_STR(str1858, ""); GLOBAL_STR(str1859, ""); GLOBAL_STR(str1860, "Extended glob %r matched no files"); GLOBAL_STR(str1861, "Extended glob not allowed in this word"); GLOBAL_STR(str1862, "This word should yield a string, but it contains an array"); GLOBAL_STR(str1863, " "); GLOBAL_STR(str1864, "extended glob not allowed in this word"); GLOBAL_STR(str1865, ""); GLOBAL_STR(str1866, ""); GLOBAL_STR(str1867, ""); GLOBAL_STR(str1868, ""); GLOBAL_STR(str1869, ""); GLOBAL_STR(str1870, ""); GLOBAL_STR(str1871, ""); GLOBAL_STR(str1872, ""); GLOBAL_STR(str1873, ""); GLOBAL_STR(str1874, ""); GLOBAL_STR(str1875, "Pattern %r matched no files"); GLOBAL_STR(str1876, ""); GLOBAL_STR(str1877, "LHS array not allowed in assignment builtin"); GLOBAL_STR(str1878, "-"); GLOBAL_STR(str1879, "+"); GLOBAL_STR(str1880, "f"); GLOBAL_STR(str1881, "F"); GLOBAL_STR(str1882, "Pattern %r matched no files"); GLOBAL_STR(str1883, ""); GLOBAL_STR(str1884, "Static: part_vals after _EvalWordToParts:"); GLOBAL_STR(str1885, " %s"); GLOBAL_STR(str1886, ""); GLOBAL_STR(str1887, "Static: frames after _MakeWordFrames:"); GLOBAL_STR(str1888, " %s"); GLOBAL_STR(str1889, ""); GLOBAL_STR(str1890, ""); GLOBAL_STR(str1891, "part_vals after _EvalWordToParts:"); GLOBAL_STR(str1892, " %s"); GLOBAL_STR(str1893, ""); GLOBAL_STR(str1894, "frames after _MakeWordFrames:"); GLOBAL_STR(str1895, " %s"); GLOBAL_STR(str1896, "__NO_COMMAND_SUB__"); GLOBAL_STR(str1897, "__NO_PROCESS_SUB__"); GLOBAL_STR(str1898, "Slice length: Add explicit zero, or omit : for N (strict_parse_slice)"); GLOBAL_STR(str1899, "Expected : or } in slice"); GLOBAL_STR(str1900, "Expected } after replacement string, got %s"); GLOBAL_STR(str1901, "Expected ] to close subscript"); GLOBAL_STR(str1902, "Expected } to close ${"); GLOBAL_STR(str1903, "Expected } to close ${"); GLOBAL_STR(str1904, "Expected a constant argument"); GLOBAL_STR(str1905, "Expected } to close ${"); GLOBAL_STR(str1906, "Expected } to close ${"); GLOBAL_STR(str1907, "Unexpected token in ${} (%s)"); GLOBAL_STR(str1908, "VOp2"); GLOBAL_STR(str1909, "Unexpected token in ${} (%s)"); GLOBAL_STR(str1910, "VOp3"); GLOBAL_STR(str1911, "Expected } to close ${"); GLOBAL_STR(str1912, "Expected } after length expression"); GLOBAL_STR(str1913, "TODO: ${.myproc builtin sub}"); GLOBAL_STR(str1914, "Unexpected token in ${}"); GLOBAL_STR(str1915, "\\"); GLOBAL_STR(str1916, "Strings with backslashes should look like r'\\n' or u'\\n' or b'\\n'"); GLOBAL_STR(str1917, "Use \\xhh or \\u{...} instead of octal escapes in YSH strings"); GLOBAL_STR(str1918, "Invalid hex escape in YSH string (must be \\xHH)"); GLOBAL_STR(str1919, "Invalid char escape in C-style string literal (OILS-ERR-11)"); GLOBAL_STR(str1920, "Unexpected EOF in single-quoted string that began here"); GLOBAL_STR(str1921, "%s escapes not allowed in u'' strings"); GLOBAL_STR(str1922, "'"); GLOBAL_STR(str1923, "Unexpected token after YSH single-quoted string"); GLOBAL_STR(str1924, "\""); GLOBAL_STR(str1925, "'"); GLOBAL_STR(str1926, "Unexpected EOF reading extended glob that began here"); GLOBAL_STR(str1927, "Expected ) to close bash regex group"); GLOBAL_STR(str1928, "Expected word after ( opening bash regex group"); GLOBAL_STR(str1929, "Invalid char escape in double quoted string (OILS-ERR-12)"); GLOBAL_STR(str1930, "Literal $ should be quoted like \\$"); GLOBAL_STR(str1931, "Invalid backtick: use $(cmd) or \\` in YSH strings"); GLOBAL_STR(str1932, "Unexpected EOF reading double-quoted string that began here"); GLOBAL_STR(str1933, "Use $(cmd) instead of backticks (parse_backticks)"); GLOBAL_STR(str1934, "Unexpected EOF while looking for closing backtick"); GLOBAL_STR(str1935, ""); GLOBAL_STR(str1936, "backticks"); GLOBAL_STR(str1937, "Invalid proc name %s"); GLOBAL_STR(str1938, "Unexpected token after arithmetic expression (%s != %s)"); GLOBAL_STR(str1939, "Expected second ) to end arith sub"); GLOBAL_STR(str1940, "Expected second ) to end arith statement"); GLOBAL_STR(str1941, "Expected ; here"); GLOBAL_STR(str1942, "Expected ; here"); GLOBAL_STR(str1943, "Expected ) to end for loop expression"); GLOBAL_STR(str1944, "Expected ( after ="); GLOBAL_STR(str1945, "Unexpected token in array literal"); GLOBAL_STR(str1946, "Expected associative array pair"); GLOBAL_STR(str1947, "Invalid char escape in unquoted word (OILS-ERR-13)"); GLOBAL_STR(str1948, "Unexpected token after array literal"); GLOBAL_STR(str1949, "Unexpected token after array splice"); GLOBAL_STR(str1950, "Unexpected token after Expr splice"); GLOBAL_STR(str1951, "TODO: @{.myproc builtin sub}"); GLOBAL_STR(str1952, "Literal @ starting a word must be quoted (parse_at_all)"); GLOBAL_STR(str1953, "/"); GLOBAL_STR(str1954, "Literal $ should be quoted like \\$"); GLOBAL_STR(str1955, "Unexpected token after @()"); GLOBAL_STR(str1956, "Invalid token in bash regex"); GLOBAL_STR(str1957, "Word has unbalanced { }. Maybe add a space or quote it like \\{"); GLOBAL_STR(str1958, "Unexpected parts after triple quoted string"); GLOBAL_STR(str1959, "Unexpected token while parsing arithmetic: %r"); GLOBAL_STR(str1960, "Invalid blank line in multiline mode"); GLOBAL_STR(str1961, "r"); GLOBAL_STR(str1962, "u"); GLOBAL_STR(str1963, "b"); GLOBAL_STR(str1964, "Expected var name"); GLOBAL_STR(str1965, "Expected end of var ref expression"); GLOBAL_STR(str1966, "%s: type=%d, tok=%r"); GLOBAL_STR(str1967, "too much input"); GLOBAL_STR(str1968, "bad input"); GLOBAL_STR(str1969, "&"); GLOBAL_STR(str1970, "&"); GLOBAL_STR(str1971, "<"); GLOBAL_STR(str1972, "<"); GLOBAL_STR(str1973, ">"); GLOBAL_STR(str1974, ">"); GLOBAL_STR(str1975, "."); GLOBAL_STR(str1976, "/"); GLOBAL_STR(str1977, "/"); GLOBAL_STR(str1978, "/"); GLOBAL_STR(str1979, "%s/%s"); GLOBAL_STR(str1980, "/"); GLOBAL_STR(str1981, ""); GLOBAL_STR(str1982, "/"); GLOBAL_STR(str1983, "/"); GLOBAL_STR(str1984, "/"); GLOBAL_STR(str1985, "."); GLOBAL_STR(str1986, ""); GLOBAL_STR(str1987, "/"); GLOBAL_STR(str1988, "//"); GLOBAL_STR(str1989, "///"); GLOBAL_STR(str1990, "/"); GLOBAL_STR(str1991, "."); GLOBAL_STR(str1992, ".."); GLOBAL_STR(str1993, ".."); GLOBAL_STR(str1994, "/"); GLOBAL_STR(str1995, "Empty file with EOF token on invalid line:"); GLOBAL_STR(str1996, "%s"); GLOBAL_STR(str1997, "%5d %-20s %r"); GLOBAL_STR(str1998, "(%d tokens)"); GLOBAL_STR(str1999, "SPID %d = %r"); GLOBAL_STR(str2000, "Invalid here doc delimiter"); GLOBAL_STR(str2001, "<<<"); GLOBAL_STR(str2002, " '''"); GLOBAL_STR(str2003, " \"\"\""); GLOBAL_STR(str2004, "'''\n"); GLOBAL_STR(str2005, "\"\"\"\n"); GLOBAL_STR(str2006, "setvar "); GLOBAL_STR(str2007, "set "); GLOBAL_STR(str2008, "setvar "); GLOBAL_STR(str2009, " = "); GLOBAL_STR(str2010, "''"); GLOBAL_STR(str2011, ","); GLOBAL_STR(str2012, "["); GLOBAL_STR(str2013, "]"); GLOBAL_STR(str2014, "test"); GLOBAL_STR(str2015, "Got [ without ]"); GLOBAL_STR(str2016, "."); GLOBAL_STR(str2017, "source"); GLOBAL_STR(str2018, "do {"); GLOBAL_STR(str2019, "shell {"); GLOBAL_STR(str2020, "}"); GLOBAL_STR(str2021, "proc %s "); GLOBAL_STR(str2022, "{"); GLOBAL_STR(str2023, "}"); GLOBAL_STR(str2024, "for %s in @ARGV "); GLOBAL_STR(str2025, "while !"); GLOBAL_STR(str2026, "} "); GLOBAL_STR(str2027, "{"); GLOBAL_STR(str2028, "} "); GLOBAL_STR(str2029, " {"); GLOBAL_STR(str2030, "}"); GLOBAL_STR(str2031, " ("); GLOBAL_STR(str2032, ") "); GLOBAL_STR(str2033, "{"); GLOBAL_STR(str2034, " {"); GLOBAL_STR(str2035, "}"); GLOBAL_STR(str2036, "}\n"); GLOBAL_STR(str2037, "}"); GLOBAL_STR(str2038, "''"); GLOBAL_STR(str2039, "'"); GLOBAL_STR(str2040, "'"); GLOBAL_STR(str2041, "\""); GLOBAL_STR(str2042, "\""); GLOBAL_STR(str2043, "@ARGV"); GLOBAL_STR(str2044, "\n"); GLOBAL_STR(str2045, "'%s'"); GLOBAL_STR(str2046, "$[join(ARGV)]"); GLOBAL_STR(str2047, "$[join(ARGV)]"); GLOBAL_STR(str2048, "$Argc"); GLOBAL_STR(str2049, "$("); GLOBAL_STR(str2050, ")"); GLOBAL_STR(str2051, "Undefined variable %r"); GLOBAL_STR(str2052, "List index should be Int"); GLOBAL_STR(str2053, "List index out of range: %d"); GLOBAL_STR(str2054, "Dict index should be Str"); GLOBAL_STR(str2055, "Dict entry not found: %r"); GLOBAL_STR(str2056, "obj[index] expected List or Dict"); GLOBAL_STR(str2057, "Expr splice "); GLOBAL_STR(str2058, ""); GLOBAL_STR(str2059, ""); GLOBAL_STR(str2060, ""); GLOBAL_STR(str2061, "Fatal error calling Eggex conversion func %r from this Match accessor"); GLOBAL_STR(str2062, ""); GLOBAL_STR(str2063, "Splice "); GLOBAL_STR(str2064, "Negation expected Int or Float"); GLOBAL_STR(str2065, "~ expected Int"); GLOBAL_STR(str2066, "for C++ compiler"); GLOBAL_STR(str2067, "Divide by zero"); GLOBAL_STR(str2068, "Divide by zero"); GLOBAL_STR(str2069, "Binary operator expected numbers, got %s and %s (OILS-ERR-201)"); GLOBAL_STR(str2070, "Left operand should be Int"); GLOBAL_STR(str2071, "Right operand should be Int"); GLOBAL_STR(str2072, "Divide by zero"); GLOBAL_STR(str2073, "Divisor can't be negative"); GLOBAL_STR(str2074, "Divide by zero"); GLOBAL_STR(str2075, "Exponent can't be a negative number"); GLOBAL_STR(str2076, "Can't right shift by negative number"); GLOBAL_STR(str2077, "Can't left shift by negative number"); GLOBAL_STR(str2078, "Expected Str ++ Str or List ++ List, got %s ++ %s"); GLOBAL_STR(str2079, "Comparison operator expected numbers, got %s and %s"); GLOBAL_STR(str2080, "Mismatched types"); GLOBAL_STR(str2081, "Mismatched types"); GLOBAL_STR(str2082, "LHS must be Str"); GLOBAL_STR(str2083, "RHS must be Str"); GLOBAL_STR(str2084, "LHS must be Str"); GLOBAL_STR(str2085, "RHS must be Str"); GLOBAL_STR(str2086, "~== expects a string on the left"); GLOBAL_STR(str2087, "true"); GLOBAL_STR(str2088, "false"); GLOBAL_STR(str2089, "~== expects Str, Int, or Bool on the right"); GLOBAL_STR(str2090, "Shouldn't have been bound"); GLOBAL_STR(str2091, "Expected a function or method"); GLOBAL_STR(str2092, "index out of range"); GLOBAL_STR(str2093, "Str index expected Int or Slice"); GLOBAL_STR(str2094, "List index out of range: %d"); GLOBAL_STR(str2095, "List index expected Int or Slice"); GLOBAL_STR(str2096, "Dict index expected Str"); GLOBAL_STR(str2097, "Dict entry not found: %r"); GLOBAL_STR(str2098, "Subscript expected Str, List, or Dict"); GLOBAL_STR(str2099, "Dict entry %r not found"); GLOBAL_STR(str2100, "Dot operator expected Dict"); GLOBAL_STR(str2101, "Method %r does not exist on type %s"); GLOBAL_STR(str2102, "Fat arrow => expects method or function"); GLOBAL_STR(str2103, "_EvalExpr()"); GLOBAL_STR(str2104, ""); GLOBAL_STR(str2105, "Slice begin should be Int"); GLOBAL_STR(str2106, "Slice end should be Int"); GLOBAL_STR(str2107, "Range begin should be Int"); GLOBAL_STR(str2108, "Range end should be Int"); GLOBAL_STR(str2109, "Dict keys must be strings"); GLOBAL_STR(str2110, "List comprehension reserved but not implemented"); GLOBAL_STR(str2111, "Generator expression reserved but not implemented"); GLOBAL_STR(str2112, "Lambda reserved but not implemented"); GLOBAL_STR(str2113, "Eggex char class splice expected Str"); GLOBAL_STR(str2114, "Use unquoted char literal for byte %d, which is >= 128 (avoid confusing a set of bytes with a sequence)"); GLOBAL_STR(str2115, "Expected %r to be a func"); GLOBAL_STR(str2116, "Expected eggex flags %r, but got %r"); GLOBAL_STR(str2117, "Eggex splice expected Str or Eggex"); GLOBAL_STR(str2118, "Use === to be exact, or ~== to convert types"); GLOBAL_STR(str2119, ""); GLOBAL_STR(str2120, " (%s)"); GLOBAL_STR(str2121, "Unexpected token in expression mode%s"); GLOBAL_STR(str2122, "Expected ) to close"); GLOBAL_STR(str2123, "Expected ) to close"); GLOBAL_STR(str2124, "Unexpected token in array literal"); GLOBAL_STR(str2125, "Syntax error in expression (near %s)"); GLOBAL_STR(str2126, "d"); GLOBAL_STR(str2127, "d"); GLOBAL_STR(str2128, "w"); GLOBAL_STR(str2129, "w"); GLOBAL_STR(str2130, "word"); GLOBAL_STR(str2131, "w"); GLOBAL_STR(str2132, "s"); GLOBAL_STR(str2133, "s"); GLOBAL_STR(str2134, "alnum"); GLOBAL_STR(str2135, "cntrl"); GLOBAL_STR(str2136, "lower"); GLOBAL_STR(str2137, "space"); GLOBAL_STR(str2138, "alpha"); GLOBAL_STR(str2139, "digit"); GLOBAL_STR(str2140, "print"); GLOBAL_STR(str2141, "upper"); GLOBAL_STR(str2142, "blank"); GLOBAL_STR(str2143, "graph"); GLOBAL_STR(str2144, "punct"); GLOBAL_STR(str2145, "xdigit"); GLOBAL_STR(str2146, "Range start/end shouldn't have more than one character"); GLOBAL_STR(str2147, "Positional arg can't appear in group of named args"); GLOBAL_STR(str2148, "Only 1 subscript is accepted"); GLOBAL_STR(str2149, "Invalid trailing comma"); GLOBAL_STR(str2150, "Places in containers not implemented yet"); GLOBAL_STR(str2151, "Units suffix not implemented"); GLOBAL_STR(str2152, "unix suffix implemented"); GLOBAL_STR(str2153, "In expressions, remove $ and use `%s`, or sometimes \"$%s\""); GLOBAL_STR(str2154, "_"); GLOBAL_STR(str2155, ""); GLOBAL_STR(str2156, "Decimal int constant is too large"); GLOBAL_STR(str2157, "Binary int constant is too large"); GLOBAL_STR(str2158, "Octal int constant is too large"); GLOBAL_STR(str2159, "Hex int constant is too large"); GLOBAL_STR(str2160, "Subscript/Attribute not allowed on this LHS expression"); GLOBAL_STR(str2161, "Can't assign to this attribute expr"); GLOBAL_STR(str2162, "Can't assign to this expression"); GLOBAL_STR(str2163, "Multiple assignment must use ="); GLOBAL_STR(str2164, "ERE"); GLOBAL_STR(str2165, "Invalid block expression argument"); GLOBAL_STR(str2166, "Str"); GLOBAL_STR(str2167, "Ref"); GLOBAL_STR(str2168, "Word params may only have type Str or Ref"); GLOBAL_STR(str2169, "Unexpected type parameters"); GLOBAL_STR(str2170, "Only 1 block param is allowed"); GLOBAL_STR(str2171, "Rest param isn't allowed for blocks"); GLOBAL_STR(str2172, "Command"); GLOBAL_STR(str2173, "Block param must have type Command"); GLOBAL_STR(str2174, "Unexpected type parameters"); GLOBAL_STR(str2175, "Quoted range char can't be empty"); GLOBAL_STR(str2176, "This kind of class literal term isn't implemented"); GLOBAL_STR(str2177, "dot"); GLOBAL_STR(str2178, "Can't negate this symbol"); GLOBAL_STR(str2179, "%r isn't a character class"); GLOBAL_STR(str2180, "Can't negate this symbol"); GLOBAL_STR(str2181, "%r isn't a character class"); GLOBAL_STR(str2182, "%start"); GLOBAL_STR(str2183, "%end"); GLOBAL_STR(str2184, "Unexpected token %r in regex"); GLOBAL_STR(str2185, "Backtracking with !! isn't implemented (requires Python/PCRE)"); GLOBAL_STR(str2186, "Perl-style repetition isn't implemented with libc"); GLOBAL_STR(str2187, ""); GLOBAL_STR(str2188, ""); GLOBAL_STR(str2189, "Default values can't be mutable"); GLOBAL_STR(str2190, "Default val for word param must be Str"); GLOBAL_STR(str2191, "Default value for block should be Command or Null"); GLOBAL_STR(str2192, "Spread expected a List"); GLOBAL_STR(str2193, "Spread expected a Dict"); GLOBAL_STR(str2194, "Can't accept both block expression and block literal"); GLOBAL_STR(str2195, "proc %r wasn't passed word param %r"); GLOBAL_STR(str2196, "proc %r takes %d words, but got %d"); GLOBAL_STR(str2197, "%r wasn't passed typed param %r"); GLOBAL_STR(str2198, "%r takes %d typed args, but got %d"); GLOBAL_STR(str2199, "%r wasn't passed named param %r"); GLOBAL_STR(str2200, "%r takes %d named args, but got %d"); GLOBAL_STR(str2201, "Func %r takes no positional args, but got %d"); GLOBAL_STR(str2202, "Func %r takes no named args, but got %d"); GLOBAL_STR(str2203, "Proc %r takes no word args, but got %d"); GLOBAL_STR(str2204, "Proc %r takes no typed args, but got %d"); GLOBAL_STR(str2205, "Proc %r takes no named args, but got %d"); GLOBAL_STR(str2206, "%r wasn't passed block param %r"); GLOBAL_STR(str2207, "Proc %r doesn't accept a block argument"); GLOBAL_STR(str2208, "IntControlFlow in func"); GLOBAL_STR(str2209, "unreachable"); GLOBAL_STR(str2210, "d"); GLOBAL_STR(str2211, "[:digit:]"); GLOBAL_STR(str2212, "w"); GLOBAL_STR(str2213, "[:alpha:][:digit:]_"); GLOBAL_STR(str2214, "s"); GLOBAL_STR(str2215, "[:space:]"); GLOBAL_STR(str2216, "ERE can't express char code %d"); GLOBAL_STR(str2217, "Can't use char %d as start of range in ERE syntax"); GLOBAL_STR(str2218, "-"); GLOBAL_STR(str2219, "Can't use char %d as end of range in ERE syntax"); GLOBAL_STR(str2220, "Perl classes can't be negated in ERE"); GLOBAL_STR(str2221, "%s"); GLOBAL_STR(str2222, "POSIX classes can't be negated in ERE"); GLOBAL_STR(str2223, "[:%s:]"); GLOBAL_STR(str2224, "."); GLOBAL_STR(str2225, "^"); GLOBAL_STR(str2226, "$"); GLOBAL_STR(str2227, "|"); GLOBAL_STR(str2228, "POSIX EREs don't have groups without capture, so this node needs () around it."); GLOBAL_STR(str2229, "+"); GLOBAL_STR(str2230, "*"); GLOBAL_STR(str2231, "?"); GLOBAL_STR(str2232, "{%s}"); GLOBAL_STR(str2233, "{%s,%s}"); GLOBAL_STR(str2234, "("); GLOBAL_STR(str2235, ")"); GLOBAL_STR(str2236, "("); GLOBAL_STR(str2237, ")"); GLOBAL_STR(str2238, "[^%s]"); GLOBAL_STR(str2239, "[%s]"); GLOBAL_STR(str2240, "[^[:%s:]]"); GLOBAL_STR(str2241, "[[:%s:]]"); GLOBAL_STR(str2242, "["); GLOBAL_STR(str2243, "^"); GLOBAL_STR(str2244, "]"); GLOBAL_STR(str2245, "\\\\"); GLOBAL_STR(str2246, "^"); GLOBAL_STR(str2247, "-"); GLOBAL_STR(str2248, "]"); GLOBAL_STR(str2249, ""); GLOBAL_STR(str2250, "Flag can't be negated"); GLOBAL_STR(str2251, "i"); GLOBAL_STR(str2252, "reg_icase"); GLOBAL_STR(str2253, "i"); GLOBAL_STR(str2254, "reg_newline"); GLOBAL_STR(str2255, "n"); GLOBAL_STR(str2256, "Invalid regex flag %r"); GLOBAL_STR(str2257, ""); GLOBAL_STR(str2258, "i"); GLOBAL_STR(str2259, "n"); GLOBAL_STR(str2260, ""); GLOBAL_STR(str2261, "null"); GLOBAL_STR(str2262, "true"); GLOBAL_STR(str2263, "false"); GLOBAL_STR(str2264, "%sgot a List, which can't be stringified. Perhaps use @ instead of $, or use join()"); GLOBAL_STR(str2265, "%sexpected Null, Bool, Int, Float, Eggex"); GLOBAL_STR(str2266, ""); GLOBAL_STR(str2267, "%sexpected List"); GLOBAL_STR(str2268, "Shouldn't have called this"); GLOBAL_STR(str2269, "I/O error in for <> loop: %s"); GLOBAL_STR(str2270, "\n"); GLOBAL_STR(str2271, "Equality isn't defined on Float values (OILS-ERR-202)"); GLOBAL_STR(str2272, "Can't compare two values of type %s"); GLOBAL_STR(str2273, "LHS of 'in' should be Str"); GLOBAL_STR(str2274, "RHS of 'in' should be Dict"); GLOBAL_STR(str2275, "Expected Str or Regex for RHS of ~"); GLOBAL_STR(str2276, "LHS must be a string"); GLOBAL_STR(str2277, ""); GLOBAL_STR(str2278, "!"); GLOBAL_STR(str2279, "--"); GLOBAL_STR(str2280, "--dir"); GLOBAL_STR(str2281, "--exists"); GLOBAL_STR(str2282, "--file"); GLOBAL_STR(str2283, "--symlink"); GLOBAL_STR(str2284, "Expected unary operator, got %r (2 args)"); GLOBAL_STR(str2285, "-a"); GLOBAL_STR(str2286, "-o"); GLOBAL_STR(str2287, "!"); GLOBAL_STR(str2288, "("); GLOBAL_STR(str2289, ")"); GLOBAL_STR(str2290, "Expected binary operator, got %r (3 args)"); GLOBAL_STR(str2291, "should be invoked as 'test' (simple_test_builtin)"); GLOBAL_STR(str2292, "]"); GLOBAL_STR(str2293, "missing closing ]"); GLOBAL_STR(str2294, "should only have 3 arguments or fewer (simple_test_builtin)"); GLOBAL_STR(str2295, "!"); GLOBAL_STR(str2296, "("); GLOBAL_STR(str2297, ")"); GLOBAL_STR(str2298, "(test) "); GLOBAL_STR(str2299, "(test) "); GLOBAL_STR(str2300, "FixedWordsAction "); GLOBAL_STR(str2301, "DynamicProcDictAction "); GLOBAL_STR(str2302, "DynamicStrDictAction "); GLOBAL_STR(str2303, "function %r not found"); GLOBAL_STR(str2304, "osh warning: complete -C not implemented"); GLOBAL_STR(str2305, "alias"); GLOBAL_STR(str2306, "binding"); GLOBAL_STR(str2307, "vi-delete"); GLOBAL_STR(str2308, "builtin"); GLOBAL_STR(str2309, "command"); GLOBAL_STR(str2310, "directory"); GLOBAL_STR(str2311, "export"); GLOBAL_STR(str2312, "file"); GLOBAL_STR(str2313, "function"); GLOBAL_STR(str2314, "job"); GLOBAL_STR(str2315, "jobs-not-implemented"); GLOBAL_STR(str2316, "keyword"); GLOBAL_STR(str2317, "user"); GLOBAL_STR(str2318, "variable"); GLOBAL_STR(str2319, "helptopic"); GLOBAL_STR(str2320, "setopt"); GLOBAL_STR(str2321, "shopt"); GLOBAL_STR(str2322, "signal"); GLOBAL_STR(str2323, "TODO:signals"); GLOBAL_STR(str2324, "stopped"); GLOBAL_STR(str2325, "jobs-not-implemented"); GLOBAL_STR(str2326, "plusdirs"); GLOBAL_STR(str2327, "default"); GLOBAL_STR(str2328, "dirnames"); GLOBAL_STR(str2329, "No actions defined in completion: %s"); GLOBAL_STR(str2330, " "); GLOBAL_STR(str2331, "!"); GLOBAL_STR(str2332, ""); GLOBAL_STR(str2333, ""); GLOBAL_STR(str2334, "complete"); GLOBAL_STR(str2335, "__fallback"); GLOBAL_STR(str2336, "__first"); GLOBAL_STR(str2337, "expected 1 or more commands"); GLOBAL_STR(str2338, "compgen"); GLOBAL_STR(str2339, ""); GLOBAL_STR(str2340, ""); GLOBAL_STR(str2341, "compgen"); GLOBAL_STR(str2342, ""); GLOBAL_STR(str2343, "compopt"); GLOBAL_STR(str2344, "compopt: not currently executing a completion function"); GLOBAL_STR(str2345, "compadjust"); GLOBAL_STR(str2346, "cur"); GLOBAL_STR(str2347, "prev"); GLOBAL_STR(str2348, "words"); GLOBAL_STR(str2349, "cword"); GLOBAL_STR(str2350, "Invalid output variable name %r"); GLOBAL_STR(str2351, "COMP_ARGV"); GLOBAL_STR(str2352, "COMP_ARGV should be an array"); GLOBAL_STR(str2353, ":"); GLOBAL_STR(str2354, "="); GLOBAL_STR(str2355, "="); GLOBAL_STR(str2356, ""); GLOBAL_STR(str2357, "words"); GLOBAL_STR(str2358, "words"); GLOBAL_STR(str2359, ""); GLOBAL_STR(str2360, "--"); GLOBAL_STR(str2361, "="); GLOBAL_STR(str2362, "="); GLOBAL_STR(str2363, "true"); GLOBAL_STR(str2364, "false"); GLOBAL_STR(str2365, "split"); GLOBAL_STR(str2366, "cur"); GLOBAL_STR(str2367, "cur"); GLOBAL_STR(str2368, "prev"); GLOBAL_STR(str2369, "prev"); GLOBAL_STR(str2370, "cword"); GLOBAL_STR(str2371, "cword"); GLOBAL_STR(str2372, "-E"); GLOBAL_STR(str2373, "-A"); GLOBAL_STR(str2374, "command"); GLOBAL_STR(str2375, "-D"); GLOBAL_STR(str2376, "-A"); GLOBAL_STR(str2377, "file"); GLOBAL_STR(str2378, "foo.py"); GLOBAL_STR(str2379, "foo"); GLOBAL_STR(str2380, "bar.py"); GLOBAL_STR(str2381, "m%d"); GLOBAL_STR(str2382, ""); GLOBAL_STR(str2383, ""); GLOBAL_STR(str2384, "slowc"); GLOBAL_STR(str2385, "vi"); GLOBAL_STR(str2386, "emacs"); GLOBAL_STR(str2387, "set editing-mode "); GLOBAL_STR(str2388, "Warning: Can't set option %r because shell wasn't compiled with GNU readline"); GLOBAL_STR(str2389, "vi"); GLOBAL_STR(str2390, "emacs"); GLOBAL_STR(str2391, "osh"); GLOBAL_STR(str2392, "HISTFILE"); GLOBAL_STR(str2393, "YSH_HISTFILE"); GLOBAL_STR(str2394, ".local/share/oils/%s_history"); GLOBAL_STR(str2395, "main"); GLOBAL_STR(str2396, "%s usage error: %s"); GLOBAL_STR(str2397, "%s-usage"); GLOBAL_STR(str2398, "cat-em"); GLOBAL_STR(str2399, "cat-em: %r not found"); GLOBAL_STR(str2400, "ysh"); GLOBAL_STR(str2401, "ysh:all"); GLOBAL_STR(str2402, "--one-pass-parse requires noexec (-n)"); GLOBAL_STR(str2403, "completion"); GLOBAL_STR(str2404, "history"); GLOBAL_STR(str2405, ""); GLOBAL_STR(str2406, "OILS_DEBUG_DIR"); GLOBAL_STR(str2407, "%d-osh.log"); GLOBAL_STR(str2408, "%s: Couldn't open %r: %s"); GLOBAL_STR(str2409, "OILS_TRACE_DIR"); GLOBAL_STR(str2410, ""); GLOBAL_STR(str2411, "OILS_TRACE_DUMPS"); GLOBAL_STR(str2412, ""); GLOBAL_STR(str2413, "OILS_TRACE_STREAMS"); GLOBAL_STR(str2414, ""); GLOBAL_STR(str2415, "%Y-%m-%d %H:%M:%S"); GLOBAL_STR(str2416, "%s [%d] Oils started with argv %s"); GLOBAL_STR(str2417, "Writing logs to %r"); GLOBAL_STR(str2418, "OILS_HIJACK_SHEBANG"); GLOBAL_STR(str2419, ""); GLOBAL_STR(str2420, "OILS_CRASH_DUMP_DIR"); GLOBAL_STR(str2421, ""); GLOBAL_STR(str2422, "%s: Failed to get home dir from $HOME or getpwuid()"); GLOBAL_STR(str2423, "startsWith"); GLOBAL_STR(str2424, "endsWith"); GLOBAL_STR(str2425, "trim"); GLOBAL_STR(str2426, "trimStart"); GLOBAL_STR(str2427, "trimEnd"); GLOBAL_STR(str2428, "upper"); GLOBAL_STR(str2429, "lower"); GLOBAL_STR(str2430, "find"); GLOBAL_STR(str2431, "replace"); GLOBAL_STR(str2432, "search"); GLOBAL_STR(str2433, "leftMatch"); GLOBAL_STR(str2434, "fullMatch"); GLOBAL_STR(str2435, "get"); GLOBAL_STR(str2436, "erase"); GLOBAL_STR(str2437, "keys"); GLOBAL_STR(str2438, "values"); GLOBAL_STR(str2439, "inc"); GLOBAL_STR(str2440, "accum"); GLOBAL_STR(str2441, "reverse"); GLOBAL_STR(str2442, "append"); GLOBAL_STR(str2443, "extend"); GLOBAL_STR(str2444, "pop"); GLOBAL_STR(str2445, "insert"); GLOBAL_STR(str2446, "remove"); GLOBAL_STR(str2447, "indexOf"); GLOBAL_STR(str2448, "join"); GLOBAL_STR(str2449, "group"); GLOBAL_STR(str2450, "start"); GLOBAL_STR(str2451, "end"); GLOBAL_STR(str2452, "eval"); GLOBAL_STR(str2453, "captureStdout"); GLOBAL_STR(str2454, "promptVal"); GLOBAL_STR(str2455, "time"); GLOBAL_STR(str2456, "strftime"); GLOBAL_STR(str2457, "setValue"); GLOBAL_STR(str2458, "export"); GLOBAL_STR(str2459, "parseHay"); GLOBAL_STR(str2460, "evalHay"); GLOBAL_STR(str2461, "_hay"); GLOBAL_STR(str2462, "len"); GLOBAL_STR(str2463, "type"); GLOBAL_STR(str2464, "_group"); GLOBAL_STR(str2465, "_match"); GLOBAL_STR(str2466, "_start"); GLOBAL_STR(str2467, "_end"); GLOBAL_STR(str2468, "evalExpr"); GLOBAL_STR(str2469, "bool"); GLOBAL_STR(str2470, "int"); GLOBAL_STR(str2471, "float"); GLOBAL_STR(str2472, "str"); GLOBAL_STR(str2473, "list"); GLOBAL_STR(str2474, "dict"); GLOBAL_STR(str2475, "runes"); GLOBAL_STR(str2476, "encodeRunes"); GLOBAL_STR(str2477, "bytes"); GLOBAL_STR(str2478, "encodeBytes"); GLOBAL_STR(str2479, "split"); GLOBAL_STR(str2480, "shSplit"); GLOBAL_STR(str2481, "floatsEqual"); GLOBAL_STR(str2482, "join"); GLOBAL_STR(str2483, "maybe"); GLOBAL_STR(str2484, "glob"); GLOBAL_STR(str2485, "shvarGet"); GLOBAL_STR(str2486, "getVar"); GLOBAL_STR(str2487, "toJson8"); GLOBAL_STR(str2488, "toJson"); GLOBAL_STR(str2489, "fromJson8"); GLOBAL_STR(str2490, "fromJson"); GLOBAL_STR(str2491, "_a2sp"); GLOBAL_STR(str2492, "_opsp"); GLOBAL_STR(str2493, "_io"); GLOBAL_STR(str2494, "_guts"); GLOBAL_STR(str2495, "stdin"); GLOBAL_STR(str2496, " -i"); GLOBAL_STR(str2497, ""); GLOBAL_STR(str2498, "%s: Couldn't open %r: %s"); GLOBAL_STR(str2499, ".config/oils"); GLOBAL_STR(str2500, "%s/%src"); GLOBAL_STR(str2501, "%s/%src.d"); GLOBAL_STR(str2502, "*"); GLOBAL_STR(str2503, "%s warning: --rcfile ignored with --norc"); GLOBAL_STR(str2504, "%s warning: --rcdir ignored with --norc"); GLOBAL_STR(str2505, "nice"); GLOBAL_STR(str2506, "%s warning: --rcfile ignored in non-interactive shell"); GLOBAL_STR(str2507, "%s warning: --rcdir ignored in non-interactive shell"); GLOBAL_STR(str2508, "syntax-tree"); GLOBAL_STR(str2509, "syntax-tree"); GLOBAL_STR(str2510, "syntax-tree"); GLOBAL_STR(str2511, "tokens"); GLOBAL_STR(str2512, "lossless-cat"); GLOBAL_STR(str2513, "fmt"); GLOBAL_STR(str2514, "test"); GLOBAL_STR(str2515, "TODO"); GLOBAL_STR(str2516, "ysh-ify"); GLOBAL_STR(str2517, "deps"); namespace runtime { // forward declare class TraversalState; } // forward declare namespace runtime namespace vm { // forward declare class ControlFlow; class IntControlFlow; class ValueControlFlow; class _Executor; class _AssignBuiltin; class _Builtin; class _Callable; class ctx_Redirect; class ctx_ProcessSub; class ctx_FlushStdout; } // forward declare namespace vm namespace format { // forward declare class ColorOutput; class TextOutput; class HtmlOutput; class AnsiOutput; class _PrettyPrinter; } // forward declare namespace format namespace oils_for_unix { // forward declare } // forward declare namespace oils_for_unix namespace assign_osh { // forward declare class Export; class Readonly; class NewVar; class Unset; class Shift; } // forward declare namespace assign_osh namespace completion_ysh { // forward declare class CompExport; } // forward declare namespace completion_ysh namespace dirs_osh { // forward declare class DirStack; class ctx_CdBlock; class Cd; class Pushd; class Popd; class Dirs; class Pwd; } // forward declare namespace dirs_osh namespace error_ysh { // forward declare class ctx_Try; class Try; class Failed; class Error; class BoolStatus; class Assert; } // forward declare namespace error_ysh namespace func_eggex { // forward declare class _MatchCallable; class MatchFunc; class MatchMethod; } // forward declare namespace func_eggex namespace func_hay { // forward declare class ParseHay; class EvalHay; class BlockAsStr; class HayFunc; } // forward declare namespace func_hay namespace func_misc { // forward declare class Len; class Type; class Join; class Maybe; class Bool; class Int; class Float; class Str_; class List_; class Dict_; class Runes; class EncodeRunes; class Bytes; class EncodeBytes; class Split; class FloatsEqual; class Glob; class Shvar_get; class GetVar; class EvalExpr; class ToJson8; class FromJson8; class BashArrayToSparse; class SparseOp; } // forward declare namespace func_misc namespace hay_ysh { // forward declare class ctx_HayNode; class ctx_HayEval; class HayState; class Hay; class HayNode_; } // forward declare namespace hay_ysh namespace io_osh { // forward declare class Echo; class MapFile; class Cat; } // forward declare namespace io_osh namespace io_ysh { // forward declare class _Builtin; class Pp; class Write; class Fopen; } // forward declare namespace io_ysh namespace json_ysh { // forward declare class Json; } // forward declare namespace json_ysh namespace meta_osh { // forward declare class Eval; class Source; class Command; class Builtin; class RunProc; class Type; } // forward declare namespace meta_osh namespace method_dict { // forward declare class Keys; class Values; class Erase; } // forward declare namespace method_dict namespace method_io { // forward declare class Eval; class CaptureStdout; class PromptVal; class Time; class Strftime; } // forward declare namespace method_io namespace method_list { // forward declare class Append; class Extend; class Pop; class Reverse; class IndexOf; } // forward declare namespace method_list namespace method_other { // forward declare class SetValue; } // forward declare namespace method_other namespace method_str { // forward declare class HasAffix; class Trim; class Upper; class Lower; class SearchMatch; class ctx_EvalReplace; class Replace; } // forward declare namespace method_str namespace misc_osh { // forward declare class Times; class Help; } // forward declare namespace misc_osh namespace module_ysh { // forward declare class IsMain; class SourceGuard; class Use; } // forward declare namespace module_ysh namespace printf_osh { // forward declare class _FormatStringParser; class _PrintfState; class Printf; } // forward declare namespace printf_osh namespace process_osh { // forward declare class Jobs; class Fg; class Bg; class Fork; class ForkWait; class Exec; class Wait; class Umask; class Ulimit; } // forward declare namespace process_osh namespace pure_osh { // forward declare class Boolean; class Alias; class UnAlias; class Set; class Shopt; class Hash; class GetOptsState; class GetOpts; } // forward declare namespace pure_osh namespace pure_ysh { // forward declare class ctx_Shvar; class Shvar; class ctx_Context; class Ctx; class PushRegisters; class Append; } // forward declare namespace pure_ysh namespace read_osh { // forward declare class ctx_TermAttrs; class Read; } // forward declare namespace read_osh namespace readline_osh { // forward declare class Bind; class History; } // forward declare namespace readline_osh namespace trap_osh { // forward declare class TrapState; class Trap; } // forward declare namespace trap_osh namespace alloc { // forward declare class ctx_SourceCode; class Arena; class LosslessArena; class DynamicArena; } // forward declare namespace alloc namespace comp_ui { // forward declare class PromptState; class State; class _IDisplay; class MinimalDisplay; class NiceDisplay; } // forward declare namespace comp_ui namespace completion { // forward declare class _RetryCompletion; class OptionState; class ctx_Completing; class Lookup; class Api; class CompletionAction; class UsersAction; class TestAction; class DynamicWordsAction; class FileSystemAction; class CommandAction; class ShellFuncAction; class VariablesAction; class ExportedVarsAction; class ExternalCommandAction; class _Predicate; class DefaultPredicate; class GlobPredicate; class UserSpec; class RootCompleter; class ReadlineCallback; } // forward declare namespace completion namespace dev { // forward declare class CrashDumper; class ctx_Tracer; class MultiTracer; class Tracer; } // forward declare namespace dev namespace error { // forward declare class _ErrorWithLocation; class Usage; class Parse; class FailGlob; class RedirectEval; class FatalRuntime; class Strict; class ErrExit; class Expr; class Structured; class AssertionErr; class TypeErrVerbose; class TypeErr; class Runtime; class Decode; class Encode; } // forward declare namespace error namespace executor { // forward declare class _ProcessSubFrame; class ShellExecutor; } // forward declare namespace executor namespace main_loop { // forward declare class ctx_Descriptors; class Headless; } // forward declare namespace main_loop namespace num { // forward declare } // forward declare namespace num namespace process { // forward declare class ctx_FileCloser; class _RedirFrame; class _FdFrame; class FdState; class ChildStateChange; class StdinFromPipe; class StdoutToPipe; class SetPgid; class ExternalProgram; class Thunk; class ExternalThunk; class SubProgramThunk; class _HereDocWriterThunk; class Job; class Process; class ctx_Pipe; class Pipeline; class ctx_TerminalControl; class JobControl; class JobList; class Waiter; } // forward declare namespace process namespace state { // forward declare class SearchPath; class ctx_Source; class ctx_DebugTrap; class ctx_ErrTrap; class ctx_Option; class ctx_AssignBuiltin; class ctx_YshExpr; class ctx_ErrExit; class OptHook; class MutableOpts; class _ArgFrame; class ctx_FuncCall; class ctx_ProcCall; class ctx_Temp; class ctx_Registers; class ctx_ThisDir; class Mem; class Procs; } // forward declare namespace state namespace util { // forward declare class UserExit; class HistoryError; class _DebugFile; class NullDebugFile; class DebugFile; } // forward declare namespace util namespace j8 { // forward declare class InstancePrinter; class PrettyPrinter; class LexerDecoder; class _Parser; class Parser; class Nil8Parser; class J8LinesParser; } // forward declare namespace j8 namespace j8_lite { // forward declare } // forward declare namespace j8_lite namespace ansi { // forward declare } // forward declare namespace ansi namespace pp_value { // forward declare class ValueEncoder; } // forward declare namespace pp_value namespace pretty { // forward declare class PrettyPrinter; } // forward declare namespace pretty namespace ui { // forward declare class ctx_Location; class ErrorFormatter; } // forward declare namespace ui namespace args { // forward declare class _Attributes; class Reader; class _Action; class _ArgAction; class SetToInt; class SetToFloat; class SetToString; class SetAttachedBool; class SetToTrue; class SetOption; class SetNamedOption; class SetAction; class SetNamedAction; } // forward declare namespace args namespace flag_util { // forward declare } // forward declare namespace flag_util namespace lexer { // forward declare class LineLexer; class Lexer; } // forward declare namespace lexer namespace location { // forward declare } // forward declare namespace location namespace parse_lib { // forward declare class _BaseTrail; class ctx_Alias; class Trail; class ParseContext; } // forward declare namespace parse_lib namespace reader { // forward declare class _Reader; class DisallowedLineReader; class FileLineReader; class VirtualLineReader; class InteractiveLineReader; } // forward declare namespace reader namespace typed_args { // forward declare class Reader; } // forward declare namespace typed_args namespace arith_parse { // forward declare } // forward declare namespace arith_parse namespace bool_parse { // forward declare class BoolParser; } // forward declare namespace bool_parse namespace braces { // forward declare class _NotARange; class _RangeParser; class _StackFrame; } // forward declare namespace braces namespace cmd_eval { // forward declare class Deps; class ctx_LoopLevel; class CommandEvaluator; } // forward declare namespace cmd_eval namespace cmd_parse { // forward declare class VarChecker; class ctx_VarChecker; class ctx_CmdMode; class CommandParser; } // forward declare namespace cmd_parse namespace glob_ { // forward declare class _GlobParser; class Globber; } // forward declare namespace glob_ namespace history { // forward declare class Evaluator; } // forward declare namespace history namespace prompt { // forward declare class _PromptEvaluatorCache; class Evaluator; class UserPlugin; } // forward declare namespace prompt namespace sh_expr_eval { // forward declare class UnsafeArith; class ArithEvaluator; class BoolEvaluator; } // forward declare namespace sh_expr_eval namespace split { // forward declare class SplitContext; class _BaseSplitter; class IfsSplitter; } // forward declare namespace split namespace string_ops { // forward declare class GlobReplacer; } // forward declare namespace string_ops namespace tdop { // forward declare class TdopParser; } // forward declare namespace tdop namespace word_ { // forward declare class ctx_EmitDocToken; class ctx_Multiline; } // forward declare namespace word_ namespace word_compile { // forward declare } // forward declare namespace word_compile namespace word_eval { // forward declare class StringWordEvaluator; class TildeEvaluator; class AbstractWordEvaluator; class NormalWordEvaluator; class CompletionWordEvaluator; } // forward declare namespace word_eval namespace word_parse { // forward declare class WordEmitter; class WordParser; } // forward declare namespace word_parse namespace parse { // forward declare class ParseError; class _StackItem; class Parser; } // forward declare namespace parse namespace cgi { // forward declare } // forward declare namespace cgi namespace os_path { // forward declare } // forward declare namespace os_path namespace fmt { // forward declare } // forward declare namespace fmt namespace ysh_ify { // forward declare class Cursor; class YshPrinter; } // forward declare namespace ysh_ify namespace expr_eval { // forward declare class ExprEvaluator; class EggexEvaluator; } // forward declare namespace expr_eval namespace expr_parse { // forward declare class ExprParser; class ctx_PNodeAllocator; } // forward declare namespace expr_parse namespace expr_to_ast { // forward declare class Transformer; } // forward declare namespace expr_to_ast namespace func_proc { // forward declare } // forward declare namespace func_proc namespace regex_translate { // forward declare } // forward declare namespace regex_translate namespace val_ops { // forward declare class Iterator; class StdinIterator; class ArrayIter; class RangeIterator; class ListIterator; class DictIterator; } // forward declare namespace val_ops namespace bracket_osh { // forward declare class _StringWordEmitter; class _WordEvaluator; class Test; } // forward declare namespace bracket_osh namespace completion_osh { // forward declare class _FixedWordsAction; class _DynamicProcDictAction; class _DynamicStrDictAction; class SpecBuilder; class Complete; class CompGen; class CompOpt; class CompAdjust; } // forward declare namespace completion_osh namespace shell { // forward declare class ShellOptHook; class ShellFiles; } // forward declare namespace shell namespace runtime { // declare using hnode_asdl::hnode; extern int NO_SPID; hnode::Record* NewRecord(BigStr* node_type); hnode::Leaf* NewLeaf(BigStr* s, hnode_asdl::color_t e_color); class TraversalState { public: TraversalState(); Dict* seen; Dict* ref_count; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(TraversalState)); } DISALLOW_COPY_AND_ASSIGN(TraversalState) }; extern BigStr* TRUE_STR; extern BigStr* FALSE_STR; } // declare namespace runtime namespace vm { // declare using id_kind_asdl::Id; class ControlFlow { public: static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(ControlFlow)); } DISALLOW_COPY_AND_ASSIGN(ControlFlow) }; class IntControlFlow { public: IntControlFlow(syntax_asdl::Token* token, int arg); bool IsReturn(); bool IsBreak(); bool IsContinue(); int StatusCode(); runtime_asdl::flow_t HandleLoop(); syntax_asdl::Token* token; int arg; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(IntControlFlow)); } DISALLOW_COPY_AND_ASSIGN(IntControlFlow) }; class ValueControlFlow { public: ValueControlFlow(syntax_asdl::Token* token, value_asdl::value_t* value); syntax_asdl::Token* token; value_asdl::value_t* value; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(ValueControlFlow)); } DISALLOW_COPY_AND_ASSIGN(ValueControlFlow) }; void InitUnsafeArith(state::Mem* mem, word_eval::NormalWordEvaluator* word_ev, sh_expr_eval::UnsafeArith* unsafe_arith); void InitCircularDeps(sh_expr_eval::ArithEvaluator* arith_ev, sh_expr_eval::BoolEvaluator* bool_ev, expr_eval::ExprEvaluator* expr_ev, word_eval::NormalWordEvaluator* word_ev, cmd_eval::CommandEvaluator* cmd_ev, vm::_Executor* shell_ex, prompt::Evaluator* prompt_ev, value::IO* global_io, dev::Tracer* tracer); class _Executor { public: _Executor(); virtual void CheckCircularDeps(); virtual int RunBuiltin(int builtin_id, cmd_value::Argv* cmd_val); virtual int RunSimpleCommand(cmd_value::Argv* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags); virtual int RunBackgroundJob(syntax_asdl::command_t* node); virtual void RunPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* status_out); virtual int RunSubshell(syntax_asdl::command_t* node); virtual Tuple2 CaptureStdout(syntax_asdl::command_t* node); virtual BigStr* RunCommandSub(syntax_asdl::CommandSub* cs_part); virtual BigStr* RunProcessSub(syntax_asdl::CommandSub* cs_part); virtual void PushRedirects(List* redirects, List* err_out); virtual void PopRedirects(int num_redirects, List* err_out); virtual void PushProcessSub(); virtual void PopProcessSub(runtime_asdl::StatusArray* compound_st); cmd_eval::CommandEvaluator* cmd_ev; static constexpr uint32_t field_mask() { return maskbit(offsetof(_Executor, cmd_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Executor)); } DISALLOW_COPY_AND_ASSIGN(_Executor) }; class _AssignBuiltin { public: _AssignBuiltin(); virtual int Run(cmd_value::Assign* cmd_val); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_AssignBuiltin)); } DISALLOW_COPY_AND_ASSIGN(_AssignBuiltin) }; class _Builtin { public: _Builtin(); virtual int Run(cmd_value::Argv* cmd_val); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Builtin)); } DISALLOW_COPY_AND_ASSIGN(_Builtin) }; class _Callable { public: _Callable(); virtual value_asdl::value_t* Call(typed_args::Reader* args); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Callable)); } DISALLOW_COPY_AND_ASSIGN(_Callable) }; class ctx_Redirect { public: ctx_Redirect(vm::_Executor* shell_ex, int num_redirects, List* err_out); ~ctx_Redirect(); vm::_Executor* shell_ex; List* err_out; int num_redirects; DISALLOW_COPY_AND_ASSIGN(ctx_Redirect) }; class ctx_ProcessSub { public: ctx_ProcessSub(vm::_Executor* shell_ex, runtime_asdl::StatusArray* process_sub_status); ~ctx_ProcessSub(); vm::_Executor* shell_ex; runtime_asdl::StatusArray* process_sub_status; DISALLOW_COPY_AND_ASSIGN(ctx_ProcessSub) }; class ctx_FlushStdout { public: ctx_FlushStdout(List* err_out); ~ctx_FlushStdout(); List* err_out; DISALLOW_COPY_AND_ASSIGN(ctx_FlushStdout) }; } // declare namespace vm namespace format { // declare using hnode_asdl::hnode; format::ColorOutput* DetectConsoleOutput(mylib::Writer* f); class ColorOutput { public: ColorOutput(mylib::Writer* f); virtual format::ColorOutput* NewTempBuffer(); virtual void FileHeader(); virtual void FileFooter(); virtual void PushColor(hnode_asdl::color_t e_color); virtual void PopColor(); virtual void write(BigStr* s); void WriteRaw(Tuple2* raw); int NumChars(); Tuple2 GetRaw(); mylib::Writer* f; int num_chars; static constexpr uint32_t field_mask() { return maskbit(offsetof(ColorOutput, f)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ColorOutput)); } DISALLOW_COPY_AND_ASSIGN(ColorOutput) }; class TextOutput : public ::format::ColorOutput { public: TextOutput(mylib::Writer* f); virtual format::TextOutput* NewTempBuffer(); virtual void PushColor(hnode_asdl::color_t e_color); virtual void PopColor(); static constexpr uint32_t field_mask() { return ::format::ColorOutput::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(TextOutput)); } DISALLOW_COPY_AND_ASSIGN(TextOutput) }; class HtmlOutput : public ::format::ColorOutput { public: HtmlOutput(mylib::Writer* f); virtual format::HtmlOutput* NewTempBuffer(); virtual void FileHeader(); virtual void FileFooter(); virtual void PushColor(hnode_asdl::color_t e_color); virtual void PopColor(); virtual void write(BigStr* s); static constexpr uint32_t field_mask() { return ::format::ColorOutput::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(HtmlOutput)); } DISALLOW_COPY_AND_ASSIGN(HtmlOutput) }; class AnsiOutput : public ::format::ColorOutput { public: AnsiOutput(mylib::Writer* f); virtual format::AnsiOutput* NewTempBuffer(); virtual void PushColor(hnode_asdl::color_t e_color); virtual void PopColor(); static constexpr uint32_t field_mask() { return ::format::ColorOutput::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(AnsiOutput)); } DISALLOW_COPY_AND_ASSIGN(AnsiOutput) }; extern int INDENT; class _PrettyPrinter { public: _PrettyPrinter(int max_col); bool _PrintWrappedArray(List* array, int prefix_len, format::ColorOutput* f, int indent); bool _PrintWholeArray(List* array, int prefix_len, format::ColorOutput* f, int indent); void _PrintRecord(hnode::Record* node, format::ColorOutput* f, int indent); void PrintNode(hnode_asdl::hnode_t* node, format::ColorOutput* f, int indent); int max_col; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(_PrettyPrinter)); } DISALLOW_COPY_AND_ASSIGN(_PrettyPrinter) }; bool _TrySingleLineObj(hnode::Record* node, format::ColorOutput* f, int max_chars); bool _TrySingleLine(hnode_asdl::hnode_t* node, format::ColorOutput* f, int max_chars); void PrintTree(hnode_asdl::hnode_t* node, format::ColorOutput* f); void PrintTree2(hnode_asdl::hnode_t* node, format::ColorOutput* f); } // declare namespace format namespace oils_for_unix { // declare using syntax_asdl::loc; int CaperDispatch(); int AppBundleMain(List* argv); int main(List* argv); } // declare namespace oils_for_unix namespace assign_osh { // declare using runtime_asdl::scope_e; using runtime_asdl::cmd_value; using syntax_asdl::loc; extern int _OTHER; extern int _READONLY; extern int _EXPORT; int _PrintVariables(state::Mem* mem, cmd_value::Assign* cmd_val, args::_Attributes* attrs, bool print_flags, int builtin = _OTHER); void _ExportReadonly(state::Mem* mem, runtime_asdl::AssignArg* pair, int flags); class Export : public ::vm::_AssignBuiltin { public: Export(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Assign* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_AssignBuiltin::field_mask() | maskbit(offsetof(Export, errfmt)) | maskbit(offsetof(Export, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Export)); } DISALLOW_COPY_AND_ASSIGN(Export) }; value_asdl::value_t* _ReconcileTypes(value_asdl::value_t* rval, bool flag_a, bool flag_A, syntax_asdl::word_t* blame_word); class Readonly : public ::vm::_AssignBuiltin { public: Readonly(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Assign* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_AssignBuiltin::field_mask() | maskbit(offsetof(Readonly, errfmt)) | maskbit(offsetof(Readonly, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Readonly)); } DISALLOW_COPY_AND_ASSIGN(Readonly) }; class NewVar : public ::vm::_AssignBuiltin { public: NewVar(state::Mem* mem, state::Procs* procs, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt); int _PrintFuncs(List* names); virtual int Run(cmd_value::Assign* cmd_val); ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; state::Mem* mem; state::Procs* procs; static constexpr uint32_t field_mask() { return ::vm::_AssignBuiltin::field_mask() | maskbit(offsetof(NewVar, errfmt)) | maskbit(offsetof(NewVar, exec_opts)) | maskbit(offsetof(NewVar, mem)) | maskbit(offsetof(NewVar, procs)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(NewVar)); } DISALLOW_COPY_AND_ASSIGN(NewVar) }; class Unset : public ::vm::_Builtin { public: Unset(state::Mem* mem, state::Procs* procs, sh_expr_eval::UnsafeArith* unsafe_arith, ui::ErrorFormatter* errfmt); bool _UnsetVar(BigStr* arg, syntax_asdl::loc_t* location, bool proc_fallback); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; state::Procs* procs; sh_expr_eval::UnsafeArith* unsafe_arith; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Unset, errfmt)) | maskbit(offsetof(Unset, mem)) | maskbit(offsetof(Unset, procs)) | maskbit(offsetof(Unset, unsafe_arith)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Unset)); } DISALLOW_COPY_AND_ASSIGN(Unset) }; class Shift : public ::vm::_Builtin { public: Shift(state::Mem* mem); virtual int Run(cmd_value::Argv* cmd_val); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Shift, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Shift)); } DISALLOW_COPY_AND_ASSIGN(Shift) }; } // declare namespace assign_osh namespace completion_ysh { // declare using syntax_asdl::loc; class CompExport : public ::vm::_Builtin { public: CompExport(completion::RootCompleter* root_comp); virtual int Run(cmd_value::Argv* cmd_val); completion::RootCompleter* root_comp; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(CompExport, root_comp)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompExport)); } DISALLOW_COPY_AND_ASSIGN(CompExport) }; } // declare namespace completion_ysh namespace dirs_osh { // declare using runtime_asdl::cmd_value; class DirStack { public: DirStack(); void Reset(); void Replace(BigStr* d); void Push(BigStr* entry); BigStr* Pop(); List* Iter(); List* stack; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(DirStack)); } DISALLOW_COPY_AND_ASSIGN(DirStack) }; class ctx_CdBlock { public: ctx_CdBlock(dirs_osh::DirStack* dir_stack, BigStr* dest_dir, state::Mem* mem, ui::ErrorFormatter* errfmt, List* out_errs); ~ctx_CdBlock(); dirs_osh::DirStack* dir_stack; state::Mem* mem; ui::ErrorFormatter* errfmt; List* out_errs; DISALLOW_COPY_AND_ASSIGN(ctx_CdBlock) }; class Cd : public ::vm::_Builtin { public: Cd(state::Mem* mem, dirs_osh::DirStack* dir_stack, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; dirs_osh::DirStack* dir_stack; ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Cd, cmd_ev)) | maskbit(offsetof(Cd, dir_stack)) | maskbit(offsetof(Cd, errfmt)) | maskbit(offsetof(Cd, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Cd)); } DISALLOW_COPY_AND_ASSIGN(Cd) }; extern int WITH_LINE_NUMBERS; extern int WITHOUT_LINE_NUMBERS; extern int SINGLE_LINE; void _PrintDirStack(dirs_osh::DirStack* dir_stack, int style, BigStr* home_dir); class Pushd : public ::vm::_Builtin { public: Pushd(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); dirs_osh::DirStack* dir_stack; ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Pushd, dir_stack)) | maskbit(offsetof(Pushd, errfmt)) | maskbit(offsetof(Pushd, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Pushd)); } DISALLOW_COPY_AND_ASSIGN(Pushd) }; bool _PopDirStack(BigStr* label, state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt, List* out_errs); class Popd : public ::vm::_Builtin { public: Popd(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); dirs_osh::DirStack* dir_stack; ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Popd, dir_stack)) | maskbit(offsetof(Popd, errfmt)) | maskbit(offsetof(Popd, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Popd)); } DISALLOW_COPY_AND_ASSIGN(Popd) }; class Dirs : public ::vm::_Builtin { public: Dirs(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); dirs_osh::DirStack* dir_stack; ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Dirs, dir_stack)) | maskbit(offsetof(Dirs, errfmt)) | maskbit(offsetof(Dirs, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Dirs)); } DISALLOW_COPY_AND_ASSIGN(Dirs) }; class Pwd : public ::vm::_Builtin { public: Pwd(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Pwd, errfmt)) | maskbit(offsetof(Pwd, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Pwd)); } DISALLOW_COPY_AND_ASSIGN(Pwd) }; } // declare namespace dirs_osh namespace error_ysh { // declare using id_kind_asdl::Id; using runtime_asdl::cmd_value; using syntax_asdl::loc; class ctx_Try { public: ctx_Try(state::MutableOpts* mutable_opts); ~ctx_Try(); state::MutableOpts* mutable_opts; DISALLOW_COPY_AND_ASSIGN(ctx_Try) }; class Try : public ::vm::_Builtin { public: Try(state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev, vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; state::Mem* mem; state::MutableOpts* mutable_opts; vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Try, cmd_ev)) | maskbit(offsetof(Try, errfmt)) | maskbit(offsetof(Try, mem)) | maskbit(offsetof(Try, mutable_opts)) | maskbit(offsetof(Try, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Try)); } DISALLOW_COPY_AND_ASSIGN(Try) }; class Failed : public ::vm::_Builtin { public: Failed(state::Mem* mem); virtual int Run(cmd_value::Argv* cmd_val); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Failed, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Failed)); } DISALLOW_COPY_AND_ASSIGN(Failed) }; class Error : public ::vm::_Builtin { public: Error(); virtual int Run(cmd_value::Argv* cmd_val); static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Error)); } DISALLOW_COPY_AND_ASSIGN(Error) }; class BoolStatus : public ::vm::_Builtin { public: BoolStatus(vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(BoolStatus, errfmt)) | maskbit(offsetof(BoolStatus, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(BoolStatus)); } DISALLOW_COPY_AND_ASSIGN(BoolStatus) }; class Assert : public ::vm::_Builtin { public: Assert(expr_eval::ExprEvaluator* expr_ev, ui::ErrorFormatter* errfmt); void _AssertComparison(expr::Compare* exp, syntax_asdl::loc_t* blame_loc); void _AssertExpression(value::Expr* val, syntax_asdl::loc_t* blame_loc); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; expr_eval::ExprEvaluator* expr_ev; mylib::Writer* f; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Assert, errfmt)) | maskbit(offsetof(Assert, expr_ev)) | maskbit(offsetof(Assert, f)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Assert)); } DISALLOW_COPY_AND_ASSIGN(Assert) }; } // declare namespace error_ysh namespace func_eggex { // declare extern int G; extern int S; extern int E; class _MatchCallable : public ::vm::_Callable { public: _MatchCallable(int to_return, expr_eval::ExprEvaluator* expr_ev); value_asdl::value_t* _ReturnValue(value_asdl::RegexMatch* match, int group_index, syntax_asdl::loc_t* blame_loc); value_asdl::value_t* _Call(value_asdl::RegexMatch* match, value_asdl::value_t* group_arg, syntax_asdl::loc_t* blame_loc); expr_eval::ExprEvaluator* expr_ev; int to_return; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(_MatchCallable, expr_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_MatchCallable)); } DISALLOW_COPY_AND_ASSIGN(_MatchCallable) }; int _GetGroupIndex(value_asdl::value_t* group, value_asdl::eggex_ops_t* ops, syntax_asdl::loc_t* blame_loc); class MatchFunc : public ::func_eggex::_MatchCallable { public: MatchFunc(int to_return, expr_eval::ExprEvaluator* expr_ev, state::Mem* mem); value_asdl::value_t* Call(typed_args::Reader* rd); state::Mem* mem; static constexpr uint32_t field_mask() { return ::func_eggex::_MatchCallable::field_mask() | maskbit(offsetof(MatchFunc, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(MatchFunc)); } DISALLOW_COPY_AND_ASSIGN(MatchFunc) }; class MatchMethod : public ::func_eggex::_MatchCallable { public: MatchMethod(int to_return, expr_eval::ExprEvaluator* expr_ev); value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::func_eggex::_MatchCallable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(MatchMethod)); } DISALLOW_COPY_AND_ASSIGN(MatchMethod) }; } // declare namespace func_eggex namespace func_hay { // declare using syntax_asdl::loc; class ParseHay : public ::vm::_Callable { public: ParseHay(process::FdState* fd_state, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt); value_asdl::value_t* _Call(BigStr* path); virtual value_asdl::value_t* Call(typed_args::Reader* rd); ui::ErrorFormatter* errfmt; process::FdState* fd_state; parse_lib::ParseContext* parse_ctx; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(ParseHay, errfmt)) | maskbit(offsetof(ParseHay, fd_state)) | maskbit(offsetof(ParseHay, parse_ctx)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ParseHay)); } DISALLOW_COPY_AND_ASSIGN(ParseHay) }; class EvalHay : public ::vm::_Callable { public: EvalHay(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); Dict* _Call(syntax_asdl::command_t* cmd); virtual value_asdl::value_t* Call(typed_args::Reader* rd); cmd_eval::CommandEvaluator* cmd_ev; hay_ysh::HayState* hay_state; state::Mem* mem; state::MutableOpts* mutable_opts; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(EvalHay, cmd_ev)) | maskbit(offsetof(EvalHay, hay_state)) | maskbit(offsetof(EvalHay, mem)) | maskbit(offsetof(EvalHay, mutable_opts)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(EvalHay)); } DISALLOW_COPY_AND_ASSIGN(EvalHay) }; class BlockAsStr : public ::vm::_Callable { public: BlockAsStr(alloc::Arena* arena); value_asdl::value_t* _Call(value_asdl::value_t* block); virtual value_asdl::value_t* Call(typed_args::Reader* rd); alloc::Arena* arena; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(BlockAsStr, arena)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(BlockAsStr)); } DISALLOW_COPY_AND_ASSIGN(BlockAsStr) }; class HayFunc : public ::vm::_Callable { public: HayFunc(hay_ysh::HayState* hay_state); Dict* _Call(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); hay_ysh::HayState* hay_state; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(HayFunc, hay_state)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(HayFunc)); } DISALLOW_COPY_AND_ASSIGN(HayFunc) }; } // declare namespace func_hay namespace func_misc { // declare using runtime_asdl::scope_e; class Len : public ::vm::_Callable { public: Len(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Len)); } DISALLOW_COPY_AND_ASSIGN(Len) }; class Type : public ::vm::_Callable { public: Type(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Type)); } DISALLOW_COPY_AND_ASSIGN(Type) }; class Join : public ::vm::_Callable { public: Join(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Join)); } DISALLOW_COPY_AND_ASSIGN(Join) }; class Maybe : public ::vm::_Callable { public: Maybe(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Maybe)); } DISALLOW_COPY_AND_ASSIGN(Maybe) }; class Bool : public ::vm::_Callable { public: Bool(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Bool)); } DISALLOW_COPY_AND_ASSIGN(Bool) }; class Int : public ::vm::_Callable { public: Int(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Int)); } DISALLOW_COPY_AND_ASSIGN(Int) }; class Float : public ::vm::_Callable { public: Float(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Float)); } DISALLOW_COPY_AND_ASSIGN(Float) }; class Str_ : public ::vm::_Callable { public: Str_(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Str_)); } DISALLOW_COPY_AND_ASSIGN(Str_) }; class List_ : public ::vm::_Callable { public: List_(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(List_)); } DISALLOW_COPY_AND_ASSIGN(List_) }; class Dict_ : public ::vm::_Callable { public: Dict_(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Dict_)); } DISALLOW_COPY_AND_ASSIGN(Dict_) }; class Runes : public ::vm::_Callable { public: Runes(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Runes)); } DISALLOW_COPY_AND_ASSIGN(Runes) }; class EncodeRunes : public ::vm::_Callable { public: EncodeRunes(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(EncodeRunes)); } DISALLOW_COPY_AND_ASSIGN(EncodeRunes) }; class Bytes : public ::vm::_Callable { public: Bytes(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Bytes)); } DISALLOW_COPY_AND_ASSIGN(Bytes) }; class EncodeBytes : public ::vm::_Callable { public: EncodeBytes(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(EncodeBytes)); } DISALLOW_COPY_AND_ASSIGN(EncodeBytes) }; class Split : public ::vm::_Callable { public: Split(split::SplitContext* splitter); virtual value_asdl::value_t* Call(typed_args::Reader* rd); split::SplitContext* splitter; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(Split, splitter)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Split)); } DISALLOW_COPY_AND_ASSIGN(Split) }; class FloatsEqual : public ::vm::_Callable { public: FloatsEqual(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FloatsEqual)); } DISALLOW_COPY_AND_ASSIGN(FloatsEqual) }; class Glob : public ::vm::_Callable { public: Glob(glob_::Globber* globber); virtual value_asdl::value_t* Call(typed_args::Reader* rd); glob_::Globber* globber; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(Glob, globber)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Glob)); } DISALLOW_COPY_AND_ASSIGN(Glob) }; class Shvar_get : public ::vm::_Callable { public: Shvar_get(state::Mem* mem); virtual value_asdl::value_t* Call(typed_args::Reader* rd); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(Shvar_get, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Shvar_get)); } DISALLOW_COPY_AND_ASSIGN(Shvar_get) }; class GetVar : public ::vm::_Callable { public: GetVar(state::Mem* mem); virtual value_asdl::value_t* Call(typed_args::Reader* rd); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(GetVar, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(GetVar)); } DISALLOW_COPY_AND_ASSIGN(GetVar) }; class EvalExpr : public ::vm::_Callable { public: EvalExpr(expr_eval::ExprEvaluator* expr_ev); virtual value_asdl::value_t* Call(typed_args::Reader* rd); expr_eval::ExprEvaluator* expr_ev; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(EvalExpr, expr_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(EvalExpr)); } DISALLOW_COPY_AND_ASSIGN(EvalExpr) }; class ToJson8 : public ::vm::_Callable { public: ToJson8(bool is_j8); virtual value_asdl::value_t* Call(typed_args::Reader* rd); bool is_j8; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ToJson8)); } DISALLOW_COPY_AND_ASSIGN(ToJson8) }; class FromJson8 : public ::vm::_Callable { public: FromJson8(bool is_j8); virtual value_asdl::value_t* Call(typed_args::Reader* rd); bool is_j8; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FromJson8)); } DISALLOW_COPY_AND_ASSIGN(FromJson8) }; class BashArrayToSparse : public ::vm::_Callable { public: BashArrayToSparse(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(BashArrayToSparse)); } DISALLOW_COPY_AND_ASSIGN(BashArrayToSparse) }; class SparseOp : public ::vm::_Callable { public: SparseOp(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SparseOp)); } DISALLOW_COPY_AND_ASSIGN(SparseOp) }; } // declare namespace func_misc namespace hay_ysh { // declare using runtime_asdl::scope_e; using syntax_asdl::loc; extern BigStr* _HAY_ACTION_ERROR; class ctx_HayNode { public: ctx_HayNode(hay_ysh::HayState* hay_state, BigStr* hay_name); ~ctx_HayNode(); hay_ysh::HayState* hay_state; DISALLOW_COPY_AND_ASSIGN(ctx_HayNode) }; class ctx_HayEval { public: ctx_HayEval(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem); ~ctx_HayEval(); hay_ysh::HayState* hay_state; state::MutableOpts* mutable_opts; state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_HayEval) }; class HayState { public: HayState(); Dict* _MakeOutputNode(); void PushEval(); void PopEval(); void AppendResult(Dict* d); Dict* Result(); Dict* HayRegister(); bool Resolve(BigStr* first_word); void DefinePath(List* path); void Reset(); void Push(BigStr* hay_name); void Pop(); runtime_asdl::HayNode* root_defs; runtime_asdl::HayNode* cur_defs; List* def_stack; List*>* result_stack; Dict* output; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(5, sizeof(HayState)); } DISALLOW_COPY_AND_ASSIGN(HayState) }; class Hay : public ::vm::_Builtin { public: Hay(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; hay_ysh::HayState* hay_state; state::Mem* mem; state::MutableOpts* mutable_opts; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Hay, cmd_ev)) | maskbit(offsetof(Hay, hay_state)) | maskbit(offsetof(Hay, mem)) | maskbit(offsetof(Hay, mutable_opts)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Hay)); } DISALLOW_COPY_AND_ASSIGN(Hay) }; class HayNode_ : public ::vm::_Builtin { public: HayNode_(hay_ysh::HayState* hay_state, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); alloc::Arena* arena; cmd_eval::CommandEvaluator* cmd_ev; hay_ysh::HayState* hay_state; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(HayNode_, arena)) | maskbit(offsetof(HayNode_, cmd_ev)) | maskbit(offsetof(HayNode_, hay_state)) | maskbit(offsetof(HayNode_, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(HayNode_)); } DISALLOW_COPY_AND_ASSIGN(HayNode_) }; } // declare namespace hay_ysh namespace io_osh { // declare using id_kind_asdl::Id; class Echo : public ::vm::_Builtin { public: Echo(optview::Exec* exec_opts); arg_types::echo* _SimpleFlag(); virtual int Run(cmd_value::Argv* cmd_val); optview::Exec* exec_opts; mylib::Writer* f; arg_types::echo* simple_flag; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Echo, exec_opts)) | maskbit(offsetof(Echo, f)) | maskbit(offsetof(Echo, simple_flag)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Echo)); } DISALLOW_COPY_AND_ASSIGN(Echo) }; class MapFile : public ::vm::_Builtin { public: MapFile(state::Mem* mem, ui::ErrorFormatter* errfmt, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(MapFile, cmd_ev)) | maskbit(offsetof(MapFile, errfmt)) | maskbit(offsetof(MapFile, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(MapFile)); } DISALLOW_COPY_AND_ASSIGN(MapFile) }; class Cat : public ::vm::_Builtin { public: Cat(); virtual int Run(cmd_value::Argv* cmd_val); static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Cat)); } DISALLOW_COPY_AND_ASSIGN(Cat) }; } // declare namespace io_osh namespace io_ysh { // declare using runtime_asdl::cmd_value; using syntax_asdl::loc; class _Builtin : public ::vm::_Builtin { public: _Builtin(state::Mem* mem, ui::ErrorFormatter* errfmt); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(_Builtin, errfmt)) | maskbit(offsetof(_Builtin, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Builtin)); } DISALLOW_COPY_AND_ASSIGN(_Builtin) }; class Pp : public ::io_ysh::_Builtin { public: Pp(expr_eval::ExprEvaluator* expr_ev, state::Mem* mem, ui::ErrorFormatter* errfmt, state::Procs* procs, alloc::Arena* arena); int _PrettyPrint(cmd_value::Argv* cmd_val); int Run(cmd_value::Argv* cmd_val); alloc::Arena* arena; expr_eval::ExprEvaluator* expr_ev; state::Procs* procs; mylib::Writer* stdout_; static constexpr uint32_t field_mask() { return ::io_ysh::_Builtin::field_mask() | maskbit(offsetof(Pp, arena)) | maskbit(offsetof(Pp, expr_ev)) | maskbit(offsetof(Pp, procs)) | maskbit(offsetof(Pp, stdout_)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Pp)); } DISALLOW_COPY_AND_ASSIGN(Pp) }; class Write : public ::io_ysh::_Builtin { public: Write(state::Mem* mem, ui::ErrorFormatter* errfmt); int Run(cmd_value::Argv* cmd_val); mylib::Writer* stdout_; static constexpr uint32_t field_mask() { return ::io_ysh::_Builtin::field_mask() | maskbit(offsetof(Write, stdout_)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Write)); } DISALLOW_COPY_AND_ASSIGN(Write) }; class Fopen : public ::vm::_Builtin { public: Fopen(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Fopen, cmd_ev)) | maskbit(offsetof(Fopen, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Fopen)); } DISALLOW_COPY_AND_ASSIGN(Fopen) }; } // declare namespace io_ysh namespace json_ysh { // declare using runtime_asdl::cmd_value; using syntax_asdl::loc; extern BigStr* _JSON_ACTION_ERROR; class Json : public ::vm::_Builtin { public: Json(state::Mem* mem, ui::ErrorFormatter* errfmt, bool is_j8); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; bool is_j8; state::Mem* mem; BigStr* name; mylib::Writer* stdout_; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Json, errfmt)) | maskbit(offsetof(Json, mem)) | maskbit(offsetof(Json, name)) | maskbit(offsetof(Json, stdout_)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Json)); } DISALLOW_COPY_AND_ASSIGN(Json) }; } // declare namespace json_ysh namespace meta_osh { // declare using runtime_asdl::cmd_value; using syntax_asdl::loc; class Eval : public ::vm::_Builtin { public: Eval(parse_lib::ParseContext* parse_ctx, optview::Exec* exec_opts, cmd_eval::CommandEvaluator* cmd_ev, dev::Tracer* tracer, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); alloc::Arena* arena; cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; parse_lib::ParseContext* parse_ctx; dev::Tracer* tracer; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Eval, arena)) | maskbit(offsetof(Eval, cmd_ev)) | maskbit(offsetof(Eval, errfmt)) | maskbit(offsetof(Eval, exec_opts)) | maskbit(offsetof(Eval, parse_ctx)) | maskbit(offsetof(Eval, tracer)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Eval)); } DISALLOW_COPY_AND_ASSIGN(Eval) }; class Source : public ::vm::_Builtin { public: Source(parse_lib::ParseContext* parse_ctx, state::SearchPath* search_path, cmd_eval::CommandEvaluator* cmd_ev, process::FdState* fd_state, dev::Tracer* tracer, ui::ErrorFormatter* errfmt, pyutil::_ResourceLoader* loader); virtual int Run(cmd_value::Argv* cmd_val); int _Exec(cmd_value::Argv* cmd_val, args::Reader* arg_r, BigStr* path, cmd_parse::CommandParser* c_parser); alloc::Arena* arena; cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; process::FdState* fd_state; pyutil::_ResourceLoader* loader; state::Mem* mem; parse_lib::ParseContext* parse_ctx; state::SearchPath* search_path; dev::Tracer* tracer; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Source, arena)) | maskbit(offsetof(Source, cmd_ev)) | maskbit(offsetof(Source, errfmt)) | maskbit(offsetof(Source, fd_state)) | maskbit(offsetof(Source, loader)) | maskbit(offsetof(Source, mem)) | maskbit(offsetof(Source, parse_ctx)) | maskbit(offsetof(Source, search_path)) | maskbit(offsetof(Source, tracer)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Source)); } DISALLOW_COPY_AND_ASSIGN(Source) }; void _PrintFreeForm(Tuple3* row); void _PrintEntry(arg_types::type* arg, Tuple3* row); class Command : public ::vm::_Builtin { public: Command(vm::_Executor* shell_ex, state::Procs* funcs, Dict* aliases, state::SearchPath* search_path); virtual int Run(cmd_value::Argv* cmd_val); Dict* aliases; state::Procs* funcs; state::SearchPath* search_path; vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Command, aliases)) | maskbit(offsetof(Command, funcs)) | maskbit(offsetof(Command, search_path)) | maskbit(offsetof(Command, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Command)); } DISALLOW_COPY_AND_ASSIGN(Command) }; cmd_value::Argv* _ShiftArgv(cmd_value::Argv* cmd_val); class Builtin : public ::vm::_Builtin { public: Builtin(vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Builtin, errfmt)) | maskbit(offsetof(Builtin, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Builtin)); } DISALLOW_COPY_AND_ASSIGN(Builtin) }; class RunProc : public ::vm::_Builtin { public: RunProc(vm::_Executor* shell_ex, state::Procs* procs, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Procs* procs; vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(RunProc, errfmt)) | maskbit(offsetof(RunProc, procs)) | maskbit(offsetof(RunProc, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(RunProc)); } DISALLOW_COPY_AND_ASSIGN(RunProc) }; List*>* _ResolveName(BigStr* name, state::Procs* funcs, Dict* aliases, state::SearchPath* search_path, bool do_all); class Type : public ::vm::_Builtin { public: Type(state::Procs* funcs, Dict* aliases, state::SearchPath* search_path, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); Dict* aliases; ui::ErrorFormatter* errfmt; state::Procs* funcs; state::SearchPath* search_path; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Type, aliases)) | maskbit(offsetof(Type, errfmt)) | maskbit(offsetof(Type, funcs)) | maskbit(offsetof(Type, search_path)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Type)); } DISALLOW_COPY_AND_ASSIGN(Type) }; } // declare namespace meta_osh namespace method_dict { // declare class Keys : public ::vm::_Callable { public: Keys(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Keys)); } DISALLOW_COPY_AND_ASSIGN(Keys) }; class Values : public ::vm::_Callable { public: Values(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Values)); } DISALLOW_COPY_AND_ASSIGN(Values) }; class Erase : public ::vm::_Callable { public: Erase(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Erase)); } DISALLOW_COPY_AND_ASSIGN(Erase) }; } // declare namespace method_dict namespace method_io { // declare class Eval : public ::vm::_Callable { public: Eval(cmd_eval::CommandEvaluator* cmd_ev); virtual value_asdl::value_t* Call(typed_args::Reader* rd); cmd_eval::CommandEvaluator* cmd_ev; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(Eval, cmd_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Eval)); } DISALLOW_COPY_AND_ASSIGN(Eval) }; class CaptureStdout : public ::vm::_Callable { public: CaptureStdout(vm::_Executor* shell_ex); virtual value_asdl::value_t* Call(typed_args::Reader* rd); vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(CaptureStdout, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CaptureStdout)); } DISALLOW_COPY_AND_ASSIGN(CaptureStdout) }; class PromptVal : public ::vm::_Callable { public: PromptVal(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(PromptVal)); } DISALLOW_COPY_AND_ASSIGN(PromptVal) }; class Time : public ::vm::_Callable { public: Time(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Time)); } DISALLOW_COPY_AND_ASSIGN(Time) }; class Strftime : public ::vm::_Callable { public: Strftime(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Strftime)); } DISALLOW_COPY_AND_ASSIGN(Strftime) }; } // declare namespace method_io namespace method_list { // declare class Append : public ::vm::_Callable { public: Append(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Append)); } DISALLOW_COPY_AND_ASSIGN(Append) }; class Extend : public ::vm::_Callable { public: Extend(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Extend)); } DISALLOW_COPY_AND_ASSIGN(Extend) }; class Pop : public ::vm::_Callable { public: Pop(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Pop)); } DISALLOW_COPY_AND_ASSIGN(Pop) }; class Reverse : public ::vm::_Callable { public: Reverse(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Reverse)); } DISALLOW_COPY_AND_ASSIGN(Reverse) }; class IndexOf : public ::vm::_Callable { public: IndexOf(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(IndexOf)); } DISALLOW_COPY_AND_ASSIGN(IndexOf) }; } // declare namespace method_list namespace method_other { // declare class SetValue : public ::vm::_Callable { public: SetValue(state::Mem* mem); virtual value_asdl::value_t* Call(typed_args::Reader* rd); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(SetValue, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetValue)); } DISALLOW_COPY_AND_ASSIGN(SetValue) }; } // declare namespace method_other namespace method_str { // declare using syntax_asdl::loc; using runtime_asdl::scope_e; Tuple3 _StrMatchStart(BigStr* s, BigStr* p); Tuple3 _StrMatchEnd(BigStr* s, BigStr* p); Tuple3 _EggexMatchCommon(BigStr* s, value::Eggex* p, BigStr* ere, int empty_p); Tuple3 _EggexMatchStart(BigStr* s, value::Eggex* p); Tuple3 _EggexMatchEnd(BigStr* s, value::Eggex* p); extern int START; extern int END; class HasAffix : public ::vm::_Callable { public: HasAffix(int anchor); virtual value_asdl::value_t* Call(typed_args::Reader* rd); int anchor; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(HasAffix)); } DISALLOW_COPY_AND_ASSIGN(HasAffix) }; class Trim : public ::vm::_Callable { public: Trim(int anchor); virtual value_asdl::value_t* Call(typed_args::Reader* rd); int anchor; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Trim)); } DISALLOW_COPY_AND_ASSIGN(Trim) }; class Upper : public ::vm::_Callable { public: Upper(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Upper)); } DISALLOW_COPY_AND_ASSIGN(Upper) }; class Lower : public ::vm::_Callable { public: Lower(); virtual value_asdl::value_t* Call(typed_args::Reader* rd); static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Lower)); } DISALLOW_COPY_AND_ASSIGN(Lower) }; extern int SEARCH; extern int LEFT_MATCH; class SearchMatch : public ::vm::_Callable { public: SearchMatch(int which_method); virtual value_asdl::value_t* Call(typed_args::Reader* rd); int which_method; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SearchMatch)); } DISALLOW_COPY_AND_ASSIGN(SearchMatch) }; class ctx_EvalReplace { public: ctx_EvalReplace(state::Mem* mem, BigStr* arg0, List* argv); ~ctx_EvalReplace(); value_asdl::LeftName* lval; state::Mem* mem; bool pushed_argv; DISALLOW_COPY_AND_ASSIGN(ctx_EvalReplace) }; class Replace : public ::vm::_Callable { public: Replace(state::Mem* mem, expr_eval::ExprEvaluator* expr_ev); BigStr* EvalSubstExpr(value::Expr* expr, syntax_asdl::loc_t* blame_loc); virtual value_asdl::value_t* Call(typed_args::Reader* rd); expr_eval::ExprEvaluator* expr_ev; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Callable::field_mask() | maskbit(offsetof(Replace, expr_ev)) | maskbit(offsetof(Replace, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Replace)); } DISALLOW_COPY_AND_ASSIGN(Replace) }; } // declare namespace method_str namespace misc_osh { // declare using runtime_asdl::cmd_value; class Times : public ::vm::_Builtin { public: Times(); virtual int Run(cmd_value::Argv* cmd_val); static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Times)); } DISALLOW_COPY_AND_ASSIGN(Times) }; class Help : public ::vm::_Builtin { public: Help(BigStr* lang, pyutil::_ResourceLoader* loader, Dict* help_data, ui::ErrorFormatter* errfmt); int _ShowTopic(BigStr* topic_id, syntax_asdl::loc_t* blame_loc); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; mylib::Writer* f; Dict* help_data; BigStr* lang; pyutil::_ResourceLoader* loader; BigStr* version_str; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Help, errfmt)) | maskbit(offsetof(Help, f)) | maskbit(offsetof(Help, help_data)) | maskbit(offsetof(Help, lang)) | maskbit(offsetof(Help, loader)) | maskbit(offsetof(Help, version_str)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Help)); } DISALLOW_COPY_AND_ASSIGN(Help) }; } // declare namespace misc_osh namespace module_ysh { // declare using runtime_asdl::scope_e; using syntax_asdl::loc; class IsMain : public ::vm::_Builtin { public: IsMain(state::Mem* mem); virtual int Run(cmd_value::Argv* cmd_val); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(IsMain, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(IsMain)); } DISALLOW_COPY_AND_ASSIGN(IsMain) }; class SourceGuard : public ::vm::_Builtin { public: SourceGuard(Dict* guards, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; Dict* guards; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(SourceGuard, errfmt)) | maskbit(offsetof(SourceGuard, exec_opts)) | maskbit(offsetof(SourceGuard, guards)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SourceGuard)); } DISALLOW_COPY_AND_ASSIGN(SourceGuard) }; class Use : public ::vm::_Builtin { public: Use(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Use, errfmt)) | maskbit(offsetof(Use, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Use)); } DISALLOW_COPY_AND_ASSIGN(Use) }; } // declare namespace module_ysh namespace printf_osh { // declare using id_kind_asdl::Id; using runtime_asdl::cmd_value; using syntax_asdl::loc; using types_asdl::lex_mode_e; class _FormatStringParser { public: _FormatStringParser(lexer::Lexer* lexer); void _Next(types_asdl::lex_mode_t lex_mode); syntax_asdl::printf_part_t* _ParseFormatStr(); List* Parse(); lexer::Lexer* lexer; syntax_asdl::Token* cur_token; int token_type; id_kind_asdl::Kind_t token_kind; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(_FormatStringParser)); } DISALLOW_COPY_AND_ASSIGN(_FormatStringParser) }; class _PrintfState { public: _PrintfState(); int arg_index; bool backslash_c; int status; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(_PrintfState)); } DISALLOW_COPY_AND_ASSIGN(_PrintfState) }; class Printf : public ::vm::_Builtin { public: Printf(state::Mem* mem, parse_lib::ParseContext* parse_ctx, sh_expr_eval::UnsafeArith* unsafe_arith, ui::ErrorFormatter* errfmt); BigStr* _Percent(printf_osh::_PrintfState* pr, printf_part::Percent* part, List* varargs, List* locs); int _Format(List* parts, List* varargs, List* locs, List* out); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; Dict*>* parse_cache; parse_lib::ParseContext* parse_ctx; double shell_start_time; sh_expr_eval::UnsafeArith* unsafe_arith; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Printf, errfmt)) | maskbit(offsetof(Printf, mem)) | maskbit(offsetof(Printf, parse_cache)) | maskbit(offsetof(Printf, parse_ctx)) | maskbit(offsetof(Printf, unsafe_arith)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Printf)); } DISALLOW_COPY_AND_ASSIGN(Printf) }; } // declare namespace printf_osh namespace process_osh { // declare using syntax_asdl::loc; using runtime_asdl::cmd_value; class Jobs : public ::vm::_Builtin { public: Jobs(process::JobList* job_list); virtual int Run(cmd_value::Argv* cmd_val); process::JobList* job_list; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Jobs, job_list)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Jobs)); } DISALLOW_COPY_AND_ASSIGN(Jobs) }; class Fg : public ::vm::_Builtin { public: Fg(process::JobControl* job_control, process::JobList* job_list, process::Waiter* waiter); virtual int Run(cmd_value::Argv* cmd_val); process::JobControl* job_control; process::JobList* job_list; process::Waiter* waiter; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Fg, job_control)) | maskbit(offsetof(Fg, job_list)) | maskbit(offsetof(Fg, waiter)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Fg)); } DISALLOW_COPY_AND_ASSIGN(Fg) }; class Bg : public ::vm::_Builtin { public: Bg(process::JobList* job_list); virtual int Run(cmd_value::Argv* cmd_val); process::JobList* job_list; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Bg, job_list)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Bg)); } DISALLOW_COPY_AND_ASSIGN(Bg) }; class Fork : public ::vm::_Builtin { public: Fork(vm::_Executor* shell_ex); virtual int Run(cmd_value::Argv* cmd_val); vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Fork, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Fork)); } DISALLOW_COPY_AND_ASSIGN(Fork) }; class ForkWait : public ::vm::_Builtin { public: ForkWait(vm::_Executor* shell_ex); virtual int Run(cmd_value::Argv* cmd_val); vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(ForkWait, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ForkWait)); } DISALLOW_COPY_AND_ASSIGN(ForkWait) }; class Exec : public ::vm::_Builtin { public: Exec(state::Mem* mem, process::ExternalProgram* ext_prog, process::FdState* fd_state, state::SearchPath* search_path, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; process::ExternalProgram* ext_prog; process::FdState* fd_state; state::Mem* mem; state::SearchPath* search_path; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Exec, errfmt)) | maskbit(offsetof(Exec, ext_prog)) | maskbit(offsetof(Exec, fd_state)) | maskbit(offsetof(Exec, mem)) | maskbit(offsetof(Exec, search_path)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Exec)); } DISALLOW_COPY_AND_ASSIGN(Exec) }; class Wait : public ::vm::_Builtin { public: Wait(process::Waiter* waiter, process::JobList* job_list, state::Mem* mem, dev::Tracer* tracer, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); int _Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; process::JobList* job_list; state::Mem* mem; dev::Tracer* tracer; process::Waiter* waiter; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Wait, errfmt)) | maskbit(offsetof(Wait, job_list)) | maskbit(offsetof(Wait, mem)) | maskbit(offsetof(Wait, tracer)) | maskbit(offsetof(Wait, waiter)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Wait)); } DISALLOW_COPY_AND_ASSIGN(Wait) }; class Umask : public ::vm::_Builtin { public: Umask(); virtual int Run(cmd_value::Argv* cmd_val); static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Umask)); } DISALLOW_COPY_AND_ASSIGN(Umask) }; BigStr* _LimitString(mops::BigInt lim, int factor); class Ulimit : public ::vm::_Builtin { public: Ulimit(); List*>* _Table(); int _FindFactor(int what); virtual int Run(cmd_value::Argv* cmd_val); List*>* _table; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Ulimit, _table)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Ulimit)); } DISALLOW_COPY_AND_ASSIGN(Ulimit) }; } // declare namespace process_osh namespace pure_osh { // declare using syntax_asdl::loc; class Boolean : public ::vm::_Builtin { public: Boolean(int status); virtual int Run(cmd_value::Argv* cmd_val); int status; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Boolean)); } DISALLOW_COPY_AND_ASSIGN(Boolean) }; class Alias : public ::vm::_Builtin { public: Alias(Dict* aliases, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); Dict* aliases; ui::ErrorFormatter* errfmt; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Alias, aliases)) | maskbit(offsetof(Alias, errfmt)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Alias)); } DISALLOW_COPY_AND_ASSIGN(Alias) }; class UnAlias : public ::vm::_Builtin { public: UnAlias(Dict* aliases, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); Dict* aliases; ui::ErrorFormatter* errfmt; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(UnAlias, aliases)) | maskbit(offsetof(UnAlias, errfmt)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(UnAlias)); } DISALLOW_COPY_AND_ASSIGN(UnAlias) }; void SetOptionsFromFlags(state::MutableOpts* exec_opts, List*>* opt_changes, List*>* shopt_changes); class Set : public ::vm::_Builtin { public: Set(state::MutableOpts* exec_opts, state::Mem* mem); virtual int Run(cmd_value::Argv* cmd_val); state::MutableOpts* exec_opts; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Set, exec_opts)) | maskbit(offsetof(Set, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Set)); } DISALLOW_COPY_AND_ASSIGN(Set) }; class Shopt : public ::vm::_Builtin { public: Shopt(state::MutableOpts* mutable_opts, cmd_eval::CommandEvaluator* cmd_ev); void _PrintOptions(bool use_set_opts, List* opt_names); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; state::MutableOpts* mutable_opts; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Shopt, cmd_ev)) | maskbit(offsetof(Shopt, mutable_opts)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Shopt)); } DISALLOW_COPY_AND_ASSIGN(Shopt) }; class Hash : public ::vm::_Builtin { public: Hash(state::SearchPath* search_path); virtual int Run(cmd_value::Argv* cmd_val); state::SearchPath* search_path; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Hash, search_path)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Hash)); } DISALLOW_COPY_AND_ASSIGN(Hash) }; Dict* _ParseOptSpec(BigStr* spec_str); class GetOptsState { public: GetOptsState(state::Mem* mem, ui::ErrorFormatter* errfmt); int _OptInd(); BigStr* GetArg(List* argv); void IncIndex(); void SetArg(BigStr* optarg); void Fail(); state::Mem* mem; ui::ErrorFormatter* errfmt; int _optind; int flag_pos; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(GetOptsState)); } DISALLOW_COPY_AND_ASSIGN(GetOptsState) }; Tuple2 _GetOpts(Dict* spec, List* argv, pure_osh::GetOptsState* my_state, ui::ErrorFormatter* errfmt); class GetOpts : public ::vm::_Builtin { public: GetOpts(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; pure_osh::GetOptsState* my_state; Dict*>* spec_cache; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(GetOpts, errfmt)) | maskbit(offsetof(GetOpts, mem)) | maskbit(offsetof(GetOpts, my_state)) | maskbit(offsetof(GetOpts, spec_cache)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(GetOpts)); } DISALLOW_COPY_AND_ASSIGN(GetOpts) }; } // declare namespace pure_osh namespace pure_ysh { // declare using runtime_asdl::cmd_value; using runtime_asdl::scope_e; using syntax_asdl::loc; class ctx_Shvar { public: ctx_Shvar(state::Mem* mem, List*>* pairs); ~ctx_Shvar(); void _Push(List*>* pairs); void _Pop(); state::Mem* mem; List*>* restore; DISALLOW_COPY_AND_ASSIGN(ctx_Shvar) }; class Shvar : public ::vm::_Builtin { public: Shvar(state::Mem* mem, state::SearchPath* search_path, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; state::Mem* mem; state::SearchPath* search_path; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Shvar, cmd_ev)) | maskbit(offsetof(Shvar, mem)) | maskbit(offsetof(Shvar, search_path)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Shvar)); } DISALLOW_COPY_AND_ASSIGN(Shvar) }; class ctx_Context { public: ctx_Context(state::Mem* mem, Dict* context); ~ctx_Context(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_Context) }; class Ctx : public ::vm::_Builtin { public: Ctx(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); Dict* _GetContext(); int _Push(Dict* context, syntax_asdl::command_t* block); int _Set(Dict* updates); int _Emit(BigStr* field, value_asdl::value_t* item, syntax_asdl::loc_t* blame); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Ctx, cmd_ev)) | maskbit(offsetof(Ctx, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Ctx)); } DISALLOW_COPY_AND_ASSIGN(Ctx) }; class PushRegisters : public ::vm::_Builtin { public: PushRegisters(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); virtual int Run(cmd_value::Argv* cmd_val); cmd_eval::CommandEvaluator* cmd_ev; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(PushRegisters, cmd_ev)) | maskbit(offsetof(PushRegisters, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(PushRegisters)); } DISALLOW_COPY_AND_ASSIGN(PushRegisters) }; class Append : public ::vm::_Builtin { public: Append(state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Append, errfmt)) | maskbit(offsetof(Append, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Append)); } DISALLOW_COPY_AND_ASSIGN(Append) }; } // declare namespace pure_ysh namespace read_osh { // declare using runtime_asdl::cmd_value; Tuple2 _AppendParts(BigStr* s, List*>* spans, int max_results, bool join_next, List* parts); BigStr* _ReadN(int num_bytes, cmd_eval::CommandEvaluator* cmd_ev); Tuple2 _ReadPortion(int delim_byte, int max_chars, cmd_eval::CommandEvaluator* cmd_ev); Tuple2 ReadLineSlowly(cmd_eval::CommandEvaluator* cmd_ev, bool with_eol = true); BigStr* ReadAll(); class ctx_TermAttrs { public: ctx_TermAttrs(int fd, int local_modes); ~ctx_TermAttrs(); void* term_attrs; int fd; int orig_local_modes; DISALLOW_COPY_AND_ASSIGN(ctx_TermAttrs) }; class Read : public ::vm::_Builtin { public: Read(split::SplitContext* splitter, state::Mem* mem, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); int _ReadYsh(arg_types::read* arg, args::Reader* arg_r, cmd_value::Argv* cmd_val); int _Run(cmd_value::Argv* cmd_val); int _Read(arg_types::read* arg, List* names); cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; state::Mem* mem; parse_lib::ParseContext* parse_ctx; split::SplitContext* splitter; mylib::LineReader* stdin_; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Read, cmd_ev)) | maskbit(offsetof(Read, errfmt)) | maskbit(offsetof(Read, mem)) | maskbit(offsetof(Read, parse_ctx)) | maskbit(offsetof(Read, splitter)) | maskbit(offsetof(Read, stdin_)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Read)); } DISALLOW_COPY_AND_ASSIGN(Read) }; } // declare namespace read_osh namespace readline_osh { // declare using syntax_asdl::loc; class Bind : public ::vm::_Builtin { public: Bind(py_readline::Readline* readline, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; py_readline::Readline* readline; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Bind, errfmt)) | maskbit(offsetof(Bind, readline)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Bind)); } DISALLOW_COPY_AND_ASSIGN(Bind) }; class History : public ::vm::_Builtin { public: History(py_readline::Readline* readline, shell::ShellFiles* sh_files, ui::ErrorFormatter* errfmt, mylib::Writer* f); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; mylib::Writer* f; py_readline::Readline* readline; shell::ShellFiles* sh_files; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(History, errfmt)) | maskbit(offsetof(History, f)) | maskbit(offsetof(History, readline)) | maskbit(offsetof(History, sh_files)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(History)); } DISALLOW_COPY_AND_ASSIGN(History) }; } // declare namespace readline_osh namespace trap_osh { // declare using runtime_asdl::cmd_value; using syntax_asdl::loc; class TrapState { public: TrapState(pyos::SignalSafe* signal_safe); void ClearForSubProgram(bool inherit_errtrace); syntax_asdl::command_t* GetHook(BigStr* hook_name); void AddUserHook(BigStr* hook_name, syntax_asdl::command_t* handler); void RemoveUserHook(BigStr* hook_name); void AddUserTrap(int sig_num, syntax_asdl::command_t* handler); void RemoveUserTrap(int sig_num); List* GetPendingTraps(); pyos::SignalSafe* signal_safe; Dict* hooks; Dict* traps; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(TrapState)); } DISALLOW_COPY_AND_ASSIGN(TrapState) }; int _GetSignalNumber(BigStr* sig_spec); extern List* _HOOK_NAMES; class Trap : public ::vm::_Builtin { public: Trap(trap_osh::TrapState* trap_state, parse_lib::ParseContext* parse_ctx, dev::Tracer* tracer, ui::ErrorFormatter* errfmt); syntax_asdl::command_t* _ParseTrapCode(BigStr* code_str); virtual int Run(cmd_value::Argv* cmd_val); alloc::Arena* arena; ui::ErrorFormatter* errfmt; parse_lib::ParseContext* parse_ctx; dev::Tracer* tracer; trap_osh::TrapState* trap_state; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Trap, arena)) | maskbit(offsetof(Trap, errfmt)) | maskbit(offsetof(Trap, parse_ctx)) | maskbit(offsetof(Trap, tracer)) | maskbit(offsetof(Trap, trap_state)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Trap)); } DISALLOW_COPY_AND_ASSIGN(Trap) }; } // declare namespace trap_osh namespace alloc { // declare using syntax_asdl::loc; BigStr* SnipCodeBlock(syntax_asdl::Token* left, syntax_asdl::Token* right, List* lines); class ctx_SourceCode { public: ctx_SourceCode(alloc::Arena* arena, syntax_asdl::source_t* src); ~ctx_SourceCode(); alloc::Arena* arena; DISALLOW_COPY_AND_ASSIGN(ctx_SourceCode) }; class Arena { public: Arena(bool save_tokens = false); void SaveTokens(); void PushSource(syntax_asdl::source_t* src); void PopSource(); syntax_asdl::SourceLine* AddLine(BigStr* line, int line_num); void DiscardLines(); List* SaveLinesAndDiscard(syntax_asdl::Token* left, syntax_asdl::Token* right); BigStr* SnipCodeString(syntax_asdl::Token* left, syntax_asdl::Token* right); syntax_asdl::Token* NewToken(int id_, int col, int length, syntax_asdl::SourceLine* src_line); void UnreadOne(); syntax_asdl::Token* GetToken(int span_id); int GetSpanId(syntax_asdl::Token* tok); int LastSpanId(); List* lines_list; int num_tokens; bool save_tokens; List* source_instances; Dict* span_id_lookup; List* tokens; static constexpr uint32_t field_mask() { return maskbit(offsetof(Arena, lines_list)) | maskbit(offsetof(Arena, source_instances)) | maskbit(offsetof(Arena, span_id_lookup)) | maskbit(offsetof(Arena, tokens)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Arena)); } DISALLOW_COPY_AND_ASSIGN(Arena) }; class LosslessArena : public ::alloc::Arena { public: static constexpr uint32_t field_mask() { return ::alloc::Arena::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(LosslessArena)); } DISALLOW_COPY_AND_ASSIGN(LosslessArena) }; class DynamicArena : public ::alloc::Arena { public: static constexpr uint32_t field_mask() { return ::alloc::Arena::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DynamicArena)); } DISALLOW_COPY_AND_ASSIGN(DynamicArena) }; } // declare namespace alloc namespace comp_ui { // declare int _PromptLen(BigStr* prompt_str); class PromptState { public: PromptState(); void SetLastPrompt(BigStr* prompt_str); BigStr* last_prompt_str; int last_prompt_len; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(PromptState)); } DISALLOW_COPY_AND_ASSIGN(PromptState) }; class State { public: State(); BigStr* line_until_tab; Dict* descriptions; int display_pos; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(State)); } DISALLOW_COPY_AND_ASSIGN(State) }; class _IDisplay { public: _IDisplay(comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, int num_lines_cap, mylib::Writer* f, util::_DebugFile* debug_f); void PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len); virtual void _PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len); virtual void Reset(); virtual void ShowPromptOnRight(BigStr* rendered); virtual void EraseLines(); comp_ui::State* comp_state; util::_DebugFile* debug_f; mylib::Writer* f; int num_lines_cap; comp_ui::PromptState* prompt_state; static constexpr uint32_t field_mask() { return maskbit(offsetof(_IDisplay, comp_state)) | maskbit(offsetof(_IDisplay, debug_f)) | maskbit(offsetof(_IDisplay, f)) | maskbit(offsetof(_IDisplay, prompt_state)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_IDisplay)); } DISALLOW_COPY_AND_ASSIGN(_IDisplay) }; class MinimalDisplay : public ::comp_ui::_IDisplay { public: MinimalDisplay(comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, util::_DebugFile* debug_f); void _RedrawPrompt(); virtual void _PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len); void* reader; static constexpr uint32_t field_mask() { return ::comp_ui::_IDisplay::field_mask() | maskbit(offsetof(MinimalDisplay, reader)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(MinimalDisplay)); } DISALLOW_COPY_AND_ASSIGN(MinimalDisplay) }; int _PrintPacked(List* matches, int max_match_len, int term_width, int max_lines, mylib::Writer* f); int _PrintLong(List* matches, int max_match_len, int term_width, int max_lines, Dict* descriptions, mylib::Writer* f); class NiceDisplay : public ::comp_ui::_IDisplay { public: NiceDisplay(int term_width, comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, util::_DebugFile* debug_f, py_readline::Readline* readline, pyos::SignalSafe* signal_safe); virtual void Reset(); void _ReturnToPrompt(int num_lines); virtual void _PrintCandidates(BigStr* unused_subst, List* matches, int unused_max_match_len); virtual void ShowPromptOnRight(BigStr* rendered); virtual void EraseLines(); int _GetTerminalWidth(); bool bold_line; int c_count; Dict* dupes; int m_count; int num_lines_last_displayed; py_readline::Readline* readline; pyos::SignalSafe* signal_safe; int term_width; static constexpr uint32_t field_mask() { return ::comp_ui::_IDisplay::field_mask() | maskbit(offsetof(NiceDisplay, dupes)) | maskbit(offsetof(NiceDisplay, readline)) | maskbit(offsetof(NiceDisplay, signal_safe)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(NiceDisplay)); } DISALLOW_COPY_AND_ASSIGN(NiceDisplay) }; void ExecutePrintCandidates(comp_ui::_IDisplay* display, BigStr* sub, List* matches, int max_len); void InitReadline(py_readline::Readline* readline, BigStr* hist_file, completion::RootCompleter* root_comp, comp_ui::_IDisplay* display, util::_DebugFile* debug_f); } // declare namespace comp_ui namespace completion { // declare using id_kind_asdl::Id; using runtime_asdl::scope_e; class _RetryCompletion { public: _RetryCompletion(); static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(_RetryCompletion)); } DISALLOW_COPY_AND_ASSIGN(_RetryCompletion) }; extern int CH_Break; extern int CH_Other; extern int ST_Begin; extern int ST_Break; extern int ST_Other; Tuple2 _TRANSITIONS(int state, int ch); void AdjustArg(BigStr* arg, List* break_chars, List* argv_out); extern Dict* _DEFAULT_OPTS; class OptionState { public: OptionState(); Dict* dynamic_opts; bool currently_completing; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(OptionState)); } DISALLOW_COPY_AND_ASSIGN(OptionState) }; class ctx_Completing { public: ctx_Completing(completion::OptionState* compopt_state); ~ctx_Completing(); completion::OptionState* compopt_state; DISALLOW_COPY_AND_ASSIGN(ctx_Completing) }; void _PrintOpts(Dict* opts, mylib::BufWriter* f); class Lookup { public: Lookup(); BigStr* __str__(); void PrintSpecs(); void ClearCommandsChanged(); List* GetCommandsChanged(); void RegisterName(BigStr* name, Dict* base_opts, completion::UserSpec* user_spec); void RegisterGlob(BigStr* glob_pat, Dict* base_opts, completion::UserSpec* user_spec); Tuple2*, completion::UserSpec*> GetSpecForName(BigStr* argv0); Tuple2*, completion::UserSpec*> GetFirstSpec(); Tuple2*, completion::UserSpec*> GetFallback(); Dict*, completion::UserSpec*>*>* lookup; List* commands_with_spec_changes; List*, completion::UserSpec*>*>* patterns; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(Lookup)); } DISALLOW_COPY_AND_ASSIGN(Lookup) }; class Api { public: Api(BigStr* line, int begin, int end); void Update(BigStr* first, BigStr* to_complete, BigStr* prev, int index, List* partial_argv); BigStr* line; BigStr* first; BigStr* to_complete; BigStr* prev; List* partial_argv; int begin; int end; int index; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(5, sizeof(Api)); } DISALLOW_COPY_AND_ASSIGN(Api) }; class CompletionAction { public: CompletionAction(); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual runtime_asdl::comp_action_t ActionKind(); virtual void Print(mylib::BufWriter* f); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompletionAction)); } DISALLOW_COPY_AND_ASSIGN(CompletionAction) }; class UsersAction : public ::completion::CompletionAction { public: UsersAction(); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(UsersAction)); } DISALLOW_COPY_AND_ASSIGN(UsersAction) }; class TestAction : public ::completion::CompletionAction { public: TestAction(List* words, double delay = 0.0); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); double delay; List* words; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(TestAction, words)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(TestAction)); } DISALLOW_COPY_AND_ASSIGN(TestAction) }; class DynamicWordsAction : public ::completion::CompletionAction { public: DynamicWordsAction(word_eval::AbstractWordEvaluator* word_ev, split::SplitContext* splitter, syntax_asdl::CompoundWord* arg_word, ui::ErrorFormatter* errfmt); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); syntax_asdl::CompoundWord* arg_word; ui::ErrorFormatter* errfmt; split::SplitContext* splitter; word_eval::AbstractWordEvaluator* word_ev; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(DynamicWordsAction, arg_word)) | maskbit(offsetof(DynamicWordsAction, errfmt)) | maskbit(offsetof(DynamicWordsAction, splitter)) | maskbit(offsetof(DynamicWordsAction, word_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DynamicWordsAction)); } DISALLOW_COPY_AND_ASSIGN(DynamicWordsAction) }; class FileSystemAction : public ::completion::CompletionAction { public: FileSystemAction(bool dirs_only, bool exec_only, bool add_slash); virtual runtime_asdl::comp_action_t ActionKind(); virtual void Print(mylib::BufWriter* f); virtual void Matches(completion::Api* comp, List* _out_yield_acc); bool add_slash; bool dirs_only; bool exec_only; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FileSystemAction)); } DISALLOW_COPY_AND_ASSIGN(FileSystemAction) }; class CommandAction : public ::completion::CompletionAction { public: CommandAction(cmd_eval::CommandEvaluator* cmd_ev, BigStr* command_name); virtual void Matches(completion::Api* comp, List* _out_yield_acc); cmd_eval::CommandEvaluator* cmd_ev; BigStr* command_name; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(CommandAction, cmd_ev)) | maskbit(offsetof(CommandAction, command_name)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CommandAction)); } DISALLOW_COPY_AND_ASSIGN(CommandAction) }; class ShellFuncAction : public ::completion::CompletionAction { public: ShellFuncAction(cmd_eval::CommandEvaluator* cmd_ev, value::Proc* func, completion::Lookup* comp_lookup); virtual void Print(mylib::BufWriter* f); virtual runtime_asdl::comp_action_t ActionKind(); void debug(BigStr* msg); virtual void Matches(completion::Api* comp, List* _out_yield_acc); cmd_eval::CommandEvaluator* cmd_ev; completion::Lookup* comp_lookup; value::Proc* func; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(ShellFuncAction, cmd_ev)) | maskbit(offsetof(ShellFuncAction, comp_lookup)) | maskbit(offsetof(ShellFuncAction, func)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ShellFuncAction)); } DISALLOW_COPY_AND_ASSIGN(ShellFuncAction) }; class VariablesAction : public ::completion::CompletionAction { public: VariablesAction(state::Mem* mem); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); state::Mem* mem; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(VariablesAction, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(VariablesAction)); } DISALLOW_COPY_AND_ASSIGN(VariablesAction) }; class ExportedVarsAction : public ::completion::CompletionAction { public: ExportedVarsAction(state::Mem* mem); virtual void Matches(completion::Api* comp, List* _out_yield_acc); state::Mem* mem; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(ExportedVarsAction, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ExportedVarsAction)); } DISALLOW_COPY_AND_ASSIGN(ExportedVarsAction) }; class ExternalCommandAction : public ::completion::CompletionAction { public: ExternalCommandAction(state::Mem* mem); virtual void Print(mylib::BufWriter* f); virtual void Matches(completion::Api* comp, List* _out_yield_acc); Dict*, List*>* cache; state::Mem* mem; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(ExternalCommandAction, cache)) | maskbit(offsetof(ExternalCommandAction, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ExternalCommandAction)); } DISALLOW_COPY_AND_ASSIGN(ExternalCommandAction) }; class _Predicate { public: _Predicate(); virtual bool Evaluate(BigStr* candidate); virtual void Print(mylib::BufWriter* f); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Predicate)); } DISALLOW_COPY_AND_ASSIGN(_Predicate) }; class DefaultPredicate : public ::completion::_Predicate { public: DefaultPredicate(); virtual bool Evaluate(BigStr* candidate); virtual void Print(mylib::BufWriter* f); static constexpr uint32_t field_mask() { return ::completion::_Predicate::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DefaultPredicate)); } DISALLOW_COPY_AND_ASSIGN(DefaultPredicate) }; class GlobPredicate : public ::completion::_Predicate { public: GlobPredicate(bool include, BigStr* glob_pat); virtual bool Evaluate(BigStr* candidate); virtual void Print(mylib::BufWriter* f); BigStr* glob_pat; bool include; static constexpr uint32_t field_mask() { return ::completion::_Predicate::field_mask() | maskbit(offsetof(GlobPredicate, glob_pat)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(GlobPredicate)); } DISALLOW_COPY_AND_ASSIGN(GlobPredicate) }; class UserSpec { public: UserSpec(List* actions, List* extra_actions, List* else_actions, completion::_Predicate* predicate, BigStr* prefix, BigStr* suffix); void PrintSpec(mylib::BufWriter* f); void AllMatches(completion::Api* comp, List*>* _out_yield_acc); List* actions; List* extra_actions; List* else_actions; completion::_Predicate* predicate; BigStr* prefix; BigStr* suffix; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(6, sizeof(UserSpec)); } DISALLOW_COPY_AND_ASSIGN(UserSpec) }; bool IsDollar(syntax_asdl::Token* t); bool IsDummy(syntax_asdl::Token* t); bool WordEndsWithCompDummy(syntax_asdl::CompoundWord* w); class RootCompleter { public: RootCompleter(word_eval::AbstractWordEvaluator* word_ev, state::Mem* mem, completion::Lookup* comp_lookup, completion::OptionState* compopt_state, comp_ui::State* comp_ui_state, parse_lib::ParseContext* parse_ctx, util::_DebugFile* debug_f); void Matches(completion::Api* comp, List* _out_yield_acc); void _PostProcess(Dict* base_opts, Dict* dynamic_opts, completion::UserSpec* user_spec, completion::Api* comp, List* _out_yield_acc); word_eval::AbstractWordEvaluator* word_ev; state::Mem* mem; completion::Lookup* comp_lookup; completion::OptionState* compopt_state; comp_ui::State* comp_ui_state; parse_lib::ParseContext* parse_ctx; util::_DebugFile* debug_f; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(7, sizeof(RootCompleter)); } DISALLOW_COPY_AND_ASSIGN(RootCompleter) }; class ReadlineCallback { public: ReadlineCallback(py_readline::Readline* readline, completion::RootCompleter* root_comp, util::_DebugFile* debug_f); BigStr* _GetNextCompletion(int state); BigStr* __call__(BigStr* unused_word, int state); py_readline::Readline* readline; completion::RootCompleter* root_comp; util::_DebugFile* debug_f; List* comp_matches; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(ReadlineCallback)); } DISALLOW_COPY_AND_ASSIGN(ReadlineCallback) }; BigStr* ExecuteReadlineCallback(completion::ReadlineCallback* cb, BigStr* word, int state); } // declare namespace completion namespace dev { // declare using runtime_asdl::cmd_value; using runtime_asdl::scope_e; using value_asdl::sh_lvalue; class CrashDumper { public: CrashDumper(BigStr* crash_dump_dir, process::FdState* fd_state); void MaybeRecord(cmd_eval::CommandEvaluator* cmd_ev, error::_ErrorWithLocation* err); void MaybeDump(int status); BigStr* crash_dump_dir; process::FdState* fd_state; List* var_stack; List* argv_stack; List* debug_stack; Dict* error; bool do_collect; bool collected; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(6, sizeof(CrashDumper)); } DISALLOW_COPY_AND_ASSIGN(CrashDumper) }; class ctx_Tracer { public: ctx_Tracer(dev::Tracer* tracer, BigStr* label, List* argv); ~ctx_Tracer(); BigStr* arg; BigStr* label; dev::Tracer* tracer; DISALLOW_COPY_AND_ASSIGN(ctx_Tracer) }; void _PrintShValue(value_asdl::value_t* val, mylib::BufWriter* buf); void PrintShellArgv(List* argv, mylib::BufWriter* buf); void _PrintYshArgv(List* argv, mylib::BufWriter* buf); class MultiTracer { public: MultiTracer(int shell_pid, BigStr* out_dir, BigStr* dumps, BigStr* streams, process::FdState* fd_state); void OnNewProcess(int child_pid); void EmitArgv0(BigStr* argv0); void WriteDumps(); BigStr* out_dir; BigStr* dumps; BigStr* streams; process::FdState* fd_state; Dict* hist_argv0; int this_pid; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(5, sizeof(MultiTracer)); } DISALLOW_COPY_AND_ASSIGN(MultiTracer) }; class Tracer { public: Tracer(parse_lib::ParseContext* parse_ctx, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, state::Mem* mem, util::_DebugFile* f, dev::MultiTracer* multi_trace); void CheckCircularDeps(); BigStr* _EvalPS4(BigStr* punct); void _Inc(); void _Dec(); mylib::BufWriter* _ShTraceBegin(); mylib::BufWriter* _RichTraceBegin(BigStr* punct); void OnProcessStart(int pid, runtime_asdl::trace_t* why); void OnProcessEnd(int pid, int status); void OnNewProcess(int child_pid); void PushMessage(BigStr* label, List* argv); void PopMessage(BigStr* label, BigStr* arg); void OtherMessage(BigStr* message); void OnExec(List* argv); void OnBuiltin(int builtin_id, List* argv); void OnSimpleCommand(List* argv); void OnAssignBuiltin(cmd_value::Assign* cmd_val); void OnShAssignment(value_asdl::sh_lvalue_t* lval, syntax_asdl::assign_op_t op, value_asdl::value_t* val, int flags, runtime_asdl::scope_t which_scopes); void OnControlFlow(BigStr* keyword, int arg); void PrintSourceCode(syntax_asdl::Token* left_tok, syntax_asdl::Token* right_tok, alloc::Arena* arena); parse_lib::ParseContext* parse_ctx; optview::Exec* exec_opts; state::MutableOpts* mutable_opts; state::Mem* mem; util::_DebugFile* f; dev::MultiTracer* multi_trace; word_eval::NormalWordEvaluator* word_ev; List* indents; Dict* parse_cache; value::Str* val_indent; value::Str* val_punct; value::Str* val_pid_str; value_asdl::LeftName* lval_indent; value_asdl::LeftName* lval_punct; value_asdl::LeftName* lval_pid_str; int ind; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(15, sizeof(Tracer)); } DISALLOW_COPY_AND_ASSIGN(Tracer) }; } // declare namespace dev namespace error { // declare using syntax_asdl::loc; BigStr* _ValType(value_asdl::value_t* val); class _ErrorWithLocation { public: _ErrorWithLocation(BigStr* msg, syntax_asdl::loc_t* location); bool HasLocation(); BigStr* UserErrorString(); syntax_asdl::loc_t* location; BigStr* msg; static constexpr uint32_t field_mask() { return maskbit(offsetof(_ErrorWithLocation, location)) | maskbit(offsetof(_ErrorWithLocation, msg)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_ErrorWithLocation)); } DISALLOW_COPY_AND_ASSIGN(_ErrorWithLocation) }; class Usage : public ::error::_ErrorWithLocation { public: Usage(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::_ErrorWithLocation::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Usage)); } DISALLOW_COPY_AND_ASSIGN(Usage) }; class Parse : public ::error::_ErrorWithLocation { public: Parse(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::_ErrorWithLocation::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Parse)); } DISALLOW_COPY_AND_ASSIGN(Parse) }; class FailGlob : public ::error::_ErrorWithLocation { public: FailGlob(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::_ErrorWithLocation::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FailGlob)); } DISALLOW_COPY_AND_ASSIGN(FailGlob) }; class RedirectEval : public ::error::_ErrorWithLocation { public: RedirectEval(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::_ErrorWithLocation::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(RedirectEval)); } DISALLOW_COPY_AND_ASSIGN(RedirectEval) }; class FatalRuntime : public ::error::_ErrorWithLocation { public: FatalRuntime(int exit_status, BigStr* msg, syntax_asdl::loc_t* location); int ExitStatus(); int exit_status; static constexpr uint32_t field_mask() { return ::error::_ErrorWithLocation::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FatalRuntime)); } DISALLOW_COPY_AND_ASSIGN(FatalRuntime) }; class Strict : public ::error::FatalRuntime { public: Strict(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::FatalRuntime::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Strict)); } DISALLOW_COPY_AND_ASSIGN(Strict) }; class ErrExit : public ::error::FatalRuntime { public: ErrExit(int exit_status, BigStr* msg, syntax_asdl::loc_t* location, bool show_code = false); bool show_code; static constexpr uint32_t field_mask() { return ::error::FatalRuntime::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ErrExit)); } DISALLOW_COPY_AND_ASSIGN(ErrExit) }; class Expr : public ::error::FatalRuntime { public: Expr(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::FatalRuntime::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Expr)); } DISALLOW_COPY_AND_ASSIGN(Expr) }; class Structured : public ::error::FatalRuntime { public: Structured(int status, BigStr* msg, syntax_asdl::loc_t* location, Dict* properties = nullptr); value::Dict* ToDict(); Dict* properties; static constexpr uint32_t field_mask() { return ::error::FatalRuntime::field_mask() | maskbit(offsetof(Structured, properties)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Structured)); } DISALLOW_COPY_AND_ASSIGN(Structured) }; class AssertionErr : public ::error::Expr { public: AssertionErr(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::Expr::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(AssertionErr)); } DISALLOW_COPY_AND_ASSIGN(AssertionErr) }; class TypeErrVerbose : public ::error::Expr { public: TypeErrVerbose(BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::Expr::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(TypeErrVerbose)); } DISALLOW_COPY_AND_ASSIGN(TypeErrVerbose) }; class TypeErr : public ::error::TypeErrVerbose { public: TypeErr(value_asdl::value_t* actual_val, BigStr* msg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::error::TypeErrVerbose::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(TypeErr)); } DISALLOW_COPY_AND_ASSIGN(TypeErr) }; class Runtime { public: Runtime(BigStr* msg); BigStr* UserErrorString(); BigStr* msg; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(Runtime)); } DISALLOW_COPY_AND_ASSIGN(Runtime) }; class Decode { public: Decode(BigStr* msg, BigStr* s, int start_pos, int end_pos, int line_num); BigStr* Message(); BigStr* __str__(); BigStr* msg; BigStr* s; int start_pos; int end_pos; int line_num; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(Decode)); } DISALLOW_COPY_AND_ASSIGN(Decode) }; class Encode { public: Encode(BigStr* msg); BigStr* Message(); BigStr* msg; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(Encode)); } DISALLOW_COPY_AND_ASSIGN(Encode) }; [[noreturn]] void e_usage(BigStr* msg, syntax_asdl::loc_t* location); [[noreturn]] void e_strict(BigStr* msg, syntax_asdl::loc_t* location); [[noreturn]] void p_die(BigStr* msg, syntax_asdl::loc_t* location); [[noreturn]] void e_die(BigStr* msg, syntax_asdl::loc_t* location = nullptr); [[noreturn]] void e_die_status(int status, BigStr* msg, syntax_asdl::loc_t* location = nullptr); } // declare namespace error namespace executor { // declare using id_kind_asdl::Id; using syntax_asdl::loc; class _ProcessSubFrame { public: _ProcessSubFrame(); bool WasModified(); void Append(process::Process* p, int fd, syntax_asdl::loc_t* status_loc); void MaybeWaitOnProcessSubs(process::Waiter* waiter, runtime_asdl::StatusArray* status_array); List* _to_wait; List* _to_close; List* _locs; bool _modified; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(_ProcessSubFrame)); } DISALLOW_COPY_AND_ASSIGN(_ProcessSubFrame) }; extern int DO_FORK; extern int NO_CALL_PROCS; extern int USE_DEFAULT_PATH; extern List* DEFAULT_PATH; class ShellExecutor : public ::vm::_Executor { public: ShellExecutor(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, state::Procs* procs, hay_ysh::HayState* hay_state, Dict* builtins, state::SearchPath* search_path, process::ExternalProgram* ext_prog, process::Waiter* waiter, dev::Tracer* tracer, process::JobControl* job_control, process::JobList* job_list, process::FdState* fd_state, trap_osh::TrapState* trap_state, ui::ErrorFormatter* errfmt); virtual void CheckCircularDeps(); process::Process* _MakeProcess(syntax_asdl::command_t* node, bool inherit_errexit, bool inherit_errtrace); virtual int RunBuiltin(int builtin_id, cmd_value::Argv* cmd_val); virtual int RunSimpleCommand(cmd_value::Argv* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags); virtual int RunBackgroundJob(syntax_asdl::command_t* node); virtual void RunPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* status_out); virtual int RunSubshell(syntax_asdl::command_t* node); virtual Tuple2 CaptureStdout(syntax_asdl::command_t* node); virtual BigStr* RunCommandSub(syntax_asdl::CommandSub* cs_part); virtual BigStr* RunProcessSub(syntax_asdl::CommandSub* cs_part); virtual void PushRedirects(List* redirects, List* err_out); virtual void PopRedirects(int num_redirects, List* err_out); virtual void PushProcessSub(); virtual void PopProcessSub(runtime_asdl::StatusArray* compound_st); Dict* builtins; List* clean_frame_pool; ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; process::ExternalProgram* ext_prog; process::FdState* fd_state; process::Pipeline* fg_pipeline; hay_ysh::HayState* hay_state; process::JobControl* job_control; process::JobList* job_list; state::Mem* mem; dev::MultiTracer* multi_trace; state::MutableOpts* mutable_opts; List* process_sub_stack; state::Procs* procs; state::SearchPath* search_path; dev::Tracer* tracer; trap_osh::TrapState* trap_state; process::Waiter* waiter; static constexpr uint32_t field_mask() { return ::vm::_Executor::field_mask() | maskbit(offsetof(ShellExecutor, builtins)) | maskbit(offsetof(ShellExecutor, clean_frame_pool)) | maskbit(offsetof(ShellExecutor, errfmt)) | maskbit(offsetof(ShellExecutor, exec_opts)) | maskbit(offsetof(ShellExecutor, ext_prog)) | maskbit(offsetof(ShellExecutor, fd_state)) | maskbit(offsetof(ShellExecutor, fg_pipeline)) | maskbit(offsetof(ShellExecutor, hay_state)) | maskbit(offsetof(ShellExecutor, job_control)) | maskbit(offsetof(ShellExecutor, job_list)) | maskbit(offsetof(ShellExecutor, mem)) | maskbit(offsetof(ShellExecutor, multi_trace)) | maskbit(offsetof(ShellExecutor, mutable_opts)) | maskbit(offsetof(ShellExecutor, process_sub_stack)) | maskbit(offsetof(ShellExecutor, procs)) | maskbit(offsetof(ShellExecutor, search_path)) | maskbit(offsetof(ShellExecutor, tracer)) | maskbit(offsetof(ShellExecutor, trap_state)) | maskbit(offsetof(ShellExecutor, waiter)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ShellExecutor)); } DISALLOW_COPY_AND_ASSIGN(ShellExecutor) }; } // declare namespace executor namespace main_loop { // declare class ctx_Descriptors { public: ctx_Descriptors(List* fds); ~ctx_Descriptors(); List* fds; int saved0; int saved1; int saved2; DISALLOW_COPY_AND_ASSIGN(ctx_Descriptors) }; void fanos_log(BigStr* msg); void ShowDescriptorState(BigStr* label); class Headless { public: Headless(cmd_eval::CommandEvaluator* cmd_ev, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt); int Loop(); BigStr* EVAL(BigStr* arg); int _Loop(); cmd_eval::CommandEvaluator* cmd_ev; parse_lib::ParseContext* parse_ctx; ui::ErrorFormatter* errfmt; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(Headless)); } DISALLOW_COPY_AND_ASSIGN(Headless) }; int Interactive(arg_types::main* flag, cmd_eval::CommandEvaluator* cmd_ev, cmd_parse::CommandParser* c_parser, comp_ui::_IDisplay* display, prompt::UserPlugin* prompt_plugin, process::Waiter* waiter, ui::ErrorFormatter* errfmt); int Batch(cmd_eval::CommandEvaluator* cmd_ev, cmd_parse::CommandParser* c_parser, ui::ErrorFormatter* errfmt, int cmd_flags = 0); syntax_asdl::command_t* ParseWholeFile(cmd_parse::CommandParser* c_parser); } // declare namespace main_loop namespace num { // declare value::Int* ToBig(int i); mops::BigInt Exponent(mops::BigInt x, mops::BigInt y); } // declare namespace num namespace process { // declare using id_kind_asdl::Id; extern int NO_FD; extern int _SHELL_MIN_FD; extern int STYLE_DEFAULT; extern int STYLE_LONG; extern int STYLE_PID_ONLY; extern List* CURRENT_JOB_SPECS; class ctx_FileCloser { public: ctx_FileCloser(mylib::LineReader* f); ~ctx_FileCloser(); mylib::LineReader* f; DISALLOW_COPY_AND_ASSIGN(ctx_FileCloser) }; void InitInteractiveShell(); int SaveFd(int fd); class _RedirFrame { public: _RedirFrame(int saved_fd, int orig_fd, bool forget); int saved_fd; int orig_fd; bool forget; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(_RedirFrame)); } DISALLOW_COPY_AND_ASSIGN(_RedirFrame) }; class _FdFrame { public: _FdFrame(); void Forget(); List* saved; List* need_wait; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(_FdFrame)); } DISALLOW_COPY_AND_ASSIGN(_FdFrame) }; class FdState { public: FdState(ui::ErrorFormatter* errfmt, process::JobControl* job_control, process::JobList* job_list, state::Mem* mem, dev::Tracer* tracer, process::Waiter* waiter, optview::Exec* exec_opts); mylib::LineReader* Open(BigStr* path); mylib::Writer* OpenForWrite(BigStr* path); mylib::File* _Open(BigStr* path, BigStr* c_mode, int fd_mode); void _WriteFdToMem(BigStr* fd_name, int fd); int _ReadFdFromMem(BigStr* fd_name); bool _PushSave(int fd); int _PushDup(int fd1, syntax_asdl::redir_loc_t* blame_loc); bool _PushCloseFd(syntax_asdl::redir_loc_t* blame_loc); void _PushClose(int fd); void _PushWait(process::Process* proc); void _ApplyRedirect(runtime_asdl::RedirValue* r); void Push(List* redirects, List* err_out); bool PushStdinFromPipe(int r); void Pop(List* err_out); void MakePermanent(); ui::ErrorFormatter* errfmt; process::JobControl* job_control; process::JobList* job_list; process::_FdFrame* cur_frame; List* stack; state::Mem* mem; dev::Tracer* tracer; process::Waiter* waiter; optview::Exec* exec_opts; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(9, sizeof(FdState)); } DISALLOW_COPY_AND_ASSIGN(FdState) }; class ChildStateChange { public: ChildStateChange(); virtual void Apply(); virtual void ApplyFromParent(process::Process* proc); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ChildStateChange)); } DISALLOW_COPY_AND_ASSIGN(ChildStateChange) }; class StdinFromPipe : public ::process::ChildStateChange { public: StdinFromPipe(int pipe_read_fd, int w); virtual void Apply(); int r; int w; static constexpr uint32_t field_mask() { return ::process::ChildStateChange::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(StdinFromPipe)); } DISALLOW_COPY_AND_ASSIGN(StdinFromPipe) }; class StdoutToPipe : public ::process::ChildStateChange { public: StdoutToPipe(int r, int pipe_write_fd); virtual void Apply(); int r; int w; static constexpr uint32_t field_mask() { return ::process::ChildStateChange::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(StdoutToPipe)); } DISALLOW_COPY_AND_ASSIGN(StdoutToPipe) }; extern int INVALID_PGID; extern int OWN_LEADER; class SetPgid : public ::process::ChildStateChange { public: SetPgid(int pgid, dev::Tracer* tracer); virtual void Apply(); virtual void ApplyFromParent(process::Process* proc); int pgid; dev::Tracer* tracer; static constexpr uint32_t field_mask() { return ::process::ChildStateChange::field_mask() | maskbit(offsetof(SetPgid, tracer)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetPgid)); } DISALLOW_COPY_AND_ASSIGN(SetPgid) }; class ExternalProgram { public: ExternalProgram(BigStr* hijack_shebang, process::FdState* fd_state, ui::ErrorFormatter* errfmt, util::_DebugFile* debug_f); void Exec(BigStr* argv0_path, cmd_value::Argv* cmd_val, Dict* environ); void _Exec(BigStr* argv0_path, List* argv, syntax_asdl::loc_t* argv0_loc, Dict* environ, bool should_retry); BigStr* hijack_shebang; process::FdState* fd_state; ui::ErrorFormatter* errfmt; util::_DebugFile* debug_f; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(ExternalProgram)); } DISALLOW_COPY_AND_ASSIGN(ExternalProgram) }; class Thunk { public: Thunk(); virtual void Run(); virtual BigStr* UserString(); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Thunk)); } DISALLOW_COPY_AND_ASSIGN(Thunk) }; class ExternalThunk : public ::process::Thunk { public: ExternalThunk(process::ExternalProgram* ext_prog, BigStr* argv0_path, cmd_value::Argv* cmd_val, Dict* environ); virtual BigStr* UserString(); virtual void Run(); BigStr* argv0_path; cmd_value::Argv* cmd_val; Dict* environ; process::ExternalProgram* ext_prog; static constexpr uint32_t field_mask() { return ::process::Thunk::field_mask() | maskbit(offsetof(ExternalThunk, argv0_path)) | maskbit(offsetof(ExternalThunk, cmd_val)) | maskbit(offsetof(ExternalThunk, environ)) | maskbit(offsetof(ExternalThunk, ext_prog)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ExternalThunk)); } DISALLOW_COPY_AND_ASSIGN(ExternalThunk) }; class SubProgramThunk : public ::process::Thunk { public: SubProgramThunk(cmd_eval::CommandEvaluator* cmd_ev, syntax_asdl::command_t* node, trap_osh::TrapState* trap_state, dev::MultiTracer* multi_trace, bool inherit_errexit, bool inherit_errtrace); virtual BigStr* UserString(); virtual void Run(); cmd_eval::CommandEvaluator* cmd_ev; bool inherit_errexit; bool inherit_errtrace; dev::MultiTracer* multi_trace; syntax_asdl::command_t* node; trap_osh::TrapState* trap_state; static constexpr uint32_t field_mask() { return ::process::Thunk::field_mask() | maskbit(offsetof(SubProgramThunk, cmd_ev)) | maskbit(offsetof(SubProgramThunk, multi_trace)) | maskbit(offsetof(SubProgramThunk, node)) | maskbit(offsetof(SubProgramThunk, trap_state)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SubProgramThunk)); } DISALLOW_COPY_AND_ASSIGN(SubProgramThunk) }; class _HereDocWriterThunk : public ::process::Thunk { public: _HereDocWriterThunk(int w, BigStr* body_str); virtual BigStr* UserString(); virtual void Run(); BigStr* body_str; int w; static constexpr uint32_t field_mask() { return ::process::Thunk::field_mask() | maskbit(offsetof(_HereDocWriterThunk, body_str)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_HereDocWriterThunk)); } DISALLOW_COPY_AND_ASSIGN(_HereDocWriterThunk) }; class Job { public: Job(); virtual void DisplayJob(int job_id, mylib::Writer* f, int style); runtime_asdl::job_state_t State(); virtual int ProcessGroupId(); virtual runtime_asdl::wait_status_t* JobWait(process::Waiter* waiter); void SetBackground(); void SetForeground(); bool in_background; int job_id; runtime_asdl::job_state_t state; static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Job)); } DISALLOW_COPY_AND_ASSIGN(Job) }; class Process : public ::process::Job { public: Process(process::Thunk* thunk, process::JobControl* job_control, process::JobList* job_list, dev::Tracer* tracer); void Init_ParentPipeline(process::Pipeline* pi); virtual int ProcessGroupId(); virtual void DisplayJob(int job_id, mylib::Writer* f, int style); void AddStateChange(process::ChildStateChange* s); void AddPipeToClose(int r, int w); void MaybeClosePipe(); int StartProcess(runtime_asdl::trace_t* why); int Wait(process::Waiter* waiter); virtual runtime_asdl::wait_status_t* JobWait(process::Waiter* waiter); void WhenStopped(int stop_sig); void WhenDone(int pid, int status); int RunProcess(process::Waiter* waiter, runtime_asdl::trace_t* why); int close_r; int close_w; process::JobControl* job_control; process::JobList* job_list; process::Pipeline* parent_pipeline; int pid; List* state_changes; int status; process::Thunk* thunk; dev::Tracer* tracer; static constexpr uint32_t field_mask() { return ::process::Job::field_mask() | maskbit(offsetof(Process, job_control)) | maskbit(offsetof(Process, job_list)) | maskbit(offsetof(Process, parent_pipeline)) | maskbit(offsetof(Process, state_changes)) | maskbit(offsetof(Process, thunk)) | maskbit(offsetof(Process, tracer)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Process)); } DISALLOW_COPY_AND_ASSIGN(Process) }; class ctx_Pipe { public: ctx_Pipe(process::FdState* fd_state, int fd, List* err_out); ~ctx_Pipe(); process::FdState* fd_state; List* err_out; DISALLOW_COPY_AND_ASSIGN(ctx_Pipe) }; class Pipeline : public ::process::Job { public: Pipeline(bool sigpipe_status_ok, process::JobControl* job_control, process::JobList* job_list, dev::Tracer* tracer); virtual int ProcessGroupId(); virtual void DisplayJob(int job_id, mylib::Writer* f, int style); void DebugPrint(); void Add(process::Process* p); void AddLast(Tuple2* thunk); void StartPipeline(process::Waiter* waiter); int LastPid(); List* Wait(process::Waiter* waiter); virtual runtime_asdl::wait_status_t* JobWait(process::Waiter* waiter); List* RunLastPart(process::Waiter* waiter, process::FdState* fd_state); bool AllDone(); void WhenDone(int pid, int status); process::JobControl* job_control; process::JobList* job_list; Tuple2* last_pipe; Tuple2* last_thunk; int pgid; List* pids; List* pipe_status; List* procs; bool sigpipe_status_ok; int status; dev::Tracer* tracer; static constexpr uint32_t field_mask() { return ::process::Job::field_mask() | maskbit(offsetof(Pipeline, job_control)) | maskbit(offsetof(Pipeline, job_list)) | maskbit(offsetof(Pipeline, last_pipe)) | maskbit(offsetof(Pipeline, last_thunk)) | maskbit(offsetof(Pipeline, pids)) | maskbit(offsetof(Pipeline, pipe_status)) | maskbit(offsetof(Pipeline, procs)) | maskbit(offsetof(Pipeline, tracer)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Pipeline)); } DISALLOW_COPY_AND_ASSIGN(Pipeline) }; BigStr* _JobStateStr(runtime_asdl::job_state_t i); int _GetTtyFd(); class ctx_TerminalControl { public: ctx_TerminalControl(process::JobControl* job_control, ui::ErrorFormatter* errfmt); ~ctx_TerminalControl(); process::JobControl* job_control; ui::ErrorFormatter* errfmt; DISALLOW_COPY_AND_ASSIGN(ctx_TerminalControl) }; class JobControl { public: JobControl(); void InitJobControl(); bool Enabled(); void MaybeGiveTerminal(int pgid); void MaybeTakeTerminal(); void MaybeReturnTerminal(); int shell_pid; int shell_pgid; int shell_tty_fd; int original_tty_pgid; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(JobControl)); } DISALLOW_COPY_AND_ASSIGN(JobControl) }; class JobList { public: JobList(); int AddJob(process::Job* job); void RemoveJob(int job_id); void AddChildProcess(int pid, process::Process* proc); void RemoveChildProcess(int pid); process::Process* ProcessFromPid(int pid); Tuple2 GetCurrentAndPreviousJobs(); process::Job* GetJobWithSpec(BigStr* job_spec); void DisplayJobs(int style); void DebugPrint(); void ListRecent(); int NumRunning(); Dict* jobs; Dict* child_procs; List* debug_pipelines; int job_id; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(JobList)); } DISALLOW_COPY_AND_ASSIGN(JobList) }; extern int W1_OK; extern int W1_ECHILD; extern int W1_AGAIN; class Waiter { public: Waiter(process::JobList* job_list, optview::Exec* exec_opts, pyos::SignalSafe* signal_safe, dev::Tracer* tracer); int WaitForOne(int waitpid_options = 0); void PollNotifications(); process::JobList* job_list; optview::Exec* exec_opts; pyos::SignalSafe* signal_safe; dev::Tracer* tracer; int last_status; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(Waiter)); } DISALLOW_COPY_AND_ASSIGN(Waiter) }; } // declare namespace process namespace state { // declare using id_kind_asdl::Id; using runtime_asdl::scope_e; using syntax_asdl::loc; using value_asdl::sh_lvalue; extern BigStr* _READLINE_DELIMS; extern int SetReadOnly; extern int ClearReadOnly; extern int SetExport; extern int ClearExport; extern int SetNameref; extern int ClearNameref; BigStr* LookupExecutable(BigStr* name, List* path_dirs, bool exec_required = true); class SearchPath { public: SearchPath(state::Mem* mem); List* _GetPath(); BigStr* LookupOne(BigStr* name, bool exec_required = true); List* LookupReflect(BigStr* name, bool do_all); BigStr* CachedLookup(BigStr* name); void MaybeRemoveEntry(BigStr* name); void ClearCache(); List* CachedCommands(); state::Mem* mem; Dict* cache; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(SearchPath)); } DISALLOW_COPY_AND_ASSIGN(SearchPath) }; class ctx_Source { public: ctx_Source(state::Mem* mem, BigStr* source_name, List* argv); ~ctx_Source(); state::Mem* mem; List* argv; bool to_restore; DISALLOW_COPY_AND_ASSIGN(ctx_Source) }; class ctx_DebugTrap { public: ctx_DebugTrap(state::Mem* mem); ~ctx_DebugTrap(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_DebugTrap) }; class ctx_ErrTrap { public: ctx_ErrTrap(state::Mem* mem); ~ctx_ErrTrap(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_ErrTrap) }; class ctx_Option { public: ctx_Option(state::MutableOpts* mutable_opts, List* opt_nums, bool b); ~ctx_Option(); state::MutableOpts* mutable_opts; List* opt_nums; DISALLOW_COPY_AND_ASSIGN(ctx_Option) }; class ctx_AssignBuiltin { public: ctx_AssignBuiltin(state::MutableOpts* mutable_opts); ~ctx_AssignBuiltin(); state::MutableOpts* mutable_opts; bool strict; DISALLOW_COPY_AND_ASSIGN(ctx_AssignBuiltin) }; class ctx_YshExpr { public: ctx_YshExpr(state::MutableOpts* mutable_opts); ~ctx_YshExpr(); state::MutableOpts* mutable_opts; DISALLOW_COPY_AND_ASSIGN(ctx_YshExpr) }; class ctx_ErrExit { public: ctx_ErrExit(state::MutableOpts* mutable_opts, bool b, syntax_asdl::Token* disabled_tok); ~ctx_ErrExit(); state::MutableOpts* mutable_opts; bool strict; DISALLOW_COPY_AND_ASSIGN(ctx_ErrExit) }; class OptHook { public: OptHook(); virtual bool OnChange(List* opt0_array, BigStr* opt_name, bool b); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(OptHook)); } DISALLOW_COPY_AND_ASSIGN(OptHook) }; List* InitOpts(); Tuple3 MakeOpts(state::Mem* mem, state::OptHook* opt_hook); void _SetGroup(List* opt0_array, List* opt_nums, bool b); optview::Parse* MakeOilOpts(); int _AnyOptionNum(BigStr* opt_name); int _SetOptionNum(BigStr* opt_name); class MutableOpts { public: MutableOpts(state::Mem* mem, List* opt0_array, List*>* opt_stacks, state::OptHook* opt_hook); void Init(); void _InitOptionsFromEnv(BigStr* shellopts); void Push(int opt_num, bool b); bool Pop(int opt_num); void PushDynamicScope(bool b); void PopDynamicScope(); bool Get(int opt_num); void _Set(int opt_num, bool b); void set_interactive(); void set_redefine_proc_func(); void set_redefine_module(); void set_emacs(); void set_xtrace(bool b); void _SetArrayByNum(int opt_num, bool b); void SetDeferredErrExit(bool b); void DisableErrExit(); syntax_asdl::Token* ErrExitDisabledToken(); bool ErrExitIsDisabled(); void _SetOldOption(BigStr* opt_name, bool b); void SetOldOption(BigStr* opt_name, bool b); void SetAnyOption(BigStr* opt_name, bool b); void ShowOptions(List* opt_names); void ShowShoptOptions(List* opt_names); state::Mem* mem; List* opt0_array; List*>* opt_stacks; List* errexit_disabled_tok; state::OptHook* opt_hook; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(5, sizeof(MutableOpts)); } DISALLOW_COPY_AND_ASSIGN(MutableOpts) }; class _ArgFrame { public: _ArgFrame(List* argv); Dict* Dump(); value_asdl::value_t* GetArgNum(int arg_num); List* GetArgv(); int GetNumArgs(); void SetArgv(List* argv); List* argv; int num_shifted; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(_ArgFrame)); } DISALLOW_COPY_AND_ASSIGN(_ArgFrame) }; Dict* _DumpVarFrame(Dict* frame); BigStr* _GetWorkingDir(); BigStr* _LineNumber(syntax_asdl::Token* tok); void _AddCallToken(Dict* d, syntax_asdl::Token* token); void _InitDefaults(state::Mem* mem); void _InitVarsFromEnv(state::Mem* mem, Dict* environ); void InitMem(state::Mem* mem, Dict* environ, BigStr* version_str); void InitInteractive(state::Mem* mem); class ctx_FuncCall { public: ctx_FuncCall(state::Mem* mem, value::Func* func); ~ctx_FuncCall(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_FuncCall) }; class ctx_ProcCall { public: ctx_ProcCall(state::Mem* mem, state::MutableOpts* mutable_opts, value::Proc* proc, List* argv); ~ctx_ProcCall(); state::Mem* mem; state::MutableOpts* mutable_opts; bool sh_compat; DISALLOW_COPY_AND_ASSIGN(ctx_ProcCall) }; class ctx_Temp { public: ctx_Temp(state::Mem* mem); ~ctx_Temp(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_Temp) }; class ctx_Registers { public: ctx_Registers(state::Mem* mem); ~ctx_Registers(); state::Mem* mem; DISALLOW_COPY_AND_ASSIGN(ctx_Registers) }; class ctx_ThisDir { public: ctx_ThisDir(state::Mem* mem, BigStr* filename); ~ctx_ThisDir(); state::Mem* mem; bool do_pop; DISALLOW_COPY_AND_ASSIGN(ctx_ThisDir) }; runtime_asdl::Cell* _MakeArgvCell(List* argv); class Mem { public: Mem(BigStr* dollar0, List* argv, alloc::Arena* arena, List* debug_stack); void SetPwd(BigStr* pwd); bool ParsingChangesAllowed(); Tuple3*, List*, List*> Dump(); void SetLastArgument(BigStr* s); void SetTokenForLine(syntax_asdl::Token* tok); void SetLocationForExpr(syntax_asdl::loc_t* blame_loc); syntax_asdl::loc_t* GetFallbackLocation(); int LastStatus(); int TryStatus(); value::Dict* TryError(); List* PipeStatus(); void SetLastStatus(int x); void SetTryStatus(int x); void SetTryError(value::Dict* x); void SetPipeStatus(List* x); void SetSimplePipeStatus(int status); void SetProcessSubStatus(List* x); void PushCall(BigStr* func_name, syntax_asdl::Token* def_tok); void PopCall(); bool ShouldRunDebugTrap(); bool InsideFunction(); void PushSource(BigStr* source_name, List* argv); void PopSource(List* argv); void PushTemp(); void PopTemp(); Dict* TopNamespace(); int Shift(int n); value::Str* GetArg0(); value_asdl::value_t* GetArgNum(int arg_num); List* GetArgv(); void SetArgv(List* argv); value_asdl::value_t* GetSpecialVar(int op_id); Tuple2*> _ResolveNameOnly(BigStr* name, runtime_asdl::scope_t which_scopes); Tuple3*, BigStr*> _ResolveNameOrRef(BigStr* name, runtime_asdl::scope_t which_scopes, List* ref_trail = nullptr); bool IsBashAssoc(BigStr* name); void SetPlace(value::Place* place, value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc); void SetLocalName(value_asdl::LeftName* lval, value_asdl::value_t* val); void SetNamed(value_asdl::LeftName* lval, value_asdl::value_t* val, runtime_asdl::scope_t which_scopes, int flags = 0); void SetValue(value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val, runtime_asdl::scope_t which_scopes, int flags = 0); void _BindNewArrayWithEntry(Dict* name_map, sh_lvalue::Indexed* lval, value::Str* val, int flags); void InternalSetGlobal(BigStr* name, value_asdl::value_t* new_val); value_asdl::value_t* GetValue(BigStr* name, runtime_asdl::scope_t which_scopes = scope_e::Shopt); runtime_asdl::Cell* GetCell(BigStr* name, runtime_asdl::scope_t which_scopes = scope_e::Shopt); bool Unset(value_asdl::sh_lvalue_t* lval, runtime_asdl::scope_t which_scopes); runtime_asdl::scope_t ScopesForReading(); runtime_asdl::scope_t ScopesForWriting(); bool ClearFlag(BigStr* name, int flag); Dict* GetExported(); List* VarNames(); List* VarNamesStartingWith(BigStr* prefix); Dict* GetAllVars(); Dict* GetAllCells(runtime_asdl::scope_t which_scopes); bool IsGlobalScope(); void SetRegexMatch(value_asdl::regex_match_t* match); value_asdl::regex_match_t* GetRegexMatch(); void PushContextStack(Dict* context); Dict* GetContext(); Dict* PopContextStack(); optview::Exec* exec_opts; sh_expr_eval::UnsafeArith* unsafe_arith; BigStr* dollar0; List* argv_stack; List*>* var_stack; List* debug_stack; BigStr* pwd; syntax_asdl::Token* token_for_line; syntax_asdl::loc_t* loc_for_expr; BigStr* last_arg; value::Str* line_num; List* last_status; List* try_status; List* try_error; List*>* pipe_status; List*>* process_sub_status; List* this_dir; List* regex_match; List*>* ctx_stack; double seconds_start; int root_pid; int last_bg_pid; bool running_debug_trap; bool running_err_trap; bool is_main; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(19, sizeof(Mem)); } DISALLOW_COPY_AND_ASSIGN(Mem) }; class Procs { public: Procs(state::Mem* mem); void SetProc(BigStr* name, value::Proc* proc); void SetShFunc(BigStr* name, value::Proc* proc); value::Proc* Get(BigStr* name); void Del(BigStr* to_del); List* GetNames(); state::Mem* mem; Dict* sh_funcs; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(Procs)); } DISALLOW_COPY_AND_ASSIGN(Procs) }; void OshLanguageSetValue(state::Mem* mem, value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val, int flags = 0); void BuiltinSetValue(state::Mem* mem, value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val); void BuiltinSetString(state::Mem* mem, BigStr* name, BigStr* s); void BuiltinSetArray(state::Mem* mem, BigStr* name, List* a); void SetGlobalString(state::Mem* mem, BigStr* name, BigStr* s); void SetGlobalArray(state::Mem* mem, BigStr* name, List* a); void _SetGlobalValue(state::Mem* mem, BigStr* name, value_asdl::value_t* val); void ExportGlobalString(state::Mem* mem, BigStr* name, BigStr* s); value_asdl::value_t* DynamicGetVar(state::Mem* mem, BigStr* name, runtime_asdl::scope_t which_scopes); BigStr* GetString(state::Mem* mem, BigStr* name); BigStr* MaybeString(state::Mem* mem, BigStr* name); int GetInteger(state::Mem* mem, BigStr* name); } // declare namespace state namespace util { // declare List* RegexGroupStrings(BigStr* s, List* indices); List* RegexSearch(BigStr* pat, BigStr* s); class UserExit { public: UserExit(int status); int status; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(UserExit)); } DISALLOW_COPY_AND_ASSIGN(UserExit) }; class HistoryError { public: HistoryError(BigStr* msg); BigStr* UserErrorString(); BigStr* msg; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(HistoryError)); } DISALLOW_COPY_AND_ASSIGN(HistoryError) }; class _DebugFile { public: _DebugFile(); virtual void write(BigStr* s); virtual void writeln(BigStr* s); virtual bool isatty(); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_DebugFile)); } DISALLOW_COPY_AND_ASSIGN(_DebugFile) }; class NullDebugFile : public ::util::_DebugFile { public: NullDebugFile(); static constexpr uint32_t field_mask() { return ::util::_DebugFile::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(NullDebugFile)); } DISALLOW_COPY_AND_ASSIGN(NullDebugFile) }; class DebugFile : public ::util::_DebugFile { public: DebugFile(mylib::Writer* f); virtual void write(BigStr* s); virtual void writeln(BigStr* s); virtual bool isatty(); mylib::Writer* f; static constexpr uint32_t field_mask() { return ::util::_DebugFile::field_mask() | maskbit(offsetof(DebugFile, f)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DebugFile)); } DISALLOW_COPY_AND_ASSIGN(DebugFile) }; void PrintTopicHeader(BigStr* topic_id, mylib::Writer* f); bool PrintEmbeddedHelp(pyutil::_ResourceLoader* loader, BigStr* topic_id, mylib::Writer* f); void _PrintVersionLine(pyutil::_ResourceLoader* loader, mylib::Writer* f); void HelpFlag(pyutil::_ResourceLoader* loader, BigStr* topic_id, mylib::Writer* f); void VersionFlag(pyutil::_ResourceLoader* loader, mylib::Writer* f); } // declare namespace util namespace j8 { // declare using id_kind_asdl::Id; BigStr* ValType(value_asdl::value_t* val); int ValueId(value_asdl::value_t* val); BigStr* ValueIdString(value_asdl::value_t* val); BigStr* Utf8Encode(int code); extern int SHOW_CYCLES; extern int SHOW_NON_DATA; extern int LOSSY_JSON; extern int INF_NAN_ARE_NULL; void _Print(value_asdl::value_t* val, mylib::BufWriter* buf, int indent, int options = 0); void PrintMessage(value_asdl::value_t* val, mylib::BufWriter* buf, int indent); void PrintJsonMessage(value_asdl::value_t* val, mylib::BufWriter* buf, int indent); void PrintLine(value_asdl::value_t* val, mylib::Writer* f); void EncodeString(BigStr* s, mylib::BufWriter* buf, bool unquoted_ok = false); BigStr* MaybeEncodeString(BigStr* s); BigStr* MaybeEncodeJsonString(BigStr* s); extern int UNSEEN; extern int EXPLORING; extern int FINISHED; class InstancePrinter { public: InstancePrinter(mylib::BufWriter* buf, int indent, int options); void _ItemIndent(int level); void _BracketIndent(int level); void _MaybeNewline(); void _MaybeSpace(); void _PrintList(value::List* val, int level); void _PrintDict(value::Dict* val, int level); void _PrintBashPrefix(BigStr* type_str, int level); void _PrintBashSuffix(int level); void _PrintSparseArray(value::SparseArray* val, int level); void _PrintBashArray(value::BashArray* val, int level); void _PrintBashAssoc(value::BashAssoc* val, int level); void Print(value_asdl::value_t* val, int level = 0); mylib::BufWriter* buf; Dict* visited; int indent; int options; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(InstancePrinter)); } DISALLOW_COPY_AND_ASSIGN(InstancePrinter) }; class PrettyPrinter { public: PrettyPrinter(int max_col); void PrettyTree(value_asdl::value_t* val, format::ColorOutput* f); void Print(value_asdl::value_t* val, mylib::BufWriter* buf); Dict* ref_count; int max_col; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(PrettyPrinter)); } DISALLOW_COPY_AND_ASSIGN(PrettyPrinter) }; class LexerDecoder { public: LexerDecoder(BigStr* s, bool is_j8, BigStr* lang_str); error::Decode* _Error(BigStr* msg, int end_pos); Tuple3 Next(); Tuple3 NextForLines(); Tuple3 _DecodeString(int left_id, int str_pos); BigStr* s; BigStr* lang_str; mylib::BufWriter* decoded; bool is_j8; int pos; int cur_line_num; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(LexerDecoder)); } DISALLOW_COPY_AND_ASSIGN(LexerDecoder) }; class _Parser { public: _Parser(BigStr* s, bool is_j8); void _Next(); void _Eat(int tok_id); void _NextForLines(); error::Decode* _ParseError(BigStr* msg); BigStr* decoded; int end_pos; bool is_j8; BigStr* lang_str; j8::LexerDecoder* lexer; BigStr* s; int start_pos; int tok_id; static constexpr uint32_t field_mask() { return maskbit(offsetof(_Parser, decoded)) | maskbit(offsetof(_Parser, lang_str)) | maskbit(offsetof(_Parser, lexer)) | maskbit(offsetof(_Parser, s)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Parser)); } DISALLOW_COPY_AND_ASSIGN(_Parser) }; class Parser : public ::j8::_Parser { public: Parser(BigStr* s, bool is_j8); Tuple2 _ParsePair(); value_asdl::value_t* _ParseDict(); value_asdl::value_t* _ParseList(); value_asdl::value_t* _ParseValue(); value_asdl::value_t* ParseValue(); static constexpr uint32_t field_mask() { return ::j8::_Parser::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Parser)); } DISALLOW_COPY_AND_ASSIGN(Parser) }; class Nil8Parser : public ::j8::_Parser { public: Nil8Parser(BigStr* s, bool is_j8); nil8_asdl::nvalue_t* _ParseRecord(); nil8_asdl::nvalue_t* _ParseList8(); nil8_asdl::nvalue_t* _ParseNil8(); nil8_asdl::nvalue_t* ParseNil8(); static constexpr uint32_t field_mask() { return ::j8::_Parser::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Nil8Parser)); } DISALLOW_COPY_AND_ASSIGN(Nil8Parser) }; class J8LinesParser : public ::j8::_Parser { public: J8LinesParser(BigStr* s); void _Show(BigStr* s); void _ParseLine(List* out); List* Parse(); static constexpr uint32_t field_mask() { return ::j8::_Parser::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(J8LinesParser)); } DISALLOW_COPY_AND_ASSIGN(J8LinesParser) }; List* SplitJ8Lines(BigStr* s); } // declare namespace j8 namespace j8_lite { // declare BigStr* EncodeString(BigStr* s, bool unquoted_ok = false); BigStr* YshEncodeString(BigStr* s); BigStr* MaybeShellEncode(BigStr* s); BigStr* ShellEncode(BigStr* s); BigStr* YshEncode(BigStr* s, bool unquoted_ok = false); } // declare namespace j8_lite namespace ansi { // declare extern BigStr* RESET; extern BigStr* BOLD; extern BigStr* UNDERLINE; extern BigStr* REVERSE; extern BigStr* RED; extern BigStr* GREEN; extern BigStr* YELLOW; extern BigStr* BLUE; extern BigStr* MAGENTA; extern BigStr* CYAN; extern BigStr* WHITE; } // declare namespace ansi namespace pp_value { // declare BigStr* ValType(value_asdl::value_t* val); BigStr* FloatString(double fl); int TryUnicodeWidth(BigStr* s); pretty_asdl::MeasuredDoc* UText(BigStr* string); class ValueEncoder { public: ValueEncoder(); void SetIndent(int indent); void SetUseStyles(bool use_styles); void SetMaxTabularWidth(int max_tabular_width); List* TypePrefix(BigStr* type_str); pretty_asdl::MeasuredDoc* Value(value_asdl::value_t* val); pretty_asdl::MeasuredDoc* _Styled(BigStr* style, pretty_asdl::MeasuredDoc* mdoc); pretty_asdl::MeasuredDoc* _Surrounded(BigStr* open, pretty_asdl::MeasuredDoc* mdoc, BigStr* close); pretty_asdl::MeasuredDoc* _SurroundedAndPrefixed(BigStr* open, pretty_asdl::MeasuredDoc* prefix, BigStr* sep, pretty_asdl::MeasuredDoc* mdoc, BigStr* close); pretty_asdl::MeasuredDoc* _Join(List* items, BigStr* sep, BigStr* space); pretty_asdl::MeasuredDoc* _Tabular(List* items, BigStr* sep); pretty_asdl::MeasuredDoc* _DictKey(BigStr* s); pretty_asdl::MeasuredDoc* _StringLiteral(BigStr* s); pretty_asdl::MeasuredDoc* _BashStringLiteral(BigStr* s); pretty_asdl::MeasuredDoc* _YshList(value::List* vlist); pretty_asdl::MeasuredDoc* _YshDict(value::Dict* vdict); pretty_asdl::MeasuredDoc* _BashArray(value::BashArray* varray); pretty_asdl::MeasuredDoc* _BashAssoc(value::BashAssoc* vassoc); pretty_asdl::MeasuredDoc* _SparseArray(value::SparseArray* val); pretty_asdl::MeasuredDoc* _Value(value_asdl::value_t* val); Dict* visiting; BigStr* int_style; BigStr* float_style; BigStr* null_style; BigStr* bool_style; BigStr* string_style; BigStr* cycle_style; BigStr* type_style; int indent; bool use_styles; int max_tabular_width; bool ysh_style; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(8, sizeof(ValueEncoder)); } DISALLOW_COPY_AND_ASSIGN(ValueEncoder) }; } // declare namespace pp_value namespace pretty { // declare pretty_asdl::Measure* _EmptyMeasure(); pretty_asdl::Measure* _FlattenMeasure(pretty_asdl::Measure* measure); pretty_asdl::Measure* _ConcatMeasure(pretty_asdl::Measure* m1, pretty_asdl::Measure* m2); int _SuffixLen(pretty_asdl::Measure* measure); pretty_asdl::MeasuredDoc* AsciiText(BigStr* string); pretty_asdl::MeasuredDoc* _Break(BigStr* string); pretty_asdl::MeasuredDoc* _Indent(int indent, pretty_asdl::MeasuredDoc* mdoc); pretty_asdl::MeasuredDoc* _Concat(List* mdocs); pretty_asdl::MeasuredDoc* _Group(pretty_asdl::MeasuredDoc* mdoc); pretty_asdl::MeasuredDoc* _IfFlat(pretty_asdl::MeasuredDoc* flat_mdoc, pretty_asdl::MeasuredDoc* nonflat_mdoc); pretty_asdl::MeasuredDoc* _Flat(pretty_asdl::MeasuredDoc* mdoc); class PrettyPrinter { public: PrettyPrinter(int max_width); bool _Fits(int prefix_len, doc::Group* group, pretty_asdl::Measure* suffix_measure); void PrintDoc(pretty_asdl::MeasuredDoc* document, mylib::BufWriter* buf); int max_width; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(PrettyPrinter)); } DISALLOW_COPY_AND_ASSIGN(PrettyPrinter) }; } // declare namespace pretty namespace ui { // declare using id_kind_asdl::Id; using syntax_asdl::loc; BigStr* ValType(value_asdl::value_t* val); BigStr* CommandType(syntax_asdl::command_t* cmd); BigStr* PrettyId(int id_); BigStr* PrettyToken(syntax_asdl::Token* tok); BigStr* PrettyDir(BigStr* dir_name, BigStr* home_dir); void _PrintCodeExcerpt(BigStr* line, int col, int length, mylib::Writer* f); void _PrintTokenTooLong(loc::TokenTooLong* loc_tok, mylib::Writer* f); BigStr* GetLineSourceString(syntax_asdl::SourceLine* line, bool quote_filename = false); void _PrintWithLocation(BigStr* prefix, BigStr* msg, syntax_asdl::loc_t* blame_loc, bool show_code); Tuple2 CodeExcerptAndPrefix(syntax_asdl::Token* blame_tok); class ctx_Location { public: ctx_Location(ui::ErrorFormatter* errfmt, syntax_asdl::loc_t* location); ~ctx_Location(); ui::ErrorFormatter* errfmt; DISALLOW_COPY_AND_ASSIGN(ctx_Location) }; class ErrorFormatter { public: ErrorFormatter(); void OneLineErrExit(); syntax_asdl::loc_t* _FallbackLocation(syntax_asdl::loc_t* blame_loc); void PrefixPrint(BigStr* msg, BigStr* prefix, syntax_asdl::loc_t* blame_loc); void Print_(BigStr* msg, syntax_asdl::loc_t* blame_loc = nullptr); void PrintMessage(BigStr* msg, syntax_asdl::loc_t* blame_loc = nullptr); void StderrLine(BigStr* msg); void PrettyPrintError(error::_ErrorWithLocation* err, BigStr* prefix = str1281); void PrintErrExit(error::ErrExit* err, int pid); List* loc_stack; bool one_line_errexit; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(ErrorFormatter)); } DISALLOW_COPY_AND_ASSIGN(ErrorFormatter) }; void PrintAst(syntax_asdl::command_t* node, arg_types::main* flag); bool TypeNotPrinted(value_asdl::value_t* val); int _GetMaxWidth(); void PrettyPrintValue(BigStr* prefix, value_asdl::value_t* val, mylib::Writer* f, int max_width = -1); } // declare namespace ui namespace args { // declare using syntax_asdl::loc; extern int String; extern int Int; extern int Float; extern int Bool; class _Attributes { public: _Attributes(Dict* defaults); void SetTrue(BigStr* name); void Set(BigStr* name, value_asdl::value_t* val); Dict* attrs; List*>* opt_changes; List*>* shopt_changes; List* actions; bool show_options; bool saw_double_dash; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(_Attributes)); } DISALLOW_COPY_AND_ASSIGN(_Attributes) }; class Reader { public: Reader(List* argv, List* locs = nullptr); void Next(); BigStr* Peek(); Tuple2 Peek2(); BigStr* ReadRequired(BigStr* error_msg); Tuple2 ReadRequired2(BigStr* error_msg); List* Rest(); Tuple2*, List*> Rest2(); bool AtEnd(); void Done(); syntax_asdl::loc_t* _FirstLocation(); syntax_asdl::loc_t* Location(); List* argv; List* locs; int n; int i; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(Reader)); } DISALLOW_COPY_AND_ASSIGN(Reader) }; class _Action { public: _Action(); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Action)); } DISALLOW_COPY_AND_ASSIGN(_Action) }; class _ArgAction : public ::args::_Action { public: _ArgAction(BigStr* name, bool quit_parsing_flags, List* valid = nullptr); virtual value_asdl::value_t* _Value(BigStr* arg, syntax_asdl::loc_t* location); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); BigStr* name; bool quit_parsing_flags; List* valid; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(_ArgAction, name)) | maskbit(offsetof(_ArgAction, valid)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_ArgAction)); } DISALLOW_COPY_AND_ASSIGN(_ArgAction) }; class SetToInt : public ::args::_ArgAction { public: SetToInt(BigStr* name); virtual value_asdl::value_t* _Value(BigStr* arg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::args::_ArgAction::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetToInt)); } DISALLOW_COPY_AND_ASSIGN(SetToInt) }; class SetToFloat : public ::args::_ArgAction { public: SetToFloat(BigStr* name); virtual value_asdl::value_t* _Value(BigStr* arg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::args::_ArgAction::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetToFloat)); } DISALLOW_COPY_AND_ASSIGN(SetToFloat) }; class SetToString : public ::args::_ArgAction { public: SetToString(BigStr* name, bool quit_parsing_flags, List* valid = nullptr); virtual value_asdl::value_t* _Value(BigStr* arg, syntax_asdl::loc_t* location); static constexpr uint32_t field_mask() { return ::args::_ArgAction::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetToString)); } DISALLOW_COPY_AND_ASSIGN(SetToString) }; class SetAttachedBool : public ::args::_Action { public: SetAttachedBool(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); BigStr* name; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetAttachedBool, name)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetAttachedBool)); } DISALLOW_COPY_AND_ASSIGN(SetAttachedBool) }; class SetToTrue : public ::args::_Action { public: SetToTrue(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); BigStr* name; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetToTrue, name)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetToTrue)); } DISALLOW_COPY_AND_ASSIGN(SetToTrue) }; class SetOption : public ::args::_Action { public: SetOption(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); BigStr* name; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetOption, name)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetOption)); } DISALLOW_COPY_AND_ASSIGN(SetOption) }; class SetNamedOption : public ::args::_Action { public: SetNamedOption(bool shopt = false); void ArgName(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); List* names; bool shopt; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetNamedOption, names)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetNamedOption)); } DISALLOW_COPY_AND_ASSIGN(SetNamedOption) }; class SetAction : public ::args::_Action { public: SetAction(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); BigStr* name; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetAction, name)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetAction)); } DISALLOW_COPY_AND_ASSIGN(SetAction) }; class SetNamedAction : public ::args::_Action { public: SetNamedAction(); void ArgName(BigStr* name); virtual bool OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out); List* names; static constexpr uint32_t field_mask() { return ::args::_Action::field_mask() | maskbit(offsetof(SetNamedAction, names)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(SetNamedAction)); } DISALLOW_COPY_AND_ASSIGN(SetNamedAction) }; args::_Attributes* Parse(flag_spec::_FlagSpec* spec, args::Reader* arg_r); args::_Attributes* ParseLikeEcho(flag_spec::_FlagSpec* spec, args::Reader* arg_r); args::_Attributes* ParseMore(flag_spec::_FlagSpecAndMore* spec, args::Reader* arg_r); } // declare namespace args namespace flag_util { // declare using runtime_asdl::cmd_value; void _DoesNotAccept(syntax_asdl::ArgList* arg_list); Tuple2 ParseCmdVal(BigStr* spec_name, cmd_value::Argv* cmd_val, bool accept_typed_args = false); Tuple2 ParseLikeEcho(BigStr* spec_name, cmd_value::Argv* cmd_val); args::_Attributes* Parse(BigStr* spec_name, args::Reader* arg_r); args::_Attributes* ParseMore(BigStr* spec_name, args::Reader* arg_r); } // declare namespace flag_util namespace lexer { // declare using types_asdl::lex_mode_e; using id_kind_asdl::Id; bool IsPlusEquals(syntax_asdl::Token* tok); bool TokenContains(syntax_asdl::Token* tok, BigStr* substr); bool TokenEquals(syntax_asdl::Token* tok, BigStr* s); bool TokenStartsWith(syntax_asdl::Token* tok, BigStr* s); bool TokenEndsWith(syntax_asdl::Token* tok, BigStr* s); BigStr* TokenVal(syntax_asdl::Token* tok); BigStr* TokenSliceLeft(syntax_asdl::Token* tok, int left_index); BigStr* TokenSliceRight(syntax_asdl::Token* tok, int right_index); BigStr* TokenSlice(syntax_asdl::Token* tok, int left, int right); BigStr* LazyStr(syntax_asdl::Token* tok); syntax_asdl::Token* DummyToken(int id_, BigStr* val); class LineLexer { public: LineLexer(alloc::Arena* arena); void Reset(syntax_asdl::SourceLine* src_line, int line_pos); bool MaybeUnreadOne(); syntax_asdl::Token* GetEofToken(int id_); int LookAheadOne(types_asdl::lex_mode_t lex_mode); void AssertAtEndOfLine(); int LookPastSpace(types_asdl::lex_mode_t lex_mode); bool LookAheadFuncParens(int unread); BigStr* ByteLookAhead(); int ByteLookBack(); syntax_asdl::Token* Read(types_asdl::lex_mode_t lex_mode); alloc::Arena* arena; syntax_asdl::Token* eol_tok; syntax_asdl::SourceLine* src_line; bool replace_last_token; int line_pos; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(LineLexer)); } DISALLOW_COPY_AND_ASSIGN(LineLexer) }; class Lexer { public: Lexer(lexer::LineLexer* line_lexer, reader::_Reader* line_reader); void ResetInputObjects(); bool MaybeUnreadOne(); int LookAheadOne(types_asdl::lex_mode_t lex_mode); int LookPastSpace(types_asdl::lex_mode_t lex_mode); bool LookAheadFuncParens(int unread); BigStr* ByteLookAhead(); int ByteLookBack(); void EmitCompDummy(); void PushHint(int old_id, int new_id); bool MoveToNextLine(); syntax_asdl::Token* _Read(types_asdl::lex_mode_t lex_mode); syntax_asdl::Token* Read(types_asdl::lex_mode_t lex_mode); lexer::LineLexer* line_lexer; reader::_Reader* line_reader; List*>* translation_stack; int line_id; bool emit_comp_dummy; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(Lexer)); } DISALLOW_COPY_AND_ASSIGN(Lexer) }; } // declare namespace lexer namespace location { // declare using syntax_asdl::loc; using syntax_asdl::word; using syntax_asdl::word_part; value_asdl::LeftName* LName(BigStr* name); syntax_asdl::Token* TokenFor(syntax_asdl::loc_t* loc_); syntax_asdl::Token* TokenForCommand(syntax_asdl::command_t* node); syntax_asdl::Token* TokenForArith(syntax_asdl::arith_expr_t* node); syntax_asdl::Token* LeftTokenForWordPart(syntax_asdl::word_part_t* part); syntax_asdl::Token* _RightTokenForWordPart(syntax_asdl::word_part_t* part); syntax_asdl::Token* LeftTokenForCompoundWord(syntax_asdl::CompoundWord* w); syntax_asdl::Token* LeftTokenForWord(syntax_asdl::word_t* w); syntax_asdl::Token* RightTokenForWord(syntax_asdl::word_t* w); syntax_asdl::Token* TokenForLhsExpr(syntax_asdl::sh_lhs_t* node); syntax_asdl::loc_t* TokenForExpr(syntax_asdl::expr_t* node); } // declare namespace location namespace parse_lib { // declare using types_asdl::lex_mode_e; class _BaseTrail { public: _BaseTrail(); virtual void Clear(); virtual void SetLatestWords(List* words, List* redirects); virtual void AppendToken(syntax_asdl::Token* token); void BeginAliasExpansion(); void EndAliasExpansion(); bool _expanding_alias; List* alias_words; List* redirects; List* tokens; List* words; static constexpr uint32_t field_mask() { return maskbit(offsetof(_BaseTrail, alias_words)) | maskbit(offsetof(_BaseTrail, redirects)) | maskbit(offsetof(_BaseTrail, tokens)) | maskbit(offsetof(_BaseTrail, words)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_BaseTrail)); } DISALLOW_COPY_AND_ASSIGN(_BaseTrail) }; class ctx_Alias { public: ctx_Alias(parse_lib::_BaseTrail* trail); ~ctx_Alias(); parse_lib::_BaseTrail* trail; DISALLOW_COPY_AND_ASSIGN(ctx_Alias) }; class Trail : public ::parse_lib::_BaseTrail { public: Trail(); virtual void Clear(); virtual void SetLatestWords(List* words, List* redirects); virtual void AppendToken(syntax_asdl::Token* token); static constexpr uint32_t field_mask() { return ::parse_lib::_BaseTrail::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Trail)); } DISALLOW_COPY_AND_ASSIGN(Trail) }; class ParseContext { public: ParseContext(alloc::Arena* arena, optview::Parse* parse_opts, Dict* aliases, grammar::Grammar* ysh_grammar, bool do_lossless = false); void Init_Trail(parse_lib::_BaseTrail* trail); lexer::Lexer* MakeLexer(reader::_Reader* line_reader); cmd_parse::CommandParser* MakeOshParser(reader::_Reader* line_reader, bool emit_comp_dummy = false); cmd_parse::CommandParser* MakeConfigParser(reader::_Reader* line_reader); word_parse::WordParser* MakeWordParserForHereDoc(reader::_Reader* line_reader); word_parse::WordParser* MakeWordParser(lexer::Lexer* lx, reader::_Reader* line_reader); tdop::TdopParser* MakeArithParser(BigStr* code_str); cmd_parse::CommandParser* MakeParserForCommandSub(reader::_Reader* line_reader, lexer::Lexer* lexer, int eof_id); word_parse::WordParser* MakeWordParserForPlugin(BigStr* code_str); expr_parse::ExprParser* _YshParser(); Tuple2 ParseVarDecl(syntax_asdl::Token* kw_token, lexer::Lexer* lexer); Tuple2 ParseMutation(syntax_asdl::Token* kw_token, lexer::Lexer* lexer); void ParseProcCallArgs(lexer::Lexer* lx, syntax_asdl::ArgList* out, int start_symbol); Tuple2 ParseYshExpr(lexer::Lexer* lx, int start_symbol); Tuple3 ParseYshCasePattern(lexer::Lexer* lexer); syntax_asdl::Token* ParseProc(lexer::Lexer* lexer, syntax_asdl::Proc* out); syntax_asdl::Token* ParseFunc(lexer::Lexer* lexer, syntax_asdl::Func* out); alloc::Arena* arena; optview::Parse* parse_opts; Dict* aliases; grammar::Grammar* ysh_grammar; expr_to_ast::Transformer* tr; parse_lib::_BaseTrail* trail; bool do_lossless; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(6, sizeof(ParseContext)); } DISALLOW_COPY_AND_ASSIGN(ParseContext) }; } // declare namespace parse_lib namespace reader { // declare using id_kind_asdl::Id; extern BigStr* _PS2; class _Reader { public: _Reader(alloc::Arena* arena); void SetLineOffset(int n); virtual BigStr* _GetLine(); virtual Tuple2 GetLine(); virtual void Reset(); virtual bool LastLineHint(); alloc::Arena* arena; int line_num; static constexpr uint32_t field_mask() { return maskbit(offsetof(_Reader, arena)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_Reader)); } DISALLOW_COPY_AND_ASSIGN(_Reader) }; class DisallowedLineReader : public ::reader::_Reader { public: DisallowedLineReader(alloc::Arena* arena, syntax_asdl::Token* blame_token); virtual BigStr* _GetLine(); syntax_asdl::Token* blame_token; static constexpr uint32_t field_mask() { return ::reader::_Reader::field_mask() | maskbit(offsetof(DisallowedLineReader, blame_token)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DisallowedLineReader)); } DISALLOW_COPY_AND_ASSIGN(DisallowedLineReader) }; class FileLineReader : public ::reader::_Reader { public: FileLineReader(mylib::LineReader* f, alloc::Arena* arena); virtual BigStr* _GetLine(); virtual bool LastLineHint(); mylib::LineReader* f; bool last_line_hint; static constexpr uint32_t field_mask() { return ::reader::_Reader::field_mask() | maskbit(offsetof(FileLineReader, f)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(FileLineReader)); } DISALLOW_COPY_AND_ASSIGN(FileLineReader) }; reader::FileLineReader* StringLineReader(BigStr* s, alloc::Arena* arena); class VirtualLineReader : public ::reader::_Reader { public: VirtualLineReader(alloc::Arena* arena, List*>* lines, bool do_lossless); virtual Tuple2 GetLine(); bool do_lossless; List*>* lines; int num_lines; int pos; static constexpr uint32_t field_mask() { return ::reader::_Reader::field_mask() | maskbit(offsetof(VirtualLineReader, lines)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(VirtualLineReader)); } DISALLOW_COPY_AND_ASSIGN(VirtualLineReader) }; BigStr* _PlainPromptInput(BigStr* prompt); class InteractiveLineReader : public ::reader::_Reader { public: InteractiveLineReader(alloc::Arena* arena, prompt::Evaluator* prompt_ev, history::Evaluator* hist_ev, py_readline::Readline* line_input, comp_ui::PromptState* prompt_state); virtual void Reset(); virtual BigStr* _GetLine(); history::Evaluator* hist_ev; py_readline::Readline* line_input; BigStr* prev_line; prompt::Evaluator* prompt_ev; comp_ui::PromptState* prompt_state; BigStr* prompt_str; bool render_ps1; static constexpr uint32_t field_mask() { return ::reader::_Reader::field_mask() | maskbit(offsetof(InteractiveLineReader, hist_ev)) | maskbit(offsetof(InteractiveLineReader, line_input)) | maskbit(offsetof(InteractiveLineReader, prev_line)) | maskbit(offsetof(InteractiveLineReader, prompt_ev)) | maskbit(offsetof(InteractiveLineReader, prompt_state)) | maskbit(offsetof(InteractiveLineReader, prompt_str)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(InteractiveLineReader)); } DISALLOW_COPY_AND_ASSIGN(InteractiveLineReader) }; } // declare namespace reader namespace typed_args { // declare using runtime_asdl::cmd_value; using syntax_asdl::loc; void DoesNotAccept(syntax_asdl::ArgList* arg_list); syntax_asdl::command_t* OptionalBlock(cmd_value::Argv* cmd_val); syntax_asdl::LiteralBlock* OptionalLiteralBlock(cmd_value::Argv* cmd_val); typed_args::Reader* ReaderForProc(cmd_value::Argv* cmd_val); class Reader { public: Reader(List* pos_args, Dict* named_args, value_asdl::value_t* block_arg, syntax_asdl::ArgList* arg_list, bool is_bound = false); void SetFallbackLocation(syntax_asdl::loc_t* blame_loc); syntax_asdl::Token* LeftParenToken(); syntax_asdl::loc_t* LeastSpecificLocation(); syntax_asdl::loc_t* BlamePos(); value_asdl::value_t* PosValue(); value_asdl::value_t* OptionalValue(); BigStr* _ToStr(value_asdl::value_t* val); bool _ToBool(value_asdl::value_t* val); mops::BigInt _ToInt(value_asdl::value_t* val); double _ToFloat(value_asdl::value_t* val); List* _ToBashArray(value_asdl::value_t* val); value::SparseArray* _ToSparseArray(value_asdl::value_t* val); List* _ToList(value_asdl::value_t* val); Dict* _ToDict(value_asdl::value_t* val); value::Place* _ToPlace(value_asdl::value_t* val); value_asdl::RegexMatch* _ToMatch(value_asdl::value_t* val); value::Eggex* _ToEggex(value_asdl::value_t* val); value::IO* _ToIO(value_asdl::value_t* val); syntax_asdl::expr_t* _ToExpr(value_asdl::value_t* val); syntax_asdl::command_t* _ToCommand(value_asdl::value_t* val); syntax_asdl::command_t* _ToBlock(value_asdl::value_t* val); syntax_asdl::LiteralBlock* _ToLiteralBlock(value_asdl::value_t* val); BigStr* PosStr(); BigStr* OptionalStr(BigStr* default_ = nullptr); bool PosBool(); mops::BigInt PosInt(); mops::BigInt OptionalInt(int default_); double PosFloat(); List* PosBashArray(); value::SparseArray* PosSparseArray(); List* PosList(); Dict* PosDict(); value::Place* PosPlace(); value::Eggex* PosEggex(); value_asdl::RegexMatch* PosMatch(); value::IO* PosIO(); syntax_asdl::command_t* PosCommand(); syntax_asdl::expr_t* PosExpr(); syntax_asdl::command_t* RequiredBlock(); syntax_asdl::command_t* OptionalBlock(); syntax_asdl::LiteralBlock* OptionalLiteralBlock(); List* RestPos(); syntax_asdl::loc_t* _BlameNamed(BigStr* name); BigStr* NamedStr(BigStr* param_name, BigStr* default_); bool NamedBool(BigStr* param_name, bool default_); mops::BigInt NamedInt(BigStr* param_name, int default_); double NamedFloat(BigStr* param_name, double default_); List* NamedList(BigStr* param_name, List* default_); Dict* NamedDict(BigStr* param_name, Dict* default_); Dict* RestNamed(); void Done(); List* pos_args; Dict* named_args; value_asdl::value_t* block_arg; syntax_asdl::ArgList* arg_list; syntax_asdl::loc_t* fallback_loc; int pos_consumed; bool is_bound; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(5, sizeof(Reader)); } DISALLOW_COPY_AND_ASSIGN(Reader) }; } // declare namespace typed_args namespace arith_parse { // declare using id_kind_asdl::Id; using syntax_asdl::loc; syntax_asdl::arith_expr_t* NullIncDec(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp); syntax_asdl::arith_expr_t* NullUnaryPlus(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp); syntax_asdl::arith_expr_t* NullUnaryMinus(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp); syntax_asdl::arith_expr_t* LeftIncDec(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp); syntax_asdl::arith_expr_t* LeftIndex(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int unused_bp); syntax_asdl::arith_expr_t* LeftTernary(tdop::TdopParser* p, syntax_asdl::word_t* t, syntax_asdl::arith_expr_t* left, int bp); } // declare namespace arith_parse namespace bool_parse { // declare using id_kind_asdl::Id; using types_asdl::lex_mode_e; using syntax_asdl::loc; class BoolParser { public: BoolParser(word_parse::WordEmitter* w_parser); void _NextOne(types_asdl::lex_mode_t lex_mode = lex_mode_e::DBracket); void _Next(types_asdl::lex_mode_t lex_mode = lex_mode_e::DBracket); syntax_asdl::word_t* _LookAhead(); Tuple2 Parse(); bool _TestAtEnd(); syntax_asdl::bool_expr_t* ParseForBuiltin(); syntax_asdl::bool_expr_t* ParseExpr(); syntax_asdl::bool_expr_t* ParseTerm(); syntax_asdl::bool_expr_t* ParseNegatedFactor(); syntax_asdl::bool_expr_t* ParseFactor(); word_parse::WordEmitter* w_parser; List* words; syntax_asdl::word_t* cur_word; int bool_id; id_kind_asdl::Kind_t bool_kind; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(BoolParser)); } DISALLOW_COPY_AND_ASSIGN(BoolParser) }; } // declare namespace bool_parse namespace braces { // declare using id_kind_asdl::Id; using syntax_asdl::word; using syntax_asdl::word_part; extern int NO_STEP; class _NotARange { public: _NotARange(BigStr* s); static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(0, sizeof(_NotARange)); } DISALLOW_COPY_AND_ASSIGN(_NotARange) }; class _RangeParser { public: _RangeParser(match::SimpleLexer* lexer, syntax_asdl::Token* blame_tok); void _Next(); BigStr* _Eat(int token_type); int _ParseStep(); word_part::BracedRange* _ParseRange(int range_kind); word_part::BracedRange* Parse(); match::SimpleLexer* lexer; syntax_asdl::Token* blame_tok; BigStr* token_val; int token_type; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(_RangeParser)); } DISALLOW_COPY_AND_ASSIGN(_RangeParser) }; word_part::BracedRange* _RangePartDetect(syntax_asdl::Token* tok); class _StackFrame { public: _StackFrame(List* cur_parts); List* cur_parts; word_part::BracedTuple* alt_part; bool saw_comma; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(_StackFrame)); } DISALLOW_COPY_AND_ASSIGN(_StackFrame) }; word::BracedTree* BraceDetect(syntax_asdl::CompoundWord* w); List* BraceDetectAll(List* words); int _LeadingZeros(BigStr* s); BigStr* _IntToString(int i, int width); List* _RangeStrings(word_part::BracedRange* part); List*>* _ExpandPart(List* parts, int first_alt_index, List*>* suffixes); List*>* _BraceExpand(List* parts); List* BraceExpandWords(List* words); } // declare namespace braces namespace cmd_eval { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::word; using runtime_asdl::cmd_value; using runtime_asdl::scope_e; extern int IsMainProgram; extern int RaiseControlFlow; extern int Optimize; extern int NoDebugTrap; extern int NoErrTrap; cmd_value::Argv* MakeBuiltinArgv(List* argv1); class Deps { public: Deps(); state::MutableOpts* mutable_opts; dev::CrashDumper* dumper; util::_DebugFile* debug_f; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(Deps)); } DISALLOW_COPY_AND_ASSIGN(Deps) }; bool _HasManyStatuses(syntax_asdl::command_t* node); value_asdl::value_t* PlusEquals(value_asdl::value_t* old_val, value_asdl::value_t* val); class ctx_LoopLevel { public: ctx_LoopLevel(cmd_eval::CommandEvaluator* cmd_ev); ~ctx_LoopLevel(); cmd_eval::CommandEvaluator* cmd_ev; DISALLOW_COPY_AND_ASSIGN(ctx_LoopLevel) }; class CommandEvaluator { public: CommandEvaluator(state::Mem* mem, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt, state::Procs* procs, Dict* assign_builtins, alloc::Arena* arena, cmd_eval::Deps* cmd_deps, trap_osh::TrapState* trap_state, pyos::SignalSafe* signal_safe); void CheckCircularDeps(); int _RunAssignBuiltin(cmd_value::Assign* cmd_val); void _CheckStatus(int status, runtime_asdl::CommandStatus* cmd_st, syntax_asdl::command_t* node, syntax_asdl::loc_t* default_loc); runtime_asdl::RedirValue* _EvalRedirect(syntax_asdl::Redir* r); int _RunSimpleCommand(runtime_asdl::cmd_value_t* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags); void _EvalTempEnv(List* more_env, int flags); void _StrictErrExit(syntax_asdl::command_t* node); void _StrictErrExitList(List* node_list); bool _EvalCondition(syntax_asdl::condition_t* cond, syntax_asdl::Token* blame_tok); value_asdl::value_t* _EvalCaseArg(syntax_asdl::case_arg_t* arg, syntax_asdl::loc_t* blame); int _DoVarDecl(command::VarDecl* node); void _DoMutation(command::Mutation* node); int _DoSimple(command::Simple* node, runtime_asdl::CommandStatus* cmd_st); int _DoExpandedAlias(command::ExpandedAlias* node); int _DoPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* cmd_st); int _DoShAssignment(command::ShAssignment* node, runtime_asdl::CommandStatus* cmd_st); int _DoExpr(command::Expr* node); int _DoControlFlow(command::ControlFlow* node); int _DoAndOr(command::AndOr* node, runtime_asdl::CommandStatus* cmd_st); int _DoWhileUntil(command::WhileUntil* node); int _DoForEach(command::ForEach* node); int _DoForExpr(command::ForExpr* node); void _DoShFunction(command::ShFunction* node); void _DoProc(syntax_asdl::Proc* node); void _DoFunc(syntax_asdl::Func* node); int _DoIf(command::If* node); int _DoCase(command::Case* node); int _DoTimeBlock(command::TimeBlock* node); int _DoRedirect(command::Redirect* node, runtime_asdl::CommandStatus* cmd_st); int _Dispatch(syntax_asdl::command_t* node, runtime_asdl::CommandStatus* cmd_st); void RunPendingTraps(); int _Execute(syntax_asdl::command_t* node); int _ExecuteList(List* children); int LastStatus(); void _NoForkLast(syntax_asdl::command_t* node); void _NoForkSentence(syntax_asdl::command_t* node); syntax_asdl::command_t* _RemoveSubshells(syntax_asdl::command_t* node); Tuple2 ExecuteAndCatch(syntax_asdl::command_t* node, int cmd_flags = 0); int EvalCommand(syntax_asdl::command_t* block); void MaybeRunExitTrap(syntax_asdl::IntParamBox* mut_status); void _MaybeRunDebugTrap(); void _MaybeRunErrTrap(); int RunProc(value::Proc* proc, cmd_value::Argv* cmd_val); int RunFuncForCompletion(value::Proc* proc, List* argv); vm::_Executor* shell_ex; sh_expr_eval::ArithEvaluator* arith_ev; sh_expr_eval::BoolEvaluator* bool_ev; expr_eval::ExprEvaluator* expr_ev; word_eval::AbstractWordEvaluator* word_ev; dev::Tracer* tracer; state::Mem* mem; optview::Exec* exec_opts; ui::ErrorFormatter* errfmt; state::Procs* procs; Dict* assign_builtins; alloc::Arena* arena; state::MutableOpts* mutable_opts; dev::CrashDumper* dumper; util::_DebugFile* debug_f; trap_osh::TrapState* trap_state; pyos::SignalSafe* signal_safe; List* status_array_pool; int loop_level; bool check_command_sub_status; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(18, sizeof(CommandEvaluator)); } DISALLOW_COPY_AND_ASSIGN(CommandEvaluator) }; } // declare namespace cmd_eval namespace cmd_parse { // declare using id_kind_asdl::Id; using types_asdl::lex_mode_e; using syntax_asdl::loc; extern int TAB_CH; extern int SPACE_CH; Tuple2*>*, Tuple2*> _ReadHereLines(reader::_Reader* line_reader, syntax_asdl::Redir* h, BigStr* delimiter); List* _MakeLiteralHereLines(List*>* here_lines, alloc::Arena* arena, bool do_lossless); void _ParseHereDocBody(parse_lib::ParseContext* parse_ctx, syntax_asdl::Redir* r, reader::_Reader* line_reader, alloc::Arena* arena); syntax_asdl::AssignPair* _MakeAssignPair(parse_lib::ParseContext* parse_ctx, syntax_asdl::ParsedAssignment* preparsed, alloc::Arena* arena); void _AppendMoreEnv(List* preparsed_list, List* more_env); Tuple2*, List*> _SplitSimpleCommandPrefix(List* words); command::Simple* _MakeSimpleCommand(List* preparsed_list, List* suffix_words, syntax_asdl::ArgList* typed_args, syntax_asdl::LiteralBlock* block); class VarChecker { public: VarChecker(); void Push(syntax_asdl::Token* blame_tok); void Pop(); void Check(int keyword_id, BigStr* var_name, syntax_asdl::Token* blame_tok); List* tokens; List*>* names; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(VarChecker)); } DISALLOW_COPY_AND_ASSIGN(VarChecker) }; class ctx_VarChecker { public: ctx_VarChecker(cmd_parse::VarChecker* var_checker, syntax_asdl::Token* blame_tok); ~ctx_VarChecker(); cmd_parse::VarChecker* var_checker; DISALLOW_COPY_AND_ASSIGN(ctx_VarChecker) }; class ctx_CmdMode { public: ctx_CmdMode(cmd_parse::CommandParser* cmd_parse, types_asdl::cmd_mode_t new_cmd_mode); ~ctx_CmdMode(); cmd_parse::CommandParser* cmd_parse; types_asdl::cmd_mode_t prev_cmd_mode; DISALLOW_COPY_AND_ASSIGN(ctx_CmdMode) }; extern List* SECONDARY_KEYWORDS; class CommandParser { public: CommandParser(parse_lib::ParseContext* parse_ctx, optview::Parse* parse_opts, word_parse::WordParser* w_parser, lexer::Lexer* lexer, reader::_Reader* line_reader, int eof_id = Id::Eof_Real); void Init_AliasesInFlight(List*>* aliases_in_flight); void Reset(); void ResetInputObjects(); void _SetNext(); void _SetNextBrack(); void _GetWord(); syntax_asdl::word_t* _Eat(int c_id, BigStr* msg = nullptr); void _NewlineOk(); bool _AtSecondaryKeyword(); syntax_asdl::Redir* ParseRedirect(); List* _ParseRedirectList(); syntax_asdl::command_t* _MaybeParseRedirectList(syntax_asdl::command_t* node); Tuple4*, List*, syntax_asdl::ArgList*, syntax_asdl::LiteralBlock*> _ScanSimpleCommand(); syntax_asdl::command_t* _MaybeExpandAliases(List* words); syntax_asdl::command_t* ParseSimpleCommand(); syntax_asdl::BraceGroup* ParseBraceGroup(); command::DoGroup* ParseDoGroup(); Tuple2*, syntax_asdl::Token*> ParseForWords(); command::ForExpr* _ParseForExprLoop(syntax_asdl::Token* for_kw); command::ForEach* _ParseForEachLoop(syntax_asdl::Token* for_kw); syntax_asdl::command_t* ParseFor(); syntax_asdl::condition_t* _ParseConditionList(); command::WhileUntil* ParseWhileUntil(syntax_asdl::Token* keyword); syntax_asdl::CaseArm* ParseCaseArm(); syntax_asdl::CaseArm* ParseYshCaseArm(int discriminant); command::Case* ParseYshCase(syntax_asdl::Token* case_kw); command::Case* ParseOldCase(syntax_asdl::Token* case_kw); command::Case* ParseCase(); void _ParseYshElifElse(command::If* if_node); command::If* _ParseYshIf(syntax_asdl::Token* if_kw, syntax_asdl::condition_t* cond); void _ParseElifElse(command::If* if_node); command::If* ParseIf(); syntax_asdl::command_t* ParseTime(); syntax_asdl::command_t* ParseCompoundCommand(); command::ShFunction* ParseFunctionDef(); command::ShFunction* ParseKshFunctionDef(); syntax_asdl::Proc* ParseYshProc(); syntax_asdl::Func* ParseYshFunc(); syntax_asdl::command_t* ParseCoproc(); command::Subshell* ParseSubshell(); command::DBracket* ParseDBracket(); command::DParen* ParseDParen(); syntax_asdl::command_t* ParseCommand(); syntax_asdl::command_t* ParsePipeline(); syntax_asdl::command_t* ParseAndOr(); syntax_asdl::command_t* _ParseAndOr(); syntax_asdl::command_t* _ParseCommandLine(); command::CommandList* _ParseCommandTerm(); command::CommandList* _ParseCommandList(); syntax_asdl::command_t* ParseLogicalLine(); syntax_asdl::parse_result_t* ParseInteractiveLine(); syntax_asdl::command_t* ParseCommandSub(); void CheckForPendingHereDocs(); parse_lib::ParseContext* parse_ctx; Dict* aliases; optview::Parse* parse_opts; word_parse::WordParser* w_parser; lexer::Lexer* lexer; reader::_Reader* line_reader; alloc::Arena* arena; List*>* aliases_in_flight; List* hay_attrs_stack; cmd_parse::VarChecker* var_checker; syntax_asdl::word_t* cur_word; List* pending_here_docs; int eof_id; bool allow_block; types_asdl::cmd_mode_t cmd_mode; types_asdl::lex_mode_t next_lex_mode; id_kind_asdl::Kind_t c_kind; int c_id; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(12, sizeof(CommandParser)); } DISALLOW_COPY_AND_ASSIGN(CommandParser) }; } // declare namespace cmd_parse namespace glob_ { // declare using id_kind_asdl::Id; bool LooksLikeGlob(BigStr* s); bool LooksLikeStaticGlob(syntax_asdl::CompoundWord* w); extern BigStr* GLOB_META_CHARS; BigStr* GlobEscape(BigStr* s); extern BigStr* ERE_META_CHARS; BigStr* ExtendedRegexEscape(BigStr* s); BigStr* GlobUnescape(BigStr* s); class _GlobParser { public: _GlobParser(match::SimpleLexer* lexer); void _Next(); List* _ParseCharClass(); Tuple2*, List*> Parse(); match::SimpleLexer* lexer; BigStr* token_val; List* warnings; int token_type; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(_GlobParser)); } DISALLOW_COPY_AND_ASSIGN(_GlobParser) }; extern BigStr* _REGEX_CHARS_TO_ESCAPE; BigStr* _GenerateERE(List* parts); Tuple2*> GlobToERE(BigStr* pat); class Globber { public: Globber(optview::Exec* exec_opts); int _Glob(BigStr* arg, List* out); int Expand(BigStr* arg, List* out); int ExpandExtended(BigStr* glob_pat, BigStr* fnmatch_pat, List* out); optview::Exec* exec_opts; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(Globber)); } DISALLOW_COPY_AND_ASSIGN(Globber) }; } // declare namespace glob_ namespace history { // declare using id_kind_asdl::Id; class Evaluator { public: Evaluator(py_readline::Readline* readline, parse_lib::ParseContext* parse_ctx, util::_DebugFile* debug_f); BigStr* Eval(BigStr* line); py_readline::Readline* readline; parse_lib::ParseContext* parse_ctx; util::_DebugFile* debug_f; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(Evaluator)); } DISALLOW_COPY_AND_ASSIGN(Evaluator) }; } // declare namespace history namespace prompt { // declare using id_kind_asdl::Id; using syntax_asdl::loc; extern BigStr* _ERROR_FMT; extern BigStr* _UNBALANCED_ERROR; class _PromptEvaluatorCache { public: _PromptEvaluatorCache(); int _GetEuid(); BigStr* Get(BigStr* name); Dict* cache; int euid; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(_PromptEvaluatorCache)); } DISALLOW_COPY_AND_ASSIGN(_PromptEvaluatorCache) }; class Evaluator { public: Evaluator(BigStr* lang, BigStr* version_str, parse_lib::ParseContext* parse_ctx, state::Mem* mem); void CheckCircularDeps(); BigStr* PromptVal(BigStr* what); BigStr* PromptSubst(BigStr* ch, BigStr* arg = nullptr); BigStr* _ReplaceBackslashCodes(List*>* tokens); BigStr* EvalPrompt(value_asdl::value_t* UP_val); BigStr* EvalFirstPrompt(); word_eval::AbstractWordEvaluator* word_ev; expr_eval::ExprEvaluator* expr_ev; value::IO* global_io; BigStr* lang; BigStr* version_str; parse_lib::ParseContext* parse_ctx; state::Mem* mem; prompt::_PromptEvaluatorCache* cache; Dict*>*>* tokens_cache; Dict* parse_cache; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(10, sizeof(Evaluator)); } DISALLOW_COPY_AND_ASSIGN(Evaluator) }; extern BigStr* PROMPT_COMMAND; class UserPlugin { public: UserPlugin(state::Mem* mem, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt); void Run(); state::Mem* mem; parse_lib::ParseContext* parse_ctx; cmd_eval::CommandEvaluator* cmd_ev; ui::ErrorFormatter* errfmt; alloc::Arena* arena; Dict* parse_cache; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(6, sizeof(UserPlugin)); } DISALLOW_COPY_AND_ASSIGN(UserPlugin) }; } // declare namespace prompt namespace sh_expr_eval { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using value_asdl::sh_lvalue; value_asdl::value_t* OldValue(value_asdl::sh_lvalue_t* lval, state::Mem* mem, optview::Exec* exec_opts); class UnsafeArith { public: UnsafeArith(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, sh_expr_eval::ArithEvaluator* arith_ev, ui::ErrorFormatter* errfmt); value_asdl::sh_lvalue_t* ParseLValue(BigStr* s, syntax_asdl::loc_t* location); syntax_asdl::BracedVarSub* ParseVarRef(BigStr* ref_str, syntax_asdl::Token* blame_tok); state::Mem* mem; optview::Exec* exec_opts; state::MutableOpts* mutable_opts; parse_lib::ParseContext* parse_ctx; sh_expr_eval::ArithEvaluator* arith_ev; ui::ErrorFormatter* errfmt; alloc::Arena* arena; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(7, sizeof(UnsafeArith)); } DISALLOW_COPY_AND_ASSIGN(UnsafeArith) }; class ArithEvaluator { public: ArithEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt); void CheckCircularDeps(); mops::BigInt _StringToBigInt(BigStr* s, syntax_asdl::loc_t* blame_loc); mops::BigInt _ValToIntOrError(value_asdl::value_t* val, syntax_asdl::arith_expr_t* blame); Tuple2 _EvalLhsAndLookupArith(syntax_asdl::arith_expr_t* node); void _Store(value_asdl::sh_lvalue_t* lval, mops::BigInt new_int); mops::BigInt EvalToBigInt(syntax_asdl::arith_expr_t* node); int EvalToInt(syntax_asdl::arith_expr_t* node); value_asdl::value_t* Eval(syntax_asdl::arith_expr_t* node); BigStr* EvalWordToString(syntax_asdl::arith_expr_t* node, syntax_asdl::loc_t* blame_loc = loc::Missing); value_asdl::sh_lvalue_t* EvalShellLhs(syntax_asdl::sh_lhs_t* node, runtime_asdl::scope_t which_scopes); Tuple2 _VarNameOrWord(syntax_asdl::arith_expr_t* anode); value_asdl::sh_lvalue_t* EvalArithLhs(syntax_asdl::arith_expr_t* anode); ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; state::Mem* mem; state::MutableOpts* mutable_opts; parse_lib::ParseContext* parse_ctx; word_eval::StringWordEvaluator* word_ev; static constexpr uint32_t field_mask() { return maskbit(offsetof(ArithEvaluator, errfmt)) | maskbit(offsetof(ArithEvaluator, exec_opts)) | maskbit(offsetof(ArithEvaluator, mem)) | maskbit(offsetof(ArithEvaluator, mutable_opts)) | maskbit(offsetof(ArithEvaluator, parse_ctx)) | maskbit(offsetof(ArithEvaluator, word_ev)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ArithEvaluator)); } DISALLOW_COPY_AND_ASSIGN(ArithEvaluator) }; class BoolEvaluator : public ::sh_expr_eval::ArithEvaluator { public: BoolEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt, bool always_strict = false); bool _IsDefined(BigStr* s, syntax_asdl::loc_t* blame_loc); mops::BigInt _StringToBigIntOrError(BigStr* s, syntax_asdl::word_t* blame_word = nullptr); BigStr* _EvalCompoundWord(syntax_asdl::word_t* word, int eval_flags = 0); bool EvalB(syntax_asdl::bool_expr_t* node); bool always_strict; static constexpr uint32_t field_mask() { return ::sh_expr_eval::ArithEvaluator::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(BoolEvaluator)); } DISALLOW_COPY_AND_ASSIGN(BoolEvaluator) }; } // declare namespace sh_expr_eval namespace split { // declare using runtime_asdl::scope_e; extern BigStr* DEFAULT_IFS; List* _SpansToParts(BigStr* s, List*>* spans); class SplitContext { public: SplitContext(state::Mem* mem); split::IfsSplitter* _GetSplitter(BigStr* ifs = nullptr); BigStr* GetJoinChar(); BigStr* Escape(BigStr* s); List* SplitForWordEval(BigStr* s, BigStr* ifs = nullptr); List*>* SplitForRead(BigStr* line, bool allow_escape, bool do_split); state::Mem* mem; Dict* splitters; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(SplitContext)); } DISALLOW_COPY_AND_ASSIGN(SplitContext) }; class _BaseSplitter { public: _BaseSplitter(BigStr* escape_chars); BigStr* Escape(BigStr* s); BigStr* escape_chars; static constexpr uint32_t field_mask() { return maskbit(offsetof(_BaseSplitter, escape_chars)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_BaseSplitter)); } DISALLOW_COPY_AND_ASSIGN(_BaseSplitter) }; class IfsSplitter : public ::split::_BaseSplitter { public: IfsSplitter(BigStr* ifs_whitespace, BigStr* ifs_other); List*>* Split(BigStr* s, bool allow_escape); BigStr* ifs_other; BigStr* ifs_whitespace; static constexpr uint32_t field_mask() { return ::split::_BaseSplitter::field_mask() | maskbit(offsetof(IfsSplitter, ifs_other)) | maskbit(offsetof(IfsSplitter, ifs_whitespace)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(IfsSplitter)); } DISALLOW_COPY_AND_ASSIGN(IfsSplitter) }; } // declare namespace split namespace string_ops { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::suffix_op; extern int UTF8_ERR_OVERLONG; extern int UTF8_ERR_SURROGATE; extern int UTF8_ERR_TOO_LARGE; extern int UTF8_ERR_BAD_ENCODING; extern int UTF8_ERR_TRUNCATED_BYTES; BigStr* Utf8Error_str(int error); int DecodeUtf8Char(BigStr* s, int start); int NextUtf8Char(BigStr* s, int i); extern BigStr* _INVALID_START; int _Utf8CharLen(int starting_byte); int PreviousUtf8Char(BigStr* s, int i); int CountUtf8Chars(BigStr* s); int AdvanceUtf8Chars(BigStr* s, int num_chars, int byte_offset); extern List* SPACES; bool _IsSpace(int codepoint); Tuple2 StartsWithWhitespaceByteRange(BigStr* s); Tuple2 EndsWithWhitespaceByteRange(BigStr* s); BigStr* DoUnarySuffixOp(BigStr* s, syntax_asdl::Token* op_tok, BigStr* arg, bool is_extglob); List*>* _AllMatchPositions(BigStr* s, BigStr* regex); BigStr* _PatSubAll(BigStr* s, BigStr* regex, BigStr* replace_str); class GlobReplacer { public: GlobReplacer(BigStr* regex, BigStr* replace_str, syntax_asdl::Token* slash_tok); BigStr* Replace(BigStr* s, suffix_op::PatSub* op); BigStr* regex; BigStr* replace_str; syntax_asdl::Token* slash_tok; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(GlobReplacer)); } DISALLOW_COPY_AND_ASSIGN(GlobReplacer) }; BigStr* ShellQuoteB(BigStr* s); } // declare namespace string_ops namespace tdop { // declare using id_kind_asdl::Id; using syntax_asdl::loc; bool IsIndexable(syntax_asdl::arith_expr_t* node); void CheckLhsExpr(syntax_asdl::arith_expr_t* node, syntax_asdl::word_t* blame_word); syntax_asdl::arith_expr_t* NullError(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp); syntax_asdl::arith_expr_t* NullConstant(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp); syntax_asdl::arith_expr_t* NullParen(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp); syntax_asdl::arith_expr_t* NullPrefixOp(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp); syntax_asdl::arith_expr_t* LeftError(tdop::TdopParser* p, syntax_asdl::word_t* t, syntax_asdl::arith_expr_t* left, int rbp); syntax_asdl::arith_expr_t* LeftBinaryOp(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp); syntax_asdl::arith_expr_t* LeftAssign(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp); class TdopParser { public: TdopParser(tdop::ParserSpec* spec, word_parse::WordParser* w_parser, optview::Parse* parse_opts); int CurrentId(); bool AtToken(int token_type); void Eat(int token_type); bool Next(); syntax_asdl::arith_expr_t* ParseUntil(int rbp); syntax_asdl::arith_expr_t* Parse(); tdop::ParserSpec* spec; word_parse::WordParser* w_parser; optview::Parse* parse_opts; syntax_asdl::word_t* cur_word; int op_id; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(TdopParser)); } DISALLOW_COPY_AND_ASSIGN(TdopParser) }; } // declare namespace tdop namespace word_ { // declare using id_kind_asdl::Id; using syntax_asdl::word; using syntax_asdl::word_part; int LiteralId(syntax_asdl::word_part_t* p); Tuple3 _EvalWordPart(syntax_asdl::word_part_t* part); BigStr* FastStrEval(syntax_asdl::CompoundWord* w); Tuple3 StaticEval(syntax_asdl::word_t* UP_w); syntax_asdl::CompoundWord* TildeDetect(syntax_asdl::word_t* UP_w); syntax_asdl::CompoundWord* TildeDetect2(syntax_asdl::CompoundWord* w); void TildeDetectAssign(syntax_asdl::CompoundWord* w); List* TildeDetectAll(List* words); bool HasArrayPart(syntax_asdl::CompoundWord* w); BigStr* ShFunctionName(syntax_asdl::CompoundWord* w); syntax_asdl::Token* LooksLikeArithVar(syntax_asdl::word_t* UP_w); bool IsVarLike(syntax_asdl::CompoundWord* w); Tuple3 DetectShAssignment(syntax_asdl::CompoundWord* w); syntax_asdl::AssocPair* DetectAssocPair(syntax_asdl::CompoundWord* w); Tuple2 IsControlFlow(syntax_asdl::CompoundWord* w); syntax_asdl::Token* LiteralToken(syntax_asdl::word_t* UP_w); syntax_asdl::Token* BraceToken(syntax_asdl::word_t* UP_w); syntax_asdl::Token* AsKeywordToken(syntax_asdl::word_t* UP_w); syntax_asdl::Token* AsOperatorToken(syntax_asdl::word_t* word); int ArithId(syntax_asdl::word_t* w); int BoolId(syntax_asdl::word_t* w); int CommandId(syntax_asdl::word_t* w); id_kind_asdl::Kind_t CommandKind(syntax_asdl::word_t* w); bool IsVarSub(syntax_asdl::word_t* w); syntax_asdl::CompoundWord* ErrorWord(BigStr* error_str); BigStr* Pretty(syntax_asdl::word_t* w); class ctx_EmitDocToken { public: ctx_EmitDocToken(word_parse::WordParser* w_parser); ~ctx_EmitDocToken(); word_parse::WordParser* w_parser; DISALLOW_COPY_AND_ASSIGN(ctx_EmitDocToken) }; class ctx_Multiline { public: ctx_Multiline(word_parse::WordParser* w_parser); ~ctx_Multiline(); word_parse::WordParser* w_parser; DISALLOW_COPY_AND_ASSIGN(ctx_Multiline) }; } // declare namespace word_ namespace word_compile { // declare using id_kind_asdl::Id; syntax_asdl::CharCode* EvalCharLiteralForRegex(syntax_asdl::Token* tok); BigStr* EvalCStringToken(int id_, BigStr* value); BigStr* EvalSingleQuoted(int id_, List* tokens); bool _TokenConsistsOf(syntax_asdl::Token* tok, BigStr* byte_set); bool _IsLeadingSpace(syntax_asdl::Token* tok); bool _IsTrailingSpace(syntax_asdl::Token* tok); void RemoveLeadingSpaceDQ(List* parts); void RemoveLeadingSpaceSQ(List* tokens); } // declare namespace word_compile namespace word_eval { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::suffix_op; using syntax_asdl::word_part; using runtime_asdl::part_value; using runtime_asdl::cmd_value; using value_asdl::sh_lvalue; extern int QUOTED; extern int IS_SUBST; extern int EXTGLOB_FILES; extern int EXTGLOB_MATCH; extern int EXTGLOB_NESTED; extern int QUOTE_FNMATCH; extern int QUOTE_ERE; extern List* _STRING_AND_ARRAY; bool ShouldArrayDecay(BigStr* var_name, optview::Exec* exec_opts, bool is_plain_var_sub = true); value_asdl::value_t* DecayArray(value_asdl::value_t* val); BigStr* GetArrayItem(List* strs, int index); bool _DetectMetaBuiltinStr(BigStr* s); bool _DetectMetaBuiltin(runtime_asdl::part_value_t* val0); runtime_asdl::AssignArg* _SplitAssignArg(BigStr* arg, syntax_asdl::CompoundWord* blame_word); BigStr* _BackslashEscape(BigStr* s); runtime_asdl::part_value_t* _ValueToPartValue(value_asdl::value_t* val, bool quoted, syntax_asdl::word_part_t* part_loc); List*>* _MakeWordFrames(List* part_vals); BigStr* _DecayPartValuesToString(List* part_vals, BigStr* join_char); value_asdl::value_t* _PerformSlice(value_asdl::value_t* val, int begin, int length, bool has_length, syntax_asdl::BracedVarSub* part, value::Str* arg0_val); class StringWordEvaluator { public: StringWordEvaluator(); virtual value::Str* EvalWordToString(syntax_asdl::word_t* w, int eval_flags = 0); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(StringWordEvaluator)); } DISALLOW_COPY_AND_ASSIGN(StringWordEvaluator) }; BigStr* _GetDollarHyphen(optview::Exec* exec_opts); class TildeEvaluator { public: TildeEvaluator(state::Mem* mem, optview::Exec* exec_opts); BigStr* GetMyHomeDir(); BigStr* Eval(word_part::TildeSub* part); state::Mem* mem; optview::Exec* exec_opts; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(TildeEvaluator)); } DISALLOW_COPY_AND_ASSIGN(TildeEvaluator) }; class AbstractWordEvaluator : public ::word_eval::StringWordEvaluator { public: AbstractWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt); virtual void CheckCircularDeps(); virtual runtime_asdl::part_value_t* _EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted); virtual runtime_asdl::part_value_t* _EvalProcessSub(syntax_asdl::CommandSub* cs_part); value_asdl::value_t* _EvalVarNum(int var_num); value_asdl::value_t* _EvalSpecialVar(int op_id, bool quoted, runtime_asdl::VarSubState* vsub_state); bool _ApplyTestOp(value_asdl::value_t* val, suffix_op::Unary* op, bool quoted, List* part_vals, runtime_asdl::VTestPlace* vtest_place, syntax_asdl::Token* blame_token); int _Length(value_asdl::value_t* val, syntax_asdl::Token* token); value_asdl::value_t* _Keys(value_asdl::value_t* val, syntax_asdl::Token* token); value_asdl::value_t* _EvalVarRef(value_asdl::value_t* val, syntax_asdl::Token* blame_tok, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place); value_asdl::value_t* _ApplyUnarySuffixOp(value_asdl::value_t* val, suffix_op::Unary* op); value_asdl::value_t* _PatSub(value_asdl::value_t* val, suffix_op::PatSub* op); value_asdl::value_t* _Slice(value_asdl::value_t* val, suffix_op::Slice* op, BigStr* var_name, syntax_asdl::BracedVarSub* part); Tuple2 _Nullary(value_asdl::value_t* val, syntax_asdl::Token* op, BigStr* var_name); value_asdl::value_t* _WholeArray(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state); value_asdl::value_t* _ArrayIndex(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, runtime_asdl::VTestPlace* vtest_place); void _EvalDoubleQuoted(List* parts, List* part_vals); BigStr* EvalDoubleQuotedToString(syntax_asdl::DoubleQuoted* dq_part); value::Str* _DecayArray(value::BashArray* val); value_asdl::value_t* _EmptyStrOrError(value_asdl::value_t* val, syntax_asdl::Token* token); value_asdl::value_t* _EmptyBashArrayOrError(syntax_asdl::Token* token); value_asdl::value_t* _EvalBracketOp(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place); value_asdl::value_t* _VarRefValue(syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place); void _EvalBracedVarSub(syntax_asdl::BracedVarSub* part, List* part_vals, bool quoted); BigStr* _ConcatPartVals(List* part_vals, syntax_asdl::loc_t* location); BigStr* EvalBracedVarSubToString(syntax_asdl::BracedVarSub* part); void _EvalSimpleVarSub(syntax_asdl::SimpleVarSub* part, List* part_vals, bool quoted); BigStr* EvalSimpleVarSubToString(syntax_asdl::SimpleVarSub* node); void _EvalExtGlob(word_part::ExtGlob* part, List* part_vals); void _TranslateExtGlob(List* part_vals, syntax_asdl::CompoundWord* w, List* glob_parts, List* fnmatch_parts); void _EvalWordPart(syntax_asdl::word_part_t* part, List* part_vals, int flags); void _EvalRhsWordToParts(syntax_asdl::rhs_word_t* w, List* part_vals, int eval_flags = 0); void _EvalWordToParts(syntax_asdl::CompoundWord* w, List* part_vals, int eval_flags = 0); void _PartValsToString(List* part_vals, syntax_asdl::CompoundWord* w, int eval_flags, List* strs); virtual value::Str* EvalWordToString(syntax_asdl::word_t* UP_w, int eval_flags = 0); Tuple2 EvalWordToPattern(syntax_asdl::rhs_word_t* UP_w); value::Str* EvalForPlugin(syntax_asdl::CompoundWord* w); value_asdl::value_t* EvalRhsWord(syntax_asdl::rhs_word_t* UP_w); void _EvalWordFrame(List* frame, List* argv); List* _EvalWordToArgv(syntax_asdl::CompoundWord* w); cmd_value::Assign* _EvalAssignBuiltin(int builtin_id, BigStr* arg0, List* words, int meta_offset); cmd_value::Assign* _DetectAssignBuiltinStr(BigStr* arg0, List* words, int meta_offset); cmd_value::Assign* _DetectAssignBuiltin(runtime_asdl::part_value_t* val0, List* words, int meta_offset); runtime_asdl::cmd_value_t* SimpleEvalWordSequence2(List* words, bool allow_assign); runtime_asdl::cmd_value_t* EvalWordSequence2(List* words, bool allow_assign = false); List* EvalWordSequence(List* words); sh_expr_eval::ArithEvaluator* arith_ev; ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; expr_eval::ExprEvaluator* expr_ev; glob_::Globber* globber; state::Mem* mem; state::MutableOpts* mutable_opts; prompt::Evaluator* prompt_ev; split::SplitContext* splitter; word_eval::TildeEvaluator* tilde_ev; sh_expr_eval::UnsafeArith* unsafe_arith; static constexpr uint32_t field_mask() { return ::word_eval::StringWordEvaluator::field_mask() | maskbit(offsetof(AbstractWordEvaluator, arith_ev)) | maskbit(offsetof(AbstractWordEvaluator, errfmt)) | maskbit(offsetof(AbstractWordEvaluator, exec_opts)) | maskbit(offsetof(AbstractWordEvaluator, expr_ev)) | maskbit(offsetof(AbstractWordEvaluator, globber)) | maskbit(offsetof(AbstractWordEvaluator, mem)) | maskbit(offsetof(AbstractWordEvaluator, mutable_opts)) | maskbit(offsetof(AbstractWordEvaluator, prompt_ev)) | maskbit(offsetof(AbstractWordEvaluator, splitter)) | maskbit(offsetof(AbstractWordEvaluator, tilde_ev)) | maskbit(offsetof(AbstractWordEvaluator, unsafe_arith)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(AbstractWordEvaluator)); } DISALLOW_COPY_AND_ASSIGN(AbstractWordEvaluator) }; class NormalWordEvaluator : public ::word_eval::AbstractWordEvaluator { public: NormalWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt); virtual void CheckCircularDeps(); virtual runtime_asdl::part_value_t* _EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted); virtual runtime_asdl::Piece* _EvalProcessSub(syntax_asdl::CommandSub* cs_part); vm::_Executor* shell_ex; static constexpr uint32_t field_mask() { return ::word_eval::AbstractWordEvaluator::field_mask() | maskbit(offsetof(NormalWordEvaluator, shell_ex)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(NormalWordEvaluator)); } DISALLOW_COPY_AND_ASSIGN(NormalWordEvaluator) }; extern BigStr* _DUMMY; class CompletionWordEvaluator : public ::word_eval::AbstractWordEvaluator { public: CompletionWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt); virtual void CheckCircularDeps(); virtual runtime_asdl::part_value_t* _EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted); virtual runtime_asdl::Piece* _EvalProcessSub(syntax_asdl::CommandSub* cs_part); static constexpr uint32_t field_mask() { return ::word_eval::AbstractWordEvaluator::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompletionWordEvaluator)); } DISALLOW_COPY_AND_ASSIGN(CompletionWordEvaluator) }; } // declare namespace word_eval namespace word_parse { // declare using id_kind_asdl::Id; using types_asdl::lex_mode_e; using syntax_asdl::loc; using syntax_asdl::suffix_op; using syntax_asdl::word_part; extern List* KINDS_THAT_END_WORDS; class WordEmitter { public: WordEmitter(); virtual syntax_asdl::word_t* ReadWord(types_asdl::lex_mode_t lex_mode); static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(WordEmitter)); } DISALLOW_COPY_AND_ASSIGN(WordEmitter) }; class WordParser : public ::word_parse::WordEmitter { public: WordParser(parse_lib::ParseContext* parse_ctx, lexer::Lexer* lexer, reader::_Reader* line_reader); void Init(types_asdl::lex_mode_t lex_mode); void Reset(); void _GetToken(); void _SetNext(types_asdl::lex_mode_t lex_mode); syntax_asdl::rhs_word_t* _ReadVarOpArg(types_asdl::lex_mode_t arg_lex_mode); syntax_asdl::CompoundWord* _ReadVarOpArg2(types_asdl::lex_mode_t arg_lex_mode, int eof_type, bool empty_ok); suffix_op::Slice* _ReadSliceVarOp(); suffix_op::PatSub* _ReadPatSubVarOp(); syntax_asdl::bracket_op_t* _ReadSubscript(); syntax_asdl::BracedVarSub* _ParseVarOf(); syntax_asdl::BracedVarSub* _ParseVarExpr(types_asdl::lex_mode_t arg_lex_mode, bool allow_query = false); word_part::ZshVarSub* _ReadZshVarSub(syntax_asdl::Token* left_token); Tuple2 ReadBracedVarSub(syntax_asdl::Token* left_token); syntax_asdl::BracedVarSub* _ReadBracedVarSub(syntax_asdl::Token* left_token, bool d_quoted); syntax_asdl::SingleQuoted* _ReadSingleQuoted(syntax_asdl::Token* left_token, types_asdl::lex_mode_t lex_mode); syntax_asdl::Token* ReadSingleQuoted(types_asdl::lex_mode_t lex_mode, syntax_asdl::Token* left_token, List* out_tokens, bool is_ysh_expr); syntax_asdl::word_part_t* _ReadDoubleQuotedLeftParts(); syntax_asdl::CompoundWord* _ReadYshSingleQuoted(int left_id); syntax_asdl::word_part_t* _ReadUnquotedLeftParts(syntax_asdl::BoolParamBox* triple_out); word_part::ExtGlob* _ReadExtGlob(); word_part::BashRegexGroup* _ReadBashRegexGroup(); void _ReadLikeDQ(syntax_asdl::Token* left_token, bool is_ysh_expr, List* out_parts); syntax_asdl::DoubleQuoted* _ReadDoubleQuoted(syntax_asdl::Token* left_token); syntax_asdl::Token* ReadDoubleQuoted(syntax_asdl::Token* left_token, List* parts); syntax_asdl::CommandSub* _ReadCommandSub(int left_id, bool d_quoted = false); word_part::ExprSub* _ReadExprSub(types_asdl::lex_mode_t lex_mode); command::VarDecl* ParseVarDecl(syntax_asdl::Token* kw_token); command::Mutation* ParseMutation(syntax_asdl::Token* kw_token, cmd_parse::VarChecker* var_checker); syntax_asdl::expr_t* ParseBareDecl(); syntax_asdl::expr_t* ParseYshExprForCommand(); syntax_asdl::expr_t* ParseCommandExpr(); void ParseProc(syntax_asdl::Proc* node); void ParseFunc(syntax_asdl::Func* node); Tuple2 ParseYshCasePattern(); int NewlineOkForYshCase(); syntax_asdl::arith_expr_t* _ReadArithExpr(int end_id); word_part::ArithSub* _ReadArithSub(); Tuple2 ReadDParen(); void _NextNonSpace(); command::ForExpr* ReadForExpression(); syntax_asdl::word_part_t* _ReadArrayLiteral(); syntax_asdl::ArgList* ParseProcCallArgs(int start_symbol); bool _MaybeReadWordPart(bool is_first, types_asdl::lex_mode_t lex_mode, List* parts); syntax_asdl::CompoundWord* _ReadCompoundWord(types_asdl::lex_mode_t lex_mode); syntax_asdl::CompoundWord* _ReadCompoundWord3(types_asdl::lex_mode_t lex_mode, int eof_type, bool empty_ok); syntax_asdl::word_t* _ReadArithWord(); syntax_asdl::word_t* _ReadWord(types_asdl::lex_mode_t word_mode); syntax_asdl::BracedVarSub* ParseVarRef(); int LookPastSpace(); bool LookAheadFuncParens(); virtual syntax_asdl::word_t* ReadWord(types_asdl::lex_mode_t word_mode); syntax_asdl::word_t* ReadArithWord(); void ReadHereDocBody(List* parts); syntax_asdl::CompoundWord* ReadForPlugin(); void EmitDocToken(bool b); void Multiline(bool b); tdop::TdopParser* a_parser; alloc::Arena* arena; syntax_asdl::word_t* buffered_word; syntax_asdl::Token* cur_token; bool emit_doc_token; lexer::Lexer* lexer; reader::_Reader* line_reader; bool multiline; int newline_state; types_asdl::lex_mode_t next_lex_mode; parse_lib::ParseContext* parse_ctx; optview::Parse* parse_opts; bool returned_newline; id_kind_asdl::Kind_t token_kind; int token_type; static constexpr uint32_t field_mask() { return ::word_parse::WordEmitter::field_mask() | maskbit(offsetof(WordParser, a_parser)) | maskbit(offsetof(WordParser, arena)) | maskbit(offsetof(WordParser, buffered_word)) | maskbit(offsetof(WordParser, cur_token)) | maskbit(offsetof(WordParser, lexer)) | maskbit(offsetof(WordParser, line_reader)) | maskbit(offsetof(WordParser, parse_ctx)) | maskbit(offsetof(WordParser, parse_opts)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(WordParser)); } DISALLOW_COPY_AND_ASSIGN(WordParser) }; } // declare namespace word_parse namespace parse { // declare extern int NT_OFFSET; class ParseError { public: ParseError(BigStr* msg, int type_, syntax_asdl::Token* tok); BigStr* msg; syntax_asdl::Token* tok; int type; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(ParseError)); } DISALLOW_COPY_AND_ASSIGN(ParseError) }; class _StackItem { public: _StackItem(Tuple2*>*>*, Dict*>* dfa, int state, pnode::PNode* node); Tuple2*>*>*, Dict*>* dfa; pnode::PNode* node; int state; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(_StackItem)); } DISALLOW_COPY_AND_ASSIGN(_StackItem) }; class Parser { public: Parser(grammar::Grammar* grammar); void setup(int start, pnode::PNodeAllocator* pnode_alloc); bool addtoken(int typ, syntax_asdl::Token* opaque, int ilabel); void shift(int typ, syntax_asdl::Token* opaque, int newstate); void push(int typ, syntax_asdl::Token* opaque, Tuple2*>*>*, Dict*>* newdfa, int newstate); void pop(); grammar::Grammar* grammar; pnode::PNode* rootnode; List* stack; pnode::PNodeAllocator* pnode_alloc; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(Parser)); } DISALLOW_COPY_AND_ASSIGN(Parser) }; } // declare namespace parse namespace cgi { // declare BigStr* escape(BigStr* s); } // declare namespace cgi namespace os_path { // declare extern BigStr* extsep; extern BigStr* sep; BigStr* join(BigStr* s1, BigStr* s2); Tuple2 split(BigStr* p); Tuple2 _splitext(BigStr* p, BigStr* sep, BigStr* extsep); Tuple2 splitext(BigStr* p); BigStr* basename(BigStr* p); BigStr* dirname(BigStr* p); BigStr* normpath(BigStr* path); bool isabs(BigStr* s); BigStr* abspath(BigStr* path); } // declare namespace os_path namespace fmt { // declare void Format(alloc::Arena* arena, syntax_asdl::command_t* node); } // declare namespace fmt namespace ysh_ify { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::word_part; class Cursor { public: Cursor(alloc::Arena* arena, mylib::Writer* f); void _PrintUntilSpid(int until_span_id); void _SkipUntilSpid(int next_span_id); void SkipUntil(syntax_asdl::Token* tok); void SkipPast(syntax_asdl::Token* tok); void PrintUntil(syntax_asdl::Token* tok); void PrintIncluding(syntax_asdl::Token* tok); void PrintUntilEnd(); alloc::Arena* arena; mylib::Writer* f; int next_span_id; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(2, sizeof(Cursor)); } DISALLOW_COPY_AND_ASSIGN(Cursor) }; void LosslessCat(alloc::Arena* arena); void PrintTokens(alloc::Arena* arena); void Ysh_ify(alloc::Arena* arena, syntax_asdl::command_t* node); runtime_asdl::word_style_t _GetRhsStyle(syntax_asdl::rhs_word_t* w); class YshPrinter { public: YshPrinter(ysh_ify::Cursor* cursor, alloc::Arena* arena, mylib::Writer* f); void _DebugSpid(int spid); void End(); void DoRedirect(syntax_asdl::Redir* node, Dict* local_symbols); void DoShAssignment(command::ShAssignment* node, bool at_top_level, Dict* local_symbols); void _DoSimple(command::Simple* node, Dict* local_symbols); void DoCommand(syntax_asdl::command_t* node, Dict* local_symbols, bool at_top_level = false); void DoRhsWord(syntax_asdl::rhs_word_t* node, Dict* local_symbols); void DoWordInCommand(syntax_asdl::word_t* node, Dict* local_symbols); void DoWordPart(syntax_asdl::word_part_t* node, Dict* local_symbols, bool quoted = false); ysh_ify::Cursor* cursor; alloc::Arena* arena; mylib::Writer* f; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(3, sizeof(YshPrinter)); } DISALLOW_COPY_AND_ASSIGN(YshPrinter) }; } // declare namespace ysh_ify namespace expr_eval { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::word_part; using runtime_asdl::scope_e; using runtime_asdl::part_value; value_asdl::value_t* LookupVar(state::Mem* mem, BigStr* var_name, runtime_asdl::scope_t which_scopes, syntax_asdl::loc_t* var_loc); mops::BigInt _ConvertToInt(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); Tuple3 _ConvertToNumber(value_asdl::value_t* val); Tuple5 _ConvertForBinaryOp(value_asdl::value_t* left, value_asdl::value_t* right); class ExprEvaluator { public: ExprEvaluator(state::Mem* mem, state::MutableOpts* mutable_opts, Dict*>* methods, split::SplitContext* splitter, ui::ErrorFormatter* errfmt); void CheckCircularDeps(); value_asdl::value_t* _LookupVar(BigStr* name, syntax_asdl::loc_t* var_loc); void EvalAugmented(value_asdl::y_lvalue_t* lval, value_asdl::value_t* rhs_val, syntax_asdl::Token* op, runtime_asdl::scope_t which_scopes); value_asdl::value_t* _EvalLeftLocalOrGlobal(syntax_asdl::expr_t* lhs, runtime_asdl::scope_t which_scopes); value_asdl::y_lvalue_t* _EvalLhsExpr(syntax_asdl::y_lhs_t* lhs, runtime_asdl::scope_t which_scopes); value_asdl::value_t* EvalExpr(syntax_asdl::expr_t* node, syntax_asdl::loc_t* blame_loc); value_asdl::y_lvalue_t* EvalLhsExpr(syntax_asdl::y_lhs_t* lhs, runtime_asdl::scope_t which_scopes); runtime_asdl::part_value_t* EvalExprSub(word_part::ExprSub* part); value_asdl::value_t* PluginCall(value::Func* func_val, List* pos_args); value_asdl::value_t* CallConvertFunc(value_asdl::value_t* func_val, value_asdl::value_t* arg, syntax_asdl::Token* convert_tok, syntax_asdl::loc_t* call_loc); List* SpliceValue(value_asdl::value_t* val, word_part::Splice* part); value_asdl::value_t* _EvalConst(expr::Const* node); value_asdl::value_t* _EvalUnary(expr::Unary* node); value_asdl::value_t* _ArithIntFloat(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op); value_asdl::value_t* _ArithIntOnly(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op); value_asdl::value_t* _Concat(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op); value_asdl::value_t* _EvalBinary(expr::Binary* node); bool _CompareNumeric(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op); value_asdl::value_t* _EvalCompare(expr::Compare* node); value_asdl::value_t* _CallFunc(value_asdl::value_t* to_call, typed_args::Reader* rd); value_asdl::value_t* _EvalFuncCall(expr::FuncCall* node); value_asdl::value_t* _EvalSubscript(value_asdl::value_t* obj, value_asdl::value_t* index); value_asdl::value_t* _EvalDot(syntax_asdl::Attribute* node, value_asdl::value_t* obj); value_asdl::value_t* _EvalAttribute(syntax_asdl::Attribute* node); value_asdl::value_t* _EvalExpr(syntax_asdl::expr_t* node); value::Eggex* EvalEggex(syntax_asdl::Eggex* node); vm::_Executor* shell_ex; cmd_eval::CommandEvaluator* cmd_ev; word_eval::AbstractWordEvaluator* word_ev; state::Mem* mem; state::MutableOpts* mutable_opts; Dict*>* methods; split::SplitContext* splitter; ui::ErrorFormatter* errfmt; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(8, sizeof(ExprEvaluator)); } DISALLOW_COPY_AND_ASSIGN(ExprEvaluator) }; class EggexEvaluator { public: EggexEvaluator(state::Mem* mem, BigStr* canonical_flags); value_asdl::value_t* _LookupVar(BigStr* name, syntax_asdl::loc_t* var_loc); void _EvalClassLiteralTerm(syntax_asdl::class_literal_term_t* term, List* out); syntax_asdl::re_t* EvalE(syntax_asdl::re_t* node); state::Mem* mem; BigStr* canonical_flags; List* convert_funcs; List* convert_toks; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(EggexEvaluator)); } DISALLOW_COPY_AND_ASSIGN(EggexEvaluator) }; } // declare namespace expr_eval namespace expr_parse { // declare using syntax_asdl::loc; using id_kind_asdl::Id; using types_asdl::lex_mode_e; int _Classify(grammar::Grammar* gr, syntax_asdl::Token* tok); extern Dict* _OTHER_BALANCE; syntax_asdl::Token* _PushYshTokens(parse_lib::ParseContext* parse_ctx, grammar::Grammar* gr, parse::Parser* p, lexer::Lexer* lex); class ExprParser { public: ExprParser(parse_lib::ParseContext* parse_ctx, grammar::Grammar* gr); Tuple2 Parse(lexer::Lexer* lexer, int start_symbol); parse_lib::ParseContext* parse_ctx; grammar::Grammar* gr; parse::Parser* push_parser; pnode::PNodeAllocator* pnode_alloc; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(ExprParser)); } DISALLOW_COPY_AND_ASSIGN(ExprParser) }; class ctx_PNodeAllocator { public: ctx_PNodeAllocator(expr_parse::ExprParser* ep); ~ctx_PNodeAllocator(); expr_parse::ExprParser* expr_parser; DISALLOW_COPY_AND_ASSIGN(ctx_PNodeAllocator) }; } // declare namespace expr_parse namespace expr_to_ast { // declare using id_kind_asdl::Id; using syntax_asdl::loc; extern Dict* PERL_CLASSES; extern List* POSIX_CLASSES; extern BigStr* RANGE_POINT_TOO_LONG; extern BigStr* POS_ARG_MISPLACED; extern int NT_OFFSET; class Transformer { public: Transformer(grammar::Grammar* gr); syntax_asdl::expr_t* _LeftAssoc(pnode::PNode* p_node); syntax_asdl::expr_t* _Trailer(syntax_asdl::expr_t* base, pnode::PNode* p_trailer); Tuple2 _DictPair(pnode::PNode* p_node); expr::Dict* _Dict(pnode::PNode* parent, pnode::PNode* p_node); syntax_asdl::expr_t* _Tuple(pnode::PNode* parent); syntax_asdl::expr_t* _TestlistComp(pnode::PNode* parent, pnode::PNode* p_node, int id0); syntax_asdl::expr_t* _Atom(pnode::PNode* parent); syntax_asdl::NameType* _NameType(pnode::PNode* p_node); List* _NameTypeList(pnode::PNode* p_node); syntax_asdl::Comprehension* _CompFor(pnode::PNode* p_node); syntax_asdl::expr_t* _CompareChain(pnode::PNode* parent); syntax_asdl::expr_t* _Subscript(pnode::PNode* parent); syntax_asdl::expr_t* Expr(pnode::PNode* pnode); void _CheckLhs(syntax_asdl::expr_t* lhs); List* _LhsExprList(pnode::PNode* p_node); command::VarDecl* MakeVarDecl(pnode::PNode* p_node); command::Mutation* MakeMutation(pnode::PNode* p_node); syntax_asdl::EggexFlag* _EggexFlag(pnode::PNode* p_node); syntax_asdl::Eggex* _Eggex(pnode::PNode* p_node); syntax_asdl::pat_t* YshCasePattern(pnode::PNode* pnode); syntax_asdl::expr_t* _BlockArg(pnode::PNode* p_node); void _Argument(pnode::PNode* p_node, bool after_semi, syntax_asdl::ArgList* arglist); void _ArgGroup(pnode::PNode* p_node, bool after_semi, syntax_asdl::ArgList* arglist); void _ArgList(pnode::PNode* p_node, syntax_asdl::ArgList* arglist); void ProcCallArgs(pnode::PNode* pnode, syntax_asdl::ArgList* arglist); syntax_asdl::TypeExpr* _TypeExpr(pnode::PNode* pnode); syntax_asdl::Param* _Param(pnode::PNode* pnode); syntax_asdl::ParamGroup* _ParamGroup(pnode::PNode* p_node); syntax_asdl::proc_sig_t* Proc(pnode::PNode* p_node); void YshFunc(pnode::PNode* p_node, syntax_asdl::Func* out); syntax_asdl::CharCode* _RangeCharSingleQuoted(pnode::PNode* p_node); syntax_asdl::Token* _OtherRangeToken(pnode::PNode* p_node); syntax_asdl::class_literal_term_t* _NonRangeChars(pnode::PNode* p_node); syntax_asdl::class_literal_term_t* _ClassLiteralTerm(pnode::PNode* p_node); List* _ClassLiteral(pnode::PNode* p_node); syntax_asdl::re_t* _NameInRegex(syntax_asdl::Token* negated_tok, syntax_asdl::Token* tok); syntax_asdl::class_literal_term_t* _NameInClass(syntax_asdl::Token* negated_tok, syntax_asdl::Token* tok); syntax_asdl::re_t* _ReAtom(pnode::PNode* p_atom); syntax_asdl::re_repeat_t* _RepeatOp(pnode::PNode* p_repeat); syntax_asdl::re_t* _ReAlt(pnode::PNode* p_node); syntax_asdl::re_t* _Regex(pnode::PNode* p_node); Dict* number2symbol; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(1, sizeof(Transformer)); } DISALLOW_COPY_AND_ASSIGN(Transformer) }; } // declare namespace expr_to_ast namespace func_proc { // declare using id_kind_asdl::Id; using runtime_asdl::cmd_value; using syntax_asdl::loc; void _DisallowMutableDefault(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc); List* _EvalPosDefaults(expr_eval::ExprEvaluator* expr_ev, List* pos_params); Dict* _EvalNamedDefaults(expr_eval::ExprEvaluator* expr_ev, List* named_params); Tuple2*, Dict*> EvalFuncDefaults(expr_eval::ExprEvaluator* expr_ev, syntax_asdl::Func* func); value_asdl::ProcDefaults* EvalProcDefaults(expr_eval::ExprEvaluator* expr_ev, proc_sig::Closed* sig); void _EvalPosArgs(expr_eval::ExprEvaluator* expr_ev, List* exprs, List* pos_args); Dict* _EvalNamedArgs(expr_eval::ExprEvaluator* expr_ev, List* named_exprs); Tuple2*, Dict*> _EvalArgList(expr_eval::ExprEvaluator* expr_ev, syntax_asdl::ArgList* args, value_asdl::value_t* me = nullptr); void EvalTypedArgsToProc(expr_eval::ExprEvaluator* expr_ev, state::MutableOpts* mutable_opts, command::Simple* node, cmd_value::Argv* cmd_val); void _BindWords(BigStr* proc_name, syntax_asdl::ParamGroup* group, List* defaults, cmd_value::Argv* cmd_val, state::Mem* mem, syntax_asdl::loc_t* blame_loc); void _BindTyped(BigStr* code_name, syntax_asdl::ParamGroup* group, List* defaults, List* pos_args, state::Mem* mem, syntax_asdl::loc_t* blame_loc); void _BindNamed(BigStr* code_name, syntax_asdl::ParamGroup* group, Dict* defaults, Dict* named_args, state::Mem* mem, syntax_asdl::loc_t* blame_loc); void _BindFuncArgs(value::Func* func, typed_args::Reader* rd, state::Mem* mem); void BindProcArgs(value::Proc* proc, cmd_value::Argv* cmd_val, state::Mem* mem); value_asdl::value_t* CallUserFunc(value::Func* func, typed_args::Reader* rd, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev); } // declare namespace func_proc namespace regex_translate { // declare using id_kind_asdl::Id; extern Dict* PERL_CLASS; extern int CH_RBRACKET; extern int CH_BACKSLASH; extern int CH_CARET; extern int CH_HYPHEN; extern int FLAG_RBRACKET; extern int FLAG_BACKSLASH; extern int FLAG_CARET; extern int FLAG_HYPHEN; void _CharCodeToEre(syntax_asdl::CharCode* term, List* parts, List* special_char_flags); void _CharClassTermToEre(syntax_asdl::char_class_term_t* term, List* parts, List* special_char_flags); void _AsPosixEre(syntax_asdl::re_t* node, List* parts, List* capture_names); BigStr* AsPosixEre(value::Eggex* eggex); BigStr* CanonicalFlags(List* flags); int LibcFlags(BigStr* canonical_flags); } // declare namespace regex_translate namespace val_ops { // declare using syntax_asdl::loc; int ToInt(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); double ToFloat(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); BigStr* ToStr(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); List* ToList(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); Dict* ToDict(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); syntax_asdl::command_t* ToCommand(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc); BigStr* Stringify(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc, BigStr* prefix = str2260); List* ToShellArray(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc, BigStr* prefix = str2266); class Iterator { public: Iterator(); int Index(); void Next(); virtual value_asdl::value_t* FirstValue(); virtual value_asdl::value_t* SecondValue(); int i; static constexpr uint32_t field_mask() { return kZeroMask; } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Iterator)); } DISALLOW_COPY_AND_ASSIGN(Iterator) }; class StdinIterator : public ::val_ops::Iterator { public: StdinIterator(syntax_asdl::loc_t* blame_loc); virtual value_asdl::value_t* FirstValue(); syntax_asdl::loc_t* blame_loc; mylib::LineReader* f; static constexpr uint32_t field_mask() { return ::val_ops::Iterator::field_mask() | maskbit(offsetof(StdinIterator, blame_loc)) | maskbit(offsetof(StdinIterator, f)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(StdinIterator)); } DISALLOW_COPY_AND_ASSIGN(StdinIterator) }; class ArrayIter : public ::val_ops::Iterator { public: ArrayIter(List* strs); virtual value_asdl::value_t* FirstValue(); int n; List* strs; static constexpr uint32_t field_mask() { return ::val_ops::Iterator::field_mask() | maskbit(offsetof(ArrayIter, strs)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ArrayIter)); } DISALLOW_COPY_AND_ASSIGN(ArrayIter) }; class RangeIterator : public ::val_ops::Iterator { public: RangeIterator(value::Range* val); virtual value_asdl::value_t* FirstValue(); value::Range* val; static constexpr uint32_t field_mask() { return ::val_ops::Iterator::field_mask() | maskbit(offsetof(RangeIterator, val)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(RangeIterator)); } DISALLOW_COPY_AND_ASSIGN(RangeIterator) }; class ListIterator : public ::val_ops::Iterator { public: ListIterator(value::List* val); virtual value_asdl::value_t* FirstValue(); int n; value::List* val; static constexpr uint32_t field_mask() { return ::val_ops::Iterator::field_mask() | maskbit(offsetof(ListIterator, val)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ListIterator)); } DISALLOW_COPY_AND_ASSIGN(ListIterator) }; class DictIterator : public ::val_ops::Iterator { public: DictIterator(value::Dict* val); virtual value_asdl::value_t* FirstValue(); virtual value_asdl::value_t* SecondValue(); List* keys; int n; List* values; static constexpr uint32_t field_mask() { return ::val_ops::Iterator::field_mask() | maskbit(offsetof(DictIterator, keys)) | maskbit(offsetof(DictIterator, values)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(DictIterator)); } DISALLOW_COPY_AND_ASSIGN(DictIterator) }; bool ToBool(value_asdl::value_t* val); bool ExactlyEqual(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::loc_t* blame_loc); bool Contains(value_asdl::value_t* needle, value_asdl::value_t* haystack); bool MatchRegex(value_asdl::value_t* left, value_asdl::value_t* right, state::Mem* mem); } // declare namespace val_ops namespace bracket_osh { // declare using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::word; using types_asdl::lex_mode_e; class _StringWordEmitter : public ::word_parse::WordEmitter { public: _StringWordEmitter(cmd_value::Argv* cmd_val); virtual word::String* ReadWord(types_asdl::lex_mode_t unused_lex_mode); word::String* Read(); BigStr* Peek(int offset); void Rewind(int offset); cmd_value::Argv* cmd_val; int i; int n; static constexpr uint32_t field_mask() { return ::word_parse::WordEmitter::field_mask() | maskbit(offsetof(_StringWordEmitter, cmd_val)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_StringWordEmitter)); } DISALLOW_COPY_AND_ASSIGN(_StringWordEmitter) }; class _WordEvaluator : public ::word_eval::StringWordEvaluator { public: _WordEvaluator(); virtual value::Str* EvalWordToString(syntax_asdl::word_t* w, int eval_flags = 0); static constexpr uint32_t field_mask() { return ::word_eval::StringWordEvaluator::field_mask(); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_WordEvaluator)); } DISALLOW_COPY_AND_ASSIGN(_WordEvaluator) }; syntax_asdl::bool_expr_t* _TwoArgs(bracket_osh::_StringWordEmitter* w_parser); syntax_asdl::bool_expr_t* _ThreeArgs(bracket_osh::_StringWordEmitter* w_parser); class Test : public ::vm::_Builtin { public: Test(bool need_right_bracket, optview::Exec* exec_opts, state::Mem* mem, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); ui::ErrorFormatter* errfmt; optview::Exec* exec_opts; state::Mem* mem; bool need_right_bracket; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Test, errfmt)) | maskbit(offsetof(Test, exec_opts)) | maskbit(offsetof(Test, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Test)); } DISALLOW_COPY_AND_ASSIGN(Test) }; } // declare namespace bracket_osh namespace completion_osh { // declare using syntax_asdl::loc; class _FixedWordsAction : public ::completion::CompletionAction { public: _FixedWordsAction(List* d); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); List* d; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(_FixedWordsAction, d)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_FixedWordsAction)); } DISALLOW_COPY_AND_ASSIGN(_FixedWordsAction) }; class _DynamicProcDictAction : public ::completion::CompletionAction { public: _DynamicProcDictAction(state::Procs* d); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); state::Procs* d; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(_DynamicProcDictAction, d)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_DynamicProcDictAction)); } DISALLOW_COPY_AND_ASSIGN(_DynamicProcDictAction) }; class _DynamicStrDictAction : public ::completion::CompletionAction { public: _DynamicStrDictAction(Dict* d); virtual void Matches(completion::Api* comp, List* _out_yield_acc); virtual void Print(mylib::BufWriter* f); Dict* d; static constexpr uint32_t field_mask() { return ::completion::CompletionAction::field_mask() | maskbit(offsetof(_DynamicStrDictAction, d)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(_DynamicStrDictAction)); } DISALLOW_COPY_AND_ASSIGN(_DynamicStrDictAction) }; class SpecBuilder { public: SpecBuilder(cmd_eval::CommandEvaluator* cmd_ev, parse_lib::ParseContext* parse_ctx, word_eval::NormalWordEvaluator* word_ev, split::SplitContext* splitter, completion::Lookup* comp_lookup, Dict* help_data, ui::ErrorFormatter* errfmt); completion::UserSpec* Build(List* argv, args::_Attributes* attrs, Dict* base_opts); cmd_eval::CommandEvaluator* cmd_ev; parse_lib::ParseContext* parse_ctx; word_eval::NormalWordEvaluator* word_ev; split::SplitContext* splitter; completion::Lookup* comp_lookup; Dict* help_data; List* topic_list; ui::ErrorFormatter* errfmt; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(8, sizeof(SpecBuilder)); } DISALLOW_COPY_AND_ASSIGN(SpecBuilder) }; class Complete : public ::vm::_Builtin { public: Complete(completion_osh::SpecBuilder* spec_builder, completion::Lookup* comp_lookup); virtual int Run(cmd_value::Argv* cmd_val); completion::Lookup* comp_lookup; completion_osh::SpecBuilder* spec_builder; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(Complete, comp_lookup)) | maskbit(offsetof(Complete, spec_builder)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(Complete)); } DISALLOW_COPY_AND_ASSIGN(Complete) }; class CompGen : public ::vm::_Builtin { public: CompGen(completion_osh::SpecBuilder* spec_builder); virtual int Run(cmd_value::Argv* cmd_val); completion_osh::SpecBuilder* spec_builder; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(CompGen, spec_builder)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompGen)); } DISALLOW_COPY_AND_ASSIGN(CompGen) }; class CompOpt : public ::vm::_Builtin { public: CompOpt(completion::OptionState* comp_state, ui::ErrorFormatter* errfmt); virtual int Run(cmd_value::Argv* cmd_val); completion::OptionState* comp_state; ui::ErrorFormatter* errfmt; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(CompOpt, comp_state)) | maskbit(offsetof(CompOpt, errfmt)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompOpt)); } DISALLOW_COPY_AND_ASSIGN(CompOpt) }; class CompAdjust : public ::vm::_Builtin { public: CompAdjust(state::Mem* mem); virtual int Run(cmd_value::Argv* cmd_val); state::Mem* mem; static constexpr uint32_t field_mask() { return ::vm::_Builtin::field_mask() | maskbit(offsetof(CompAdjust, mem)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(CompAdjust)); } DISALLOW_COPY_AND_ASSIGN(CompAdjust) }; } // declare namespace completion_osh namespace shell { // declare using runtime_asdl::scope_e; using syntax_asdl::loc; void _InitDefaultCompletions(cmd_eval::CommandEvaluator* cmd_ev, completion_osh::Complete* complete_builtin, completion::Lookup* comp_lookup); void _CompletionDemo(completion::Lookup* comp_lookup); void SourceStartupFile(process::FdState* fd_state, BigStr* rc_path, BigStr* lang, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt); class ShellOptHook : public ::state::OptHook { public: ShellOptHook(py_readline::Readline* readline); virtual bool OnChange(List* opt0_array, BigStr* opt_name, bool b); py_readline::Readline* readline; static constexpr uint32_t field_mask() { return ::state::OptHook::field_mask() | maskbit(offsetof(ShellOptHook, readline)); } static constexpr ObjHeader obj_header() { return ObjHeader::ClassFixed(field_mask(), sizeof(ShellOptHook)); } DISALLOW_COPY_AND_ASSIGN(ShellOptHook) }; void _SetGlobalFunc(state::Mem* mem, BigStr* name, vm::_Callable* func); Dict* InitAssignmentBuiltins(state::Mem* mem, state::Procs* procs, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt); class ShellFiles { public: ShellFiles(BigStr* lang, BigStr* home_dir, state::Mem* mem, arg_types::main* flag); BigStr* _HistVar(); BigStr* _DefaultHistoryFile(); void InitAfterLoadingEnv(); BigStr* HistoryFile(); BigStr* lang; BigStr* home_dir; state::Mem* mem; arg_types::main* flag; static constexpr ObjHeader obj_header() { return ObjHeader::ClassScanned(4, sizeof(ShellFiles)); } DISALLOW_COPY_AND_ASSIGN(ShellFiles) }; int Main(BigStr* lang, args::Reader* arg_r, Dict* environ, bool login_shell, pyutil::_ResourceLoader* loader, py_readline::Readline* readline); } // declare namespace shell namespace runtime { // define using hnode_asdl::hnode; using hnode_asdl::color_t; using hnode_asdl::color_e; int NO_SPID = -1; hnode::Record* NewRecord(BigStr* node_type) { StackRoot _root0(&node_type); return Alloc(node_type, Alloc>(), false, str0, str1, Alloc>()); } hnode::Leaf* NewLeaf(BigStr* s, hnode_asdl::color_t e_color) { StackRoot _root0(&s); if (s == nullptr) { return Alloc(str2, color_e::OtherConst); } else { return Alloc(s, e_color); } } TraversalState::TraversalState() { this->seen = Alloc>(); this->ref_count = Alloc>(); } BigStr* TRUE_STR = str3; BigStr* FALSE_STR = str4; } // define namespace runtime namespace vm { // define using id_kind_asdl::Id; using runtime_asdl::CommandStatus; using runtime_asdl::StatusArray; using runtime_asdl::flow_e; using runtime_asdl::flow_t; using syntax_asdl::Token; using value_asdl::value; using value_asdl::value_t; IntControlFlow::IntControlFlow(syntax_asdl::Token* token, int arg) { this->token = token; this->arg = arg; } bool IntControlFlow::IsReturn() { return this->token->id == Id::ControlFlow_Return; } bool IntControlFlow::IsBreak() { return this->token->id == Id::ControlFlow_Break; } bool IntControlFlow::IsContinue() { return this->token->id == Id::ControlFlow_Continue; } int IntControlFlow::StatusCode() { return (this->arg & 255); } runtime_asdl::flow_t IntControlFlow::HandleLoop() { if (this->IsBreak()) { this->arg -= 1; if (this->arg == 0) { return flow_e::Break; } } else { if (this->IsContinue()) { this->arg -= 1; if (this->arg == 0) { return flow_e::Nothing; } } } return flow_e::Raise; } ValueControlFlow::ValueControlFlow(syntax_asdl::Token* token, value_asdl::value_t* value) { this->token = token; this->value = value; } void InitUnsafeArith(state::Mem* mem, word_eval::NormalWordEvaluator* word_ev, sh_expr_eval::UnsafeArith* unsafe_arith) { StackRoot _root0(&mem); StackRoot _root1(&word_ev); StackRoot _root2(&unsafe_arith); mem->unsafe_arith = unsafe_arith; word_ev->unsafe_arith = unsafe_arith; } void InitCircularDeps(sh_expr_eval::ArithEvaluator* arith_ev, sh_expr_eval::BoolEvaluator* bool_ev, expr_eval::ExprEvaluator* expr_ev, word_eval::NormalWordEvaluator* word_ev, cmd_eval::CommandEvaluator* cmd_ev, vm::_Executor* shell_ex, prompt::Evaluator* prompt_ev, value::IO* global_io, dev::Tracer* tracer) { StackRoot _root0(&arith_ev); StackRoot _root1(&bool_ev); StackRoot _root2(&expr_ev); StackRoot _root3(&word_ev); StackRoot _root4(&cmd_ev); StackRoot _root5(&shell_ex); StackRoot _root6(&prompt_ev); StackRoot _root7(&global_io); StackRoot _root8(&tracer); arith_ev->word_ev = word_ev; bool_ev->word_ev = word_ev; if (expr_ev) { expr_ev->shell_ex = shell_ex; expr_ev->cmd_ev = cmd_ev; expr_ev->word_ev = word_ev; } word_ev->arith_ev = arith_ev; word_ev->expr_ev = expr_ev; word_ev->prompt_ev = prompt_ev; word_ev->shell_ex = shell_ex; cmd_ev->shell_ex = shell_ex; cmd_ev->arith_ev = arith_ev; cmd_ev->bool_ev = bool_ev; cmd_ev->expr_ev = expr_ev; cmd_ev->word_ev = word_ev; cmd_ev->tracer = tracer; shell_ex->cmd_ev = cmd_ev; prompt_ev->word_ev = word_ev; prompt_ev->expr_ev = expr_ev; prompt_ev->global_io = global_io; tracer->word_ev = word_ev; arith_ev->CheckCircularDeps(); bool_ev->CheckCircularDeps(); if (expr_ev) { expr_ev->CheckCircularDeps(); } word_ev->CheckCircularDeps(); cmd_ev->CheckCircularDeps(); shell_ex->CheckCircularDeps(); prompt_ev->CheckCircularDeps(); tracer->CheckCircularDeps(); } _Executor::_Executor() { this->cmd_ev = nullptr; } void _Executor::CheckCircularDeps() { ; // pass } int _Executor::RunBuiltin(int builtin_id, cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); return 0; } int _Executor::RunSimpleCommand(cmd_value::Argv* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags) { StackRoot _root0(&cmd_val); StackRoot _root1(&cmd_st); return 0; } int _Executor::RunBackgroundJob(syntax_asdl::command_t* node) { StackRoot _root0(&node); return 0; } void _Executor::RunPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* status_out) { StackRoot _root0(&node); StackRoot _root1(&status_out); ; // pass } int _Executor::RunSubshell(syntax_asdl::command_t* node) { StackRoot _root0(&node); return 0; } Tuple2 _Executor::CaptureStdout(syntax_asdl::command_t* node) { StackRoot _root0(&node); return Tuple2(0, str7); } BigStr* _Executor::RunCommandSub(syntax_asdl::CommandSub* cs_part) { StackRoot _root0(&cs_part); return str8; } BigStr* _Executor::RunProcessSub(syntax_asdl::CommandSub* cs_part) { StackRoot _root0(&cs_part); return str9; } void _Executor::PushRedirects(List* redirects, List* err_out) { StackRoot _root0(&redirects); StackRoot _root1(&err_out); ; // pass } void _Executor::PopRedirects(int num_redirects, List* err_out) { StackRoot _root0(&err_out); ; // pass } void _Executor::PushProcessSub() { ; // pass } void _Executor::PopProcessSub(runtime_asdl::StatusArray* compound_st) { StackRoot _root0(&compound_st); ; // pass } _AssignBuiltin::_AssignBuiltin() { ; // pass } int _AssignBuiltin::Run(cmd_value::Assign* cmd_val) { StackRoot _root0(&cmd_val); FAIL(kNotImplemented); // Python NotImplementedError } _Builtin::_Builtin() { ; // pass } int _Builtin::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); FAIL(kNotImplemented); // Python NotImplementedError } _Callable::_Callable() { ; // pass } value_asdl::value_t* _Callable::Call(typed_args::Reader* args) { StackRoot _root0(&args); FAIL(kNotImplemented); // Python NotImplementedError } ctx_Redirect::ctx_Redirect(vm::_Executor* shell_ex, int num_redirects, List* err_out) { gHeap.PushRoot(reinterpret_cast(&(this->err_out))); gHeap.PushRoot(reinterpret_cast(&(this->shell_ex))); this->shell_ex = shell_ex; this->num_redirects = num_redirects; this->err_out = err_out; } ctx_Redirect::~ctx_Redirect() { this->shell_ex->PopRedirects(this->num_redirects, this->err_out); gHeap.PopRoot(); gHeap.PopRoot(); } ctx_ProcessSub::ctx_ProcessSub(vm::_Executor* shell_ex, runtime_asdl::StatusArray* process_sub_status) { gHeap.PushRoot(reinterpret_cast(&(this->process_sub_status))); gHeap.PushRoot(reinterpret_cast(&(this->shell_ex))); shell_ex->PushProcessSub(); this->shell_ex = shell_ex; this->process_sub_status = process_sub_status; } ctx_ProcessSub::~ctx_ProcessSub() { this->shell_ex->PopProcessSub(this->process_sub_status); gHeap.PopRoot(); gHeap.PopRoot(); } ctx_FlushStdout::ctx_FlushStdout(List* err_out) { gHeap.PushRoot(reinterpret_cast(&(this->err_out))); this->err_out = err_out; } ctx_FlushStdout::~ctx_FlushStdout() { IOError_OSError* err = pyos::FlushStdout(); if (err != nullptr) { this->err_out->append(err); } gHeap.PopRoot(); } } // define namespace vm namespace format { // define using hnode_asdl::hnode; using hnode_asdl::hnode_e; using hnode_asdl::hnode_t; using hnode_asdl::color_e; using hnode_asdl::color_t; format::ColorOutput* DetectConsoleOutput(mylib::Writer* f) { StackRoot _root0(&f); if (f->isatty()) { return Alloc(f); } else { return Alloc(f); } } ColorOutput::ColorOutput(mylib::Writer* f) { this->f = f; this->num_chars = 0; } format::ColorOutput* ColorOutput::NewTempBuffer() { FAIL(kNotImplemented); // Python NotImplementedError } void ColorOutput::FileHeader() { ; // pass } void ColorOutput::FileFooter() { ; // pass } void ColorOutput::PushColor(hnode_asdl::color_t e_color) { FAIL(kNotImplemented); // Python NotImplementedError } void ColorOutput::PopColor() { FAIL(kNotImplemented); // Python NotImplementedError } void ColorOutput::write(BigStr* s) { StackRoot _root0(&s); this->f->write(s); this->num_chars += len(s); } void ColorOutput::WriteRaw(Tuple2* raw) { BigStr* s = nullptr; int num_chars; StackRoot _root0(&raw); StackRoot _root1(&s); Tuple2* tup0 = raw; s = tup0->at0(); num_chars = tup0->at1(); this->f->write(s); this->num_chars += num_chars; } int ColorOutput::NumChars() { return this->num_chars; } Tuple2 ColorOutput::GetRaw() { mylib::BufWriter* f = nullptr; StackRoot _root0(&f); f = static_cast(this->f); return Tuple2(f->getvalue(), this->num_chars); } TextOutput::TextOutput(mylib::Writer* f) : ::format::ColorOutput(f) { } format::TextOutput* TextOutput::NewTempBuffer() { return Alloc(Alloc()); } void TextOutput::PushColor(hnode_asdl::color_t e_color) { ; // pass } void TextOutput::PopColor() { ; // pass } HtmlOutput::HtmlOutput(mylib::Writer* f) : ::format::ColorOutput(f) { } format::HtmlOutput* HtmlOutput::NewTempBuffer() { return Alloc(Alloc()); } void HtmlOutput::FileHeader() { this->f->write(str10); } void HtmlOutput::FileFooter() { this->f->write(str11); } void HtmlOutput::PushColor(hnode_asdl::color_t e_color) { BigStr* css_class = nullptr; StackRoot _root0(&css_class); if (e_color == color_e::TypeName) { css_class = str12; } else { if (e_color == color_e::StringConst) { css_class = str13; } else { if (e_color == color_e::OtherConst) { css_class = str14; } else { if (e_color == color_e::External) { css_class = str15; } else { if (e_color == color_e::UserType) { css_class = str16; } else { assert(0); // AssertionError } } } } } this->f->write(StrFormat("", css_class)); } void HtmlOutput::PopColor() { this->f->write(str18); } void HtmlOutput::write(BigStr* s) { StackRoot _root0(&s); this->f->write(cgi::escape(s)); this->num_chars += len(s); } AnsiOutput::AnsiOutput(mylib::Writer* f) : ::format::ColorOutput(f) { } format::AnsiOutput* AnsiOutput::NewTempBuffer() { return Alloc(Alloc()); } void AnsiOutput::PushColor(hnode_asdl::color_t e_color) { if (e_color == color_e::TypeName) { this->f->write(ansi::YELLOW); } else { if (e_color == color_e::StringConst) { this->f->write(ansi::BOLD); } else { if (e_color == color_e::OtherConst) { this->f->write(ansi::GREEN); } else { if (e_color == color_e::External) { this->f->write(str_concat(ansi::BOLD, ansi::BLUE)); } else { if (e_color == color_e::UserType) { this->f->write(ansi::GREEN); } else { assert(0); // AssertionError } } } } } } void AnsiOutput::PopColor() { this->f->write(ansi::RESET); } int INDENT = 2; _PrettyPrinter::_PrettyPrinter(int max_col) { this->max_col = max_col; } bool _PrettyPrinter::_PrintWrappedArray(List* array, int prefix_len, format::ColorOutput* f, int indent) { bool all_fit; int chars_so_far; int i; format::ColorOutput* single_f = nullptr; BigStr* s = nullptr; int num_chars; StackRoot _root0(&array); StackRoot _root1(&f); StackRoot _root2(&single_f); StackRoot _root3(&s); all_fit = true; chars_so_far = prefix_len; i = 0; for (ListIter it(array); !it.Done(); it.Next(), ++i) { hnode_asdl::hnode_t* val = it.Value(); StackRoot _for(&val ); if (i != 0) { f->write(str19); } single_f = f->NewTempBuffer(); if (_TrySingleLine(val, single_f, (this->max_col - chars_so_far))) { Tuple2 tup1 = single_f->GetRaw(); s = tup1.at0(); num_chars = tup1.at1(); f->WriteRaw((Alloc>(s, num_chars))); chars_so_far += single_f->NumChars(); } else { f->write(str20); this->PrintNode(val, f, (indent + INDENT)); chars_so_far = 0; all_fit = false; } } return all_fit; } bool _PrettyPrinter::_PrintWholeArray(List* array, int prefix_len, format::ColorOutput* f, int indent) { bool all_fit; List*>* pieces = nullptr; int chars_so_far; format::ColorOutput* single_f = nullptr; BigStr* s = nullptr; int num_chars; int i; StackRoot _root0(&array); StackRoot _root1(&f); StackRoot _root2(&pieces); StackRoot _root3(&single_f); StackRoot _root4(&s); all_fit = true; pieces = Alloc*>>(); chars_so_far = prefix_len; for (ListIter it(array); !it.Done(); it.Next()) { hnode_asdl::hnode_t* item = it.Value(); StackRoot _for(&item ); single_f = f->NewTempBuffer(); if (_TrySingleLine(item, single_f, (this->max_col - chars_so_far))) { Tuple2 tup2 = single_f->GetRaw(); s = tup2.at0(); num_chars = tup2.at1(); pieces->append((Alloc>(s, num_chars))); chars_so_far += single_f->NumChars(); } else { all_fit = false; break; } } if (all_fit) { i = 0; for (ListIter*> it(pieces); !it.Done(); it.Next(), ++i) { Tuple2* p = it.Value(); StackRoot _for(&p ); if (i != 0) { f->write(str21); } f->WriteRaw(p); } f->write(str22); } return all_fit; } void _PrettyPrinter::_PrintRecord(hnode::Record* node, format::ColorOutput* f, int indent) { BigStr* ind = nullptr; BigStr* prefix = nullptr; int prefix_len; bool all_fit; BigStr* name = nullptr; hnode_asdl::hnode_t* val = nullptr; BigStr* ind1 = nullptr; hnode_asdl::hnode_t* UP_val = nullptr; int tag; BigStr* name_str = nullptr; format::ColorOutput* single_f = nullptr; BigStr* s = nullptr; int num_chars; StackRoot _root0(&node); StackRoot _root1(&f); StackRoot _root2(&ind); StackRoot _root3(&prefix); StackRoot _root4(&name); StackRoot _root5(&val); StackRoot _root6(&ind1); StackRoot _root7(&UP_val); StackRoot _root8(&name_str); StackRoot _root9(&single_f); StackRoot _root10(&s); ind = str_repeat(str23, indent); if (node->abbrev) { prefix = str_concat(ind, node->left); f->write(prefix); if (len(node->node_type)) { f->PushColor(color_e::TypeName); f->write(node->node_type); f->PopColor(); f->write(str24); } prefix_len = ((len(prefix) + len(node->node_type)) + 1); all_fit = this->_PrintWrappedArray(node->unnamed_fields, prefix_len, f, indent); if (!all_fit) { f->write(str25); f->write(ind); } f->write(node->right); } else { f->write(str_concat(ind, node->left)); f->PushColor(color_e::TypeName); f->write(node->node_type); f->PopColor(); f->write(str26); for (ListIter it(node->fields); !it.Done(); it.Next()) { hnode_asdl::Field* field = it.Value(); StackRoot _for(&field ); name = field->name; val = field->val; ind1 = str_repeat(str27, (indent + INDENT)); UP_val = val; tag = val->tag(); if (tag == hnode_e::Array) { hnode::Array* val = static_cast(UP_val); name_str = StrFormat("%s%s: [", ind1, name); f->write(name_str); prefix_len = len(name_str); if (!this->_PrintWholeArray(val->children, prefix_len, f, indent)) { f->write(str29); for (ListIter it(val->children); !it.Done(); it.Next()) { hnode_asdl::hnode_t* child = it.Value(); StackRoot _for(&child ); this->PrintNode(child, f, ((indent + INDENT) + INDENT)); f->write(str30); } f->write(StrFormat("%s]", ind1)); } } else { name_str = StrFormat("%s%s: ", ind1, name); f->write(name_str); prefix_len = len(name_str); single_f = f->NewTempBuffer(); if (_TrySingleLine(val, single_f, (this->max_col - prefix_len))) { Tuple2 tup3 = single_f->GetRaw(); s = tup3.at0(); num_chars = tup3.at1(); f->WriteRaw((Alloc>(s, num_chars))); } else { f->write(str33); this->PrintNode(val, f, ((indent + INDENT) + INDENT)); } } f->write(str34); } f->write(str_concat(ind, node->right)); } } void _PrettyPrinter::PrintNode(hnode_asdl::hnode_t* node, format::ColorOutput* f, int indent) { BigStr* ind = nullptr; format::ColorOutput* single_f = nullptr; BigStr* s = nullptr; int num_chars; hnode_asdl::hnode_t* UP_node = nullptr; int tag; StackRoot _root0(&node); StackRoot _root1(&f); StackRoot _root2(&ind); StackRoot _root3(&single_f); StackRoot _root4(&s); StackRoot _root5(&UP_node); ind = str_repeat(str35, indent); single_f = f->NewTempBuffer(); single_f->write(ind); if (_TrySingleLine(node, single_f, (this->max_col - indent))) { Tuple2 tup4 = single_f->GetRaw(); s = tup4.at0(); num_chars = tup4.at1(); f->WriteRaw((Alloc>(s, num_chars))); return ; } UP_node = node; tag = node->tag(); if (tag == hnode_e::Leaf) { hnode::Leaf* node = static_cast(UP_node); f->PushColor(node->color); f->write(j8_lite::EncodeString(node->s, true)); f->PopColor(); } else { if (tag == hnode_e::External) { hnode::External* node = static_cast(UP_node); f->PushColor(color_e::External); // if not PYTHON { f->write(str36); } // endif MYCPP f->PopColor(); } else { if (tag == hnode_e::Record) { hnode::Record* node = static_cast(UP_node); this->_PrintRecord(node, f, indent); } else { if (tag == hnode_e::AlreadySeen) { hnode::AlreadySeen* node = static_cast(UP_node); f->write(StrFormat("...0x%s", mylib::hex_lower(node->heap_id))); } else { assert(0); // AssertionError } } } } } bool _TrySingleLineObj(hnode::Record* node, format::ColorOutput* f, int max_chars) { int i; StackRoot _root0(&node); StackRoot _root1(&f); f->write(node->left); if (node->abbrev) { if (len(node->node_type)) { f->PushColor(color_e::TypeName); f->write(node->node_type); f->PopColor(); f->write(str38); } i = 0; for (ListIter it(node->unnamed_fields); !it.Done(); it.Next(), ++i) { hnode_asdl::hnode_t* val = it.Value(); StackRoot _for(&val ); if (i != 0) { f->write(str39); } if (!_TrySingleLine(val, f, max_chars)) { return false; } } } else { f->PushColor(color_e::TypeName); f->write(node->node_type); f->PopColor(); for (ListIter it(node->fields); !it.Done(); it.Next()) { hnode_asdl::Field* field = it.Value(); StackRoot _for(&field ); f->write(StrFormat(" %s:", field->name)); if (!_TrySingleLine(field->val, f, max_chars)) { return false; } } } f->write(node->right); return true; } bool _TrySingleLine(hnode_asdl::hnode_t* node, format::ColorOutput* f, int max_chars) { hnode_asdl::hnode_t* UP_node = nullptr; int tag; int i; int num_chars_so_far; StackRoot _root0(&node); StackRoot _root1(&f); StackRoot _root2(&UP_node); UP_node = node; tag = node->tag(); if (tag == hnode_e::Leaf) { hnode::Leaf* node = static_cast(UP_node); f->PushColor(node->color); f->write(j8_lite::EncodeString(node->s, true)); f->PopColor(); } else { if (tag == hnode_e::External) { hnode::External* node = static_cast(UP_node); f->PushColor(color_e::External); // if not PYTHON { f->write(str41); } // endif MYCPP f->PopColor(); } else { if (tag == hnode_e::Array) { hnode::Array* node = static_cast(UP_node); f->write(str42); i = 0; for (ListIter it(node->children); !it.Done(); it.Next(), ++i) { hnode_asdl::hnode_t* item = it.Value(); StackRoot _for(&item ); if (i != 0) { f->write(str43); } if (!_TrySingleLine(item, f, max_chars)) { return false; } } f->write(str44); } else { if (tag == hnode_e::Record) { hnode::Record* node = static_cast(UP_node); return _TrySingleLineObj(node, f, max_chars); } else { if (tag == hnode_e::AlreadySeen) { hnode::AlreadySeen* node = static_cast(UP_node); f->write(StrFormat("...0x%s", mylib::hex_lower(node->heap_id))); } else { assert(0); // AssertionError } } } } } num_chars_so_far = f->NumChars(); if (num_chars_so_far > max_chars) { return false; } return true; } void PrintTree(hnode_asdl::hnode_t* node, format::ColorOutput* f) { format::_PrettyPrinter* pp = nullptr; StackRoot _root0(&node); StackRoot _root1(&f); StackRoot _root2(&pp); pp = Alloc<_PrettyPrinter>(100); pp->PrintNode(node, f, 0); } void PrintTree2(hnode_asdl::hnode_t* node, format::ColorOutput* f) { pretty_asdl::MeasuredDoc* doc = nullptr; pretty::PrettyPrinter* printer = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&node); StackRoot _root1(&f); StackRoot _root2(&doc); StackRoot _root3(&printer); StackRoot _root4(&buf); doc = pretty::AsciiText(str46); printer = Alloc(20); buf = Alloc(); printer->PrintDoc(doc, buf); f->write(buf->getvalue()); f->write(str47); } } // define namespace format namespace oils_for_unix { // define using syntax_asdl::loc; using syntax_asdl::CompoundWord; using mylib::print_stderr; int CaperDispatch() { List* fd_out = nullptr; BigStr* msg = nullptr; BigStr* command = nullptr; BigStr* arg = nullptr; StackRoot _root0(&fd_out); StackRoot _root1(&msg); StackRoot _root2(&command); StackRoot _root3(&arg); mylib::print_stderr(str48); fd_out = Alloc>(); while (true) { try { msg = fanos::recv(0, fd_out); } catch (ValueError* e) { mylib::print_stderr(StrFormat("FANOS error: %s", e)); fanos::send(1, StrFormat("ERROR %s", e)); continue; } mylib::print_stderr(StrFormat("msg = %r", msg)); Tuple2 tup0 = mylib::split_once(msg, str52); command = tup0.at0(); arg = tup0.at1(); if (str_equals(command, str53)) { ; // pass } else { if (str_equals(command, str54)) { ; // pass } else { if (str_equals(command, str55)) { ; // pass } else { if (str_equals(command, str56)) { ; // pass } } } } } return 0; } int AppBundleMain(List* argv) { pyutil::_ResourceLoader* loader = nullptr; BigStr* b = nullptr; BigStr* main_name = nullptr; BigStr* ext = nullptr; syntax_asdl::CompoundWord* missing = nullptr; args::Reader* arg_r = nullptr; bool login_shell; BigStr* bundle = nullptr; BigStr* first_arg = nullptr; BigStr* applet = nullptr; py_readline::Readline* readline = nullptr; Dict* environ = nullptr; StackRoot _root0(&argv); StackRoot _root1(&loader); StackRoot _root2(&b); StackRoot _root3(&main_name); StackRoot _root4(&ext); StackRoot _root5(&missing); StackRoot _root6(&arg_r); StackRoot _root7(&bundle); StackRoot _root8(&first_arg); StackRoot _root9(&applet); StackRoot _root10(&readline); StackRoot _root11(&environ); loader = pyutil::GetResourceLoader(); b = os_path::basename(argv->at(0)); Tuple2 tup1 = os_path::splitext(b); main_name = tup1.at0(); ext = tup1.at1(); missing = nullptr; arg_r = Alloc(argv, list_repeat(missing, len(argv))); login_shell = false; // if not PYTHON { bundle = str57; } // endif MYCPP if ((str_equals(main_name, bundle) or (str_equals(main_name, str58) and len(ext)))) { arg_r->Next(); first_arg = arg_r->Peek(); if (first_arg == nullptr) { throw Alloc(str59, loc::Missing); } if ((str_equals(first_arg, str60) || str_equals(first_arg, str61))) { util::HelpFlag(loader, str62, mylib::Stdout()); return 0; } if ((str_equals(first_arg, str63) || str_equals(first_arg, str64))) { util::VersionFlag(loader, mylib::Stdout()); return 0; } if (str_equals(first_arg, str65)) { return CaperDispatch(); } applet = first_arg; } else { applet = main_name; if (applet->startswith(str66)) { login_shell = true; applet = applet->slice(1); } } readline = py_readline::MaybeGetReadline(); environ = pyos::Environ(); if ((str_equals(applet, str67) || str_equals(applet, str68))) { return shell::Main(str69, arg_r, environ, login_shell, loader, readline); } else { if (applet->endswith(str70)) { return shell::Main(str71, arg_r, environ, login_shell, loader, readline); } else { if (str_equals(applet, str72)) { return 0; } else { if (str_equals(applet, str73)) { return 1; } else { if (str_equals(applet, str74)) { // if not PYTHON { print_stderr(str75); return 2; } // endif MYCPP } else { throw Alloc(StrFormat("Invalid applet %r", applet), loc::Missing); } } } } } } int main(List* argv) { StackRoot _root0(&argv); try { return AppBundleMain(argv); } catch (error::Usage* e) { mylib::print_stderr(StrFormat("oils: %s", e->msg)); return 2; } catch (KeyboardInterrupt*) { print(str78); return 130; } catch (IOError_OSError* e) { print_stderr(StrFormat("oils I/O error (main): %s", posix::strerror(e->errno_))); return 2; } } } // define namespace oils_for_unix namespace assign_osh { // define using option_asdl::builtin_i; using runtime_asdl::scope_e; using runtime_asdl::cmd_value; using runtime_asdl::AssignArg; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::LeftName; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::word_t; using error::e_usage; int _OTHER = 0; int _READONLY = 1; int _EXPORT = 2; int _PrintVariables(state::Mem* mem, cmd_value::Assign* cmd_val, args::_Attributes* attrs, bool print_flags, int builtin) { Dict* flag = nullptr; value_asdl::value_t* tmp_g = nullptr; value_asdl::value_t* tmp_a = nullptr; value_asdl::value_t* tmp_A = nullptr; bool flag_g; bool flag_a; bool flag_A; value_asdl::value_t* tmp_n = nullptr; value_asdl::value_t* tmp_r = nullptr; value_asdl::value_t* tmp_x = nullptr; BigStr* flag_n = nullptr; BigStr* flag_r = nullptr; BigStr* flag_x = nullptr; runtime_asdl::scope_t which_scopes; bool print_all; Dict* cells = nullptr; List* names = nullptr; BigStr* name = nullptr; BigStr* s = nullptr; BigStr* invalid = nullptr; int count; runtime_asdl::Cell* cell = nullptr; value_asdl::value_t* val = nullptr; List* decl = nullptr; List* flags = nullptr; value::Str* str_val = nullptr; value::BashArray* array_val = nullptr; bool has_holes; bool first; int i; List* body = nullptr; value::BashAssoc* assoc_val = nullptr; BigStr* key_quoted = nullptr; BigStr* value_quoted = nullptr; StackRoot _root0(&mem); StackRoot _root1(&cmd_val); StackRoot _root2(&attrs); StackRoot _root3(&flag); StackRoot _root4(&tmp_g); StackRoot _root5(&tmp_a); StackRoot _root6(&tmp_A); StackRoot _root7(&tmp_n); StackRoot _root8(&tmp_r); StackRoot _root9(&tmp_x); StackRoot _root10(&flag_n); StackRoot _root11(&flag_r); StackRoot _root12(&flag_x); StackRoot _root13(&cells); StackRoot _root14(&names); StackRoot _root15(&name); StackRoot _root16(&s); StackRoot _root17(&invalid); StackRoot _root18(&cell); StackRoot _root19(&val); StackRoot _root20(&decl); StackRoot _root21(&flags); StackRoot _root22(&str_val); StackRoot _root23(&array_val); StackRoot _root24(&body); StackRoot _root25(&assoc_val); StackRoot _root26(&key_quoted); StackRoot _root27(&value_quoted); flag = attrs->attrs; tmp_g = flag->get(str80); tmp_a = flag->get(str81); tmp_A = flag->get(str82); flag_g = (tmp_g and tmp_g->tag() == value_e::Bool) ? static_cast(tmp_g)->b : false; flag_a = (tmp_a and tmp_a->tag() == value_e::Bool) ? static_cast(tmp_a)->b : false; flag_A = (tmp_A and tmp_A->tag() == value_e::Bool) ? static_cast(tmp_A)->b : false; tmp_n = flag->get(str83); tmp_r = flag->get(str84); tmp_x = flag->get(str85); flag_n = (tmp_n and tmp_n->tag() == value_e::Str) ? static_cast(tmp_n)->s : nullptr; flag_r = (tmp_r and tmp_r->tag() == value_e::Str) ? static_cast(tmp_r)->s : nullptr; flag_x = (tmp_x and tmp_x->tag() == value_e::Str) ? static_cast(tmp_x)->s : nullptr; if (cmd_val->builtin_id == builtin_i::local) { if ((flag_g and !mem->IsGlobalScope())) { return 1; } which_scopes = scope_e::LocalOnly; } else { if (flag_g) { which_scopes = scope_e::GlobalOnly; } else { which_scopes = mem->ScopesForReading(); } } if (len(cmd_val->pairs) == 0) { print_all = true; cells = mem->GetAllCells(which_scopes); names = sorted(cells); } else { print_all = false; names = Alloc>(); cells = Alloc>(); for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); name = pair->var_name; if ((pair->rval and pair->rval->tag() == value_e::Str)) { s = static_cast(pair->rval)->s; invalid = StrFormat("%s=%s", name, s); names->append(invalid); cells->set(invalid, nullptr); } else { names->append(name); cells->set(name, mem->GetCell(name, which_scopes)); } } } count = 0; for (ListIter it(names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); cell = cells->at(name); if (cell == nullptr) { continue; } val = cell->val; if (val->tag() == value_e::Undef) { continue; } if ((builtin == _READONLY and !cell->readonly)) { continue; } if ((builtin == _EXPORT and !cell->exported)) { continue; } if ((maybe_str_equals(flag_n, str87) and !cell->nameref)) { continue; } if ((maybe_str_equals(flag_n, str88) and cell->nameref)) { continue; } if ((maybe_str_equals(flag_r, str89) and !cell->readonly)) { continue; } if ((maybe_str_equals(flag_r, str90) and cell->readonly)) { continue; } if ((maybe_str_equals(flag_x, str91) and !cell->exported)) { continue; } if ((maybe_str_equals(flag_x, str92) and cell->exported)) { continue; } if ((flag_a and val->tag() != value_e::BashArray)) { continue; } if ((flag_A and val->tag() != value_e::BashAssoc)) { continue; } decl = Alloc>(); if (print_flags) { flags = Alloc>(); if (cell->nameref) { flags->append(str93); } if (cell->readonly) { flags->append(str94); } if (cell->exported) { flags->append(str95); } if (val->tag() == value_e::BashArray) { flags->append(str96); } else { if (val->tag() == value_e::BashAssoc) { flags->append(str97); } } if (len(flags) == 0) { flags->append(str98); } decl->extend(NewList(std::initializer_list{str99, str100->join(flags), str101, name})); } else { decl->append(name); } if (val->tag() == value_e::Str) { str_val = static_cast(val); decl->extend(NewList(std::initializer_list{str102, j8_lite::MaybeShellEncode(str_val->s)})); } else { if (val->tag() == value_e::BashArray) { array_val = static_cast(val); has_holes = false; for (ListIter it(array_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s == nullptr) { has_holes = true; break; } } if (has_holes) { decl->append(str103); first = true; i = 0; for (ListIter it(array_val->strs); !it.Done(); it.Next(), ++i) { BigStr* element = it.Value(); StackRoot _for(&element ); if (element != nullptr) { if (first) { decl->append(str104); first = false; } decl->extend(NewList(std::initializer_list{str105, name, str106, str(i), str107, j8_lite::MaybeShellEncode(element)})); } } } else { body = Alloc>(); for (ListIter it(array_val->strs); !it.Done(); it.Next()) { BigStr* element = it.Value(); StackRoot _for(&element ); if (len(body) > 0) { body->append(str108); } body->append(j8_lite::MaybeShellEncode(element)); } decl->extend(NewList(std::initializer_list{str109, str110->join(body), str111})); } } else { if (val->tag() == value_e::BashAssoc) { assoc_val = static_cast(val); body = Alloc>(); for (ListIter it(sorted(assoc_val->d)); !it.Done(); it.Next()) { BigStr* key = it.Value(); StackRoot _for(&key ); if (len(body) > 0) { body->append(str112); } key_quoted = j8_lite::ShellEncode(key); value_quoted = j8_lite::MaybeShellEncode(assoc_val->d->at(key)); body->extend(NewList(std::initializer_list{str113, key_quoted, str114, value_quoted})); } if (len(body) > 0) { decl->extend(NewList(std::initializer_list{str115, str116->join(body), str117})); } } else { ; // pass } } } print(str118->join(decl)); count += 1; } if ((print_all or count == len(names))) { return 0; } else { return 1; } } void _ExportReadonly(state::Mem* mem, runtime_asdl::AssignArg* pair, int flags) { runtime_asdl::scope_t which_scopes; value_asdl::LeftName* lval = nullptr; value_asdl::value_t* old_val = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&pair); StackRoot _root2(&lval); StackRoot _root3(&old_val); StackRoot _root4(&val); which_scopes = mem->ScopesForWriting(); lval = Alloc(pair->var_name, pair->blame_word); if (pair->plus_eq) { old_val = sh_expr_eval::OldValue(lval, mem, nullptr); val = cmd_eval::PlusEquals(old_val, pair->rval); } else { val = pair->rval; } mem->SetNamed(lval, val, which_scopes, flags); } Export::Export(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } int Export::Run(cmd_value::Assign* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::export_* arg = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::Parse(str119, arg_r); arg = Alloc(attrs->attrs); if (arg->f) { e_usage(str120, loc::Missing); } if ((arg->p or len(cmd_val->pairs) == 0)) { return _PrintVariables(this->mem, cmd_val, attrs, true, _EXPORT); } if (arg->n) { for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); if (pair->rval != nullptr) { e_usage(str121, Alloc(pair->blame_word)); } this->mem->ClearFlag(pair->var_name, state::ClearExport); } } else { for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); _ExportReadonly(this->mem, pair, state::SetExport); } } return 0; } value_asdl::value_t* _ReconcileTypes(value_asdl::value_t* rval, bool flag_a, bool flag_A, syntax_asdl::word_t* blame_word) { value::BashArray* array_val = nullptr; StackRoot _root0(&rval); StackRoot _root1(&blame_word); StackRoot _root2(&array_val); if ((flag_a and (rval != nullptr and rval->tag() != value_e::BashArray))) { e_usage(str122, Alloc(blame_word)); } if ((flag_A and rval)) { if (rval->tag() == value_e::BashArray) { array_val = static_cast(rval); if (len(array_val->strs) == 0) { return Alloc(Alloc>()); } } if (rval->tag() != value_e::BashAssoc) { e_usage(str123, Alloc(blame_word)); } } return rval; } Readonly::Readonly(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } int Readonly::Run(cmd_value::Assign* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::readonly* arg = nullptr; value_asdl::value_t* rval = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); StackRoot _root4(&rval); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::Parse(str124, arg_r); arg = Alloc(attrs->attrs); if ((arg->p or len(cmd_val->pairs) == 0)) { return _PrintVariables(this->mem, cmd_val, attrs, true, _READONLY); } for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); if (pair->rval == nullptr) { if (arg->a) { rval = Alloc(Alloc>()); } else { if (arg->A) { rval = Alloc(Alloc>()); } else { rval = nullptr; } } } else { rval = pair->rval; } rval = _ReconcileTypes(rval, arg->a, arg->A, pair->blame_word); _ExportReadonly(this->mem, pair, state::SetReadOnly); } return 0; } NewVar::NewVar(state::Mem* mem, state::Procs* procs, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt) { this->mem = mem; this->procs = procs; this->exec_opts = exec_opts; this->errfmt = errfmt; } int NewVar::_PrintFuncs(List* names) { int status; StackRoot _root0(&names); status = 0; for (ListIter it(names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (this->procs->Get(name)) { print(name); } else { status = 1; } } return status; } int NewVar::Run(cmd_value::Assign* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::new_var* arg = nullptr; int status; List* names = nullptr; runtime_asdl::scope_t which_scopes; int flags; value_asdl::value_t* rval = nullptr; value_asdl::value_t* old_val = nullptr; value_asdl::LeftName* lval = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); StackRoot _root4(&names); StackRoot _root5(&rval); StackRoot _root6(&old_val); StackRoot _root7(&lval); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::Parse(str125, arg_r); arg = Alloc(attrs->attrs); status = 0; if (arg->f) { names = arg_r->Rest(); if (len(names)) { status = this->_PrintFuncs(names); } else { e_usage(str126, loc::Missing); } return status; } if (arg->F) { names = arg_r->Rest(); if (len(names)) { status = this->_PrintFuncs(names); } else { for (ListIter it(this->procs->GetNames()); !it.Done(); it.Next()) { BigStr* func_name = it.Value(); StackRoot _for(&func_name ); print(StrFormat("declare -f %s", func_name)); } } return status; } if (arg->p) { return _PrintVariables(this->mem, cmd_val, attrs, true); } else { if (len(cmd_val->pairs) == 0) { return _PrintVariables(this->mem, cmd_val, attrs, false); } } if (!this->exec_opts->ignore_flags_not_impl()) { if (arg->i) { e_usage(str128, loc::Missing); } if ((arg->l or arg->u)) { this->errfmt->Print_(str129, loc::Missing); } } if (cmd_val->builtin_id == builtin_i::local) { which_scopes = scope_e::LocalOnly; } else { if (arg->g) { which_scopes = scope_e::GlobalOnly; } else { which_scopes = scope_e::LocalOnly; } } flags = 0; if (maybe_str_equals(arg->x, str130)) { flags |= state::SetExport; } if (maybe_str_equals(arg->r, str131)) { flags |= state::SetReadOnly; } if (maybe_str_equals(arg->n, str132)) { flags |= state::SetNameref; } if (maybe_str_equals(arg->x, str133)) { flags |= state::ClearExport; } if (maybe_str_equals(arg->r, str134)) { flags |= state::ClearReadOnly; } if (maybe_str_equals(arg->n, str135)) { flags |= state::ClearNameref; } for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); rval = pair->rval; if ((rval == nullptr and (arg->a or arg->A))) { old_val = this->mem->GetValue(pair->var_name); if (arg->a) { if (old_val->tag() != value_e::BashArray) { rval = Alloc(Alloc>()); } } else { if (arg->A) { if (old_val->tag() != value_e::BashAssoc) { rval = Alloc(Alloc>()); } } } } lval = Alloc(pair->var_name, pair->blame_word); if (pair->plus_eq) { old_val = sh_expr_eval::OldValue(lval, this->mem, nullptr); rval = cmd_eval::PlusEquals(old_val, pair->rval); } else { rval = _ReconcileTypes(rval, arg->a, arg->A, pair->blame_word); } this->mem->SetNamed(lval, rval, which_scopes, flags); } return status; } Unset::Unset(state::Mem* mem, state::Procs* procs, sh_expr_eval::UnsafeArith* unsafe_arith, ui::ErrorFormatter* errfmt) { this->mem = mem; this->procs = procs; this->unsafe_arith = unsafe_arith; this->errfmt = errfmt; } bool Unset::_UnsetVar(BigStr* arg, syntax_asdl::loc_t* location, bool proc_fallback) { value_asdl::sh_lvalue_t* lval = nullptr; bool found; BigStr* msg = nullptr; StackRoot _root0(&arg); StackRoot _root1(&location); StackRoot _root2(&lval); StackRoot _root3(&msg); lval = this->unsafe_arith->ParseLValue(arg, location); found = false; try { found = this->mem->Unset(lval, scope_e::Shopt); } catch (error::Runtime* e) { msg = e->UserErrorString(); this->errfmt->Print_(msg, location); return false; } if ((proc_fallback and !found)) { this->procs->Del(arg); } return true; } int Unset::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::unset* arg = nullptr; List* argv = nullptr; List* arg_locs = nullptr; int i; syntax_asdl::CompoundWord* location = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&argv); StackRoot _root5(&arg_locs); StackRoot _root6(&location); Tuple2 tup0 = flag_util::ParseCmdVal(str136, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); Tuple2*, List*> tup1 = arg_r->Rest2(); argv = tup1.at0(); arg_locs = tup1.at1(); i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); location = arg_locs->at(i); if (arg->f) { this->procs->Del(name); } else { if (arg->v) { if (!this->_UnsetVar(name, location, false)) { return 1; } } else { if (!this->_UnsetVar(name, location, true)) { return 1; } } } } return 0; } Shift::Shift(state::Mem* mem) { this->mem = mem; } int Shift::Run(cmd_value::Argv* cmd_val) { int num_args; int n; BigStr* arg = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg); num_args = (len(cmd_val->argv) - 1); if (num_args == 0) { n = 1; } else { if (num_args == 1) { arg = cmd_val->argv->at(1); try { n = to_int(arg); } catch (ValueError*) { e_usage(StrFormat("Invalid shift argument %r", arg), loc::Missing); } } else { e_usage(str138, loc::Missing); } } return this->mem->Shift(n); } } // define namespace assign_osh namespace completion_ysh { // define using syntax_asdl::loc; using error::e_usage; CompExport::CompExport(completion::RootCompleter* root_comp) { this->root_comp = root_comp; } int CompExport::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::compexport* arg = nullptr; int arg_begin; int arg_end; int begin; int end; completion::Api* comp = nullptr; List* comp_matches = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); StackRoot _root4(&comp); StackRoot _root5(&comp_matches); StackRoot _root6(&buf); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::ParseMore(str139, arg_r); arg = Alloc(attrs->attrs); if (arg->c == nullptr) { e_usage(str140, loc::Missing); } arg_begin = mops::BigTruncate(arg->begin); arg_end = mops::BigTruncate(arg->end); begin = arg_begin == -1 ? 0 : arg_begin; end = arg_end == -1 ? len(arg->c) : arg_end; comp = Alloc(arg->c, begin, end); List _iter_buf_it; this->root_comp->Matches(comp, &_iter_buf_it); ListIter it(&_iter_buf_it); comp_matches = list(it); comp_matches->reverse(); if (maybe_str_equals(arg->format, str141)) { buf = Alloc(); for (ListIter it(comp_matches); !it.Done(); it.Next()) { BigStr* m = it.Value(); StackRoot _for(&m ); j8::EncodeString(m, buf); print(buf->getvalue()); buf->clear(); } } else { if (maybe_str_equals(arg->format, str142)) { mylib::print_stderr(str143); } else { assert(0); // AssertionError } } return 0; } } // define namespace completion_ysh namespace dirs_osh { // define using runtime_asdl::cmd_value; using error::e_usage; DirStack::DirStack() { this->stack = Alloc>(); this->Reset(); } void DirStack::Reset() { this->stack->clear(); this->stack->append(posix::getcwd()); } void DirStack::Replace(BigStr* d) { StackRoot _root0(&d); this->stack->set(-1, d); } void DirStack::Push(BigStr* entry) { StackRoot _root0(&entry); this->stack->append(entry); } BigStr* DirStack::Pop() { if (len(this->stack) <= 1) { return nullptr; } this->stack->pop(); return this->stack->at(-1); } List* DirStack::Iter() { List* ret = nullptr; StackRoot _root0(&ret); ret = Alloc>(); ret->extend(this->stack); ret->reverse(); return ret; } ctx_CdBlock::ctx_CdBlock(dirs_osh::DirStack* dir_stack, BigStr* dest_dir, state::Mem* mem, ui::ErrorFormatter* errfmt, List* out_errs) { gHeap.PushRoot(reinterpret_cast(&(this->dir_stack))); gHeap.PushRoot(reinterpret_cast(&(this->errfmt))); gHeap.PushRoot(reinterpret_cast(&(this->mem))); gHeap.PushRoot(reinterpret_cast(&(this->out_errs))); dir_stack->Push(dest_dir); this->dir_stack = dir_stack; this->mem = mem; this->errfmt = errfmt; this->out_errs = out_errs; } ctx_CdBlock::~ctx_CdBlock() { _PopDirStack(str144, this->mem, this->dir_stack, this->errfmt, this->out_errs); gHeap.PopRoot(); gHeap.PopRoot(); gHeap.PopRoot(); gHeap.PopRoot(); } Cd::Cd(state::Mem* mem, dirs_osh::DirStack* dir_stack, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt) { this->mem = mem; this->dir_stack = dir_stack; this->cmd_ev = cmd_ev; this->errfmt = errfmt; } int Cd::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::cd* arg = nullptr; syntax_asdl::command_t* cmd = nullptr; BigStr* dest_dir = nullptr; syntax_asdl::loc_t* arg_loc = nullptr; BigStr* extra = nullptr; syntax_asdl::loc_t* extra_loc = nullptr; BigStr* pwd = nullptr; BigStr* abspath = nullptr; BigStr* real_dest_dir = nullptr; int err_num; List* out_errs = nullptr; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&cmd); StackRoot _root5(&dest_dir); StackRoot _root6(&arg_loc); StackRoot _root7(&extra); StackRoot _root8(&extra_loc); StackRoot _root9(&pwd); StackRoot _root10(&abspath); StackRoot _root11(&real_dest_dir); StackRoot _root12(&out_errs); Tuple2 tup0 = flag_util::ParseCmdVal(str145, cmd_val, true); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); cmd = typed_args::OptionalBlock(cmd_val); Tuple2 tup1 = arg_r->Peek2(); dest_dir = tup1.at0(); arg_loc = tup1.at1(); if (dest_dir == nullptr) { if (cmd) { throw Alloc(str146, cmd_val->arg_locs->at(0)); } else { try { dest_dir = state::GetString(this->mem, str147); } catch (error::Runtime* e) { this->errfmt->Print_(e->UserErrorString()); return 1; } } } arg_r->Next(); Tuple2 tup2 = arg_r->Peek2(); extra = tup2.at0(); extra_loc = tup2.at1(); if (extra != nullptr) { throw Alloc(str148, extra_loc); } if (str_equals(dest_dir, str149)) { try { dest_dir = state::GetString(this->mem, str150); print(dest_dir); } catch (error::Runtime* e) { this->errfmt->Print_(e->UserErrorString()); return 1; } } try { pwd = state::GetString(this->mem, str151); } catch (error::Runtime* e) { this->errfmt->Print_(e->UserErrorString()); return 1; } abspath = os_path::join(pwd, dest_dir); if (arg->P) { real_dest_dir = libc::realpath(abspath); } else { real_dest_dir = os_path::normpath(abspath); } err_num = pyos::Chdir(real_dest_dir); if (err_num != 0) { this->errfmt->Print_(StrFormat("cd %r: %s", real_dest_dir, posix::strerror(err_num)), arg_loc); return 1; } state::ExportGlobalString(this->mem, str153, real_dest_dir); this->mem->SetPwd(real_dest_dir); if (cmd) { out_errs = Alloc>(); { // with ctx_CdBlock ctx{this->dir_stack, real_dest_dir, this->mem, this->errfmt, out_errs}; unused = this->cmd_ev->EvalCommand(cmd); } if (len(out_errs)) { return 1; } } else { state::ExportGlobalString(this->mem, str154, pwd); this->dir_stack->Replace(real_dest_dir); } return 0; } int WITH_LINE_NUMBERS = 1; int WITHOUT_LINE_NUMBERS = 2; int SINGLE_LINE = 3; void _PrintDirStack(dirs_osh::DirStack* dir_stack, int style, BigStr* home_dir) { int i; List* parts = nullptr; BigStr* s = nullptr; StackRoot _root0(&dir_stack); StackRoot _root1(&home_dir); StackRoot _root2(&parts); StackRoot _root3(&s); if (style == WITH_LINE_NUMBERS) { i = 0; for (ListIter it(dir_stack->Iter()); !it.Done(); it.Next(), ++i) { BigStr* entry = it.Value(); StackRoot _for(&entry ); print(StrFormat("%2d %s", i, ui::PrettyDir(entry, home_dir))); } } else { if (style == WITHOUT_LINE_NUMBERS) { for (ListIter it(dir_stack->Iter()); !it.Done(); it.Next()) { BigStr* entry = it.Value(); StackRoot _for(&entry ); print(ui::PrettyDir(entry, home_dir)); } } else { if (style == SINGLE_LINE) { parts = Alloc>(); for (ListIter it(dir_stack->Iter()); !it.Done(); it.Next()) { BigStr* entry = it.Value(); parts->append(ui::PrettyDir(entry, home_dir)); } s = str156->join(parts); print(s); } } } } Pushd::Pushd(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt) { this->mem = mem; this->dir_stack = dir_stack; this->errfmt = errfmt; } int Pushd::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* dir_arg = nullptr; syntax_asdl::loc_t* dir_arg_loc = nullptr; BigStr* extra = nullptr; syntax_asdl::loc_t* extra_loc = nullptr; BigStr* dest_dir = nullptr; int err_num; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&dir_arg); StackRoot _root3(&dir_arg_loc); StackRoot _root4(&extra); StackRoot _root5(&extra_loc); StackRoot _root6(&dest_dir); Tuple2 tup3 = flag_util::ParseCmdVal(str157, cmd_val); arg_r = tup3.at1(); Tuple2 tup4 = arg_r->Peek2(); dir_arg = tup4.at0(); dir_arg_loc = tup4.at1(); if (dir_arg == nullptr) { this->errfmt->Print_(str158); return 1; } arg_r->Next(); Tuple2 tup5 = arg_r->Peek2(); extra = tup5.at0(); extra_loc = tup5.at1(); if (extra != nullptr) { e_usage(str159, extra_loc); } dest_dir = os_path::abspath(dir_arg); err_num = pyos::Chdir(dest_dir); if (err_num != 0) { this->errfmt->Print_(StrFormat("pushd: %r: %s", dest_dir, posix::strerror(err_num)), dir_arg_loc); return 1; } this->dir_stack->Push(dest_dir); _PrintDirStack(this->dir_stack, SINGLE_LINE, state::MaybeString(this->mem, str161)); state::ExportGlobalString(this->mem, str162, dest_dir); this->mem->SetPwd(dest_dir); return 0; } bool _PopDirStack(BigStr* label, state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt, List* out_errs) { BigStr* dest_dir = nullptr; int err_num; StackRoot _root0(&label); StackRoot _root1(&mem); StackRoot _root2(&dir_stack); StackRoot _root3(&errfmt); StackRoot _root4(&out_errs); StackRoot _root5(&dest_dir); dest_dir = dir_stack->Pop(); if (dest_dir == nullptr) { errfmt->Print_(StrFormat("%s: directory stack is empty", label)); out_errs->append(true); return false; } err_num = pyos::Chdir(dest_dir); if (err_num != 0) { errfmt->Print_(StrFormat("%s: %r: %s", label, dest_dir, posix::strerror(err_num))); out_errs->append(true); return false; } state::SetGlobalString(mem, str165, dest_dir); mem->SetPwd(dest_dir); return true; } Popd::Popd(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt) { this->mem = mem; this->dir_stack = dir_stack; this->errfmt = errfmt; } int Popd::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* extra = nullptr; syntax_asdl::loc_t* extra_loc = nullptr; List* out_errs = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&extra); StackRoot _root3(&extra_loc); StackRoot _root4(&out_errs); Tuple2 tup6 = flag_util::ParseCmdVal(str166, cmd_val); arg_r = tup6.at1(); Tuple2 tup7 = arg_r->Peek2(); extra = tup7.at0(); extra_loc = tup7.at1(); if (extra != nullptr) { e_usage(str167, extra_loc); } out_errs = Alloc>(); _PopDirStack(str168, this->mem, this->dir_stack, this->errfmt, out_errs); if (len(out_errs)) { return 1; } _PrintDirStack(this->dir_stack, SINGLE_LINE, state::MaybeString(this->mem, str169)); return 0; } Dirs::Dirs(state::Mem* mem, dirs_osh::DirStack* dir_stack, ui::ErrorFormatter* errfmt) { this->mem = mem; this->dir_stack = dir_stack; this->errfmt = errfmt; } int Dirs::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::dirs* arg = nullptr; BigStr* home_dir = nullptr; int style; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&home_dir); Tuple2 tup8 = flag_util::ParseCmdVal(str170, cmd_val); attrs = tup8.at0(); arg_r = tup8.at1(); arg = Alloc(attrs->attrs); home_dir = state::MaybeString(this->mem, str171); style = SINGLE_LINE; if (arg->l) { home_dir = nullptr; } if (arg->c) { this->dir_stack->Reset(); return 0; } else { if (arg->v) { style = WITH_LINE_NUMBERS; } else { if (arg->p) { style = WITHOUT_LINE_NUMBERS; } } } _PrintDirStack(this->dir_stack, style, home_dir); return 0; } Pwd::Pwd(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } int Pwd::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::pwd* arg = nullptr; BigStr* pwd = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&pwd); Tuple2 tup9 = flag_util::ParseCmdVal(str172, cmd_val); attrs = tup9.at0(); arg_r = tup9.at1(); arg = Alloc(attrs->attrs); pwd = this->mem->pwd; if (arg->P) { pwd = libc::realpath(pwd); } print(pwd); return 0; } } // define namespace dirs_osh namespace error_ysh { // define using option_asdl::option_i; using id_kind_asdl::Id; using runtime_asdl::cmd_value; using runtime_asdl::CommandStatus; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::expr; using syntax_asdl::expr_e; using value_asdl::value; using value_asdl::value_e; using error::e_die_status; using error::e_usage; ctx_Try::ctx_Try(state::MutableOpts* mutable_opts) { gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); mutable_opts->Push(option_i::errexit, true); this->mutable_opts = mutable_opts; } ctx_Try::~ctx_Try() { this->mutable_opts->Pop(option_i::errexit); gHeap.PopRoot(); } Try::Try(state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev, vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt) { this->mutable_opts = mutable_opts; this->mem = mem; this->shell_ex = shell_ex; this->cmd_ev = cmd_ev; this->errfmt = errfmt; } int Try::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; typed_args::Reader* rd = nullptr; syntax_asdl::command_t* cmd = nullptr; value::Dict* error_dict = nullptr; int status; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&rd); StackRoot _root3(&cmd); StackRoot _root4(&error_dict); Tuple2 tup0 = flag_util::ParseCmdVal(str173, cmd_val, true); arg_r = tup0.at1(); rd = typed_args::ReaderForProc(cmd_val); cmd = rd->RequiredBlock(); rd->Done(); error_dict = nullptr; status = 0; try { { // with ctx_Try ctx{this->mutable_opts}; unused = this->cmd_ev->EvalCommand(cmd); } } catch (error::Expr* e) { status = e->ExitStatus(); } catch (error::ErrExit* e) { status = e->ExitStatus(); } catch (error::Structured* e) { status = e->ExitStatus(); error_dict = e->ToDict(); } if (error_dict == nullptr) { error_dict = Alloc(Alloc>(std::initializer_list{str174}, std::initializer_list{num::ToBig(status)})); } this->mem->SetTryError(error_dict); this->mem->SetTryStatus(status); return 0; } Failed::Failed(state::Mem* mem) { this->mem = mem; } int Failed::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; value::Dict* err = nullptr; value_asdl::value_t* code = nullptr; value_asdl::value_t* UP_code = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&err); StackRoot _root3(&code); StackRoot _root4(&UP_code); Tuple2 tup1 = flag_util::ParseCmdVal(str175, cmd_val); arg_r = tup1.at1(); arg_r->Done(); err = this->mem->TryError(); code = err->d->get(str176); if (code == nullptr) { return 1; } UP_code = code; switch (code->tag()) { case value_e::Int: { value::Int* code = static_cast(UP_code); return mops::Equal(code->i, mops::ZERO) ? 1 : 0; } break; default: { assert(0); // AssertionError } } } Error::Error() { ; // pass } int Error::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* message = nullptr; typed_args::Reader* rd = nullptr; int status; Dict* properties = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&message); StackRoot _root3(&rd); StackRoot _root4(&properties); Tuple2 tup2 = flag_util::ParseCmdVal(str177, cmd_val, true); arg_r = tup2.at1(); message = arg_r->Peek(); if (message == nullptr) { throw Alloc(str178, cmd_val->arg_locs->at(0)); } rd = typed_args::ReaderForProc(cmd_val); status = mops::BigTruncate(rd->NamedInt(str179, 10)); properties = rd->RestNamed(); rd->Done(); if (status == 0) { throw Alloc(str180, cmd_val->arg_locs->at(0)); } throw Alloc(status, message, cmd_val->arg_locs->at(0), properties); } BoolStatus::BoolStatus(vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt) { this->shell_ex = shell_ex; this->errfmt = errfmt; } int BoolStatus::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; List* argv = nullptr; List* locs = nullptr; cmd_value::Argv* cmd_val2 = nullptr; runtime_asdl::CommandStatus* cmd_st = nullptr; int status; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&argv); StackRoot _root3(&locs); StackRoot _root4(&cmd_val2); StackRoot _root5(&cmd_st); Tuple2 tup3 = flag_util::ParseCmdVal(str181, cmd_val); arg_r = tup3.at1(); if (arg_r->Peek() == nullptr) { e_usage(str182, loc::Missing); } Tuple2*, List*> tup4 = arg_r->Rest2(); argv = tup4.at0(); locs = tup4.at1(); cmd_val2 = Alloc(argv, locs, cmd_val->typed_args, cmd_val->pos_args, cmd_val->named_args, cmd_val->block_arg); cmd_st = CommandStatus::CreateNull(true); status = this->shell_ex->RunSimpleCommand(cmd_val2, cmd_st, executor::DO_FORK); if ((status != 0 && status != 1)) { e_die_status(status, StrFormat("boolstatus expected status 0 or 1, got %d", status), locs->at(0)); } return status; } Assert::Assert(expr_eval::ExprEvaluator* expr_ev, ui::ErrorFormatter* errfmt) { this->expr_ev = expr_ev; this->errfmt = errfmt; this->f = mylib::Stdout(); } void Assert::_AssertComparison(expr::Compare* exp, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* expected = nullptr; value_asdl::value_t* actual = nullptr; StackRoot _root0(&exp); StackRoot _root1(&blame_loc); StackRoot _root2(&expected); StackRoot _root3(&actual); expected = this->expr_ev->EvalExpr(exp->left, loc::Missing); actual = this->expr_ev->EvalExpr(exp->comparators->at(0), loc::Missing); if (!val_ops::ExactlyEqual(expected, actual, blame_loc)) { this->f->write(str184); ui::PrettyPrintValue(str185, expected, this->f); ui::PrettyPrintValue(str186, actual, this->f); throw Alloc(str187, exp->ops->at(0)); } } void Assert::_AssertExpression(value::Expr* val, syntax_asdl::loc_t* blame_loc) { syntax_asdl::expr_t* exp = nullptr; syntax_asdl::expr_t* UP_exp = nullptr; value_asdl::value_t* result = nullptr; bool b; StackRoot _root0(&val); StackRoot _root1(&blame_loc); StackRoot _root2(&exp); StackRoot _root3(&UP_exp); StackRoot _root4(&result); exp = val->e; UP_exp = exp; switch (exp->tag()) { case expr_e::Compare: { expr::Compare* exp = static_cast(UP_exp); if ((len(exp->ops) == 1 and exp->ops->at(0)->id == Id::Expr_TEqual)) { this->_AssertComparison(exp, blame_loc); return ; } } break; } result = this->expr_ev->EvalExpr(val->e, blame_loc); b = val_ops::ToBool(result); if (!b) { throw Alloc(str188, blame_loc); } } int Assert::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; bool b; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&rd); StackRoot _root3(&val); StackRoot _root4(&UP_val); Tuple2 tup5 = flag_util::ParseCmdVal(str189, cmd_val, true); arg_r = tup5.at1(); rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::Expr: { value::Expr* val = static_cast(UP_val); this->_AssertExpression(val, rd->LeftParenToken()); } break; default: { b = val_ops::ToBool(val); if (!b) { this->f->write(str190); ui::PrettyPrintValue(str191, val, this->f); throw Alloc(str192, rd->LeftParenToken()); } } } return 0; } } // define namespace error_ysh namespace func_eggex { // define using syntax_asdl::loc_t; using syntax_asdl::Token; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::eggex_ops; using value_asdl::eggex_ops_e; using value_asdl::eggex_ops_t; using value_asdl::regex_match_e; using value_asdl::RegexMatch; int G = 0; int S = 1; int E = 2; _MatchCallable::_MatchCallable(int to_return, expr_eval::ExprEvaluator* expr_ev) { this->to_return = to_return; this->expr_ev = expr_ev; } value_asdl::value_t* _MatchCallable::_ReturnValue(value_asdl::RegexMatch* match, int group_index, syntax_asdl::loc_t* blame_loc) { int num_groups; int start; int end; value_asdl::value_t* val = nullptr; value_asdl::value_t* convert_func = nullptr; syntax_asdl::Token* convert_tok = nullptr; eggex_ops::Yes* ops = nullptr; StackRoot _root0(&match); StackRoot _root1(&blame_loc); StackRoot _root2(&val); StackRoot _root3(&convert_func); StackRoot _root4(&convert_tok); StackRoot _root5(&ops); num_groups = (len(match->indices) / 2); if (group_index < num_groups) { start = match->indices->at((2 * group_index)); if (this->to_return == S) { return num::ToBig(start); } end = match->indices->at(((2 * group_index) + 1)); if (this->to_return == E) { return num::ToBig(end); } if (start == -1) { return value::Null; } else { val = Alloc(match->s->slice(start, end)); convert_func = nullptr; convert_tok = nullptr; switch (match->ops->tag()) { case eggex_ops_e::Yes: { ops = static_cast(match->ops); if ((len(ops->convert_funcs) and group_index != 0)) { convert_func = ops->convert_funcs->at((group_index - 1)); convert_tok = ops->convert_toks->at((group_index - 1)); } } break; } if (convert_func != nullptr) { val = this->expr_ev->CallConvertFunc(convert_func, val, convert_tok, blame_loc); } return val; } } else { throw Alloc(StrFormat("Expected capture group less than %d, got %d", num_groups, group_index), blame_loc); } } value_asdl::value_t* _MatchCallable::_Call(value_asdl::RegexMatch* match, value_asdl::value_t* group_arg, syntax_asdl::loc_t* blame_loc) { int group_index; StackRoot _root0(&match); StackRoot _root1(&group_arg); StackRoot _root2(&blame_loc); group_index = _GetGroupIndex(group_arg, match->ops, blame_loc); return this->_ReturnValue(match, group_index, blame_loc); } int _GetGroupIndex(value_asdl::value_t* group, value_asdl::eggex_ops_t* ops, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_group = nullptr; int group_index; mops::BigInt group_index_big; value_asdl::eggex_ops_t* UP_ops = nullptr; int i; StackRoot _root0(&group); StackRoot _root1(&ops); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_group); StackRoot _root4(&UP_ops); UP_group = group; group_index = -1; switch (group->tag()) { case value_e::Int: { value::Int* group = static_cast(UP_group); group_index_big = group->i; group_index = mops::BigTruncate(group_index_big); } break; case value_e::Str: { value::Str* group = static_cast(UP_group); UP_ops = ops; switch (ops->tag()) { case eggex_ops_e::No: { throw Alloc(StrFormat("ERE captures don't have names (%r)", group->s), blame_loc); } break; case eggex_ops_e::Yes: { eggex_ops::Yes* ops = static_cast(UP_ops); i = 0; for (ListIter it(ops->capture_names); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); if (str_equals(name, group->s)) { group_index = (i + 1); break; } } if (group_index == -1) { throw Alloc(StrFormat("No such group %r", group->s), blame_loc); } } break; } } break; default: { throw Alloc(group, str196, blame_loc); } } return group_index; } MatchFunc::MatchFunc(int to_return, expr_eval::ExprEvaluator* expr_ev, state::Mem* mem) : ::func_eggex::_MatchCallable(to_return, expr_ev) { this->mem = mem; } value_asdl::value_t* MatchFunc::Call(typed_args::Reader* rd) { value_asdl::value_t* group_arg = nullptr; value_asdl::regex_match_t* match = nullptr; value_asdl::regex_match_t* UP_match = nullptr; StackRoot _root0(&rd); StackRoot _root1(&group_arg); StackRoot _root2(&match); StackRoot _root3(&UP_match); group_arg = rd->PosValue(); rd->Done(); match = this->mem->GetRegexMatch(); UP_match = match; switch (match->tag()) { case regex_match_e::No: { throw Alloc(str197, rd->LeftParenToken()); } break; case regex_match_e::Yes: { RegexMatch* match = static_cast(UP_match); return this->_Call(match, group_arg, rd->LeftParenToken()); } break; } assert(0); // AssertionError } MatchMethod::MatchMethod(int to_return, expr_eval::ExprEvaluator* expr_ev) : ::func_eggex::_MatchCallable(to_return, expr_ev) { } value_asdl::value_t* MatchMethod::Call(typed_args::Reader* rd) { value_asdl::RegexMatch* match = nullptr; value_asdl::value_t* group_arg = nullptr; StackRoot _root0(&rd); StackRoot _root1(&match); StackRoot _root2(&group_arg); match = rd->PosMatch(); group_arg = rd->PosValue(); rd->Done(); return this->_Call(match, group_arg, rd->LeftParenToken()); } } // define namespace func_eggex namespace func_hay { // define using syntax_asdl::source; using syntax_asdl::loc; using syntax_asdl::command_t; using value_asdl::value; ParseHay::ParseHay(process::FdState* fd_state, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt) { this->fd_state = fd_state; this->parse_ctx = parse_ctx; this->errfmt = errfmt; } value_asdl::value_t* ParseHay::_Call(BigStr* path) { syntax_asdl::loc__Missing* call_loc = nullptr; mylib::LineReader* f = nullptr; BigStr* msg = nullptr; alloc::Arena* arena = nullptr; reader::FileLineReader* line_reader = nullptr; optview::Parse* parse_opts = nullptr; cmd_parse::CommandParser* c_parser = nullptr; source::SourcedFile* src = nullptr; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&path); StackRoot _root1(&call_loc); StackRoot _root2(&f); StackRoot _root3(&msg); StackRoot _root4(&arena); StackRoot _root5(&line_reader); StackRoot _root6(&parse_opts); StackRoot _root7(&c_parser); StackRoot _root8(&src); StackRoot _root9(&node); call_loc = loc::Missing; try { f = this->fd_state->Open(path); } catch (IOError_OSError* e) { msg = posix::strerror(e->errno_); throw Alloc(StrFormat("Couldn't open %r: %s", path, msg), call_loc); } arena = this->parse_ctx->arena; line_reader = Alloc(f, arena); parse_opts = state::MakeOilOpts(); c_parser = this->parse_ctx->MakeConfigParser(line_reader); src = Alloc(path, call_loc); try { { // with alloc::ctx_SourceCode ctx{arena, src}; node = main_loop::ParseWholeFile(c_parser); } } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); return nullptr; } return Alloc(node); } value_asdl::value_t* ParseHay::Call(typed_args::Reader* rd) { BigStr* string = nullptr; StackRoot _root0(&rd); StackRoot _root1(&string); string = rd->PosStr(); rd->Done(); return this->_Call(string); } EvalHay::EvalHay(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->hay_state = hay_state; this->mutable_opts = mutable_opts; this->mem = mem; this->cmd_ev = cmd_ev; } Dict* EvalHay::_Call(syntax_asdl::command_t* cmd) { int unused; StackRoot _root0(&cmd); { // with hay_ysh::ctx_HayEval ctx{this->hay_state, this->mutable_opts, this->mem}; unused = this->cmd_ev->EvalCommand(cmd); } return this->hay_state->Result(); } value_asdl::value_t* EvalHay::Call(typed_args::Reader* rd) { syntax_asdl::command_t* cmd = nullptr; StackRoot _root0(&rd); StackRoot _root1(&cmd); cmd = rd->PosCommand(); rd->Done(); return Alloc(this->_Call(cmd)); } BlockAsStr::BlockAsStr(alloc::Arena* arena) { this->arena = arena; } value_asdl::value_t* BlockAsStr::_Call(value_asdl::value_t* block) { StackRoot _root0(&block); return block; } value_asdl::value_t* BlockAsStr::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); val = rd->PosValue(); rd->Done(); return this->_Call(val); } HayFunc::HayFunc(hay_ysh::HayState* hay_state) { this->hay_state = hay_state; } Dict* HayFunc::_Call() { return this->hay_state->HayRegister(); } value_asdl::value_t* HayFunc::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return Alloc(this->_Call()); } } // define namespace func_hay namespace func_misc { // define using runtime_asdl::scope_e; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::value_str; Len::Len() { ; // pass } value_asdl::value_t* Len::Call(typed_args::Reader* rd) { value_asdl::value_t* x = nullptr; value_asdl::value_t* UP_x = nullptr; StackRoot _root0(&rd); StackRoot _root1(&x); StackRoot _root2(&UP_x); x = rd->PosValue(); rd->Done(); UP_x = x; switch (x->tag()) { case value_e::List: { value::List* x = static_cast(UP_x); return num::ToBig(len(x->items)); } break; case value_e::Dict: { value::Dict* x = static_cast(UP_x); return num::ToBig(len(x->d)); } break; case value_e::Str: { value::Str* x = static_cast(UP_x); return num::ToBig(len(x->s)); } break; } throw Alloc(x, str199, rd->BlamePos()); } Type::Type() { ; // pass } value_asdl::value_t* Type::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); val = rd->PosValue(); rd->Done(); return Alloc(ui::ValType(val)); } Join::Join() { ; // pass } value_asdl::value_t* Join::Call(typed_args::Reader* rd) { List* li = nullptr; BigStr* delim = nullptr; List* strs = nullptr; int i; StackRoot _root0(&rd); StackRoot _root1(&li); StackRoot _root2(&delim); StackRoot _root3(&strs); li = rd->PosList(); delim = rd->OptionalStr(str200); rd->Done(); strs = Alloc>(); i = 0; for (ListIter it(li); !it.Done(); it.Next(), ++i) { value_asdl::value_t* el = it.Value(); StackRoot _for(&el ); strs->append(val_ops::Stringify(el, rd->LeftParenToken())); } return Alloc(delim->join(strs)); } Maybe::Maybe() { ; // pass } value_asdl::value_t* Maybe::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; BigStr* s = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&s); val = rd->PosValue(); rd->Done(); if (val == value::Null) { return Alloc(Alloc>()); } s = val_ops::ToStr(val, StrFormat("maybe() expected Str, but got %s", value_str(val->tag())), rd->LeftParenToken()); if (len(s)) { return Alloc(NewList(std::initializer_list{val})); } return Alloc(Alloc>()); } Bool::Bool() { ; // pass } value_asdl::value_t* Bool::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); val = rd->PosValue(); rd->Done(); return Alloc(val_ops::ToBool(val)); } Int::Int() { ; // pass } value_asdl::value_t* Int::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; bool ok; mops::BigInt big_int; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&UP_val); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::Int: { return val; } break; case value_e::Bool: { value::Bool* val = static_cast(UP_val); return Alloc(mops::FromBool(val->b)); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); Tuple2 tup0 = mops::FromFloat(val->f); ok = tup0.at0(); big_int = tup0.at1(); if (ok) { return Alloc(big_int); } else { throw Alloc(StrFormat("Can't convert float %s to Int", pp_value::FloatString(val->f)), rd->BlamePos()); } } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if (!match::LooksLikeInteger(val->s)) { throw Alloc(StrFormat("Can't convert %s to Int", val->s), rd->BlamePos()); } return Alloc(mops::FromStr(val->s)); } break; } throw Alloc(val, str204, rd->BlamePos()); } Float::Float() { ; // pass } value_asdl::value_t* Float::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&UP_val); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::Int: { value::Int* val = static_cast(UP_val); return Alloc(mops::ToFloat(val->i)); } break; case value_e::Float: { return val; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if (!match::LooksLikeFloat(val->s)) { throw Alloc(StrFormat("Cannot convert %s to Float", val->s), rd->BlamePos()); } return Alloc(to_float(val->s)); } break; } throw Alloc(val, str206, rd->BlamePos()); } Str_::Str_() { ; // pass } value_asdl::value_t* Str_::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&UP_val); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::Int: { value::Int* val = static_cast(UP_val); return Alloc(mops::ToStr(val->i)); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); return Alloc(str(val->f)); } break; case value_e::Str: { return val; } break; } throw Alloc(val, str207, rd->BlamePos()); } List_::List_() { ; // pass } value_asdl::value_t* List_::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; List* l = nullptr; val_ops::Iterator* it = nullptr; value_asdl::value_t* UP_val = nullptr; value_asdl::value_t* first = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&l); StackRoot _root3(&it); StackRoot _root4(&UP_val); StackRoot _root5(&first); val = rd->PosValue(); rd->Done(); l = Alloc>(); it = nullptr; UP_val = val; switch (val->tag()) { case value_e::List: { value::List* val = static_cast(UP_val); it = Alloc(val); } break; case value_e::Dict: { value::Dict* val = static_cast(UP_val); it = Alloc(val); } break; case value_e::Range: { value::Range* val = static_cast(UP_val); it = Alloc(val); } break; default: { throw Alloc(val, str208, rd->BlamePos()); } } while (true) { first = it->FirstValue(); if (first == nullptr) { break; } l->append(first); it->Next(); } return Alloc(l); } Dict_::Dict_() { ; // pass } value_asdl::value_t* Dict_::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; Dict* d = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&UP_val); StackRoot _root3(&d); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::Dict: { d = Alloc>(); value::Dict* val = static_cast(UP_val); for (DictIter it(val->d); !it.Done(); it.Next()) { BigStr* k = it.Key(); value_asdl::value_t* v = it.Value(); d->set(k, v); } return Alloc(d); } break; case value_e::BashAssoc: { d = Alloc>(); value::BashAssoc* val = static_cast(UP_val); for (DictIter it(val->d); !it.Done(); it.Next()) { BigStr* k = it.Key(); BigStr* s = it.Value(); d->set(k, Alloc(s)); } return Alloc(d); } break; } throw Alloc(val, str209, rd->BlamePos()); } Runes::Runes() { ; // pass } value_asdl::value_t* Runes::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } EncodeRunes::EncodeRunes() { ; // pass } value_asdl::value_t* EncodeRunes::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } Bytes::Bytes() { ; // pass } value_asdl::value_t* Bytes::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } EncodeBytes::EncodeBytes() { ; // pass } value_asdl::value_t* EncodeBytes::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } Split::Split(split::SplitContext* splitter) : ::vm::_Callable() { this->splitter = splitter; } value_asdl::value_t* Split::Call(typed_args::Reader* rd) { BigStr* s = nullptr; BigStr* ifs = nullptr; List* l = nullptr; StackRoot _root0(&rd); StackRoot _root1(&s); StackRoot _root2(&ifs); StackRoot _root3(&l); s = rd->PosStr(); ifs = rd->OptionalStr(); rd->Done(); l = Alloc>(); for (ListIter it(this->splitter->SplitForWordEval(s, ifs)); !it.Done(); it.Next()) { BigStr* elem = it.Value(); l->append(Alloc(elem)); } return Alloc(l); } FloatsEqual::FloatsEqual() { ; // pass } value_asdl::value_t* FloatsEqual::Call(typed_args::Reader* rd) { double left; double right; StackRoot _root0(&rd); left = rd->PosFloat(); right = rd->PosFloat(); rd->Done(); return Alloc(left == right); } Glob::Glob(glob_::Globber* globber) : ::vm::_Callable() { this->globber = globber; } value_asdl::value_t* Glob::Call(typed_args::Reader* rd) { BigStr* s = nullptr; List* out = nullptr; List* l = nullptr; StackRoot _root0(&rd); StackRoot _root1(&s); StackRoot _root2(&out); StackRoot _root3(&l); s = rd->PosStr(); rd->Done(); out = Alloc>(); this->globber->_Glob(s, out); l = Alloc>(); for (ListIter it(out); !it.Done(); it.Next()) { BigStr* elem = it.Value(); l->append(Alloc(elem)); } return Alloc(l); } Shvar_get::Shvar_get(state::Mem* mem) : ::vm::_Callable() { this->mem = mem; } value_asdl::value_t* Shvar_get::Call(typed_args::Reader* rd) { BigStr* name = nullptr; StackRoot _root0(&rd); StackRoot _root1(&name); name = rd->PosStr(); rd->Done(); return state::DynamicGetVar(this->mem, name, scope_e::Dynamic); } GetVar::GetVar(state::Mem* mem) : ::vm::_Callable() { this->mem = mem; } value_asdl::value_t* GetVar::Call(typed_args::Reader* rd) { BigStr* name = nullptr; StackRoot _root0(&rd); StackRoot _root1(&name); name = rd->PosStr(); rd->Done(); return state::DynamicGetVar(this->mem, name, scope_e::LocalOrGlobal); } EvalExpr::EvalExpr(expr_eval::ExprEvaluator* expr_ev) { this->expr_ev = expr_ev; } value_asdl::value_t* EvalExpr::Call(typed_args::Reader* rd) { syntax_asdl::expr_t* lazy = nullptr; value_asdl::value_t* result = nullptr; StackRoot _root0(&rd); StackRoot _root1(&lazy); StackRoot _root2(&result); lazy = rd->PosExpr(); rd->Done(); result = this->expr_ev->EvalExpr(lazy, rd->LeftParenToken()); return result; } ToJson8::ToJson8(bool is_j8) { this->is_j8 = is_j8; } value_asdl::value_t* ToJson8::Call(typed_args::Reader* rd) { value_asdl::value_t* val = nullptr; int space; int indent; mylib::BufWriter* buf = nullptr; StackRoot _root0(&rd); StackRoot _root1(&val); StackRoot _root2(&buf); val = rd->PosValue(); space = mops::BigTruncate(rd->NamedInt(str210, 0)); rd->Done(); if (space <= 0) { indent = -1; } else { indent = space; } buf = Alloc(); try { if (this->is_j8) { j8::PrintMessage(val, buf, indent); } else { j8::PrintJsonMessage(val, buf, indent); } } catch (error::Encode* e) { throw Alloc(4, e->Message(), rd->LeftParenToken()); } return Alloc(buf->getvalue()); } FromJson8::FromJson8(bool is_j8) { this->is_j8 = is_j8; } value_asdl::value_t* FromJson8::Call(typed_args::Reader* rd) { BigStr* s = nullptr; j8::Parser* p = nullptr; value_asdl::value_t* val = nullptr; Dict* props = nullptr; StackRoot _root0(&rd); StackRoot _root1(&s); StackRoot _root2(&p); StackRoot _root3(&val); StackRoot _root4(&props); s = rd->PosStr(); rd->Done(); p = Alloc(s, this->is_j8); try { val = p->ParseValue(); } catch (error::Decode* e) { props = Alloc>(std::initializer_list{str211, str212}, std::initializer_list{num::ToBig(e->start_pos), num::ToBig(e->end_pos)}); throw Alloc(4, e->Message(), rd->LeftParenToken(), props); } return val; } BashArrayToSparse::BashArrayToSparse() { ; // pass } value_asdl::value_t* BashArrayToSparse::Call(typed_args::Reader* rd) { List* strs = nullptr; Dict* d = nullptr; mops::BigInt max_index; int i; mops::BigInt big_i; StackRoot _root0(&rd); StackRoot _root1(&strs); StackRoot _root2(&d); strs = rd->PosBashArray(); rd->Done(); d = Alloc>(); max_index = mops::MINUS_ONE; i = 0; for (ListIter it(strs); !it.Done(); it.Next(), ++i) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s != nullptr) { big_i = mops::IntWiden(i); d->set(big_i, s); if (mops::Greater(big_i, max_index)) { max_index = big_i; } } } return Alloc(d, max_index); } SparseOp::SparseOp() { ; // pass } value_asdl::value_t* SparseOp::Call(typed_args::Reader* rd) { value::SparseArray* sp = nullptr; Dict* d = nullptr; BigStr* op_name = nullptr; BigStr* no_str = nullptr; mops::BigInt index; BigStr* s = nullptr; mops::BigInt max_index; List* keys = nullptr; List* items = nullptr; int j; mops::BigInt start; mops::BigInt end; int n; List* items2 = nullptr; mops::BigInt i; List* strs = nullptr; mops::BigInt i2; StackRoot _root0(&rd); StackRoot _root1(&sp); StackRoot _root2(&d); StackRoot _root3(&op_name); StackRoot _root4(&no_str); StackRoot _root5(&s); StackRoot _root6(&keys); StackRoot _root7(&items); StackRoot _root8(&items2); StackRoot _root9(&strs); sp = rd->PosSparseArray(); d = sp->d; op_name = rd->PosStr(); no_str = nullptr; if (str_equals(op_name, str213)) { rd->Done(); return num::ToBig(len(d)); } else { if (str_equals(op_name, str214)) { index = rd->PosInt(); rd->Done(); s = d->get(index); if (s == nullptr) { return value::Null; } else { return Alloc(s); } } else { if (str_equals(op_name, str215)) { index = rd->PosInt(); s = rd->PosStr(); rd->Done(); d->set(index, s); if (mops::Greater(index, sp->max_index)) { sp->max_index = index; } return Alloc(mops::ZERO); } else { if (str_equals(op_name, str216)) { index = rd->PosInt(); rd->Done(); mylib::dict_erase(d, index); max_index = mops::MINUS_ONE; for (DictIter it(d); !it.Done(); it.Next()) { mops::BigInt i1 = it.Key(); if (mops::Greater(i1, max_index)) { max_index = i1; } } sp->max_index = max_index; return Alloc(mops::ZERO); } else { if (str_equals(op_name, str217)) { keys = d->keys(); mylib::BigIntSort(keys); items = list_repeat(no_str, len(d)); j = 0; for (ListIter it(keys); !it.Done(); it.Next()) { mops::BigInt i = it.Value(); s = d->get(i); items->set(j, s); j += 1; } return Alloc(items); } else { if (str_equals(op_name, str218)) { keys = d->keys(); mylib::BigIntSort(keys); items = Alloc>(); for (ListIter it(keys); !it.Done(); it.Next()) { mops::BigInt k = it.Value(); items->append(mops::ToStr(k)); } return Alloc(items); } else { if (str_equals(op_name, str219)) { start = rd->PosInt(); end = rd->PosInt(); rd->Done(); n = mops::BigTruncate(mops::Sub(end, start)); items2 = list_repeat(no_str, n); j = 0; i = start; while (mops::Greater(end, i)) { s = d->get(i); if (s != nullptr) { items2->set(j, s); j += 1; } i = mops::Add(i, mops::ONE); } return Alloc(items2); } else { if (str_equals(op_name, str220)) { strs = rd->PosBashArray(); { max_index = sp->max_index; } i2 = mops::Add(max_index, mops::ONE); for (ListIter it(strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); d->set(i2, s); i2 = mops::Add(i2, mops::ONE); } sp->max_index = mops::Add(sp->max_index, mops::IntWiden(len(strs))); return Alloc(mops::ZERO); } else { print(StrFormat("Invalid SparseArray operation %r", op_name)); return Alloc(mops::ZERO); } } } } } } } } } } // define namespace func_misc namespace hay_ysh { // define using option_asdl::option_i; using runtime_asdl::scope_e; using runtime_asdl::HayNode; using syntax_asdl::loc; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; namespace fmt = format; using error::e_usage; using error::e_die; BigStr* _HAY_ACTION_ERROR = str222; ctx_HayNode::ctx_HayNode(hay_ysh::HayState* hay_state, BigStr* hay_name) { gHeap.PushRoot(reinterpret_cast(&(this->hay_state))); this->hay_state = hay_state; this->hay_state->Push(hay_name); } ctx_HayNode::~ctx_HayNode() { this->hay_state->Pop(); gHeap.PopRoot(); } ctx_HayEval::ctx_HayEval(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem) { gHeap.PushRoot(reinterpret_cast(&(this->hay_state))); gHeap.PushRoot(reinterpret_cast(&(this->mem))); gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); this->hay_state = hay_state; this->mutable_opts = mutable_opts; this->mem = mem; if (mutable_opts->Get(option_i::_running_hay)) { e_die(str223); } for (ListIter it(consts::YSH_ALL); !it.Done(); it.Next()) { int opt_num = it.Value(); mutable_opts->Push(opt_num, true); } mutable_opts->Push(option_i::_running_hay, true); this->hay_state->PushEval(); this->mem->PushTemp(); } ctx_HayEval::~ctx_HayEval() { this->mem->PopTemp(); this->hay_state->PopEval(); this->mutable_opts->Pop(option_i::_running_hay); for (ListIter it(consts::YSH_ALL); !it.Done(); it.Next()) { int opt_num = it.Value(); this->mutable_opts->Pop(opt_num); } gHeap.PopRoot(); gHeap.PopRoot(); gHeap.PopRoot(); } HayState::HayState() { auto* ch = Alloc>(); this->root_defs = Alloc(ch); this->cur_defs = this->root_defs; this->def_stack = NewList(std::initializer_list{this->root_defs}); Dict* node = this->_MakeOutputNode(); this->result_stack = NewList*>(std::initializer_list*>{node}); this->output = nullptr; } Dict* HayState::_MakeOutputNode() { Dict* d = nullptr; StackRoot _root0(&d); d = Alloc>(); d->set(str224, value::Null); d->set(str225, Alloc(Alloc>())); return d; } void HayState::PushEval() { Dict* node = nullptr; StackRoot _root0(&node); node = this->_MakeOutputNode(); this->result_stack = NewList*>(std::initializer_list*>{node}); this->output = nullptr; } void HayState::PopEval() { Dict* node = nullptr; StackRoot _root0(&node); this->output = this->result_stack->at(0); node = this->_MakeOutputNode(); this->result_stack = NewList*>(std::initializer_list*>{node}); } void HayState::AppendResult(Dict* d) { value_asdl::value_t* UP_children = nullptr; StackRoot _root0(&d); StackRoot _root1(&UP_children); UP_children = this->result_stack->at(-1)->at(str226); value::List* children = static_cast(UP_children); children->items->append(Alloc(d)); } Dict* HayState::Result() { return this->output; } Dict* HayState::HayRegister() { return this->result_stack->at(0); } bool HayState::Resolve(BigStr* first_word) { StackRoot _root0(&first_word); return dict_contains(this->cur_defs->children, first_word); } void HayState::DefinePath(List* path) { runtime_asdl::HayNode* current = nullptr; Dict* ch = nullptr; StackRoot _root0(&path); StackRoot _root1(¤t); StackRoot _root2(&ch); current = this->root_defs; for (ListIter it(path); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (!dict_contains(current->children, name)) { ch = Alloc>(); current->children->set(name, Alloc(ch)); } current = current->children->at(name); } } void HayState::Reset() { Dict* ch = nullptr; StackRoot _root0(&ch); ch = Alloc>(); this->root_defs = Alloc(ch); this->cur_defs = this->root_defs; this->PopEval(); } void HayState::Push(BigStr* hay_name) { Dict* top = nullptr; value::List* children = nullptr; value::Dict* last_child = nullptr; StackRoot _root0(&hay_name); StackRoot _root1(&top); StackRoot _root2(&children); StackRoot _root3(&last_child); top = this->result_stack->at(-1); children = static_cast(top->at(str227)); last_child = static_cast(children->items->at(-1)); this->result_stack->append(last_child->d); if (hay_name == nullptr) { this->def_stack->append(this->cur_defs); } else { this->cur_defs = this->cur_defs->children->at(hay_name); this->def_stack->append(this->cur_defs); } } void HayState::Pop() { this->def_stack->pop(); this->cur_defs = this->def_stack->at(-1); this->result_stack->pop(); } Hay::Hay(hay_ysh::HayState* hay_state, state::MutableOpts* mutable_opts, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->hay_state = hay_state; this->mutable_opts = mutable_opts; this->mem = mem; this->cmd_ev = cmd_ev; } int Hay::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* action = nullptr; syntax_asdl::loc_t* action_loc = nullptr; BigStr* first = nullptr; List* names = nullptr; List* name_locs = nullptr; int i; List* path = nullptr; BigStr* var_name = nullptr; syntax_asdl::command_t* cmd = nullptr; int unused; Dict* result = nullptr; value::Dict* val = nullptr; hnode_asdl::hnode_t* tree = nullptr; format::ColorOutput* ast_f = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&action); StackRoot _root3(&action_loc); StackRoot _root4(&first); StackRoot _root5(&names); StackRoot _root6(&name_locs); StackRoot _root7(&path); StackRoot _root8(&var_name); StackRoot _root9(&cmd); StackRoot _root10(&result); StackRoot _root11(&val); StackRoot _root12(&tree); StackRoot _root13(&ast_f); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); Tuple2 tup0 = arg_r->Peek2(); action = tup0.at0(); action_loc = tup0.at1(); if (action == nullptr) { e_usage(_HAY_ACTION_ERROR, action_loc); } arg_r->Next(); if (str_equals(action, str228)) { Tuple2 tup1 = arg_r->Peek2(); first = tup1.at0(); if (first == nullptr) { e_usage(str229, action_loc); } Tuple2*, List*> tup2 = arg_r->Rest2(); names = tup2.at0(); name_locs = tup2.at1(); i = 0; for (ListIter it(names); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); path = name->split(str230); for (ListIter it(path); !it.Done(); it.Next()) { BigStr* p = it.Value(); StackRoot _for(&p ); if (len(p) == 0) { e_usage(StrFormat("got invalid path %r. Parts can't be empty.", name), name_locs->at(i)); } } this->hay_state->DefinePath(path); } } else { if (str_equals(action, str232)) { Tuple2 tup3 = arg_r->ReadRequired2(str233); var_name = tup3.at0(); if (var_name->startswith(str234)) { var_name = var_name->slice(1); } cmd = typed_args::OptionalBlock(cmd_val); if (!cmd) { e_usage(str235, loc::Missing); } { // with ctx_HayEval ctx{this->hay_state, this->mutable_opts, this->mem}; unused = this->cmd_ev->EvalCommand(cmd); } result = this->hay_state->Result(); val = Alloc(result); this->mem->SetNamed(location::LName(var_name), val, scope_e::LocalOnly); } else { if (str_equals(action, str236)) { this->hay_state->Reset(); } else { if (str_equals(action, str237)) { tree = this->hay_state->root_defs->PrettyTree(); ast_f = fmt::DetectConsoleOutput(mylib::Stdout()); fmt::PrintTree(tree, ast_f); ast_f->write(str238); } else { e_usage(_HAY_ACTION_ERROR, action_loc); } } } } return 0; } HayNode_::HayNode_(hay_ysh::HayState* hay_state, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->hay_state = hay_state; this->mem = mem; this->cmd_ev = cmd_ev; this->arena = cmd_ev->arena; } int HayNode_::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* hay_name = nullptr; syntax_asdl::loc_t* arg0_loc = nullptr; Dict* result = nullptr; BigStr* node_type = nullptr; List* arguments = nullptr; syntax_asdl::LiteralBlock* lit_block = nullptr; List* items = nullptr; syntax_asdl::BraceGroup* brace_group = nullptr; syntax_asdl::SourceLine* line = nullptr; BigStr* code_str = nullptr; Dict* block_attrs = nullptr; Dict* attrs = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&hay_name); StackRoot _root3(&arg0_loc); StackRoot _root4(&result); StackRoot _root5(&node_type); StackRoot _root6(&arguments); StackRoot _root7(&lit_block); StackRoot _root8(&items); StackRoot _root9(&brace_group); StackRoot _root10(&line); StackRoot _root11(&code_str); StackRoot _root12(&block_attrs); StackRoot _root13(&attrs); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); Tuple2 tup4 = arg_r->Peek2(); hay_name = tup4.at0(); arg0_loc = tup4.at1(); if (maybe_str_equals(hay_name, str239)) { arg_r->Next(); hay_name = nullptr; } result = Alloc>(); Tuple2 tup5 = arg_r->Peek2(); node_type = tup5.at0(); result->set(str240, Alloc(node_type)); arg_r->Next(); arguments = arg_r->Rest(); lit_block = typed_args::OptionalLiteralBlock(cmd_val); if ((len(arguments) == 0 and lit_block == nullptr)) { e_usage(str241, arg0_loc); } items = Alloc>(); for (ListIter it(arguments); !it.Done(); it.Next()) { BigStr* s = it.Value(); items->append(Alloc(s)); } result->set(str242, Alloc(items)); if (node_type->isupper()) { if (lit_block == nullptr) { e_usage(str243, loc::Missing); } { brace_group = lit_block->brace_group; line = brace_group->left->line; result->set(str245, Alloc(ui::GetLineSourceString(line))); result->set(str246, num::ToBig(line->line_num)); code_str = alloc::SnipCodeBlock(brace_group->left, brace_group->right, lit_block->lines); result->set(str247, Alloc(code_str)); } this->hay_state->AppendResult(result); } else { this->hay_state->AppendResult(result); if (lit_block) { result->set(str248, Alloc(Alloc>())); { // with state::ctx_Temp ctx{this->mem}; { // with ctx_HayNode ctx{this->hay_state, hay_name}; this->cmd_ev->EvalCommand(lit_block->brace_group); } block_attrs = this->mem->TopNamespace(); } attrs = Alloc>(); for (DictIter it(block_attrs); !it.Done(); it.Next()) { BigStr* name = it.Key(); runtime_asdl::Cell* cell = it.Value(); if (name->endswith(str249)) { continue; } attrs->set(name, cell->val); } result->set(str250, Alloc(attrs)); } } return 0; } } // define namespace hay_ysh namespace io_osh { // define using id_kind_asdl::Id; using value_asdl::value; using value_asdl::value_t; using error::e_die_status; Echo::Echo(optview::Exec* exec_opts) { this->exec_opts = exec_opts; this->f = mylib::Stdout(); this->simple_flag = nullptr; } arg_types::echo* Echo::_SimpleFlag() { Dict* attrs = nullptr; StackRoot _root0(&attrs); if (this->simple_flag == nullptr) { attrs = Alloc>(); attrs->set(str251, Alloc(false)); attrs->set(str252, Alloc(false)); this->simple_flag = Alloc(attrs); } return this->simple_flag; } int Echo::Run(cmd_value::Argv* cmd_val) { List* argv = nullptr; arg_types::echo* arg = nullptr; args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; bool backslash_c; List* new_argv = nullptr; List* parts = nullptr; match::SimpleLexer* lex = nullptr; int id_; BigStr* s = nullptr; BigStr* p = nullptr; mylib::BufWriter* buf = nullptr; int i; StackRoot _root0(&cmd_val); StackRoot _root1(&argv); StackRoot _root2(&arg); StackRoot _root3(&attrs); StackRoot _root4(&arg_r); StackRoot _root5(&new_argv); StackRoot _root6(&parts); StackRoot _root7(&lex); StackRoot _root8(&s); StackRoot _root9(&p); StackRoot _root10(&buf); argv = cmd_val->argv->slice(1); if (this->exec_opts->simple_echo()) { typed_args::DoesNotAccept(cmd_val->typed_args); arg = this->_SimpleFlag(); } else { Tuple2 tup0 = flag_util::ParseLikeEcho(str253, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); argv = arg_r->Rest(); } backslash_c = false; if (arg->e) { new_argv = Alloc>(); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); StackRoot _for(&a ); parts = Alloc>(); lex = match::EchoLexer(a); while (!backslash_c) { Tuple2 tup1 = lex->Next(); id_ = tup1.at0(); s = tup1.at1(); if (id_ == Id::Eol_Tok) { break; } p = word_compile::EvalCStringToken(id_, s); if (p == nullptr) { backslash_c = true; break; } parts->append(p); } new_argv->append(str254->join(parts)); if (backslash_c) { break; } } argv = new_argv; } buf = Alloc(); i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* a = it.Value(); StackRoot _for(&a ); if (i != 0) { buf->write(str255); } buf->write(a); } if ((!arg->n and !backslash_c)) { buf->write(str256); } this->f->write(buf->getvalue()); return 0; } MapFile::MapFile(state::Mem* mem, ui::ErrorFormatter* errfmt, cmd_eval::CommandEvaluator* cmd_ev) { this->mem = mem; this->errfmt = errfmt; this->cmd_ev = cmd_ev; } int MapFile::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::mapfile* arg = nullptr; BigStr* var_name = nullptr; List* lines = nullptr; BigStr* line = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&var_name); StackRoot _root5(&lines); StackRoot _root6(&line); Tuple2 tup2 = flag_util::ParseCmdVal(str257, cmd_val); attrs = tup2.at0(); arg_r = tup2.at1(); arg = Alloc(attrs->attrs); Tuple2 tup3 = arg_r->Peek2(); var_name = tup3.at0(); if (var_name == nullptr) { var_name = str258; } lines = Alloc>(); while (true) { try { Tuple2 tup4 = read_osh::ReadLineSlowly(this->cmd_ev, !arg->t); line = tup4.at0(); } catch (pyos::ReadError* e) { this->errfmt->PrintMessage(StrFormat("mapfile: read() error: %s", posix::strerror(e->err_num))); return 1; } if (len(line) == 0) { break; } lines->append(line); } state::BuiltinSetArray(this->mem, var_name, lines); return 0; } Cat::Cat() : ::vm::_Builtin() { } int Cat::Run(cmd_value::Argv* cmd_val) { List* chunks = nullptr; int n; int err_num; StackRoot _root0(&cmd_val); StackRoot _root1(&chunks); chunks = Alloc>(); while (true) { Tuple2 tup5 = pyos::Read(0, 4096, chunks); n = tup5.at0(); err_num = tup5.at1(); if (n < 0) { if (err_num == EINTR) { ; // pass } else { e_die_status(2, StrFormat("osh I/O error: %s", posix::strerror(err_num))); } } else { if (n == 0) { break; } else { mylib::Stdout()->write(chunks->at(0)); chunks->pop(); } } } return 0; } } // define namespace io_osh namespace io_ysh { // define using runtime_asdl::cmd_value; using syntax_asdl::command_e; using syntax_asdl::BraceGroup; using syntax_asdl::loc; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; namespace fmt = format; using error::e_usage; _Builtin::_Builtin(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } Pp::Pp(expr_eval::ExprEvaluator* expr_ev, state::Mem* mem, ui::ErrorFormatter* errfmt, state::Procs* procs, alloc::Arena* arena) : ::io_ysh::_Builtin(mem, errfmt) { this->expr_ev = expr_ev; this->procs = procs; this->arena = arena; this->stdout_ = mylib::Stdout(); } int Pp::_PrettyPrint(cmd_value::Argv* cmd_val) { typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; syntax_asdl::Token* blame_tok = nullptr; value_asdl::value_t* UP_val = nullptr; value_asdl::value_t* result = nullptr; BigStr* excerpt = nullptr; BigStr* prefix = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&rd); StackRoot _root2(&val); StackRoot _root3(&blame_tok); StackRoot _root4(&UP_val); StackRoot _root5(&result); StackRoot _root6(&excerpt); StackRoot _root7(&prefix); rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); blame_tok = rd->LeftParenToken(); UP_val = val; result = nullptr; switch (val->tag()) { case value_e::Expr: { value::Expr* val = static_cast(UP_val); result = this->expr_ev->EvalExpr(val->e, blame_tok); } break; default: { result = val; } } this->stdout_->write(str261); Tuple2 tup0 = ui::CodeExcerptAndPrefix(blame_tok); excerpt = tup0.at0(); prefix = tup0.at1(); this->stdout_->write(excerpt); ui::PrettyPrintValue(prefix, result, this->stdout_); return 0; } int Pp::Run(cmd_value::Argv* cmd_val) { args::_Attributes* arg = nullptr; args::Reader* arg_r = nullptr; BigStr* action = nullptr; syntax_asdl::loc_t* action_loc = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; hnode_asdl::hnode_t* tree = nullptr; format::ColorOutput* pretty_f = nullptr; BigStr* ysh_type = nullptr; List* argv = nullptr; List* locs = nullptr; int status; int i; runtime_asdl::Cell* cell = nullptr; List* names = nullptr; value::Proc* node = nullptr; value::Proc* proc = nullptr; syntax_asdl::command_t* body = nullptr; BigStr* doc = nullptr; BraceGroup* bgroup = nullptr; syntax_asdl::Token* token = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg); StackRoot _root2(&arg_r); StackRoot _root3(&action); StackRoot _root4(&action_loc); StackRoot _root5(&rd); StackRoot _root6(&val); StackRoot _root7(&tree); StackRoot _root8(&pretty_f); StackRoot _root9(&ysh_type); StackRoot _root10(&argv); StackRoot _root11(&locs); StackRoot _root12(&cell); StackRoot _root13(&names); StackRoot _root14(&node); StackRoot _root15(&proc); StackRoot _root16(&body); StackRoot _root17(&doc); StackRoot _root18(&bgroup); StackRoot _root19(&token); StackRoot _root20(&buf); Tuple2 tup1 = flag_util::ParseCmdVal(str262, cmd_val, true); arg = tup1.at0(); arg_r = tup1.at1(); Tuple2 tup2 = arg_r->Peek2(); action = tup2.at0(); action_loc = tup2.at1(); if (action == nullptr) { return this->_PrettyPrint(cmd_val); } arg_r->Next(); if (str_equals(action, str263)) { rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); ui::PrettyPrintValue(str264, val, this->stdout_); return 0; } if (str_equals(action, str265)) { rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); tree = val->PrettyTree(); pretty_f = fmt::DetectConsoleOutput(this->stdout_); fmt::PrintTree(tree, pretty_f); this->stdout_->write(str266); return 0; } if (str_equals(action, str267)) { rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); if (ui::TypeNotPrinted(val)) { ysh_type = ui::ValType(val); this->stdout_->write(StrFormat("(%s) ", ysh_type)); } j8::PrintLine(val, this->stdout_); return 0; } if (str_equals(action, str269)) { Tuple2*, List*> tup3 = arg_r->Rest2(); argv = tup3.at0(); locs = tup3.at1(); status = 0; i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); if (!match::IsValidVarName(name)) { throw Alloc(StrFormat("got invalid variable name %r", name), locs->at(i)); } cell = this->mem->GetCell(name); if (cell == nullptr) { this->errfmt->Print_(StrFormat("Couldn't find a variable named %r", name), locs->at(i)); status = 1; } else { this->stdout_->write(StrFormat("%s = ", name)); pretty_f = fmt::DetectConsoleOutput(this->stdout_); fmt::PrintTree(cell->PrettyTree(), pretty_f); this->stdout_->write(str273); } } return status; } if (str_equals(action, str274)) { print(str275); return 0; } if (str_equals(action, str276)) { Tuple2*, List*> tup4 = arg_r->Rest2(); names = tup4.at0(); locs = tup4.at1(); if (len(names)) { i = 0; for (ListIter it(names); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); node = this->procs->Get(name); if (node == nullptr) { this->errfmt->Print_(StrFormat("Invalid proc %r", name), locs->at(i)); return 1; } } } else { names = this->procs->GetNames(); } print(str278); for (ListIter it(names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); proc = this->procs->Get(name); body = proc->body; doc = str279; if (body->tag() == command_e::BraceGroup) { bgroup = static_cast(body); if (bgroup->doc_token) { token = bgroup->doc_token; doc = token->line->content->slice((token->col + 1), (token->col + token->length)); } } buf = Alloc(); j8::EncodeString(name, buf, true); buf->write(str280); j8::EncodeString(doc, buf, true); print(buf->getvalue()); } return 0; } e_usage(StrFormat("got invalid action %r", action), action_loc); } Write::Write(state::Mem* mem, ui::ErrorFormatter* errfmt) : ::io_ysh::_Builtin(mem, errfmt) { this->stdout_ = mylib::Stdout(); } int Write::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::write* arg = nullptr; int i; BigStr* s = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&s); Tuple2 tup5 = flag_util::ParseCmdVal(str282, cmd_val); attrs = tup5.at0(); arg_r = tup5.at1(); arg = Alloc(attrs->attrs); i = 0; while (!arg_r->AtEnd()) { if (i != 0) { this->stdout_->write(arg->sep); } s = arg_r->Peek(); if (arg->json) { s = j8::MaybeEncodeJsonString(s); } else { if (arg->j8) { s = j8::MaybeEncodeString(s); } } this->stdout_->write(s); arg_r->Next(); i += 1; } if (arg->n) { ; // pass } else { if (len(arg->end)) { this->stdout_->write(arg->end); } } return 0; } Fopen::Fopen(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->mem = mem; this->cmd_ev = cmd_ev; } int Fopen::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; syntax_asdl::command_t* cmd = nullptr; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&cmd); Tuple2 tup6 = flag_util::ParseCmdVal(str283, cmd_val, true); arg_r = tup6.at1(); cmd = typed_args::OptionalBlock(cmd_val); if (!cmd) { throw Alloc(str284, loc::Missing); } unused = this->cmd_ev->EvalCommand(cmd); return 0; } } // define namespace io_ysh namespace json_ysh { // define using runtime_asdl::cmd_value; using syntax_asdl::loc; using syntax_asdl::loc_t; using value_asdl::value; using value_asdl::LeftName; using error::e_usage; BigStr* _JSON_ACTION_ERROR = str285; Json::Json(state::Mem* mem, ui::ErrorFormatter* errfmt, bool is_j8) { this->mem = mem; this->errfmt = errfmt; this->is_j8 = is_j8; this->name = is_j8 ? str286 : str287; this->stdout_ = mylib::Stdout(); } int Json::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* action = nullptr; syntax_asdl::loc_t* action_loc = nullptr; args::_Attributes* attrs = nullptr; arg_types::json_write* arg_jw = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; int space; int indent; mylib::BufWriter* buf = nullptr; value::Place* place = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; BigStr* var_name = nullptr; BigStr* contents = nullptr; j8::Parser* p = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&action); StackRoot _root3(&action_loc); StackRoot _root4(&attrs); StackRoot _root5(&arg_jw); StackRoot _root6(&rd); StackRoot _root7(&val); StackRoot _root8(&buf); StackRoot _root9(&place); StackRoot _root10(&blame_loc); StackRoot _root11(&var_name); StackRoot _root12(&contents); StackRoot _root13(&p); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); Tuple2 tup0 = arg_r->Peek2(); action = tup0.at0(); action_loc = tup0.at1(); if (action == nullptr) { throw Alloc(_JSON_ACTION_ERROR, loc::Missing); } arg_r->Next(); if (str_equals(action, str288)) { attrs = flag_util::Parse(str289, arg_r); arg_jw = Alloc(attrs->attrs); if (!arg_r->AtEnd()) { e_usage(str290, arg_r->Location()); } rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); space = mops::BigTruncate(rd->NamedInt(str291, 2)); rd->Done(); if (space <= 0) { indent = -1; } else { indent = space; } buf = Alloc(); try { if (this->is_j8) { j8::PrintMessage(val, buf, indent); } else { j8::PrintJsonMessage(val, buf, indent); } } catch (error::Encode* e) { this->errfmt->PrintMessage(StrFormat("%s write: %s", this->name, e->Message()), action_loc); return 1; } this->stdout_->write(buf->getvalue()); this->stdout_->write(str293); } else { if (str_equals(action, str294)) { attrs = flag_util::Parse(str295, arg_r); if (cmd_val->typed_args) { rd = typed_args::ReaderForProc(cmd_val); place = rd->PosPlace(); rd->Done(); blame_loc = cmd_val->typed_args->left; } else { var_name = str296; blame_loc = cmd_val->arg_locs->at(0); place = Alloc(Alloc(var_name, blame_loc), this->mem->TopNamespace()); } if (!arg_r->AtEnd()) { e_usage(str297, arg_r->Location()); } try { contents = read_osh::ReadAll(); } catch (pyos::ReadError* e) { this->errfmt->PrintMessage(StrFormat("read error: %s", posix::strerror(e->err_num))); return 1; } p = Alloc(contents, this->is_j8); try { val = p->ParseValue(); } catch (error::Decode* err) { this->errfmt->Print_(StrFormat("%s read: %s", this->name, err->Message()), action_loc); return 1; } this->mem->SetPlace(place, val, blame_loc); } else { throw Alloc(_JSON_ACTION_ERROR, action_loc); } } return 0; } } // define namespace json_ysh namespace meta_osh { // define using runtime_asdl::cmd_value; using runtime_asdl::CommandStatus; using syntax_asdl::source; using syntax_asdl::loc; using error::e_usage; using mylib::print_stderr; Eval::Eval(parse_lib::ParseContext* parse_ctx, optview::Exec* exec_opts, cmd_eval::CommandEvaluator* cmd_ev, dev::Tracer* tracer, ui::ErrorFormatter* errfmt) { this->parse_ctx = parse_ctx; this->arena = parse_ctx->arena; this->exec_opts = exec_opts; this->cmd_ev = cmd_ev; this->tracer = tracer; this->errfmt = errfmt; } int Eval::Run(cmd_value::Argv* cmd_val) { typed_args::Reader* rd = nullptr; syntax_asdl::command_t* cmd = nullptr; args::Reader* arg_r = nullptr; BigStr* code_str = nullptr; syntax_asdl::loc_t* eval_loc = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; source::ArgvWord* src = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&rd); StackRoot _root2(&cmd); StackRoot _root3(&arg_r); StackRoot _root4(&code_str); StackRoot _root5(&eval_loc); StackRoot _root6(&line_reader); StackRoot _root7(&c_parser); StackRoot _root8(&src); if (cmd_val->typed_args) { rd = typed_args::ReaderForProc(cmd_val); cmd = rd->PosCommand(); rd->Done(); return this->cmd_ev->EvalCommand(cmd); } Tuple2 tup0 = flag_util::ParseCmdVal(str300, cmd_val); arg_r = tup0.at1(); if (this->exec_opts->simple_eval_builtin()) { Tuple2 tup1 = arg_r->ReadRequired2(str301); code_str = tup1.at0(); eval_loc = tup1.at1(); if (!arg_r->AtEnd()) { e_usage(str302, loc::Missing); } } else { code_str = str303->join(arg_r->Rest()); eval_loc = cmd_val->arg_locs->at(0); } line_reader = reader::StringLineReader(code_str, this->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); src = Alloc(str304, eval_loc); { // with dev::ctx_Tracer ctx{this->tracer, str305, nullptr}; { // with alloc::ctx_SourceCode ctx{this->arena, src}; return main_loop::Batch(this->cmd_ev, c_parser, this->errfmt, cmd_eval::RaiseControlFlow); } } } Source::Source(parse_lib::ParseContext* parse_ctx, state::SearchPath* search_path, cmd_eval::CommandEvaluator* cmd_ev, process::FdState* fd_state, dev::Tracer* tracer, ui::ErrorFormatter* errfmt, pyutil::_ResourceLoader* loader) { this->parse_ctx = parse_ctx; this->arena = parse_ctx->arena; this->search_path = search_path; this->cmd_ev = cmd_ev; this->fd_state = fd_state; this->tracer = tracer; this->errfmt = errfmt; this->loader = loader; this->mem = cmd_ev->mem; } int Source::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::source* arg = nullptr; BigStr* path_arg = nullptr; BigStr* builtin_path = nullptr; BigStr* load_path = nullptr; BigStr* contents = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; BigStr* resolved = nullptr; mylib::LineReader* f = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&path_arg); StackRoot _root5(&builtin_path); StackRoot _root6(&load_path); StackRoot _root7(&contents); StackRoot _root8(&line_reader); StackRoot _root9(&c_parser); StackRoot _root10(&resolved); StackRoot _root11(&f); Tuple2 tup2 = flag_util::ParseCmdVal(str306, cmd_val); attrs = tup2.at0(); arg_r = tup2.at1(); arg = Alloc(attrs->attrs); path_arg = arg_r->Peek(); if (path_arg == nullptr) { e_usage(str307, loc::Missing); } arg_r->Next(); builtin_path = nullptr; if (arg->builtin) { builtin_path = path_arg; } else { if (path_arg->startswith(str308)) { builtin_path = path_arg->slice(3); } } if (builtin_path != nullptr) { try { load_path = os_path::join(str309, builtin_path); contents = this->loader->Get(load_path); } catch (IOError_OSError*) { this->errfmt->Print_(StrFormat("source failed: No builtin file %r", load_path), cmd_val->arg_locs->at(2)); return 2; } line_reader = reader::StringLineReader(contents, this->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); return this->_Exec(cmd_val, arg_r, load_path, c_parser); } else { resolved = this->search_path->LookupOne(path_arg, false); if (resolved == nullptr) { resolved = path_arg; } try { f = this->fd_state->Open(resolved); } catch (IOError_OSError* e) { this->errfmt->Print_(StrFormat("source %r failed: %s", path_arg, pyutil::strerror(e)), cmd_val->arg_locs->at(1)); return 1; } line_reader = Alloc(f, this->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); { // with process::ctx_FileCloser ctx{f}; return this->_Exec(cmd_val, arg_r, path_arg, c_parser); } } } int Source::_Exec(cmd_value::Argv* cmd_val, args::Reader* arg_r, BigStr* path, cmd_parse::CommandParser* c_parser) { syntax_asdl::CompoundWord* call_loc = nullptr; List* source_argv = nullptr; source::SourcedFile* src = nullptr; int status; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&path); StackRoot _root3(&c_parser); StackRoot _root4(&call_loc); StackRoot _root5(&source_argv); StackRoot _root6(&src); call_loc = cmd_val->arg_locs->at(0); { // with dev::ctx_Tracer ctx{this->tracer, str312, cmd_val->argv}; source_argv = arg_r->Rest(); { // with state::ctx_Source ctx{this->mem, path, source_argv}; { // with state::ctx_ThisDir ctx{this->mem, path}; src = Alloc(path, call_loc); { // with alloc::ctx_SourceCode ctx{this->arena, src}; try { status = main_loop::Batch(this->cmd_ev, c_parser, this->errfmt, cmd_eval::RaiseControlFlow); } catch (vm::IntControlFlow* e) { if (e->IsReturn()) { status = e->StatusCode(); } else { throw ; } } } } } } return status; } void _PrintFreeForm(Tuple3* row) { BigStr* name = nullptr; BigStr* kind = nullptr; BigStr* resolved = nullptr; BigStr* what = nullptr; StackRoot _root0(&row); StackRoot _root1(&name); StackRoot _root2(&kind); StackRoot _root3(&resolved); StackRoot _root4(&what); Tuple3* tup3 = row; name = tup3->at0(); kind = tup3->at1(); resolved = tup3->at2(); if (str_equals(kind, str313)) { what = resolved; } else { if (str_equals(kind, str314)) { what = StrFormat("an alias for %s", j8_lite::EncodeString(resolved, true)); } else { what = StrFormat("a shell %s", kind); } } print(StrFormat("%s is %s", name, what)); } void _PrintEntry(arg_types::type* arg, Tuple3* row) { BigStr* kind = nullptr; BigStr* resolved = nullptr; StackRoot _root0(&arg); StackRoot _root1(&row); StackRoot _root2(&kind); StackRoot _root3(&resolved); Tuple3* tup4 = row; kind = tup4->at1(); resolved = tup4->at2(); if (arg->t) { print(kind); } else { if (arg->p) { if (str_equals(kind, str318)) { print(resolved); } } else { _PrintFreeForm(row); } } } Command::Command(vm::_Executor* shell_ex, state::Procs* funcs, Dict* aliases, state::SearchPath* search_path) { this->shell_ex = shell_ex; this->funcs = funcs; this->aliases = aliases; this->search_path = search_path; } int Command::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::command* arg = nullptr; List* argv = nullptr; List* locs = nullptr; int status; List*>* r = nullptr; Tuple3* row = nullptr; BigStr* name = nullptr; cmd_value::Argv* cmd_val2 = nullptr; runtime_asdl::CommandStatus* cmd_st = nullptr; int run_flags; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&argv); StackRoot _root5(&locs); StackRoot _root6(&r); StackRoot _root7(&row); StackRoot _root8(&name); StackRoot _root9(&cmd_val2); StackRoot _root10(&cmd_st); Tuple2 tup5 = flag_util::ParseCmdVal(str319, cmd_val, true); attrs = tup5.at0(); arg_r = tup5.at1(); arg = Alloc(attrs->attrs); Tuple2*, List*> tup6 = arg_r->Rest2(); argv = tup6.at0(); locs = tup6.at1(); if ((arg->v or arg->V)) { status = 0; for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* argument = it.Value(); StackRoot _for(&argument ); r = _ResolveName(argument, this->funcs, this->aliases, this->search_path, false); if (len(r)) { row = r->at(0); Tuple3* tup7 = row; name = tup7->at0(); if (arg->v) { print(name); } else { _PrintFreeForm(row); } } else { print_stderr(StrFormat("%s: not found", argument)); status = 1; } } return status; } cmd_val2 = Alloc(argv, locs, cmd_val->typed_args, cmd_val->pos_args, cmd_val->named_args, cmd_val->block_arg); cmd_st = CommandStatus::CreateNull(true); run_flags = (executor::DO_FORK | executor::NO_CALL_PROCS); if (arg->p) { run_flags |= executor::USE_DEFAULT_PATH; } return this->shell_ex->RunSimpleCommand(cmd_val2, cmd_st, run_flags); } cmd_value::Argv* _ShiftArgv(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); return Alloc(cmd_val->argv->slice(1), cmd_val->arg_locs->slice(1), cmd_val->typed_args, cmd_val->pos_args, cmd_val->named_args, cmd_val->block_arg); } Builtin::Builtin(vm::_Executor* shell_ex, ui::ErrorFormatter* errfmt) { this->shell_ex = shell_ex; this->errfmt = errfmt; } int Builtin::Run(cmd_value::Argv* cmd_val) { BigStr* name = nullptr; int to_run; syntax_asdl::CompoundWord* location = nullptr; cmd_value::Argv* cmd_val2 = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&name); StackRoot _root2(&location); StackRoot _root3(&cmd_val2); if (len(cmd_val->argv) == 1) { return 0; } name = cmd_val->argv->at(1); to_run = consts::LookupNormalBuiltin(name); if (to_run == consts::NO_INDEX) { to_run = consts::LookupSpecialBuiltin(name); } if (to_run == consts::NO_INDEX) { location = cmd_val->arg_locs->at(1); if (consts::LookupAssignBuiltin(name) != consts::NO_INDEX) { this->errfmt->Print_(str321, location); } else { this->errfmt->Print_(StrFormat("%r isn't a shell builtin", name), location); } return 1; } cmd_val2 = _ShiftArgv(cmd_val); return this->shell_ex->RunBuiltin(to_run, cmd_val2); } RunProc::RunProc(vm::_Executor* shell_ex, state::Procs* procs, ui::ErrorFormatter* errfmt) { this->shell_ex = shell_ex; this->procs = procs; this->errfmt = errfmt; } int RunProc::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; List* argv = nullptr; List* locs = nullptr; BigStr* name = nullptr; cmd_value::Argv* cmd_val2 = nullptr; runtime_asdl::CommandStatus* cmd_st = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&argv); StackRoot _root3(&locs); StackRoot _root4(&name); StackRoot _root5(&cmd_val2); StackRoot _root6(&cmd_st); Tuple2 tup8 = flag_util::ParseCmdVal(str323, cmd_val, true); arg_r = tup8.at1(); Tuple2*, List*> tup9 = arg_r->Rest2(); argv = tup9.at0(); locs = tup9.at1(); if (len(argv) == 0) { throw Alloc(str324, loc::Missing); } name = argv->at(0); if (!this->procs->Get(name)) { this->errfmt->PrintMessage(StrFormat("runproc: no proc named %r", name)); return 1; } cmd_val2 = Alloc(argv, locs, cmd_val->typed_args, cmd_val->pos_args, cmd_val->named_args, cmd_val->block_arg); cmd_st = CommandStatus::CreateNull(true); return this->shell_ex->RunSimpleCommand(cmd_val2, cmd_st, executor::DO_FORK); } List*>* _ResolveName(BigStr* name, state::Procs* funcs, Dict* aliases, state::SearchPath* search_path, bool do_all) { BigStr* no_str = nullptr; List*>* results = nullptr; StackRoot _root0(&name); StackRoot _root1(&funcs); StackRoot _root2(&aliases); StackRoot _root3(&search_path); StackRoot _root4(&no_str); StackRoot _root5(&results); no_str = nullptr; results = Alloc*>>(); if ((funcs and funcs->Get(name))) { results->append((Alloc>(name, str326, no_str))); } if (dict_contains(aliases, name)) { results->append((Alloc>(name, str327, aliases->at(name)))); } if (consts::LookupNormalBuiltin(name) != 0) { results->append((Alloc>(name, str328, no_str))); } else { if (consts::LookupSpecialBuiltin(name) != 0) { results->append((Alloc>(name, str329, no_str))); } else { if (consts::LookupAssignBuiltin(name) != 0) { results->append((Alloc>(name, str330, no_str))); } } } if (consts::IsControlFlow(name)) { results->append((Alloc>(name, str331, no_str))); } else { if (consts::IsKeyword(name)) { results->append((Alloc>(name, str332, no_str))); } } for (ListIter it(search_path->LookupReflect(name, do_all)); !it.Done(); it.Next()) { BigStr* path = it.Value(); StackRoot _for(&path ); if (posix::access(path, X_OK)) { results->append((Alloc>(name, str333, path))); } } return results; } Type::Type(state::Procs* funcs, Dict* aliases, state::SearchPath* search_path, ui::ErrorFormatter* errfmt) { this->funcs = funcs; this->aliases = aliases; this->search_path = search_path; this->errfmt = errfmt; } int Type::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::type* arg = nullptr; state::Procs* funcs = nullptr; int status; List* names = nullptr; List* paths = nullptr; List*>* r = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&funcs); StackRoot _root5(&names); StackRoot _root6(&paths); StackRoot _root7(&r); Tuple2 tup10 = flag_util::ParseCmdVal(str334, cmd_val); attrs = tup10.at0(); arg_r = tup10.at1(); arg = Alloc(attrs->attrs); if (arg->f) { funcs = nullptr; } else { funcs = this->funcs; } status = 0; names = arg_r->Rest(); if (arg->P) { for (ListIter it(names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); paths = this->search_path->LookupReflect(name, arg->a); if (len(paths)) { for (ListIter it(paths); !it.Done(); it.Next()) { BigStr* path = it.Value(); StackRoot _for(&path ); print(path); } } else { status = 1; } } return status; } for (ListIter it(names); !it.Done(); it.Next()) { BigStr* argument = it.Value(); StackRoot _for(&argument ); r = _ResolveName(argument, funcs, this->aliases, this->search_path, arg->a); if (arg->a) { for (ListIter*> it(r); !it.Done(); it.Next()) { Tuple3* row = it.Value(); _PrintEntry(arg, row); } } else { if (len(r)) { _PrintEntry(arg, r->at(0)); } } if (len(r) == 0) { if (!arg->t) { print_stderr(StrFormat("%s: not found", argument)); } status = 1; } } return status; } } // define namespace meta_osh namespace method_dict { // define using value_asdl::value; using value_asdl::value_t; Keys::Keys() { ; // pass } value_asdl::value_t* Keys::Call(typed_args::Reader* rd) { Dict* dictionary = nullptr; List* keys = nullptr; StackRoot _root0(&rd); StackRoot _root1(&dictionary); StackRoot _root2(&keys); dictionary = rd->PosDict(); rd->Done(); keys = Alloc>(); for (ListIter it(dictionary->keys()); !it.Done(); it.Next()) { BigStr* k = it.Value(); keys->append(Alloc(k)); } return Alloc(keys); } Values::Values() { ; // pass } value_asdl::value_t* Values::Call(typed_args::Reader* rd) { Dict* dictionary = nullptr; List* values = nullptr; StackRoot _root0(&rd); StackRoot _root1(&dictionary); StackRoot _root2(&values); dictionary = rd->PosDict(); rd->Done(); values = dictionary->values(); return Alloc(values); } Erase::Erase() { ; // pass } value_asdl::value_t* Erase::Call(typed_args::Reader* rd) { Dict* dictionary = nullptr; BigStr* key = nullptr; StackRoot _root0(&rd); StackRoot _root1(&dictionary); StackRoot _root2(&key); dictionary = rd->PosDict(); key = rd->PosStr(); rd->Done(); mylib::dict_erase(dictionary, key); return value::Null; } } // define namespace method_dict namespace method_io { // define using value_asdl::value; using value_asdl::value_t; Eval::Eval(cmd_eval::CommandEvaluator* cmd_ev) { this->cmd_ev = cmd_ev; } value_asdl::value_t* Eval::Call(typed_args::Reader* rd) { value::IO* io = nullptr; syntax_asdl::command_t* cmd = nullptr; int unused_status; StackRoot _root0(&rd); StackRoot _root1(&io); StackRoot _root2(&cmd); io = rd->PosIO(); cmd = rd->PosCommand(); rd->Done(); unused_status = this->cmd_ev->EvalCommand(cmd); return value::Null; } CaptureStdout::CaptureStdout(vm::_Executor* shell_ex) { this->shell_ex = shell_ex; } value_asdl::value_t* CaptureStdout::Call(typed_args::Reader* rd) { value::IO* io = nullptr; syntax_asdl::command_t* cmd = nullptr; int status; BigStr* stdout_str = nullptr; Dict* properties = nullptr; StackRoot _root0(&rd); StackRoot _root1(&io); StackRoot _root2(&cmd); StackRoot _root3(&stdout_str); StackRoot _root4(&properties); io = rd->PosIO(); cmd = rd->PosCommand(); rd->Done(); Tuple2 tup0 = this->shell_ex->CaptureStdout(cmd); status = tup0.at0(); stdout_str = tup0.at1(); if (status != 0) { properties = Alloc>(std::initializer_list{str336}, std::initializer_list{num::ToBig(status)}); throw Alloc(4, StrFormat("captureStdout(): command failed with status %d", status), rd->LeftParenToken(), properties); } return Alloc(stdout_str); } PromptVal::PromptVal() { ; // pass } value_asdl::value_t* PromptVal::Call(typed_args::Reader* rd) { value::IO* io = nullptr; BigStr* what = nullptr; prompt::Evaluator* prompt_ev = nullptr; StackRoot _root0(&rd); StackRoot _root1(&io); StackRoot _root2(&what); StackRoot _root3(&prompt_ev); io = rd->PosIO(); what = rd->PosStr(); rd->Done(); if (len(what) != 1) { throw Alloc(StrFormat("promptVal() expected a single char, got %r", what), rd->LeftParenToken()); } prompt_ev = static_cast(io->prompt_ev); return Alloc(prompt_ev->PromptVal(what)); } Time::Time() { ; // pass } value_asdl::value_t* Time::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } Strftime::Strftime() { ; // pass } value_asdl::value_t* Strftime::Call(typed_args::Reader* rd) { StackRoot _root0(&rd); return value::Null; } } // define namespace method_io namespace method_list { // define using value_asdl::value; using value_asdl::value_t; Append::Append() { ; // pass } value_asdl::value_t* Append::Call(typed_args::Reader* rd) { List* items = nullptr; value_asdl::value_t* to_append = nullptr; StackRoot _root0(&rd); StackRoot _root1(&items); StackRoot _root2(&to_append); items = rd->PosList(); to_append = rd->PosValue(); rd->Done(); items->append(to_append); return value::Null; } Extend::Extend() { ; // pass } value_asdl::value_t* Extend::Call(typed_args::Reader* rd) { List* a = nullptr; List* b = nullptr; StackRoot _root0(&rd); StackRoot _root1(&a); StackRoot _root2(&b); a = rd->PosList(); b = rd->PosList(); rd->Done(); a->extend(b); return value::Null; } Pop::Pop() { ; // pass } value_asdl::value_t* Pop::Call(typed_args::Reader* rd) { List* items = nullptr; StackRoot _root0(&rd); StackRoot _root1(&items); items = rd->PosList(); rd->Done(); return items->pop(); } Reverse::Reverse() { ; // pass } value_asdl::value_t* Reverse::Call(typed_args::Reader* rd) { List* li = nullptr; StackRoot _root0(&rd); StackRoot _root1(&li); li = rd->PosList(); rd->Done(); li->reverse(); return value::Null; } IndexOf::IndexOf() { ; // pass } value_asdl::value_t* IndexOf::Call(typed_args::Reader* rd) { List* li = nullptr; value_asdl::value_t* needle = nullptr; int i; StackRoot _root0(&rd); StackRoot _root1(&li); StackRoot _root2(&needle); li = rd->PosList(); needle = rd->PosValue(); rd->Done(); i = 0; while (i < len(li)) { if (val_ops::ExactlyEqual(li->at(i), needle, rd->LeftParenToken())) { return num::ToBig(i); } i += 1; } return Alloc(mops::MINUS_ONE); } } // define namespace method_list namespace method_other { // define using value_asdl::value; using value_asdl::value_t; SetValue::SetValue(state::Mem* mem) { this->mem = mem; } value_asdl::value_t* SetValue::Call(typed_args::Reader* rd) { value::Place* place = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&rd); StackRoot _root1(&place); StackRoot _root2(&val); place = rd->PosPlace(); val = rd->PosValue(); rd->Done(); this->mem->SetPlace(place, val, rd->LeftParenToken()); return value::Null; } } // define namespace method_other namespace method_str { // define using syntax_asdl::loc_t; using syntax_asdl::loc; using runtime_asdl::scope_e; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::eggex_ops; using value_asdl::eggex_ops_t; using value_asdl::RegexMatch; using value_asdl::LeftName; Tuple3 _StrMatchStart(BigStr* s, BigStr* p) { StackRoot _root0(&s); StackRoot _root1(&p); if (s->startswith(p)) { return Tuple3(true, 0, len(p)); } else { return Tuple3(false, 0, 0); } } Tuple3 _StrMatchEnd(BigStr* s, BigStr* p) { int len_s; StackRoot _root0(&s); StackRoot _root1(&p); len_s = len(s); if (s->endswith(p)) { return Tuple3(true, (len_s - len(p)), len_s); } else { return Tuple3(false, len_s, len_s); } } Tuple3 _EggexMatchCommon(BigStr* s, value::Eggex* p, BigStr* ere, int empty_p) { int cflags; int eflags; List* indices = nullptr; int start; int end; StackRoot _root0(&s); StackRoot _root1(&p); StackRoot _root2(&ere); StackRoot _root3(&indices); cflags = regex_translate::LibcFlags(p->canonical_flags); eflags = 0; indices = libc::regex_search(ere, cflags, s, eflags); if (indices == nullptr) { return Tuple3(false, empty_p, empty_p); } start = indices->at(0); end = indices->at(1); return Tuple3(true, start, end); } Tuple3 _EggexMatchStart(BigStr* s, value::Eggex* p) { BigStr* ere = nullptr; StackRoot _root0(&s); StackRoot _root1(&p); StackRoot _root2(&ere); ere = regex_translate::AsPosixEre(p); if (!ere->startswith(str339)) { ere = str_concat(str340, ere); } return _EggexMatchCommon(s, p, ere, 0); } Tuple3 _EggexMatchEnd(BigStr* s, value::Eggex* p) { BigStr* ere = nullptr; StackRoot _root0(&s); StackRoot _root1(&p); StackRoot _root2(&ere); ere = regex_translate::AsPosixEre(p); if (!ere->endswith(str341)) { ere = str_concat(ere, str342); } return _EggexMatchCommon(s, p, ere, len(s)); } int START = 1; int END = 2; HasAffix::HasAffix(int anchor) { this->anchor = anchor; } value_asdl::value_t* HasAffix::Call(typed_args::Reader* rd) { BigStr* string = nullptr; value_asdl::value_t* pattern_val = nullptr; BigStr* pattern_str = nullptr; value::Eggex* pattern_eggex = nullptr; bool matched; StackRoot _root0(&rd); StackRoot _root1(&string); StackRoot _root2(&pattern_val); StackRoot _root3(&pattern_str); StackRoot _root4(&pattern_eggex); string = rd->PosStr(); pattern_val = rd->PosValue(); pattern_str = nullptr; pattern_eggex = nullptr; switch (pattern_val->tag()) { case value_e::Eggex: { pattern_eggex = static_cast(pattern_val); } break; case value_e::Str: { pattern_str = static_cast(pattern_val)->s; } break; default: { throw Alloc(pattern_val, str343, rd->LeftParenToken()); } } rd->Done(); matched = false; try { if (pattern_str != nullptr) { if ((this->anchor & START)) { Tuple3 tup0 = _StrMatchStart(string, pattern_str); matched = tup0.at0(); } else { Tuple3 tup1 = _StrMatchEnd(string, pattern_str); matched = tup1.at0(); } } else { if ((this->anchor & START)) { Tuple3 tup2 = _EggexMatchStart(string, pattern_eggex); matched = tup2.at0(); } else { Tuple3 tup3 = _EggexMatchEnd(string, pattern_eggex); matched = tup3.at0(); } } } catch (error::Strict* e) { throw Alloc(e->msg, e->location); } return Alloc(matched); } Trim::Trim(int anchor) { this->anchor = anchor; } value_asdl::value_t* Trim::Call(typed_args::Reader* rd) { BigStr* string = nullptr; value_asdl::value_t* pattern_val = nullptr; BigStr* pattern_str = nullptr; value::Eggex* pattern_eggex = nullptr; int start; int end; BigStr* res = nullptr; StackRoot _root0(&rd); StackRoot _root1(&string); StackRoot _root2(&pattern_val); StackRoot _root3(&pattern_str); StackRoot _root4(&pattern_eggex); StackRoot _root5(&res); string = rd->PosStr(); pattern_val = rd->OptionalValue(); pattern_str = nullptr; pattern_eggex = nullptr; if (pattern_val) { switch (pattern_val->tag()) { case value_e::Eggex: { pattern_eggex = static_cast(pattern_val); } break; case value_e::Str: { pattern_str = static_cast(pattern_val)->s; } break; default: { throw Alloc(pattern_val, str344, rd->LeftParenToken()); } } } rd->Done(); start = 0; end = len(string); try { if (pattern_str != nullptr) { if ((this->anchor & START)) { Tuple3 tup4 = _StrMatchStart(string, pattern_str); start = tup4.at2(); } if ((this->anchor & END)) { Tuple3 tup5 = _StrMatchEnd(string, pattern_str); end = tup5.at1(); } } else { if (pattern_eggex != nullptr) { if ((this->anchor & START)) { Tuple3 tup6 = _EggexMatchStart(string, pattern_eggex); start = tup6.at2(); } if ((this->anchor & END)) { Tuple3 tup7 = _EggexMatchEnd(string, pattern_eggex); end = tup7.at1(); } } else { if ((this->anchor & START)) { Tuple2 tup8 = string_ops::StartsWithWhitespaceByteRange(string); start = tup8.at1(); } if ((this->anchor & END)) { Tuple2 tup9 = string_ops::EndsWithWhitespaceByteRange(string); end = tup9.at0(); } } } } catch (error::Strict* e) { throw Alloc(e->msg, e->location); } res = string->slice(start, end); return Alloc(res); } Upper::Upper() { ; // pass } value_asdl::value_t* Upper::Call(typed_args::Reader* rd) { BigStr* s = nullptr; StackRoot _root0(&rd); StackRoot _root1(&s); s = rd->PosStr(); rd->Done(); return Alloc(s->upper()); } Lower::Lower() { ; // pass } value_asdl::value_t* Lower::Call(typed_args::Reader* rd) { BigStr* s = nullptr; StackRoot _root0(&rd); StackRoot _root1(&s); s = rd->PosStr(); rd->Done(); return Alloc(s->lower()); } int SEARCH = 0; int LEFT_MATCH = 1; SearchMatch::SearchMatch(int which_method) { this->which_method = which_method; } value_asdl::value_t* SearchMatch::Call(typed_args::Reader* rd) { BigStr* string = nullptr; value_asdl::value_t* pattern = nullptr; value::Eggex* eggex_val = nullptr; BigStr* ere = nullptr; int cflags; value_asdl::eggex_ops_t* capture = nullptr; int pos; int eflags; List* indices = nullptr; StackRoot _root0(&rd); StackRoot _root1(&string); StackRoot _root2(&pattern); StackRoot _root3(&eggex_val); StackRoot _root4(&ere); StackRoot _root5(&capture); StackRoot _root6(&indices); string = rd->PosStr(); pattern = rd->PosValue(); switch (pattern->tag()) { case value_e::Eggex: { eggex_val = static_cast(pattern); ere = regex_translate::AsPosixEre(eggex_val); cflags = regex_translate::LibcFlags(eggex_val->canonical_flags); capture = Alloc(eggex_val->convert_funcs, eggex_val->convert_toks, eggex_val->capture_names); } break; case value_e::Str: { ere = static_cast(pattern)->s; cflags = 0; capture = eggex_ops::No; } break; default: { throw Alloc(pattern, str345, rd->LeftParenToken()); } } pos = mops::BigTruncate(rd->NamedInt(str346, 0)); rd->Done(); if ((this->which_method == LEFT_MATCH and !ere->startswith(str347))) { ere = str_concat(str348, ere); } if (this->which_method == LEFT_MATCH) { eflags = 0; } else { eflags = pos == 0 ? 0 : REG_NOTBOL; } indices = libc::regex_search(ere, cflags, string, eflags, pos); if (indices == nullptr) { return value::Null; } return Alloc(string, indices, capture); } ctx_EvalReplace::ctx_EvalReplace(state::Mem* mem, BigStr* arg0, List* argv) { gHeap.PushRoot(reinterpret_cast(&(this->lval))); gHeap.PushRoot(reinterpret_cast(&(this->mem))); if (argv == nullptr) { this->pushed_argv = false; } else { mem->argv_stack->append(Alloc(argv)); this->pushed_argv = true; } this->lval = Alloc(str349, loc::Missing); mem->SetLocalName(this->lval, Alloc(arg0)); this->mem = mem; } ctx_EvalReplace::~ctx_EvalReplace() { this->mem->SetLocalName(this->lval, value::Undef); if (this->pushed_argv) { this->mem->argv_stack->pop(); } gHeap.PopRoot(); gHeap.PopRoot(); } Replace::Replace(state::Mem* mem, expr_eval::ExprEvaluator* expr_ev) { this->mem = mem; this->expr_ev = expr_ev; } BigStr* Replace::EvalSubstExpr(value::Expr* expr, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* res = nullptr; StackRoot _root0(&expr); StackRoot _root1(&blame_loc); StackRoot _root2(&res); res = this->expr_ev->EvalExpr(expr->e, blame_loc); if (res->tag() == value_e::Str) { return static_cast(res)->s; } throw Alloc(res, str350, blame_loc); } value_asdl::value_t* Replace::Call(typed_args::Reader* rd) { BigStr* string = nullptr; value::Str* string_val = nullptr; value::Eggex* eggex_val = nullptr; value::Str* subst_str = nullptr; value::Expr* subst_expr = nullptr; value_asdl::value_t* pattern = nullptr; value::Eggex* eggex_val_ = nullptr; value::Str* string_val_ = nullptr; value_asdl::value_t* subst = nullptr; value::Str* subst_str_ = nullptr; value::Expr* subst_expr_ = nullptr; int count; BigStr* s = nullptr; BigStr* result = nullptr; BigStr* ere = nullptr; int cflags; int pos; List* parts = nullptr; int replace_count; List* indices = nullptr; BigStr* arg0 = nullptr; List* argv = nullptr; List*>* named_vars = nullptr; int num_groups; int start; int end; BigStr* captured = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* convert_func = nullptr; syntax_asdl::Token* convert_tok = nullptr; BigStr* val_str = nullptr; BigStr* name = nullptr; StackRoot _root0(&rd); StackRoot _root1(&string); StackRoot _root2(&string_val); StackRoot _root3(&eggex_val); StackRoot _root4(&subst_str); StackRoot _root5(&subst_expr); StackRoot _root6(&pattern); StackRoot _root7(&eggex_val_); StackRoot _root8(&string_val_); StackRoot _root9(&subst); StackRoot _root10(&subst_str_); StackRoot _root11(&subst_expr_); StackRoot _root12(&s); StackRoot _root13(&result); StackRoot _root14(&ere); StackRoot _root15(&parts); StackRoot _root16(&indices); StackRoot _root17(&arg0); StackRoot _root18(&argv); StackRoot _root19(&named_vars); StackRoot _root20(&captured); StackRoot _root21(&val); StackRoot _root22(&convert_func); StackRoot _root23(&convert_tok); StackRoot _root24(&val_str); StackRoot _root25(&name); string = rd->PosStr(); string_val = nullptr; eggex_val = nullptr; subst_str = nullptr; subst_expr = nullptr; pattern = rd->PosValue(); switch (pattern->tag()) { case value_e::Eggex: { eggex_val_ = static_cast(pattern); eggex_val = eggex_val_; } break; case value_e::Str: { string_val_ = static_cast(pattern); string_val = string_val_; } break; default: { throw Alloc(pattern, str351, rd->LeftParenToken()); } } subst = rd->PosValue(); switch (subst->tag()) { case value_e::Str: { subst_str_ = static_cast(subst); subst_str = subst_str_; } break; case value_e::Expr: { subst_expr_ = static_cast(subst); subst_expr = subst_expr_; } break; default: { throw Alloc(subst, str352, rd->LeftParenToken()); } } count = mops::BigTruncate(rd->NamedInt(str353, -1)); rd->Done(); if (count == 0) { return Alloc(string); } if (string_val) { if (subst_str) { s = subst_str->s; } if (subst_expr) { { // with ctx_EvalReplace ctx{this->mem, string_val->s, nullptr}; s = this->EvalSubstExpr(subst_expr, rd->LeftParenToken()); } } result = string->replace(string_val->s, s, count); return Alloc(result); } if (eggex_val) { ere = regex_translate::AsPosixEre(eggex_val); cflags = regex_translate::LibcFlags(eggex_val->canonical_flags); pos = 0; parts = Alloc>(); replace_count = 0; while (pos < len(string)) { indices = libc::regex_search(ere, cflags, string, 0, pos); if (indices == nullptr) { break; } arg0 = nullptr; argv = Alloc>(); named_vars = Alloc*>>(); num_groups = (len(indices) / 2); for (int group = 0; group < num_groups; ++group) { start = indices->at((2 * group)); end = indices->at(((2 * group) + 1)); captured = string->slice(start, end); val = Alloc(captured); if ((len(eggex_val->convert_funcs) and group != 0)) { convert_func = eggex_val->convert_funcs->at((group - 1)); convert_tok = eggex_val->convert_toks->at((group - 1)); if (convert_func) { val = this->expr_ev->CallConvertFunc(convert_func, val, convert_tok, rd->LeftParenToken()); } } val_str = val_ops::Stringify(val, rd->LeftParenToken()); if (group == 0) { arg0 = val_str; } else { argv->append(val_str); } if (group != 0) { name = eggex_val->capture_names->at((group - 2)); if (name != nullptr) { named_vars->append((Alloc>(name, val))); } } } if (subst_str) { s = subst_str->s; } if (subst_expr) { { // with ctx_EvalReplace ctx{this->mem, arg0, argv}; { // with pure_ysh::ctx_Shvar ctx{this->mem, named_vars}; s = this->EvalSubstExpr(subst_expr, rd->LeftParenToken()); } } } start = indices->at(0); end = indices->at(1); parts->append(string->slice(pos, start)); parts->append(s); pos = end; replace_count += 1; if ((count != -1 and replace_count == count)) { break; } } parts->append(string->slice(pos)); return Alloc(str354->join(parts)); } assert(0); // AssertionError } } // define namespace method_str namespace misc_osh { // define using runtime_asdl::cmd_value; using syntax_asdl::loc_t; Times::Times() : ::vm::_Builtin() { } int Times::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); pyos::PrintTimes(); return 0; } Help::Help(BigStr* lang, pyutil::_ResourceLoader* loader, Dict* help_data, ui::ErrorFormatter* errfmt) { this->lang = lang; this->loader = loader; this->help_data = help_data; this->errfmt = errfmt; this->version_str = pyutil::GetVersion(this->loader); this->f = mylib::Stdout(); } int Help::_ShowTopic(BigStr* topic_id, syntax_asdl::loc_t* blame_loc) { BigStr* prefix = nullptr; BigStr* chapter_name = nullptr; bool found; StackRoot _root0(&topic_id); StackRoot _root1(&blame_loc); StackRoot _root2(&prefix); StackRoot _root3(&chapter_name); prefix = str355; chapter_name = this->help_data->get(topic_id); if (chapter_name != nullptr) { util::PrintTopicHeader(topic_id, this->f); print(StrFormat(" %s/%s/doc/ref/chap-%s.html#%s", prefix, this->version_str, chapter_name, topic_id)); return 0; } found = util::PrintEmbeddedHelp(this->loader, topic_id, this->f); if (!found) { this->errfmt->Print_(StrFormat("no help topics match %r", topic_id), blame_loc); return 1; } return 0; } int Help::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; BigStr* topic_id = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; bool found; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&topic_id); StackRoot _root4(&blame_loc); Tuple2 tup0 = flag_util::ParseCmdVal(str358, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); Tuple2 tup1 = arg_r->Peek2(); topic_id = tup1.at0(); blame_loc = tup1.at1(); if (topic_id == nullptr) { found = this->_ShowTopic(str359, blame_loc) == 0; found = this->_ShowTopic(StrFormat("%s-chapters", this->lang), blame_loc) == 0; print(StrFormat("All docs: https://www.oilshell.org/release/%s/doc/", this->version_str)); print(str362); return 0; } else { arg_r->Next(); } return this->_ShowTopic(topic_id, blame_loc); } } // define namespace misc_osh namespace module_ysh { // define using runtime_asdl::scope_e; using syntax_asdl::loc; using value_asdl::value; using value_asdl::value_e; IsMain::IsMain(state::Mem* mem) { this->mem = mem; } int IsMain::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); return this->mem->is_main ? 0 : 1; } SourceGuard::SourceGuard(Dict* guards, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt) { this->guards = guards; this->exec_opts = exec_opts; this->errfmt = errfmt; } int SourceGuard::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* name = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&name); Tuple2 tup0 = flag_util::ParseCmdVal(str363, cmd_val); arg_r = tup0.at1(); Tuple2 tup1 = arg_r->ReadRequired2(str364); name = tup1.at0(); if (dict_contains(this->guards, name)) { if (this->exec_opts->redefine_module()) { this->errfmt->PrintMessage(StrFormat("(interactive) Reloading source file %r", name)); return 0; } else { return 1; } } this->guards->set(name, true); return 0; } Use::Use(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } int Use::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* arg = nullptr; syntax_asdl::loc_t* arg_loc = nullptr; BigStr* expected = nullptr; syntax_asdl::loc_t* e_loc = nullptr; value_asdl::value_t* UP_actual = nullptr; BigStr* actual = nullptr; List* rest = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&arg); StackRoot _root3(&arg_loc); StackRoot _root4(&expected); StackRoot _root5(&e_loc); StackRoot _root6(&UP_actual); StackRoot _root7(&actual); StackRoot _root8(&rest); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); Tuple2 tup2 = arg_r->Peek2(); arg = tup2.at0(); arg_loc = tup2.at1(); if (arg == nullptr) { throw Alloc(str366, loc::Missing); } arg_r->Next(); if (str_equals(arg, str367)) { Tuple2 tup3 = arg_r->Peek2(); expected = tup3.at0(); e_loc = tup3.at1(); if (expected == nullptr) { throw Alloc(str368, loc::Missing); } UP_actual = this->mem->GetValue(str369, scope_e::Dynamic); if (UP_actual->tag() == value_e::Str) { actual = static_cast(UP_actual)->s; if (str_equals(actual, expected)) { return 0; } else { this->errfmt->Print_(StrFormat("Expected dialect %r, got %r", expected, actual), e_loc); return 1; } } else { this->errfmt->Print_(StrFormat("Expected dialect %r", expected), e_loc); return 1; } } if (str_equals(arg, str372)) { rest = arg_r->Rest(); for (ListIter it(rest); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); mylib::print_stderr(StrFormat("bin %s", name)); } return 0; } throw Alloc(str374, arg_loc); } } // define namespace module_ysh namespace printf_osh { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using id_kind_asdl::Kind; using id_kind_asdl::Kind_t; using runtime_asdl::cmd_value; using syntax_asdl::loc; using syntax_asdl::loc_e; using syntax_asdl::loc_t; using syntax_asdl::source; using syntax_asdl::Token; using syntax_asdl::CompoundWord; using syntax_asdl::printf_part; using syntax_asdl::printf_part_e; using syntax_asdl::printf_part_t; using types_asdl::lex_mode_e; using types_asdl::lex_mode_t; using value_asdl::value; using value_asdl::value_e; using error::e_die; using error::p_die; _FormatStringParser::_FormatStringParser(lexer::Lexer* lexer) { this->lexer = lexer; this->cur_token = nullptr; this->token_type = Id::Undefined_Tok; this->token_kind = Kind::Undefined; } void _FormatStringParser::_Next(types_asdl::lex_mode_t lex_mode) { this->cur_token = this->lexer->Read(lex_mode); this->token_type = this->cur_token->id; this->token_kind = consts::GetKind(this->token_type); } syntax_asdl::printf_part_t* _FormatStringParser::_ParseFormatStr() { printf_part::Percent* part = nullptr; BigStr* flag = nullptr; BigStr* type_val = nullptr; StackRoot _root0(&part); StackRoot _root1(&flag); StackRoot _root2(&type_val); this->_Next(lex_mode_e::PrintfPercent); part = printf_part::Percent::CreateNull(true); while ((this->token_type == Id::Format_Flag || this->token_type == Id::Format_Zero)) { flag = lexer::TokenVal(this->cur_token); if (str_contains(str375, flag)) { p_die(StrFormat("osh printf doesn't support the %r flag", flag), this->cur_token); } part->flags->append(this->cur_token); this->_Next(lex_mode_e::PrintfPercent); } if ((this->token_type == Id::Format_Num || this->token_type == Id::Format_Star)) { part->width = this->cur_token; this->_Next(lex_mode_e::PrintfPercent); } if (this->token_type == Id::Format_Dot) { part->precision = this->cur_token; this->_Next(lex_mode_e::PrintfPercent); if ((this->token_type == Id::Format_Num || this->token_type == Id::Format_Star || this->token_type == Id::Format_Zero)) { part->precision = this->cur_token; this->_Next(lex_mode_e::PrintfPercent); } } if ((this->token_type == Id::Format_Type || this->token_type == Id::Format_Time)) { part->type = this->cur_token; type_val = lexer::TokenVal(part->type); if (str_contains(str377, type_val)) { p_die(str378, part->type); } if (str_equals(type_val, str379)) { p_die(str380, part->type); } } else { if (this->token_type == Id::Unknown_Tok) { p_die(str381, this->cur_token); } else { p_die(str382, this->cur_token); } } return part; } List* _FormatStringParser::Parse() { List* parts = nullptr; StackRoot _root0(&parts); this->_Next(lex_mode_e::PrintfOuter); parts = Alloc>(); while (true) { if (((this->token_kind == Kind::Lit || this->token_kind == Kind::Char) or (this->token_type == Id::Format_EscapedPercent || this->token_type == Id::Unknown_Backslash))) { parts->append(this->cur_token); } else { if (this->token_type == Id::Format_Percent) { parts->append(this->_ParseFormatStr()); } else { if ((this->token_type == Id::Eof_Real || this->token_type == Id::Eol_Tok)) { break; } else { assert(0); // AssertionError } } } this->_Next(lex_mode_e::PrintfOuter); } return parts; } _PrintfState::_PrintfState() { this->arg_index = 0; this->backslash_c = false; this->status = 0; } Printf::Printf(state::Mem* mem, parse_lib::ParseContext* parse_ctx, sh_expr_eval::UnsafeArith* unsafe_arith, ui::ErrorFormatter* errfmt) { this->mem = mem; this->parse_ctx = parse_ctx; this->unsafe_arith = unsafe_arith; this->errfmt = errfmt; this->parse_cache = Alloc*>>(); this->shell_start_time = time_::time(); } BigStr* Printf::_Percent(printf_osh::_PrintfState* pr, printf_part::Percent* part, List* varargs, List* locs) { int num_args; List* flags = nullptr; int width; BigStr* width_str = nullptr; syntax_asdl::loc_t* width_loc = nullptr; int precision; BigStr* precision_str = nullptr; syntax_asdl::loc_t* precision_loc = nullptr; BigStr* s = nullptr; syntax_asdl::loc_t* word_loc = nullptr; bool has_arg; BigStr* typ = nullptr; List* c_parts = nullptr; match::SimpleLexer* lex = nullptr; int id_; BigStr* tok_val = nullptr; BigStr* p = nullptr; mops::BigInt d; int num_bytes; int small_i; syntax_asdl::loc_t* blame_loc = nullptr; runtime_asdl::Cell* tzcell = nullptr; value::Str* tzval = nullptr; double ts; int zero_pad; bool negative; BigStr* digits = nullptr; BigStr* sign = nullptr; int n; StackRoot _root0(&pr); StackRoot _root1(&part); StackRoot _root2(&varargs); StackRoot _root3(&locs); StackRoot _root4(&flags); StackRoot _root5(&width_str); StackRoot _root6(&width_loc); StackRoot _root7(&precision_str); StackRoot _root8(&precision_loc); StackRoot _root9(&s); StackRoot _root10(&word_loc); StackRoot _root11(&typ); StackRoot _root12(&c_parts); StackRoot _root13(&lex); StackRoot _root14(&tok_val); StackRoot _root15(&p); StackRoot _root16(&blame_loc); StackRoot _root17(&tzcell); StackRoot _root18(&tzval); StackRoot _root19(&digits); StackRoot _root20(&sign); num_args = len(varargs); flags = Alloc>(); if (len(part->flags) > 0) { for (ListIter it(part->flags); !it.Done(); it.Next()) { syntax_asdl::Token* flag_token = it.Value(); StackRoot _for(&flag_token ); flags->append(lexer::TokenVal(flag_token)); } } width = -1; if (part->width) { if ((part->width->id == Id::Format_Num || part->width->id == Id::Format_Zero)) { width_str = lexer::TokenVal(part->width); width_loc = part->width; } else { if (part->width->id == Id::Format_Star) { if (pr->arg_index < num_args) { width_str = varargs->at(pr->arg_index); width_loc = locs->at(pr->arg_index); pr->arg_index += 1; } else { width_str = str383; width_loc = loc::Missing; } } else { assert(0); // AssertionError } } try { width = to_int(width_str); } catch (ValueError*) { if (width_loc->tag() == loc_e::Missing) { width_loc = part->width; } this->errfmt->Print_(StrFormat("printf got invalid width %r", width_str), width_loc); pr->status = 1; return nullptr; } } precision = -1; if (part->precision) { if (part->precision->id == Id::Format_Dot) { precision_str = str385; precision_loc = part->precision; } else { if ((part->precision->id == Id::Format_Num || part->precision->id == Id::Format_Zero)) { precision_str = lexer::TokenVal(part->precision); precision_loc = part->precision; } else { if (part->precision->id == Id::Format_Star) { if (pr->arg_index < num_args) { precision_str = varargs->at(pr->arg_index); precision_loc = locs->at(pr->arg_index); pr->arg_index += 1; } else { precision_str = str386; precision_loc = loc::Missing; } } else { assert(0); // AssertionError } } } try { precision = to_int(precision_str); } catch (ValueError*) { if (precision_loc->tag() == loc_e::Missing) { precision_loc = part->precision; } this->errfmt->Print_(StrFormat("printf got invalid precision %r", precision_str), precision_loc); pr->status = 1; return nullptr; } } if (pr->arg_index < num_args) { s = varargs->at(pr->arg_index); word_loc = locs->at(pr->arg_index); pr->arg_index += 1; has_arg = true; } else { s = str388; word_loc = loc::Missing; has_arg = false; } typ = lexer::TokenVal(part->type); if (str_equals(typ, str389)) { if (precision >= 0) { s = s->slice(0, precision); } } else { if (str_equals(typ, str390)) { s = j8_lite::MaybeShellEncode(s); } else { if (str_equals(typ, str391)) { c_parts = Alloc>(); lex = match::EchoLexer(s); while (true) { Tuple2 tup0 = lex->Next(); id_ = tup0.at0(); tok_val = tup0.at1(); if (id_ == Id::Eol_Tok) { break; } p = word_compile::EvalCStringToken(id_, tok_val); if (p == nullptr) { pr->backslash_c = true; break; } c_parts->append(p); } s = str392->join(c_parts); } else { if ((part->type->id == Id::Format_Time or str_contains(str393, typ))) { if (match::LooksLikeInteger(s)) { d = mops::FromStr(s); } else { num_bytes = len(s); if ((num_bytes > 0 and str_contains(str394, s->at(0)))) { if (num_bytes == 1) { d = mops::ZERO; } else { if (num_bytes == 2) { d = mops::IntWiden(ord(s->at(1))); } else { try { small_i = string_ops::DecodeUtf8Char(s, 1); } catch (error::Expr* e) { this->errfmt->Print_(StrFormat("Warning: %s", e->UserErrorString()), word_loc); small_i = ord(s->at(1)); } d = mops::IntWiden(small_i); } } } else { if ((!has_arg and part->type->id == Id::Format_Time)) { d = mops::MINUS_ONE; } else { if (has_arg) { blame_loc = word_loc; } else { blame_loc = part->type; } this->errfmt->Print_(StrFormat("printf expected an integer, got %r", s), blame_loc); pr->status = 1; return nullptr; } } } if (part->type->id == Id::Format_Time) { tzcell = this->mem->GetCell(str397); if ((tzcell and (tzcell->exported and tzcell->val->tag() == value_e::Str))) { tzval = static_cast(tzcell->val); posix::putenv(str398, tzval->s); } time_::tzset(); if (mops::Equal(d, mops::MINUS_ONE)) { ts = time_::time(); } else { if (mops::Equal(d, mops::MINUS_TWO)) { ts = this->shell_start_time; } else { ts = mops::BigTruncate(d); } } s = time_::strftime(typ->slice(1, -2), time_::localtime(ts)); if (precision >= 0) { s = s->slice(0, precision); } } else { if ((mops::Greater(mops::ZERO, d) and str_contains(str399, typ))) { e_die(StrFormat("Can't format negative number with %%%s: %d", typ, mops::BigTruncate(d)), part->type); } if (str_equals(typ, str401)) { s = mops::ToOctal(d); } else { if (str_equals(typ, str402)) { s = mops::ToHexLower(d); } else { if (str_equals(typ, str403)) { s = mops::ToHexUpper(d); } else { s = mops::ToStr(d); } } } zero_pad = 0; if ((width >= 0 and list_contains(flags, str404))) { zero_pad = 1; } else { if ((precision > 0 and len(s) < precision)) { zero_pad = 2; } } if (zero_pad) { negative = str_equals(s->at(0), str405); if (negative) { digits = s->slice(1); sign = str406; if (zero_pad == 1) { n = (width - 1); } else { n = precision; } } else { digits = s; sign = str407; if (zero_pad == 1) { n = width; } else { n = precision; } } s = str_concat(sign, digits->rjust(n, str408)); } } } else { assert(0); // AssertionError } } } } if (width >= 0) { if (list_contains(flags, str409)) { s = s->ljust(width, str410); } else { s = s->rjust(width, str411); } } return s; } int Printf::_Format(List* parts, List* varargs, List* locs, List* out) { printf_osh::_PrintfState* pr = nullptr; int num_args; syntax_asdl::printf_part_t* UP_part = nullptr; BigStr* s = nullptr; StackRoot _root0(&parts); StackRoot _root1(&varargs); StackRoot _root2(&locs); StackRoot _root3(&out); StackRoot _root4(&pr); StackRoot _root5(&UP_part); StackRoot _root6(&s); pr = Alloc<_PrintfState>(); num_args = len(varargs); while (true) { for (ListIter it(parts); !it.Done(); it.Next()) { syntax_asdl::printf_part_t* part = it.Value(); StackRoot _for(&part ); UP_part = part; if (part->tag() == printf_part_e::Literal) { Token* part = static_cast(UP_part); if (part->id == Id::Format_EscapedPercent) { s = str412; } else { s = word_compile::EvalCStringToken(part->id, lexer::LazyStr(part)); } } else { if (part->tag() == printf_part_e::Percent) { printf_part::Percent* part = static_cast(UP_part); s = this->_Percent(pr, part, varargs, locs); if (pr->status != 0) { return pr->status; } } else { assert(0); // AssertionError } } out->append(s); if (pr->backslash_c) { break; } } if (pr->arg_index == 0) { break; } if (pr->arg_index >= num_args) { break; } } return 0; } int Printf::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::printf* arg = nullptr; BigStr* fmt = nullptr; syntax_asdl::loc_t* fmt_loc = nullptr; List* varargs = nullptr; List* locs = nullptr; alloc::Arena* arena = nullptr; List* parts = nullptr; reader::FileLineReader* line_reader = nullptr; lexer::Lexer* lexer = nullptr; printf_osh::_FormatStringParser* parser = nullptr; List* out = nullptr; int status; BigStr* result = nullptr; syntax_asdl::loc__Missing* v_loc = nullptr; value_asdl::sh_lvalue_t* lval = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&fmt); StackRoot _root5(&fmt_loc); StackRoot _root6(&varargs); StackRoot _root7(&locs); StackRoot _root8(&arena); StackRoot _root9(&parts); StackRoot _root10(&line_reader); StackRoot _root11(&lexer); StackRoot _root12(&parser); StackRoot _root13(&out); StackRoot _root14(&result); StackRoot _root15(&v_loc); StackRoot _root16(&lval); Tuple2 tup1 = flag_util::ParseCmdVal(str413, cmd_val); attrs = tup1.at0(); arg_r = tup1.at1(); arg = Alloc(attrs->attrs); Tuple2 tup2 = arg_r->ReadRequired2(str414); fmt = tup2.at0(); fmt_loc = tup2.at1(); Tuple2*, List*> tup3 = arg_r->Rest2(); varargs = tup3.at0(); locs = tup3.at1(); arena = this->parse_ctx->arena; if (dict_contains(this->parse_cache, fmt)) { parts = this->parse_cache->at(fmt); } else { line_reader = reader::StringLineReader(fmt, arena); lexer = this->parse_ctx->MakeLexer(line_reader); parser = Alloc<_FormatStringParser>(lexer); { // with alloc::ctx_SourceCode ctx{arena, Alloc(str415, fmt_loc)}; try { parts = parser->Parse(); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); return 2; } } this->parse_cache->set(fmt, parts); } out = Alloc>(); status = this->_Format(parts, varargs, locs, out); if (status != 0) { return status; } result = str416->join(out); if (arg->v != nullptr) { v_loc = loc::Missing; lval = this->unsafe_arith->ParseLValue(arg->v, v_loc); state::BuiltinSetValue(this->mem, lval, Alloc(result)); } else { mylib::Stdout()->write(result); } return 0; } } // define namespace printf_osh namespace process_osh { // define using syntax_asdl::loc; using runtime_asdl::cmd_value; using runtime_asdl::job_state_e; using runtime_asdl::wait_status; using runtime_asdl::wait_status_e; using error::e_usage; using error::e_die_status; using mylib::print_stderr; Jobs::Jobs(process::JobList* job_list) { this->job_list = job_list; } int Jobs::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::jobs* arg = nullptr; int style; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); Tuple2 tup0 = flag_util::ParseCmdVal(str417, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); if (arg->l) { style = process::STYLE_LONG; } else { if (arg->p) { style = process::STYLE_PID_ONLY; } else { style = process::STYLE_DEFAULT; } } this->job_list->DisplayJobs(style); if (arg->debug) { this->job_list->DebugPrint(); } return 0; } Fg::Fg(process::JobControl* job_control, process::JobList* job_list, process::Waiter* waiter) { this->job_control = job_control; this->job_list = job_list; this->waiter = waiter; } int Fg::Run(cmd_value::Argv* cmd_val) { BigStr* job_spec = nullptr; process::Job* job = nullptr; int pgid; int status; runtime_asdl::wait_status_t* wait_st = nullptr; runtime_asdl::wait_status_t* UP_wait_st = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&job_spec); StackRoot _root2(&job); StackRoot _root3(&wait_st); StackRoot _root4(&UP_wait_st); job_spec = str418; if (len(cmd_val->argv) > 1) { job_spec = cmd_val->argv->at(1); } job = this->job_list->GetJobWithSpec(job_spec); if (job == nullptr) { mylib::print_stderr(str419); return 1; } pgid = job->ProcessGroupId(); mylib::print_stderr(StrFormat("Continue PID %d", pgid)); this->job_control->MaybeGiveTerminal(pgid); job->SetForeground(); job->state = job_state_e::Running; posix::killpg(pgid, SIGCONT); status = -1; wait_st = job->JobWait(this->waiter); UP_wait_st = wait_st; switch (wait_st->tag()) { case wait_status_e::Proc: { wait_status::Proc* wait_st = static_cast(UP_wait_st); status = wait_st->code; } break; case wait_status_e::Pipeline: { wait_status::Pipeline* wait_st = static_cast(UP_wait_st); status = wait_st->codes->at(-1); } break; case wait_status_e::Cancelled: { wait_status::Cancelled* wait_st = static_cast(UP_wait_st); status = (128 + wait_st->sig_num); } break; default: { assert(0); // AssertionError } } return status; } Bg::Bg(process::JobList* job_list) { this->job_list = job_list; } int Bg::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); throw Alloc(str421, loc::Missing); } Fork::Fork(vm::_Executor* shell_ex) { this->shell_ex = shell_ex; } int Fork::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* arg = nullptr; syntax_asdl::loc_t* location = nullptr; syntax_asdl::command_t* cmd = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&arg); StackRoot _root3(&location); StackRoot _root4(&cmd); Tuple2 tup1 = flag_util::ParseCmdVal(str422, cmd_val, true); arg_r = tup1.at1(); Tuple2 tup2 = arg_r->Peek2(); arg = tup2.at0(); location = tup2.at1(); if (arg != nullptr) { e_usage(StrFormat("got unexpected argument %r", arg), location); } cmd = typed_args::OptionalBlock(cmd_val); if (cmd == nullptr) { e_usage(str424, loc::Missing); } return this->shell_ex->RunBackgroundJob(cmd); } ForkWait::ForkWait(vm::_Executor* shell_ex) { this->shell_ex = shell_ex; } int ForkWait::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* arg = nullptr; syntax_asdl::loc_t* location = nullptr; syntax_asdl::command_t* cmd = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&arg); StackRoot _root3(&location); StackRoot _root4(&cmd); Tuple2 tup3 = flag_util::ParseCmdVal(str425, cmd_val, true); arg_r = tup3.at1(); Tuple2 tup4 = arg_r->Peek2(); arg = tup4.at0(); location = tup4.at1(); if (arg != nullptr) { e_usage(StrFormat("got unexpected argument %r", arg), location); } cmd = typed_args::OptionalBlock(cmd_val); if (cmd == nullptr) { e_usage(str427, loc::Missing); } return this->shell_ex->RunSubshell(cmd); } Exec::Exec(state::Mem* mem, process::ExternalProgram* ext_prog, process::FdState* fd_state, state::SearchPath* search_path, ui::ErrorFormatter* errfmt) { this->mem = mem; this->ext_prog = ext_prog; this->fd_state = fd_state; this->search_path = search_path; this->errfmt = errfmt; } int Exec::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; Dict* environ = nullptr; int i; BigStr* cmd = nullptr; BigStr* argv0_path = nullptr; cmd_value::Argv* c2 = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&environ); StackRoot _root3(&cmd); StackRoot _root4(&argv0_path); StackRoot _root5(&c2); Tuple2 tup5 = flag_util::ParseCmdVal(str428, cmd_val); arg_r = tup5.at1(); if (arg_r->AtEnd()) { this->fd_state->MakePermanent(); return 0; } environ = this->mem->GetExported(); i = arg_r->i; cmd = cmd_val->argv->at(i); argv0_path = this->search_path->CachedLookup(cmd); if (argv0_path == nullptr) { e_die_status(127, StrFormat("exec: %r not found", cmd), cmd_val->arg_locs->at(1)); } c2 = Alloc(cmd_val->argv->slice(i), cmd_val->arg_locs->slice(i), nullptr, nullptr, nullptr, nullptr); this->ext_prog->Exec(argv0_path, c2, environ); assert(0); // AssertionError } Wait::Wait(process::Waiter* waiter, process::JobList* job_list, state::Mem* mem, dev::Tracer* tracer, ui::ErrorFormatter* errfmt) { this->waiter = waiter; this->job_list = job_list; this->mem = mem; this->tracer = tracer; this->errfmt = errfmt; } int Wait::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); { // with dev::ctx_Tracer ctx{this->tracer, str431, cmd_val->argv}; return this->_Run(cmd_val); } } int Wait::_Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::wait* arg = nullptr; List* job_ids = nullptr; List* arg_locs = nullptr; int n; int status; int target; int result; List* jobs = nullptr; int i; syntax_asdl::CompoundWord* location = nullptr; process::Job* job = nullptr; int pid; runtime_asdl::wait_status_t* wait_st = nullptr; runtime_asdl::wait_status_t* UP_wait_st = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&job_ids); StackRoot _root5(&arg_locs); StackRoot _root6(&jobs); StackRoot _root7(&location); StackRoot _root8(&job); StackRoot _root9(&wait_st); StackRoot _root10(&UP_wait_st); Tuple2 tup6 = flag_util::ParseCmdVal(str432, cmd_val); attrs = tup6.at0(); arg_r = tup6.at1(); arg = Alloc(attrs->attrs); Tuple2*, List*> tup7 = arg_r->Rest2(); job_ids = tup7.at0(); arg_locs = tup7.at1(); if (arg->n) { n = this->job_list->NumRunning(); if (n == 0) { status = 127; } else { target = (n - 1); status = 0; while (this->job_list->NumRunning() > target) { result = this->waiter->WaitForOne(); if (result == process::W1_OK) { status = this->waiter->last_status; } else { if (result == process::W1_ECHILD) { status = 127; break; } else { if (result >= 0) { status = (128 + result); break; } } } } } return status; } if (len(job_ids) == 0) { status = 0; while (this->job_list->NumRunning() != 0) { result = this->waiter->WaitForOne(); if (result == process::W1_ECHILD) { break; } else { if (result >= 0) { status = (128 + result); break; } } } return status; } jobs = Alloc>(); i = 0; for (ListIter it(job_ids); !it.Done(); it.Next(), ++i) { BigStr* job_id = it.Value(); StackRoot _for(&job_id ); location = arg_locs->at(i); job = nullptr; if ((str_equals(job_id, str433) or job_id->startswith(str434))) { job = this->job_list->GetJobWithSpec(job_id); } if (job == nullptr) { try { pid = to_int(job_id); } catch (ValueError*) { throw Alloc(StrFormat("expected PID or jobspec, got %r", job_id), location); } job = this->job_list->ProcessFromPid(pid); } if (job == nullptr) { this->errfmt->Print_(StrFormat("%s isn't a child of this shell", job_id), location); return 127; } jobs->append(job); } status = 1; for (ListIter it(jobs); !it.Done(); it.Next()) { process::Job* job = it.Value(); StackRoot _for(&job ); wait_st = job->JobWait(this->waiter); UP_wait_st = wait_st; switch (wait_st->tag()) { case wait_status_e::Proc: { wait_status::Proc* wait_st = static_cast(UP_wait_st); status = wait_st->code; } break; case wait_status_e::Pipeline: { wait_status::Pipeline* wait_st = static_cast(UP_wait_st); status = wait_st->codes->at(-1); } break; case wait_status_e::Cancelled: { wait_status::Cancelled* wait_st = static_cast(UP_wait_st); status = (128 + wait_st->sig_num); } break; default: { assert(0); // AssertionError } } } return status; } Umask::Umask() { ; // pass } int Umask::Run(cmd_value::Argv* cmd_val) { List* argv = nullptr; int mask; BigStr* a = nullptr; int new_mask; StackRoot _root0(&cmd_val); StackRoot _root1(&argv); StackRoot _root2(&a); argv = cmd_val->argv->slice(1); if (len(argv) == 0) { mask = posix::umask(0); posix::umask(mask); print(StrFormat("0%03o", mask)); return 0; } if (len(argv) == 1) { a = argv->at(0); try { new_mask = to_int(a, 8); } catch (ValueError*) { print_stderr(str438); return 1; } posix::umask(new_mask); return 0; } e_usage(str439, loc::Missing); } BigStr* _LimitString(mops::BigInt lim, int factor) { mops::BigInt i; if (mops::Equal(lim, mops::FromC(RLIM_INFINITY))) { return str440; } else { i = mops::Div(lim, mops::IntWiden(factor)); return mops::ToStr(i); } } Ulimit::Ulimit() { this->_table = nullptr; } List*>* Ulimit::_Table() { if (this->_table == nullptr) { this->_table = NewList*>(std::initializer_list*>{(Alloc>(str441, RLIMIT_CORE, 512, str442)), (Alloc>(str443, RLIMIT_DATA, 1024, str444)), (Alloc>(str445, RLIMIT_FSIZE, 512, str446)), (Alloc>(str447, RLIMIT_NOFILE, 1, str448)), (Alloc>(str449, RLIMIT_STACK, 1024, str450)), (Alloc>(str451, RLIMIT_CPU, 1, str452)), (Alloc>(str453, RLIMIT_AS, 1024, str454))}); } return this->_table; } int Ulimit::_FindFactor(int what) { int w; int factor; for (ListIter*> it(this->_Table()); !it.Done(); it.Next()) { Tuple4* tup8 = it.Value(); w = tup8->at1(); factor = tup8->at2(); if (w == what) { return factor; } } assert(0); // AssertionError } int Ulimit::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::ulimit* arg = nullptr; int what; int num_what_flags; bool show_all; BigStr* extra = nullptr; syntax_asdl::loc_t* extra_loc = nullptr; BigStr* fmt = nullptr; BigStr* flag = nullptr; int factor; BigStr* desc = nullptr; mops::BigInt soft; mops::BigInt hard; BigStr* soft2 = nullptr; BigStr* hard2 = nullptr; BigStr* s = nullptr; syntax_asdl::loc_t* s_loc = nullptr; mops::BigInt limit; mops::BigInt big_int; mops::BigInt fac; BigStr* extra2 = nullptr; syntax_asdl::loc_t* extra_loc2 = nullptr; mops::BigInt old_soft; mops::BigInt old_hard; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&extra); StackRoot _root5(&extra_loc); StackRoot _root6(&fmt); StackRoot _root7(&flag); StackRoot _root8(&desc); StackRoot _root9(&soft2); StackRoot _root10(&hard2); StackRoot _root11(&s); StackRoot _root12(&s_loc); StackRoot _root13(&extra2); StackRoot _root14(&extra_loc2); Tuple2 tup9 = flag_util::ParseCmdVal(str455, cmd_val); attrs = tup9.at0(); arg_r = tup9.at1(); arg = Alloc(attrs->attrs); what = 0; num_what_flags = 0; if (arg->c) { what = RLIMIT_CORE; num_what_flags += 1; } if (arg->d) { what = RLIMIT_DATA; num_what_flags += 1; } if (arg->f) { what = RLIMIT_FSIZE; num_what_flags += 1; } if (arg->n) { what = RLIMIT_NOFILE; num_what_flags += 1; } if (arg->s) { what = RLIMIT_STACK; num_what_flags += 1; } if (arg->t) { what = RLIMIT_CPU; num_what_flags += 1; } if (arg->v) { what = RLIMIT_AS; num_what_flags += 1; } if (num_what_flags > 1) { throw Alloc(str456, cmd_val->arg_locs->at(0)); } show_all = (arg->a or arg->all); if (show_all) { if (num_what_flags > 0) { throw Alloc(str457, cmd_val->arg_locs->at(0)); } Tuple2 tup10 = arg_r->Peek2(); extra = tup10.at0(); extra_loc = tup10.at1(); if (extra != nullptr) { throw Alloc(str458, extra_loc); } fmt = str459; print(StrFormat(fmt, str460, str461, str462, str463, str464)); for (ListIter*> it(this->_Table()); !it.Done(); it.Next()) { Tuple4* tup11 = it.Value(); flag = tup11->at0(); what = tup11->at1(); factor = tup11->at2(); desc = tup11->at3(); Tuple2 tup12 = pyos::GetRLimit(what); soft = tup12.at0(); hard = tup12.at1(); soft2 = _LimitString(soft, factor); hard2 = _LimitString(hard, factor); print(StrFormat(fmt, flag, soft2, hard2, str(factor), desc)); } return 0; } if (num_what_flags == 0) { what = RLIMIT_FSIZE; } Tuple2 tup13 = arg_r->Peek2(); s = tup13.at0(); s_loc = tup13.at1(); if (s == nullptr) { factor = this->_FindFactor(what); Tuple2 tup14 = pyos::GetRLimit(what); soft = tup14.at0(); hard = tup14.at1(); if (arg->H) { print(_LimitString(hard, factor)); } else { print(_LimitString(soft, factor)); } return 0; } if (str_equals(s, str465)) { limit = mops::FromC(RLIM_INFINITY); } else { try { big_int = mops::FromStr(s); } catch (ValueError* e) { throw Alloc(StrFormat("expected a number or 'unlimited', got %r", s), s_loc); } if (mops::Greater(mops::IntWiden(0), big_int)) { throw Alloc(StrFormat("doesn't accept negative numbers, got %r", s), s_loc); } factor = this->_FindFactor(what); fac = mops::IntWiden(factor); limit = mops::Mul(big_int, fac); if (!mops::Equal(mops::Div(limit, fac), big_int)) { throw Alloc(StrFormat("detected integer overflow: %s", mops::ToStr(big_int)), s_loc); } } arg_r->Next(); Tuple2 tup15 = arg_r->Peek2(); extra2 = tup15.at0(); extra_loc2 = tup15.at1(); if (extra2 != nullptr) { throw Alloc(str469, extra_loc2); } Tuple2 tup16 = pyos::GetRLimit(what); soft = tup16.at0(); hard = tup16.at1(); old_soft = soft; old_hard = hard; if ((!arg->S and !arg->H)) { soft = limit; hard = limit; } if (arg->S) { soft = limit; } if (arg->H) { hard = limit; } // if not PYTHON { try { pyos::SetRLimit(what, soft, hard); } catch (IOError_OSError* e) { print_stderr(StrFormat("ulimit error: %s", pyutil::strerror(e))); return 1; } } // endif MYCPP return 0; } } // define namespace process_osh namespace pure_osh { // define using syntax_asdl::loc; using types_asdl::opt_group_i; using error::e_usage; using mylib::print_stderr; Boolean::Boolean(int status) { this->status = status; } int Boolean::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); typed_args::DoesNotAccept(cmd_val->typed_args); return this->status; } Alias::Alias(Dict* aliases, ui::ErrorFormatter* errfmt) { this->aliases = aliases; this->errfmt = errfmt; } int Alias::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; List* argv = nullptr; BigStr* alias_exp = nullptr; int status; int i; BigStr* name = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&argv); StackRoot _root3(&alias_exp); StackRoot _root4(&name); Tuple2 tup0 = flag_util::ParseCmdVal(str471, cmd_val); arg_r = tup0.at1(); argv = arg_r->Rest(); if (len(argv) == 0) { for (ListIter it(sorted(this->aliases)); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); alias_exp = this->aliases->at(name); print(StrFormat("alias %s=%r", name, alias_exp)); } return 0; } status = 0; i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* arg = it.Value(); StackRoot _for(&arg ); Tuple2 tup1 = mylib::split_once(arg, str473); name = tup1.at0(); alias_exp = tup1.at1(); if (alias_exp == nullptr) { alias_exp = this->aliases->get(name); if (alias_exp == nullptr) { this->errfmt->Print_(StrFormat("No alias named %r", name), cmd_val->arg_locs->at(i)); status = 1; } else { print(StrFormat("alias %s=%r", name, alias_exp)); } } else { this->aliases->set(name, alias_exp); } } return status; } UnAlias::UnAlias(Dict* aliases, ui::ErrorFormatter* errfmt) { this->aliases = aliases; this->errfmt = errfmt; } int UnAlias::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::unalias* arg = nullptr; List* argv = nullptr; int status; int i; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&argv); Tuple2 tup2 = flag_util::ParseCmdVal(str476, cmd_val); attrs = tup2.at0(); arg_r = tup2.at1(); arg = Alloc(attrs->attrs); if (arg->a) { this->aliases->clear(); return 0; } argv = arg_r->Rest(); if (len(argv) == 0) { e_usage(str477, loc::Missing); } status = 0; i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* name = it.Value(); StackRoot _for(&name ); if (dict_contains(this->aliases, name)) { mylib::dict_erase(this->aliases, name); } else { this->errfmt->Print_(StrFormat("No alias named %r", name), cmd_val->arg_locs->at(i)); status = 1; } } return status; } void SetOptionsFromFlags(state::MutableOpts* exec_opts, List*>* opt_changes, List*>* shopt_changes) { BigStr* opt_name = nullptr; bool b; StackRoot _root0(&exec_opts); StackRoot _root1(&opt_changes); StackRoot _root2(&shopt_changes); StackRoot _root3(&opt_name); for (ListIter*> it(opt_changes); !it.Done(); it.Next()) { Tuple2* tup3 = it.Value(); opt_name = tup3->at0(); b = tup3->at1(); exec_opts->SetAnyOption(opt_name, b); } for (ListIter*> it(shopt_changes); !it.Done(); it.Next()) { Tuple2* tup4 = it.Value(); opt_name = tup4->at0(); b = tup4->at1(); exec_opts->SetAnyOption(opt_name, b); } } Set::Set(state::MutableOpts* exec_opts, state::Mem* mem) { this->exec_opts = exec_opts; this->mem = mem; } int Set::Run(cmd_value::Argv* cmd_val) { Dict* mapping = nullptr; BigStr* str_val = nullptr; BigStr* code_str = nullptr; args::Reader* arg_r = nullptr; args::_Attributes* arg = nullptr; BigStr* opt_name = nullptr; bool b; StackRoot _root0(&cmd_val); StackRoot _root1(&mapping); StackRoot _root2(&str_val); StackRoot _root3(&code_str); StackRoot _root4(&arg_r); StackRoot _root5(&arg); StackRoot _root6(&opt_name); if (len(cmd_val->argv) == 1) { mapping = this->mem->GetAllVars(); for (ListIter it(sorted(mapping)); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); str_val = mapping->at(name); code_str = StrFormat("%s=%s", name, j8_lite::MaybeShellEncode(str_val)); print(code_str); } return 0; } arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); arg = flag_util::ParseMore(str480, arg_r); if (arg->show_options) { this->exec_opts->ShowOptions(Alloc>()); return 0; } for (ListIter*> it(arg->opt_changes); !it.Done(); it.Next()) { Tuple2* tup5 = it.Value(); opt_name = tup5->at0(); b = tup5->at1(); this->exec_opts->SetOldOption(opt_name, b); } for (ListIter*> it(arg->shopt_changes); !it.Done(); it.Next()) { Tuple2* tup6 = it.Value(); opt_name = tup6->at0(); b = tup6->at1(); this->exec_opts->SetAnyOption(opt_name, b); } if ((arg->saw_double_dash or !arg_r->AtEnd())) { this->mem->SetArgv(arg_r->Rest()); } return 0; } Shopt::Shopt(state::MutableOpts* mutable_opts, cmd_eval::CommandEvaluator* cmd_ev) { this->mutable_opts = mutable_opts; this->cmd_ev = cmd_ev; } void Shopt::_PrintOptions(bool use_set_opts, List* opt_names) { StackRoot _root0(&opt_names); if (use_set_opts) { this->mutable_opts->ShowOptions(opt_names); } else { this->mutable_opts->ShowShoptOptions(opt_names); } } int Shopt::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::shopt* arg = nullptr; List* opt_names = nullptr; int index; bool b; syntax_asdl::command_t* cmd = nullptr; List* opt_nums = nullptr; int opt_group; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&opt_names); StackRoot _root5(&cmd); StackRoot _root6(&opt_nums); Tuple2 tup7 = flag_util::ParseCmdVal(str481, cmd_val, true); attrs = tup7.at0(); arg_r = tup7.at1(); arg = Alloc(attrs->attrs); opt_names = arg_r->Rest(); if (arg->q) { for (ListIter it(opt_names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); index = consts::OptionNum(name); if (index == 0) { return 2; } if (!this->mutable_opts->opt0_array->at(index)) { return 1; } } return 0; } if (arg->s) { b = true; } else { if (arg->u) { b = false; } else { if (arg->p) { this->_PrintOptions(arg->o, opt_names); return 0; } else { this->_PrintOptions(arg->o, opt_names); return 0; } } } cmd = typed_args::OptionalBlock(cmd_val); if (cmd) { opt_nums = Alloc>(); for (ListIter it(opt_names); !it.Done(); it.Next()) { BigStr* opt_name = it.Value(); StackRoot _for(&opt_name ); opt_group = consts::OptionGroupNum(opt_name); if (opt_group == opt_group_i::YshUpgrade) { opt_nums->extend(consts::YSH_UPGRADE); continue; } if (opt_group == opt_group_i::YshAll) { opt_nums->extend(consts::YSH_ALL); continue; } if (opt_group == opt_group_i::StrictAll) { opt_nums->extend(consts::STRICT_ALL); continue; } index = consts::OptionNum(opt_name); if (index == 0) { e_usage(StrFormat("got invalid option %r", opt_name), loc::Missing); } opt_nums->append(index); } { // with state::ctx_Option ctx{this->mutable_opts, opt_nums, b}; unused = this->cmd_ev->EvalCommand(cmd); } return 0; } for (ListIter it(opt_names); !it.Done(); it.Next()) { BigStr* opt_name = it.Value(); StackRoot _for(&opt_name ); this->mutable_opts->SetAnyOption(opt_name, b); } return 0; } Hash::Hash(state::SearchPath* search_path) { this->search_path = search_path; } int Hash::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::hash* arg = nullptr; List* rest = nullptr; int status; BigStr* full_path = nullptr; List* commands = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&rest); StackRoot _root5(&full_path); StackRoot _root6(&commands); Tuple2 tup8 = flag_util::ParseCmdVal(str483, cmd_val); attrs = tup8.at0(); arg_r = tup8.at1(); arg = Alloc(attrs->attrs); rest = arg_r->Rest(); if (arg->r) { if (len(rest)) { e_usage(str484, loc::Missing); } this->search_path->ClearCache(); return 0; } status = 0; if (len(rest)) { for (ListIter it(rest); !it.Done(); it.Next()) { BigStr* cmd = it.Value(); StackRoot _for(&cmd ); full_path = this->search_path->CachedLookup(cmd); if (full_path == nullptr) { print_stderr(StrFormat("hash: %r not found", cmd)); status = 1; } } } else { commands = this->search_path->CachedCommands(); commands->sort(); for (ListIter it(commands); !it.Done(); it.Next()) { BigStr* cmd = it.Value(); StackRoot _for(&cmd ); print(cmd); } } return status; } Dict* _ParseOptSpec(BigStr* spec_str) { Dict* spec = nullptr; int i; int n; BigStr* ch = nullptr; StackRoot _root0(&spec_str); StackRoot _root1(&spec); StackRoot _root2(&ch); spec = Alloc>(); i = 0; n = len(spec_str); while (true) { if (i >= n) { break; } ch = spec_str->at(i); spec->set(ch, false); i += 1; if (i >= n) { break; } if (str_equals(spec_str->at(i), str486)) { spec->set(ch, true); i += 1; } } return spec; } GetOptsState::GetOptsState(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; this->_optind = -1; this->flag_pos = 1; } int GetOptsState::_OptInd() { int result; try { result = state::GetInteger(this->mem, str487); } catch (error::Runtime* e) { this->errfmt->Print_(e->UserErrorString()); result = -1; } return result; } BigStr* GetOptsState::GetArg(List* argv) { int optind; int i; StackRoot _root0(&argv); optind = this->_OptInd(); if (optind == -1) { return nullptr; } this->_optind = optind; i = (optind - 1); if ((0 <= i and i < len(argv))) { return argv->at(i); } else { return nullptr; } } void GetOptsState::IncIndex() { state::BuiltinSetString(this->mem, str488, str((this->_optind + 1))); this->flag_pos = 1; } void GetOptsState::SetArg(BigStr* optarg) { StackRoot _root0(&optarg); state::BuiltinSetString(this->mem, str489, optarg); } void GetOptsState::Fail() { state::BuiltinSetString(this->mem, str490, str491); } Tuple2 _GetOpts(Dict* spec, List* argv, pure_osh::GetOptsState* my_state, ui::ErrorFormatter* errfmt) { BigStr* current = nullptr; BigStr* flag_char = nullptr; bool more_chars; BigStr* optarg = nullptr; List* tmp = nullptr; StackRoot _root0(&spec); StackRoot _root1(&argv); StackRoot _root2(&my_state); StackRoot _root3(&errfmt); StackRoot _root4(¤t); StackRoot _root5(&flag_char); StackRoot _root6(&optarg); StackRoot _root7(&tmp); current = my_state->GetArg(argv); if (current == nullptr) { my_state->Fail(); return Tuple2(1, str492); } if ((!current->startswith(str493) or str_equals(current, str494))) { my_state->Fail(); return Tuple2(1, str495); } flag_char = current->at(my_state->flag_pos); if (my_state->flag_pos < (len(current) - 1)) { my_state->flag_pos += 1; more_chars = true; } else { my_state->IncIndex(); my_state->flag_pos = 1; more_chars = false; } if (!dict_contains(spec, flag_char)) { return Tuple2(0, str496); } if (spec->at(flag_char)) { if (more_chars) { optarg = current->slice(my_state->flag_pos); } else { optarg = my_state->GetArg(argv); if (optarg == nullptr) { my_state->Fail(); errfmt->Print_(StrFormat("getopts: option %r requires an argument.", current)); tmp = Alloc>(); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); tmp->append(j8_lite::MaybeShellEncode(a)); } print_stderr(StrFormat("(getopts argv: %s)", str499->join(tmp))); return Tuple2(0, str500); } } my_state->IncIndex(); my_state->SetArg(optarg); } else { my_state->SetArg(str501); } return Tuple2(0, flag_char); } GetOpts::GetOpts(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; this->my_state = Alloc(mem, errfmt); this->spec_cache = Alloc*>>(); } int GetOpts::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; BigStr* spec_str = nullptr; BigStr* var_name = nullptr; syntax_asdl::loc_t* var_loc = nullptr; Dict* spec = nullptr; List* user_argv = nullptr; int status; BigStr* flag_char = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&spec_str); StackRoot _root3(&var_name); StackRoot _root4(&var_loc); StackRoot _root5(&spec); StackRoot _root6(&user_argv); StackRoot _root7(&flag_char); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); spec_str = arg_r->ReadRequired(str502); Tuple2 tup9 = arg_r->ReadRequired2(str503); var_name = tup9.at0(); var_loc = tup9.at1(); spec = this->spec_cache->get(spec_str); if (spec == nullptr) { spec = _ParseOptSpec(spec_str); this->spec_cache->set(spec_str, spec); } user_argv = arg_r->AtEnd() ? this->mem->GetArgv() : arg_r->Rest(); Tuple2 tup10 = _GetOpts(spec, user_argv, this->my_state, this->errfmt); status = tup10.at0(); flag_char = tup10.at1(); if (match::IsValidVarName(var_name)) { state::BuiltinSetString(this->mem, var_name, flag_char); } else { throw Alloc(StrFormat("got invalid variable name %r", var_name), var_loc); } return status; } } // define namespace pure_osh namespace pure_ysh { // define using runtime_asdl::cmd_value; using runtime_asdl::scope_e; using syntax_asdl::command_t; using syntax_asdl::loc; using syntax_asdl::loc_t; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::LeftName; ctx_Shvar::ctx_Shvar(state::Mem* mem, List*>* pairs) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); gHeap.PushRoot(reinterpret_cast(&(this->restore))); this->mem = mem; this->restore = Alloc*>>(); this->_Push(pairs); } ctx_Shvar::~ctx_Shvar() { this->_Pop(); gHeap.PopRoot(); gHeap.PopRoot(); } void ctx_Shvar::_Push(List*>* pairs) { BigStr* name = nullptr; value_asdl::value_t* v = nullptr; value_asdl::LeftName* lval = nullptr; value_asdl::value_t* old_val = nullptr; StackRoot _root0(&pairs); StackRoot _root1(&name); StackRoot _root2(&v); StackRoot _root3(&lval); StackRoot _root4(&old_val); for (ListIter*> it(pairs); !it.Done(); it.Next()) { Tuple2* tup0 = it.Value(); name = tup0->at0(); v = tup0->at1(); lval = location::LName(name); old_val = this->mem->GetValue(name, scope_e::LocalOnly); this->restore->append((Alloc>(lval, old_val))); this->mem->SetNamed(lval, v, scope_e::LocalOnly); } } void ctx_Shvar::_Pop() { value_asdl::LeftName* lval = nullptr; value_asdl::value_t* old_val = nullptr; StackRoot _root0(&lval); StackRoot _root1(&old_val); for (ListIter*> it(this->restore); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); lval = tup1->at0(); old_val = tup1->at1(); if (old_val->tag() == value_e::Undef) { this->mem->Unset(lval, scope_e::LocalOnly); } else { this->mem->SetNamed(lval, old_val, scope_e::LocalOnly); } } } Shvar::Shvar(state::Mem* mem, state::SearchPath* search_path, cmd_eval::CommandEvaluator* cmd_ev) { this->mem = mem; this->search_path = search_path; this->cmd_ev = cmd_ev; } int Shvar::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; syntax_asdl::command_t* cmd = nullptr; List*>* pairs = nullptr; List* args = nullptr; List* arg_locs = nullptr; int i; BigStr* name = nullptr; BigStr* s = nullptr; value_asdl::value_t* v = nullptr; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&cmd); StackRoot _root3(&pairs); StackRoot _root4(&args); StackRoot _root5(&arg_locs); StackRoot _root6(&name); StackRoot _root7(&s); StackRoot _root8(&v); Tuple2 tup2 = flag_util::ParseCmdVal(str505, cmd_val, true); arg_r = tup2.at1(); cmd = typed_args::OptionalBlock(cmd_val); if (!cmd) { throw Alloc(str506, loc::Missing); } pairs = Alloc*>>(); Tuple2*, List*> tup3 = arg_r->Rest2(); args = tup3.at0(); arg_locs = tup3.at1(); if (len(args) == 0) { throw Alloc(str507, loc::Missing); } i = 0; for (ListIter it(args); !it.Done(); it.Next(), ++i) { BigStr* arg = it.Value(); StackRoot _for(&arg ); Tuple2 tup4 = mylib::split_once(arg, str508); name = tup4.at0(); s = tup4.at1(); if (s == nullptr) { throw Alloc(str509, arg_locs->at(i)); } v = Alloc(s); pairs->append((Alloc>(name, v))); if (str_equals(name, str510)) { this->search_path->ClearCache(); } } { // with ctx_Shvar ctx{this->mem, pairs}; unused = this->cmd_ev->EvalCommand(cmd); } return 0; } ctx_Context::ctx_Context(state::Mem* mem, Dict* context) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); this->mem = mem; this->mem->PushContextStack(context); } ctx_Context::~ctx_Context() { this->mem->PopContextStack(); gHeap.PopRoot(); } Ctx::Ctx(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->mem = mem; this->cmd_ev = cmd_ev; } Dict* Ctx::_GetContext() { Dict* ctx = nullptr; StackRoot _root0(&ctx); ctx = this->mem->GetContext(); if (ctx == nullptr) { throw Alloc(str511, loc::Missing); } return ctx; } int Ctx::_Push(Dict* context, syntax_asdl::command_t* block) { StackRoot _root0(&context); StackRoot _root1(&block); { // with ctx_Context ctx{this->mem, context}; return this->cmd_ev->EvalCommand(block); } } int Ctx::_Set(Dict* updates) { Dict* ctx = nullptr; StackRoot _root0(&updates); StackRoot _root1(&ctx); ctx = this->_GetContext(); ctx->update(updates); return 0; } int Ctx::_Emit(BigStr* field, value_asdl::value_t* item, syntax_asdl::loc_t* blame) { Dict* ctx = nullptr; value_asdl::value_t* UP_arr = nullptr; StackRoot _root0(&field); StackRoot _root1(&item); StackRoot _root2(&blame); StackRoot _root3(&ctx); StackRoot _root4(&UP_arr); ctx = this->_GetContext(); if (!dict_contains(ctx, field)) { ctx->set(field, Alloc(Alloc>())); } UP_arr = ctx->at(field); if (UP_arr->tag() != value_e::List) { throw Alloc(UP_arr, StrFormat("Expected the context item '%s' to be a List", field), blame); } value::List* arr = static_cast(UP_arr); arr->items->append(item); return 0; } int Ctx::Run(cmd_value::Argv* cmd_val) { typed_args::Reader* rd = nullptr; args::Reader* arg_r = nullptr; BigStr* verb = nullptr; syntax_asdl::loc_t* verb_loc = nullptr; Dict* context = nullptr; syntax_asdl::command_t* block = nullptr; Dict* updates = nullptr; BigStr* field = nullptr; syntax_asdl::loc_t* field_loc = nullptr; value_asdl::value_t* item = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&rd); StackRoot _root2(&arg_r); StackRoot _root3(&verb); StackRoot _root4(&verb_loc); StackRoot _root5(&context); StackRoot _root6(&block); StackRoot _root7(&updates); StackRoot _root8(&field); StackRoot _root9(&field_loc); StackRoot _root10(&item); rd = typed_args::ReaderForProc(cmd_val); Tuple2 tup5 = flag_util::ParseCmdVal(str513, cmd_val, true); arg_r = tup5.at1(); Tuple2 tup6 = arg_r->ReadRequired2(str514); verb = tup6.at0(); verb_loc = tup6.at1(); if (str_equals(verb, str515)) { context = rd->PosDict(); block = rd->RequiredBlock(); rd->Done(); arg_r->AtEnd(); return this->_Push(context, block); } else { if (str_equals(verb, str516)) { updates = rd->RestNamed(); rd->Done(); arg_r->AtEnd(); return this->_Set(updates); } else { if (str_equals(verb, str517)) { Tuple2 tup7 = arg_r->ReadRequired2(str518); field = tup7.at0(); field_loc = tup7.at1(); item = rd->PosValue(); rd->Done(); arg_r->AtEnd(); return this->_Emit(field, item, field_loc); } else { throw Alloc(StrFormat("Unknown verb '%s'", verb), verb_loc); } } } } PushRegisters::PushRegisters(state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { this->mem = mem; this->cmd_ev = cmd_ev; } int PushRegisters::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; syntax_asdl::command_t* cmd = nullptr; int unused; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&cmd); Tuple2 tup8 = flag_util::ParseCmdVal(str520, cmd_val, true); arg_r = tup8.at1(); cmd = typed_args::OptionalBlock(cmd_val); if (!cmd) { throw Alloc(str521, loc::Missing); } { // with state::ctx_Registers ctx{this->mem}; unused = this->cmd_ev->EvalCommand(cmd); } return this->mem->last_status->at(-1); } Append::Append(state::Mem* mem, ui::ErrorFormatter* errfmt) { this->mem = mem; this->errfmt = errfmt; } int Append::Run(cmd_value::Argv* cmd_val) { args::_Attributes* arg = nullptr; args::Reader* arg_r = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; List* typed = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg); StackRoot _root2(&arg_r); StackRoot _root3(&rd); StackRoot _root4(&val); StackRoot _root5(&UP_val); StackRoot _root6(&typed); Tuple2 tup9 = flag_util::ParseCmdVal(str522, cmd_val, true); arg = tup9.at0(); arg_r = tup9.at1(); rd = typed_args::ReaderForProc(cmd_val); val = rd->PosValue(); rd->Done(); UP_val = val; switch (val->tag()) { case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); val->strs->extend(arg_r->Rest()); } break; case value_e::List: { value::List* val = static_cast(UP_val); typed = Alloc>(); for (ListIter it(arg_r->Rest()); !it.Done(); it.Next()) { BigStr* s = it.Value(); typed->append(Alloc(s)); } val->items->extend(typed); } break; default: { throw Alloc(val, str523, loc::Missing); } } return 0; } } // define namespace pure_ysh namespace read_osh { // define using runtime_asdl::span_e; using runtime_asdl::cmd_value; using syntax_asdl::source; using syntax_asdl::loc_t; using value_asdl::value; using value_asdl::LeftName; using error::e_die; Tuple2 _AppendParts(BigStr* s, List*>* spans, int max_results, bool join_next, List* parts) { int start_index; bool last_span_was_black; runtime_asdl::span_t span_type; int end_index; mylib::BufWriter* buf = nullptr; bool done; runtime_asdl::span_t last_span_type; StackRoot _root0(&s); StackRoot _root1(&spans); StackRoot _root2(&parts); StackRoot _root3(&buf); start_index = 0; last_span_was_black = false; for (ListIter*> it(spans); !it.Done(); it.Next()) { Tuple2* tup0 = it.Value(); span_type = tup0->at0(); end_index = tup0->at1(); if (span_type == span_e::Black) { if ((join_next and len(parts))) { parts->at(-1)->write(s->slice(start_index, end_index)); join_next = false; } else { buf = Alloc(); buf->write(s->slice(start_index, end_index)); parts->append(buf); } last_span_was_black = true; } else { if (span_type == span_e::Delim) { if (join_next) { parts->at(-1)->write(s->slice(start_index, end_index)); join_next = false; } last_span_was_black = false; } else { if (span_type == span_e::Backslash) { if (last_span_was_black) { join_next = true; } last_span_was_black = false; } } } if ((max_results and len(parts) >= max_results)) { join_next = true; } start_index = end_index; } done = true; if (len(spans)) { Tuple2* tup1 = spans->at(-1); last_span_type = tup1->at0(); if (last_span_type == span_e::Backslash) { done = false; } } return Tuple2(done, join_next); } BigStr* _ReadN(int num_bytes, cmd_eval::CommandEvaluator* cmd_ev) { List* chunks = nullptr; int bytes_left; int n; int err_num; StackRoot _root0(&cmd_ev); StackRoot _root1(&chunks); chunks = Alloc>(); bytes_left = num_bytes; while (bytes_left > 0) { Tuple2 tup2 = pyos::Read(STDIN_FILENO, bytes_left, chunks); n = tup2.at0(); err_num = tup2.at1(); if (n < 0) { if (err_num == EINTR) { cmd_ev->RunPendingTraps(); } else { throw Alloc(err_num); } } else { if (n == 0) { break; } else { bytes_left -= n; } } } return str524->join(chunks); } Tuple2 _ReadPortion(int delim_byte, int max_chars, cmd_eval::CommandEvaluator* cmd_ev) { bool eof; List* ch_array = nullptr; int bytes_read; int ch; int err_num; StackRoot _root0(&cmd_ev); StackRoot _root1(&ch_array); eof = false; ch_array = Alloc>(); bytes_read = 0; while (true) { if ((max_chars >= 0 and bytes_read >= max_chars)) { break; } Tuple2 tup3 = pyos::ReadByte(0); ch = tup3.at0(); err_num = tup3.at1(); if (ch < 0) { if (err_num == EINTR) { cmd_ev->RunPendingTraps(); } else { throw Alloc(err_num); } } else { if (ch == pyos::EOF_SENTINEL) { eof = true; break; } else { if (ch == delim_byte) { break; } else { ch_array->append(ch); } } } bytes_read += 1; } return Tuple2(pyutil::ChArrayToString(ch_array), eof); } Tuple2 ReadLineSlowly(cmd_eval::CommandEvaluator* cmd_ev, bool with_eol) { bool eof; List* ch_array = nullptr; int ch; int err_num; StackRoot _root0(&cmd_ev); StackRoot _root1(&ch_array); eof = false; ch_array = Alloc>(); while (true) { Tuple2 tup4 = pyos::ReadByte(0); ch = tup4.at0(); err_num = tup4.at1(); if (ch < 0) { if (err_num == EINTR) { cmd_ev->RunPendingTraps(); } else { throw Alloc(err_num); } } else { if (ch == pyos::EOF_SENTINEL) { eof = true; break; } else { ch_array->append(ch); } } if (ch == pyos::NEWLINE_CH) { if (!with_eol) { ch_array->pop(); } break; } } return Tuple2(pyutil::ChArrayToString(ch_array), eof); } BigStr* ReadAll() { List* chunks = nullptr; int n; int err_num; int orig_local_modes; void* term_attrs = nullptr; StackRoot _root0(&chunks); StackRoot _root1(&term_attrs); chunks = Alloc>(); while (true) { Tuple2 tup5 = pyos::Read(0, 4096, chunks); n = tup5.at0(); err_num = tup5.at1(); if (n < 0) { if (err_num == EINTR) { ; // pass } else { throw Alloc(err_num); } } else { if (n == 0) { break; } } } return str525->join(chunks); } ctx_TermAttrs::ctx_TermAttrs(int fd, int local_modes) { gHeap.PushRoot(reinterpret_cast(&(this->term_attrs))); this->fd = fd; Tuple2 tup6 = pyos::PushTermAttrs(fd, local_modes); orig_local_modes = tup6.at0(); term_attrs = tup6.at1(); this->orig_local_modes = orig_local_modes; this->term_attrs = term_attrs; } ctx_TermAttrs::~ctx_TermAttrs() { pyos::PopTermAttrs(this->fd, this->orig_local_modes, this->term_attrs); gHeap.PopRoot(); } Read::Read(split::SplitContext* splitter, state::Mem* mem, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt) { this->splitter = splitter; this->mem = mem; this->parse_ctx = parse_ctx; this->cmd_ev = cmd_ev; this->errfmt = errfmt; this->stdin_ = mylib::Stdin(); } int Read::Run(cmd_value::Argv* cmd_val) { int status; StackRoot _root0(&cmd_val); try { status = this->_Run(cmd_val); } catch (pyos::ReadError* e) { this->errfmt->PrintMessage(StrFormat("Oils read error: %s", posix::strerror(e->err_num))); status = 1; } catch (IOError_OSError* e) { this->errfmt->PrintMessage(StrFormat("Oils read I/O error: %s", pyutil::strerror(e))); status = 1; } return status; } int Read::_ReadYsh(arg_types::read* arg, args::Reader* arg_r, cmd_value::Argv* cmd_val) { value::Place* place = nullptr; typed_args::Reader* rd = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; BigStr* var_name = nullptr; BigStr* next_arg = nullptr; syntax_asdl::loc_t* next_loc = nullptr; int num_bytes; BigStr* contents = nullptr; int status; bool eof; StackRoot _root0(&arg); StackRoot _root1(&arg_r); StackRoot _root2(&cmd_val); StackRoot _root3(&place); StackRoot _root4(&rd); StackRoot _root5(&blame_loc); StackRoot _root6(&var_name); StackRoot _root7(&next_arg); StackRoot _root8(&next_loc); StackRoot _root9(&contents); place = nullptr; if (cmd_val->typed_args) { rd = typed_args::ReaderForProc(cmd_val); place = rd->PosPlace(); rd->Done(); blame_loc = cmd_val->typed_args->left; } else { var_name = str531; blame_loc = cmd_val->arg_locs->at(0); place = Alloc(Alloc(var_name, blame_loc), this->mem->TopNamespace()); } Tuple2 tup7 = arg_r->Peek2(); next_arg = tup7.at0(); next_loc = tup7.at1(); if (next_arg != nullptr) { throw Alloc(str532, next_loc); } num_bytes = mops::BigTruncate(arg->num_bytes); if (num_bytes != -1) { contents = _ReadN(num_bytes, this->cmd_ev); status = 0; } else { if (arg->raw_line) { Tuple2 tup8 = ReadLineSlowly(this->cmd_ev, arg->with_eol); contents = tup8.at0(); eof = tup8.at1(); status = eof ? 1 : 0; } else { if (arg->all) { contents = ReadAll(); status = 0; } else { assert(0); // AssertionError } } } this->mem->SetPlace(place, Alloc(contents), blame_loc); return status; } int Read::_Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::read* arg = nullptr; List* names = nullptr; int bits; int status; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&names); Tuple2 tup9 = flag_util::ParseCmdVal(str533, cmd_val, true); attrs = tup9.at0(); arg_r = tup9.at1(); arg = Alloc(attrs->attrs); names = arg_r->Rest(); if ((arg->raw_line or (arg->all or mops::BigTruncate(arg->num_bytes) != -1))) { return this->_ReadYsh(arg, arg_r, cmd_val); } if (cmd_val->typed_args) { throw Alloc(str534, cmd_val->typed_args->left); } if (arg->t >= 0.0) { if (arg->t != 0.0) { e_die(str535); } else { return pyos::InputAvailable(STDIN_FILENO) ? 0 : 1; } } bits = 0; if (this->stdin_->isatty()) { if ((arg->d != nullptr or mops::BigTruncate(arg->n) >= 0)) { bits |= pyos::TERM_ICANON; } if (arg->s) { bits |= pyos::TERM_ECHO; } if (arg->p != nullptr) { mylib::Stderr()->write(arg->p); } } if (bits == 0) { status = this->_Read(arg, names); } else { { // with ctx_TermAttrs ctx{STDIN_FILENO, ~bits}; status = this->_Read(arg, names); } } return status; } int Read::_Read(arg_types::read* arg, List* names) { int arg_N; BigStr* s = nullptr; BigStr* name = nullptr; bool do_split; int max_results; bool raw; int delim_byte; List* parts = nullptr; bool join_next; int status; BigStr* chunk = nullptr; bool eof; List*>* spans = nullptr; bool done; List* entries = nullptr; int num_parts; BigStr* var_name = nullptr; StackRoot _root0(&arg); StackRoot _root1(&names); StackRoot _root2(&s); StackRoot _root3(&name); StackRoot _root4(&parts); StackRoot _root5(&chunk); StackRoot _root6(&spans); StackRoot _root7(&entries); StackRoot _root8(&var_name); arg_N = mops::BigTruncate(arg->N); if (arg_N >= 0) { s = _ReadN(arg_N, this->cmd_ev); if (len(names)) { name = names->at(0); for (int i = 1; i < len(names); ++i) { state::BuiltinSetString(this->mem, names->at(i), str536); } } else { name = str537; } state::BuiltinSetString(this->mem, name, s); return len(s) == arg_N ? 0 : 1; } do_split = false; if (len(names)) { do_split = true; } else { names->append(str538); } if (arg->a != nullptr) { max_results = 0; do_split = true; } else { max_results = len(names); } if (arg->Z) { do_split = false; raw = true; delim_byte = 0; } else { raw = arg->r; if (arg->d != nullptr) { if (len(arg->d)) { delim_byte = ord(arg->d->at(0)); } else { delim_byte = 0; } } else { delim_byte = pyos::NEWLINE_CH; } } parts = Alloc>(); join_next = false; status = 0; while (true) { Tuple2 tup10 = _ReadPortion(delim_byte, mops::BigTruncate(arg->n), this->cmd_ev); chunk = tup10.at0(); eof = tup10.at1(); if (eof) { status = 1; } if (len(chunk) == 0) { break; } spans = this->splitter->SplitForRead(chunk, !raw, do_split); Tuple2 tup11 = _AppendParts(chunk, spans, max_results, join_next, parts); done = tup11.at0(); join_next = tup11.at1(); if (done) { break; } } entries = Alloc>(); for (ListIter it(parts); !it.Done(); it.Next()) { mylib::BufWriter* buf = it.Value(); entries->append(buf->getvalue()); } num_parts = len(entries); if (arg->a != nullptr) { state::BuiltinSetArray(this->mem, arg->a, entries); } else { for (int i = 0; i < max_results; ++i) { if (i < num_parts) { s = entries->at(i); } else { s = str539; } var_name = names->at(i); state::BuiltinSetString(this->mem, var_name, s); } } return status; } } // define namespace read_osh namespace readline_osh { // define using syntax_asdl::loc; using error::e_usage; Bind::Bind(py_readline::Readline* readline, ui::ErrorFormatter* errfmt) { this->readline = readline; this->errfmt = errfmt; } int Bind::Run(cmd_value::Argv* cmd_val) { StackRoot _root0(&cmd_val); this->errfmt->Print_(str540, cmd_val->arg_locs->at(0)); return 1; } History::History(py_readline::Readline* readline, shell::ShellFiles* sh_files, ui::ErrorFormatter* errfmt, mylib::Writer* f) { this->readline = readline; this->sh_files = sh_files; this->errfmt = errfmt; this->f = f; } int History::Run(cmd_value::Argv* cmd_val) { py_readline::Readline* readline = nullptr; args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::history* arg = nullptr; BigStr* hist_file = nullptr; int arg_d; int cmd_index; int num_items; BigStr* num_arg = nullptr; syntax_asdl::loc_t* num_arg_loc = nullptr; int start_index; int num_to_show; BigStr* item = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&readline); StackRoot _root2(&attrs); StackRoot _root3(&arg_r); StackRoot _root4(&arg); StackRoot _root5(&hist_file); StackRoot _root6(&num_arg); StackRoot _root7(&num_arg_loc); StackRoot _root8(&item); readline = this->readline; if (!readline) { e_usage(str541, loc::Missing); } Tuple2 tup0 = flag_util::ParseCmdVal(str542, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); if (arg->c) { readline->clear_history(); return 0; } if (arg->a) { hist_file = this->sh_files->HistoryFile(); if (hist_file == nullptr) { return 1; } try { readline->write_history_file(hist_file); } catch (IOError_OSError* e) { this->errfmt->Print_(StrFormat("Error writing HISTFILE %r: %s", hist_file, pyutil::strerror(e)), loc::Missing); return 1; } return 0; } if (arg->r) { hist_file = this->sh_files->HistoryFile(); if (hist_file == nullptr) { return 1; } try { readline->read_history_file(hist_file); } catch (IOError_OSError* e) { this->errfmt->Print_(StrFormat("Error reading HISTFILE %r: %s", hist_file, pyutil::strerror(e)), loc::Missing); return 1; } return 0; } arg_d = mops::BigTruncate(arg->d); if (arg_d >= 0) { cmd_index = (arg_d - 1); try { readline->remove_history_item(cmd_index); } catch (ValueError*) { e_usage(StrFormat("couldn't find item %d", arg_d), loc::Missing); } return 0; } num_items = readline->get_current_history_length(); Tuple2 tup1 = arg_r->Peek2(); num_arg = tup1.at0(); num_arg_loc = tup1.at1(); if (num_arg == nullptr) { start_index = 1; } else { try { num_to_show = to_int(num_arg); } catch (ValueError*) { e_usage(StrFormat("got invalid argument %r", num_arg), num_arg_loc); } start_index = max(1, ((num_items + 1) - num_to_show)); } arg_r->Next(); if (!arg_r->AtEnd()) { e_usage(str547, loc::Missing); } for (int i = start_index; i < (num_items + 1); ++i) { item = readline->get_history_item(i); this->f->write(StrFormat("%5d %s\n", i, item)); } return 0; } } // define namespace readline_osh namespace trap_osh { // define using runtime_asdl::cmd_value; using syntax_asdl::loc; using syntax_asdl::source; using mylib::print_stderr; TrapState::TrapState(pyos::SignalSafe* signal_safe) { this->signal_safe = signal_safe; this->hooks = Alloc>(); this->traps = Alloc>(); } void TrapState::ClearForSubProgram(bool inherit_errtrace) { syntax_asdl::command_t* hook_err = nullptr; StackRoot _root0(&hook_err); hook_err = this->hooks->get(str549); this->hooks->clear(); if ((hook_err != nullptr and inherit_errtrace)) { this->hooks->set(str550, hook_err); } this->traps->clear(); } syntax_asdl::command_t* TrapState::GetHook(BigStr* hook_name) { StackRoot _root0(&hook_name); return this->hooks->get(hook_name, nullptr); } void TrapState::AddUserHook(BigStr* hook_name, syntax_asdl::command_t* handler) { StackRoot _root0(&hook_name); StackRoot _root1(&handler); this->hooks->set(hook_name, handler); } void TrapState::RemoveUserHook(BigStr* hook_name) { StackRoot _root0(&hook_name); mylib::dict_erase(this->hooks, hook_name); } void TrapState::AddUserTrap(int sig_num, syntax_asdl::command_t* handler) { StackRoot _root0(&handler); this->traps->set(sig_num, handler); if (sig_num == SIGWINCH) { this->signal_safe->SetSigWinchCode(SIGWINCH); } else { pyos::RegisterSignalInterest(sig_num); } } void TrapState::RemoveUserTrap(int sig_num) { mylib::dict_erase(this->traps, sig_num); if (sig_num == SIGINT) { ; // pass } else { if (sig_num == SIGWINCH) { this->signal_safe->SetSigWinchCode(pyos::UNTRAPPED_SIGWINCH); } else { pyos::Sigaction(sig_num, SIG_DFL); } } } List* TrapState::GetPendingTraps() { List* signals = nullptr; List* run_list = nullptr; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&signals); StackRoot _root1(&run_list); StackRoot _root2(&node); signals = this->signal_safe->TakePendingSignals(); if (len(signals) == 0) { this->signal_safe->ReuseEmptyList(signals); return nullptr; } run_list = Alloc>(); for (ListIter it(signals); !it.Done(); it.Next()) { int sig_num = it.Value(); node = this->traps->get(sig_num, nullptr); if (node != nullptr) { run_list->append(node); } } signals->clear(); this->signal_safe->ReuseEmptyList(signals); return run_list; } int _GetSignalNumber(BigStr* sig_spec) { StackRoot _root0(&sig_spec); if ((str_equals(sig_spec->strip(), str551) || str_equals(sig_spec->strip(), str552) || str_equals(sig_spec->strip(), str553) || str_equals(sig_spec->strip(), str554) || str_equals(sig_spec->strip(), str555) || str_equals(sig_spec->strip(), str556) || str_equals(sig_spec->strip(), str557) || str_equals(sig_spec->strip(), str558))) { return to_int(sig_spec); } if (sig_spec->startswith(str559)) { sig_spec = sig_spec->slice(3); } return signal_def::GetNumber(sig_spec); } GLOBAL_LIST(_HOOK_NAMES, BigStr*, 4, {str560 COMMA str561 COMMA str562 COMMA str563}); Trap::Trap(trap_osh::TrapState* trap_state, parse_lib::ParseContext* parse_ctx, dev::Tracer* tracer, ui::ErrorFormatter* errfmt) { this->trap_state = trap_state; this->parse_ctx = parse_ctx; this->arena = parse_ctx->arena; this->tracer = tracer; this->errfmt = errfmt; } syntax_asdl::command_t* Trap::_ParseTrapCode(BigStr* code_str) { reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; source::ArgvWord* src = nullptr; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&code_str); StackRoot _root1(&line_reader); StackRoot _root2(&c_parser); StackRoot _root3(&src); StackRoot _root4(&node); line_reader = reader::StringLineReader(code_str, this->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); src = Alloc(str564, loc::Missing); { // with alloc::ctx_SourceCode ctx{this->arena, src}; try { node = main_loop::ParseWholeFile(c_parser); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); return nullptr; } } return node; } int Trap::Run(cmd_value::Argv* cmd_val) { args::_Attributes* attrs = nullptr; args::Reader* arg_r = nullptr; arg_types::trap* arg = nullptr; BigStr* code_str = nullptr; BigStr* sig_spec = nullptr; syntax_asdl::loc_t* sig_loc = nullptr; BigStr* sig_key = nullptr; int sig_num; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&attrs); StackRoot _root2(&arg_r); StackRoot _root3(&arg); StackRoot _root4(&code_str); StackRoot _root5(&sig_spec); StackRoot _root6(&sig_loc); StackRoot _root7(&sig_key); StackRoot _root8(&node); Tuple2 tup0 = flag_util::ParseCmdVal(str565, cmd_val); attrs = tup0.at0(); arg_r = tup0.at1(); arg = Alloc(attrs->attrs); if (arg->p) { for (DictIter it(this->trap_state->hooks); !it.Done(); it.Next()) { BigStr* name = it.Key(); syntax_asdl::command_t* _ = it.Value(); print(StrFormat("%s TrapState", name)); } for (DictIter it(this->trap_state->traps); !it.Done(); it.Next()) { int sig_num = it.Key(); syntax_asdl::command_t* _ = it.Value(); print(StrFormat("%d TrapState", sig_num)); } return 0; } if (arg->l) { for (ListIter it(_HOOK_NAMES); !it.Done(); it.Next()) { BigStr* hook_name = it.Value(); StackRoot _for(&hook_name ); print(StrFormat(" %s", hook_name)); } signal_def::PrintSignals(); return 0; } code_str = arg_r->ReadRequired(str569); Tuple2 tup1 = arg_r->ReadRequired2(str570); sig_spec = tup1.at0(); sig_loc = tup1.at1(); sig_key = nullptr; sig_num = signal_def::NO_SIGNAL; if (list_contains(_HOOK_NAMES, sig_spec)) { sig_key = sig_spec; } else { if (str_equals(sig_spec, str571)) { sig_key = str572; } else { sig_num = _GetSignalNumber(sig_spec); if (sig_num != signal_def::NO_SIGNAL) { sig_key = str(sig_num); } } } if (sig_key == nullptr) { this->errfmt->Print_(StrFormat("Invalid signal or hook %r", sig_spec), cmd_val->arg_locs->at(2)); return 1; } if (str_equals(code_str, str574)) { if (list_contains(_HOOK_NAMES, sig_key)) { this->trap_state->RemoveUserHook(sig_key); return 0; } if (sig_num != signal_def::NO_SIGNAL) { this->trap_state->RemoveUserTrap(sig_num); return 0; } assert(0); // AssertionError } node = this->_ParseTrapCode(code_str); if (node == nullptr) { return 1; } if (list_contains(_HOOK_NAMES, sig_key)) { if (str_equals(sig_key, str576)) { print_stderr(StrFormat("osh warning: The %r hook isn't implemented", sig_spec)); } this->trap_state->AddUserHook(sig_key, node); return 0; } if (sig_num != signal_def::NO_SIGNAL) { if ((sig_num == SIGKILL || sig_num == SIGSTOP)) { this->errfmt->Print_(StrFormat("Signal %r can't be handled", sig_spec), sig_loc); return 1; } this->trap_state->AddUserTrap(sig_num, node); return 0; } assert(0); // AssertionError } } // define namespace trap_osh namespace alloc { // define using syntax_asdl::source_t; using syntax_asdl::Token; using syntax_asdl::SourceLine; using syntax_asdl::loc; BigStr* SnipCodeBlock(syntax_asdl::Token* left, syntax_asdl::Token* right, List* lines) { List* pieces = nullptr; BigStr* piece = nullptr; bool saving; bool found_left; bool found_right; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&lines); StackRoot _root3(&pieces); StackRoot _root4(&piece); pieces = Alloc>(); pieces->append(str_repeat(str580, (left->col + 1))); if (left->line == right->line) { for (ListIter it(lines); !it.Done(); it.Next()) { syntax_asdl::SourceLine* li = it.Value(); StackRoot _for(&li ); if (li == left->line) { piece = li->content->slice((left->col + left->length), right->col); pieces->append(piece); } } return str581->join(pieces); } saving = false; found_left = false; found_right = false; for (ListIter it(lines); !it.Done(); it.Next()) { syntax_asdl::SourceLine* li = it.Value(); StackRoot _for(&li ); if (li == left->line) { found_left = true; saving = true; piece = li->content->slice((left->col + left->length)); pieces->append(piece); continue; } if (li == right->line) { found_right = true; piece = li->content->slice(0, right->col); pieces->append(piece); saving = false; break; } if (saving) { pieces->append(li->content); } } return str582->join(pieces); } ctx_SourceCode::ctx_SourceCode(alloc::Arena* arena, syntax_asdl::source_t* src) { gHeap.PushRoot(reinterpret_cast(&(this->arena))); arena->PushSource(src); this->arena = arena; } ctx_SourceCode::~ctx_SourceCode() { this->arena->PopSource(); gHeap.PopRoot(); } Arena::Arena(bool save_tokens) { this->save_tokens = save_tokens; this->tokens = Alloc>(); this->num_tokens = 0; this->span_id_lookup = Alloc>(); this->lines_list = Alloc>(); this->source_instances = Alloc>(); } void Arena::SaveTokens() { this->save_tokens = true; } void Arena::PushSource(syntax_asdl::source_t* src) { StackRoot _root0(&src); this->source_instances->append(src); } void Arena::PopSource() { this->source_instances->pop(); } syntax_asdl::SourceLine* Arena::AddLine(BigStr* line, int line_num) { syntax_asdl::SourceLine* src_line = nullptr; StackRoot _root0(&line); StackRoot _root1(&src_line); src_line = Alloc(line_num, line, this->source_instances->at(-1)); this->lines_list->append(src_line); return src_line; } void Arena::DiscardLines() { this->lines_list->clear(); } List* Arena::SaveLinesAndDiscard(syntax_asdl::Token* left, syntax_asdl::Token* right) { List* saved = nullptr; bool saving; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&saved); saved = Alloc>(); saving = false; for (ListIter it(this->lines_list); !it.Done(); it.Next()) { syntax_asdl::SourceLine* li = it.Value(); StackRoot _for(&li ); if (li == left->line) { saving = true; } if (saving) { saved->append(li); } if (li == right->line) { saving = false; break; } } this->DiscardLines(); return saved; } BigStr* Arena::SnipCodeString(syntax_asdl::Token* left, syntax_asdl::Token* right) { BigStr* piece = nullptr; List* pieces = nullptr; bool saving; bool found_left; bool found_right; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&piece); StackRoot _root3(&pieces); if (left->line == right->line) { for (ListIter it(this->lines_list); !it.Done(); it.Next()) { syntax_asdl::SourceLine* li = it.Value(); StackRoot _for(&li ); if (li == left->line) { piece = li->content->slice(left->col, (right->col + right->length)); return piece; } } } pieces = Alloc>(); saving = false; found_left = false; found_right = false; for (ListIter it(this->lines_list); !it.Done(); it.Next()) { syntax_asdl::SourceLine* li = it.Value(); StackRoot _for(&li ); if (li == left->line) { found_left = true; saving = true; piece = li->content->slice(left->col); pieces->append(piece); continue; } if (li == right->line) { found_right = true; piece = li->content->slice(0, (right->col + right->length)); pieces->append(piece); saving = false; break; } if (saving) { pieces->append(li->content); } } return str583->join(pieces); } syntax_asdl::Token* Arena::NewToken(int id_, int col, int length, syntax_asdl::SourceLine* src_line) { syntax_asdl::Token* tok = nullptr; int span_id; StackRoot _root0(&src_line); StackRoot _root1(&tok); if (length >= 65536) { throw Alloc(str584, Alloc(src_line, id_, length, col)); } tok = Alloc(id_, length, col, src_line, nullptr); if (this->save_tokens) { span_id = this->num_tokens; this->num_tokens += 1; this->tokens->append(tok); this->span_id_lookup->set(tok, span_id); } return tok; } void Arena::UnreadOne() { if (this->save_tokens) { this->tokens->pop(); this->num_tokens -= 1; } } syntax_asdl::Token* Arena::GetToken(int span_id) { return this->tokens->at(span_id); } int Arena::GetSpanId(syntax_asdl::Token* tok) { StackRoot _root0(&tok); return this->span_id_lookup->at(tok); } int Arena::LastSpanId() { return len(this->tokens); } } // define namespace alloc namespace comp_ui { // define int _PromptLen(BigStr* prompt_str) { bool escaped; BigStr* display_str = nullptr; BigStr* last_line = nullptr; StackRoot _root0(&prompt_str); StackRoot _root1(&display_str); StackRoot _root2(&last_line); escaped = false; display_str = str585; for (StrIter it(prompt_str); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (str_equals(c, str586)) { escaped = true; } else { if (str_equals(c, str587)) { escaped = false; } else { if (!escaped) { display_str = str_concat(display_str, c); } } } } last_line = display_str->split(str588)->at(-1); return pp_value::TryUnicodeWidth(last_line); } PromptState::PromptState() { this->last_prompt_str = nullptr; this->last_prompt_len = -1; } void PromptState::SetLastPrompt(BigStr* prompt_str) { StackRoot _root0(&prompt_str); this->last_prompt_str = prompt_str; this->last_prompt_len = _PromptLen(prompt_str); } State::State() { this->line_until_tab = nullptr; this->display_pos = -1; this->descriptions = Alloc>(); } _IDisplay::_IDisplay(comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, int num_lines_cap, mylib::Writer* f, util::_DebugFile* debug_f) { this->comp_state = comp_state; this->prompt_state = prompt_state; this->num_lines_cap = num_lines_cap; this->f = f; this->debug_f = debug_f; } void _IDisplay::PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len) { StackRoot _root0(&unused_subst); StackRoot _root1(&matches); try { this->_PrintCandidates(unused_subst, matches, unused_match_len); } catch (Exception*) { } } void _IDisplay::_PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len) { StackRoot _root0(&unused_subst); StackRoot _root1(&matches); FAIL(kNotImplemented); // Python NotImplementedError } void _IDisplay::Reset() { ; // pass } void _IDisplay::ShowPromptOnRight(BigStr* rendered) { StackRoot _root0(&rendered); ; // pass } void _IDisplay::EraseLines() { ; // pass } MinimalDisplay::MinimalDisplay(comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, util::_DebugFile* debug_f) : ::comp_ui::_IDisplay(comp_state, prompt_state, 10, mylib::Stdout(), debug_f) { this->reader = nullptr; } void MinimalDisplay::_RedrawPrompt() { this->f->write(this->prompt_state->last_prompt_str); this->f->write(this->comp_state->line_until_tab); } void MinimalDisplay::_PrintCandidates(BigStr* unused_subst, List* matches, int unused_match_len) { int display_pos; bool too_many; int i; int num_left; StackRoot _root0(&unused_subst); StackRoot _root1(&matches); this->f->write(str589); display_pos = this->comp_state->display_pos; too_many = false; i = 0; for (ListIter it(matches); !it.Done(); it.Next()) { BigStr* m = it.Value(); StackRoot _for(&m ); this->f->write(StrFormat(" %s\n", m->slice(display_pos))); if (i == this->num_lines_cap) { too_many = true; i += 1; break; } i += 1; } if (too_many) { num_left = (len(matches) - i); if (num_left) { this->f->write(StrFormat(" ... and %d more\n", num_left)); } } this->_RedrawPrompt(); } int _PrintPacked(List* matches, int max_match_len, int term_width, int max_lines, mylib::Writer* f) { int w; int num_per_line; BigStr* fmt = nullptr; int num_lines; bool too_many; int remainder; int i; BigStr* fmt2 = nullptr; int num_left; StackRoot _root0(&matches); StackRoot _root1(&f); StackRoot _root2(&fmt); StackRoot _root3(&fmt2); w = (max_match_len + 2); num_per_line = max(1, ((term_width - 2) / w)); fmt = str_concat(str_concat(str592, str(w)), str593); num_lines = 0; too_many = false; remainder = (num_per_line - 1); i = 0; for (ListIter it(matches); !it.Done(); it.Next()) { BigStr* m = it.Value(); StackRoot _for(&m ); if ((i % num_per_line) == 0) { f->write(str594); } f->write(StrFormat(fmt, m)); if ((i % num_per_line) == remainder) { f->write(str595); num_lines += 1; if (num_lines == max_lines) { too_many = true; i += 1; break; } } i += 1; } if ((i % num_per_line) != 0) { f->write(str596); num_lines += 1; } if (too_many) { fmt2 = str_concat(str_concat(str_concat(str_concat(str_concat(ansi::BOLD, ansi::BLUE), str597), str((term_width - 2))), str598), ansi::RESET); num_left = (len(matches) - i); if (num_left) { f->write(StrFormat(StrFormat(fmt2, str599), num_left)); num_lines += 1; } } return num_lines; } int _PrintLong(List* matches, int max_match_len, int term_width, int max_lines, Dict* descriptions, mylib::Writer* f) { int max_desc; BigStr* fmt = nullptr; int num_lines; BigStr* desc = nullptr; BigStr* fmt2 = nullptr; int num_left; StackRoot _root0(&matches); StackRoot _root1(&descriptions); StackRoot _root2(&f); StackRoot _root3(&fmt); StackRoot _root4(&desc); StackRoot _root5(&fmt2); max_desc = max(0, ((term_width - max_match_len) - 3)); fmt = str_concat(str_concat(str_concat(str_concat(str_concat(str_concat(str600, str(max_match_len)), str601), ansi::YELLOW), str602), ansi::RESET), str603); num_lines = 0; for (ListIter it(matches); !it.Done(); it.Next()) { BigStr* rl_match = it.Value(); StackRoot _for(&rl_match ); desc = descriptions->get(rl_match); if (desc == nullptr) { desc = str604; } if (max_desc == 0) { f->write(StrFormat(" %s\n", rl_match)); } else { if (len(desc) > max_desc) { desc = str_concat(desc->slice(0, (max_desc - 5)), str606); } f->write(StrFormat(fmt, rl_match, desc)); } num_lines += 1; if (num_lines == max_lines) { fmt2 = str_concat(str_concat(str_concat(str_concat(str_concat(ansi::BOLD, ansi::BLUE), str607), str((term_width - 1))), str608), ansi::RESET); num_left = (len(matches) - num_lines); if (num_left) { f->write(StrFormat(StrFormat(fmt2, str609), num_left)); num_lines += 1; } break; } } return num_lines; } NiceDisplay::NiceDisplay(int term_width, comp_ui::State* comp_state, comp_ui::PromptState* prompt_state, util::_DebugFile* debug_f, py_readline::Readline* readline, pyos::SignalSafe* signal_safe) : ::comp_ui::_IDisplay(comp_state, prompt_state, 10, mylib::Stdout(), debug_f) { this->term_width = term_width; this->readline = readline; this->signal_safe = signal_safe; this->bold_line = false; this->num_lines_last_displayed = 0; this->c_count = 0; this->m_count = 0; this->dupes = Alloc>(); } void NiceDisplay::Reset() { this->num_lines_last_displayed = 0; this->dupes->clear(); } void NiceDisplay::_ReturnToPrompt(int num_lines) { int orig_len; int last_prompt_len; int n; orig_len = len(this->comp_state->line_until_tab); this->f->write(StrFormat("\u001b[%dA", num_lines)); last_prompt_len = this->prompt_state->last_prompt_len; n = (orig_len + last_prompt_len); n = (n % this->_GetTerminalWidth()); this->f->write(StrFormat("\u001b[%dC", n)); if (this->bold_line) { this->f->write(ansi::BOLD); } this->f->flush(); } void NiceDisplay::_PrintCandidates(BigStr* unused_subst, List* matches, int unused_max_match_len) { int term_width; int display_pos; int comp_id; int max_lines; List* to_display = nullptr; List* lens = nullptr; int max_match_len; int num_lines; StackRoot _root0(&unused_subst); StackRoot _root1(&matches); StackRoot _root2(&to_display); StackRoot _root3(&lens); term_width = this->_GetTerminalWidth(); display_pos = this->comp_state->display_pos; this->debug_f->write(StrFormat("DISPLAY POS in _PrintCandidates = %d\n", display_pos)); this->f->write(str613); this->EraseLines(); comp_id = hash(str614->join(matches)); if (dict_contains(this->dupes, comp_id)) { this->dupes->set(comp_id, (this->dupes->at(comp_id) + 1)); } else { this->dupes->clear(); this->dupes->set(comp_id, 1); } max_lines = (this->num_lines_cap * this->dupes->at(comp_id)); if (display_pos == 0) { to_display = matches; } else { to_display = Alloc>(); for (ListIter it(matches); !it.Done(); it.Next()) { BigStr* m = it.Value(); to_display->append(m->slice(display_pos)); } } lens = Alloc>(); for (ListIter it(to_display); !it.Done(); it.Next()) { BigStr* m = it.Value(); lens->append(len(m)); } max_match_len = max(lens); if ((this->comp_state->descriptions != nullptr and len(this->comp_state->descriptions) > 0)) { num_lines = _PrintLong(to_display, max_match_len, term_width, max_lines, this->comp_state->descriptions, this->f); } else { num_lines = _PrintPacked(to_display, max_match_len, term_width, max_lines, this->f); } this->_ReturnToPrompt((num_lines + 1)); this->num_lines_last_displayed = num_lines; this->c_count += 1; } void NiceDisplay::ShowPromptOnRight(BigStr* rendered) { int n; BigStr* spaces = nullptr; StackRoot _root0(&rendered); StackRoot _root1(&spaces); n = ((this->_GetTerminalWidth() - 2) - len(rendered)); spaces = str_repeat(str615, n); this->f->write(str_concat(str_concat(str_concat(str_concat(str_concat(str_concat(spaces, ansi::REVERSE), str616), rendered), str617), ansi::RESET), str618)); } void NiceDisplay::EraseLines() { int n; if (this->bold_line) { this->f->write(ansi::RESET); this->f->flush(); } n = this->num_lines_last_displayed; if (n == 0) { return ; } for (int i = 0; i < n; ++i) { this->f->write(str619); this->f->write(str620); } this->f->write(StrFormat("\u001b[%dA", n)); this->f->flush(); } int NiceDisplay::_GetTerminalWidth() { if (this->signal_safe->PollSigWinch()) { try { this->term_width = libc::get_terminal_width(); } catch (IOError_OSError*) { this->term_width = 80; } } return this->term_width; } void ExecutePrintCandidates(comp_ui::_IDisplay* display, BigStr* sub, List* matches, int max_len) { StackRoot _root0(&display); StackRoot _root1(&sub); StackRoot _root2(&matches); display->PrintCandidates(sub, matches, max_len); } void InitReadline(py_readline::Readline* readline, BigStr* hist_file, completion::RootCompleter* root_comp, comp_ui::_IDisplay* display, util::_DebugFile* debug_f) { completion::ReadlineCallback* complete_cb = nullptr; StackRoot _root0(&readline); StackRoot _root1(&hist_file); StackRoot _root2(&root_comp); StackRoot _root3(&display); StackRoot _root4(&debug_f); StackRoot _root5(&complete_cb); if (hist_file != nullptr) { try { readline->read_history_file(hist_file); } catch (IOError_OSError*) { ; // pass } } readline->parse_and_bind(str622); readline->parse_and_bind(str623); complete_cb = Alloc(readline, root_comp, debug_f); readline->set_completer(complete_cb); readline->set_completer_delims(str624); readline->set_completion_display_matches_hook(display); } } // define namespace comp_ui namespace completion { // define using id_kind_asdl::Id; using syntax_asdl::CompoundWord; using syntax_asdl::word_part_e; using syntax_asdl::word_t; using syntax_asdl::redir_param_e; using syntax_asdl::Token; using runtime_asdl::scope_e; using runtime_asdl::comp_action_e; using runtime_asdl::comp_action_t; using types_asdl::redir_arg_type_e; using value_asdl::value; using value_asdl::value_e; using mylib::print_stderr; using string_ops::ShellQuoteB; _RetryCompletion::_RetryCompletion() { ; // pass } int CH_Break = 0; int CH_Other = 1; int ST_Begin = 0; int ST_Break = 1; int ST_Other = 2; Tuple2 _TRANSITIONS(int state, int ch) { if ((state == ST_Begin and ch == CH_Break)) { return Tuple2(ST_Break, false); } if ((state == ST_Begin and ch == CH_Other)) { return Tuple2(ST_Other, false); } if ((state == ST_Break and ch == CH_Break)) { return Tuple2(ST_Break, false); } if ((state == ST_Break and ch == CH_Other)) { return Tuple2(ST_Other, true); } if ((state == ST_Other and ch == CH_Break)) { return Tuple2(ST_Break, true); } if ((state == ST_Other and ch == CH_Other)) { return Tuple2(ST_Other, false); } throw Alloc(str625); } void AdjustArg(BigStr* arg, List* break_chars, List* argv_out) { List* end_indices = nullptr; int state; int i; int ch; bool emit_span; int begin; StackRoot _root0(&arg); StackRoot _root1(&break_chars); StackRoot _root2(&argv_out); StackRoot _root3(&end_indices); end_indices = Alloc>(); state = ST_Begin; i = 0; for (StrIter it(arg); !it.Done(); it.Next(), ++i) { BigStr* c = it.Value(); StackRoot _for(&c ); ch = list_contains(break_chars, c) ? CH_Break : CH_Other; Tuple2 tup0 = _TRANSITIONS(state, ch); state = tup0.at0(); emit_span = tup0.at1(); if (emit_span) { end_indices->append(i); } } end_indices->append(len(arg)); begin = 0; for (ListIter it(end_indices); !it.Done(); it.Next()) { int end = it.Value(); argv_out->append(arg->slice(begin, end)); begin = end; } } GLOBAL_DICT(_DEFAULT_OPTS, BigStr*, bool, 0, {}, {}); OptionState::OptionState() { this->currently_completing = false; this->dynamic_opts = nullptr; } ctx_Completing::ctx_Completing(completion::OptionState* compopt_state) { gHeap.PushRoot(reinterpret_cast(&(this->compopt_state))); compopt_state->currently_completing = true; this->compopt_state = compopt_state; } ctx_Completing::~ctx_Completing() { this->compopt_state->currently_completing = false; gHeap.PopRoot(); } void _PrintOpts(Dict* opts, mylib::BufWriter* f) { StackRoot _root0(&opts); StackRoot _root1(&f); f->write(str626); for (DictIter it(opts); !it.Done(); it.Next()) { BigStr* k = it.Key(); bool v = it.Value(); f->write(StrFormat(" %s=%s", k, v ? str628 : str629)); } f->write(str630); } Lookup::Lookup() { completion::UserSpec* empty_spec = Alloc(Alloc>(), Alloc>(), Alloc>(), Alloc(), str631, str632); Tuple2*, completion::UserSpec*>* do_nothing = (Alloc*, completion::UserSpec*>>(_DEFAULT_OPTS, empty_spec)); this->lookup = Alloc*, completion::UserSpec*>*>>(std::initializer_list{str633, str634}, std::initializer_list*, completion::UserSpec*>*>{do_nothing, do_nothing}); this->commands_with_spec_changes = Alloc>(); this->patterns = Alloc*, completion::UserSpec*>*>>(); } BigStr* Lookup::__str__() { return StrFormat("", this->lookup); } void Lookup::PrintSpecs() { mylib::BufWriter* f = nullptr; Dict* base_opts = nullptr; completion::UserSpec* user_spec = nullptr; BigStr* pat = nullptr; completion::UserSpec* spec = nullptr; StackRoot _root0(&f); StackRoot _root1(&base_opts); StackRoot _root2(&user_spec); StackRoot _root3(&pat); StackRoot _root4(&spec); f = Alloc(); f->write(str636); for (ListIter it(sorted(this->lookup)); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); Tuple2*, completion::UserSpec*>* tup1 = this->lookup->at(name); base_opts = tup1->at0(); user_spec = tup1->at1(); f->write(StrFormat("%s:\n", name)); _PrintOpts(base_opts, f); user_spec->PrintSpec(f); } f->write(str638); for (ListIter*, completion::UserSpec*>*> it(this->patterns); !it.Done(); it.Next()) { Tuple3*, completion::UserSpec*>* tup2 = it.Value(); pat = tup2->at0(); base_opts = tup2->at1(); spec = tup2->at2(); f->write(StrFormat("%s:\n", pat)); _PrintOpts(base_opts, f); user_spec->PrintSpec(f); } print_stderr(f->getvalue()); } void Lookup::ClearCommandsChanged() { this->commands_with_spec_changes->clear(); } List* Lookup::GetCommandsChanged() { return this->commands_with_spec_changes; } void Lookup::RegisterName(BigStr* name, Dict* base_opts, completion::UserSpec* user_spec) { StackRoot _root0(&name); StackRoot _root1(&base_opts); StackRoot _root2(&user_spec); this->lookup->set(name, (Alloc*, completion::UserSpec*>>(base_opts, user_spec))); if ((!str_equals(name, str640) && !str_equals(name, str641))) { this->commands_with_spec_changes->append(name); } } void Lookup::RegisterGlob(BigStr* glob_pat, Dict* base_opts, completion::UserSpec* user_spec) { StackRoot _root0(&glob_pat); StackRoot _root1(&base_opts); StackRoot _root2(&user_spec); this->patterns->append((Alloc*, completion::UserSpec*>>(glob_pat, base_opts, user_spec))); } Tuple2*, completion::UserSpec*> Lookup::GetSpecForName(BigStr* argv0) { Tuple2*, completion::UserSpec*>* pair = nullptr; Dict* a = nullptr; completion::UserSpec* b = nullptr; BigStr* key = nullptr; BigStr* glob_pat = nullptr; Dict* base_opts = nullptr; completion::UserSpec* user_spec = nullptr; StackRoot _root0(&argv0); StackRoot _root1(&pair); StackRoot _root2(&a); StackRoot _root3(&b); StackRoot _root4(&key); StackRoot _root5(&glob_pat); StackRoot _root6(&base_opts); StackRoot _root7(&user_spec); pair = this->lookup->get(argv0); if (pair) { Tuple2*, completion::UserSpec*>* tup3 = pair; a = tup3->at0(); b = tup3->at1(); return Tuple2*, completion::UserSpec*>(a, b); } key = os_path::basename(argv0); pair = this->lookup->get(key); if (pair) { Tuple2*, completion::UserSpec*>* tup4 = pair; a = tup4->at0(); b = tup4->at1(); return Tuple2*, completion::UserSpec*>(a, b); } for (ListIter*, completion::UserSpec*>*> it(this->patterns); !it.Done(); it.Next()) { Tuple3*, completion::UserSpec*>* tup5 = it.Value(); glob_pat = tup5->at0(); base_opts = tup5->at1(); user_spec = tup5->at2(); if (libc::fnmatch(glob_pat, key)) { return Tuple2*, completion::UserSpec*>(base_opts, user_spec); } } return Tuple2*, completion::UserSpec*>(nullptr, nullptr); } Tuple2*, completion::UserSpec*> Lookup::GetFirstSpec() { Dict* a = nullptr; completion::UserSpec* b = nullptr; StackRoot _root0(&a); StackRoot _root1(&b); Tuple2*, completion::UserSpec*>* tup6 = this->lookup->at(str642); a = tup6->at0(); b = tup6->at1(); return Tuple2*, completion::UserSpec*>(a, b); } Tuple2*, completion::UserSpec*> Lookup::GetFallback() { Dict* a = nullptr; completion::UserSpec* b = nullptr; StackRoot _root0(&a); StackRoot _root1(&b); Tuple2*, completion::UserSpec*>* tup7 = this->lookup->at(str643); a = tup7->at0(); b = tup7->at1(); return Tuple2*, completion::UserSpec*>(a, b); } Api::Api(BigStr* line, int begin, int end) { this->line = line; this->begin = begin; this->end = end; this->first = nullptr; this->to_complete = nullptr; this->prev = nullptr; this->index = -1; this->partial_argv = Alloc>(); } void Api::Update(BigStr* first, BigStr* to_complete, BigStr* prev, int index, List* partial_argv) { StackRoot _root0(&first); StackRoot _root1(&to_complete); StackRoot _root2(&prev); StackRoot _root3(&partial_argv); this->first = first; this->to_complete = to_complete; this->prev = prev; this->index = index; this->partial_argv = partial_argv; if (this->partial_argv == nullptr) { this->partial_argv = Alloc>(); } } CompletionAction::CompletionAction() { ; // pass } void CompletionAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); ; // pass } runtime_asdl::comp_action_t CompletionAction::ActionKind() { return comp_action_e::Other; } void CompletionAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str645); } UsersAction::UsersAction() { ; // pass } void UsersAction::Matches(completion::Api* comp, List* _out_yield_acc) { BigStr* name = nullptr; StackRoot _root0(&comp); StackRoot _root1(&name); for (ListIter it(pyos::GetAllUsers()); !it.Done(); it.Next()) { pyos::PasswdEntry* u = it.Value(); StackRoot _for(&u ); name = u->pw_name; if (name->startswith(comp->to_complete)) { _out_yield_acc->append(name); ; } } } void UsersAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str646); } TestAction::TestAction(List* words, double delay) { this->words = words; this->delay = delay; } void TestAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(this->words); !it.Done(); it.Next()) { BigStr* w = it.Value(); StackRoot _for(&w ); if (w->startswith(comp->to_complete)) { if (this->delay != 0.0) { time_::sleep(this->delay); } _out_yield_acc->append(w); ; } } } void TestAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str647); } DynamicWordsAction::DynamicWordsAction(word_eval::AbstractWordEvaluator* word_ev, split::SplitContext* splitter, syntax_asdl::CompoundWord* arg_word, ui::ErrorFormatter* errfmt) { this->word_ev = word_ev; this->splitter = splitter; this->arg_word = arg_word; this->errfmt = errfmt; } void DynamicWordsAction::Matches(completion::Api* comp, List* _out_yield_acc) { value::Str* val = nullptr; List* candidates = nullptr; StackRoot _root0(&comp); StackRoot _root1(&val); StackRoot _root2(&candidates); try { val = this->word_ev->EvalWordToString(this->arg_word); } catch (error::FatalRuntime* e) { this->errfmt->PrettyPrintError(e); throw ; } candidates = this->splitter->SplitForWordEval(val->s); for (ListIter it(candidates); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (c->startswith(comp->to_complete)) { _out_yield_acc->append(c); ; } } } void DynamicWordsAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str648); } FileSystemAction::FileSystemAction(bool dirs_only, bool exec_only, bool add_slash) { this->dirs_only = dirs_only; this->exec_only = exec_only; this->add_slash = add_slash; } runtime_asdl::comp_action_t FileSystemAction::ActionKind() { return comp_action_e::FileSystem; } void FileSystemAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str649); } void FileSystemAction::Matches(completion::Api* comp, List* _out_yield_acc) { BigStr* to_complete = nullptr; BigStr* dirname = nullptr; BigStr* basename = nullptr; BigStr* to_list = nullptr; List* names = nullptr; BigStr* path = nullptr; StackRoot _root0(&comp); StackRoot _root1(&to_complete); StackRoot _root2(&dirname); StackRoot _root3(&basename); StackRoot _root4(&to_list); StackRoot _root5(&names); StackRoot _root6(&path); to_complete = comp->to_complete; Tuple2 tup8 = os_path::split(to_complete); dirname = tup8.at0(); basename = tup8.at1(); if (str_equals(dirname, str650)) { to_list = str651; } else { to_list = dirname; } try { names = posix::listdir(to_list); } catch (IOError_OSError* e) { return ; } for (ListIter it(names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); path = os_path::join(dirname, name); if (path->startswith(to_complete)) { if (this->dirs_only) { if (path_stat::isdir(path)) { _out_yield_acc->append(path); ; } continue; } if (this->exec_only) { if (!posix::access(path, X_OK)) { continue; } } if ((this->add_slash and path_stat::isdir(path))) { path = str_concat(path, str655); _out_yield_acc->append(path); ; } else { _out_yield_acc->append(path); ; } } } } CommandAction::CommandAction(cmd_eval::CommandEvaluator* cmd_ev, BigStr* command_name) { this->cmd_ev = cmd_ev; this->command_name = command_name; } void CommandAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(NewList(std::initializer_list{str656})); !it.Done(); it.Next()) { BigStr* candidate = it.Value(); StackRoot _for(&candidate ); _out_yield_acc->append(candidate); ; } } ShellFuncAction::ShellFuncAction(cmd_eval::CommandEvaluator* cmd_ev, value::Proc* func, completion::Lookup* comp_lookup) { this->cmd_ev = cmd_ev; this->func = func; this->comp_lookup = comp_lookup; } void ShellFuncAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(StrFormat("[ShellFuncAction %s] ", this->func->name)); } runtime_asdl::comp_action_t ShellFuncAction::ActionKind() { return comp_action_e::BashFunc; } void ShellFuncAction::debug(BigStr* msg) { StackRoot _root0(&msg); this->cmd_ev->debug_f->writeln(msg); } void ShellFuncAction::Matches(completion::Api* comp, List* _out_yield_acc) { List* comp_words = nullptr; int comp_cword; List* argv = nullptr; int status; List* commands_changed = nullptr; BigStr* cmd = nullptr; value_asdl::value_t* val = nullptr; value::BashArray* array_val = nullptr; StackRoot _root0(&comp); StackRoot _root1(&comp_words); StackRoot _root2(&argv); StackRoot _root3(&commands_changed); StackRoot _root4(&cmd); StackRoot _root5(&val); StackRoot _root6(&array_val); state::SetGlobalArray(this->cmd_ev->mem, str658, Alloc>()); state::SetGlobalArray(this->cmd_ev->mem, str659, comp->partial_argv); comp_words = Alloc>(); for (ListIter it(comp->partial_argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); StackRoot _for(&a ); AdjustArg(a, NewList(std::initializer_list{str660, str661}), comp_words); } if (comp->index == -1) { comp_cword = comp->index; } else { comp_cword = (len(comp_words) - 1); } state::SetGlobalArray(this->cmd_ev->mem, str662, comp_words); state::SetGlobalString(this->cmd_ev->mem, str663, str(comp_cword)); state::SetGlobalString(this->cmd_ev->mem, str664, comp->line); state::SetGlobalString(this->cmd_ev->mem, str665, str(comp->end)); argv = NewList(std::initializer_list{comp->first, comp->to_complete, comp->prev}); this->debug(StrFormat("Running completion function %r with %d arguments", this->func->name, len(argv))); this->comp_lookup->ClearCommandsChanged(); status = this->cmd_ev->RunFuncForCompletion(this->func, argv); commands_changed = this->comp_lookup->GetCommandsChanged(); this->debug(StrFormat("comp.first %r, commands_changed: %s", comp->first, str668->join(commands_changed))); if (status == 124) { cmd = os_path::basename(comp->first); if (list_contains(commands_changed, cmd)) { throw Alloc<_RetryCompletion>(); } else { this->debug(StrFormat("Function %r returned 124, but the completion spec for %r wasn't changed", this->func->name, cmd)); return ; } } val = this->cmd_ev->mem->GetValue(str670, scope_e::GlobalOnly); if (val->tag() == value_e::Undef) { print_stderr(StrFormat("osh error: Ran function %r but COMPREPLY was unset", this->func->name)); return ; } if (val->tag() != value_e::BashArray) { print_stderr(StrFormat("osh error: COMPREPLY should be an array, got %s", ui::ValType(val))); return ; } array_val = static_cast(val); for (ListIter it(array_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); _out_yield_acc->append(s); ; } } VariablesAction::VariablesAction(state::Mem* mem) { this->mem = mem; } void VariablesAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* var_name = it.Value(); StackRoot _for(&var_name ); _out_yield_acc->append(var_name); ; } } void VariablesAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str674); } ExportedVarsAction::ExportedVarsAction(state::Mem* mem) { this->mem = mem; } void ExportedVarsAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (DictIter it(this->mem->GetExported()); !it.Done(); it.Next()) { BigStr* var_name = it.Key(); StackRoot _for(&var_name ); _out_yield_acc->append(var_name); ; } } ExternalCommandAction::ExternalCommandAction(state::Mem* mem) { this->mem = mem; this->cache = Alloc*, List*>>(); } void ExternalCommandAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str675); } void ExternalCommandAction::Matches(completion::Api* comp, List* _out_yield_acc) { value_asdl::value_t* val = nullptr; value::Str* val_s = nullptr; List* path_dirs = nullptr; List* executables = nullptr; Tuple2* key = nullptr; List* dir_exes = nullptr; List* entries = nullptr; BigStr* path = nullptr; StackRoot _root0(&comp); StackRoot _root1(&val); StackRoot _root2(&val_s); StackRoot _root3(&path_dirs); StackRoot _root4(&executables); StackRoot _root5(&key); StackRoot _root6(&dir_exes); StackRoot _root7(&entries); StackRoot _root8(&path); val = this->mem->GetValue(str676); if (val->tag() != value_e::Str) { return ; } val_s = static_cast(val); path_dirs = val_s->s->split(str677); executables = Alloc>(); for (ListIter it(path_dirs); !it.Done(); it.Next()) { BigStr* d = it.Value(); StackRoot _for(&d ); try { key = pyos::MakeDirCacheKey(d); } catch (IOError_OSError* e) { continue; } dir_exes = this->cache->get(key); if (dir_exes == nullptr) { entries = posix::listdir(d); dir_exes = Alloc>(); for (ListIter it(entries); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); path = os_path::join(d, name); if (!posix::access(path, X_OK)) { continue; } dir_exes->append(name); } this->cache->set(key, dir_exes); } executables->extend(dir_exes); } for (ListIter it(executables); !it.Done(); it.Next()) { BigStr* word = it.Value(); StackRoot _for(&word ); if (word->startswith(comp->to_complete)) { _out_yield_acc->append(word); ; } } } _Predicate::_Predicate() { ; // pass } bool _Predicate::Evaluate(BigStr* candidate) { StackRoot _root0(&candidate); FAIL(kNotImplemented); // Python NotImplementedError } void _Predicate::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str678); } DefaultPredicate::DefaultPredicate() { ; // pass } bool DefaultPredicate::Evaluate(BigStr* candidate) { StackRoot _root0(&candidate); return true; } void DefaultPredicate::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str679); } GlobPredicate::GlobPredicate(bool include, BigStr* glob_pat) { this->include = include; this->glob_pat = glob_pat; } bool GlobPredicate::Evaluate(BigStr* candidate) { bool matched; StackRoot _root0(&candidate); matched = libc::fnmatch(this->glob_pat, candidate); if (this->include) { return !matched; } else { return matched; } } void GlobPredicate::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str681); } UserSpec::UserSpec(List* actions, List* extra_actions, List* else_actions, completion::_Predicate* predicate, BigStr* prefix, BigStr* suffix) { this->actions = actions; this->extra_actions = extra_actions; this->else_actions = else_actions; this->predicate = predicate; this->prefix = prefix; this->suffix = suffix; } void UserSpec::PrintSpec(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str682); for (ListIter it(this->actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); a->Print(f); } f->write(str683); f->write(str684); for (ListIter it(this->extra_actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); a->Print(f); } f->write(str685); f->write(str686); for (ListIter it(this->else_actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); a->Print(f); } f->write(str687); f->write(str688); this->predicate->Print(f); f->write(str689); f->write(StrFormat(" prefix: %s\n", this->prefix)); f->write(StrFormat(" suffix: %s\n", this->prefix)); } void UserSpec::AllMatches(completion::Api* comp, List*>* _out_yield_acc) { int num_matches; runtime_asdl::comp_action_t action_kind; bool show; StackRoot _root0(&comp); num_matches = 0; for (ListIter it(this->actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); action_kind = a->ActionKind(); List _for_yield_acc9; a->Matches(comp, &_for_yield_acc9); for (ListIter it(&_for_yield_acc9); !it.Done(); it.Next()) { BigStr* match = it.Value(); StackRoot _for(&match ); show = (this->predicate->Evaluate(match) and (match->startswith(comp->to_complete) or action_kind == comp_action_e::BashFunc)); if (show) { _out_yield_acc->append((Alloc>(str_concat(str_concat(this->prefix, match), this->suffix), action_kind))); ; num_matches += 1; } } } for (ListIter it(this->extra_actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); List _for_yield_acc10; a->Matches(comp, &_for_yield_acc10); for (ListIter it(&_for_yield_acc10); !it.Done(); it.Next()) { BigStr* match = it.Value(); StackRoot _for(&match ); _out_yield_acc->append((Alloc>(match, comp_action_e::FileSystem))); ; } } if (num_matches == 0) { for (ListIter it(this->else_actions); !it.Done(); it.Next()) { completion::CompletionAction* a = it.Value(); StackRoot _for(&a ); List _for_yield_acc11; a->Matches(comp, &_for_yield_acc11); for (ListIter it(&_for_yield_acc11); !it.Done(); it.Next()) { BigStr* match = it.Value(); StackRoot _for(&match ); _out_yield_acc->append((Alloc>(match, comp_action_e::FileSystem))); ; } } } } bool IsDollar(syntax_asdl::Token* t) { StackRoot _root0(&t); return t->id == Id::Lit_Dollar; } bool IsDummy(syntax_asdl::Token* t) { StackRoot _root0(&t); return t->id == Id::Lit_CompDummy; } bool WordEndsWithCompDummy(syntax_asdl::CompoundWord* w) { syntax_asdl::word_part_t* last_part = nullptr; syntax_asdl::word_part_t* UP_part = nullptr; StackRoot _root0(&w); StackRoot _root1(&last_part); StackRoot _root2(&UP_part); last_part = w->parts->at(-1); UP_part = last_part; if (last_part->tag() == word_part_e::Literal) { Token* last_part = static_cast(UP_part); return last_part->id == Id::Lit_CompDummy; } else { return false; } } RootCompleter::RootCompleter(word_eval::AbstractWordEvaluator* word_ev, state::Mem* mem, completion::Lookup* comp_lookup, completion::OptionState* compopt_state, comp_ui::State* comp_ui_state, parse_lib::ParseContext* parse_ctx, util::_DebugFile* debug_f) { this->word_ev = word_ev; this->mem = mem; this->comp_lookup = comp_lookup; this->compopt_state = compopt_state; this->comp_ui_state = comp_ui_state; this->parse_ctx = parse_ctx; this->debug_f = debug_f; } void RootCompleter::Matches(completion::Api* comp, List* _out_yield_acc) { BigStr* line_until_tab = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; util::_DebugFile* debug_f = nullptr; parse_lib::_BaseTrail* trail = nullptr; List* tokens = nullptr; int last; syntax_asdl::Token* t1 = nullptr; syntax_asdl::Token* t2 = nullptr; BigStr* to_complete = nullptr; int n; List* parts = nullptr; Token* tilde_tok = nullptr; BigStr* name = nullptr; BigStr* s = nullptr; Token* chars_tok = nullptr; syntax_asdl::Redir* r = nullptr; syntax_asdl::redir_param_t* arg_word = nullptr; syntax_asdl::redir_param_t* UP_word = nullptr; value::Str* val = nullptr; syntax_asdl::Token* tok = nullptr; completion::FileSystemAction* action = nullptr; Dict* base_opts = nullptr; completion::UserSpec* user_spec = nullptr; List* partial_argv = nullptr; int num_partial; BigStr* first = nullptr; List* trail_words = nullptr; List* words2 = nullptr; BigStr* alias_first = nullptr; syntax_asdl::word_t* w = nullptr; int index; BigStr* prev = nullptr; Dict* dynamic_opts = nullptr; bool done; StackRoot _root0(&comp); StackRoot _root1(&line_until_tab); StackRoot _root2(&line_reader); StackRoot _root3(&c_parser); StackRoot _root4(&debug_f); StackRoot _root5(&trail); StackRoot _root6(&tokens); StackRoot _root7(&t1); StackRoot _root8(&t2); StackRoot _root9(&to_complete); StackRoot _root10(&parts); StackRoot _root11(&tilde_tok); StackRoot _root12(&name); StackRoot _root13(&s); StackRoot _root14(&chars_tok); StackRoot _root15(&r); StackRoot _root16(&arg_word); StackRoot _root17(&UP_word); StackRoot _root18(&val); StackRoot _root19(&tok); StackRoot _root20(&action); StackRoot _root21(&base_opts); StackRoot _root22(&user_spec); StackRoot _root23(&partial_argv); StackRoot _root24(&first); StackRoot _root25(&trail_words); StackRoot _root26(&words2); StackRoot _root27(&alias_first); StackRoot _root28(&w); StackRoot _root29(&prev); StackRoot _root30(&dynamic_opts); line_until_tab = comp->line->slice(0, comp->end); this->comp_ui_state->line_until_tab = line_until_tab; this->parse_ctx->trail->Clear(); line_reader = reader::StringLineReader(line_until_tab, this->parse_ctx->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader, true); try { c_parser->ParseLogicalLine(); } catch (error::Parse* e) { ; // pass } debug_f = this->debug_f; trail = this->parse_ctx->trail; tokens = trail->tokens; last = -1; if (tokens->at(-1)->id == Id::Eof_Real) { last -= 1; } try { t1 = tokens->at(last); } catch (IndexError*) { t1 = nullptr; } try { t2 = tokens->at((last - 1)); } catch (IndexError*) { t2 = nullptr; } debug_f->writeln(StrFormat("line: %r", comp->line)); debug_f->writeln(StrFormat("rl_slice from byte %d to %d: %r", comp->begin, comp->end, comp->line->slice(comp->begin, comp->end))); if (t1) { ; // pass } if (t2) { ; // pass } if (t2) { if ((IsDollar(t2) and IsDummy(t1))) { this->comp_ui_state->display_pos = (t2->col + 1); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); _out_yield_acc->append(str_concat(line_until_tab, name)); ; } return ; } if ((t2->id == Id::Left_DollarBrace and IsDummy(t1))) { this->comp_ui_state->display_pos = (t2->col + 2); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); _out_yield_acc->append(str_concat(line_until_tab, name)); ; } return ; } if ((t2->id == Id::VSub_DollarName and IsDummy(t1))) { this->comp_ui_state->display_pos = (t2->col + 1); to_complete = lexer::LazyStr(t2); n = len(to_complete); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(to_complete)) { _out_yield_acc->append(str_concat(line_until_tab, name->slice(n))); ; } } return ; } if ((t2->id == Id::VSub_Name and IsDummy(t1))) { this->comp_ui_state->display_pos = t2->col; to_complete = lexer::LazyStr(t2); n = len(to_complete); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(to_complete)) { _out_yield_acc->append(str_concat(line_until_tab, name->slice(n))); ; } } return ; } if ((t2->id == Id::Lit_ArithVarLike and IsDummy(t1))) { this->comp_ui_state->display_pos = t2->col; to_complete = lexer::LazyStr(t2); n = len(to_complete); for (ListIter it(this->mem->VarNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(to_complete)) { _out_yield_acc->append(str_concat(line_until_tab, name->slice(n))); ; } } return ; } } if (len(trail->words) > 0) { parts = trail->words->at(-1)->parts; if ((len(parts) > 0 and word_::LiteralId(parts->at(0)) == Id::Lit_Tilde)) { if ((len(parts) == 2 and word_::LiteralId(parts->at(1)) == Id::Lit_CompDummy)) { tilde_tok = static_cast(parts->at(0)); this->comp_ui_state->display_pos = (tilde_tok->col + 1); to_complete = str694; for (ListIter it(pyos::GetAllUsers()); !it.Done(); it.Next()) { pyos::PasswdEntry* u = it.Value(); StackRoot _for(&u ); name = u->pw_name; s = str_concat(str_concat(line_until_tab, ShellQuoteB(name)), str695); _out_yield_acc->append(s); ; } return ; } if ((len(parts) == 3 and (word_::LiteralId(parts->at(1)) == Id::Lit_Chars and word_::LiteralId(parts->at(2)) == Id::Lit_CompDummy))) { chars_tok = static_cast(parts->at(1)); this->comp_ui_state->display_pos = chars_tok->col; to_complete = lexer::TokenVal(chars_tok); n = len(to_complete); for (ListIter it(pyos::GetAllUsers()); !it.Done(); it.Next()) { pyos::PasswdEntry* u = it.Value(); StackRoot _for(&u ); name = u->pw_name; if (name->startswith(to_complete)) { s = str_concat(str_concat(line_until_tab, ShellQuoteB(name->slice(n))), str696); _out_yield_acc->append(s); ; } } return ; } } } if (len(trail->redirects) > 0) { r = trail->redirects->at(-1); if ((r->arg->tag() == redir_param_e::Word and consts::RedirArgType(r->op->id) == redir_arg_type_e::Path)) { arg_word = r->arg; UP_word = arg_word; CompoundWord* arg_word = static_cast(UP_word); if (WordEndsWithCompDummy(arg_word)) { debug_f->writeln(str697); try { val = this->word_ev->EvalWordToString(arg_word); } catch (error::FatalRuntime* e) { debug_f->writeln(StrFormat("Error evaluating redirect word: %s", e)); return ; } if (val->tag() != value_e::Str) { debug_f->writeln(str699); return ; } tok = location::LeftTokenForWord(arg_word); this->comp_ui_state->display_pos = tok->col; comp->Update(str700, val->s, str701, 0, Alloc>()); n = len(val->s); action = Alloc(false, false, true); List _for_yield_acc12; action->Matches(comp, &_for_yield_acc12); for (ListIter it(&_for_yield_acc12); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); _out_yield_acc->append(str_concat(line_until_tab, ShellQuoteB(name->slice(n)))); ; } return ; } } } base_opts = nullptr; user_spec = nullptr; partial_argv = Alloc>(); num_partial = -1; first = nullptr; if (len(trail->words) > 0) { if (WordEndsWithCompDummy(trail->words->at(-1))) { debug_f->writeln(str702); trail_words = Alloc>(); for (ListIter it(trail->words); !it.Done(); it.Next()) { syntax_asdl::CompoundWord* w = it.Value(); trail_words->append(static_cast(w)); } words2 = word_::TildeDetectAll(trail_words); for (ListIter it(words2); !it.Done(); it.Next()) { syntax_asdl::word_t* w = it.Value(); StackRoot _for(&w ); try { val = this->word_ev->EvalWordToString(w); } catch (error::FatalRuntime*) { continue; } if (val->tag() == value_e::Str) { partial_argv->append(val->s); } else { ; // pass } } debug_f->writeln(StrFormat("partial_argv: [%s]", str707->join(partial_argv))); num_partial = len(partial_argv); first = partial_argv->at(0); alias_first = nullptr; if (len(trail->alias_words) > 0) { w = trail->alias_words->at(0); try { val = this->word_ev->EvalWordToString(w); } catch (error::FatalRuntime*) { ; // pass } alias_first = val->s; debug_f->writeln(StrFormat("alias_first: %s", alias_first)); } if (num_partial == 0) { assert(0); // AssertionError } else { if (num_partial == 1) { Tuple2*, completion::UserSpec*> tup13 = this->comp_lookup->GetFirstSpec(); base_opts = tup13.at0(); user_spec = tup13.at1(); tok = location::LeftTokenForWord(trail->words->at(0)); this->comp_ui_state->display_pos = tok->col; this->debug_f->writeln(StrFormat("** DISPLAY_POS = %d", this->comp_ui_state->display_pos)); } else { Tuple2*, completion::UserSpec*> tup14 = this->comp_lookup->GetSpecForName(first); base_opts = tup14.at0(); user_spec = tup14.at1(); if ((!user_spec and alias_first != nullptr)) { Tuple2*, completion::UserSpec*> tup15 = this->comp_lookup->GetSpecForName(alias_first); base_opts = tup15.at0(); user_spec = tup15.at1(); if (user_spec) { first = alias_first; } } if (!user_spec) { Tuple2*, completion::UserSpec*> tup16 = this->comp_lookup->GetFallback(); base_opts = tup16.at0(); user_spec = tup16.at1(); } tok = location::LeftTokenForWord(trail->words->at(-1)); this->comp_ui_state->display_pos = tok->col; this->debug_f->writeln(StrFormat("display_pos %d", this->comp_ui_state->display_pos)); } } index = (len(partial_argv) - 1); prev = index == 0 ? str711 : partial_argv->at((index - 1)); comp->Update(first, partial_argv->at(-1), prev, index, partial_argv); } } if (!user_spec) { debug_f->writeln(str712); return ; } dynamic_opts = Alloc>(); this->compopt_state->dynamic_opts = dynamic_opts; { // with ctx_Completing ctx{this->compopt_state}; done = false; while (!done) { done = true; try { List _for_yield_acc17; this->_PostProcess(base_opts, dynamic_opts, user_spec, comp, &_for_yield_acc17); for (ListIter it(&_for_yield_acc17); !it.Done(); it.Next()) { BigStr* candidate = it.Value(); StackRoot _for(&candidate ); _out_yield_acc->append(candidate); ; } } catch (_RetryCompletion* e) { debug_f->writeln(str713); done = false; if (num_partial == 0) { assert(0); // AssertionError } else { if (num_partial == 1) { Tuple2*, completion::UserSpec*> tup18 = this->comp_lookup->GetFirstSpec(); base_opts = tup18.at0(); user_spec = tup18.at1(); } else { Tuple2*, completion::UserSpec*> tup19 = this->comp_lookup->GetSpecForName(first); base_opts = tup19.at0(); user_spec = tup19.at1(); if (!user_spec) { Tuple2*, completion::UserSpec*> tup20 = this->comp_lookup->GetFallback(); base_opts = tup20.at0(); user_spec = tup20.at1(); } } } } } } } void RootCompleter::_PostProcess(Dict* base_opts, Dict* dynamic_opts, completion::UserSpec* user_spec, completion::Api* comp, List* _out_yield_acc) { double start_time; int i; BigStr* candidate = nullptr; runtime_asdl::comp_action_t action_kind; BigStr* line_until_tab = nullptr; BigStr* line_until_word = nullptr; bool opt_filenames; BigStr* s = nullptr; bool opt_nospace; BigStr* sp = nullptr; BigStr* cand = nullptr; double elapsed_ms; BigStr* plural = nullptr; StackRoot _root0(&base_opts); StackRoot _root1(&dynamic_opts); StackRoot _root2(&user_spec); StackRoot _root3(&comp); StackRoot _root4(&candidate); StackRoot _root5(&line_until_tab); StackRoot _root6(&line_until_word); StackRoot _root7(&s); StackRoot _root8(&sp); StackRoot _root9(&cand); StackRoot _root10(&plural); this->debug_f->writeln(StrFormat("Completing %r ... (Ctrl-C to cancel)", comp->line)); start_time = time_::time(); i = 0; List*> _for_yield_acc21; user_spec->AllMatches(comp, &_for_yield_acc21); for (ListIter*> it(&_for_yield_acc21); !it.Done(); it.Next()) { Tuple2* tup22 = it.Value(); candidate = tup22->at0(); action_kind = tup22->at1(); line_until_tab = this->comp_ui_state->line_until_tab; line_until_word = line_until_tab->slice(0, this->comp_ui_state->display_pos); opt_filenames = base_opts->get(str715, false); if (dict_contains(dynamic_opts, str716)) { opt_filenames = dynamic_opts->at(str717); } if ((action_kind == comp_action_e::FileSystem or opt_filenames)) { if (path_stat::isdir(candidate)) { s = str_concat(str_concat(line_until_word, ShellQuoteB(candidate)), str718); _out_yield_acc->append(s); ; continue; } } opt_nospace = base_opts->get(str719, false); if (dict_contains(dynamic_opts, str720)) { opt_nospace = dynamic_opts->at(str721); } sp = opt_nospace ? str722 : str723; cand = action_kind == comp_action_e::BashFunc ? candidate : ShellQuoteB(candidate); _out_yield_acc->append(str_concat(str_concat(line_until_word, cand), sp)); ; i += 1; elapsed_ms = ((time_::time() - start_time) * 1000.0); plural = i == 1 ? str724 : str725; } elapsed_ms = ((time_::time() - start_time) * 1000.0); plural = i == 1 ? str727 : str728; this->debug_f->writeln(StrFormat("Found %d match%s for %r in %d ms", i, plural, comp->line, elapsed_ms)); } ReadlineCallback::ReadlineCallback(py_readline::Readline* readline, completion::RootCompleter* root_comp, util::_DebugFile* debug_f) { this->readline = readline; this->root_comp = root_comp; this->debug_f = debug_f; // if not PYTHON { this->comp_matches = nullptr; } // endif MYCPP } BigStr* ReadlineCallback::_GetNextCompletion(int state) { BigStr* buf = nullptr; int begin; int end; completion::Api* comp = nullptr; BigStr* next_completion = nullptr; StackRoot _root0(&buf); StackRoot _root1(&comp); StackRoot _root2(&next_completion); if (state == 0) { buf = this->readline->get_line_buffer(); begin = this->readline->get_begidx(); end = this->readline->get_endidx(); comp = Alloc(buf, begin, end); this->debug_f->writeln(StrFormat("Api %r %d %d", buf, begin, end)); // if not PYTHON { List _iter_buf_it; this->root_comp->Matches(comp, &_iter_buf_it); ListIter it(&_iter_buf_it); this->comp_matches = list(it); this->comp_matches->reverse(); } // endif MYCPP } // if not PYTHON { try { next_completion = this->comp_matches->pop(); } catch (IndexError*) { next_completion = nullptr; } } // endif MYCPP return next_completion; } BigStr* ReadlineCallback::__call__(BigStr* unused_word, int state) { StackRoot _root0(&unused_word); try { return this->_GetNextCompletion(state); } catch (util::UserExit* e) { print_stderr(str731); } catch (error::FatalRuntime* e) { print_stderr(StrFormat("osh: Runtime error while completing: %s", e->UserErrorString())); this->debug_f->writeln(StrFormat("Runtime error while completing: %s", e->UserErrorString())); } catch (IOError_OSError* e) { print_stderr(StrFormat("osh: I/O error (completion): %s", posix::strerror(e->errno_))); } catch (KeyboardInterrupt*) { print_stderr(str735); } catch (Exception* e) { print_stderr(StrFormat("osh: Unhandled exception while completing: %s", e)); this->debug_f->writeln(StrFormat("Unhandled exception while completing: %s", e)); } catch (SystemExit* e) { posix::_exit(e->code); } return nullptr; } BigStr* ExecuteReadlineCallback(completion::ReadlineCallback* cb, BigStr* word, int state) { StackRoot _root0(&cb); StackRoot _root1(&word); return cb->__call__(word, state); } } // define namespace completion namespace dev { // define using option_asdl::option_i; using option_asdl::builtin_i; using option_asdl::builtin_t; using runtime_asdl::cmd_value; using runtime_asdl::scope_e; using runtime_asdl::trace; using runtime_asdl::trace_e; using runtime_asdl::trace_t; using syntax_asdl::assign_op_e; using syntax_asdl::Token; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::sh_lvalue; using value_asdl::sh_lvalue_e; using value_asdl::LeftName; using mylib::print_stderr; CrashDumper::CrashDumper(BigStr* crash_dump_dir, process::FdState* fd_state) { this->crash_dump_dir = crash_dump_dir; this->fd_state = fd_state; this->do_collect = to_bool(crash_dump_dir); this->collected = false; this->var_stack = nullptr; this->argv_stack = nullptr; this->debug_stack = nullptr; this->error = nullptr; } void CrashDumper::MaybeRecord(cmd_eval::CommandEvaluator* cmd_ev, error::_ErrorWithLocation* err) { syntax_asdl::Token* blame_tok = nullptr; StackRoot _root0(&cmd_ev); StackRoot _root1(&err); StackRoot _root2(&blame_tok); if (!this->do_collect) { return ; } Tuple3*, List*, List*> tup0 = cmd_ev->mem->Dump(); this->var_stack = tup0.at0(); this->argv_stack = tup0.at1(); this->debug_stack = tup0.at2(); blame_tok = location::TokenFor(err->location); this->error = Alloc>(std::initializer_list{str738}, std::initializer_list{Alloc(err->UserErrorString())}); if (blame_tok) { this->error->set(str739, Alloc(ui::GetLineSourceString(blame_tok->line))); this->error->set(str740, num::ToBig(blame_tok->line->line_num)); this->error->set(str741, Alloc(blame_tok->line->content)); } this->do_collect = false; this->collected = true; } void CrashDumper::MaybeDump(int status) { int my_pid; Dict* d = nullptr; BigStr* path = nullptr; mylib::BufWriter* buf = nullptr; BigStr* json_str = nullptr; mylib::Writer* f = nullptr; StackRoot _root0(&d); StackRoot _root1(&path); StackRoot _root2(&buf); StackRoot _root3(&json_str); StackRoot _root4(&f); if (!this->collected) { return ; } my_pid = posix::getpid(); d = Alloc>(std::initializer_list{str742, str743, str744, str745, str746, str747}, std::initializer_list{Alloc(this->var_stack), Alloc(this->argv_stack), Alloc(this->debug_stack), Alloc(this->error), num::ToBig(status), num::ToBig(my_pid)}); path = os_path::join(this->crash_dump_dir, StrFormat("%d-osh-crash-dump.json", my_pid)); buf = Alloc(); j8::PrintMessage(Alloc(d), buf, 2); json_str = buf->getvalue(); try { f = this->fd_state->OpenForWrite(path); } catch (IOError_OSError* e) { return ; } f->write(json_str); print_stderr(StrFormat("[%d] Wrote crash dump to %s", my_pid, path)); } ctx_Tracer::ctx_Tracer(dev::Tracer* tracer, BigStr* label, List* argv) { gHeap.PushRoot(reinterpret_cast(&(this->arg))); gHeap.PushRoot(reinterpret_cast(&(this->label))); gHeap.PushRoot(reinterpret_cast(&(this->tracer))); this->arg = nullptr; if (str_equals(label, str750)) { this->arg = argv->at(0); } else { if (str_equals(label, str751)) { this->arg = argv->at(1); } } tracer->PushMessage(label, argv); this->label = label; this->tracer = tracer; } ctx_Tracer::~ctx_Tracer() { this->tracer->PopMessage(this->label, this->arg); gHeap.PopRoot(); gHeap.PopRoot(); gHeap.PopRoot(); } void _PrintShValue(value_asdl::value_t* val, mylib::BufWriter* buf) { BigStr* result = nullptr; value_asdl::value_t* UP_val = nullptr; List* parts = nullptr; StackRoot _root0(&val); StackRoot _root1(&buf); StackRoot _root2(&result); StackRoot _root3(&UP_val); StackRoot _root4(&parts); result = str752; UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); result = j8_lite::MaybeShellEncode(val->s); } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); parts = NewList(std::initializer_list{str753}); for (ListIter it(val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); parts->append(j8_lite::MaybeShellEncode(s)); } parts->append(str754); result = str755->join(parts); } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); parts = NewList(std::initializer_list{str756}); for (DictIter it(val->d); !it.Done(); it.Next()) { BigStr* k = it.Key(); BigStr* v = it.Value(); parts->append(StrFormat("[%s]=%s", j8_lite::ShellEncode(k), j8_lite::MaybeShellEncode(v))); } parts->append(str758); result = str759->join(parts); } break; } buf->write(result); } void PrintShellArgv(List* argv, mylib::BufWriter* buf) { int i; StackRoot _root0(&argv); StackRoot _root1(&buf); i = 0; for (ListIter it(argv); !it.Done(); it.Next(), ++i) { BigStr* arg = it.Value(); StackRoot _for(&arg ); if (i != 0) { buf->write(str760); } buf->write(j8_lite::MaybeShellEncode(arg)); } } void _PrintYshArgv(List* argv, mylib::BufWriter* buf) { StackRoot _root0(&argv); StackRoot _root1(&buf); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* arg = it.Value(); StackRoot _for(&arg ); buf->write(str761); buf->write(j8_lite::MaybeShellEncode(arg)); } buf->write(str762); } MultiTracer::MultiTracer(int shell_pid, BigStr* out_dir, BigStr* dumps, BigStr* streams, process::FdState* fd_state) { this->out_dir = out_dir; this->dumps = dumps; this->streams = streams; this->fd_state = fd_state; this->this_pid = shell_pid; this->hist_argv0 = Alloc>(); } void MultiTracer::OnNewProcess(int child_pid) { this->this_pid = child_pid; this->hist_argv0->clear(); } void MultiTracer::EmitArgv0(BigStr* argv0) { StackRoot _root0(&argv0); if (!dict_contains(this->hist_argv0, argv0)) { this->hist_argv0->set(argv0, 1); } else { this->hist_argv0->set(argv0, (this->hist_argv0->at(argv0) + 1)); } } void MultiTracer::WriteDumps() { List* metric_argv0 = nullptr; value::Str* a = nullptr; value::Int* c = nullptr; Dict* d = nullptr; Dict* j = nullptr; BigStr* path = nullptr; mylib::BufWriter* buf = nullptr; BigStr* json8_str = nullptr; mylib::Writer* f = nullptr; StackRoot _root0(&metric_argv0); StackRoot _root1(&a); StackRoot _root2(&c); StackRoot _root3(&d); StackRoot _root4(&j); StackRoot _root5(&path); StackRoot _root6(&buf); StackRoot _root7(&json8_str); StackRoot _root8(&f); if (len(this->out_dir) == 0) { return ; } metric_argv0 = Alloc>(); for (DictIter it(this->hist_argv0); !it.Done(); it.Next()) { BigStr* argv0 = it.Key(); int count = it.Value(); a = Alloc(argv0); c = Alloc(mops::IntWiden(count)); d = Alloc>(std::initializer_list{str763, str764}, std::initializer_list{a, c}); metric_argv0->append(Alloc(d)); } j = Alloc>(std::initializer_list{str765, str766}, std::initializer_list{Alloc(mops::IntWiden(this->this_pid)), Alloc(metric_argv0)}); path = os_path::join(this->out_dir, StrFormat("%d.argv0.json", this->this_pid)); buf = Alloc(); j8::PrintMessage(Alloc(j), buf, 2); json8_str = buf->getvalue(); try { f = this->fd_state->OpenForWrite(path); } catch (IOError_OSError* e) { return ; } f->write(json8_str); f->close(); print_stderr(StrFormat("[%d] Wrote metrics dump to %s", this->this_pid, path)); } Tracer::Tracer(parse_lib::ParseContext* parse_ctx, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, state::Mem* mem, util::_DebugFile* f, dev::MultiTracer* multi_trace) { this->parse_ctx = parse_ctx; this->exec_opts = exec_opts; this->mutable_opts = mutable_opts; this->mem = mem; this->f = f; this->multi_trace = multi_trace; this->word_ev = nullptr; this->ind = 0; this->indents = NewList(std::initializer_list{str769}); this->parse_cache = Alloc>(); this->val_indent = Alloc(str770); this->val_punct = Alloc(str771); this->val_pid_str = Alloc(str772); this->lval_indent = location::LName(str773); this->lval_punct = location::LName(str774); this->lval_pid_str = location::LName(str775); } void Tracer::CheckCircularDeps() { } BigStr* Tracer::_EvalPS4(BigStr* punct) { value_asdl::value_t* val = nullptr; BigStr* ps4 = nullptr; syntax_asdl::CompoundWord* ps4_word = nullptr; word_parse::WordParser* w_parser = nullptr; value::Str* prefix = nullptr; StackRoot _root0(&punct); StackRoot _root1(&val); StackRoot _root2(&ps4); StackRoot _root3(&ps4_word); StackRoot _root4(&w_parser); StackRoot _root5(&prefix); val = this->mem->GetValue(str776); if (val->tag() == value_e::Str) { ps4 = static_cast(val)->s; } else { ps4 = str777; } ps4_word = this->parse_cache->get(ps4); if (ps4_word == nullptr) { w_parser = this->parse_ctx->MakeWordParserForPlugin(ps4); try { ps4_word = w_parser->ReadForPlugin(); } catch (error::Parse* e) { ps4_word = word_::ErrorWord(StrFormat("", e->UserErrorString())); } this->parse_cache->set(ps4, ps4_word); } if (this->exec_opts->xtrace_rich()) { this->val_indent->s = this->indents->at(this->ind); } else { this->val_indent->s = str779; } this->val_punct->s = punct; { // with state::ctx_Option ctx{this->mutable_opts, NewList(std::initializer_list{option_i::xtrace}), false}; { // with state::ctx_Temp ctx{this->mem}; this->mem->SetNamed(this->lval_indent, this->val_indent, scope_e::LocalOnly); this->mem->SetNamed(this->lval_punct, this->val_punct, scope_e::LocalOnly); this->mem->SetNamed(this->lval_pid_str, this->val_pid_str, scope_e::LocalOnly); prefix = this->word_ev->EvalForPlugin(ps4_word); } } return prefix->s; } void Tracer::_Inc() { this->ind += 1; if (this->ind >= len(this->indents)) { this->indents->append(str_repeat(str780, this->ind)); } } void Tracer::_Dec() { this->ind -= 1; } mylib::BufWriter* Tracer::_ShTraceBegin() { BigStr* prefix = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&prefix); StackRoot _root1(&buf); if ((!this->exec_opts->xtrace() or !this->exec_opts->xtrace_details())) { return nullptr; } prefix = this->_EvalPS4(str781); buf = Alloc(); buf->write(prefix); return buf; } mylib::BufWriter* Tracer::_RichTraceBegin(BigStr* punct) { BigStr* prefix = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&punct); StackRoot _root1(&prefix); StackRoot _root2(&buf); if ((!this->exec_opts->xtrace() or !this->exec_opts->xtrace_rich())) { return nullptr; } prefix = this->_EvalPS4(punct); buf = Alloc(); buf->write(prefix); return buf; } void Tracer::OnProcessStart(int pid, runtime_asdl::trace_t* why) { runtime_asdl::trace_t* UP_why = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&why); StackRoot _root1(&UP_why); StackRoot _root2(&buf); UP_why = why; switch (why->tag()) { case trace_e::External: { trace::External* why = static_cast(UP_why); this->multi_trace->EmitArgv0(why->argv->at(0)); } break; } buf = this->_RichTraceBegin(str782); if (!buf) { return ; } switch (why->tag()) { case trace_e::External: { trace::External* why = static_cast(UP_why); buf->write(StrFormat("command %d:", pid)); _PrintYshArgv(why->argv, buf); } break; case trace_e::ForkWait: { buf->write(StrFormat("forkwait %d\n", pid)); } break; case trace_e::CommandSub: { buf->write(StrFormat("command sub %d\n", pid)); } break; case trace_e::ProcessSub: { buf->write(StrFormat("proc sub %d\n", pid)); } break; case trace_e::HereDoc: { buf->write(StrFormat("here doc %d\n", pid)); } break; case trace_e::Fork: { buf->write(StrFormat("fork %d\n", pid)); } break; case trace_e::PipelinePart: { buf->write(StrFormat("part %d\n", pid)); } break; default: { assert(0); // AssertionError } } this->f->write(buf->getvalue()); } void Tracer::OnProcessEnd(int pid, int status) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&buf); buf = this->_RichTraceBegin(str790); if (!buf) { return ; } buf->write(StrFormat("process %d: status %d\n", pid, status)); this->f->write(buf->getvalue()); } void Tracer::OnNewProcess(int child_pid) { this->val_pid_str->s = StrFormat(" %d", child_pid); this->_Inc(); this->multi_trace->OnNewProcess(child_pid); } void Tracer::PushMessage(BigStr* label, List* argv) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&label); StackRoot _root1(&argv); StackRoot _root2(&buf); buf = this->_RichTraceBegin(str793); if (buf) { buf->write(label); if (str_equals(label, str794)) { _PrintYshArgv(argv, buf); } else { if (str_equals(label, str795)) { _PrintYshArgv(argv->slice(1), buf); } else { if (str_equals(label, str796)) { _PrintYshArgv(argv->slice(1), buf); } else { buf->write(str797); } } } this->f->write(buf->getvalue()); } this->_Inc(); } void Tracer::PopMessage(BigStr* label, BigStr* arg) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&label); StackRoot _root1(&arg); StackRoot _root2(&buf); this->_Dec(); buf = this->_RichTraceBegin(str798); if (buf) { buf->write(label); if (arg != nullptr) { buf->write(str799); buf->write(j8_lite::MaybeShellEncode(arg)); } buf->write(str800); this->f->write(buf->getvalue()); } } void Tracer::OtherMessage(BigStr* message) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&message); StackRoot _root1(&buf); buf = this->_RichTraceBegin(str801); if (!buf) { return ; } buf->write(message); buf->write(str802); this->f->write(buf->getvalue()); } void Tracer::OnExec(List* argv) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&argv); StackRoot _root1(&buf); buf = this->_RichTraceBegin(str803); if (!buf) { return ; } buf->write(str804); _PrintYshArgv(argv, buf); this->f->write(buf->getvalue()); } void Tracer::OnBuiltin(int builtin_id, List* argv) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&argv); StackRoot _root1(&buf); if ((builtin_id == builtin_i::eval || builtin_id == builtin_i::source || builtin_id == builtin_i::wait)) { return ; } buf = this->_RichTraceBegin(str805); if (!buf) { return ; } buf->write(str806); _PrintYshArgv(argv, buf); this->f->write(buf->getvalue()); } void Tracer::OnSimpleCommand(List* argv) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&argv); StackRoot _root1(&buf); buf = this->_ShTraceBegin(); if (!buf) { return ; } if (this->exec_opts->xtrace_rich()) { return ; } PrintShellArgv(argv, buf); buf->write(str807); this->f->write(buf->getvalue()); } void Tracer::OnAssignBuiltin(cmd_value::Assign* cmd_val) { mylib::BufWriter* buf = nullptr; int i; StackRoot _root0(&cmd_val); StackRoot _root1(&buf); buf = this->_ShTraceBegin(); if (!buf) { return ; } i = 0; for (ListIter it(cmd_val->argv); !it.Done(); it.Next(), ++i) { BigStr* arg = it.Value(); StackRoot _for(&arg ); if (i != 0) { buf->write(str808); } buf->write(arg); } for (ListIter it(cmd_val->pairs); !it.Done(); it.Next()) { runtime_asdl::AssignArg* pair = it.Value(); StackRoot _for(&pair ); buf->write(str809); buf->write(pair->var_name); buf->write(str810); if (pair->rval) { _PrintShValue(pair->rval, buf); } } buf->write(str811); this->f->write(buf->getvalue()); } void Tracer::OnShAssignment(value_asdl::sh_lvalue_t* lval, syntax_asdl::assign_op_t op, value_asdl::value_t* val, int flags, runtime_asdl::scope_t which_scopes) { mylib::BufWriter* buf = nullptr; BigStr* left = nullptr; value_asdl::sh_lvalue_t* UP_lval = nullptr; StackRoot _root0(&lval); StackRoot _root1(&val); StackRoot _root2(&buf); StackRoot _root3(&left); StackRoot _root4(&UP_lval); buf = this->_ShTraceBegin(); if (!buf) { return ; } left = str812; UP_lval = lval; switch (lval->tag()) { case sh_lvalue_e::Var: { LeftName* lval = static_cast(UP_lval); left = lval->name; } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); left = StrFormat("%s[%d]", lval->name, lval->index); } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); left = StrFormat("%s[%s]", lval->name, j8_lite::MaybeShellEncode(lval->key)); } break; } buf->write(left); buf->write(op == assign_op_e::PlusEqual ? str815 : str816); _PrintShValue(val, buf); buf->write(str817); this->f->write(buf->getvalue()); } void Tracer::OnControlFlow(BigStr* keyword, int arg) { BigStr* prefix = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&keyword); StackRoot _root1(&prefix); StackRoot _root2(&buf); if (!this->exec_opts->xtrace()) { return ; } prefix = this->_EvalPS4(str818); buf = Alloc(); buf->write(prefix); buf->write(keyword); buf->write(str819); buf->write(str(arg)); buf->write(str820); this->f->write(buf->getvalue()); } void Tracer::PrintSourceCode(syntax_asdl::Token* left_tok, syntax_asdl::Token* right_tok, alloc::Arena* arena) { mylib::BufWriter* buf = nullptr; BigStr* line = nullptr; int start; int end; StackRoot _root0(&left_tok); StackRoot _root1(&right_tok); StackRoot _root2(&arena); StackRoot _root3(&buf); StackRoot _root4(&line); buf = this->_ShTraceBegin(); if (!buf) { return ; } line = left_tok->line->content; start = left_tok->col; if (left_tok->line == right_tok->line) { end = (right_tok->col + right_tok->length); buf->write(line->slice(start, end)); } else { end = line->endswith(str821) ? -1 : len(line); buf->write(line->slice(start, end)); buf->write(str822); } buf->write(str823); this->f->write(buf->getvalue()); } } // define namespace dev namespace error { // define using syntax_asdl::loc_e; using syntax_asdl::loc_t; using syntax_asdl::loc; using value_asdl::value; using value_asdl::value_t; using value_asdl::value_str; BigStr* _ValType(value_asdl::value_t* val) { StackRoot _root0(&val); return value_str(val->tag(), false); } _ErrorWithLocation::_ErrorWithLocation(BigStr* msg, syntax_asdl::loc_t* location) { this->msg = msg; if (location == nullptr) { this->location = loc::Missing; } else { this->location = location; } } bool _ErrorWithLocation::HasLocation() { return this->location->tag() != loc_e::Missing; } BigStr* _ErrorWithLocation::UserErrorString() { return this->msg; } Usage::Usage(BigStr* msg, syntax_asdl::loc_t* location) : ::error::_ErrorWithLocation(msg, location) { } Parse::Parse(BigStr* msg, syntax_asdl::loc_t* location) : ::error::_ErrorWithLocation(msg, location) { } FailGlob::FailGlob(BigStr* msg, syntax_asdl::loc_t* location) : ::error::_ErrorWithLocation(msg, location) { } RedirectEval::RedirectEval(BigStr* msg, syntax_asdl::loc_t* location) : ::error::_ErrorWithLocation(msg, location) { } FatalRuntime::FatalRuntime(int exit_status, BigStr* msg, syntax_asdl::loc_t* location) : ::error::_ErrorWithLocation(msg, location) { this->exit_status = exit_status; } int FatalRuntime::ExitStatus() { return this->exit_status; } Strict::Strict(BigStr* msg, syntax_asdl::loc_t* location) : ::error::FatalRuntime(1, msg, location) { } ErrExit::ErrExit(int exit_status, BigStr* msg, syntax_asdl::loc_t* location, bool show_code) : ::error::FatalRuntime(exit_status, msg, location) { this->show_code = show_code; } Expr::Expr(BigStr* msg, syntax_asdl::loc_t* location) : ::error::FatalRuntime(3, msg, location) { } Structured::Structured(int status, BigStr* msg, syntax_asdl::loc_t* location, Dict* properties) : ::error::FatalRuntime(status, msg, location) { this->properties = properties; } value::Dict* Structured::ToDict() { Dict* d = nullptr; StackRoot _root0(&d); d = Alloc>(); if (this->properties != nullptr) { d->update(this->properties); } d->set(str825, num::ToBig(this->ExitStatus())); d->set(str826, Alloc(this->msg)); return Alloc(d); } AssertionErr::AssertionErr(BigStr* msg, syntax_asdl::loc_t* location) : ::error::Expr(msg, location) { } TypeErrVerbose::TypeErrVerbose(BigStr* msg, syntax_asdl::loc_t* location) : ::error::Expr(msg, location) { } TypeErr::TypeErr(value_asdl::value_t* actual_val, BigStr* msg, syntax_asdl::loc_t* location) : ::error::TypeErrVerbose(StrFormat("%s, got %s", msg, _ValType(actual_val)), location) { } Runtime::Runtime(BigStr* msg) { this->msg = msg; } BigStr* Runtime::UserErrorString() { return this->msg; } Decode::Decode(BigStr* msg, BigStr* s, int start_pos, int end_pos, int line_num) { this->msg = msg; this->s = s; this->start_pos = start_pos; this->end_pos = end_pos; this->line_num = line_num; } BigStr* Decode::Message() { int start; int end; BigStr* part = nullptr; StackRoot _root0(&part); start = max(0, (this->start_pos - 4)); end = min(len(this->s), (this->end_pos + 4)); part = this->s->slice(start, end); return str_concat(this->msg, StrFormat(" (line %d, offset %d-%d: %r)", this->line_num, this->start_pos, this->end_pos, part)); } BigStr* Decode::__str__() { return this->Message(); } Encode::Encode(BigStr* msg) { this->msg = msg; } BigStr* Encode::Message() { return this->msg; } [[noreturn]] void e_usage(BigStr* msg, syntax_asdl::loc_t* location) { StackRoot _root0(&msg); StackRoot _root1(&location); throw Alloc(msg, location); } [[noreturn]] void e_strict(BigStr* msg, syntax_asdl::loc_t* location) { StackRoot _root0(&msg); StackRoot _root1(&location); throw Alloc(msg, location); } [[noreturn]] void p_die(BigStr* msg, syntax_asdl::loc_t* location) { StackRoot _root0(&msg); StackRoot _root1(&location); throw Alloc(msg, location); } [[noreturn]] void e_die(BigStr* msg, syntax_asdl::loc_t* location) { StackRoot _root0(&msg); StackRoot _root1(&location); throw Alloc(1, msg, location); } [[noreturn]] void e_die_status(int status, BigStr* msg, syntax_asdl::loc_t* location) { StackRoot _root0(&msg); StackRoot _root1(&location); throw Alloc(status, msg, location); } } // define namespace error namespace executor { // define using id_kind_asdl::Id; using option_asdl::builtin_i; using runtime_asdl::RedirValue; using runtime_asdl::trace; using syntax_asdl::command; using syntax_asdl::command_e; using syntax_asdl::CommandSub; using syntax_asdl::CompoundWord; using syntax_asdl::loc; using syntax_asdl::loc_t; using error::e_die; using error::e_die_status; using mylib::print_stderr; _ProcessSubFrame::_ProcessSubFrame() { this->_to_wait = Alloc>(); this->_to_close = Alloc>(); this->_locs = Alloc>(); this->_modified = false; } bool _ProcessSubFrame::WasModified() { return this->_modified; } void _ProcessSubFrame::Append(process::Process* p, int fd, syntax_asdl::loc_t* status_loc) { StackRoot _root0(&p); StackRoot _root1(&status_loc); this->_modified = true; this->_to_wait->append(p); this->_to_close->append(fd); this->_locs->append(status_loc); } void _ProcessSubFrame::MaybeWaitOnProcessSubs(process::Waiter* waiter, runtime_asdl::StatusArray* status_array) { List* codes = nullptr; List* locs = nullptr; int i; int st; StackRoot _root0(&waiter); StackRoot _root1(&status_array); StackRoot _root2(&codes); StackRoot _root3(&locs); for (ListIter it(this->_to_close); !it.Done(); it.Next()) { int fd = it.Value(); posix::close(fd); } codes = Alloc>(); locs = Alloc>(); i = 0; for (ListIter it(this->_to_wait); !it.Done(); it.Next(), ++i) { process::Process* p = it.Value(); StackRoot _for(&p ); st = p->Wait(waiter); codes->append(st); locs->append(this->_locs->at(i)); } status_array->codes = codes; status_array->locs = locs; } int DO_FORK = (1 << 1); int NO_CALL_PROCS = (1 << 2); int USE_DEFAULT_PATH = (1 << 3); GLOBAL_LIST(DEFAULT_PATH, BigStr*, 6, {str829 COMMA str830 COMMA str831 COMMA str832 COMMA str833 COMMA str834}); ShellExecutor::ShellExecutor(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, state::Procs* procs, hay_ysh::HayState* hay_state, Dict* builtins, state::SearchPath* search_path, process::ExternalProgram* ext_prog, process::Waiter* waiter, dev::Tracer* tracer, process::JobControl* job_control, process::JobList* job_list, process::FdState* fd_state, trap_osh::TrapState* trap_state, ui::ErrorFormatter* errfmt) : ::vm::_Executor() { this->mem = mem; this->exec_opts = exec_opts; this->mutable_opts = mutable_opts; this->procs = procs; this->hay_state = hay_state; this->builtins = builtins; this->search_path = search_path; this->ext_prog = ext_prog; this->waiter = waiter; this->tracer = tracer; this->multi_trace = tracer->multi_trace; this->job_control = job_control; this->job_list = job_list; this->fd_state = fd_state; this->trap_state = trap_state; this->errfmt = errfmt; this->process_sub_stack = Alloc>(); this->clean_frame_pool = Alloc>(); this->fg_pipeline = nullptr; } void ShellExecutor::CheckCircularDeps() { } process::Process* ShellExecutor::_MakeProcess(syntax_asdl::command_t* node, bool inherit_errexit, bool inherit_errtrace) { syntax_asdl::command_t* UP_node = nullptr; process::SubProgramThunk* thunk = nullptr; process::Process* p = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&thunk); StackRoot _root3(&p); UP_node = node; if (node->tag() == command_e::ControlFlow) { command::ControlFlow* node = static_cast(UP_node); if (node->keyword->id != Id::ControlFlow_Exit) { e_die(StrFormat("Invalid control flow %r in pipeline / subshell / background", lexer::TokenVal(node->keyword)), node->keyword); } } thunk = Alloc(this->cmd_ev, node, this->trap_state, this->multi_trace, inherit_errexit, inherit_errtrace); p = Alloc(thunk, this->job_control, this->job_list, this->tracer); return p; } int ShellExecutor::RunBuiltin(int builtin_id, cmd_value::Argv* cmd_val) { vm::_Builtin* builtin_func = nullptr; List* io_errors = nullptr; int status; BigStr* arg0 = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&builtin_func); StackRoot _root2(&io_errors); StackRoot _root3(&arg0); this->tracer->OnBuiltin(builtin_id, cmd_val->argv); builtin_func = this->builtins->at(builtin_id); io_errors = Alloc>(); { // with vm::ctx_FlushStdout ctx{io_errors}; { // with ui::ctx_Location ctx{this->errfmt, cmd_val->arg_locs->at(0)}; try { status = builtin_func->Run(cmd_val); } catch (IOError_OSError* e) { this->errfmt->PrintMessage(StrFormat("%s builtin I/O error: %s", cmd_val->argv->at(0), pyutil::strerror(e)), cmd_val->arg_locs->at(0)); return 1; } catch (error::Usage* e) { arg0 = cmd_val->argv->at(0); this->errfmt->PrefixPrint(e->msg, StrFormat("%r ", arg0), e->location); return 2; } } } if (len(io_errors)) { this->errfmt->PrintMessage(StrFormat("%s builtin I/O error: %s", cmd_val->argv->at(0), pyutil::strerror(io_errors->at(0))), cmd_val->arg_locs->at(0)); return 1; } return status; } int ShellExecutor::RunSimpleCommand(cmd_value::Argv* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags) { List* argv = nullptr; syntax_asdl::loc_t* arg0_loc = nullptr; BigStr* arg0 = nullptr; int builtin_id; int status; bool call_procs; value::Proc* proc_node = nullptr; syntax_asdl::Token* disabled_tok = nullptr; Dict* environ = nullptr; BigStr* argv0_path = nullptr; process::ExternalThunk* thunk = nullptr; process::Process* p = nullptr; int pgid; process::SetPgid* change = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&cmd_st); StackRoot _root2(&argv); StackRoot _root3(&arg0_loc); StackRoot _root4(&arg0); StackRoot _root5(&proc_node); StackRoot _root6(&disabled_tok); StackRoot _root7(&environ); StackRoot _root8(&argv0_path); StackRoot _root9(&thunk); StackRoot _root10(&p); StackRoot _root11(&change); argv = cmd_val->argv; if (len(cmd_val->arg_locs)) { arg0_loc = cmd_val->arg_locs->at(0); } else { arg0_loc = loc::Missing; } if (len(argv) == 0) { if (this->exec_opts->strict_argv()) { e_die(str839, arg0_loc); } else { return 0; } } arg0 = argv->at(0); builtin_id = consts::LookupAssignBuiltin(arg0); if (builtin_id != consts::NO_INDEX) { this->errfmt->Print_(str840, arg0_loc); return 1; } builtin_id = consts::LookupSpecialBuiltin(arg0); if (builtin_id != consts::NO_INDEX) { cmd_st->show_code = true; status = this->RunBuiltin(builtin_id, cmd_val); return status; } call_procs = !(run_flags & NO_CALL_PROCS); if (call_procs) { proc_node = this->procs->Get(arg0); if (proc_node != nullptr) { if (this->exec_opts->strict_errexit()) { disabled_tok = this->mutable_opts->ErrExitDisabledToken(); if (disabled_tok) { this->errfmt->Print_(str841, disabled_tok); this->errfmt->StderrLine(str842); e_die(str843, arg0_loc); } } { // with dev::ctx_Tracer ctx{this->tracer, str844, argv}; status = this->cmd_ev->RunProc(proc_node, cmd_val); } return status; } } if (this->hay_state->Resolve(arg0)) { return this->RunBuiltin(builtin_i::haynode, cmd_val); } builtin_id = consts::LookupNormalBuiltin(arg0); if (this->exec_opts->_running_hay()) { if ((builtin_id == builtin_i::haynode || builtin_id == builtin_i::use || builtin_id == builtin_i::echo || builtin_id == builtin_i::write)) { cmd_st->show_code = true; return this->RunBuiltin(builtin_id, cmd_val); } this->errfmt->Print_(StrFormat("Unknown command %r while running hay", arg0), arg0_loc); return 127; } if (builtin_id != consts::NO_INDEX) { cmd_st->show_code = true; return this->RunBuiltin(builtin_id, cmd_val); } environ = this->mem->GetExported(); if (cmd_val->typed_args) { e_die(StrFormat("%r appears to be external. External commands don't accept typed args (OILS-ERR-200)", arg0), cmd_val->typed_args->left); } if ((run_flags & USE_DEFAULT_PATH)) { argv0_path = state::LookupExecutable(arg0, DEFAULT_PATH); } else { argv0_path = this->search_path->CachedLookup(arg0); } if (argv0_path == nullptr) { this->errfmt->Print_(StrFormat("%r not found (OILS-ERR-100)", arg0), arg0_loc); return 127; } if ((run_flags & DO_FORK)) { thunk = Alloc(this->ext_prog, argv0_path, cmd_val, environ); p = Alloc(thunk, this->job_control, this->job_list, this->tracer); if (this->job_control->Enabled()) { if (this->fg_pipeline != nullptr) { pgid = this->fg_pipeline->ProcessGroupId(); change = Alloc(pgid, this->tracer); this->fg_pipeline = nullptr; } else { change = Alloc(process::OWN_LEADER, this->tracer); } p->AddStateChange(change); } status = p->RunProcess(this->waiter, Alloc(cmd_val->argv)); cmd_st->show_code = true; return status; } this->tracer->OnExec(cmd_val->argv); this->ext_prog->Exec(argv0_path, cmd_val, environ); assert(0); // AssertionError } int ShellExecutor::RunBackgroundJob(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; process::Pipeline* pi = nullptr; process::Process* p = nullptr; int last_pid; int job_id; int pid; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&pi); StackRoot _root3(&p); UP_node = node; if (UP_node->tag() == command_e::Pipeline) { command::Pipeline* node = static_cast(UP_node); pi = Alloc(this->exec_opts->sigpipe_status_ok(), this->job_control, this->job_list, this->tracer); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); p = this->_MakeProcess(child, true, this->exec_opts->errtrace()); p->Init_ParentPipeline(pi); pi->Add(p); } pi->StartPipeline(this->waiter); pi->SetBackground(); last_pid = pi->LastPid(); this->mem->last_bg_pid = last_pid; job_id = this->job_list->AddJob(pi); } else { p = this->_MakeProcess(node, true, this->exec_opts->errtrace()); if (this->job_control->Enabled()) { p->AddStateChange(Alloc(process::OWN_LEADER, this->tracer)); } p->SetBackground(); pid = p->StartProcess(trace::Fork); this->mem->last_bg_pid = pid; job_id = this->job_list->AddJob(p); } if (this->exec_opts->interactive()) { print_stderr(StrFormat("[%d] %d", job_id, this->mem->last_bg_pid)); } return 0; } void ShellExecutor::RunPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* status_out) { process::Pipeline* pi = nullptr; List* pipe_locs = nullptr; int n; syntax_asdl::command_t* child = nullptr; process::Process* p = nullptr; syntax_asdl::command_t* last_child = nullptr; StackRoot _root0(&node); StackRoot _root1(&status_out); StackRoot _root2(&pi); StackRoot _root3(&pipe_locs); StackRoot _root4(&child); StackRoot _root5(&p); StackRoot _root6(&last_child); pi = Alloc(this->exec_opts->sigpipe_status_ok(), this->job_control, this->job_list, this->tracer); pipe_locs = Alloc>(); n = len(node->children); for (int i = 0; i < (n - 1); ++i) { child = node->children->at(i); pipe_locs->append(Alloc(child)); p = this->_MakeProcess(child, true, this->exec_opts->errtrace()); p->Init_ParentPipeline(pi); pi->Add(p); } last_child = node->children->at((n - 1)); pi->AddLast((Alloc>(this->cmd_ev, last_child))); pipe_locs->append(Alloc(last_child)); { // with dev::ctx_Tracer ctx{this->tracer, str850, nullptr}; pi->StartPipeline(this->waiter); this->fg_pipeline = pi; status_out->pipe_status = pi->RunLastPart(this->waiter, this->fd_state); this->fg_pipeline = nullptr; } status_out->pipe_locs = pipe_locs; } int ShellExecutor::RunSubshell(syntax_asdl::command_t* node) { process::Process* p = nullptr; StackRoot _root0(&node); StackRoot _root1(&p); p = this->_MakeProcess(node, true, this->exec_opts->errtrace()); if (this->job_control->Enabled()) { p->AddStateChange(Alloc(process::OWN_LEADER, this->tracer)); } return p->RunProcess(this->waiter, trace::ForkWait); } Tuple2 ShellExecutor::CaptureStdout(syntax_asdl::command_t* node) { process::Process* p = nullptr; int r; int w; List* chunks = nullptr; int n; int err_num; int status; BigStr* stdout_str = nullptr; StackRoot _root0(&node); StackRoot _root1(&p); StackRoot _root2(&chunks); StackRoot _root3(&stdout_str); p = this->_MakeProcess(node, this->exec_opts->inherit_errexit(), this->exec_opts->errtrace()); Tuple2 tup0 = posix::pipe(); r = tup0.at0(); w = tup0.at1(); p->AddStateChange(Alloc(r, w)); p->StartProcess(trace::CommandSub); chunks = Alloc>(); posix::close(w); while (true) { Tuple2 tup1 = pyos::Read(r, 4096, chunks); n = tup1.at0(); err_num = tup1.at1(); if (n < 0) { if (err_num == EINTR) { ; // pass } else { e_die_status(2, StrFormat("Oils I/O error (read): %s", posix::strerror(err_num))); } } else { if (n == 0) { break; } } } posix::close(r); status = p->Wait(this->waiter); stdout_str = str852->join(chunks)->rstrip(str853); return Tuple2(status, stdout_str); } BigStr* ShellExecutor::RunCommandSub(syntax_asdl::CommandSub* cs_part) { BigStr* why = nullptr; syntax_asdl::command_t* node = nullptr; command::Redirect* redir_node = nullptr; syntax_asdl::Token* tok = nullptr; syntax_asdl::CompoundWord* cat_word = nullptr; syntax_asdl::Token* blame_tok = nullptr; command::Simple* simple = nullptr; int status; BigStr* stdout_str = nullptr; BigStr* msg = nullptr; StackRoot _root0(&cs_part); StackRoot _root1(&why); StackRoot _root2(&node); StackRoot _root3(&redir_node); StackRoot _root4(&tok); StackRoot _root5(&cat_word); StackRoot _root6(&blame_tok); StackRoot _root7(&simple); StackRoot _root8(&stdout_str); StackRoot _root9(&msg); if (!this->exec_opts->_allow_command_sub()) { if (!this->exec_opts->_allow_process_sub()) { why = str854; } else { why = str855; } e_die(StrFormat("Command subs not allowed here because %s", why), Alloc(cs_part)); } node = cs_part->child; if (node->tag() == command_e::Redirect) { redir_node = static_cast(node); if ((len(redir_node->redirects) == 1 and (redir_node->redirects->at(0)->op->id == Id::Redir_Less and redir_node->child->tag() == command_e::NoOp))) { tok = lexer::DummyToken(Id::Lit_Chars, str857); cat_word = Alloc(NewList(std::initializer_list{tok})); blame_tok = redir_node->redirects->at(0)->op; simple = Alloc(blame_tok, Alloc>(), NewList(std::initializer_list{cat_word}), nullptr, nullptr, true); redir_node->child = simple; } } Tuple2 tup2 = this->CaptureStdout(node); status = tup2.at0(); stdout_str = tup2.at1(); if (this->exec_opts->command_sub_errexit()) { if (status != 0) { msg = StrFormat("Command Sub exited with status %d", status); throw Alloc(status, msg, Alloc(cs_part)); } } else { this->cmd_ev->check_command_sub_status = true; this->mem->SetLastStatus(status); } return stdout_str; } BigStr* ShellExecutor::RunProcessSub(syntax_asdl::CommandSub* cs_part) { loc::WordPart* cs_loc = nullptr; process::Process* p = nullptr; int r; int w; int op_id; process::ChildStateChange* redir = nullptr; executor::_ProcessSubFrame* ps_frame = nullptr; StackRoot _root0(&cs_part); StackRoot _root1(&cs_loc); StackRoot _root2(&p); StackRoot _root3(&redir); StackRoot _root4(&ps_frame); cs_loc = Alloc(cs_part); if (!this->exec_opts->_allow_process_sub()) { e_die(str859, cs_loc); } p = this->_MakeProcess(cs_part->child, true, this->exec_opts->errtrace()); Tuple2 tup3 = posix::pipe(); r = tup3.at0(); w = tup3.at1(); op_id = cs_part->left_token->id; if (op_id == Id::Left_ProcSubIn) { redir = Alloc(r, w); } else { if (op_id == Id::Left_ProcSubOut) { redir = Alloc(r, w); } else { assert(0); // AssertionError } } p->AddStateChange(redir); if (this->job_control->Enabled()) { p->AddStateChange(Alloc(process::OWN_LEADER, this->tracer)); } p->StartProcess(trace::ProcessSub); ps_frame = this->process_sub_stack->at(-1); if (op_id == Id::Left_ProcSubIn) { posix::close(w); ps_frame->Append(p, r, cs_loc); } else { if (op_id == Id::Left_ProcSubOut) { posix::close(r); ps_frame->Append(p, w, cs_loc); } else { assert(0); // AssertionError } } if (op_id == Id::Left_ProcSubIn) { return StrFormat("/dev/fd/%d", r); } else { if (op_id == Id::Left_ProcSubOut) { return StrFormat("/dev/fd/%d", w); } else { assert(0); // AssertionError } } } void ShellExecutor::PushRedirects(List* redirects, List* err_out) { StackRoot _root0(&redirects); StackRoot _root1(&err_out); if (len(redirects) == 0) { return ; } this->fd_state->Push(redirects, err_out); } void ShellExecutor::PopRedirects(int num_redirects, List* err_out) { StackRoot _root0(&err_out); if (num_redirects == 0) { return ; } this->fd_state->Pop(err_out); } void ShellExecutor::PushProcessSub() { executor::_ProcessSubFrame* new_frame = nullptr; StackRoot _root0(&new_frame); if (len(this->clean_frame_pool)) { new_frame = this->clean_frame_pool->pop(); } else { new_frame = Alloc<_ProcessSubFrame>(); } this->process_sub_stack->append(new_frame); } void ShellExecutor::PopProcessSub(runtime_asdl::StatusArray* compound_st) { executor::_ProcessSubFrame* frame = nullptr; StackRoot _root0(&compound_st); StackRoot _root1(&frame); frame = this->process_sub_stack->pop(); if (frame->WasModified()) { frame->MaybeWaitOnProcessSubs(this->waiter, compound_st); } else { this->clean_frame_pool->append(frame); } } } // define namespace executor namespace main_loop { // define using syntax_asdl::command; using syntax_asdl::command_t; using syntax_asdl::parse_result; using syntax_asdl::parse_result_e; using mylib::print_stderr; ctx_Descriptors::ctx_Descriptors(List* fds) { gHeap.PushRoot(reinterpret_cast(&(this->fds))); this->saved0 = process::SaveFd(0); this->saved1 = process::SaveFd(1); this->saved2 = process::SaveFd(2); posix::dup2(fds->at(0), 0); posix::dup2(fds->at(1), 1); posix::dup2(fds->at(2), 2); this->fds = fds; } ctx_Descriptors::~ctx_Descriptors() { posix::dup2(this->saved0, 0); posix::dup2(this->saved1, 1); posix::dup2(this->saved2, 2); posix::close(this->saved0); posix::close(this->saved1); posix::close(this->saved2); posix::close(this->fds->at(0)); posix::close(this->fds->at(1)); posix::close(this->fds->at(2)); gHeap.PopRoot(); } void fanos_log(BigStr* msg) { StackRoot _root0(&msg); print_stderr(StrFormat("[FANOS] %s", msg)); } void ShowDescriptorState(BigStr* label) { StackRoot _root0(&label); } Headless::Headless(cmd_eval::CommandEvaluator* cmd_ev, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt) { this->cmd_ev = cmd_ev; this->parse_ctx = parse_ctx; this->errfmt = errfmt; } int Headless::Loop() { try { return this->_Loop(); } catch (ValueError* e) { fanos::send(1, StrFormat("ERROR %s", e)); return 1; } } BigStr* Headless::EVAL(BigStr* arg) { reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; int unused_status; StackRoot _root0(&arg); StackRoot _root1(&line_reader); StackRoot _root2(&c_parser); line_reader = reader::StringLineReader(arg, this->parse_ctx->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); unused_status = Batch(this->cmd_ev, c_parser, this->errfmt, 0); return str864; } int Headless::_Loop() { List* fd_out = nullptr; BigStr* blob = nullptr; List* bs = nullptr; BigStr* command = nullptr; BigStr* arg = nullptr; BigStr* reply = nullptr; StackRoot _root0(&fd_out); StackRoot _root1(&blob); StackRoot _root2(&bs); StackRoot _root3(&command); StackRoot _root4(&arg); StackRoot _root5(&reply); fanos_log(str865); fd_out = Alloc>(); while (true) { try { blob = fanos::recv(0, fd_out); } catch (ValueError* e) { fanos_log(StrFormat("protocol error: %s", e)); throw ; } if (blob == nullptr) { fanos_log(str867); break; } fanos_log(StrFormat("received blob %r", blob)); if (str_contains(blob, str869)) { bs = blob->split(str870, 1); command = bs->at(0); arg = bs->at(1); } else { command = blob; arg = str871; } if (str_equals(command, str872)) { reply = str(posix::getpid()); } else { if (str_equals(command, str873)) { if (len(fd_out) != 3) { throw Alloc(str874); } for (ListIter it(fd_out); !it.Done(); it.Next()) { int fd = it.Value(); fanos_log(StrFormat("received descriptor %d", fd)); } { // with ctx_Descriptors ctx{fd_out}; reply = this->EVAL(arg); } } else { if (str_equals(command, str876)) { reply = str877; } else { fanos_log(StrFormat("Invalid command %r", command)); throw Alloc(StrFormat("Invalid command %r", command)); } } } fanos::send(1, StrFormat("OK %s", reply)); fd_out->clear(); } return 0; } int Interactive(arg_types::main* flag, cmd_eval::CommandEvaluator* cmd_ev, cmd_parse::CommandParser* c_parser, comp_ui::_IDisplay* display, prompt::UserPlugin* prompt_plugin, process::Waiter* waiter, ui::ErrorFormatter* errfmt) { int status; bool done; bool quit; syntax_asdl::parse_result_t* result = nullptr; syntax_asdl::parse_result_t* UP_result = nullptr; syntax_asdl::command_t* node = nullptr; bool is_return; StackRoot _root0(&flag); StackRoot _root1(&cmd_ev); StackRoot _root2(&c_parser); StackRoot _root3(&display); StackRoot _root4(&prompt_plugin); StackRoot _root5(&waiter); StackRoot _root6(&errfmt); StackRoot _root7(&result); StackRoot _root8(&UP_result); StackRoot _root9(&node); status = 0; done = false; while (!done) { mylib::MaybeCollect(); while (true) { quit = false; prompt_plugin->Run(); try { result = c_parser->ParseInteractiveLine(); UP_result = result; switch (result->tag()) { case parse_result_e::EmptyLine: { display->EraseLines(); waiter->PollNotifications(); quit = true; } break; case parse_result_e::Eof: { display->EraseLines(); done = true; quit = true; } break; case parse_result_e::Node: { parse_result::Node* result = static_cast(UP_result); node = result->cmd; } break; default: { assert(0); // AssertionError } } } catch (util::HistoryError* e) { display->EraseLines(); print(e->UserErrorString()); quit = true; } catch (error::Parse* e) { display->EraseLines(); errfmt->PrettyPrintError(e); status = 2; cmd_ev->mem->SetLastStatus(status); quit = true; } catch (KeyboardInterrupt*) { print(str881); display->EraseLines(); quit = true; } if (quit) { break; } display->EraseLines(); if (cmd_ev->exec_opts->noexec()) { ui::PrintAst(node, flag); break; } try { Tuple2 tup0 = cmd_ev->ExecuteAndCatch(node); is_return = tup0.at0(); } catch (KeyboardInterrupt*) { is_return = false; display->EraseLines(); status = 130; cmd_ev->mem->SetLastStatus(status); break; } status = cmd_ev->LastStatus(); waiter->PollNotifications(); if (is_return) { done = true; break; } break; } c_parser->arena->DiscardLines(); cmd_ev->RunPendingTraps(); c_parser->Reset(); c_parser->ResetInputObjects(); display->Reset(); if (flag->print_status) { print(StrFormat("STATUS\t%r", status)); } } return status; } int Batch(cmd_eval::CommandEvaluator* cmd_ev, cmd_parse::CommandParser* c_parser, ui::ErrorFormatter* errfmt, int cmd_flags) { int status; syntax_asdl::command_t* node = nullptr; bool is_return; bool is_fatal; StackRoot _root0(&cmd_ev); StackRoot _root1(&c_parser); StackRoot _root2(&errfmt); StackRoot _root3(&node); status = 0; while (true) { DTRACE_PROBE(main_loop, Batch_parse_enter); try { node = c_parser->ParseLogicalLine(); if (node == nullptr) { c_parser->CheckForPendingHereDocs(); break; } } catch (error::Parse* e) { errfmt->PrettyPrintError(e); status = 2; break; } c_parser->arena->DiscardLines(); if (((cmd_flags & cmd_eval::IsMainProgram) and c_parser->line_reader->LastLineHint())) { cmd_flags |= cmd_eval::Optimize; } DTRACE_PROBE(main_loop, Batch_parse_exit); DTRACE_PROBE(main_loop, Batch_execute_enter); Tuple2 tup1 = cmd_ev->ExecuteAndCatch(node, cmd_flags); is_return = tup1.at0(); is_fatal = tup1.at1(); status = cmd_ev->LastStatus(); if ((is_return or is_fatal)) { break; } DTRACE_PROBE(main_loop, Batch_execute_exit); DTRACE_PROBE(main_loop, Batch_collect_enter); mylib::MaybeCollect(); DTRACE_PROBE(main_loop, Batch_collect_exit); } return status; } syntax_asdl::command_t* ParseWholeFile(cmd_parse::CommandParser* c_parser) { List* children = nullptr; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&c_parser); StackRoot _root1(&children); StackRoot _root2(&node); children = Alloc>(); while (true) { node = c_parser->ParseLogicalLine(); if (node == nullptr) { c_parser->CheckForPendingHereDocs(); break; } children->append(node); mylib::MaybeCollect(); } if (len(children) == 1) { return children->at(0); } else { return Alloc(children); } } } // define namespace main_loop namespace num { // define using value_asdl::value; value::Int* ToBig(int i) { return Alloc(mops::IntWiden(i)); } mops::BigInt Exponent(mops::BigInt x, mops::BigInt y) { int y_int; mops::BigInt result; y_int = mops::BigTruncate(y); result = mops::BigInt(1); for (int i = 0; i < y_int; ++i) { result = mops::Mul(result, x); } return result; } } // define namespace num namespace process { // define using id_kind_asdl::Id; using runtime_asdl::job_state_e; using runtime_asdl::job_state_t; using runtime_asdl::job_state_str; using runtime_asdl::wait_status; using runtime_asdl::wait_status_t; using runtime_asdl::RedirValue; using runtime_asdl::redirect_arg; using runtime_asdl::redirect_arg_e; using runtime_asdl::trace; using runtime_asdl::trace_t; using syntax_asdl::loc_t; using syntax_asdl::redir_loc; using syntax_asdl::redir_loc_e; using syntax_asdl::redir_loc_t; using value_asdl::value; using value_asdl::value_e; using error::e_die; using mylib::print_stderr; int NO_FD = -1; int _SHELL_MIN_FD = 100; int STYLE_DEFAULT = 0; int STYLE_LONG = 1; int STYLE_PID_ONLY = 2; GLOBAL_LIST(CURRENT_JOB_SPECS, BigStr*, 4, {str883 COMMA str884 COMMA str885 COMMA str886}); ctx_FileCloser::ctx_FileCloser(mylib::LineReader* f) { gHeap.PushRoot(reinterpret_cast(&(this->f))); this->f = f; } ctx_FileCloser::~ctx_FileCloser() { this->f->close(); gHeap.PopRoot(); } void InitInteractiveShell() { pyos::Sigaction(SIGQUIT, SIG_IGN); pyos::Sigaction(SIGTSTP, SIG_IGN); pyos::Sigaction(SIGTTOU, SIG_IGN); pyos::Sigaction(SIGTTIN, SIG_IGN); pyos::RegisterSignalInterest(SIGWINCH); } int SaveFd(int fd) { int saved; saved = fcntl_::fcntl(fd, F_DUPFD, _SHELL_MIN_FD); return saved; } _RedirFrame::_RedirFrame(int saved_fd, int orig_fd, bool forget) { this->saved_fd = saved_fd; this->orig_fd = orig_fd; this->forget = forget; } _FdFrame::_FdFrame() { this->saved = Alloc>(); this->need_wait = Alloc>(); } void _FdFrame::Forget() { for (ReverseListIter it(this->saved); !it.Done(); it.Next()) { process::_RedirFrame* rf = it.Value(); StackRoot _for(&rf ); if ((rf->saved_fd != NO_FD and rf->forget)) { posix::close(rf->saved_fd); } } this->saved->clear(); this->need_wait->clear(); } FdState::FdState(ui::ErrorFormatter* errfmt, process::JobControl* job_control, process::JobList* job_list, state::Mem* mem, dev::Tracer* tracer, process::Waiter* waiter, optview::Exec* exec_opts) { this->errfmt = errfmt; this->job_control = job_control; this->job_list = job_list; this->cur_frame = Alloc<_FdFrame>(); this->stack = NewList(std::initializer_list{this->cur_frame}); this->mem = mem; this->tracer = tracer; this->waiter = waiter; this->exec_opts = exec_opts; } mylib::LineReader* FdState::Open(BigStr* path) { int fd_mode; mylib::File* f = nullptr; StackRoot _root0(&path); StackRoot _root1(&f); fd_mode = O_RDONLY; f = this->_Open(path, str888, fd_mode); return static_cast(f); } mylib::Writer* FdState::OpenForWrite(BigStr* path) { int fd_mode; mylib::File* f = nullptr; StackRoot _root0(&path); StackRoot _root1(&f); fd_mode = (O_CREAT | O_RDWR); f = this->_Open(path, str890, fd_mode); return reinterpret_cast(f); } mylib::File* FdState::_Open(BigStr* path, BigStr* c_mode, int fd_mode) { int fd; int new_fd; mylib::File* f = nullptr; StackRoot _root0(&path); StackRoot _root1(&c_mode); StackRoot _root2(&f); fd = posix::open(path, fd_mode, 438); new_fd = SaveFd(fd); posix::close(fd); f = posix::fdopen(new_fd, c_mode); return f; } void FdState::_WriteFdToMem(BigStr* fd_name, int fd) { StackRoot _root0(&fd_name); if (this->mem) { state::OshLanguageSetValue(this->mem, location::LName(fd_name), Alloc(str(fd))); } } int FdState::_ReadFdFromMem(BigStr* fd_name) { value_asdl::value_t* val = nullptr; StackRoot _root0(&fd_name); StackRoot _root1(&val); val = this->mem->GetValue(fd_name); if (val->tag() == value_e::Str) { try { return to_int(static_cast(val)->s); } catch (ValueError*) { return NO_FD; } } return NO_FD; } bool FdState::_PushSave(int fd) { bool ok; int new_fd; ok = true; try { new_fd = SaveFd(fd); } catch (IOError_OSError* e) { ok = false; if (e->errno_ != EBADF) { throw ; } } if (ok) { posix::close(fd); fcntl_::fcntl(new_fd, F_SETFD, FD_CLOEXEC); this->cur_frame->saved->append(Alloc<_RedirFrame>(new_fd, fd, true)); } else { this->_PushClose(fd); } return ok; } int FdState::_PushDup(int fd1, syntax_asdl::redir_loc_t* blame_loc) { syntax_asdl::redir_loc_t* UP_loc = nullptr; BigStr* fd2_name = nullptr; int new_fd; int fd2; bool need_restore; process::_RedirFrame* rf = nullptr; StackRoot _root0(&blame_loc); StackRoot _root1(&UP_loc); StackRoot _root2(&fd2_name); StackRoot _root3(&rf); UP_loc = blame_loc; if (blame_loc->tag() == redir_loc_e::VarName) { fd2_name = static_cast(UP_loc)->name; try { new_fd = fcntl_::fcntl(fd1, F_DUPFD, _SHELL_MIN_FD); } catch (IOError_OSError* e) { if (e->errno_ == EBADF) { print_stderr(StrFormat("F_DUPFD fd %d: %s", fd1, pyutil::strerror(e))); return NO_FD; } else { throw ; } } this->_WriteFdToMem(fd2_name, new_fd); } else { if (blame_loc->tag() == redir_loc_e::Fd) { fd2 = static_cast(UP_loc)->fd; if (fd1 == fd2) { return NO_FD; } try { fcntl_::fcntl(fd1, F_GETFD); } catch (IOError_OSError* e) { print_stderr(StrFormat("F_GETFD fd %d: %s", fd1, pyutil::strerror(e))); throw ; } need_restore = this->_PushSave(fd2); try { posix::dup2(fd1, fd2); } catch (IOError_OSError* e) { print_stderr(StrFormat("dup2(%d, %d): %s", fd1, fd2, pyutil::strerror(e))); if (need_restore) { rf = this->cur_frame->saved->pop(); posix::dup2(rf->saved_fd, rf->orig_fd); posix::close(rf->saved_fd); } throw ; } new_fd = fd2; } else { assert(0); // AssertionError } } return new_fd; } bool FdState::_PushCloseFd(syntax_asdl::redir_loc_t* blame_loc) { syntax_asdl::redir_loc_t* UP_loc = nullptr; BigStr* fd_name = nullptr; int fd; StackRoot _root0(&blame_loc); StackRoot _root1(&UP_loc); StackRoot _root2(&fd_name); UP_loc = blame_loc; if (blame_loc->tag() == redir_loc_e::VarName) { fd_name = static_cast(UP_loc)->name; fd = this->_ReadFdFromMem(fd_name); if (fd == NO_FD) { return false; } } else { if (blame_loc->tag() == redir_loc_e::Fd) { fd = static_cast(UP_loc)->fd; } else { assert(0); // AssertionError } } this->_PushSave(fd); return true; } void FdState::_PushClose(int fd) { this->cur_frame->saved->append(Alloc<_RedirFrame>(NO_FD, fd, false)); } void FdState::_PushWait(process::Process* proc) { StackRoot _root0(&proc); this->cur_frame->need_wait->append(proc); } void FdState::_ApplyRedirect(runtime_asdl::RedirValue* r) { runtime_asdl::redirect_arg_t* arg = nullptr; runtime_asdl::redirect_arg_t* UP_arg = nullptr; int noclobber_mode; int mode; int open_fd; BigStr* extra = nullptr; int new_fd; syntax_asdl::redir_loc_t* UP_loc = nullptr; int fd; int read_fd; int write_fd; process::_HereDocWriterThunk* thunk = nullptr; bool start_process; process::Process* here_proc = nullptr; StackRoot _root0(&r); StackRoot _root1(&arg); StackRoot _root2(&UP_arg); StackRoot _root3(&extra); StackRoot _root4(&UP_loc); StackRoot _root5(&thunk); StackRoot _root6(&here_proc); arg = r->arg; UP_arg = arg; switch (arg->tag()) { case redirect_arg_e::Path: { redirect_arg::Path* arg = static_cast(UP_arg); noclobber_mode = this->exec_opts->noclobber() ? O_EXCL : 0; if ((r->op_id == Id::Redir_Great || r->op_id == Id::Redir_AndGreat)) { mode = (((O_CREAT | O_WRONLY) | O_TRUNC) | noclobber_mode); } else { if (r->op_id == Id::Redir_Clobber) { mode = ((O_CREAT | O_WRONLY) | O_TRUNC); } else { if ((r->op_id == Id::Redir_DGreat || r->op_id == Id::Redir_AndDGreat)) { mode = (((O_CREAT | O_WRONLY) | O_APPEND) | noclobber_mode); } else { if (r->op_id == Id::Redir_Less) { mode = O_RDONLY; } else { if (r->op_id == Id::Redir_LessGreat) { mode = (O_CREAT | O_RDWR); } else { FAIL(kNotImplemented); // Python NotImplementedError } } } } } try { open_fd = posix::open(arg->filename, mode, 438); } catch (IOError_OSError* e) { if ((e->errno_ == EEXIST and this->exec_opts->noclobber())) { extra = str895; } else { extra = str896; } this->errfmt->Print_(StrFormat("Can't open %r: %s%s", arg->filename, pyutil::strerror(e), extra), r->op_loc); throw ; } new_fd = this->_PushDup(open_fd, r->loc); if (new_fd != NO_FD) { posix::close(open_fd); } if ((r->op_id == Id::Redir_AndGreat || r->op_id == Id::Redir_AndDGreat)) { this->_PushDup(new_fd, Alloc(2)); } } break; case redirect_arg_e::CopyFd: { redirect_arg::CopyFd* arg = static_cast(UP_arg); if (r->op_id == Id::Redir_GreatAnd) { this->_PushDup(arg->target_fd, r->loc); } else { if (r->op_id == Id::Redir_LessAnd) { this->_PushDup(arg->target_fd, r->loc); } else { FAIL(kNotImplemented); // Python NotImplementedError } } } break; case redirect_arg_e::MoveFd: { redirect_arg::MoveFd* arg = static_cast(UP_arg); new_fd = this->_PushDup(arg->target_fd, r->loc); if (new_fd != NO_FD) { posix::close(arg->target_fd); UP_loc = r->loc; if (r->loc->tag() == redir_loc_e::Fd) { fd = static_cast(UP_loc)->fd; } else { fd = NO_FD; } this->cur_frame->saved->append(Alloc<_RedirFrame>(new_fd, fd, false)); } } break; case redirect_arg_e::CloseFd: { this->_PushCloseFd(r->loc); } break; case redirect_arg_e::HereDoc: { redirect_arg::HereDoc* arg = static_cast(UP_arg); Tuple2 tup0 = posix::pipe(); read_fd = tup0.at0(); write_fd = tup0.at1(); this->_PushDup(read_fd, r->loc); this->_PushClose(read_fd); thunk = Alloc<_HereDocWriterThunk>(write_fd, arg->body); start_process = len(arg->body) > 4096; if (start_process) { here_proc = Alloc(thunk, this->job_control, this->job_list, this->tracer); here_proc->StartProcess(trace::HereDoc); this->_PushWait(here_proc); posix::close(write_fd); } else { posix::write(write_fd, arg->body); posix::close(write_fd); } } break; } } void FdState::Push(List* redirects, List* err_out) { process::_FdFrame* new_frame = nullptr; StackRoot _root0(&redirects); StackRoot _root1(&err_out); StackRoot _root2(&new_frame); new_frame = Alloc<_FdFrame>(); this->stack->append(new_frame); this->cur_frame = new_frame; for (ListIter it(redirects); !it.Done(); it.Next()) { runtime_asdl::RedirValue* r = it.Value(); StackRoot _for(&r ); { // with ui::ctx_Location ctx{this->errfmt, r->op_loc}; try { this->_ApplyRedirect(r); } catch (IOError_OSError* e) { err_out->append(e); this->Pop(err_out); return ; } } } } bool FdState::PushStdinFromPipe(int r) { process::_FdFrame* new_frame = nullptr; StackRoot _root0(&new_frame); new_frame = Alloc<_FdFrame>(); this->stack->append(new_frame); this->cur_frame = new_frame; this->_PushDup(r, Alloc(0)); return true; } void FdState::Pop(List* err_out) { process::_FdFrame* frame = nullptr; int unused_status; StackRoot _root0(&err_out); StackRoot _root1(&frame); frame = this->stack->pop(); for (ReverseListIter it(frame->saved); !it.Done(); it.Next()) { process::_RedirFrame* rf = it.Value(); StackRoot _for(&rf ); if (rf->saved_fd == NO_FD) { try { posix::close(rf->orig_fd); } catch (IOError_OSError* e) { err_out->append(e); mylib::print_stderr(StrFormat("Error closing descriptor %d: %s", rf->orig_fd, pyutil::strerror(e))); return ; } } else { try { posix::dup2(rf->saved_fd, rf->orig_fd); } catch (IOError_OSError* e) { err_out->append(e); mylib::print_stderr(StrFormat("dup2(%d, %d) error: %s", rf->saved_fd, rf->orig_fd, pyutil::strerror(e))); return ; } posix::close(rf->saved_fd); } } for (ListIter it(frame->need_wait); !it.Done(); it.Next()) { process::Process* proc = it.Value(); StackRoot _for(&proc ); unused_status = proc->Wait(this->waiter); } } void FdState::MakePermanent() { this->cur_frame->Forget(); } ChildStateChange::ChildStateChange() { ; // pass } void ChildStateChange::Apply() { FAIL(kNotImplemented); // Python NotImplementedError } void ChildStateChange::ApplyFromParent(process::Process* proc) { StackRoot _root0(&proc); ; // pass } StdinFromPipe::StdinFromPipe(int pipe_read_fd, int w) { this->r = pipe_read_fd; this->w = w; } void StdinFromPipe::Apply() { posix::dup2(this->r, 0); posix::close(this->r); posix::close(this->w); } StdoutToPipe::StdoutToPipe(int r, int pipe_write_fd) { this->r = r; this->w = pipe_write_fd; } void StdoutToPipe::Apply() { posix::dup2(this->w, 1); posix::close(this->w); posix::close(this->r); } int INVALID_PGID = -1; int OWN_LEADER = 0; SetPgid::SetPgid(int pgid, dev::Tracer* tracer) { this->pgid = pgid; this->tracer = tracer; } void SetPgid::Apply() { try { posix::setpgid(0, this->pgid); } catch (IOError_OSError* e) { this->tracer->OtherMessage(StrFormat("osh: child %d failed to set its process group to %d: %s", posix::getpid(), this->pgid, pyutil::strerror(e))); } } void SetPgid::ApplyFromParent(process::Process* proc) { StackRoot _root0(&proc); try { posix::setpgid(proc->pid, this->pgid); } catch (IOError_OSError* e) { this->tracer->OtherMessage(StrFormat("osh: parent failed to set process group for PID %d to %d: %s", proc->pid, this->pgid, pyutil::strerror(e))); } } ExternalProgram::ExternalProgram(BigStr* hijack_shebang, process::FdState* fd_state, ui::ErrorFormatter* errfmt, util::_DebugFile* debug_f) { this->hijack_shebang = hijack_shebang; this->fd_state = fd_state; this->errfmt = errfmt; this->debug_f = debug_f; } void ExternalProgram::Exec(BigStr* argv0_path, cmd_value::Argv* cmd_val, Dict* environ) { StackRoot _root0(&argv0_path); StackRoot _root1(&cmd_val); StackRoot _root2(&environ); DTRACE_PROBE1(process, ExternalProgram_Exec, argv0_path->data()); this->_Exec(argv0_path, cmd_val->argv, cmd_val->arg_locs->at(0), environ, true); } void ExternalProgram::_Exec(BigStr* argv0_path, List* argv, syntax_asdl::loc_t* argv0_loc, Dict* environ, bool should_retry) { bool opened; mylib::LineReader* f = nullptr; BigStr* line = nullptr; List* h_argv = nullptr; List* new_argv = nullptr; int status; StackRoot _root0(&argv0_path); StackRoot _root1(&argv); StackRoot _root2(&argv0_loc); StackRoot _root3(&environ); StackRoot _root4(&f); StackRoot _root5(&line); StackRoot _root6(&h_argv); StackRoot _root7(&new_argv); if (len(this->hijack_shebang)) { opened = true; try { f = this->fd_state->Open(argv0_path); } catch (IOError_OSError* e) { opened = false; } if (opened) { { // with ctx_FileCloser ctx{f}; line = f->readline(); if (match::ShouldHijack(line)) { h_argv = NewList(std::initializer_list{this->hijack_shebang, argv0_path}); h_argv->extend(argv->slice(1)); argv = h_argv; argv0_path = this->hijack_shebang; this->debug_f->writeln(StrFormat("Hijacked: %s", argv0_path)); } else { ; // pass } } } } try { posix::execve(argv0_path, argv, environ); } catch (IOError_OSError* e) { if ((e->errno_ == ENOEXEC and should_retry)) { new_argv = NewList(std::initializer_list{str905, argv0_path}); new_argv->extend(argv->slice(1)); this->_Exec(str906, new_argv, argv0_loc, environ, false); } this->errfmt->Print_(StrFormat("Can't execute %r: %s", argv0_path, pyutil::strerror(e)), argv0_loc); if (e->errno_ == EACCES) { status = 126; } else { if (e->errno_ == ENOENT) { status = 127; } else { status = 127; } } posix::_exit(status); } } Thunk::Thunk() { ; // pass } void Thunk::Run() { FAIL(kNotImplemented); // Python NotImplementedError } BigStr* Thunk::UserString() { FAIL(kNotImplemented); // Python NotImplementedError } ExternalThunk::ExternalThunk(process::ExternalProgram* ext_prog, BigStr* argv0_path, cmd_value::Argv* cmd_val, Dict* environ) { this->ext_prog = ext_prog; this->argv0_path = argv0_path; this->cmd_val = cmd_val; this->environ = environ; } BigStr* ExternalThunk::UserString() { List* tmp = nullptr; StackRoot _root0(&tmp); tmp = Alloc>(); for (ListIter it(this->cmd_val->argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); tmp->append(j8_lite::MaybeShellEncode(a)); } return StrFormat("[process] %s", str909->join(tmp)); } void ExternalThunk::Run() { this->ext_prog->Exec(this->argv0_path, this->cmd_val, this->environ); } SubProgramThunk::SubProgramThunk(cmd_eval::CommandEvaluator* cmd_ev, syntax_asdl::command_t* node, trap_osh::TrapState* trap_state, dev::MultiTracer* multi_trace, bool inherit_errexit, bool inherit_errtrace) { this->cmd_ev = cmd_ev; this->node = node; this->trap_state = trap_state; this->multi_trace = multi_trace; this->inherit_errexit = inherit_errexit; this->inherit_errtrace = inherit_errtrace; } BigStr* SubProgramThunk::UserString() { BigStr* thunk_str = nullptr; StackRoot _root0(&thunk_str); thunk_str = ui::CommandType(this->node); return StrFormat("[subprog] %s", thunk_str); } void SubProgramThunk::Run() { int status; DTRACE_PROBE(process, SubProgramThunk_Run); this->trap_state->ClearForSubProgram(this->inherit_errtrace); if (!this->inherit_errexit) { this->cmd_ev->mutable_opts->DisableErrExit(); } try { this->cmd_ev->ExecuteAndCatch(this->node, cmd_eval::Optimize); status = this->cmd_ev->LastStatus(); } catch (util::UserExit* e) { status = e->status; } catch (KeyboardInterrupt*) { print(str911); status = 130; } catch (IOError_OSError* e) { print_stderr(StrFormat("oils I/O error (subprogram): %s", pyutil::strerror(e))); status = 2; } pyos::FlushStdout(); this->multi_trace->WriteDumps(); posix::_exit(status); } _HereDocWriterThunk::_HereDocWriterThunk(int w, BigStr* body_str) { this->w = w; this->body_str = body_str; } BigStr* _HereDocWriterThunk::UserString() { return str913; } void _HereDocWriterThunk::Run() { DTRACE_PROBE(process, HereDocWriterThunk_Run); posix::write(this->w, this->body_str); posix::close(this->w); posix::_exit(0); } Job::Job() { this->state = job_state_e::Running; this->job_id = -1; this->in_background = false; } void Job::DisplayJob(int job_id, mylib::Writer* f, int style) { StackRoot _root0(&f); FAIL(kNotImplemented); // Python NotImplementedError } runtime_asdl::job_state_t Job::State() { return this->state; } int Job::ProcessGroupId() { FAIL(kNotImplemented); // Python NotImplementedError } runtime_asdl::wait_status_t* Job::JobWait(process::Waiter* waiter) { StackRoot _root0(&waiter); FAIL(kNotImplemented); // Python NotImplementedError } void Job::SetBackground() { this->in_background = true; } void Job::SetForeground() { this->in_background = false; } Process::Process(process::Thunk* thunk, process::JobControl* job_control, process::JobList* job_list, dev::Tracer* tracer) : ::process::Job() { this->thunk = thunk; this->job_control = job_control; this->job_list = job_list; this->tracer = tracer; this->parent_pipeline = nullptr; this->state_changes = Alloc>(); this->close_r = -1; this->close_w = -1; this->pid = -1; this->status = -1; } void Process::Init_ParentPipeline(process::Pipeline* pi) { StackRoot _root0(&pi); this->parent_pipeline = pi; } int Process::ProcessGroupId() { if (this->parent_pipeline) { return this->parent_pipeline->ProcessGroupId(); } return this->pid; } void Process::DisplayJob(int job_id, mylib::Writer* f, int style) { BigStr* job_id_str = nullptr; StackRoot _root0(&f); StackRoot _root1(&job_id_str); if (job_id == -1) { job_id_str = str915; } else { job_id_str = StrFormat("%%%d", job_id); } if (style == STYLE_PID_ONLY) { f->write(StrFormat("%d\n", this->pid)); } else { f->write(StrFormat("%s %d %7s ", job_id_str, this->pid, _JobStateStr(this->state))); f->write(this->thunk->UserString()); f->write(str919); } } void Process::AddStateChange(process::ChildStateChange* s) { StackRoot _root0(&s); this->state_changes->append(s); } void Process::AddPipeToClose(int r, int w) { this->close_r = r; this->close_w = w; } void Process::MaybeClosePipe() { if (this->close_r != -1) { posix::close(this->close_r); posix::close(this->close_w); } } int Process::StartProcess(runtime_asdl::trace_t* why) { int pid; StackRoot _root0(&why); pid = posix::fork(); if (pid < 0) { e_die(str920); } else { if (pid == 0) { for (ListIter it(this->state_changes); !it.Done(); it.Next()) { process::ChildStateChange* st = it.Value(); StackRoot _for(&st ); st->Apply(); } pyos::Sigaction(SIGPIPE, SIG_DFL); pyos::Sigaction(SIGQUIT, SIG_DFL); pid = posix::getpid(); if ((posix::getpgid(0) == pid and this->parent_pipeline == nullptr)) { pyos::Sigaction(SIGTSTP, SIG_DFL); } pyos::Sigaction(SIGTTOU, SIG_DFL); pyos::Sigaction(SIGTTIN, SIG_DFL); this->tracer->OnNewProcess(pid); this->thunk->Run(); } } this->tracer->OnProcessStart(pid, why); this->pid = pid; for (ListIter it(this->state_changes); !it.Done(); it.Next()) { process::ChildStateChange* st = it.Value(); StackRoot _for(&st ); st->ApplyFromParent(this); } this->job_list->AddChildProcess(pid, this); return pid; } int Process::Wait(process::Waiter* waiter) { StackRoot _root0(&waiter); while (this->state == job_state_e::Running) { if (waiter->WaitForOne() == W1_ECHILD) { break; } } return this->status; } runtime_asdl::wait_status_t* Process::JobWait(process::Waiter* waiter) { int result; StackRoot _root0(&waiter); while (this->state == job_state_e::Running) { result = waiter->WaitForOne(); if (result >= 0) { return Alloc(result); } if (result == W1_ECHILD) { break; } } return Alloc(this->status); } void Process::WhenStopped(int stop_sig) { this->status = (128 + stop_sig); this->state = job_state_e::Stopped; if (this->job_id == -1) { this->job_list->AddJob(this); } if (!this->in_background) { this->job_control->MaybeTakeTerminal(); this->SetBackground(); } } void Process::WhenDone(int pid, int status) { this->status = status; this->state = job_state_e::Done; if (this->parent_pipeline) { this->parent_pipeline->WhenDone(pid, status); } else { if (this->job_id != -1) { if (this->in_background) { print_stderr(StrFormat("[%d] Done PID %d", this->job_id, this->pid)); } this->job_list->RemoveJob(this->job_id); } this->job_list->RemoveChildProcess(this->pid); if (!this->in_background) { this->job_control->MaybeTakeTerminal(); } } } int Process::RunProcess(process::Waiter* waiter, runtime_asdl::trace_t* why) { StackRoot _root0(&waiter); StackRoot _root1(&why); this->StartProcess(why); if (this->parent_pipeline == nullptr) { this->job_control->MaybeGiveTerminal(posix::getpgid(this->pid)); } return this->Wait(waiter); } ctx_Pipe::ctx_Pipe(process::FdState* fd_state, int fd, List* err_out) { gHeap.PushRoot(reinterpret_cast(&(this->err_out))); gHeap.PushRoot(reinterpret_cast(&(this->fd_state))); fd_state->PushStdinFromPipe(fd); this->fd_state = fd_state; this->err_out = err_out; } ctx_Pipe::~ctx_Pipe() { this->fd_state->Pop(this->err_out); gHeap.PopRoot(); gHeap.PopRoot(); } Pipeline::Pipeline(bool sigpipe_status_ok, process::JobControl* job_control, process::JobList* job_list, dev::Tracer* tracer) : ::process::Job() { this->job_control = job_control; this->job_list = job_list; this->tracer = tracer; this->procs = Alloc>(); this->pids = Alloc>(); this->pipe_status = Alloc>(); this->status = -1; this->pgid = INVALID_PGID; this->last_thunk = nullptr; this->last_pipe = nullptr; this->sigpipe_status_ok = sigpipe_status_ok; } int Pipeline::ProcessGroupId() { return this->pgid; } void Pipeline::DisplayJob(int job_id, mylib::Writer* f, int style) { int i; BigStr* job_id_str = nullptr; StackRoot _root0(&f); StackRoot _root1(&job_id_str); if (style == STYLE_PID_ONLY) { f->write(StrFormat("%d\n", this->procs->at(0)->pid)); } else { i = 0; for (ListIter it(this->procs); !it.Done(); it.Next(), ++i) { process::Process* proc = it.Value(); StackRoot _for(&proc ); if (i == 0) { job_id_str = StrFormat("%%%d", job_id); } else { job_id_str = str924; f->write(StrFormat("%s %d %7s ", job_id_str, proc->pid, _JobStateStr(proc->state))); f->write(proc->thunk->UserString()); f->write(str926); } } } } void Pipeline::DebugPrint() { print(StrFormat("Pipeline in state %s", _JobStateStr(this->state))); } void Pipeline::Add(process::Process* p) { int r; int w; process::Process* prev = nullptr; StackRoot _root0(&p); StackRoot _root1(&prev); if (len(this->procs) == 0) { this->procs->append(p); return ; } Tuple2 tup1 = posix::pipe(); r = tup1.at0(); w = tup1.at1(); prev = this->procs->at(-1); prev->AddStateChange(Alloc(r, w)); p->AddStateChange(Alloc(r, w)); p->AddPipeToClose(r, w); this->procs->append(p); } void Pipeline::AddLast(Tuple2* thunk) { int r; int w; process::Process* prev = nullptr; StackRoot _root0(&thunk); StackRoot _root1(&prev); this->last_thunk = thunk; Tuple2 tup2 = posix::pipe(); r = tup2.at0(); w = tup2.at1(); prev = this->procs->at(-1); prev->AddStateChange(Alloc(r, w)); this->last_pipe = (Alloc>(r, w)); } void Pipeline::StartPipeline(process::Waiter* waiter) { int i; int pid; StackRoot _root0(&waiter); if (this->job_control->Enabled()) { this->pgid = OWN_LEADER; } i = 0; for (ListIter it(this->procs); !it.Done(); it.Next(), ++i) { process::Process* proc = it.Value(); StackRoot _for(&proc ); if (this->pgid != INVALID_PGID) { proc->AddStateChange(Alloc(this->pgid, this->tracer)); } pid = proc->StartProcess(trace::PipelinePart); if ((i == 0 and this->pgid != INVALID_PGID)) { this->pgid = pid; } this->pids->append(pid); this->pipe_status->append(-1); proc->MaybeClosePipe(); } if (this->last_thunk) { this->pipe_status->append(-1); } } int Pipeline::LastPid() { return this->pids->at(-1); } List* Pipeline::Wait(process::Waiter* waiter) { StackRoot _root0(&waiter); while (this->state == job_state_e::Running) { if (waiter->WaitForOne() == W1_ECHILD) { break; } } return this->pipe_status; } runtime_asdl::wait_status_t* Pipeline::JobWait(process::Waiter* waiter) { int result; StackRoot _root0(&waiter); while (this->state == job_state_e::Running) { result = waiter->WaitForOne(); if (result >= 0) { return Alloc(result); } if (result == W1_ECHILD) { break; } } return Alloc(this->pipe_status); } List* Pipeline::RunLastPart(process::Waiter* waiter, process::FdState* fd_state) { cmd_eval::CommandEvaluator* cmd_ev = nullptr; syntax_asdl::command_t* last_node = nullptr; int r; int w; int cmd_flags; List* io_errors = nullptr; StackRoot _root0(&waiter); StackRoot _root1(&fd_state); StackRoot _root2(&cmd_ev); StackRoot _root3(&last_node); StackRoot _root4(&io_errors); this->job_control->MaybeGiveTerminal(this->pgid); Tuple2* tup3 = this->last_thunk; cmd_ev = tup3->at0(); last_node = tup3->at1(); Tuple2* tup4 = this->last_pipe; r = tup4->at0(); w = tup4->at1(); posix::close(w); cmd_flags = this->job_control->Enabled() ? cmd_eval::NoDebugTrap : 0; cmd_flags |= cmd_eval::NoErrTrap; io_errors = Alloc>(); { // with ctx_Pipe ctx{fd_state, r, io_errors}; cmd_ev->ExecuteAndCatch(last_node, cmd_flags); } if (len(io_errors)) { e_die(StrFormat("Error setting up last part of pipeline: %s", pyutil::strerror(io_errors->at(0)))); } posix::close(r); this->pipe_status->set(-1, cmd_ev->LastStatus()); if (this->AllDone()) { this->state = job_state_e::Done; } return this->Wait(waiter); } bool Pipeline::AllDone() { for (ListIter it(this->pipe_status); !it.Done(); it.Next()) { int status = it.Value(); if (status == -1) { return false; } } return true; } void Pipeline::WhenDone(int pid, int status) { int i; i = this->pids->index(pid); if ((status == 141 and this->sigpipe_status_ok)) { status = 0; } this->job_list->RemoveChildProcess(pid); this->pipe_status->set(i, status); if (this->AllDone()) { if (this->job_id != -1) { if (this->in_background) { print_stderr(StrFormat("[%d] Done PGID %d", this->job_id, this->pids->at(0))); } this->job_list->RemoveJob(this->job_id); } this->status = this->pipe_status->at(-1); this->state = job_state_e::Done; if (!this->in_background) { this->job_control->MaybeTakeTerminal(); } } } BigStr* _JobStateStr(runtime_asdl::job_state_t i) { return job_state_str(i)->slice(10); } int _GetTtyFd() { try { return posix::open(str930, ((O_NONBLOCK | O_NOCTTY) | O_RDWR), 438); } catch (IOError_OSError* e) { return -1; } } ctx_TerminalControl::ctx_TerminalControl(process::JobControl* job_control, ui::ErrorFormatter* errfmt) { gHeap.PushRoot(reinterpret_cast(&(this->errfmt))); gHeap.PushRoot(reinterpret_cast(&(this->job_control))); job_control->InitJobControl(); this->job_control = job_control; this->errfmt = errfmt; } ctx_TerminalControl::~ctx_TerminalControl() { try { this->job_control->MaybeReturnTerminal(); } catch (error::FatalRuntime* e) { this->errfmt->PrettyPrintError(e); } gHeap.PopRoot(); gHeap.PopRoot(); } JobControl::JobControl() { this->shell_pid = -1; this->shell_pgid = -1; this->shell_tty_fd = -1; this->original_tty_pgid = -1; } void JobControl::InitJobControl() { int orig_shell_pgid; this->shell_pid = posix::getpid(); orig_shell_pgid = posix::getpgid(0); this->shell_pgid = orig_shell_pgid; this->shell_tty_fd = _GetTtyFd(); if (this->shell_pgid != this->shell_pid) { try { posix::setpgid(this->shell_pid, this->shell_pid); this->shell_pgid = this->shell_pid; } catch (IOError_OSError* e) { this->shell_tty_fd = -1; } } if (this->shell_tty_fd != -1) { this->original_tty_pgid = posix::tcgetpgrp(this->shell_tty_fd); try { posix::tcsetpgrp(this->shell_tty_fd, this->shell_pgid); } catch (IOError_OSError* e) { this->shell_tty_fd = -1; this->shell_pgid = orig_shell_pgid; posix::setpgid(this->shell_pid, this->shell_pgid); } } } bool JobControl::Enabled() { int curr_pid; curr_pid = posix::getpid(); return (curr_pid == this->shell_pid and this->shell_tty_fd != -1); } void JobControl::MaybeGiveTerminal(int pgid) { if (!this->Enabled()) { return ; } try { posix::tcsetpgrp(this->shell_tty_fd, pgid); } catch (IOError_OSError* e) { e_die(StrFormat("osh: Failed to move process group %d to foreground: %s", pgid, pyutil::strerror(e))); } } void JobControl::MaybeTakeTerminal() { this->MaybeGiveTerminal(this->shell_pgid); } void JobControl::MaybeReturnTerminal() { this->MaybeGiveTerminal(this->original_tty_pgid); } JobList::JobList() { this->jobs = Alloc>(); this->child_procs = Alloc>(); this->debug_pipelines = Alloc>(); this->job_id = 1; } int JobList::AddJob(process::Job* job) { int job_id; StackRoot _root0(&job); job_id = this->job_id; this->jobs->set(job_id, job); job->job_id = job_id; this->job_id += 1; return job_id; } void JobList::RemoveJob(int job_id) { mylib::dict_erase(this->jobs, job_id); if (len(this->jobs) == 0) { this->job_id = 1; } } void JobList::AddChildProcess(int pid, process::Process* proc) { StackRoot _root0(&proc); this->child_procs->set(pid, proc); } void JobList::RemoveChildProcess(int pid) { mylib::dict_erase(this->child_procs, pid); } process::Process* JobList::ProcessFromPid(int pid) { return this->child_procs->get(pid); } Tuple2 JobList::GetCurrentAndPreviousJobs() { List* stopped_jobs = nullptr; List* running_jobs = nullptr; process::Job* job = nullptr; process::Job* current = nullptr; process::Job* previous = nullptr; StackRoot _root0(&stopped_jobs); StackRoot _root1(&running_jobs); StackRoot _root2(&job); StackRoot _root3(¤t); StackRoot _root4(&previous); stopped_jobs = Alloc>(); running_jobs = Alloc>(); for (int i = 0; i < this->job_id; ++i) { job = this->jobs->get(i, nullptr); if (!job) { continue; } if (job->state == job_state_e::Stopped) { stopped_jobs->append(job); } else { if (job->state == job_state_e::Running) { running_jobs->append(job); } } } current = nullptr; previous = nullptr; if (len(stopped_jobs) > 0) { current = stopped_jobs->pop(); } if (len(stopped_jobs) > 0) { previous = stopped_jobs->pop(); } if ((len(running_jobs) > 0 and !current)) { current = running_jobs->pop(); } if ((len(running_jobs) > 0 and !previous)) { previous = running_jobs->pop(); } if (!previous) { previous = current; } return Tuple2(current, previous); } process::Job* JobList::GetJobWithSpec(BigStr* job_spec) { process::Job* current = nullptr; process::Job* previous = nullptr; List* m = nullptr; int job_id; StackRoot _root0(&job_spec); StackRoot _root1(¤t); StackRoot _root2(&previous); StackRoot _root3(&m); if (list_contains(CURRENT_JOB_SPECS, job_spec)) { Tuple2 tup5 = this->GetCurrentAndPreviousJobs(); current = tup5.at0(); return current; } if (str_equals(job_spec, str932)) { Tuple2 tup6 = this->GetCurrentAndPreviousJobs(); previous = tup6.at1(); return previous; } m = util::RegexSearch(str933, job_spec); if (m != nullptr) { job_id = to_int(m->at(1)); if (dict_contains(this->jobs, job_id)) { return this->jobs->at(job_id); } } return nullptr; } void JobList::DisplayJobs(int style) { mylib::Writer* f = nullptr; StackRoot _root0(&f); f = mylib::Stdout(); for (DictIter it(this->jobs); !it.Done(); it.Next()) { int job_id = it.Key(); process::Job* job = it.Value(); job->DisplayJob(job_id, f, style); } } void JobList::DebugPrint() { mylib::Writer* f = nullptr; StackRoot _root0(&f); f = mylib::Stdout(); f->write(str934); f->write(str935); for (DictIter it(this->child_procs); !it.Done(); it.Next()) { int pid = it.Key(); process::Process* proc = it.Value(); proc->DisplayJob(-1, f, STYLE_DEFAULT); } if (len(this->debug_pipelines)) { f->write(str936); f->write(str937); for (ListIter it(this->debug_pipelines); !it.Done(); it.Next()) { process::Pipeline* pi = it.Value(); StackRoot _for(&pi ); pi->DebugPrint(); } } } void JobList::ListRecent() { ; // pass } int JobList::NumRunning() { int count; count = 0; for (DictIter it(this->jobs); !it.Done(); it.Next()) { int _ = it.Key(); process::Job* job = it.Value(); if (job->State() == job_state_e::Running) { count += 1; } } return count; } int W1_OK = -2; int W1_ECHILD = -3; int W1_AGAIN = -4; Waiter::Waiter(process::JobList* job_list, optview::Exec* exec_opts, pyos::SignalSafe* signal_safe, dev::Tracer* tracer) { this->job_list = job_list; this->exec_opts = exec_opts; this->signal_safe = signal_safe; this->tracer = tracer; this->last_status = 127; } int Waiter::WaitForOne(int waitpid_options) { int pid; int status; int err_num; process::Process* proc = nullptr; int term_sig; int stop_sig; StackRoot _root0(&proc); Tuple2 tup7 = pyos::WaitPid(waitpid_options); pid = tup7.at0(); status = tup7.at1(); if (pid == 0) { return W1_AGAIN; } else { if (pid < 0) { err_num = status; if (err_num == ECHILD) { return W1_ECHILD; } else { if (err_num == EINTR) { return this->signal_safe->LastSignal(); } else { assert(0); // AssertionError } } } } if (!dict_contains(this->job_list->child_procs, pid)) { print_stderr(StrFormat("osh: PID %d stopped, but osh didn't start it", pid)); return W1_OK; } proc = this->job_list->child_procs->at(pid); if (WIFSIGNALED(status)) { term_sig = WTERMSIG(status); status = (128 + term_sig); if (term_sig == SIGINT) { print(str939); } proc->WhenDone(pid, status); } else { if (WIFEXITED(status)) { status = WEXITSTATUS(status); proc->WhenDone(pid, status); } else { if (WIFSTOPPED(status)) { stop_sig = WSTOPSIG(status); print_stderr(str940); print_stderr(StrFormat("[PID %d] Stopped with signal %d", pid, stop_sig)); proc->WhenStopped(stop_sig); } else { assert(0); // AssertionError } } } this->last_status = status; this->tracer->OnProcessEnd(pid, status); return W1_OK; } void Waiter::PollNotifications() { while (this->WaitForOne(WNOHANG) == W1_OK) { continue; } } } // define namespace process namespace state { // define using id_kind_asdl::Id; using option_asdl::option_i; using runtime_asdl::scope_e; using runtime_asdl::scope_t; using runtime_asdl::Cell; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::Token; using syntax_asdl::debug_frame; using syntax_asdl::debug_frame_e; using syntax_asdl::debug_frame_t; using types_asdl::opt_group_i; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::sh_lvalue; using value_asdl::sh_lvalue_e; using value_asdl::sh_lvalue_t; using value_asdl::LeftName; using value_asdl::y_lvalue_e; using value_asdl::regex_match; using value_asdl::regex_match_e; using value_asdl::regex_match_t; using value_asdl::RegexMatch; using error::e_usage; using error::e_die; using mylib::print_stderr; BigStr* _READLINE_DELIMS = str942; int SetReadOnly = (1 << 0); int ClearReadOnly = (1 << 1); int SetExport = (1 << 2); int ClearExport = (1 << 3); int SetNameref = (1 << 4); int ClearNameref = (1 << 5); BigStr* LookupExecutable(BigStr* name, List* path_dirs, bool exec_required) { BigStr* full_path = nullptr; bool found; StackRoot _root0(&name); StackRoot _root1(&path_dirs); StackRoot _root2(&full_path); if (len(name) == 0) { return nullptr; } if (str_contains(name, str943)) { return path_stat::exists(name) ? name : nullptr; } for (ListIter it(path_dirs); !it.Done(); it.Next()) { BigStr* path_dir = it.Value(); StackRoot _for(&path_dir ); full_path = os_path::join(path_dir, name); if (exec_required) { found = posix::access(full_path, X_OK); } else { found = path_stat::exists(full_path); } if (found) { return full_path; } } return nullptr; } SearchPath::SearchPath(state::Mem* mem) { this->mem = mem; this->cache = Alloc>(); } List* SearchPath::_GetPath() { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); val = this->mem->GetValue(str944); UP_val = val; if (val->tag() == value_e::Str) { value::Str* val = static_cast(UP_val); return val->s->split(str945); } else { return Alloc>(); } } BigStr* SearchPath::LookupOne(BigStr* name, bool exec_required) { StackRoot _root0(&name); return LookupExecutable(name, this->_GetPath(), exec_required); } List* SearchPath::LookupReflect(BigStr* name, bool do_all) { List* results = nullptr; BigStr* full_path = nullptr; StackRoot _root0(&name); StackRoot _root1(&results); StackRoot _root2(&full_path); if (len(name) == 0) { return Alloc>(); } if (str_contains(name, str946)) { if (path_stat::exists(name)) { return NewList(std::initializer_list{name}); } else { return Alloc>(); } } results = Alloc>(); for (ListIter it(this->_GetPath()); !it.Done(); it.Next()) { BigStr* path_dir = it.Value(); StackRoot _for(&path_dir ); full_path = os_path::join(path_dir, name); if (path_stat::exists(full_path)) { results->append(full_path); if (!do_all) { return results; } } } return results; } BigStr* SearchPath::CachedLookup(BigStr* name) { BigStr* full_path = nullptr; StackRoot _root0(&name); StackRoot _root1(&full_path); if (dict_contains(this->cache, name)) { return this->cache->at(name); } full_path = this->LookupOne(name); if (full_path != nullptr) { this->cache->set(name, full_path); } return full_path; } void SearchPath::MaybeRemoveEntry(BigStr* name) { StackRoot _root0(&name); mylib::dict_erase(this->cache, name); } void SearchPath::ClearCache() { this->cache->clear(); } List* SearchPath::CachedCommands() { return this->cache->values(); } ctx_Source::ctx_Source(state::Mem* mem, BigStr* source_name, List* argv) { gHeap.PushRoot(reinterpret_cast(&(this->argv))); gHeap.PushRoot(reinterpret_cast(&(this->mem))); mem->PushSource(source_name, argv); this->mem = mem; this->argv = argv; this->to_restore = this->mem->is_main; this->mem->is_main = false; } ctx_Source::~ctx_Source() { this->mem->PopSource(this->argv); this->mem->is_main = this->to_restore; gHeap.PopRoot(); gHeap.PopRoot(); } ctx_DebugTrap::ctx_DebugTrap(state::Mem* mem) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); mem->running_debug_trap = true; this->mem = mem; } ctx_DebugTrap::~ctx_DebugTrap() { this->mem->running_debug_trap = false; gHeap.PopRoot(); } ctx_ErrTrap::ctx_ErrTrap(state::Mem* mem) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); mem->running_err_trap = true; this->mem = mem; } ctx_ErrTrap::~ctx_ErrTrap() { this->mem->running_err_trap = false; gHeap.PopRoot(); } ctx_Option::ctx_Option(state::MutableOpts* mutable_opts, List* opt_nums, bool b) { gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); gHeap.PushRoot(reinterpret_cast(&(this->opt_nums))); for (ListIter it(opt_nums); !it.Done(); it.Next()) { int opt_num = it.Value(); mutable_opts->Push(opt_num, b); if (opt_num == option_i::errexit) { mutable_opts->errexit_disabled_tok->append(nullptr); } } this->mutable_opts = mutable_opts; this->opt_nums = opt_nums; } ctx_Option::~ctx_Option() { for (ListIter it(this->opt_nums); !it.Done(); it.Next()) { int opt_num = it.Value(); if (opt_num == option_i::errexit) { this->mutable_opts->errexit_disabled_tok->pop(); } this->mutable_opts->Pop(opt_num); } gHeap.PopRoot(); gHeap.PopRoot(); } ctx_AssignBuiltin::ctx_AssignBuiltin(state::MutableOpts* mutable_opts) { gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); this->strict = false; if (mutable_opts->Get(option_i::strict_errexit)) { mutable_opts->Push(option_i::_allow_command_sub, false); mutable_opts->Push(option_i::_allow_process_sub, false); this->strict = true; } this->mutable_opts = mutable_opts; } ctx_AssignBuiltin::~ctx_AssignBuiltin() { if (this->strict) { this->mutable_opts->Pop(option_i::_allow_command_sub); this->mutable_opts->Pop(option_i::_allow_process_sub); } gHeap.PopRoot(); } ctx_YshExpr::ctx_YshExpr(state::MutableOpts* mutable_opts) { gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); mutable_opts->Push(option_i::command_sub_errexit, true); mutable_opts->Push(option_i::errexit, true); mutable_opts->Push(option_i::pipefail, true); mutable_opts->Push(option_i::inherit_errexit, true); mutable_opts->Push(option_i::strict_errexit, true); this->mutable_opts = mutable_opts; } ctx_YshExpr::~ctx_YshExpr() { this->mutable_opts->Pop(option_i::command_sub_errexit); this->mutable_opts->Pop(option_i::errexit); this->mutable_opts->Pop(option_i::pipefail); this->mutable_opts->Pop(option_i::inherit_errexit); this->mutable_opts->Pop(option_i::strict_errexit); gHeap.PopRoot(); } ctx_ErrExit::ctx_ErrExit(state::MutableOpts* mutable_opts, bool b, syntax_asdl::Token* disabled_tok) { gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); mutable_opts->Push(option_i::errexit, b); mutable_opts->errexit_disabled_tok->append(disabled_tok); this->strict = false; if (mutable_opts->Get(option_i::strict_errexit)) { mutable_opts->Push(option_i::_allow_command_sub, false); mutable_opts->Push(option_i::_allow_process_sub, false); this->strict = true; } this->mutable_opts = mutable_opts; } ctx_ErrExit::~ctx_ErrExit() { this->mutable_opts->errexit_disabled_tok->pop(); this->mutable_opts->Pop(option_i::errexit); if (this->strict) { this->mutable_opts->Pop(option_i::_allow_command_sub); this->mutable_opts->Pop(option_i::_allow_process_sub); } gHeap.PopRoot(); } OptHook::OptHook() { ; // pass } bool OptHook::OnChange(List* opt0_array, BigStr* opt_name, bool b) { StackRoot _root0(&opt0_array); StackRoot _root1(&opt_name); return true; } List* InitOpts() { List* opt0_array = nullptr; StackRoot _root0(&opt0_array); opt0_array = list_repeat(false, option_i::ARRAY_SIZE); for (ListIter it(consts::DEFAULT_TRUE); !it.Done(); it.Next()) { int opt_num = it.Value(); opt0_array->set(opt_num, true); } return opt0_array; } Tuple3 MakeOpts(state::Mem* mem, state::OptHook* opt_hook) { List* opt0_array = nullptr; List* no_stack = nullptr; List*>* opt_stacks = nullptr; optview::Parse* parse_opts = nullptr; optview::Exec* exec_opts = nullptr; state::MutableOpts* mutable_opts = nullptr; StackRoot _root0(&mem); StackRoot _root1(&opt_hook); StackRoot _root2(&opt0_array); StackRoot _root3(&no_stack); StackRoot _root4(&opt_stacks); StackRoot _root5(&parse_opts); StackRoot _root6(&exec_opts); StackRoot _root7(&mutable_opts); opt0_array = InitOpts(); no_stack = nullptr; opt_stacks = list_repeat(no_stack, option_i::ARRAY_SIZE); parse_opts = Alloc(opt0_array, opt_stacks); exec_opts = Alloc(opt0_array, opt_stacks); mutable_opts = Alloc(mem, opt0_array, opt_stacks, opt_hook); return Tuple3(parse_opts, exec_opts, mutable_opts); } void _SetGroup(List* opt0_array, List* opt_nums, bool b) { bool b2; StackRoot _root0(&opt0_array); StackRoot _root1(&opt_nums); for (ListIter it(opt_nums); !it.Done(); it.Next()) { int opt_num = it.Value(); b2 = list_contains(consts::DEFAULT_TRUE, opt_num) ? !b : b; opt0_array->set(opt_num, b2); } } optview::Parse* MakeOilOpts() { List* opt0_array = nullptr; List* no_stack = nullptr; List*>* opt_stacks = nullptr; optview::Parse* parse_opts = nullptr; StackRoot _root0(&opt0_array); StackRoot _root1(&no_stack); StackRoot _root2(&opt_stacks); StackRoot _root3(&parse_opts); opt0_array = InitOpts(); _SetGroup(opt0_array, consts::YSH_ALL, true); no_stack = nullptr; opt_stacks = list_repeat(no_stack, option_i::ARRAY_SIZE); parse_opts = Alloc(opt0_array, opt_stacks); return parse_opts; } int _AnyOptionNum(BigStr* opt_name) { int opt_num; StackRoot _root0(&opt_name); opt_num = consts::OptionNum(opt_name); if (opt_num == 0) { e_usage(StrFormat("got invalid option %r", opt_name), loc::Missing); } return opt_num; } int _SetOptionNum(BigStr* opt_name) { int opt_num; StackRoot _root0(&opt_name); opt_num = consts::OptionNum(opt_name); if (opt_num == 0) { e_usage(StrFormat("got invalid option %r", opt_name), loc::Missing); } if (!list_contains(consts::SET_OPTION_NUMS, opt_num)) { e_usage(StrFormat("invalid option %r (try shopt)", opt_name), loc::Missing); } return opt_num; } MutableOpts::MutableOpts(state::Mem* mem, List* opt0_array, List*>* opt_stacks, state::OptHook* opt_hook) { this->mem = mem; this->opt0_array = opt0_array; this->opt_stacks = opt_stacks; this->errexit_disabled_tok = Alloc>(); this->opt_hook = opt_hook; } void MutableOpts::Init() { value_asdl::value_t* UP_shellopts = nullptr; StackRoot _root0(&UP_shellopts); UP_shellopts = this->mem->GetValue(str950); if (UP_shellopts->tag() == value_e::Str) { value::Str* shellopts = static_cast(UP_shellopts); this->_InitOptionsFromEnv(shellopts->s); } } void MutableOpts::_InitOptionsFromEnv(BigStr* shellopts) { List* lookup = nullptr; BigStr* name = nullptr; StackRoot _root0(&shellopts); StackRoot _root1(&lookup); StackRoot _root2(&name); lookup = shellopts->split(str951); for (ListIter it(consts::SET_OPTION_NUMS); !it.Done(); it.Next()) { int opt_num = it.Value(); name = consts::OptionName(opt_num); if (list_contains(lookup, name)) { this->_SetOldOption(name, true); } } } void MutableOpts::Push(int opt_num, bool b) { List* overlay = nullptr; StackRoot _root0(&overlay); overlay = this->opt_stacks->at(opt_num); if ((overlay == nullptr or len(overlay) == 0)) { this->opt_stacks->set(opt_num, NewList(std::initializer_list{b})); } else { overlay->append(b); } } bool MutableOpts::Pop(int opt_num) { List* overlay = nullptr; StackRoot _root0(&overlay); overlay = this->opt_stacks->at(opt_num); return overlay->pop(); } void MutableOpts::PushDynamicScope(bool b) { if (!this->Get(option_i::dynamic_scope)) { b = false; } this->Push(option_i::dynamic_scope, b); } void MutableOpts::PopDynamicScope() { this->Pop(option_i::dynamic_scope); } bool MutableOpts::Get(int opt_num) { List* overlay = nullptr; StackRoot _root0(&overlay); overlay = this->opt_stacks->at(opt_num); if ((overlay == nullptr or len(overlay) == 0)) { return this->opt0_array->at(opt_num); } else { return overlay->at(-1); } } void MutableOpts::_Set(int opt_num, bool b) { List* overlay = nullptr; StackRoot _root0(&overlay); overlay = this->opt_stacks->at(opt_num); if ((overlay == nullptr or len(overlay) == 0)) { this->opt0_array->set(opt_num, b); } else { overlay->set(-1, b); } } void MutableOpts::set_interactive() { this->_Set(option_i::interactive, true); } void MutableOpts::set_redefine_proc_func() { this->_Set(option_i::redefine_proc_func, true); } void MutableOpts::set_redefine_module() { this->_Set(option_i::redefine_module, true); } void MutableOpts::set_emacs() { this->_Set(option_i::emacs, true); } void MutableOpts::set_xtrace(bool b) { this->_Set(option_i::xtrace, b); } void MutableOpts::_SetArrayByNum(int opt_num, bool b) { if ((list_contains(consts::PARSE_OPTION_NUMS, opt_num) and !this->mem->ParsingChangesAllowed())) { e_die(str952); } this->_Set(opt_num, b); } void MutableOpts::SetDeferredErrExit(bool b) { this->opt0_array->set(option_i::errexit, b); } void MutableOpts::DisableErrExit() { this->_Set(option_i::errexit, false); } syntax_asdl::Token* MutableOpts::ErrExitDisabledToken() { if (this->Get(option_i::_running_trap)) { return nullptr; } if (len(this->errexit_disabled_tok) == 0) { return nullptr; } return this->errexit_disabled_tok->at(-1); } bool MutableOpts::ErrExitIsDisabled() { if (len(this->errexit_disabled_tok) == 0) { return false; } return this->errexit_disabled_tok->at(-1) != nullptr; } void MutableOpts::_SetOldOption(BigStr* opt_name, bool b) { int opt_num; bool success; StackRoot _root0(&opt_name); opt_num = consts::OptionNum(opt_name); if (opt_num == option_i::errexit) { this->SetDeferredErrExit(b); } else { if ((opt_num == option_i::verbose and b)) { print_stderr(str953); } this->_SetArrayByNum(opt_num, b); } success = this->opt_hook->OnChange(this->opt0_array, opt_name, b); } void MutableOpts::SetOldOption(BigStr* opt_name, bool b) { int unused; value_asdl::value_t* UP_val = nullptr; BigStr* shellopts = nullptr; value::Str* new_val = nullptr; List* names = nullptr; StackRoot _root0(&opt_name); StackRoot _root1(&UP_val); StackRoot _root2(&shellopts); StackRoot _root3(&new_val); StackRoot _root4(&names); unused = _SetOptionNum(opt_name); this->_SetOldOption(opt_name, b); UP_val = this->mem->GetValue(str954); value::Str* val = static_cast(UP_val); shellopts = val->s; if (b) { if (!str_contains(shellopts, opt_name)) { new_val = Alloc(StrFormat("%s:%s", shellopts, opt_name)); this->mem->InternalSetGlobal(str956, new_val); } } else { if (str_contains(shellopts, opt_name)) { names = Alloc>(); for (ListIter it(shellopts->split(str957)); !it.Done(); it.Next()) { BigStr* n = it.Value(); if (!(str_equals(n, opt_name))) { names->append(n); } } new_val = Alloc(str958->join(names)); this->mem->InternalSetGlobal(str959, new_val); } } } void MutableOpts::SetAnyOption(BigStr* opt_name, bool b) { int opt_group; int opt_num; StackRoot _root0(&opt_name); opt_group = consts::OptionGroupNum(opt_name); if (opt_group == opt_group_i::YshUpgrade) { _SetGroup(this->opt0_array, consts::YSH_UPGRADE, b); this->SetDeferredErrExit(b); return ; } if (opt_group == opt_group_i::YshAll) { _SetGroup(this->opt0_array, consts::YSH_ALL, b); this->SetDeferredErrExit(b); return ; } if (opt_group == opt_group_i::StrictAll) { _SetGroup(this->opt0_array, consts::STRICT_ALL, b); return ; } opt_num = _AnyOptionNum(opt_name); if (opt_num == option_i::errexit) { this->SetDeferredErrExit(b); return ; } this->_SetArrayByNum(opt_num, b); } void MutableOpts::ShowOptions(List* opt_names) { int opt_num; bool b; StackRoot _root0(&opt_names); if (len(opt_names) == 0) { opt_names = Alloc>(); for (ListIter it(consts::SET_OPTION_NUMS); !it.Done(); it.Next()) { int i = it.Value(); opt_names->append(consts::OptionName(i)); } } for (ListIter it(opt_names); !it.Done(); it.Next()) { BigStr* opt_name = it.Value(); StackRoot _for(&opt_name ); opt_num = _SetOptionNum(opt_name); b = this->Get(opt_num); print(StrFormat("set %so %s", b ? str961 : str962, opt_name)); } } void MutableOpts::ShowShoptOptions(List* opt_names) { List* opt_nums = nullptr; int opt_group; int index; bool b; StackRoot _root0(&opt_names); StackRoot _root1(&opt_nums); opt_nums = Alloc>(); for (ListIter it(opt_names); !it.Done(); it.Next()) { BigStr* opt_name = it.Value(); StackRoot _for(&opt_name ); opt_group = consts::OptionGroupNum(opt_name); if (opt_group == opt_group_i::YshUpgrade) { opt_nums->extend(consts::YSH_UPGRADE); } else { if (opt_group == opt_group_i::YshAll) { opt_nums->extend(consts::YSH_ALL); } else { if (opt_group == opt_group_i::StrictAll) { opt_nums->extend(consts::STRICT_ALL); } else { index = consts::OptionNum(opt_name); if (index == 0) { e_usage(StrFormat("got invalid option %r", opt_name), loc::Missing); } opt_nums->append(index); } } } } if (len(opt_names) == 0) { opt_nums->extend(consts::VISIBLE_SHOPT_NUMS); } for (ListIter it(opt_nums); !it.Done(); it.Next()) { int opt_num = it.Value(); b = this->Get(opt_num); print(StrFormat("shopt -%s %s", b ? str965 : str966, consts::OptionName(opt_num))); } } _ArgFrame::_ArgFrame(List* argv) { this->argv = argv; this->num_shifted = 0; } Dict* _ArgFrame::Dump() { List* items = nullptr; value::List* argv = nullptr; StackRoot _root0(&items); StackRoot _root1(&argv); items = Alloc>(); for (ListIter it(this->argv); !it.Done(); it.Next()) { BigStr* s = it.Value(); items->append(Alloc(s)); } argv = Alloc(items); return Alloc>(std::initializer_list{str968, str969}, std::initializer_list{argv, num::ToBig(this->num_shifted)}); } value_asdl::value_t* _ArgFrame::GetArgNum(int arg_num) { int index; index = ((this->num_shifted + arg_num) - 1); if (index >= len(this->argv)) { return value::Undef; } return Alloc(this->argv->at(index)); } List* _ArgFrame::GetArgv() { return this->argv->slice(this->num_shifted); } int _ArgFrame::GetNumArgs() { return (len(this->argv) - this->num_shifted); } void _ArgFrame::SetArgv(List* argv) { StackRoot _root0(&argv); this->argv = argv; this->num_shifted = 0; } Dict* _DumpVarFrame(Dict* frame) { Dict* vars_json = nullptr; Dict* cell_json = nullptr; mylib::BufWriter* buf = nullptr; BigStr* flags = nullptr; StackRoot _root0(&frame); StackRoot _root1(&vars_json); StackRoot _root2(&cell_json); StackRoot _root3(&buf); StackRoot _root4(&flags); vars_json = Alloc>(); for (DictIter it(frame); !it.Done(); it.Next()) { BigStr* name = it.Key(); runtime_asdl::Cell* cell = it.Value(); cell_json = Alloc>(); buf = Alloc(); if (cell->exported) { buf->write(str970); } if (cell->readonly) { buf->write(str971); } flags = buf->getvalue(); if (len(flags)) { cell_json->set(str972, Alloc(flags)); } switch (cell->val->tag()) { case value_e::Undef: { cell_json->set(str973, value::Null); } break; case value_e::Str: case value_e::BashArray: case value_e::BashAssoc: { cell_json->set(str974, cell->val); } break; default: { ; // pass } } vars_json->set(name, Alloc(cell_json)); } return vars_json; } BigStr* _GetWorkingDir() { try { return posix::getcwd(); } catch (IOError_OSError* e) { e_die(StrFormat("Can't determine working directory: %s", pyutil::strerror(e))); } } BigStr* _LineNumber(syntax_asdl::Token* tok) { StackRoot _root0(&tok); if (tok == nullptr) { return str976; } return str(tok->line->line_num); } void _AddCallToken(Dict* d, syntax_asdl::Token* token) { StackRoot _root0(&d); StackRoot _root1(&token); if (token == nullptr) { return ; } d->set(str977, Alloc(ui::GetLineSourceString(token->line))); d->set(str978, num::ToBig(token->line->line_num)); d->set(str979, Alloc(token->line->content)); } void _InitDefaults(state::Mem* mem) { StackRoot _root0(&mem); SetGlobalString(mem, str980, split::DEFAULT_IFS); SetGlobalString(mem, str981, str(posix::getuid())); SetGlobalString(mem, str982, str(posix::geteuid())); SetGlobalString(mem, str983, str(posix::getppid())); SetGlobalString(mem, str984, libc::gethostname()); SetGlobalString(mem, str985, pyos::OsType()); SetGlobalString(mem, str986, str987); SetGlobalString(mem, str988, str989); SetGlobalString(mem, str990, _READLINE_DELIMS); } void _InitVarsFromEnv(state::Mem* mem, Dict* environ) { value_asdl::value_t* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&environ); StackRoot _root2(&val); for (DictIter it(environ); !it.Done(); it.Next()) { BigStr* n = it.Key(); BigStr* v = it.Value(); mem->SetNamed(location::LName(n), Alloc(v), scope_e::GlobalOnly, SetExport); } val = mem->GetValue(str991); if (val->tag() == value_e::Undef) { SetGlobalString(mem, str992, str993); } mem->SetNamed(location::LName(str994), nullptr, scope_e::GlobalOnly, SetReadOnly); val = mem->GetValue(str995); if (val->tag() == value_e::Undef) { SetGlobalString(mem, str996, _GetWorkingDir()); } mem->SetNamed(location::LName(str997), nullptr, scope_e::GlobalOnly, SetExport); val = mem->GetValue(str998); if (val->tag() == value_e::Undef) { SetGlobalString(mem, str999, str1000); } } void InitMem(state::Mem* mem, Dict* environ, BigStr* version_str) { value_asdl::value_t* val = nullptr; BigStr* pwd = nullptr; StackRoot _root0(&mem); StackRoot _root1(&environ); StackRoot _root2(&version_str); StackRoot _root3(&val); StackRoot _root4(&pwd); SetGlobalString(mem, str1001, version_str); SetGlobalString(mem, str1002, version_str); SetGlobalString(mem, str1003, str1004); SetGlobalString(mem, str1005, str1006); _SetGlobalValue(mem, str1007, Alloc(pyutil::nan())); _SetGlobalValue(mem, str1008, Alloc(pyutil::infinity())); _InitDefaults(mem); _InitVarsFromEnv(mem, environ); val = mem->GetValue(str1009); pwd = static_cast(val)->s; mem->SetPwd(pwd); } void InitInteractive(state::Mem* mem) { Dict* frame = nullptr; StackRoot _root0(&mem); StackRoot _root1(&frame); if (mem->GetValue(str1010)->tag() == value_e::Undef) { SetGlobalString(mem, str1011, str1012); } } ctx_FuncCall::ctx_FuncCall(state::Mem* mem, value::Func* func) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); auto* frame = Alloc>(); mem->var_stack->append(frame); mem->PushCall(func->name, func->parsed->name); this->mem = mem; } ctx_FuncCall::~ctx_FuncCall() { this->mem->PopCall(); this->mem->var_stack->pop(); gHeap.PopRoot(); } ctx_ProcCall::ctx_ProcCall(state::Mem* mem, state::MutableOpts* mutable_opts, value::Proc* proc, List* argv) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); gHeap.PushRoot(reinterpret_cast(&(this->mutable_opts))); auto* frame = Alloc>(); if (proc->sh_compat) { mem->argv_stack->append(Alloc<_ArgFrame>(argv)); } else { frame->set(str1013, _MakeArgvCell(argv)); } mem->var_stack->append(frame); mem->PushCall(proc->name, proc->name_tok); mutable_opts->PushDynamicScope(proc->sh_compat); this->mem = mem; this->mutable_opts = mutable_opts; this->sh_compat = proc->sh_compat; } ctx_ProcCall::~ctx_ProcCall() { this->mutable_opts->PopDynamicScope(); this->mem->PopCall(); this->mem->var_stack->pop(); if (this->sh_compat) { this->mem->argv_stack->pop(); } gHeap.PopRoot(); gHeap.PopRoot(); } ctx_Temp::ctx_Temp(state::Mem* mem) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); mem->PushTemp(); this->mem = mem; } ctx_Temp::~ctx_Temp() { this->mem->PopTemp(); gHeap.PopRoot(); } ctx_Registers::ctx_Registers(state::Mem* mem) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); int last = mem->last_status->at(-1); mem->last_status->append(last); mem->try_status->append(0); mem->try_error->append(Alloc(Alloc>())); mem->pipe_status->append(Alloc>()); mem->process_sub_status->append(Alloc>()); mem->regex_match->append(regex_match::No); this->mem = mem; } ctx_Registers::~ctx_Registers() { this->mem->regex_match->pop(); this->mem->process_sub_status->pop(); this->mem->pipe_status->pop(); this->mem->try_error->pop(); this->mem->try_status->pop(); this->mem->last_status->pop(); gHeap.PopRoot(); } ctx_ThisDir::ctx_ThisDir(state::Mem* mem, BigStr* filename) { gHeap.PushRoot(reinterpret_cast(&(this->mem))); this->do_pop = false; if (filename != nullptr) { BigStr* d = os_path::dirname(os_path::abspath(filename)); mem->this_dir->append(d); this->do_pop = true; } this->mem = mem; } ctx_ThisDir::~ctx_ThisDir() { if (this->do_pop) { this->mem->this_dir->pop(); } gHeap.PopRoot(); } runtime_asdl::Cell* _MakeArgvCell(List* argv) { List* items = nullptr; Dict* frame = nullptr; StackRoot _root0(&argv); StackRoot _root1(&items); StackRoot _root2(&frame); items = Alloc>(); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); items->append(Alloc(a)); } return Alloc(false, false, false, Alloc(items)); } Mem::Mem(BigStr* dollar0, List* argv, alloc::Arena* arena, List* debug_stack) { this->exec_opts = nullptr; this->unsafe_arith = nullptr; this->dollar0 = dollar0; this->argv_stack = NewList(std::initializer_list{Alloc<_ArgFrame>(argv)}); auto* frame = Alloc>(); frame->set(str1014, _MakeArgvCell(argv)); this->var_stack = NewList*>(std::initializer_list*>{frame}); this->debug_stack = debug_stack; this->pwd = nullptr; this->seconds_start = time_::time(); this->token_for_line = nullptr; this->loc_for_expr = loc::Missing; this->last_arg = str1015; this->line_num = Alloc(str1016); this->root_pid = posix::getpid(); this->last_status = NewList(std::initializer_list{0}); this->try_status = NewList(std::initializer_list{0}); this->try_error = NewList(std::initializer_list{Alloc(Alloc>())}); this->pipe_status = NewList*>(std::initializer_list*>{Alloc>()}); this->process_sub_status = NewList*>(std::initializer_list*>{Alloc>()}); this->this_dir = Alloc>(); this->regex_match = NewList(std::initializer_list{regex_match::No}); this->last_bg_pid = -1; this->running_debug_trap = false; this->running_err_trap = false; this->is_main = true; this->ctx_stack = Alloc*>>(); } void Mem::SetPwd(BigStr* pwd) { StackRoot _root0(&pwd); this->pwd = pwd; } bool Mem::ParsingChangesAllowed() { return (len(this->var_stack) == 1 or len(this->argv_stack) == 1); } Tuple3*, List*, List*> Mem::Dump() { List* var_stack = nullptr; List* argv_stack = nullptr; List* debug_stack = nullptr; value::Str* t_call = nullptr; value::Str* t_source = nullptr; value::Str* t_main = nullptr; syntax_asdl::debug_frame_t* UP_frame = nullptr; Dict* d = nullptr; StackRoot _root0(&var_stack); StackRoot _root1(&argv_stack); StackRoot _root2(&debug_stack); StackRoot _root3(&t_call); StackRoot _root4(&t_source); StackRoot _root5(&t_main); StackRoot _root6(&UP_frame); StackRoot _root7(&d); var_stack = Alloc>(); for (ListIter*> it(this->var_stack); !it.Done(); it.Next()) { Dict* frame = it.Value(); var_stack->append(Alloc(_DumpVarFrame(frame))); } argv_stack = Alloc>(); for (ListIter it(this->argv_stack); !it.Done(); it.Next()) { state::_ArgFrame* frame = it.Value(); argv_stack->append(Alloc(frame->Dump())); } debug_stack = Alloc>(); t_call = Alloc(str1023); t_source = Alloc(str1024); t_main = Alloc(str1025); for (ReverseListIter it(this->debug_stack); !it.Done(); it.Next()) { syntax_asdl::debug_frame_t* frame = it.Value(); StackRoot _for(&frame ); UP_frame = frame; switch (frame->tag()) { case debug_frame_e::Call: { debug_frame::Call* frame = static_cast(UP_frame); d = Alloc>(std::initializer_list{str1026, str1027}, std::initializer_list{t_call, Alloc(frame->func_name)}); _AddCallToken(d, frame->call_tok); } break; case debug_frame_e::Source: { debug_frame::Source* frame = static_cast(UP_frame); d = Alloc>(std::initializer_list{str1028, str1029}, std::initializer_list{t_source, Alloc(frame->source_name)}); _AddCallToken(d, frame->call_tok); } break; case debug_frame_e::Main: { debug_frame::Main* frame = static_cast(UP_frame); d = Alloc>(std::initializer_list{str1030, str1031}, std::initializer_list{t_main, Alloc(frame->dollar0)}); } break; } debug_stack->append(Alloc(d)); } return Tuple3*, List*, List*>(var_stack, argv_stack, debug_stack); } void Mem::SetLastArgument(BigStr* s) { StackRoot _root0(&s); this->last_arg = s; } void Mem::SetTokenForLine(syntax_asdl::Token* tok) { StackRoot _root0(&tok); if ((this->running_debug_trap or this->running_err_trap)) { return ; } this->token_for_line = tok; } void Mem::SetLocationForExpr(syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&blame_loc); this->loc_for_expr = blame_loc; } syntax_asdl::loc_t* Mem::GetFallbackLocation() { if (this->loc_for_expr != loc::Missing) { return this->loc_for_expr; } if (this->token_for_line) { return this->token_for_line; } return loc::Missing; } int Mem::LastStatus() { return this->last_status->at(-1); } int Mem::TryStatus() { return this->try_status->at(-1); } value::Dict* Mem::TryError() { return this->try_error->at(-1); } List* Mem::PipeStatus() { return this->pipe_status->at(-1); } void Mem::SetLastStatus(int x) { this->last_status->set(-1, x); } void Mem::SetTryStatus(int x) { this->try_status->set(-1, x); } void Mem::SetTryError(value::Dict* x) { StackRoot _root0(&x); this->try_error->set(-1, x); } void Mem::SetPipeStatus(List* x) { StackRoot _root0(&x); this->pipe_status->set(-1, x); } void Mem::SetSimplePipeStatus(int status) { List* top = nullptr; StackRoot _root0(&top); top = this->pipe_status->at(-1); if (len(top) == 1) { top->set(0, status); } else { this->pipe_status->set(-1, NewList(std::initializer_list{status})); } } void Mem::SetProcessSubStatus(List* x) { StackRoot _root0(&x); this->process_sub_status->set(-1, x); } void Mem::PushCall(BigStr* func_name, syntax_asdl::Token* def_tok) { StackRoot _root0(&func_name); StackRoot _root1(&def_tok); this->debug_stack->append(Alloc(this->token_for_line, def_tok, func_name)); } void Mem::PopCall() { this->debug_stack->pop(); } bool Mem::ShouldRunDebugTrap() { if (this->running_debug_trap) { return false; } if (len(this->var_stack) > 1) { return false; } return true; } bool Mem::InsideFunction() { return len(this->var_stack) > 1; } void Mem::PushSource(BigStr* source_name, List* argv) { StackRoot _root0(&source_name); StackRoot _root1(&argv); if (len(argv)) { this->argv_stack->append(Alloc<_ArgFrame>(argv)); } this->debug_stack->append(Alloc(this->token_for_line, source_name)); } void Mem::PopSource(List* argv) { StackRoot _root0(&argv); this->debug_stack->pop(); if (len(argv)) { this->argv_stack->pop(); } } void Mem::PushTemp() { Dict* frame = nullptr; StackRoot _root0(&frame); frame = Alloc>(); this->var_stack->append(frame); } void Mem::PopTemp() { this->var_stack->pop(); } Dict* Mem::TopNamespace() { return this->var_stack->at(-1); } int Mem::Shift(int n) { state::_ArgFrame* frame = nullptr; int num_args; StackRoot _root0(&frame); frame = this->argv_stack->at(-1); num_args = len(frame->argv); if ((frame->num_shifted + n) <= num_args) { frame->num_shifted += n; return 0; } else { return 1; } } value::Str* Mem::GetArg0() { return Alloc(this->dollar0); } value_asdl::value_t* Mem::GetArgNum(int arg_num) { Dict* vars = nullptr; StackRoot _root0(&vars); if (arg_num == 0) { vars = this->var_stack->at(-1); if ((dict_contains(vars, str1032) and vars->at(str1033)->val->tag() != value_e::Undef)) { return vars->at(str1034)->val; } return Alloc(this->dollar0); } return this->argv_stack->at(-1)->GetArgNum(arg_num); } List* Mem::GetArgv() { return this->argv_stack->at(-1)->GetArgv(); } void Mem::SetArgv(List* argv) { StackRoot _root0(&argv); this->argv_stack->at(-1)->SetArgv(argv); } value_asdl::value_t* Mem::GetSpecialVar(int op_id) { int n; if (op_id == Id::VSub_Bang) { n = this->last_bg_pid; if (n == -1) { return value::Undef; } } else { if (op_id == Id::VSub_QMark) { n = this->last_status->at(-1); } else { if (op_id == Id::VSub_Pound) { n = this->argv_stack->at(-1)->GetNumArgs(); } else { if (op_id == Id::VSub_Dollar) { n = this->root_pid; } else { FAIL(kNotImplemented); // Python NotImplementedError } } } } return Alloc(str(n)); } Tuple2*> Mem::_ResolveNameOnly(BigStr* name, runtime_asdl::scope_t which_scopes) { Dict* name_map = nullptr; runtime_asdl::Cell* cell = nullptr; runtime_asdl::Cell* no_cell = nullptr; StackRoot _root0(&name); StackRoot _root1(&name_map); StackRoot _root2(&cell); StackRoot _root3(&no_cell); if (which_scopes == scope_e::Dynamic) { for (int i = (len(this->var_stack) - 1); i > -1; i += -1) { name_map = this->var_stack->at(i); if (dict_contains(name_map, name)) { cell = name_map->at(name); return Tuple2*>(cell, name_map); } } no_cell = nullptr; return Tuple2*>(no_cell, this->var_stack->at(0)); } if (which_scopes == scope_e::LocalOnly) { name_map = this->var_stack->at(-1); return Tuple2*>(name_map->get(name), name_map); } if (which_scopes == scope_e::GlobalOnly) { name_map = this->var_stack->at(0); return Tuple2*>(name_map->get(name), name_map); } if (which_scopes == scope_e::LocalOrGlobal) { name_map = this->var_stack->at(-1); cell = name_map->get(name); if (cell) { return Tuple2*>(cell, name_map); } name_map = this->var_stack->at(0); return Tuple2*>(name_map->get(name), name_map); } assert(0); // AssertionError } Tuple3*, BigStr*> Mem::_ResolveNameOrRef(BigStr* name, runtime_asdl::scope_t which_scopes, List* ref_trail) { runtime_asdl::Cell* cell = nullptr; Dict* name_map = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; BigStr* new_name = nullptr; BigStr* cell_name = nullptr; StackRoot _root0(&name); StackRoot _root1(&ref_trail); StackRoot _root2(&cell); StackRoot _root3(&name_map); StackRoot _root4(&val); StackRoot _root5(&UP_val); StackRoot _root6(&new_name); StackRoot _root7(&cell_name); Tuple2*> tup0 = this->_ResolveNameOnly(name, which_scopes); cell = tup0.at0(); name_map = tup0.at1(); if ((cell == nullptr or !cell->nameref)) { return Tuple3*, BigStr*>(cell, name_map, name); } val = cell->val; UP_val = val; switch (val->tag()) { case value_e::Undef: { if (this->exec_opts->strict_nameref()) { e_die(StrFormat("nameref %r is undefined", name)); } else { return Tuple3*, BigStr*>(cell, name_map, name); } } break; case value_e::Str: { value::Str* val = static_cast(UP_val); new_name = val->s; } break; default: { assert(0); // AssertionError } } if (!match::IsValidVarName(new_name)) { if (this->exec_opts->strict_nameref()) { e_die(StrFormat("nameref %r contains invalid variable name %r", name, new_name)); } else { cell->nameref = false; return Tuple3*, BigStr*>(cell, name_map, name); } } if (ref_trail == nullptr) { ref_trail = NewList(std::initializer_list{name}); } else { if (list_contains(ref_trail, new_name)) { e_die(StrFormat("Circular nameref %s", str1038->join(ref_trail))); } } ref_trail->append(new_name); Tuple3*, BigStr*> tup1 = this->_ResolveNameOrRef(new_name, scope_e::Dynamic, ref_trail); cell = tup1.at0(); name_map = tup1.at1(); cell_name = tup1.at2(); return Tuple3*, BigStr*>(cell, name_map, cell_name); } bool Mem::IsBashAssoc(BigStr* name) { runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&name); StackRoot _root1(&cell); Tuple3*, BigStr*> tup2 = this->_ResolveNameOrRef(name, this->ScopesForReading()); cell = tup2.at0(); return (cell != nullptr and cell->val->tag() == value_e::BashAssoc); } void Mem::SetPlace(value::Place* place, value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc) { value_asdl::y_lvalue_t* yval = nullptr; value_asdl::y_lvalue_t* UP_yval = nullptr; bool found; Dict* frame = nullptr; runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&place); StackRoot _root1(&val); StackRoot _root2(&blame_loc); StackRoot _root3(&yval); StackRoot _root4(&UP_yval); StackRoot _root5(&frame); StackRoot _root6(&cell); yval = place->lval; UP_yval = yval; switch (yval->tag()) { case y_lvalue_e::Local: { LeftName* yval = static_cast(UP_yval); found = false; for (int i = (len(this->var_stack) - 1); i > -1; i += -1) { frame = this->var_stack->at(i); if (frame == place->frame) { found = true; break; } } if (!found) { e_die(str1039, blame_loc); } cell = frame->get(yval->name); if (cell == nullptr) { cell = Alloc(false, false, false, val); frame->set(yval->name, cell); } else { cell->val = val; } } break; case y_lvalue_e::Container: { e_die(str1040, blame_loc); } break; default: { assert(0); // AssertionError } } } void Mem::SetLocalName(value_asdl::LeftName* lval, value_asdl::value_t* val) { Dict* name_map = nullptr; runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&lval); StackRoot _root1(&val); StackRoot _root2(&name_map); StackRoot _root3(&cell); name_map = this->var_stack->at(-1); cell = name_map->get(lval->name); if (cell) { if (cell->readonly) { e_die(StrFormat("Can't assign to readonly value %r", lval->name), lval->blame_loc); } cell->val = val; } else { cell = Alloc(false, false, false, val); name_map->set(lval->name, cell); } } void Mem::SetNamed(value_asdl::LeftName* lval, value_asdl::value_t* val, runtime_asdl::scope_t which_scopes, int flags) { runtime_asdl::Cell* cell = nullptr; Dict* name_map = nullptr; BigStr* cell_name = nullptr; StackRoot _root0(&lval); StackRoot _root1(&val); StackRoot _root2(&cell); StackRoot _root3(&name_map); StackRoot _root4(&cell_name); if (((flags & SetNameref) or (flags & ClearNameref))) { Tuple2*> tup3 = this->_ResolveNameOnly(lval->name, which_scopes); cell = tup3.at0(); name_map = tup3.at1(); cell_name = lval->name; } else { Tuple3*, BigStr*> tup4 = this->_ResolveNameOrRef(lval->name, which_scopes); cell = tup4.at0(); name_map = tup4.at1(); cell_name = tup4.at2(); } if (cell) { if ((flags & ClearExport)) { cell->exported = false; } if ((flags & ClearReadOnly)) { cell->readonly = false; } if ((flags & ClearNameref)) { cell->nameref = false; } if (val != nullptr) { if (cell->readonly) { e_die(StrFormat("Can't assign to readonly value %r", lval->name), lval->blame_loc); } cell->val = val; } if ((flags & SetExport)) { cell->exported = true; } if ((flags & SetReadOnly)) { cell->readonly = true; } if ((flags & SetNameref)) { cell->nameref = true; } } else { if (val == nullptr) { val = value::Undef; } cell = Alloc(to_bool((flags & SetExport)), to_bool((flags & SetReadOnly)), to_bool((flags & SetNameref)), val); name_map->set(cell_name, cell); } if ((cell->val->tag() != value_e::Undef && cell->val->tag() != value_e::Str)) { if (cell->exported) { if (this->exec_opts->strict_array()) { e_die(str1043, lval->blame_loc); } } if (cell->nameref) { e_die(str1044, lval->blame_loc); } } } void Mem::SetValue(value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val, runtime_asdl::scope_t which_scopes, int flags) { value_asdl::sh_lvalue_t* UP_lval = nullptr; value::Str* rval = nullptr; syntax_asdl::loc_t* left_loc = nullptr; runtime_asdl::Cell* cell = nullptr; Dict* name_map = nullptr; value_asdl::value_t* UP_cell_val = nullptr; List* strs = nullptr; int n; int index; value::BashAssoc* cell_val2 = nullptr; StackRoot _root0(&lval); StackRoot _root1(&val); StackRoot _root2(&UP_lval); StackRoot _root3(&rval); StackRoot _root4(&left_loc); StackRoot _root5(&cell); StackRoot _root6(&name_map); StackRoot _root7(&UP_cell_val); StackRoot _root8(&strs); StackRoot _root9(&cell_val2); UP_lval = lval; switch (lval->tag()) { case sh_lvalue_e::Var: { LeftName* lval = static_cast(UP_lval); this->SetNamed(lval, val, which_scopes, flags); } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); rval = static_cast(val); left_loc = lval->blame_loc; Tuple3*, BigStr*> tup5 = this->_ResolveNameOrRef(lval->name, which_scopes); cell = tup5.at0(); name_map = tup5.at1(); if (!cell) { this->_BindNewArrayWithEntry(name_map, lval, rval, flags); return ; } if (cell->readonly) { e_die(str1045, left_loc); } UP_cell_val = cell->val; switch (UP_cell_val->tag()) { case value_e::Undef: { this->_BindNewArrayWithEntry(name_map, lval, rval, flags); return ; } break; case value_e::Str: { e_die(str1046, left_loc); } break; case value_e::BashArray: { value::BashArray* cell_val = static_cast(UP_cell_val); strs = cell_val->strs; n = len(strs); index = lval->index; if (index < 0) { index += n; } if ((0 <= index and index < n)) { strs->set(index, rval->s); } else { n = ((index - len(strs)) + 1); for (int i = 0; i < n; ++i) { strs->append(nullptr); } strs->set(lval->index, rval->s); } return ; } break; } e_die(StrFormat("Value of type %s can't be indexed", ui::ValType(cell->val)), left_loc); } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); rval = static_cast(val); left_loc = lval->blame_loc; Tuple3*, BigStr*> tup6 = this->_ResolveNameOrRef(lval->name, which_scopes); cell = tup6.at0(); name_map = tup6.at1(); if (cell->readonly) { e_die(str1048, left_loc); } cell_val2 = static_cast(cell->val); cell_val2->d->set(lval->key, rval->s); } break; default: { assert(0); // AssertionError } } } void Mem::_BindNewArrayWithEntry(Dict* name_map, sh_lvalue::Indexed* lval, value::Str* val, int flags) { BigStr* no_str = nullptr; List* items = nullptr; value::BashArray* new_value = nullptr; bool readonly; StackRoot _root0(&name_map); StackRoot _root1(&lval); StackRoot _root2(&val); StackRoot _root3(&no_str); StackRoot _root4(&items); StackRoot _root5(&new_value); no_str = nullptr; items = list_repeat(no_str, lval->index); items->append(val->s); new_value = Alloc(items); readonly = to_bool((flags & SetReadOnly)); name_map->set(lval->name, Alloc(false, readonly, false, new_value)); } void Mem::InternalSetGlobal(BigStr* name, value_asdl::value_t* new_val) { runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&name); StackRoot _root1(&new_val); StackRoot _root2(&cell); cell = this->var_stack->at(0)->at(name); cell->val = new_val; } value_asdl::value_t* Mem::GetValue(BigStr* name, runtime_asdl::scope_t which_scopes) { double f; bool ok; mops::BigInt big_int; List* strs = nullptr; syntax_asdl::debug_frame_t* UP_frame = nullptr; List* strs2 = nullptr; BigStr* source_str = nullptr; value_asdl::regex_match_t* top_match = nullptr; List* groups = nullptr; RegexMatch* m = nullptr; List* items = nullptr; runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&name); StackRoot _root1(&strs); StackRoot _root2(&UP_frame); StackRoot _root3(&strs2); StackRoot _root4(&source_str); StackRoot _root5(&top_match); StackRoot _root6(&groups); StackRoot _root7(&m); StackRoot _root8(&items); StackRoot _root9(&cell); if (which_scopes == scope_e::Shopt) { which_scopes = this->ScopesForReading(); } switch (len(name)) { case 1: { if (str_equals_c(name, "_", 1)) { return Alloc(this->last_arg); } else { goto str_switch_default; } } break; case 6: { if (str_equals_c(name, "_error", 6)) { return this->TryError(); } else if (str_equals_c(name, "LINENO", 6)) { this->line_num->s = str(this->token_for_line->line->line_num); return this->line_num; } else { goto str_switch_default; } } break; case 7: { if (str_equals_c(name, "_status", 7)) { return num::ToBig(this->TryStatus()); } else if (str_equals_c(name, "BASHPID", 7)) { return Alloc(str(posix::getpid())); } else if (str_equals_c(name, "SECONDS", 7)) { f = (time_::time() - this->seconds_start); Tuple2 tup7 = mops::FromFloat(f); ok = tup7.at0(); big_int = tup7.at1(); return Alloc(big_int); } else { goto str_switch_default; } } break; case 8: { if (str_equals_c(name, "FUNCNAME", 8)) { strs = Alloc>(); for (ReverseListIter it(this->debug_stack); !it.Done(); it.Next()) { syntax_asdl::debug_frame_t* frame = it.Value(); StackRoot _for(&frame ); UP_frame = frame; switch (frame->tag()) { case debug_frame_e::Call: { debug_frame::Call* frame = static_cast(UP_frame); strs->append(frame->func_name); } break; case debug_frame_e::Source: { strs->append(str1057); } break; case debug_frame_e::Main: { strs->append(str1058); } break; } } return Alloc(strs); } else { goto str_switch_default; } } break; case 9: { if (str_equals_c(name, "_this_dir", 9)) { if (len(this->this_dir) == 0) { return value::Undef; } else { return Alloc(this->this_dir->at(-1)); } } else { goto str_switch_default; } } break; case 10: { if (str_equals_c(name, "PIPESTATUS", 10)) { strs2 = Alloc>(); for (ListIter it(this->pipe_status->at(-1)); !it.Done(); it.Next()) { int i = it.Value(); strs2->append(str(i)); } return Alloc(strs2); } else { goto str_switch_default; } } break; case 11: { if (str_equals_c(name, "BASH_SOURCE", 11)) { strs = Alloc>(); for (ReverseListIter it(this->debug_stack); !it.Done(); it.Next()) { syntax_asdl::debug_frame_t* frame = it.Value(); StackRoot _for(&frame ); UP_frame = frame; switch (frame->tag()) { case debug_frame_e::Call: { debug_frame::Call* frame = static_cast(UP_frame); source_str = ui::GetLineSourceString(frame->def_tok->line); strs->append(source_str); } break; case debug_frame_e::Source: { debug_frame::Source* frame = static_cast(UP_frame); strs->append(frame->source_name); } break; case debug_frame_e::Main: { debug_frame::Main* frame = static_cast(UP_frame); strs->append(frame->dollar0); } break; } } return Alloc(strs); } else if (str_equals_c(name, "BASH_LINENO", 11)) { strs = Alloc>(); for (ReverseListIter it(this->debug_stack); !it.Done(); it.Next()) { syntax_asdl::debug_frame_t* frame = it.Value(); StackRoot _for(&frame ); UP_frame = frame; switch (frame->tag()) { case debug_frame_e::Call: { debug_frame::Call* frame = static_cast(UP_frame); strs->append(_LineNumber(frame->call_tok)); } break; case debug_frame_e::Source: { debug_frame::Source* frame = static_cast(UP_frame); strs->append(_LineNumber(frame->call_tok)); } break; case debug_frame_e::Main: { strs->append(str1061); } break; } } return Alloc(strs); } else { goto str_switch_default; } } break; case 12: { if (str_equals_c(name, "BASH_REMATCH", 12)) { top_match = this->regex_match->at(-1); switch (top_match->tag()) { case regex_match_e::No: { groups = Alloc>(); } break; case regex_match_e::Yes: { m = static_cast(top_match); groups = util::RegexGroupStrings(m->s, m->indices); } break; } return Alloc(groups); } else { goto str_switch_default; } } break; case 16: { if (str_equals_c(name, "_pipeline_status", 16)) { items = Alloc>(); for (ListIter it(this->pipe_status->at(-1)); !it.Done(); it.Next()) { int i = it.Value(); items->append(num::ToBig(i)); } return Alloc(items); } else { goto str_switch_default; } } break; case 19: { if (str_equals_c(name, "_process_sub_status", 19)) { items = Alloc>(); for (ListIter it(this->process_sub_status->at(-1)); !it.Done(); it.Next()) { int i = it.Value(); items->append(num::ToBig(i)); } return Alloc(items); } else { goto str_switch_default; } } break; str_switch_default: default: { Tuple3*, BigStr*> tup8 = this->_ResolveNameOrRef(name, which_scopes); cell = tup8.at0(); if (cell) { return cell->val; } return value::Undef; } } } runtime_asdl::Cell* Mem::GetCell(BigStr* name, runtime_asdl::scope_t which_scopes) { runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&name); StackRoot _root1(&cell); if (which_scopes == scope_e::Shopt) { which_scopes = this->ScopesForReading(); } Tuple2*> tup9 = this->_ResolveNameOnly(name, which_scopes); cell = tup9.at0(); return cell; } bool Mem::Unset(value_asdl::sh_lvalue_t* lval, runtime_asdl::scope_t which_scopes) { value_asdl::sh_lvalue_t* UP_lval = nullptr; BigStr* var_name = nullptr; runtime_asdl::Cell* cell = nullptr; Dict* name_map = nullptr; BigStr* cell_name = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; List* strs = nullptr; int n; int last_index; int index; StackRoot _root0(&lval); StackRoot _root1(&UP_lval); StackRoot _root2(&var_name); StackRoot _root3(&cell); StackRoot _root4(&name_map); StackRoot _root5(&cell_name); StackRoot _root6(&val); StackRoot _root7(&UP_val); StackRoot _root8(&strs); UP_lval = lval; switch (lval->tag()) { case sh_lvalue_e::Var: { LeftName* lval = static_cast(UP_lval); var_name = lval->name; } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); var_name = lval->name; } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); var_name = lval->name; } break; default: { assert(0); // AssertionError } } if (which_scopes == scope_e::Shopt) { which_scopes = this->ScopesForWriting(); } Tuple3*, BigStr*> tup10 = this->_ResolveNameOrRef(var_name, which_scopes); cell = tup10.at0(); name_map = tup10.at1(); cell_name = tup10.at2(); if (!cell) { return false; } if (cell->readonly) { throw Alloc(StrFormat("Can't unset readonly variable %r", var_name)); } switch (lval->tag()) { case sh_lvalue_e::Var: { mylib::dict_erase(name_map, cell_name); } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); val = cell->val; UP_val = val; if (val->tag() != value_e::BashArray) { throw Alloc(StrFormat("%r isn't an array", var_name)); } value::BashArray* val = static_cast(UP_val); strs = val->strs; n = len(strs); last_index = (n - 1); index = lval->index; if (index < 0) { index += n; } if (index == last_index) { strs->pop(); } else { if ((0 <= index and index < last_index)) { strs->set(index, nullptr); } else { ; // pass } } } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); val = cell->val; UP_val = val; value::BashAssoc* val = static_cast(UP_val); mylib::dict_erase(val->d, lval->key); } break; default: { assert(0); // AssertionError } } return true; } runtime_asdl::scope_t Mem::ScopesForReading() { return this->exec_opts->dynamic_scope() ? scope_e::Dynamic : scope_e::LocalOrGlobal; } runtime_asdl::scope_t Mem::ScopesForWriting() { return this->exec_opts->dynamic_scope() ? scope_e::Dynamic : scope_e::LocalOnly; } bool Mem::ClearFlag(BigStr* name, int flag) { runtime_asdl::Cell* cell = nullptr; Dict* name_map = nullptr; StackRoot _root0(&name); StackRoot _root1(&cell); StackRoot _root2(&name_map); Tuple2*> tup11 = this->_ResolveNameOnly(name, this->ScopesForReading()); cell = tup11.at0(); name_map = tup11.at1(); if (cell) { if ((flag & ClearExport)) { cell->exported = false; } if ((flag & ClearNameref)) { cell->nameref = false; } return true; } else { return false; } } Dict* Mem::GetExported() { Dict* exported = nullptr; value::Str* val = nullptr; StackRoot _root0(&exported); StackRoot _root1(&val); exported = Alloc>(); for (ListIter*> it(this->var_stack); !it.Done(); it.Next()) { Dict* scope = it.Value(); StackRoot _for(&scope ); for (DictIter it(scope); !it.Done(); it.Next()) { BigStr* name = it.Key(); runtime_asdl::Cell* cell = it.Value(); if ((cell->exported and cell->val->tag() == value_e::Str)) { val = static_cast(cell->val); exported->set(name, val->s); } } } return exported; } List* Mem::VarNames() { List* ret = nullptr; StackRoot _root0(&ret); ret = Alloc>(); for (ListIter*> it(this->var_stack); !it.Done(); it.Next()) { Dict* scope = it.Value(); StackRoot _for(&scope ); for (DictIter it(scope); !it.Done(); it.Next()) { BigStr* name = it.Key(); StackRoot _for(&name ); ret->append(name); } } return ret; } List* Mem::VarNamesStartingWith(BigStr* prefix) { List* names = nullptr; StackRoot _root0(&prefix); StackRoot _root1(&names); names = Alloc>(); for (ListIter*> it(this->var_stack); !it.Done(); it.Next()) { Dict* scope = it.Value(); StackRoot _for(&scope ); for (DictIter it(scope); !it.Done(); it.Next()) { BigStr* name = it.Key(); StackRoot _for(&name ); if (name->startswith(prefix)) { names->append(name); } } } return names; } Dict* Mem::GetAllVars() { Dict* result = nullptr; value_asdl::value_t* val = nullptr; value::Str* str_val = nullptr; StackRoot _root0(&result); StackRoot _root1(&val); StackRoot _root2(&str_val); result = Alloc>(); for (ListIter*> it(this->var_stack); !it.Done(); it.Next()) { Dict* scope = it.Value(); StackRoot _for(&scope ); for (DictIter it(scope); !it.Done(); it.Next()) { BigStr* name = it.Key(); runtime_asdl::Cell* cell = it.Value(); val = cell->val; if (val->tag() == value_e::Str) { str_val = static_cast(val); result->set(name, str_val->s); } } } return result; } Dict* Mem::GetAllCells(runtime_asdl::scope_t which_scopes) { Dict* result = nullptr; List*>* scopes = nullptr; StackRoot _root0(&result); StackRoot _root1(&scopes); result = Alloc>(); if (which_scopes == scope_e::Dynamic) { scopes = this->var_stack; } else { if (which_scopes == scope_e::LocalOnly) { scopes = this->var_stack->slice(-1); } else { if (which_scopes == scope_e::GlobalOnly) { scopes = this->var_stack->slice(0, 1); } else { if (which_scopes == scope_e::LocalOrGlobal) { scopes = NewList*>(std::initializer_list*>{this->var_stack->at(0)}); if (len(this->var_stack) > 1) { scopes->append(this->var_stack->at(-1)); } } else { assert(0); // AssertionError } } } } for (ListIter*> it(scopes); !it.Done(); it.Next()) { Dict* scope = it.Value(); StackRoot _for(&scope ); for (DictIter it(scope); !it.Done(); it.Next()) { BigStr* name = it.Key(); runtime_asdl::Cell* cell = it.Value(); result->set(name, cell); } } return result; } bool Mem::IsGlobalScope() { return len(this->var_stack) == 1; } void Mem::SetRegexMatch(value_asdl::regex_match_t* match) { StackRoot _root0(&match); this->regex_match->set(-1, match); } value_asdl::regex_match_t* Mem::GetRegexMatch() { return this->regex_match->at(-1); } void Mem::PushContextStack(Dict* context) { StackRoot _root0(&context); this->ctx_stack->append(context); } Dict* Mem::GetContext() { if (len(this->ctx_stack)) { return this->ctx_stack->at(-1); } return nullptr; } Dict* Mem::PopContextStack() { return this->ctx_stack->pop(); } Procs::Procs(state::Mem* mem) { this->mem = mem; this->sh_funcs = Alloc>(); } void Procs::SetProc(BigStr* name, value::Proc* proc) { StackRoot _root0(&name); StackRoot _root1(&proc); this->mem->var_stack->at(0)->set(name, Alloc(false, false, false, proc)); } void Procs::SetShFunc(BigStr* name, value::Proc* proc) { StackRoot _root0(&name); StackRoot _root1(&proc); this->sh_funcs->set(name, proc); } value::Proc* Procs::Get(BigStr* name) { Dict* vars = nullptr; runtime_asdl::Cell* maybe_proc = nullptr; StackRoot _root0(&name); StackRoot _root1(&vars); StackRoot _root2(&maybe_proc); vars = this->mem->var_stack->at(0); if (dict_contains(vars, name)) { maybe_proc = vars->at(name); if (maybe_proc->val->tag() == value_e::Proc) { return static_cast(maybe_proc->val); } } if (dict_contains(this->sh_funcs, name)) { return this->sh_funcs->at(name); } return nullptr; } void Procs::Del(BigStr* to_del) { StackRoot _root0(&to_del); mylib::dict_erase(this->sh_funcs, to_del); } List* Procs::GetNames() { List* names = nullptr; Dict* vars = nullptr; runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&names); StackRoot _root1(&vars); StackRoot _root2(&cell); names = list(this->sh_funcs->keys()); vars = this->mem->var_stack->at(0); for (DictIter it(vars); !it.Done(); it.Next()) { BigStr* name = it.Key(); StackRoot _for(&name ); cell = vars->at(name); if (cell->val->tag() == value_e::Proc) { names->append(name); } } return sorted(names); } void OshLanguageSetValue(state::Mem* mem, value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val, int flags) { runtime_asdl::scope_t which_scopes; StackRoot _root0(&mem); StackRoot _root1(&lval); StackRoot _root2(&val); which_scopes = mem->ScopesForWriting(); mem->SetValue(lval, val, which_scopes, flags); } void BuiltinSetValue(state::Mem* mem, value_asdl::sh_lvalue_t* lval, value_asdl::value_t* val) { StackRoot _root0(&mem); StackRoot _root1(&lval); StackRoot _root2(&val); mem->SetValue(lval, val, mem->ScopesForWriting()); } void BuiltinSetString(state::Mem* mem, BigStr* name, BigStr* s) { StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&s); BuiltinSetValue(mem, location::LName(name), Alloc(s)); } void BuiltinSetArray(state::Mem* mem, BigStr* name, List* a) { StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&a); BuiltinSetValue(mem, location::LName(name), Alloc(a)); } void SetGlobalString(state::Mem* mem, BigStr* name, BigStr* s) { value::Str* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&s); StackRoot _root3(&val); val = Alloc(s); mem->SetNamed(location::LName(name), val, scope_e::GlobalOnly); } void SetGlobalArray(state::Mem* mem, BigStr* name, List* a) { StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&a); mem->SetNamed(location::LName(name), Alloc(a), scope_e::GlobalOnly); } void _SetGlobalValue(state::Mem* mem, BigStr* name, value_asdl::value_t* val) { StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&val); mem->SetNamed(location::LName(name), val, scope_e::GlobalOnly); } void ExportGlobalString(state::Mem* mem, BigStr* name, BigStr* s) { value::Str* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&s); StackRoot _root3(&val); val = Alloc(s); mem->SetNamed(location::LName(name), val, scope_e::GlobalOnly, SetExport); } value_asdl::value_t* DynamicGetVar(state::Mem* mem, BigStr* name, runtime_asdl::scope_t which_scopes) { value_asdl::value_t* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&val); val = mem->GetValue(name, which_scopes); if (val->tag() == value_e::Undef) { return value::Null; } return val; } BigStr* GetString(state::Mem* mem, BigStr* name) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&val); StackRoot _root3(&UP_val); val = mem->GetValue(name); UP_val = val; switch (val->tag()) { case value_e::Undef: { throw Alloc(StrFormat("$%s isn't defined", name)); } break; case value_e::Str: { return static_cast(UP_val)->s; } break; default: { throw Alloc(StrFormat("$%s should be a string", name)); } } } BigStr* MaybeString(state::Mem* mem, BigStr* name) { StackRoot _root0(&mem); StackRoot _root1(&name); try { return GetString(mem, name); } catch (error::Runtime*) { return nullptr; } } int GetInteger(state::Mem* mem, BigStr* name) { value_asdl::value_t* val = nullptr; BigStr* s = nullptr; int i; StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&val); StackRoot _root3(&s); val = mem->GetValue(name); if (val->tag() != value_e::Str) { throw Alloc(StrFormat("$%s should be a string, got %s", name, ui::ValType(val))); } s = static_cast(val)->s; try { i = to_int(s); } catch (ValueError*) { throw Alloc(StrFormat("$%s doesn't look like an integer, got %r", name, s)); } return i; } } // define namespace state namespace util { // define List* RegexGroupStrings(BigStr* s, List* indices) { List* groups = nullptr; int n; int start; int end; StackRoot _root0(&s); StackRoot _root1(&indices); StackRoot _root2(&groups); groups = Alloc>(); n = len(indices); for (int i = 0; i < (n / 2); ++i) { start = indices->at((2 * i)); end = indices->at(((2 * i) + 1)); if (start == -1) { groups->append(str1072); } else { groups->append(s->slice(start, end)); } } return groups; } List* RegexSearch(BigStr* pat, BigStr* s) { List* indices = nullptr; StackRoot _root0(&pat); StackRoot _root1(&s); StackRoot _root2(&indices); indices = libc::regex_search(pat, 0, s, 0); if (indices == nullptr) { return nullptr; } return RegexGroupStrings(s, indices); } UserExit::UserExit(int status) { this->status = status; } HistoryError::HistoryError(BigStr* msg) { this->msg = msg; } BigStr* HistoryError::UserErrorString() { return StrFormat("history: %s", this->msg); } _DebugFile::_DebugFile() { ; // pass } void _DebugFile::write(BigStr* s) { StackRoot _root0(&s); ; // pass } void _DebugFile::writeln(BigStr* s) { StackRoot _root0(&s); ; // pass } bool _DebugFile::isatty() { return false; } NullDebugFile::NullDebugFile() : ::util::_DebugFile() { } DebugFile::DebugFile(mylib::Writer* f) : ::util::_DebugFile() { this->f = f; } void DebugFile::write(BigStr* s) { StackRoot _root0(&s); this->f->write(s); } void DebugFile::writeln(BigStr* s) { StackRoot _root0(&s); this->write(str_concat(s, str1074)); this->f->flush(); } bool DebugFile::isatty() { return this->f->isatty(); } void PrintTopicHeader(BigStr* topic_id, mylib::Writer* f) { StackRoot _root0(&topic_id); StackRoot _root1(&f); if (f->isatty()) { f->write(StrFormat("%s %s %s\n", ansi::REVERSE, topic_id, ansi::RESET)); } else { f->write(StrFormat("~~~ %s ~~~\n", topic_id)); } f->write(str1077); } bool PrintEmbeddedHelp(pyutil::_ResourceLoader* loader, BigStr* topic_id, mylib::Writer* f) { BigStr* contents = nullptr; StackRoot _root0(&loader); StackRoot _root1(&topic_id); StackRoot _root2(&f); StackRoot _root3(&contents); try { contents = loader->Get(StrFormat("_devbuild/help/%s", topic_id)); } catch (IOError_OSError*) { return false; } PrintTopicHeader(topic_id, f); f->write(contents); f->write(str1079); return true; } void _PrintVersionLine(pyutil::_ResourceLoader* loader, mylib::Writer* f) { BigStr* v = nullptr; StackRoot _root0(&loader); StackRoot _root1(&f); StackRoot _root2(&v); v = pyutil::GetVersion(loader); f->write(StrFormat("Oils %s\t\thttps://www.oilshell.org/\n", v)); } void HelpFlag(pyutil::_ResourceLoader* loader, BigStr* topic_id, mylib::Writer* f) { bool found; StackRoot _root0(&loader); StackRoot _root1(&topic_id); StackRoot _root2(&f); _PrintVersionLine(loader, f); f->write(str1081); found = PrintEmbeddedHelp(loader, topic_id, f); } void VersionFlag(pyutil::_ResourceLoader* loader, mylib::Writer* f) { StackRoot _root0(&loader); StackRoot _root1(&f); _PrintVersionLine(loader, f); f->write(str1082); pyutil::PrintVersionDetails(loader); } } // define namespace util namespace j8 { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::value_str; using nil8_asdl::nvalue; using nil8_asdl::nvalue_t; namespace fmt = format; BigStr* ValType(value_asdl::value_t* val) { StackRoot _root0(&val); return value_str(val->tag(), false); } int ValueId(value_asdl::value_t* val) { StackRoot _root0(&val); switch (val->tag()) { case value_e::Null: case value_e::Bool: case value_e::Int: case value_e::Float: case value_e::Str: { return -1; } break; default: { return HeapValueId(val); } } } BigStr* ValueIdString(value_asdl::value_t* val) { int heap_id; StackRoot _root0(&val); heap_id = ValueId(val); if (heap_id == -1) { return str1083; } else { return StrFormat(" 0x%s", mylib::hex_lower(heap_id)); } } BigStr* Utf8Encode(int code) { int num_cont_bytes; List* bytes_ = nullptr; int b; List* tmp = nullptr; StackRoot _root0(&bytes_); StackRoot _root1(&tmp); num_cont_bytes = 0; if (code <= 127) { return chr((code & 127)); } else { if (code <= 2047) { num_cont_bytes = 1; } else { if (code <= 65535) { num_cont_bytes = 2; } else { num_cont_bytes = 3; } } } bytes_ = Alloc>(); for (int _ = 0; _ < num_cont_bytes; ++_) { bytes_->append((128 | (code & 63))); code >>= 6; } b = ((30 << (6 - num_cont_bytes)) | (code & (63 >> num_cont_bytes))); bytes_->append(b); bytes_->reverse(); tmp = Alloc>(); for (ListIter it(bytes_); !it.Done(); it.Next()) { int b = it.Value(); tmp->append(chr((b & 255))); } return str1085->join(tmp); } int SHOW_CYCLES = (1 << 1); int SHOW_NON_DATA = (1 << 2); int LOSSY_JSON = (1 << 3); int INF_NAN_ARE_NULL = (1 << 4); void _Print(value_asdl::value_t* val, mylib::BufWriter* buf, int indent, int options) { j8::InstancePrinter* p = nullptr; StackRoot _root0(&val); StackRoot _root1(&buf); StackRoot _root2(&p); p = Alloc(buf, indent, options); p->Print(val); } void PrintMessage(value_asdl::value_t* val, mylib::BufWriter* buf, int indent) { StackRoot _root0(&val); StackRoot _root1(&buf); _Print(val, buf, indent); } void PrintJsonMessage(value_asdl::value_t* val, mylib::BufWriter* buf, int indent) { StackRoot _root0(&val); StackRoot _root1(&buf); _Print(val, buf, indent, (LOSSY_JSON | INF_NAN_ARE_NULL)); } void PrintLine(value_asdl::value_t* val, mylib::Writer* f) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&val); StackRoot _root1(&f); StackRoot _root2(&buf); buf = Alloc(); _Print(val, buf, -1, (SHOW_CYCLES | SHOW_NON_DATA)); f->write(buf->getvalue()); f->write(str1086); } void EncodeString(BigStr* s, mylib::BufWriter* buf, bool unquoted_ok) { StackRoot _root0(&s); StackRoot _root1(&buf); if ((unquoted_ok and fastfunc::CanOmitQuotes(s))) { buf->write(s); return ; } _Print(Alloc(s), buf, -1); } BigStr* MaybeEncodeString(BigStr* s) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&s); StackRoot _root1(&buf); buf = Alloc(); _Print(Alloc(s), buf, -1); return buf->getvalue(); } BigStr* MaybeEncodeJsonString(BigStr* s) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&s); StackRoot _root1(&buf); buf = Alloc(); _Print(Alloc(s), buf, -1, LOSSY_JSON); return buf->getvalue(); } int UNSEEN = 0; int EXPLORING = 1; int FINISHED = 2; InstancePrinter::InstancePrinter(mylib::BufWriter* buf, int indent, int options) { this->buf = buf; this->indent = indent; this->options = options; this->visited = Alloc>(); } void InstancePrinter::_ItemIndent(int level) { if (this->indent == -1) { return ; } this->buf->write_spaces(((level + 1) * this->indent)); } void InstancePrinter::_BracketIndent(int level) { if (this->indent == -1) { return ; } this->buf->write_spaces((level * this->indent)); } void InstancePrinter::_MaybeNewline() { if (this->indent == -1) { return ; } this->buf->write(str1087); } void InstancePrinter::_MaybeSpace() { if (this->indent == -1) { return ; } this->buf->write(str1088); } void InstancePrinter::_PrintList(value::List* val, int level) { int i; StackRoot _root0(&val); if (len(val->items) == 0) { this->buf->write(str1089); } else { this->buf->write(str1090); this->_MaybeNewline(); i = 0; for (ListIter it(val->items); !it.Done(); it.Next(), ++i) { value_asdl::value_t* item = it.Value(); StackRoot _for(&item ); if (i != 0) { this->buf->write(str1091); this->_MaybeNewline(); } this->_ItemIndent(level); this->Print(item, (level + 1)); } this->_MaybeNewline(); this->_BracketIndent(level); this->buf->write(str1092); } } void InstancePrinter::_PrintDict(value::Dict* val, int level) { int i; StackRoot _root0(&val); if (len(val->d) == 0) { this->buf->write(str1093); } else { this->buf->write(str1094); this->_MaybeNewline(); i = 0; for (DictIter it(val->d); !it.Done(); it.Next()) { BigStr* k = it.Key(); value_asdl::value_t* v = it.Value(); if (i != 0) { this->buf->write(str1095); this->_MaybeNewline(); } this->_ItemIndent(level); pyj8::WriteString(k, this->options, this->buf); this->buf->write(str1096); this->_MaybeSpace(); this->Print(v, (level + 1)); i += 1; } this->_MaybeNewline(); this->_BracketIndent(level); this->buf->write(str1097); } } void InstancePrinter::_PrintBashPrefix(BigStr* type_str, int level) { StackRoot _root0(&type_str); this->buf->write(str1098); this->_MaybeNewline(); this->_ItemIndent(level); this->buf->write(str1099); this->_MaybeSpace(); this->buf->write(type_str); this->_MaybeNewline(); this->_ItemIndent(level); this->buf->write(str1100); this->_MaybeSpace(); } void InstancePrinter::_PrintBashSuffix(int level) { this->_MaybeNewline(); this->_BracketIndent(level); this->buf->write(str1101); } void InstancePrinter::_PrintSparseArray(value::SparseArray* val, int level) { bool first; int i; StackRoot _root0(&val); this->_PrintBashPrefix(str1102, level); if (len(val->d) == 0) { this->buf->write(str1103); } else { this->buf->write(str1104); this->_MaybeNewline(); first = true; i = 0; for (DictIter it(val->d); !it.Done(); it.Next()) { mops::BigInt k = it.Key(); BigStr* v = it.Value(); if (i != 0) { this->buf->write(str1105); this->_MaybeNewline(); } this->_ItemIndent((level + 1)); pyj8::WriteString(mops::ToStr(k), this->options, this->buf); this->buf->write(str1106); this->_MaybeSpace(); pyj8::WriteString(v, this->options, this->buf); i += 1; } this->_MaybeNewline(); this->_BracketIndent((level + 1)); this->buf->write(str1107); } this->_PrintBashSuffix(level); } void InstancePrinter::_PrintBashArray(value::BashArray* val, int level) { bool first; int i; StackRoot _root0(&val); this->_PrintBashPrefix(str1108, level); if (len(val->strs) == 0) { this->buf->write(str1109); } else { this->buf->write(str1110); this->_MaybeNewline(); first = true; i = 0; for (ListIter it(val->strs); !it.Done(); it.Next(), ++i) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s == nullptr) { continue; } if (!first) { this->buf->write(str1111); this->_MaybeNewline(); } this->_ItemIndent((level + 1)); pyj8::WriteString(str(i), this->options, this->buf); this->buf->write(str1112); this->_MaybeSpace(); pyj8::WriteString(s, this->options, this->buf); first = false; } this->_MaybeNewline(); this->_BracketIndent((level + 1)); this->buf->write(str1113); } this->_PrintBashSuffix(level); } void InstancePrinter::_PrintBashAssoc(value::BashAssoc* val, int level) { int i; StackRoot _root0(&val); this->_PrintBashPrefix(str1114, level); if (len(val->d) == 0) { this->buf->write(str1115); } else { this->buf->write(str1116); this->_MaybeNewline(); i = 0; for (DictIter it(val->d); !it.Done(); it.Next()) { BigStr* k2 = it.Key(); BigStr* v2 = it.Value(); if (i != 0) { this->buf->write(str1117); this->_MaybeNewline(); } this->_ItemIndent((level + 1)); pyj8::WriteString(k2, this->options, this->buf); this->buf->write(str1118); this->_MaybeSpace(); pyj8::WriteString(v2, this->options, this->buf); i += 1; } this->_MaybeNewline(); this->_BracketIndent((level + 1)); this->buf->write(str1119); } this->_PrintBashSuffix(level); } void InstancePrinter::Print(value_asdl::value_t* val, int level) { value_asdl::value_t* UP_val = nullptr; double fl; BigStr* s = nullptr; int heap_id; int node_state; BigStr* ysh_type = nullptr; BigStr* id_str = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); StackRoot _root2(&s); StackRoot _root3(&ysh_type); StackRoot _root4(&id_str); UP_val = val; switch (val->tag()) { case value_e::Null: { this->buf->write(str1120); } break; case value_e::Bool: { value::Bool* val = static_cast(UP_val); this->buf->write(val->b ? str1121 : str1122); } break; case value_e::Int: { value::Int* val = static_cast(UP_val); this->buf->write(mops::ToStr(val->i)); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); fl = val->f; if (math::isinf(fl)) { if ((this->options & INF_NAN_ARE_NULL)) { s = str1123; } else { s = str1124; if (fl < 0) { s = str_concat(str1125, s); } } } else { if (math::isnan(fl)) { if ((this->options & INF_NAN_ARE_NULL)) { s = str1126; } else { s = str1127; } } else { s = str(fl); } } this->buf->write(s); } break; case value_e::Str: { value::Str* val = static_cast(UP_val); pyj8::WriteString(val->s, this->options, this->buf); } break; case value_e::List: { value::List* val = static_cast(UP_val); heap_id = HeapValueId(val); node_state = this->visited->get(heap_id, UNSEEN); if (node_state == FINISHED) { this->_PrintList(val, level); return ; } if (node_state == EXPLORING) { if ((this->options & SHOW_CYCLES)) { this->buf->write(StrFormat("[ -->%s ]", ValueIdString(val))); return ; } else { throw Alloc(StrFormat("Can't encode List%s in object cycle", ValueIdString(val))); } } this->visited->set(heap_id, EXPLORING); this->_PrintList(val, level); this->visited->set(heap_id, FINISHED); } break; case value_e::Dict: { value::Dict* val = static_cast(UP_val); heap_id = HeapValueId(val); node_state = this->visited->get(heap_id, UNSEEN); if (node_state == FINISHED) { this->_PrintDict(val, level); return ; } if (node_state == EXPLORING) { if ((this->options & SHOW_CYCLES)) { this->buf->write(StrFormat("{ -->%s }", ValueIdString(val))); return ; } else { throw Alloc(StrFormat("Can't encode Dict%s in object cycle", ValueIdString(val))); } } this->visited->set(heap_id, EXPLORING); this->_PrintDict(val, level); this->visited->set(heap_id, FINISHED); } break; case value_e::SparseArray: { value::SparseArray* val = static_cast(UP_val); this->_PrintSparseArray(val, level); } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); this->_PrintBashArray(val, level); } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); this->_PrintBashAssoc(val, level); } break; default: { ; // pass if ((this->options & SHOW_NON_DATA)) { ysh_type = ValType(val); id_str = ValueIdString(val); this->buf->write(StrFormat("<%s%s>", ysh_type, id_str)); } else { throw Alloc(StrFormat("Can't serialize object of type %s", ValType(val))); } } } } PrettyPrinter::PrettyPrinter(int max_col) { this->max_col = max_col; this->ref_count = Alloc>(); } void PrettyPrinter::PrettyTree(value_asdl::value_t* val, format::ColorOutput* f) { StackRoot _root0(&val); StackRoot _root1(&f); ; // pass } void PrettyPrinter::Print(value_asdl::value_t* val, mylib::BufWriter* buf) { format::ColorOutput* f = nullptr; StackRoot _root0(&val); StackRoot _root1(&buf); StackRoot _root2(&f); f = fmt::DetectConsoleOutput(mylib::Stdout()); this->PrettyTree(val, f); ; // pass } LexerDecoder::LexerDecoder(BigStr* s, bool is_j8, BigStr* lang_str) { this->s = s; this->is_j8 = is_j8; this->lang_str = lang_str; this->pos = 0; this->cur_line_num = 1; this->decoded = Alloc(); } error::Decode* LexerDecoder::_Error(BigStr* msg, int end_pos) { StackRoot _root0(&msg); return Alloc(msg, this->s, this->pos, end_pos, this->cur_line_num); } Tuple3 LexerDecoder::Next() { int tok_id; int end_pos; Tuple2 tup0 = match::MatchJ8Token(this->s, this->pos); tok_id = tup0.at0(); end_pos = tup0.at1(); if (!this->is_j8) { if ((tok_id == Id::Left_BSingleQuote || tok_id == Id::Left_USingleQuote)) { throw this->_Error(str1134, end_pos); } if (tok_id == Id::Ignored_Comment) { throw this->_Error(str1135, end_pos); } } if ((tok_id == Id::Left_DoubleQuote || tok_id == Id::Left_BSingleQuote || tok_id == Id::Left_USingleQuote)) { return this->_DecodeString(tok_id, end_pos); } if (tok_id == Id::Left_JDoubleQuote) { if (this->is_j8) { return this->_DecodeString(tok_id, end_pos); } else { throw this->_Error(str1136, end_pos); } } if (tok_id == Id::Ignored_Newline) { this->cur_line_num += 1; } this->pos = end_pos; return Tuple3(tok_id, end_pos, nullptr); } Tuple3 LexerDecoder::NextForLines() { int tok_id; int end_pos; Tuple2 tup1 = match::MatchJ8LinesToken(this->s, this->pos); tok_id = tup1.at0(); end_pos = tup1.at1(); if ((tok_id == Id::Left_DoubleQuote || tok_id == Id::Left_JDoubleQuote || tok_id == Id::Left_BSingleQuote || tok_id == Id::Left_USingleQuote)) { return this->_DecodeString(tok_id, end_pos); } if ((tok_id == Id::Lit_Chars and !pyj8::PartIsUtf8(this->s, this->pos, end_pos))) { throw this->_Error(StrFormat("Invalid UTF-8 in %s string literal", this->lang_str), end_pos); } if (tok_id == Id::Char_AsciiControl) { throw this->_Error(str1138, end_pos); } if (tok_id == Id::J8_Newline) { this->cur_line_num += 1; } this->pos = end_pos; return Tuple3(tok_id, end_pos, nullptr); } Tuple3 LexerDecoder::_DecodeString(int left_id, int str_pos) { int tok_id; int str_end; BigStr* s = nullptr; BigStr* part = nullptr; BigStr* ch = nullptr; BigStr* h = nullptr; int i; BigStr* h1 = nullptr; BigStr* h2 = nullptr; int i1; int i2; int code_point; StackRoot _root0(&s); StackRoot _root1(&part); StackRoot _root2(&ch); StackRoot _root3(&h); StackRoot _root4(&h1); StackRoot _root5(&h2); while (true) { if ((left_id == Id::Left_DoubleQuote || left_id == Id::Left_JDoubleQuote)) { Tuple2 tup2 = match::MatchJsonStrToken(this->s, str_pos); tok_id = tup2.at0(); str_end = tup2.at1(); } else { Tuple2 tup3 = match::MatchJ8StrToken(this->s, str_pos); tok_id = tup3.at0(); str_end = tup3.at1(); } if (tok_id == Id::Eol_Tok) { throw this->_Error(StrFormat("Unexpected EOF while lexing %s string", this->lang_str), str_end); } if (tok_id == Id::Unknown_Backslash) { throw this->_Error(StrFormat("Bad backslash escape in %s string", this->lang_str), str_end); } if (tok_id == Id::Char_AsciiControl) { throw this->_Error(StrFormat("%s strings can't have unescaped ASCII control chars", this->lang_str), str_end); } if ((tok_id == Id::Right_SingleQuote || tok_id == Id::Right_DoubleQuote)) { this->pos = str_end; s = this->decoded->getvalue(); this->decoded->clear(); return Tuple3(Id::J8_String, str_end, s); } if (tok_id == Id::Lit_Chars) { part = this->s->slice(str_pos, str_end); if (!pyj8::PartIsUtf8(this->s, str_pos, str_end)) { throw this->_Error(StrFormat("Invalid UTF-8 in %s string literal", this->lang_str), str_end); } } else { if (tok_id == Id::Char_OneChar) { ch = this->s->at((str_pos + 1)); part = consts::LookupCharC(ch); } else { if (tok_id == Id::Char_UBraced) { h = this->s->slice((str_pos + 3), (str_end - 1)); i = to_int(h, 16); if (i > 1114111) { throw this->_Error(str1143, str_end); } if ((55296 <= i and i < 57344)) { throw this->_Error(StrFormat("\\u{%s} escape is illegal because it's in the surrogate range", h), str_end); } part = Utf8Encode(i); } else { if (tok_id == Id::Char_YHex) { h = this->s->slice((str_pos + 2), str_end); if (left_id != Id::Left_BSingleQuote) { throw this->_Error(StrFormat("\\y%s escapes not allowed in u'' strings", h), str_end); } i = to_int(h, 16); part = chr(i); } else { if (tok_id == Id::Char_SurrogatePair) { h1 = this->s->slice((str_pos + 2), (str_pos + 6)); h2 = this->s->slice((str_pos + 8), (str_pos + 12)); i1 = (to_int(h1, 16) - 55296); i2 = (to_int(h2, 16) - 56320); code_point = ((65536 + (i1 << 10)) + i2); part = Utf8Encode(code_point); } else { if (tok_id == Id::Char_Unicode4) { h = this->s->slice((str_pos + 2), str_end); i = to_int(h, 16); part = Utf8Encode(i); } else { assert(0); // AssertionError } } } } } } this->decoded->write(part); str_pos = str_end; } } _Parser::_Parser(BigStr* s, bool is_j8) { this->s = s; this->is_j8 = is_j8; this->lang_str = is_j8 ? str1146 : str1147; this->lexer = Alloc(s, is_j8, this->lang_str); this->tok_id = Id::Undefined_Tok; this->start_pos = 0; this->end_pos = 0; this->decoded = str1148; } void _Parser::_Next() { while (true) { this->start_pos = this->end_pos; Tuple3 tup4 = this->lexer->Next(); this->tok_id = tup4.at0(); this->end_pos = tup4.at1(); this->decoded = tup4.at2(); if ((this->tok_id != Id::Ignored_Space && this->tok_id != Id::Ignored_Newline && this->tok_id != Id::Ignored_Comment)) { break; } } } void _Parser::_Eat(int tok_id) { if (this->tok_id != tok_id) { throw this->_ParseError(StrFormat("Expected %s, got %s", Id_str(tok_id), Id_str(this->tok_id))); } this->_Next(); } void _Parser::_NextForLines() { this->start_pos = this->end_pos; Tuple3 tup5 = this->lexer->NextForLines(); this->tok_id = tup5.at0(); this->end_pos = tup5.at1(); this->decoded = tup5.at2(); } error::Decode* _Parser::_ParseError(BigStr* msg) { StackRoot _root0(&msg); return Alloc(msg, this->s, this->start_pos, this->end_pos, this->lexer->cur_line_num); } Parser::Parser(BigStr* s, bool is_j8) : ::j8::_Parser(s, is_j8) { } Tuple2 Parser::_ParsePair() { BigStr* k = nullptr; value_asdl::value_t* v = nullptr; StackRoot _root0(&k); StackRoot _root1(&v); k = this->decoded; this->_Eat(Id::J8_String); this->_Eat(Id::J8_Colon); v = this->_ParseValue(); return Tuple2(k, v); } value_asdl::value_t* Parser::_ParseDict() { Dict* d = nullptr; BigStr* k = nullptr; value_asdl::value_t* v = nullptr; StackRoot _root0(&d); StackRoot _root1(&k); StackRoot _root2(&v); d = Alloc>(); this->_Next(); if (this->tok_id == Id::J8_RBrace) { this->_Next(); return Alloc(d); } Tuple2 tup6 = this->_ParsePair(); k = tup6.at0(); v = tup6.at1(); d->set(k, v); while (this->tok_id == Id::J8_Comma) { this->_Next(); Tuple2 tup7 = this->_ParsePair(); k = tup7.at0(); v = tup7.at1(); d->set(k, v); } this->_Eat(Id::J8_RBrace); return Alloc(d); } value_asdl::value_t* Parser::_ParseList() { List* items = nullptr; StackRoot _root0(&items); items = Alloc>(); this->_Next(); if (this->tok_id == Id::J8_RBracket) { this->_Next(); return Alloc(items); } items->append(this->_ParseValue()); while (this->tok_id == Id::J8_Comma) { this->_Next(); items->append(this->_ParseValue()); } this->_Eat(Id::J8_RBracket); return Alloc(items); } value_asdl::value_t* Parser::_ParseValue() { value::Bool* b = nullptr; BigStr* part = nullptr; mops::BigInt big; value::Str* str_val = nullptr; StackRoot _root0(&b); StackRoot _root1(&part); StackRoot _root2(&str_val); if (this->tok_id == Id::J8_LBrace) { return this->_ParseDict(); } else { if (this->tok_id == Id::J8_LBracket) { return this->_ParseList(); } else { if (this->tok_id == Id::J8_Null) { this->_Next(); return value::Null; } else { if (this->tok_id == Id::J8_Bool) { b = Alloc(str_equals(this->s->at(this->start_pos), str1150)); this->_Next(); return b; } else { if (this->tok_id == Id::J8_Int) { part = this->s->slice(this->start_pos, this->end_pos); this->_Next(); try { big = mops::FromStr(part); } catch (ValueError*) { throw this->_ParseError(str1151); } return Alloc(big); } else { if (this->tok_id == Id::J8_Float) { part = this->s->slice(this->start_pos, this->end_pos); this->_Next(); return Alloc(to_float(part)); } else { if (this->tok_id == Id::J8_String) { str_val = Alloc(this->decoded); this->_Next(); return str_val; } else { if (this->tok_id == Id::Eol_Tok) { throw this->_ParseError(StrFormat("Unexpected EOF while parsing %s", this->lang_str)); } else { throw this->_ParseError(StrFormat("Invalid token while parsing %s: %s", this->lang_str, Id_str(this->tok_id))); } } } } } } } } } value_asdl::value_t* Parser::ParseValue() { value_asdl::value_t* obj = nullptr; int n; int extra; StackRoot _root0(&obj); this->_Next(); obj = this->_ParseValue(); n = len(this->s); if (this->start_pos != n) { extra = (n - this->start_pos); throw this->_ParseError(StrFormat("Got %d bytes of unexpected trailing input", extra)); } return obj; } Nil8Parser::Nil8Parser(BigStr* s, bool is_j8) : ::j8::_Parser(s, is_j8) { } nil8_asdl::nvalue_t* Nil8Parser::_ParseRecord() { List* items = nullptr; StackRoot _root0(&items); items = Alloc>(); this->_Next(); if (this->tok_id == Id::J8_RParen) { this->_Next(); return Alloc(items); } while (this->tok_id != Id::J8_RParen) { items->append(this->_ParseNil8()); } this->_Eat(Id::J8_RParen); return Alloc(items); } nil8_asdl::nvalue_t* Nil8Parser::_ParseList8() { List* items = nullptr; StackRoot _root0(&items); items = Alloc>(); this->_Next(); if (this->tok_id == Id::J8_RBracket) { this->_Next(); return Alloc(items); } while (this->tok_id != Id::J8_RBracket) { items->append(this->_ParseNil8()); } this->_Eat(Id::J8_RBracket); return Alloc(items); } nil8_asdl::nvalue_t* Nil8Parser::_ParseNil8() { nil8_asdl::nvalue_t* obj = nullptr; nvalue::Bool* b = nullptr; BigStr* part = nullptr; nvalue::Str* str_val = nullptr; nvalue::Symbol* op = nullptr; nil8_asdl::nvalue_t* operand2 = nullptr; nil8_asdl::nvalue_t* infix = nullptr; StackRoot _root0(&obj); StackRoot _root1(&b); StackRoot _root2(&part); StackRoot _root3(&str_val); StackRoot _root4(&op); StackRoot _root5(&operand2); StackRoot _root6(&infix); if (this->tok_id == Id::J8_LParen) { obj = this->_ParseRecord(); } else { if (this->tok_id == Id::J8_LBracket) { obj = this->_ParseList8(); } else { if (this->tok_id == Id::J8_Null) { this->_Next(); obj = nvalue::Null; } else { if (this->tok_id == Id::J8_Bool) { b = Alloc(str_equals(this->s->at(this->start_pos), str1155)); this->_Next(); obj = b; } else { if (this->tok_id == Id::J8_Int) { part = this->s->slice(this->start_pos, this->end_pos); this->_Next(); obj = Alloc(to_int(part)); } else { if (this->tok_id == Id::J8_Float) { part = this->s->slice(this->start_pos, this->end_pos); this->_Next(); obj = Alloc(to_float(part)); } else { if (this->tok_id == Id::J8_String) { str_val = Alloc(this->decoded); this->_Next(); obj = str_val; } else { if ((this->tok_id == Id::J8_Identifier || this->tok_id == Id::J8_Operator || this->tok_id == Id::J8_Colon || this->tok_id == Id::J8_Comma)) { part = this->s->slice(this->start_pos, this->end_pos); this->_Next(); obj = Alloc(part); } else { if (this->tok_id == Id::Eol_Tok) { throw this->_ParseError(StrFormat("Unexpected EOF while parsing %s", this->lang_str)); } else { throw this->_ParseError(StrFormat("Invalid token while parsing %s: %s", this->lang_str, Id_str(this->tok_id))); } } } } } } } } } if ((this->tok_id == Id::J8_Operator || this->tok_id == Id::J8_Colon || this->tok_id == Id::J8_Comma)) { part = this->s->slice(this->start_pos, this->end_pos); op = Alloc(part); this->_Next(); operand2 = this->_ParseNil8(); infix = Alloc(NewList(std::initializer_list{op, obj, operand2})); return infix; } return obj; } nil8_asdl::nvalue_t* Nil8Parser::ParseNil8() { nil8_asdl::nvalue_t* obj = nullptr; StackRoot _root0(&obj); this->_Next(); obj = this->_ParseNil8(); if (this->tok_id != Id::Eol_Tok) { throw this->_ParseError(str1158); } return obj; } J8LinesParser::J8LinesParser(BigStr* s) : ::j8::_Parser(s, true) { } void J8LinesParser::_Show(BigStr* s) { StackRoot _root0(&s); mylib::print_stderr(StrFormat("%s tok_id %s %d-%d", s, Id_str(this->tok_id), this->start_pos, this->end_pos)); } void J8LinesParser::_ParseLine(List* out) { int string_start; int prev_id; int prev_start; int string_end; StackRoot _root0(&out); if (this->tok_id == Id::WS_Space) { this->_NextForLines(); } if ((this->tok_id == Id::J8_Newline || this->tok_id == Id::Eol_Tok)) { this->_NextForLines(); return ; } if (this->tok_id == Id::J8_String) { out->append(this->decoded); this->_NextForLines(); if (this->tok_id == Id::WS_Space) { this->_NextForLines(); } if ((this->tok_id != Id::J8_Newline && this->tok_id != Id::Eol_Tok)) { throw this->_ParseError(StrFormat("Unexpected text after J8 Line (%s)", Id_str(this->tok_id))); } this->_NextForLines(); return ; } if (this->tok_id == Id::Lit_Chars) { string_start = this->start_pos; while (true) { prev_id = this->tok_id; prev_start = this->start_pos; this->_NextForLines(); if ((this->tok_id == Id::J8_Newline || this->tok_id == Id::Eol_Tok)) { break; } } if (prev_id == Id::WS_Space) { string_end = prev_start; } else { string_end = this->start_pos; } out->append(this->s->slice(string_start, string_end)); this->_NextForLines(); return ; } assert(0); // AssertionError } List* J8LinesParser::Parse() { List* lines = nullptr; StackRoot _root0(&lines); this->_NextForLines(); lines = Alloc>(); while (this->tok_id != Id::Eol_Tok) { this->_ParseLine(lines); } if (this->tok_id != Id::Eol_Tok) { throw this->_ParseError(str1161); } return lines; } List* SplitJ8Lines(BigStr* s) { j8::J8LinesParser* p = nullptr; StackRoot _root0(&s); StackRoot _root1(&p); p = Alloc(s); return p->Parse(); } } // define namespace j8 namespace j8_lite { // define BigStr* EncodeString(BigStr* s, bool unquoted_ok) { StackRoot _root0(&s); if ((unquoted_ok and fastfunc::CanOmitQuotes(s))) { return s; } return fastfunc::J8EncodeString(s, 1); } BigStr* YshEncodeString(BigStr* s) { StackRoot _root0(&s); return fastfunc::ShellEncodeString(s, 1); } BigStr* MaybeShellEncode(BigStr* s) { StackRoot _root0(&s); if (fastfunc::CanOmitQuotes(s)) { return s; } return fastfunc::ShellEncodeString(s, 0); } BigStr* ShellEncode(BigStr* s) { StackRoot _root0(&s); return fastfunc::ShellEncodeString(s, 0); } BigStr* YshEncode(BigStr* s, bool unquoted_ok) { StackRoot _root0(&s); if ((unquoted_ok and fastfunc::CanOmitQuotes(s))) { return s; } return fastfunc::ShellEncodeString(s, 1); } } // define namespace j8_lite namespace ansi { // define BigStr* RESET = str1162; BigStr* BOLD = str1163; BigStr* UNDERLINE = str1164; BigStr* REVERSE = str1165; BigStr* RED = str1166; BigStr* GREEN = str1167; BigStr* YELLOW = str1168; BigStr* BLUE = str1169; BigStr* MAGENTA = str1170; BigStr* CYAN = str1171; BigStr* WHITE = str1172; } // define namespace ansi namespace pp_value { // define using pretty_asdl::doc; using pretty_asdl::Measure; using pretty_asdl::MeasuredDoc; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::value_str; using pretty::_Break; using pretty::_Concat; using pretty::_Flat; using pretty::_Group; using pretty::_IfFlat; using pretty::_Indent; using pretty::_EmptyMeasure; BigStr* ValType(value_asdl::value_t* val) { StackRoot _root0(&val); return value_str(val->tag(), false); } BigStr* FloatString(double fl) { BigStr* s = nullptr; StackRoot _root0(&s); if (math::isinf(fl)) { s = str1173; if (fl < 0) { s = str_concat(str1174, s); } } else { if (math::isnan(fl)) { s = str1175; } else { s = str(fl); } } return s; } int TryUnicodeWidth(BigStr* s) { int width; StackRoot _root0(&s); try { width = libc::wcswidth(s); } catch (UnicodeError*) { width = len(s); } if (width == -1) { return len(s); } return width; } pretty_asdl::MeasuredDoc* UText(BigStr* string) { StackRoot _root0(&string); return Alloc(Alloc(string), Alloc(TryUnicodeWidth(string), -1)); } ValueEncoder::ValueEncoder() { this->indent = 4; this->use_styles = true; this->max_tabular_width = 22; this->ysh_style = true; this->visiting = Alloc>(); this->int_style = ansi::YELLOW; this->float_style = ansi::BLUE; this->null_style = ansi::RED; this->bool_style = ansi::CYAN; this->string_style = ansi::GREEN; this->cycle_style = str_concat(ansi::BOLD, ansi::BLUE); this->type_style = ansi::MAGENTA; } void ValueEncoder::SetIndent(int indent) { this->indent = indent; } void ValueEncoder::SetUseStyles(bool use_styles) { this->use_styles = use_styles; } void ValueEncoder::SetMaxTabularWidth(int max_tabular_width) { this->max_tabular_width = max_tabular_width; } List* ValueEncoder::TypePrefix(BigStr* type_str) { pretty_asdl::MeasuredDoc* type_name = nullptr; int n; BigStr* spaces = nullptr; List* mdocs = nullptr; StackRoot _root0(&type_str); StackRoot _root1(&type_name); StackRoot _root2(&spaces); StackRoot _root3(&mdocs); type_name = this->_Styled(this->type_style, UText(type_str)); n = len(type_str); spaces = str_repeat(str1176, (6 - n)); mdocs = NewList(std::initializer_list{UText(str1177), type_name, UText(str1178), _Break(spaces)}); return mdocs; } pretty_asdl::MeasuredDoc* ValueEncoder::Value(value_asdl::value_t* val) { StackRoot _root0(&val); this->visiting->clear(); return this->_Value(val); } pretty_asdl::MeasuredDoc* ValueEncoder::_Styled(BigStr* style, pretty_asdl::MeasuredDoc* mdoc) { StackRoot _root0(&style); StackRoot _root1(&mdoc); if (this->use_styles) { return _Concat(NewList(std::initializer_list{Alloc(Alloc(style), _EmptyMeasure()), mdoc, Alloc(Alloc(ansi::RESET), _EmptyMeasure())})); } else { return mdoc; } } pretty_asdl::MeasuredDoc* ValueEncoder::_Surrounded(BigStr* open, pretty_asdl::MeasuredDoc* mdoc, BigStr* close) { StackRoot _root0(&open); StackRoot _root1(&mdoc); StackRoot _root2(&close); return _Group(_Concat(NewList(std::initializer_list{UText(open), _Indent(this->indent, _Concat(NewList(std::initializer_list{_Break(str1179), mdoc}))), _Break(str1180), UText(close)}))); } pretty_asdl::MeasuredDoc* ValueEncoder::_SurroundedAndPrefixed(BigStr* open, pretty_asdl::MeasuredDoc* prefix, BigStr* sep, pretty_asdl::MeasuredDoc* mdoc, BigStr* close) { StackRoot _root0(&open); StackRoot _root1(&prefix); StackRoot _root2(&sep); StackRoot _root3(&mdoc); StackRoot _root4(&close); return _Group(_Concat(NewList(std::initializer_list{UText(open), prefix, _Indent(this->indent, _Concat(NewList(std::initializer_list{_Break(sep), mdoc}))), _Break(str1181), UText(close)}))); } pretty_asdl::MeasuredDoc* ValueEncoder::_Join(List* items, BigStr* sep, BigStr* space) { List* seq = nullptr; int i; StackRoot _root0(&items); StackRoot _root1(&sep); StackRoot _root2(&space); StackRoot _root3(&seq); seq = Alloc>(); i = 0; for (ListIter it(items); !it.Done(); it.Next(), ++i) { pretty_asdl::MeasuredDoc* item = it.Value(); StackRoot _for(&item ); if (i != 0) { seq->append(UText(sep)); seq->append(_Break(space)); } seq->append(item); } return _Concat(seq); } pretty_asdl::MeasuredDoc* ValueEncoder::_Tabular(List* items, BigStr* sep) { int max_flat_len; List* seq = nullptr; int i; pretty_asdl::MeasuredDoc* non_tabular = nullptr; int sep_width; List* tabular_seq = nullptr; int padding; pretty_asdl::MeasuredDoc* tabular = nullptr; StackRoot _root0(&items); StackRoot _root1(&sep); StackRoot _root2(&seq); StackRoot _root3(&non_tabular); StackRoot _root4(&tabular_seq); StackRoot _root5(&tabular); if (len(items) == 0) { return UText(str1182); } max_flat_len = 0; seq = Alloc>(); i = 0; for (ListIter it(items); !it.Done(); it.Next(), ++i) { pretty_asdl::MeasuredDoc* item = it.Value(); StackRoot _for(&item ); if (i != 0) { seq->append(UText(sep)); seq->append(_Break(str1183)); } seq->append(item); max_flat_len = max(max_flat_len, item->measure->flat); } non_tabular = _Concat(seq); sep_width = TryUnicodeWidth(sep); if (((max_flat_len + sep_width) + 1) <= this->max_tabular_width) { tabular_seq = Alloc>(); i = 0; for (ListIter it(items); !it.Done(); it.Next(), ++i) { pretty_asdl::MeasuredDoc* item = it.Value(); StackRoot _for(&item ); tabular_seq->append(_Flat(item)); if (i != (len(items) - 1)) { padding = ((max_flat_len - item->measure->flat) + 1); tabular_seq->append(UText(sep)); tabular_seq->append(_Group(_Break(str_repeat(str1184, padding)))); } } tabular = _Concat(tabular_seq); return _Group(_IfFlat(non_tabular, tabular)); } else { return non_tabular; } } pretty_asdl::MeasuredDoc* ValueEncoder::_DictKey(BigStr* s) { BigStr* encoded = nullptr; StackRoot _root0(&s); StackRoot _root1(&encoded); if (match::IsValidVarName(s)) { encoded = s; } else { if (this->ysh_style) { encoded = j8_lite::YshEncodeString(s); } else { encoded = j8_lite::EncodeString(s); } } return UText(encoded); } pretty_asdl::MeasuredDoc* ValueEncoder::_StringLiteral(BigStr* s) { BigStr* encoded = nullptr; StackRoot _root0(&s); StackRoot _root1(&encoded); if (this->ysh_style) { encoded = j8_lite::YshEncodeString(s); } else { encoded = j8_lite::EncodeString(s); } return this->_Styled(this->string_style, UText(encoded)); } pretty_asdl::MeasuredDoc* ValueEncoder::_BashStringLiteral(BigStr* s) { BigStr* encoded = nullptr; StackRoot _root0(&s); StackRoot _root1(&encoded); encoded = j8_lite::ShellEncode(s); return this->_Styled(this->string_style, UText(encoded)); } pretty_asdl::MeasuredDoc* ValueEncoder::_YshList(value::List* vlist) { List* mdocs = nullptr; StackRoot _root0(&vlist); StackRoot _root1(&mdocs); if (len(vlist->items) == 0) { return UText(str1185); } mdocs = Alloc>(); for (ListIter it(vlist->items); !it.Done(); it.Next()) { value_asdl::value_t* item = it.Value(); mdocs->append(this->_Value(item)); } return this->_Surrounded(str1186, this->_Tabular(mdocs, str1187), str1188); } pretty_asdl::MeasuredDoc* ValueEncoder::_YshDict(value::Dict* vdict) { List* mdocs = nullptr; StackRoot _root0(&vdict); StackRoot _root1(&mdocs); if (len(vdict->d) == 0) { return UText(str1189); } mdocs = Alloc>(); for (DictIter it(vdict->d); !it.Done(); it.Next()) { BigStr* k = it.Key(); value_asdl::value_t* v = it.Value(); mdocs->append(_Concat(NewList(std::initializer_list{this->_DictKey(k), UText(str1190), this->_Value(v)}))); } return this->_Surrounded(str1191, this->_Join(mdocs, str1192, str1193), str1194); } pretty_asdl::MeasuredDoc* ValueEncoder::_BashArray(value::BashArray* varray) { pretty_asdl::MeasuredDoc* type_name = nullptr; List* mdocs = nullptr; StackRoot _root0(&varray); StackRoot _root1(&type_name); StackRoot _root2(&mdocs); type_name = this->_Styled(this->type_style, UText(str1195)); if (len(varray->strs) == 0) { return _Concat(NewList(std::initializer_list{UText(str1196), type_name, UText(str1197)})); } mdocs = Alloc>(); for (ListIter it(varray->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s == nullptr) { mdocs->append(UText(str1198)); } else { mdocs->append(this->_BashStringLiteral(s)); } } return this->_SurroundedAndPrefixed(str1199, type_name, str1200, this->_Tabular(mdocs, str1201), str1202); } pretty_asdl::MeasuredDoc* ValueEncoder::_BashAssoc(value::BashAssoc* vassoc) { pretty_asdl::MeasuredDoc* type_name = nullptr; List* mdocs = nullptr; StackRoot _root0(&vassoc); StackRoot _root1(&type_name); StackRoot _root2(&mdocs); type_name = this->_Styled(this->type_style, UText(str1203)); if (len(vassoc->d) == 0) { return _Concat(NewList(std::initializer_list{UText(str1204), type_name, UText(str1205)})); } mdocs = Alloc>(); for (DictIter it(vassoc->d); !it.Done(); it.Next()) { BigStr* k2 = it.Key(); BigStr* v2 = it.Value(); mdocs->append(_Concat(NewList(std::initializer_list{UText(str1206), this->_BashStringLiteral(k2), UText(str1207), this->_BashStringLiteral(v2)}))); } return this->_SurroundedAndPrefixed(str1208, type_name, str1209, this->_Join(mdocs, str1210, str1211), str1212); } pretty_asdl::MeasuredDoc* ValueEncoder::_SparseArray(value::SparseArray* val) { pretty_asdl::MeasuredDoc* type_name = nullptr; List* mdocs = nullptr; StackRoot _root0(&val); StackRoot _root1(&type_name); StackRoot _root2(&mdocs); type_name = this->_Styled(this->type_style, UText(str1213)); if (len(val->d) == 0) { return _Concat(NewList(std::initializer_list{UText(str1214), type_name, UText(str1215)})); } mdocs = Alloc>(); for (DictIter it(val->d); !it.Done(); it.Next()) { mops::BigInt k2 = it.Key(); BigStr* v2 = it.Value(); mdocs->append(_Concat(NewList(std::initializer_list{UText(str1216), this->_Styled(this->int_style, UText(mops::ToStr(k2))), UText(str1217), this->_BashStringLiteral(v2)}))); } return this->_SurroundedAndPrefixed(str1218, type_name, str1219, this->_Join(mdocs, str1220, str1221), str1222); } pretty_asdl::MeasuredDoc* ValueEncoder::_Value(value_asdl::value_t* val) { bool b; mops::BigInt i; double f; BigStr* s = nullptr; value::Range* r = nullptr; pretty_asdl::MeasuredDoc* type_name = nullptr; List* mdocs = nullptr; value::List* vlist = nullptr; int heap_id; pretty_asdl::MeasuredDoc* result = nullptr; value::Dict* vdict = nullptr; value::SparseArray* sparse = nullptr; value::BashArray* varray = nullptr; value::BashAssoc* vassoc = nullptr; BigStr* id_str = nullptr; StackRoot _root0(&val); StackRoot _root1(&s); StackRoot _root2(&r); StackRoot _root3(&type_name); StackRoot _root4(&mdocs); StackRoot _root5(&vlist); StackRoot _root6(&result); StackRoot _root7(&vdict); StackRoot _root8(&sparse); StackRoot _root9(&varray); StackRoot _root10(&vassoc); StackRoot _root11(&id_str); switch (val->tag()) { case value_e::Null: { return this->_Styled(this->null_style, UText(str1223)); } break; case value_e::Bool: { b = static_cast(val)->b; return this->_Styled(this->bool_style, UText(b ? str1224 : str1225)); } break; case value_e::Int: { i = static_cast(val)->i; return this->_Styled(this->int_style, UText(mops::ToStr(i))); } break; case value_e::Float: { f = static_cast(val)->f; return this->_Styled(this->float_style, UText(FloatString(f))); } break; case value_e::Str: { s = static_cast(val)->s; return this->_StringLiteral(s); } break; case value_e::Range: { r = static_cast(val); type_name = this->_Styled(this->type_style, UText(ValType(r))); mdocs = NewList(std::initializer_list{UText(str(r->lower)), UText(str1226), UText(str(r->upper))}); return this->_SurroundedAndPrefixed(str1227, type_name, str1228, this->_Join(mdocs, str1229, str1230), str1231); } break; case value_e::List: { vlist = static_cast(val); heap_id = j8::HeapValueId(vlist); if (this->visiting->get(heap_id, false)) { return _Concat(NewList(std::initializer_list{UText(str1232), this->_Styled(this->cycle_style, UText(str1233)), UText(str1234)})); } else { this->visiting->set(heap_id, true); result = this->_YshList(vlist); this->visiting->set(heap_id, false); return result; } } break; case value_e::Dict: { vdict = static_cast(val); heap_id = j8::HeapValueId(vdict); if (this->visiting->get(heap_id, false)) { return _Concat(NewList(std::initializer_list{UText(str1235), this->_Styled(this->cycle_style, UText(str1236)), UText(str1237)})); } else { this->visiting->set(heap_id, true); result = this->_YshDict(vdict); this->visiting->set(heap_id, false); return result; } } break; case value_e::SparseArray: { sparse = static_cast(val); return this->_SparseArray(sparse); } break; case value_e::BashArray: { varray = static_cast(val); return this->_BashArray(varray); } break; case value_e::BashAssoc: { vassoc = static_cast(val); return this->_BashAssoc(vassoc); } break; default: { type_name = this->_Styled(this->type_style, UText(ValType(val))); id_str = j8::ValueIdString(val); return _Concat(NewList(std::initializer_list{UText(str1238), type_name, UText(str_concat(id_str, str1239))})); } } } } // define namespace pp_value namespace pretty { // define using pretty_asdl::doc; using pretty_asdl::doc_e; using pretty_asdl::DocFragment; using pretty_asdl::Measure; using pretty_asdl::MeasuredDoc; using mylib::BufWriter; pretty_asdl::Measure* _EmptyMeasure() { return Alloc(0, -1); } pretty_asdl::Measure* _FlattenMeasure(pretty_asdl::Measure* measure) { StackRoot _root0(&measure); return Alloc(measure->flat, -1); } pretty_asdl::Measure* _ConcatMeasure(pretty_asdl::Measure* m1, pretty_asdl::Measure* m2) { StackRoot _root0(&m1); StackRoot _root1(&m2); if (m1->nonflat != -1) { return Alloc((m1->flat + m2->flat), m1->nonflat); } else { if (m2->nonflat != -1) { return Alloc((m1->flat + m2->flat), (m1->flat + m2->nonflat)); } else { return Alloc((m1->flat + m2->flat), -1); } } } int _SuffixLen(pretty_asdl::Measure* measure) { StackRoot _root0(&measure); if (measure->nonflat != -1) { return measure->nonflat; } else { return measure->flat; } } pretty_asdl::MeasuredDoc* AsciiText(BigStr* string) { StackRoot _root0(&string); return Alloc(Alloc(string), Alloc(len(string), -1)); } pretty_asdl::MeasuredDoc* _Break(BigStr* string) { StackRoot _root0(&string); return Alloc(Alloc(string), Alloc(len(string), 0)); } pretty_asdl::MeasuredDoc* _Indent(int indent, pretty_asdl::MeasuredDoc* mdoc) { StackRoot _root0(&mdoc); return Alloc(Alloc(indent, mdoc), mdoc->measure); } pretty_asdl::MeasuredDoc* _Concat(List* mdocs) { pretty_asdl::Measure* measure = nullptr; StackRoot _root0(&mdocs); StackRoot _root1(&measure); measure = _EmptyMeasure(); for (ListIter it(mdocs); !it.Done(); it.Next()) { pretty_asdl::MeasuredDoc* mdoc = it.Value(); StackRoot _for(&mdoc ); measure = _ConcatMeasure(measure, mdoc->measure); } return Alloc(Alloc(mdocs), measure); } pretty_asdl::MeasuredDoc* _Group(pretty_asdl::MeasuredDoc* mdoc) { StackRoot _root0(&mdoc); return Alloc(Alloc(mdoc), mdoc->measure); } pretty_asdl::MeasuredDoc* _IfFlat(pretty_asdl::MeasuredDoc* flat_mdoc, pretty_asdl::MeasuredDoc* nonflat_mdoc) { StackRoot _root0(&flat_mdoc); StackRoot _root1(&nonflat_mdoc); return Alloc(Alloc(flat_mdoc, nonflat_mdoc), Alloc(flat_mdoc->measure->flat, nonflat_mdoc->measure->nonflat)); } pretty_asdl::MeasuredDoc* _Flat(pretty_asdl::MeasuredDoc* mdoc) { StackRoot _root0(&mdoc); return Alloc(Alloc(mdoc), _FlattenMeasure(mdoc->measure)); } PrettyPrinter::PrettyPrinter(int max_width) { this->max_width = max_width; } bool PrettyPrinter::_Fits(int prefix_len, doc::Group* group, pretty_asdl::Measure* suffix_measure) { pretty_asdl::Measure* measure = nullptr; StackRoot _root0(&group); StackRoot _root1(&suffix_measure); StackRoot _root2(&measure); measure = _ConcatMeasure(_FlattenMeasure(group->mdoc->measure), suffix_measure); return (prefix_len + _SuffixLen(measure)) <= this->max_width; } void PrettyPrinter::PrintDoc(pretty_asdl::MeasuredDoc* document, mylib::BufWriter* buf) { int prefix_len; List* fragments = nullptr; pretty_asdl::DocFragment* frag = nullptr; doc::Text* text = nullptr; BigStr* break_str = nullptr; doc::Indent* indented = nullptr; doc::Concat* concat = nullptr; pretty_asdl::Measure* measure = nullptr; doc::Group* group = nullptr; bool flat; doc::IfFlat* if_flat = nullptr; pretty_asdl::MeasuredDoc* subdoc = nullptr; doc::Flat* flat_doc = nullptr; StackRoot _root0(&document); StackRoot _root1(&buf); StackRoot _root2(&fragments); StackRoot _root3(&frag); StackRoot _root4(&text); StackRoot _root5(&break_str); StackRoot _root6(&indented); StackRoot _root7(&concat); StackRoot _root8(&measure); StackRoot _root9(&group); StackRoot _root10(&if_flat); StackRoot _root11(&subdoc); StackRoot _root12(&flat_doc); prefix_len = 0; fragments = NewList(std::initializer_list{Alloc(_Group(document), 0, false, _EmptyMeasure())}); while (len(fragments) > 0) { frag = fragments->pop(); switch (frag->mdoc->doc->tag()) { case doc_e::Text: { text = static_cast(frag->mdoc->doc); buf->write(text->string); prefix_len += frag->mdoc->measure->flat; } break; case doc_e::Break: { if (frag->is_flat) { break_str = static_cast(frag->mdoc->doc)->string; buf->write(break_str); prefix_len += frag->mdoc->measure->flat; } else { buf->write(str1240); buf->write_spaces(frag->indent); prefix_len = frag->indent; } } break; case doc_e::Indent: { indented = static_cast(frag->mdoc->doc); fragments->append(Alloc(indented->mdoc, (frag->indent + indented->indent), frag->is_flat, frag->measure)); } break; case doc_e::Concat: { concat = static_cast(frag->mdoc->doc); measure = frag->measure; for (ReverseListIter it(concat->mdocs); !it.Done(); it.Next()) { pretty_asdl::MeasuredDoc* mdoc = it.Value(); StackRoot _for(&mdoc ); fragments->append(Alloc(mdoc, frag->indent, frag->is_flat, measure)); measure = _ConcatMeasure(mdoc->measure, measure); } } break; case doc_e::Group: { group = static_cast(frag->mdoc->doc); flat = this->_Fits(prefix_len, group, frag->measure); fragments->append(Alloc(group->mdoc, frag->indent, flat, frag->measure)); } break; case doc_e::IfFlat: { if_flat = static_cast(frag->mdoc->doc); if (frag->is_flat) { subdoc = if_flat->flat_mdoc; } else { subdoc = if_flat->nonflat_mdoc; } fragments->append(Alloc(subdoc, frag->indent, frag->is_flat, frag->measure)); } break; case doc_e::Flat: { flat_doc = static_cast(frag->mdoc->doc); fragments->append(Alloc(flat_doc->mdoc, frag->indent, true, frag->measure)); } break; } } } } // define namespace pretty namespace ui { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using syntax_asdl::Token; using syntax_asdl::SourceLine; using syntax_asdl::loc; using syntax_asdl::loc_e; using syntax_asdl::loc_t; using syntax_asdl::command_t; using syntax_asdl::command_str; using syntax_asdl::source; using syntax_asdl::source_e; using value_asdl::value_e; using value_asdl::value_t; namespace fmt = format; using mylib::print_stderr; BigStr* ValType(value_asdl::value_t* val) { StackRoot _root0(&val); return pp_value::ValType(val); } BigStr* CommandType(syntax_asdl::command_t* cmd) { StackRoot _root0(&cmd); return command_str(cmd->tag()); } BigStr* PrettyId(int id_) { return Id_str(id_); } BigStr* PrettyToken(syntax_asdl::Token* tok) { BigStr* val = nullptr; StackRoot _root0(&tok); StackRoot _root1(&val); if (tok->id == Id::Eof_Real) { return str1241; } val = tok->line->content->slice(tok->col, (tok->col + tok->length)); return repr(val); } BigStr* PrettyDir(BigStr* dir_name, BigStr* home_dir) { StackRoot _root0(&dir_name); StackRoot _root1(&home_dir); if (home_dir != nullptr) { if ((str_equals(dir_name, home_dir) or dir_name->startswith(str_concat(home_dir, str1242)))) { return str_concat(str1243, dir_name->slice(len(home_dir))); } } return dir_name; } void _PrintCodeExcerpt(BigStr* line, int col, int length, mylib::Writer* f) { mylib::BufWriter* buf = nullptr; StackRoot _root0(&line); StackRoot _root1(&f); StackRoot _root2(&buf); buf = Alloc(); buf->write(str1244); buf->write(line->rstrip()); buf->write(str1245); for (StrIter it(line->slice(0, col)); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); buf->write(str_equals(c, str1246) ? str1247 : str1248); } buf->write(str1249); buf->write(str_repeat(str1250, (length - 1))); buf->write(str1251); f->write(buf->getvalue()); } void _PrintTokenTooLong(loc::TokenTooLong* loc_tok, mylib::Writer* f) { syntax_asdl::SourceLine* line = nullptr; int col; mylib::BufWriter* buf = nullptr; BigStr* source_str = nullptr; StackRoot _root0(&loc_tok); StackRoot _root1(&f); StackRoot _root2(&line); StackRoot _root3(&buf); StackRoot _root4(&source_str); line = loc_tok->line; col = loc_tok->col; buf = Alloc(); buf->write(str1252); buf->write(line->content->slice(0, (col + 10))->rstrip()); buf->write(str1253); for (StrIter it(line->content->slice(0, col)); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); buf->write(str_equals(c, str1254) ? str1255 : str1256); } buf->write(str1257); source_str = GetLineSourceString(loc_tok->line, true); buf->write(StrFormat("%s:%d: Token starting at column %d is too long: %d bytes (%s)\n", source_str, line->line_num, loc_tok->col, loc_tok->length, Id_str(loc_tok->id))); f->write(buf->getvalue()); } BigStr* GetLineSourceString(syntax_asdl::SourceLine* line, bool quote_filename) { syntax_asdl::source_t* src = nullptr; syntax_asdl::source_t* UP_src = nullptr; BigStr* s = nullptr; syntax_asdl::Token* blame_tok = nullptr; int line_num; BigStr* outer_source = nullptr; BigStr* var_name = nullptr; BigStr* where = nullptr; syntax_asdl::Token* orig_tok = nullptr; syntax_asdl::Token* span2 = nullptr; StackRoot _root0(&line); StackRoot _root1(&src); StackRoot _root2(&UP_src); StackRoot _root3(&s); StackRoot _root4(&blame_tok); StackRoot _root5(&outer_source); StackRoot _root6(&var_name); StackRoot _root7(&where); StackRoot _root8(&orig_tok); StackRoot _root9(&span2); src = line->src; UP_src = src; switch (src->tag()) { case source_e::Interactive: { s = str1259; } break; case source_e::Headless: { s = str1260; } break; case source_e::CFlag: { s = str1261; } break; case source_e::Stdin: { source::Stdin* src = static_cast(UP_src); s = StrFormat("[ stdin%s ]", src->comment); } break; case source_e::MainFile: { source::MainFile* src = static_cast(UP_src); s = src->path; if (quote_filename) { s = j8_lite::EncodeString(s, true); } } break; case source_e::SourcedFile: { source::SourcedFile* src = static_cast(UP_src); s = src->path; if (quote_filename) { s = j8_lite::EncodeString(s, true); } } break; case source_e::ArgvWord: { source::ArgvWord* src = static_cast(UP_src); blame_tok = location::TokenFor(src->location); if (blame_tok == nullptr) { s = StrFormat("[ %s word at ? ]", src->what); } else { line = blame_tok->line; line_num = line->line_num; outer_source = GetLineSourceString(line, quote_filename); s = StrFormat("[ %s word at line %d of %s ]", src->what, line_num, outer_source); } } break; case source_e::Variable: { source::Variable* src = static_cast(UP_src); if (src->var_name == nullptr) { var_name = str1265; } else { var_name = repr(src->var_name); } if (src->location->tag() == loc_e::Missing) { where = str1266; } else { blame_tok = location::TokenFor(src->location); line_num = blame_tok->line->line_num; outer_source = GetLineSourceString(blame_tok->line, quote_filename); where = StrFormat("line %d of %s", line_num, outer_source); } s = StrFormat("[ var %s at %s ]", var_name, where); } break; case source_e::VarRef: { source::VarRef* src = static_cast(UP_src); orig_tok = src->orig_tok; line_num = orig_tok->line->line_num; outer_source = GetLineSourceString(orig_tok->line, quote_filename); where = StrFormat("line %d of %s", line_num, outer_source); var_name = lexer::TokenVal(orig_tok); s = StrFormat("[ contents of var %r at %s ]", var_name, where); } break; case source_e::Alias: { source::Alias* src = static_cast(UP_src); s = StrFormat("[ expansion of alias %r ]", src->argv0); } break; case source_e::Reparsed: { source::Reparsed* src = static_cast(UP_src); span2 = src->left_token; outer_source = GetLineSourceString(span2->line, quote_filename); s = StrFormat("[ %s in %s ]", src->what, outer_source); } break; case source_e::Synthetic: { source::Synthetic* src = static_cast(UP_src); s = StrFormat("-- %s", src->s); } break; default: { assert(0); // AssertionError } } return s; } void _PrintWithLocation(BigStr* prefix, BigStr* msg, syntax_asdl::loc_t* blame_loc, bool show_code) { mylib::Writer* f = nullptr; syntax_asdl::Token* blame_tok = nullptr; int orig_col; syntax_asdl::source_t* src = nullptr; BigStr* line = nullptr; int line_num; syntax_asdl::source_t* UP_src = nullptr; syntax_asdl::Token* tok2 = nullptr; BigStr* line2 = nullptr; int lbracket_col; BigStr* source_str = nullptr; StackRoot _root0(&prefix); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&f); StackRoot _root4(&blame_tok); StackRoot _root5(&src); StackRoot _root6(&line); StackRoot _root7(&UP_src); StackRoot _root8(&tok2); StackRoot _root9(&line2); StackRoot _root10(&source_str); f = mylib::Stderr(); if (blame_loc->tag() == loc_e::TokenTooLong) { _PrintTokenTooLong(static_cast(blame_loc), f); return ; } blame_tok = location::TokenFor(blame_loc); if (blame_tok == nullptr) { f->write(StrFormat("[??? no location ???] %s%s\n", prefix, msg)); return ; } orig_col = blame_tok->col; src = blame_tok->line->src; line = blame_tok->line->content; line_num = blame_tok->line->line_num; if (show_code) { UP_src = src; switch (src->tag()) { case source_e::Reparsed: { source::Reparsed* src = static_cast(UP_src); tok2 = src->left_token; line_num = tok2->line->line_num; line2 = tok2->line->content; lbracket_col = (tok2->col + tok2->length); _PrintCodeExcerpt(line2, (orig_col + lbracket_col), 1, f); } break; case source_e::ArgvWord: { source::ArgvWord* src = static_cast(UP_src); _PrintCodeExcerpt(line, blame_tok->col, blame_tok->length, f); source_str = GetLineSourceString(blame_tok->line, true); f->write(StrFormat("%s:%d\n", source_str, line_num)); f->write(str1276); _PrintWithLocation(prefix, msg, src->location, show_code); return ; } break; default: { _PrintCodeExcerpt(line, blame_tok->col, blame_tok->length, f); } } } source_str = GetLineSourceString(blame_tok->line, true); f->write(StrFormat("%s:%d: %s%s\n", source_str, line_num, prefix, msg)); } Tuple2 CodeExcerptAndPrefix(syntax_asdl::Token* blame_tok) { syntax_asdl::SourceLine* line = nullptr; mylib::BufWriter* buf = nullptr; BigStr* source_str = nullptr; BigStr* prefix = nullptr; StackRoot _root0(&blame_tok); StackRoot _root1(&line); StackRoot _root2(&buf); StackRoot _root3(&source_str); StackRoot _root4(&prefix); line = blame_tok->line; buf = Alloc(); _PrintCodeExcerpt(line->content, blame_tok->col, blame_tok->length, buf); source_str = GetLineSourceString(line, true); prefix = StrFormat("%s:%d: ", source_str, blame_tok->line->line_num); return Tuple2(buf->getvalue(), prefix); } ctx_Location::ctx_Location(ui::ErrorFormatter* errfmt, syntax_asdl::loc_t* location) { gHeap.PushRoot(reinterpret_cast(&(this->errfmt))); errfmt->loc_stack->append(location); this->errfmt = errfmt; } ctx_Location::~ctx_Location() { this->errfmt->loc_stack->pop(); gHeap.PopRoot(); } ErrorFormatter::ErrorFormatter() { this->loc_stack = Alloc>(); this->one_line_errexit = false; } void ErrorFormatter::OneLineErrExit() { this->one_line_errexit = true; } syntax_asdl::loc_t* ErrorFormatter::_FallbackLocation(syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&blame_loc); if ((blame_loc == nullptr or blame_loc->tag() == loc_e::Missing)) { if (len(this->loc_stack)) { return this->loc_stack->at(-1); } return loc::Missing; } return blame_loc; } void ErrorFormatter::PrefixPrint(BigStr* msg, BigStr* prefix, syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&msg); StackRoot _root1(&prefix); StackRoot _root2(&blame_loc); _PrintWithLocation(prefix, msg, this->_FallbackLocation(blame_loc), true); } void ErrorFormatter::Print_(BigStr* msg, syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&msg); StackRoot _root1(&blame_loc); _PrintWithLocation(str1279, msg, this->_FallbackLocation(blame_loc), true); } void ErrorFormatter::PrintMessage(BigStr* msg, syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&msg); StackRoot _root1(&blame_loc); _PrintWithLocation(str1280, msg, this->_FallbackLocation(blame_loc), false); } void ErrorFormatter::StderrLine(BigStr* msg) { StackRoot _root0(&msg); print_stderr(msg); } void ErrorFormatter::PrettyPrintError(error::_ErrorWithLocation* err, BigStr* prefix) { StackRoot _root0(&err); StackRoot _root1(&prefix); _PrintWithLocation(prefix, err->UserErrorString(), err->location, true); } void ErrorFormatter::PrintErrExit(error::ErrExit* err, int pid) { BigStr* prefix = nullptr; StackRoot _root0(&err); StackRoot _root1(&prefix); prefix = StrFormat("errexit PID %d: ", pid); _PrintWithLocation(prefix, err->UserErrorString(), err->location, err->show_code); } void PrintAst(syntax_asdl::command_t* node, arg_types::main* flag) { mylib::Writer* f = nullptr; BigStr* afmt = nullptr; format::ColorOutput* ast_f = nullptr; hnode_asdl::hnode_t* tree = nullptr; StackRoot _root0(&node); StackRoot _root1(&flag); StackRoot _root2(&f); StackRoot _root3(&afmt); StackRoot _root4(&ast_f); StackRoot _root5(&tree); if (maybe_str_equals(flag->ast_format, str1283)) { print_stderr(str1284); } else { f = mylib::Stdout(); afmt = flag->ast_format; if ((maybe_str_equals(afmt, str1293) || maybe_str_equals(afmt, str1294))) { ast_f = fmt::DetectConsoleOutput(f); } else { if ((maybe_str_equals(afmt, str1295) || maybe_str_equals(afmt, str1296))) { ast_f = Alloc(f); } else { assert(0); // AssertionError } } if (str_contains(afmt, str1297)) { // if not PYTHON { tree = node->PrettyTree(); } // endif MYCPP } else { tree = node->PrettyTree(); } ast_f->FileHeader(); fmt::PrintTree(tree, ast_f); ast_f->FileFooter(); ast_f->write(str1298); } } bool TypeNotPrinted(value_asdl::value_t* val) { StackRoot _root0(&val); return (val->tag() == value_e::Null || val->tag() == value_e::Bool || val->tag() == value_e::Int || val->tag() == value_e::Float || val->tag() == value_e::Str || val->tag() == value_e::List || val->tag() == value_e::Dict); } int _GetMaxWidth() { int max_width; int width; max_width = 80; try { width = libc::get_terminal_width(); if (width > 0) { max_width = width; } } catch (IOError_OSError*) { ; // pass } return max_width; } void PrettyPrintValue(BigStr* prefix, value_asdl::value_t* val, mylib::Writer* f, int max_width) { pp_value::ValueEncoder* encoder = nullptr; List* mdocs = nullptr; pretty_asdl::MeasuredDoc* doc = nullptr; pretty::PrettyPrinter* printer = nullptr; mylib::BufWriter* buf = nullptr; StackRoot _root0(&prefix); StackRoot _root1(&val); StackRoot _root2(&f); StackRoot _root3(&encoder); StackRoot _root4(&mdocs); StackRoot _root5(&doc); StackRoot _root6(&printer); StackRoot _root7(&buf); encoder = Alloc(); encoder->SetUseStyles(f->isatty()); if (TypeNotPrinted(val)) { mdocs = encoder->TypePrefix(pp_value::ValType(val)); mdocs->append(encoder->Value(val)); doc = pretty::_Concat(mdocs); } else { doc = encoder->Value(val); } if (len(prefix)) { doc = pretty::_Concat(NewList(std::initializer_list{pretty::AsciiText(prefix), pretty::_Indent(4, doc)})); } if (max_width == -1) { max_width = _GetMaxWidth(); } printer = Alloc(max_width); buf = Alloc(); printer->PrintDoc(doc, buf); f->write(buf->getvalue()); f->write(str1299); } } // define namespace ui namespace args { // define using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::CompoundWord; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using error::e_usage; int String = 1; int Int = 2; int Float = 3; int Bool = 4; _Attributes::_Attributes(Dict* defaults) { this->attrs = Alloc>(); this->opt_changes = Alloc*>>(); this->shopt_changes = Alloc*>>(); this->show_options = false; this->actions = Alloc>(); this->saw_double_dash = false; for (DictIter it(defaults); !it.Done(); it.Next()) { BigStr* name = it.Key(); value_asdl::value_t* v = it.Value(); this->Set(name, v); } } void _Attributes::SetTrue(BigStr* name) { StackRoot _root0(&name); this->Set(name, Alloc(true)); } void _Attributes::Set(BigStr* name, value_asdl::value_t* val) { StackRoot _root0(&name); StackRoot _root1(&val); name = name->replace(str1300, str1301); this->attrs->set(name, val); } Reader::Reader(List* argv, List* locs) { this->argv = argv; this->locs = locs; this->n = len(argv); this->i = 0; } void Reader::Next() { this->i += 1; } BigStr* Reader::Peek() { if (this->i >= this->n) { return nullptr; } else { return this->argv->at(this->i); } } Tuple2 Reader::Peek2() { if (this->i >= this->n) { return Tuple2(nullptr, loc::Missing); } else { return Tuple2(this->argv->at(this->i), this->locs->at(this->i)); } } BigStr* Reader::ReadRequired(BigStr* error_msg) { BigStr* arg = nullptr; StackRoot _root0(&error_msg); StackRoot _root1(&arg); arg = this->Peek(); if (arg == nullptr) { e_usage(error_msg, this->_FirstLocation()); } this->Next(); return arg; } Tuple2 Reader::ReadRequired2(BigStr* error_msg) { BigStr* arg = nullptr; syntax_asdl::CompoundWord* location = nullptr; StackRoot _root0(&error_msg); StackRoot _root1(&arg); StackRoot _root2(&location); arg = this->Peek(); if (arg == nullptr) { e_usage(error_msg, this->_FirstLocation()); } location = this->locs->at(this->i); this->Next(); return Tuple2(arg, location); } List* Reader::Rest() { return this->argv->slice(this->i); } Tuple2*, List*> Reader::Rest2() { return Tuple2*, List*>(this->argv->slice(this->i), this->locs->slice(this->i)); } bool Reader::AtEnd() { return this->i >= this->n; } void Reader::Done() { if (!this->AtEnd()) { e_usage(str1304, this->Location()); } } syntax_asdl::loc_t* Reader::_FirstLocation() { if ((this->locs != nullptr and this->locs->at(0) != nullptr)) { return this->locs->at(0); } else { return loc::Missing; } } syntax_asdl::loc_t* Reader::Location() { int i; if (this->locs != nullptr) { if (this->i == this->n) { i = (this->n - 1); } else { i = this->i; } if (this->locs->at(i) != nullptr) { return this->locs->at(i); } else { return loc::Missing; } } else { return loc::Missing; } } _Action::_Action() { ; // pass } bool _Action::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); FAIL(kNotImplemented); // Python NotImplementedError } _ArgAction::_ArgAction(BigStr* name, bool quit_parsing_flags, List* valid) { this->name = name; this->quit_parsing_flags = quit_parsing_flags; this->valid = valid; } value_asdl::value_t* _ArgAction::_Value(BigStr* arg, syntax_asdl::loc_t* location) { StackRoot _root0(&arg); StackRoot _root1(&location); FAIL(kNotImplemented); // Python NotImplementedError } bool _ArgAction::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { BigStr* arg = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&val); if (attached_arg != nullptr) { arg = attached_arg; } else { arg_r->Next(); arg = arg_r->Peek(); if (arg == nullptr) { e_usage(StrFormat("expected argument to %r", str_concat(str1306, this->name)), arg_r->Location()); } } val = this->_Value(arg, arg_r->Location()); out->Set(this->name, val); return this->quit_parsing_flags; } SetToInt::SetToInt(BigStr* name) : ::args::_ArgAction(name, false, nullptr) { } value_asdl::value_t* SetToInt::_Value(BigStr* arg, syntax_asdl::loc_t* location) { mops::BigInt i; StackRoot _root0(&arg); StackRoot _root1(&location); try { i = mops::FromStr(arg); } catch (ValueError*) { e_usage(StrFormat("expected integer after %s, got %r", str_concat(str1308, this->name), arg), location); } if (mops::Greater(mops::BigInt(0), i)) { e_usage(StrFormat("got invalid integer for %s: %s", str_concat(str1310, this->name), arg), location); } return Alloc(i); } SetToFloat::SetToFloat(BigStr* name) : ::args::_ArgAction(name, false, nullptr) { } value_asdl::value_t* SetToFloat::_Value(BigStr* arg, syntax_asdl::loc_t* location) { double f; StackRoot _root0(&arg); StackRoot _root1(&location); try { f = to_float(arg); } catch (ValueError*) { e_usage(StrFormat("expected number after %r, got %r", str_concat(str1312, this->name), arg), location); } if (f < 0) { e_usage(StrFormat("got invalid float for %s: %s", str_concat(str1314, this->name), arg), location); } return Alloc(f); } SetToString::SetToString(BigStr* name, bool quit_parsing_flags, List* valid) : ::args::_ArgAction(name, quit_parsing_flags, valid) { } value_asdl::value_t* SetToString::_Value(BigStr* arg, syntax_asdl::loc_t* location) { StackRoot _root0(&arg); StackRoot _root1(&location); if ((this->valid != nullptr and !list_contains(this->valid, arg))) { e_usage(StrFormat("got invalid argument %r to %r, expected one of: %s", arg, str_concat(str1316, this->name), str1317->join(this->valid)), location); } return Alloc(arg); } SetAttachedBool::SetAttachedBool(BigStr* name) { this->name = name; } bool SetAttachedBool::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { bool b; StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); if (attached_arg != nullptr) { if ((str_equals(attached_arg, str1318) || str_equals(attached_arg, str1319) || str_equals(attached_arg, str1320) || str_equals(attached_arg, str1321))) { b = false; } else { if ((str_equals(attached_arg, str1322) || str_equals(attached_arg, str1323) || str_equals(attached_arg, str1324) || str_equals(attached_arg, str1325))) { b = true; } else { e_usage(StrFormat("got invalid argument to boolean flag: %r", attached_arg), loc::Missing); } } } else { b = true; } out->Set(this->name, Alloc(b)); return false; } SetToTrue::SetToTrue(BigStr* name) { this->name = name; } bool SetToTrue::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); out->SetTrue(this->name); return false; } SetOption::SetOption(BigStr* name) { this->name = name; } bool SetOption::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { bool b; StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); b = maybe_str_equals(attached_arg, str1327); out->opt_changes->append((Alloc>(this->name, b))); return false; } SetNamedOption::SetNamedOption(bool shopt) { this->names = Alloc>(); this->shopt = shopt; } void SetNamedOption::ArgName(BigStr* name) { StackRoot _root0(&name); this->names->append(name); } bool SetNamedOption::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { bool b; BigStr* arg = nullptr; BigStr* attr_name = nullptr; List*>* changes = nullptr; StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&attr_name); StackRoot _root5(&changes); b = maybe_str_equals(attached_arg, str1328); arg_r->Next(); arg = arg_r->Peek(); if (arg == nullptr) { out->show_options = true; return true; } attr_name = arg; if ((len(this->names) and !list_contains(this->names, attr_name))) { e_usage(StrFormat("Invalid option %r", arg), loc::Missing); } changes = this->shopt ? out->shopt_changes : out->opt_changes; changes->append((Alloc>(attr_name, b))); return false; } SetAction::SetAction(BigStr* name) { this->name = name; } bool SetAction::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); out->actions->append(this->name); return false; } SetNamedAction::SetNamedAction() { this->names = Alloc>(); } void SetNamedAction::ArgName(BigStr* name) { StackRoot _root0(&name); this->names->append(name); } bool SetNamedAction::OnMatch(BigStr* attached_arg, args::Reader* arg_r, args::_Attributes* out) { BigStr* arg = nullptr; BigStr* attr_name = nullptr; StackRoot _root0(&attached_arg); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&attr_name); arg_r->Next(); arg = arg_r->Peek(); if (arg == nullptr) { e_usage(str1330, loc::Missing); } attr_name = arg; if ((len(this->names) and !list_contains(this->names, attr_name))) { e_usage(StrFormat("Invalid action name %r", arg), loc::Missing); } out->actions->append(attr_name); return false; } args::_Attributes* Parse(flag_spec::_FlagSpec* spec, args::Reader* arg_r) { args::_Attributes* out = nullptr; BigStr* arg = nullptr; int pos; BigStr* suffix = nullptr; BigStr* flag_name = nullptr; args::_Action* action = nullptr; int n; BigStr* ch = nullptr; BigStr* attached_arg = nullptr; StackRoot _root0(&spec); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&suffix); StackRoot _root5(&flag_name); StackRoot _root6(&action); StackRoot _root7(&ch); StackRoot _root8(&attached_arg); out = Alloc<_Attributes>(spec->defaults); while (!arg_r->AtEnd()) { arg = arg_r->Peek(); if (maybe_str_equals(arg, str1332)) { out->saw_double_dash = true; arg_r->Next(); break; } if ((len(spec->actions_long) and arg->startswith(str1333))) { pos = arg->find(str1334, 2); if (pos == -1) { suffix = nullptr; flag_name = arg->slice(2); } else { suffix = arg->slice((pos + 1)); flag_name = arg->slice(2, pos); } action = spec->actions_long->get(flag_name); if (action == nullptr) { e_usage(StrFormat("got invalid flag %r", arg), arg_r->Location()); } action->OnMatch(suffix, arg_r, out); arg_r->Next(); continue; } else { if ((arg->startswith(str1336) and len(arg) > 1)) { n = len(arg); for (int i = 1; i < n; ++i) { ch = arg->at(i); if (str_equals(ch, str1337)) { ch = str1338; } if (list_contains(spec->plus_flags, ch)) { out->Set(ch, Alloc(str1339)); continue; } if (list_contains(spec->arity0, ch)) { out->SetTrue(ch); continue; } if (dict_contains(spec->arity1, ch)) { action = spec->arity1->at(ch); attached_arg = i < (n - 1) ? arg->slice((i + 1)) : nullptr; action->OnMatch(attached_arg, arg_r, out); break; } e_usage(StrFormat("doesn't accept flag %s", str_concat(str1341, ch)), arg_r->Location()); } arg_r->Next(); } else { if ((len(spec->plus_flags) and (arg->startswith(str1342) and len(arg) > 1))) { n = len(arg); for (int i = 1; i < n; ++i) { ch = arg->at(i); if (list_contains(spec->plus_flags, ch)) { out->Set(ch, Alloc(str1343)); continue; } e_usage(StrFormat("doesn't accept option %s", str_concat(str1345, ch)), arg_r->Location()); } arg_r->Next(); } else { break; } } } } return out; } args::_Attributes* ParseLikeEcho(flag_spec::_FlagSpec* spec, args::Reader* arg_r) { args::_Attributes* out = nullptr; BigStr* arg = nullptr; BigStr* chars = nullptr; bool done; StackRoot _root0(&spec); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&chars); out = Alloc<_Attributes>(spec->defaults); while (!arg_r->AtEnd()) { arg = arg_r->Peek(); chars = arg->slice(1); if ((arg->startswith(str1346) and len(chars))) { done = false; for (StrIter it(chars); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (!list_contains(spec->arity0, c)) { done = true; break; } } if (done) { break; } for (StrIter it(chars); !it.Done(); it.Next()) { BigStr* ch = it.Value(); StackRoot _for(&ch ); out->SetTrue(ch); } } else { break; } arg_r->Next(); } return out; } args::_Attributes* ParseMore(flag_spec::_FlagSpecAndMore* spec, args::Reader* arg_r) { args::_Attributes* out = nullptr; bool quit; BigStr* arg = nullptr; args::_Action* action = nullptr; BigStr* char0 = nullptr; BigStr* attached_arg = nullptr; StackRoot _root0(&spec); StackRoot _root1(&arg_r); StackRoot _root2(&out); StackRoot _root3(&arg); StackRoot _root4(&action); StackRoot _root5(&char0); StackRoot _root6(&attached_arg); out = Alloc<_Attributes>(spec->defaults); quit = false; while (!arg_r->AtEnd()) { arg = arg_r->Peek(); if (maybe_str_equals(arg, str1347)) { out->saw_double_dash = true; arg_r->Next(); break; } if (arg->startswith(str1348)) { action = spec->actions_long->get(arg->slice(2)); if (action == nullptr) { e_usage(StrFormat("got invalid flag %r", arg), arg_r->Location()); } action->OnMatch(nullptr, arg_r, out); arg_r->Next(); continue; } if (((arg->startswith(str1350) or arg->startswith(str1351)) and len(arg) > 1)) { char0 = arg->at(0); for (StrIter it(arg->slice(1)); !it.Done(); it.Next()) { BigStr* ch = it.Value(); StackRoot _for(&ch ); action = spec->actions_short->get(ch); if (action == nullptr) { e_usage(StrFormat("got invalid flag %r", str_concat(str1353, ch)), arg_r->Location()); } attached_arg = list_contains(spec->plus_flags, ch) ? char0 : nullptr; quit = action->OnMatch(attached_arg, arg_r, out); } arg_r->Next(); if (quit) { break; } else { continue; } } break; } return out; } } // define namespace args namespace flag_util { // define using runtime_asdl::cmd_value; using syntax_asdl::ArgList; using error::e_usage; void _DoesNotAccept(syntax_asdl::ArgList* arg_list) { StackRoot _root0(&arg_list); if (arg_list != nullptr) { e_usage(str1354, arg_list->left); } } Tuple2 ParseCmdVal(BigStr* spec_name, cmd_value::Argv* cmd_val, bool accept_typed_args) { args::Reader* arg_r = nullptr; flag_spec::_FlagSpec* spec = nullptr; StackRoot _root0(&spec_name); StackRoot _root1(&cmd_val); StackRoot _root2(&arg_r); StackRoot _root3(&spec); if (!accept_typed_args) { _DoesNotAccept(cmd_val->typed_args); } arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); spec = LookupFlagSpec(spec_name); return Tuple2(args::Parse(spec, arg_r), arg_r); } Tuple2 ParseLikeEcho(BigStr* spec_name, cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; flag_spec::_FlagSpec* spec = nullptr; StackRoot _root0(&spec_name); StackRoot _root1(&cmd_val); StackRoot _root2(&arg_r); StackRoot _root3(&spec); _DoesNotAccept(cmd_val->typed_args); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); spec = LookupFlagSpec(spec_name); return Tuple2(args::ParseLikeEcho(spec, arg_r), arg_r); } args::_Attributes* Parse(BigStr* spec_name, args::Reader* arg_r) { flag_spec::_FlagSpec* spec = nullptr; StackRoot _root0(&spec_name); StackRoot _root1(&arg_r); StackRoot _root2(&spec); spec = LookupFlagSpec(spec_name); return args::Parse(spec, arg_r); } args::_Attributes* ParseMore(BigStr* spec_name, args::Reader* arg_r) { flag_spec::_FlagSpecAndMore* spec = nullptr; StackRoot _root0(&spec_name); StackRoot _root1(&arg_r); StackRoot _root2(&spec); spec = LookupFlagSpec2(spec_name); return args::ParseMore(spec, arg_r); } } // define namespace flag_util namespace lexer { // define using syntax_asdl::Token; using syntax_asdl::SourceLine; using types_asdl::lex_mode_t; using types_asdl::lex_mode_e; using id_kind_asdl::Id_t; using id_kind_asdl::Id; using id_kind_asdl::Id_str; bool IsPlusEquals(syntax_asdl::Token* tok) { int i; StackRoot _root0(&tok); i = ((tok->col + tok->length) - 2); return tok->line->content->find(str1355, i, (i + 1)) != -1; } bool TokenContains(syntax_asdl::Token* tok, BigStr* substr) { StackRoot _root0(&tok); StackRoot _root1(&substr); return tok->line->content->find(substr, tok->col, (tok->col + tok->length)) != -1; } bool TokenEquals(syntax_asdl::Token* tok, BigStr* s) { StackRoot _root0(&tok); StackRoot _root1(&s); if (len(s) != tok->length) { return false; } return TokenContains(tok, s); } bool TokenStartsWith(syntax_asdl::Token* tok, BigStr* s) { StackRoot _root0(&tok); StackRoot _root1(&s); return tok->line->content->find(s, tok->col, (tok->col + len(s))) != -1; } bool TokenEndsWith(syntax_asdl::Token* tok, BigStr* s) { int end; StackRoot _root0(&tok); StackRoot _root1(&s); end = (tok->col + tok->length); return tok->line->content->find(s, (end - len(s)), end) != -1; } BigStr* TokenVal(syntax_asdl::Token* tok) { StackRoot _root0(&tok); return tok->line->content->slice(tok->col, (tok->col + tok->length)); } BigStr* TokenSliceLeft(syntax_asdl::Token* tok, int left_index) { int start; StackRoot _root0(&tok); start = (tok->col + left_index); return tok->line->content->slice(start, (tok->col + tok->length)); } BigStr* TokenSliceRight(syntax_asdl::Token* tok, int right_index) { int end; StackRoot _root0(&tok); end = ((tok->col + tok->length) + right_index); return tok->line->content->slice(tok->col, end); } BigStr* TokenSlice(syntax_asdl::Token* tok, int left, int right) { int start; int end; StackRoot _root0(&tok); start = (tok->col + left); end = ((tok->col + tok->length) + right); return tok->line->content->slice(start, end); } BigStr* LazyStr(syntax_asdl::Token* tok) { StackRoot _root0(&tok); if (tok->tval == nullptr) { if ((tok->id == Id::VSub_DollarName || tok->id == Id::VSub_Number)) { tok->tval = TokenSliceLeft(tok, 1); } else { tok->tval = TokenVal(tok); } } return tok->tval; } syntax_asdl::Token* DummyToken(int id_, BigStr* val) { int col; int length; StackRoot _root0(&val); col = -1; length = -1; return Alloc(id_, length, col, nullptr, val); } LineLexer::LineLexer(alloc::Arena* arena) { this->arena = arena; this->replace_last_token = false; this->eol_tok = DummyToken(Id::Eol_Tok, str1356); this->Reset(nullptr, 0); } void LineLexer::Reset(syntax_asdl::SourceLine* src_line, int line_pos) { StackRoot _root0(&src_line); this->src_line = src_line; this->line_pos = line_pos; } bool LineLexer::MaybeUnreadOne() { if (this->line_pos == 0) { return false; } else { this->line_pos -= 1; this->replace_last_token = true; return true; } } syntax_asdl::Token* LineLexer::GetEofToken(int id_) { syntax_asdl::SourceLine* src_line = nullptr; StackRoot _root0(&src_line); if (this->src_line == nullptr) { src_line = this->arena->AddLine(str1358, 0); } else { src_line = this->src_line; } return this->arena->NewToken(id_, this->line_pos, 0, src_line); } int LineLexer::LookAheadOne(types_asdl::lex_mode_t lex_mode) { int pos; BigStr* line_str = nullptr; int n; int tok_type; StackRoot _root0(&line_str); pos = this->line_pos; line_str = this->src_line->content; n = len(line_str); if (pos == n) { return Id::Unknown_Tok; } else { Tuple2 tup0 = match::OneToken(lex_mode, line_str, pos); tok_type = tup0.at0(); return tok_type; } } void LineLexer::AssertAtEndOfLine() { } int LineLexer::LookPastSpace(types_asdl::lex_mode_t lex_mode) { int pos; BigStr* line_str = nullptr; int n; int tok_type; int end_pos; StackRoot _root0(&line_str); pos = this->line_pos; line_str = this->src_line->content; n = len(line_str); while (true) { if (pos == n) { return Id::Unknown_Tok; } Tuple2 tup1 = match::OneToken(lex_mode, line_str, pos); tok_type = tup1.at0(); end_pos = tup1.at1(); if ((tok_type != Id::WS_Space and tok_type != Id::Ignored_Space)) { break; } pos = end_pos; } return tok_type; } bool LineLexer::LookAheadFuncParens(int unread) { int pos; int tok_type; pos = (this->line_pos - unread); Tuple2 tup2 = match::OneToken(lex_mode_e::FuncParens, this->src_line->content, pos); tok_type = tup2.at0(); return tok_type == Id::LookAhead_FuncParens; } BigStr* LineLexer::ByteLookAhead() { int pos; pos = this->line_pos; if (pos == len(this->src_line->content)) { return str1359; } else { return this->src_line->content->at(pos); } } int LineLexer::ByteLookBack() { int pos; pos = (this->line_pos - 2); if (pos < 0) { return -1; } else { return ord(this->src_line->content->at(pos)); } } syntax_asdl::Token* LineLexer::Read(types_asdl::lex_mode_t lex_mode) { BigStr* line_str = nullptr; int line_pos; int tok_type; int end_pos; int tok_len; syntax_asdl::Token* t = nullptr; StackRoot _root0(&line_str); StackRoot _root1(&t); if (this->src_line) { line_str = this->src_line->content; } else { line_str = str1360; } line_pos = this->line_pos; Tuple2 tup3 = match::OneToken(lex_mode, line_str, line_pos); tok_type = tup3.at0(); end_pos = tup3.at1(); if (tok_type == Id::Eol_Tok) { return this->eol_tok; } if (this->replace_last_token) { this->arena->UnreadOne(); this->replace_last_token = false; } tok_len = (end_pos - line_pos); t = this->arena->NewToken(tok_type, line_pos, tok_len, this->src_line); this->line_pos = end_pos; return t; } Lexer::Lexer(lexer::LineLexer* line_lexer, reader::_Reader* line_reader) { this->line_lexer = line_lexer; this->line_reader = line_reader; this->line_id = -1; this->translation_stack = Alloc*>>(); this->emit_comp_dummy = false; } void Lexer::ResetInputObjects() { this->line_lexer->Reset(nullptr, 0); } bool Lexer::MaybeUnreadOne() { return this->line_lexer->MaybeUnreadOne(); } int Lexer::LookAheadOne(types_asdl::lex_mode_t lex_mode) { return this->line_lexer->LookAheadOne(lex_mode); } int Lexer::LookPastSpace(types_asdl::lex_mode_t lex_mode) { return this->line_lexer->LookPastSpace(lex_mode); } bool Lexer::LookAheadFuncParens(int unread) { return this->line_lexer->LookAheadFuncParens(unread); } BigStr* Lexer::ByteLookAhead() { return this->line_lexer->ByteLookAhead(); } int Lexer::ByteLookBack() { return this->line_lexer->ByteLookBack(); } void Lexer::EmitCompDummy() { this->emit_comp_dummy = true; } void Lexer::PushHint(int old_id, int new_id) { this->translation_stack->append((Alloc>(old_id, new_id))); } bool Lexer::MoveToNextLine() { syntax_asdl::SourceLine* src_line = nullptr; int line_pos; StackRoot _root0(&src_line); this->line_lexer->AssertAtEndOfLine(); Tuple2 tup4 = this->line_reader->GetLine(); src_line = tup4.at0(); line_pos = tup4.at1(); if (src_line == nullptr) { return false; } this->line_lexer->Reset(src_line, line_pos); return true; } syntax_asdl::Token* Lexer::_Read(types_asdl::lex_mode_t lex_mode) { syntax_asdl::Token* t = nullptr; syntax_asdl::SourceLine* src_line = nullptr; int line_pos; int id_; int old_id; int new_id; StackRoot _root0(&t); StackRoot _root1(&src_line); t = this->line_lexer->Read(lex_mode); if (t->id == Id::Eol_Tok) { Tuple2 tup5 = this->line_reader->GetLine(); src_line = tup5.at0(); line_pos = tup5.at1(); if (src_line == nullptr) { if (this->emit_comp_dummy) { id_ = Id::Lit_CompDummy; this->emit_comp_dummy = false; } else { id_ = Id::Eof_Real; } return this->line_lexer->GetEofToken(id_); } this->line_lexer->Reset(src_line, line_pos); t = this->line_lexer->Read(lex_mode); } if (len(this->translation_stack)) { Tuple2* tup6 = this->translation_stack->at(-1); old_id = tup6->at0(); new_id = tup6->at1(); if (t->id == old_id) { this->translation_stack->pop(); t->id = new_id; } } return t; } syntax_asdl::Token* Lexer::Read(types_asdl::lex_mode_t lex_mode) { syntax_asdl::Token* t = nullptr; StackRoot _root0(&t); while (true) { t = this->_Read(lex_mode); if (t->id != Id::Ignored_LineCont) { break; } } return t; } } // define namespace lexer namespace location { // define using syntax_asdl::expr; using syntax_asdl::expr_t; using syntax_asdl::expr_e; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::loc_e; using syntax_asdl::command; using syntax_asdl::command_e; using syntax_asdl::command_t; using syntax_asdl::sh_lhs; using syntax_asdl::sh_lhs_e; using syntax_asdl::sh_lhs_t; using syntax_asdl::word; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::word_part; using syntax_asdl::word_part_e; using syntax_asdl::word_part_t; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::ShArrayLiteral; using syntax_asdl::SingleQuoted; using syntax_asdl::DoubleQuoted; using syntax_asdl::CommandSub; using syntax_asdl::BracedVarSub; using syntax_asdl::BraceGroup; using syntax_asdl::Subscript; using syntax_asdl::Attribute; using syntax_asdl::arith_expr; using syntax_asdl::arith_expr_e; using syntax_asdl::arith_expr_t; using syntax_asdl::Eggex; using value_asdl::LeftName; value_asdl::LeftName* LName(BigStr* name) { StackRoot _root0(&name); return Alloc(name, loc::Missing); } syntax_asdl::Token* TokenFor(syntax_asdl::loc_t* loc_) { syntax_asdl::loc_t* UP_location = nullptr; StackRoot _root0(&loc_); StackRoot _root1(&UP_location); UP_location = loc_; switch (loc_->tag()) { case loc_e::Missing: { return nullptr; } break; case loc_e::Token: { Token* tok = static_cast(UP_location); if (tok) { return tok; } else { return nullptr; } } break; case loc_e::ArgWord: { CompoundWord* w = static_cast(UP_location); return LeftTokenForWord(w); } break; case loc_e::WordPart: { loc::WordPart* loc_ = static_cast(UP_location); if (loc_->p) { return LeftTokenForWordPart(loc_->p); } else { return nullptr; } } break; case loc_e::Word: { loc::Word* loc_ = static_cast(UP_location); if (loc_->w) { return LeftTokenForWord(loc_->w); } else { return nullptr; } } break; case loc_e::Command: { loc::Command* loc_ = static_cast(UP_location); if (loc_->c) { return TokenForCommand(loc_->c); } else { return nullptr; } } break; case loc_e::Arith: { loc::Arith* loc_ = static_cast(UP_location); if (loc_->a) { return TokenForArith(loc_->a); } else { return nullptr; } } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } syntax_asdl::Token* TokenForCommand(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; int tag; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; tag = node->tag(); if (tag == command_e::Sentence) { command::Sentence* node = static_cast(UP_node); return node->terminator; } if (tag == command_e::Simple) { command::Simple* node = static_cast(UP_node); return node->blame_tok; } if (tag == command_e::ShAssignment) { command::ShAssignment* node = static_cast(UP_node); return node->left; } if (tag == command_e::Pipeline) { command::Pipeline* node = static_cast(UP_node); if (len(node->ops)) { return node->ops->at(0); } else { return node->negated; } } if (tag == command_e::AndOr) { command::AndOr* node = static_cast(UP_node); return node->ops->at(0); } if (tag == command_e::DoGroup) { command::DoGroup* node = static_cast(UP_node); return node->left; } if (tag == command_e::BraceGroup) { BraceGroup* node = static_cast(UP_node); return node->left; } if (tag == command_e::Subshell) { command::Subshell* node = static_cast(UP_node); return node->left; } if (tag == command_e::WhileUntil) { command::WhileUntil* node = static_cast(UP_node); return node->keyword; } if (tag == command_e::If) { command::If* node = static_cast(UP_node); return node->if_kw; } if (tag == command_e::Case) { command::Case* node = static_cast(UP_node); return node->case_kw; } if (tag == command_e::TimeBlock) { command::TimeBlock* node = static_cast(UP_node); return node->keyword; } return nullptr; } syntax_asdl::Token* TokenForArith(syntax_asdl::arith_expr_t* node) { syntax_asdl::arith_expr_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case arith_expr_e::VarSub: { Token* vsub = static_cast(UP_node); return vsub; } break; case arith_expr_e::Word: { CompoundWord* w = static_cast(UP_node); return LeftTokenForWord(w); } break; case arith_expr_e::Unary: { arith_expr::Unary* node = static_cast(UP_node); return TokenForArith(node->child); } break; case arith_expr_e::Binary: { arith_expr::Binary* node = static_cast(UP_node); return TokenForArith(node->op); } break; case arith_expr_e::TernaryOp: { arith_expr::TernaryOp* node = static_cast(UP_node); return TokenForArith(node->cond); } break; } return nullptr; } syntax_asdl::Token* LeftTokenForWordPart(syntax_asdl::word_part_t* part) { syntax_asdl::word_part_t* UP_part = nullptr; StackRoot _root0(&part); StackRoot _root1(&UP_part); UP_part = part; switch (part->tag()) { case word_part_e::ShArrayLiteral: { ShArrayLiteral* part = static_cast(UP_part); return part->left; } break; case word_part_e::BashAssocLiteral: { word_part::BashAssocLiteral* part = static_cast(UP_part); return part->left; } break; case word_part_e::Literal: { Token* tok = static_cast(UP_part); return tok; } break; case word_part_e::EscapedLiteral: { word_part::EscapedLiteral* part = static_cast(UP_part); return part->token; } break; case word_part_e::SingleQuoted: { SingleQuoted* part = static_cast(UP_part); return part->left; } break; case word_part_e::DoubleQuoted: { DoubleQuoted* part = static_cast(UP_part); return part->left; } break; case word_part_e::SimpleVarSub: { SimpleVarSub* part = static_cast(UP_part); return part->tok; } break; case word_part_e::BracedVarSub: { BracedVarSub* part = static_cast(UP_part); return part->left; } break; case word_part_e::CommandSub: { CommandSub* part = static_cast(UP_part); return part->left_token; } break; case word_part_e::TildeSub: { word_part::TildeSub* part = static_cast(UP_part); return part->left; } break; case word_part_e::ArithSub: { word_part::ArithSub* part = static_cast(UP_part); return part->left; } break; case word_part_e::ExtGlob: { word_part::ExtGlob* part = static_cast(UP_part); return part->op; } break; case word_part_e::BracedRange: { word_part::BracedRange* part = static_cast(UP_part); return part->blame_tok; } break; case word_part_e::BracedTuple: { word_part::BracedTuple* part = static_cast(UP_part); return nullptr; } break; case word_part_e::Splice: { word_part::Splice* part = static_cast(UP_part); return part->blame_tok; } break; case word_part_e::ExprSub: { word_part::ExprSub* part = static_cast(UP_part); return part->left; } break; default: { assert(0); // AssertionError } } } syntax_asdl::Token* _RightTokenForWordPart(syntax_asdl::word_part_t* part) { syntax_asdl::word_part_t* UP_part = nullptr; StackRoot _root0(&part); StackRoot _root1(&UP_part); UP_part = part; switch (part->tag()) { case word_part_e::ShArrayLiteral: { ShArrayLiteral* part = static_cast(UP_part); return part->right; } break; case word_part_e::BashAssocLiteral: { word_part::BashAssocLiteral* part = static_cast(UP_part); return part->right; } break; case word_part_e::Literal: { Token* tok = static_cast(UP_part); return tok; } break; case word_part_e::EscapedLiteral: { word_part::EscapedLiteral* part = static_cast(UP_part); return part->token; } break; case word_part_e::SingleQuoted: { SingleQuoted* part = static_cast(UP_part); return part->right; } break; case word_part_e::DoubleQuoted: { DoubleQuoted* part = static_cast(UP_part); return part->right; } break; case word_part_e::SimpleVarSub: { SimpleVarSub* part = static_cast(UP_part); return part->tok; } break; case word_part_e::BracedVarSub: { BracedVarSub* part = static_cast(UP_part); return part->right; } break; case word_part_e::CommandSub: { CommandSub* part = static_cast(UP_part); return part->right; } break; case word_part_e::TildeSub: { word_part::TildeSub* part = static_cast(UP_part); if (part->name != nullptr) { return part->name; } else { return part->left; } } break; case word_part_e::ArithSub: { word_part::ArithSub* part = static_cast(UP_part); return part->right; } break; case word_part_e::ExtGlob: { word_part::ExtGlob* part = static_cast(UP_part); return part->right; } break; case word_part_e::BracedRange: { word_part::BracedRange* part = static_cast(UP_part); return part->blame_tok; } break; case word_part_e::BracedTuple: { word_part::BracedTuple* part = static_cast(UP_part); return nullptr; } break; case word_part_e::Splice: { word_part::Splice* part = static_cast(UP_part); return part->blame_tok; } break; case word_part_e::ExprSub: { word_part::ExprSub* part = static_cast(UP_part); return part->right; } break; default: { assert(0); // AssertionError } } } syntax_asdl::Token* LeftTokenForCompoundWord(syntax_asdl::CompoundWord* w) { StackRoot _root0(&w); if (len(w->parts)) { return LeftTokenForWordPart(w->parts->at(0)); } else { return nullptr; } } syntax_asdl::Token* LeftTokenForWord(syntax_asdl::word_t* w) { syntax_asdl::word_t* UP_w = nullptr; StackRoot _root0(&w); StackRoot _root1(&UP_w); if (w == nullptr) { return nullptr; } UP_w = w; switch (w->tag()) { case word_e::Compound: { CompoundWord* w = static_cast(UP_w); return LeftTokenForCompoundWord(w); } break; case word_e::Operator: { Token* tok = static_cast(UP_w); return tok; } break; case word_e::BracedTree: { word::BracedTree* w = static_cast(UP_w); return LeftTokenForWordPart(w->parts->at(0)); } break; case word_e::String: { word::String* w = static_cast(UP_w); return LeftTokenForWord(w->blame_loc); } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } syntax_asdl::Token* RightTokenForWord(syntax_asdl::word_t* w) { syntax_asdl::word_t* UP_w = nullptr; syntax_asdl::word_part_t* end = nullptr; StackRoot _root0(&w); StackRoot _root1(&UP_w); StackRoot _root2(&end); UP_w = w; switch (w->tag()) { case word_e::Compound: { CompoundWord* w = static_cast(UP_w); if (len(w->parts)) { end = w->parts->at(-1); return _RightTokenForWordPart(end); } else { return nullptr; } } break; case word_e::Operator: { Token* tok = static_cast(UP_w); return tok; } break; case word_e::BracedTree: { word::BracedTree* w = static_cast(UP_w); return _RightTokenForWordPart(w->parts->at(-1)); } break; case word_e::String: { word::String* w = static_cast(UP_w); return RightTokenForWord(w->blame_loc); } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } syntax_asdl::Token* TokenForLhsExpr(syntax_asdl::sh_lhs_t* node) { syntax_asdl::sh_lhs_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case sh_lhs_e::Name: { sh_lhs::Name* node = static_cast(UP_node); return node->left; } break; case sh_lhs_e::IndexedName: { sh_lhs::IndexedName* node = static_cast(UP_node); return node->left; } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } syntax_asdl::loc_t* TokenForExpr(syntax_asdl::expr_t* node) { syntax_asdl::expr_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case expr_e::Const: { expr::Const* node = static_cast(UP_node); return node->c; } break; case expr_e::Var: { expr::Var* node = static_cast(UP_node); return node->left; } break; case expr_e::Place: { expr::Place* node = static_cast(UP_node); return node->blame_tok; } break; case expr_e::CommandSub: { CommandSub* node = static_cast(UP_node); return node->left_token; } break; case expr_e::ShArrayLiteral: { ShArrayLiteral* node = static_cast(UP_node); return node->left; } break; case expr_e::DoubleQuoted: { DoubleQuoted* node = static_cast(UP_node); return node->left; } break; case expr_e::SingleQuoted: { SingleQuoted* node = static_cast(UP_node); return node->left; } break; case expr_e::BracedVarSub: { BracedVarSub* node = static_cast(UP_node); return node->left; } break; case expr_e::SimpleVarSub: { SimpleVarSub* node = static_cast(UP_node); return node->tok; } break; case expr_e::Unary: { expr::Unary* node = static_cast(UP_node); return node->op; } break; case expr_e::Binary: { expr::Binary* node = static_cast(UP_node); return node->op; } break; case expr_e::Slice: { expr::Slice* node = static_cast(UP_node); return node->op; } break; case expr_e::Range: { expr::Range* node = static_cast(UP_node); return node->op; } break; case expr_e::Compare: { expr::Compare* node = static_cast(UP_node); return TokenForExpr(node->left); } break; case expr_e::IfExp: { return loc::Missing; } break; case expr_e::List: { expr::List* node = static_cast(UP_node); return node->left; } break; case expr_e::Tuple: { expr::Tuple* node = static_cast(UP_node); return node->left; } break; case expr_e::Dict: { expr::Dict* node = static_cast(UP_node); return node->left; } break; case expr_e::ListComp: { expr::ListComp* node = static_cast(UP_node); return node->left; } break; case expr_e::GeneratorExp: { return loc::Missing; } break; case expr_e::Lambda: { return loc::Missing; } break; case expr_e::FuncCall: { expr::FuncCall* node = static_cast(UP_node); return node->args->left; } break; case expr_e::Subscript: { Subscript* node = static_cast(UP_node); return node->left; } break; case expr_e::Attribute: { Attribute* node = static_cast(UP_node); return node->op; } break; case expr_e::Eggex: { Eggex* node = static_cast(UP_node); return node->left; } break; default: { assert(0); // AssertionError } } } } // define namespace location namespace parse_lib { // define using id_kind_asdl::Id_t; using syntax_asdl::Token; using syntax_asdl::CompoundWord; using syntax_asdl::expr_t; using syntax_asdl::Redir; using syntax_asdl::ArgList; using syntax_asdl::Proc; using syntax_asdl::Func; using syntax_asdl::command; using syntax_asdl::pat_t; using types_asdl::lex_mode_e; namespace fmt = format; using expr_parse::ctx_PNodeAllocator; _BaseTrail::_BaseTrail() { this->words = Alloc>(); this->redirects = Alloc>(); this->tokens = Alloc>(); this->alias_words = Alloc>(); this->_expanding_alias = false; } void _BaseTrail::Clear() { ; // pass } void _BaseTrail::SetLatestWords(List* words, List* redirects) { StackRoot _root0(&words); StackRoot _root1(&redirects); ; // pass } void _BaseTrail::AppendToken(syntax_asdl::Token* token) { StackRoot _root0(&token); ; // pass } void _BaseTrail::BeginAliasExpansion() { ; // pass } void _BaseTrail::EndAliasExpansion() { ; // pass } ctx_Alias::ctx_Alias(parse_lib::_BaseTrail* trail) { gHeap.PushRoot(reinterpret_cast(&(this->trail))); trail->_expanding_alias = true; this->trail = trail; } ctx_Alias::~ctx_Alias() { this->trail->_expanding_alias = false; gHeap.PopRoot(); } Trail::Trail() : ::parse_lib::_BaseTrail() { } void Trail::Clear() { this->words->clear(); this->redirects->clear(); this->tokens->clear(); this->alias_words->clear(); } void Trail::SetLatestWords(List* words, List* redirects) { StackRoot _root0(&words); StackRoot _root1(&redirects); if (this->_expanding_alias) { this->alias_words = words; return ; } this->words = words; this->redirects = redirects; } void Trail::AppendToken(syntax_asdl::Token* token) { StackRoot _root0(&token); if (this->_expanding_alias) { return ; } this->tokens->append(token); } ParseContext::ParseContext(alloc::Arena* arena, optview::Parse* parse_opts, Dict* aliases, grammar::Grammar* ysh_grammar, bool do_lossless) { this->arena = arena; this->parse_opts = parse_opts; this->aliases = aliases; this->ysh_grammar = ysh_grammar; this->do_lossless = do_lossless; if (ysh_grammar) { this->tr = Alloc(ysh_grammar); } else { this->tr = nullptr; } this->trail = Alloc<_BaseTrail>(); } void ParseContext::Init_Trail(parse_lib::_BaseTrail* trail) { StackRoot _root0(&trail); this->trail = trail; } lexer::Lexer* ParseContext::MakeLexer(reader::_Reader* line_reader) { lexer::LineLexer* line_lexer = nullptr; StackRoot _root0(&line_reader); StackRoot _root1(&line_lexer); line_lexer = Alloc(line_reader->arena); return Alloc(line_lexer, line_reader); } cmd_parse::CommandParser* ParseContext::MakeOshParser(reader::_Reader* line_reader, bool emit_comp_dummy) { lexer::Lexer* lx = nullptr; word_parse::WordParser* w_parser = nullptr; cmd_parse::CommandParser* c_parser = nullptr; StackRoot _root0(&line_reader); StackRoot _root1(&lx); StackRoot _root2(&w_parser); StackRoot _root3(&c_parser); lx = this->MakeLexer(line_reader); if (emit_comp_dummy) { lx->EmitCompDummy(); } w_parser = Alloc(this, lx, line_reader); c_parser = Alloc(this, this->parse_opts, w_parser, lx, line_reader); return c_parser; } cmd_parse::CommandParser* ParseContext::MakeConfigParser(reader::_Reader* line_reader) { lexer::Lexer* lx = nullptr; optview::Parse* parse_opts = nullptr; word_parse::WordParser* w_parser = nullptr; cmd_parse::CommandParser* c_parser = nullptr; StackRoot _root0(&line_reader); StackRoot _root1(&lx); StackRoot _root2(&parse_opts); StackRoot _root3(&w_parser); StackRoot _root4(&c_parser); lx = this->MakeLexer(line_reader); parse_opts = state::MakeOilOpts(); w_parser = Alloc(this, lx, line_reader); c_parser = Alloc(this, parse_opts, w_parser, lx, line_reader); return c_parser; } word_parse::WordParser* ParseContext::MakeWordParserForHereDoc(reader::_Reader* line_reader) { lexer::Lexer* lx = nullptr; StackRoot _root0(&line_reader); StackRoot _root1(&lx); lx = this->MakeLexer(line_reader); return Alloc(this, lx, line_reader); } word_parse::WordParser* ParseContext::MakeWordParser(lexer::Lexer* lx, reader::_Reader* line_reader) { StackRoot _root0(&lx); StackRoot _root1(&line_reader); return Alloc(this, lx, line_reader); } tdop::TdopParser* ParseContext::MakeArithParser(BigStr* code_str) { reader::FileLineReader* line_reader = nullptr; lexer::Lexer* lx = nullptr; word_parse::WordParser* w_parser = nullptr; tdop::TdopParser* a_parser = nullptr; StackRoot _root0(&code_str); StackRoot _root1(&line_reader); StackRoot _root2(&lx); StackRoot _root3(&w_parser); StackRoot _root4(&a_parser); line_reader = reader::StringLineReader(code_str, this->arena); lx = this->MakeLexer(line_reader); w_parser = Alloc(this, lx, line_reader); w_parser->Init(lex_mode_e::Arith); a_parser = Alloc(arith_parse::Spec(), w_parser, this->parse_opts); return a_parser; } cmd_parse::CommandParser* ParseContext::MakeParserForCommandSub(reader::_Reader* line_reader, lexer::Lexer* lexer, int eof_id) { word_parse::WordParser* w_parser = nullptr; cmd_parse::CommandParser* c_parser = nullptr; StackRoot _root0(&line_reader); StackRoot _root1(&lexer); StackRoot _root2(&w_parser); StackRoot _root3(&c_parser); w_parser = Alloc(this, lexer, line_reader); c_parser = Alloc(this, this->parse_opts, w_parser, lexer, line_reader, eof_id); return c_parser; } word_parse::WordParser* ParseContext::MakeWordParserForPlugin(BigStr* code_str) { reader::FileLineReader* line_reader = nullptr; lexer::Lexer* lx = nullptr; StackRoot _root0(&code_str); StackRoot _root1(&line_reader); StackRoot _root2(&lx); line_reader = reader::StringLineReader(code_str, this->arena); lx = this->MakeLexer(line_reader); return Alloc(this, lx, line_reader); } expr_parse::ExprParser* ParseContext::_YshParser() { return Alloc(this, this->ysh_grammar); } Tuple2 ParseContext::ParseVarDecl(syntax_asdl::Token* kw_token, lexer::Lexer* lexer) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; command::VarDecl* ast_node = nullptr; StackRoot _root0(&kw_token); StackRoot _root1(&lexer); StackRoot _root2(&e_parser); StackRoot _root3(&pnode); StackRoot _root4(&last_token); StackRoot _root5(&ast_node); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup0 = e_parser->Parse(lexer, grammar_nt::ysh_var_decl); pnode = tup0.at0(); last_token = tup0.at1(); ast_node = this->tr->MakeVarDecl(pnode); ast_node->keyword = kw_token; } return Tuple2(ast_node, last_token); } Tuple2 ParseContext::ParseMutation(syntax_asdl::Token* kw_token, lexer::Lexer* lexer) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; command::Mutation* ast_node = nullptr; StackRoot _root0(&kw_token); StackRoot _root1(&lexer); StackRoot _root2(&e_parser); StackRoot _root3(&pnode); StackRoot _root4(&last_token); StackRoot _root5(&ast_node); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup1 = e_parser->Parse(lexer, grammar_nt::ysh_mutation); pnode = tup1.at0(); last_token = tup1.at1(); ast_node = this->tr->MakeMutation(pnode); ast_node->keyword = kw_token; } return Tuple2(ast_node, last_token); } void ParseContext::ParseProcCallArgs(lexer::Lexer* lx, syntax_asdl::ArgList* out, int start_symbol) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&lx); StackRoot _root1(&out); StackRoot _root2(&e_parser); StackRoot _root3(&pnode); StackRoot _root4(&last_token); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup2 = e_parser->Parse(lx, start_symbol); pnode = tup2.at0(); last_token = tup2.at1(); this->tr->ProcCallArgs(pnode, out); out->right = last_token; } } Tuple2 ParseContext::ParseYshExpr(lexer::Lexer* lx, int start_symbol) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; syntax_asdl::expr_t* ast_node = nullptr; StackRoot _root0(&lx); StackRoot _root1(&e_parser); StackRoot _root2(&pnode); StackRoot _root3(&last_token); StackRoot _root4(&ast_node); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup3 = e_parser->Parse(lx, start_symbol); pnode = tup3.at0(); last_token = tup3.at1(); ast_node = this->tr->Expr(pnode); } return Tuple2(ast_node, last_token); } Tuple3 ParseContext::ParseYshCasePattern(lexer::Lexer* lexer) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; syntax_asdl::Token* left_tok = nullptr; syntax_asdl::pat_t* pattern = nullptr; StackRoot _root0(&lexer); StackRoot _root1(&e_parser); StackRoot _root2(&pnode); StackRoot _root3(&last_token); StackRoot _root4(&left_tok); StackRoot _root5(&pattern); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup4 = e_parser->Parse(lexer, grammar_nt::ysh_case_pat); pnode = tup4.at0(); last_token = tup4.at1(); left_tok = pnode->GetChild(0)->tok; pattern = this->tr->YshCasePattern(pnode); } return Tuple3(pattern, left_tok, last_token); } syntax_asdl::Token* ParseContext::ParseProc(lexer::Lexer* lexer, syntax_asdl::Proc* out) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&lexer); StackRoot _root1(&out); StackRoot _root2(&e_parser); StackRoot _root3(&pnode); StackRoot _root4(&last_token); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup5 = e_parser->Parse(lexer, grammar_nt::ysh_proc); pnode = tup5.at0(); last_token = tup5.at1(); out->sig = this->tr->Proc(pnode); } return last_token; } syntax_asdl::Token* ParseContext::ParseFunc(lexer::Lexer* lexer, syntax_asdl::Func* out) { expr_parse::ExprParser* e_parser = nullptr; pnode::PNode* pnode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&lexer); StackRoot _root1(&out); StackRoot _root2(&e_parser); StackRoot _root3(&pnode); StackRoot _root4(&last_token); e_parser = this->_YshParser(); { // with ctx_PNodeAllocator ctx{e_parser}; Tuple2 tup6 = e_parser->Parse(lexer, grammar_nt::ysh_func); pnode = tup6.at0(); last_token = tup6.at1(); this->tr->YshFunc(pnode, out); } return last_token; } } // define namespace parse_lib namespace reader { // define using id_kind_asdl::Id; using error::p_die; BigStr* _PS2 = str1364; _Reader::_Reader(alloc::Arena* arena) { this->arena = arena; this->line_num = 1; } void _Reader::SetLineOffset(int n) { this->line_num = n; } BigStr* _Reader::_GetLine() { FAIL(kNotImplemented); // Python NotImplementedError } Tuple2 _Reader::GetLine() { BigStr* line_str = nullptr; syntax_asdl::SourceLine* eof_line = nullptr; syntax_asdl::SourceLine* src_line = nullptr; StackRoot _root0(&line_str); StackRoot _root1(&eof_line); StackRoot _root2(&src_line); line_str = this->_GetLine(); if (line_str == nullptr) { eof_line = nullptr; return Tuple2(eof_line, 0); } src_line = this->arena->AddLine(line_str, this->line_num); this->line_num += 1; return Tuple2(src_line, 0); } void _Reader::Reset() { ; // pass } bool _Reader::LastLineHint() { return false; } DisallowedLineReader::DisallowedLineReader(alloc::Arena* arena, syntax_asdl::Token* blame_token) : ::reader::_Reader(arena) { this->blame_token = blame_token; } BigStr* DisallowedLineReader::_GetLine() { p_die(str1365, this->blame_token); } FileLineReader::FileLineReader(mylib::LineReader* f, alloc::Arena* arena) : ::reader::_Reader(arena) { this->f = f; this->last_line_hint = false; } BigStr* FileLineReader::_GetLine() { BigStr* line = nullptr; StackRoot _root0(&line); line = this->f->readline(); if (len(line) == 0) { return nullptr; } if (!line->endswith(str1366)) { this->last_line_hint = true; } return line; } bool FileLineReader::LastLineHint() { return this->last_line_hint; } reader::FileLineReader* StringLineReader(BigStr* s, alloc::Arena* arena) { StackRoot _root0(&s); StackRoot _root1(&arena); return Alloc(Alloc(s), arena); } VirtualLineReader::VirtualLineReader(alloc::Arena* arena, List*>* lines, bool do_lossless) : ::reader::_Reader(arena) { this->lines = lines; this->do_lossless = do_lossless; this->num_lines = len(lines); this->pos = 0; } Tuple2 VirtualLineReader::GetLine() { syntax_asdl::SourceLine* eof_line = nullptr; syntax_asdl::SourceLine* src_line = nullptr; int start_offset; StackRoot _root0(&eof_line); StackRoot _root1(&src_line); if (this->pos == this->num_lines) { eof_line = nullptr; return Tuple2(eof_line, 0); } Tuple2* tup0 = this->lines->at(this->pos); src_line = tup0->at0(); start_offset = tup0->at1(); this->pos += 1; if (this->do_lossless) { if (start_offset != 0) { this->arena->NewToken(Id::Lit_CharsWithoutPrefix, start_offset, 0, src_line); } } return Tuple2(src_line, start_offset); } BigStr* _PlainPromptInput(BigStr* prompt) { mylib::Writer* w = nullptr; BigStr* line = nullptr; StackRoot _root0(&prompt); StackRoot _root1(&w); StackRoot _root2(&line); w = mylib::Stderr(); w->write(prompt); w->flush(); line = mylib::Stdin()->readline(); if (len(line) == 0) { throw Alloc(); } return line; } InteractiveLineReader::InteractiveLineReader(alloc::Arena* arena, prompt::Evaluator* prompt_ev, history::Evaluator* hist_ev, py_readline::Readline* line_input, comp_ui::PromptState* prompt_state) : ::reader::_Reader(arena) { this->prompt_ev = prompt_ev; this->hist_ev = hist_ev; this->line_input = line_input; this->prompt_state = prompt_state; this->prev_line = nullptr; this->prompt_str = str1367; this->Reset(); } void InteractiveLineReader::Reset() { this->render_ps1 = true; } BigStr* InteractiveLineReader::_GetLine() { BigStr* line = nullptr; StackRoot _root0(&line); if (this->render_ps1) { this->prompt_str = this->prompt_ev->EvalFirstPrompt(); this->prompt_state->SetLastPrompt(this->prompt_str); } line = nullptr; try { if ((!this->line_input or (!mylib::Stdout()->isatty() or !mylib::Stdin()->isatty()))) { line = _PlainPromptInput(this->prompt_str); } else { line = this->line_input->prompt_input(this->prompt_str); } } catch (EOFError*) { print(str1368); } if (line != nullptr) { line = this->hist_ev->Eval(line); if ((len(line->strip()) and (!(str_equals(line, this->prev_line)) and this->line_input != nullptr))) { this->line_input->add_history(line->rstrip()); this->prev_line = line; } } this->prompt_str = _PS2; this->prompt_state->SetLastPrompt(this->prompt_str); this->render_ps1 = false; return line; } } // define namespace reader namespace typed_args { // define using runtime_asdl::cmd_value; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::ArgList; using syntax_asdl::LiteralBlock; using syntax_asdl::command_t; using syntax_asdl::expr_t; using syntax_asdl::Token; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::RegexMatch; using error::e_usage; void DoesNotAccept(syntax_asdl::ArgList* arg_list) { StackRoot _root0(&arg_list); if (arg_list != nullptr) { e_usage(str1369, arg_list->left); } } syntax_asdl::command_t* OptionalBlock(cmd_value::Argv* cmd_val) { syntax_asdl::command_t* cmd = nullptr; typed_args::Reader* r = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&cmd); StackRoot _root2(&r); cmd = nullptr; if (cmd_val->typed_args) { r = ReaderForProc(cmd_val); cmd = r->OptionalBlock(); r->Done(); } return cmd; } syntax_asdl::LiteralBlock* OptionalLiteralBlock(cmd_value::Argv* cmd_val) { syntax_asdl::LiteralBlock* block = nullptr; typed_args::Reader* r = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&block); StackRoot _root2(&r); block = nullptr; if (cmd_val->typed_args) { r = ReaderForProc(cmd_val); block = r->OptionalLiteralBlock(); r->Done(); } return block; } typed_args::Reader* ReaderForProc(cmd_value::Argv* cmd_val) { List* pos_args = nullptr; Dict* named_args = nullptr; syntax_asdl::ArgList* arg_list = nullptr; typed_args::Reader* rd = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&pos_args); StackRoot _root2(&named_args); StackRoot _root3(&arg_list); StackRoot _root4(&rd); pos_args = cmd_val->pos_args != nullptr ? cmd_val->pos_args : Alloc>(); named_args = cmd_val->named_args != nullptr ? cmd_val->named_args : Alloc>(); arg_list = cmd_val->typed_args != nullptr ? cmd_val->typed_args : ArgList::CreateNull(); rd = Alloc(pos_args, named_args, cmd_val->block_arg, arg_list); rd->SetFallbackLocation(cmd_val->arg_locs->at(0)); return rd; } Reader::Reader(List* pos_args, Dict* named_args, value_asdl::value_t* block_arg, syntax_asdl::ArgList* arg_list, bool is_bound) { this->pos_args = pos_args; this->pos_consumed = 0; this->is_bound = is_bound; this->named_args = named_args; this->block_arg = block_arg; this->arg_list = arg_list; this->fallback_loc = loc::Missing; } void Reader::SetFallbackLocation(syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&blame_loc); this->fallback_loc = blame_loc; } syntax_asdl::Token* Reader::LeftParenToken() { return this->arg_list->left; } syntax_asdl::loc_t* Reader::LeastSpecificLocation() { if (this->arg_list->left) { return this->arg_list->left; } return this->fallback_loc; } syntax_asdl::loc_t* Reader::BlamePos() { int pos; syntax_asdl::loc_t* l = nullptr; StackRoot _root0(&l); pos = (this->pos_consumed - 1); if (this->is_bound) { pos -= 1; } if (this->arg_list->pos_args == nullptr) { return this->LeastSpecificLocation(); } if ((0 <= pos and pos < len(this->arg_list->pos_args))) { l = location::TokenForExpr(this->arg_list->pos_args->at(pos)); if (l != nullptr) { return l; } } return this->LeastSpecificLocation(); } value_asdl::value_t* Reader::PosValue() { if (len(this->pos_args) == 0) { throw Alloc(StrFormat("Expected at least %d typed args, but only got %d", (this->pos_consumed + 1), this->pos_consumed), this->LeastSpecificLocation()); } this->pos_consumed += 1; return this->pos_args->pop(0); } value_asdl::value_t* Reader::OptionalValue() { if (len(this->pos_args) == 0) { return nullptr; } this->pos_consumed += 1; return this->pos_args->pop(0); } BigStr* Reader::_ToStr(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Str) { return static_cast(val)->s; } throw Alloc(val, StrFormat("Arg %d should be a Str", this->pos_consumed), this->BlamePos()); } bool Reader::_ToBool(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Bool) { return static_cast(val)->b; } throw Alloc(val, StrFormat("Arg %d should be a Bool", this->pos_consumed), this->BlamePos()); } mops::BigInt Reader::_ToInt(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Int) { return static_cast(val)->i; } throw Alloc(val, StrFormat("Arg %d should be an Int", this->pos_consumed), this->BlamePos()); } double Reader::_ToFloat(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Float) { return static_cast(val)->f; } throw Alloc(val, StrFormat("Arg %d should be a Float", this->pos_consumed), this->BlamePos()); } List* Reader::_ToBashArray(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::BashArray) { return static_cast(val)->strs; } throw Alloc(val, StrFormat("Arg %d should be a BashArray", this->pos_consumed), this->BlamePos()); } value::SparseArray* Reader::_ToSparseArray(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::SparseArray) { return static_cast(val); } throw Alloc(val, StrFormat("Arg %d should be a SparseArray", this->pos_consumed), this->BlamePos()); } List* Reader::_ToList(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::List) { return static_cast(val)->items; } throw Alloc(val, StrFormat("Arg %d should be a List", this->pos_consumed), this->BlamePos()); } Dict* Reader::_ToDict(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Dict) { return static_cast(val)->d; } throw Alloc(val, StrFormat("Arg %d should be a Dict", this->pos_consumed), this->BlamePos()); } value::Place* Reader::_ToPlace(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Place) { return static_cast(val); } throw Alloc(val, StrFormat("Arg %d should be a Place", this->pos_consumed), this->BlamePos()); } value_asdl::RegexMatch* Reader::_ToMatch(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Match) { return static_cast(val); } throw Alloc(val, StrFormat("Arg %d should be a Match", this->pos_consumed), this->BlamePos()); } value::Eggex* Reader::_ToEggex(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Eggex) { return static_cast(val); } throw Alloc(val, StrFormat("Arg %d should be an Eggex", this->pos_consumed), this->BlamePos()); } value::IO* Reader::_ToIO(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::IO) { return static_cast(val); } throw Alloc(val, StrFormat("Arg %d should be IO", this->pos_consumed), this->BlamePos()); } syntax_asdl::expr_t* Reader::_ToExpr(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Expr) { return static_cast(val)->e; } throw Alloc(val, StrFormat("Arg %d should be a Expr", this->pos_consumed), this->BlamePos()); } syntax_asdl::command_t* Reader::_ToCommand(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Command) { return static_cast(val)->c; } if (val->tag() == value_e::Block) { return static_cast(val)->block->brace_group; } throw Alloc(val, StrFormat("Arg %d should be a Command", this->pos_consumed), this->BlamePos()); } syntax_asdl::command_t* Reader::_ToBlock(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Command) { return static_cast(val)->c; } if (val->tag() == value_e::Block) { return static_cast(val)->block->brace_group; } throw Alloc(val, StrFormat("Arg %d should be a Command", this->pos_consumed), this->BlamePos()); } syntax_asdl::LiteralBlock* Reader::_ToLiteralBlock(value_asdl::value_t* val) { StackRoot _root0(&val); if (val->tag() == value_e::Block) { return static_cast(val)->block; } throw Alloc(val, StrFormat("Arg %d should be a LiteralBlock", this->pos_consumed), this->BlamePos()); } BigStr* Reader::PosStr() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToStr(val); } BigStr* Reader::OptionalStr(BigStr* default_) { value_asdl::value_t* val = nullptr; StackRoot _root0(&default_); StackRoot _root1(&val); val = this->OptionalValue(); if (val == nullptr) { return default_; } return this->_ToStr(val); } bool Reader::PosBool() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToBool(val); } mops::BigInt Reader::PosInt() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToInt(val); } mops::BigInt Reader::OptionalInt(int default_) { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->OptionalValue(); if (val == nullptr) { return mops::BigInt(default_); } return this->_ToInt(val); } double Reader::PosFloat() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToFloat(val); } List* Reader::PosBashArray() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToBashArray(val); } value::SparseArray* Reader::PosSparseArray() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToSparseArray(val); } List* Reader::PosList() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToList(val); } Dict* Reader::PosDict() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToDict(val); } value::Place* Reader::PosPlace() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToPlace(val); } value::Eggex* Reader::PosEggex() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToEggex(val); } value_asdl::RegexMatch* Reader::PosMatch() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToMatch(val); } value::IO* Reader::PosIO() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToIO(val); } syntax_asdl::command_t* Reader::PosCommand() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToCommand(val); } syntax_asdl::expr_t* Reader::PosExpr() { value_asdl::value_t* val = nullptr; StackRoot _root0(&val); val = this->PosValue(); return this->_ToExpr(val); } syntax_asdl::command_t* Reader::RequiredBlock() { if (this->block_arg == nullptr) { throw Alloc(str1387, this->LeastSpecificLocation()); } return this->_ToBlock(this->block_arg); } syntax_asdl::command_t* Reader::OptionalBlock() { if (this->block_arg == nullptr) { return nullptr; } return this->_ToBlock(this->block_arg); } syntax_asdl::LiteralBlock* Reader::OptionalLiteralBlock() { if (this->block_arg == nullptr) { return nullptr; } return this->_ToLiteralBlock(this->block_arg); } List* Reader::RestPos() { List* ret = nullptr; StackRoot _root0(&ret); ret = this->pos_args; this->pos_args = Alloc>(); return ret; } syntax_asdl::loc_t* Reader::_BlameNamed(BigStr* name) { StackRoot _root0(&name); return this->LeastSpecificLocation(); } BigStr* Reader::NamedStr(BigStr* param_name, BigStr* default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&default_); StackRoot _root2(&val); StackRoot _root3(&UP_val); if (!dict_contains(this->named_args, param_name)) { return default_; } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::Str) { mylib::dict_erase(this->named_args, param_name); value::Str* val = static_cast(UP_val); return val->s; } throw Alloc(val, StrFormat("Named arg %r should be a Str", param_name), this->_BlameNamed(param_name)); } bool Reader::NamedBool(BigStr* param_name, bool default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&val); StackRoot _root2(&UP_val); if (!dict_contains(this->named_args, param_name)) { return default_; } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::Bool) { value::Bool* val = static_cast(UP_val); mylib::dict_erase(this->named_args, param_name); return val->b; } throw Alloc(val, StrFormat("Named arg %r should be a Bool", param_name), this->_BlameNamed(param_name)); } mops::BigInt Reader::NamedInt(BigStr* param_name, int default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&val); StackRoot _root2(&UP_val); if (!dict_contains(this->named_args, param_name)) { return mops::BigInt(default_); } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::Int) { value::Int* val = static_cast(UP_val); mylib::dict_erase(this->named_args, param_name); return val->i; } throw Alloc(val, StrFormat("Named arg %r should be a Int", param_name), this->_BlameNamed(param_name)); } double Reader::NamedFloat(BigStr* param_name, double default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&val); StackRoot _root2(&UP_val); if (!dict_contains(this->named_args, param_name)) { return default_; } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::Float) { value::Float* val = static_cast(UP_val); mylib::dict_erase(this->named_args, param_name); return val->f; } throw Alloc(val, StrFormat("Named arg %r should be a Float", param_name), this->_BlameNamed(param_name)); } List* Reader::NamedList(BigStr* param_name, List* default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&default_); StackRoot _root2(&val); StackRoot _root3(&UP_val); if (!dict_contains(this->named_args, param_name)) { return default_; } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::List) { value::List* val = static_cast(UP_val); mylib::dict_erase(this->named_args, param_name); return val->items; } throw Alloc(val, StrFormat("Named arg %r should be a List", param_name), this->_BlameNamed(param_name)); } Dict* Reader::NamedDict(BigStr* param_name, Dict* default_) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(¶m_name); StackRoot _root1(&default_); StackRoot _root2(&val); StackRoot _root3(&UP_val); if (!dict_contains(this->named_args, param_name)) { return default_; } val = this->named_args->at(param_name); UP_val = val; if (val->tag() == value_e::Dict) { value::Dict* val = static_cast(UP_val); mylib::dict_erase(this->named_args, param_name); return val->d; } throw Alloc(val, StrFormat("Named arg %r should be a Dict", param_name), this->_BlameNamed(param_name)); } Dict* Reader::RestNamed() { Dict* ret = nullptr; StackRoot _root0(&ret); ret = this->named_args; this->named_args = Alloc>(); return ret; } void Reader::Done() { int n; BigStr* bad_args = nullptr; syntax_asdl::loc_t* blame = nullptr; StackRoot _root0(&bad_args); StackRoot _root1(&blame); if (len(this->pos_args)) { n = this->pos_consumed; if (this->is_bound) { n -= 1; } this->pos_consumed += 1; throw Alloc(StrFormat("Expected %d typed args, but got %d", n, (n + len(this->pos_args))), this->BlamePos()); } if (len(this->named_args)) { bad_args = str1395->join(this->named_args->keys()); blame = this->arg_list->semi_tok; if (blame == nullptr) { blame = this->LeastSpecificLocation(); } throw Alloc(StrFormat("Got unexpected named args: %s", bad_args), blame); } } } // define namespace typed_args namespace arith_parse { // define using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::arith_expr; using syntax_asdl::arith_expr_t; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::Token; using error::p_die; syntax_asdl::arith_expr_t* NullIncDec(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp) { syntax_asdl::arith_expr_t* right = nullptr; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&right); right = p->ParseUntil(bp); tdop::CheckLhsExpr(right, w); return Alloc(word_::ArithId(w), right); } syntax_asdl::arith_expr_t* NullUnaryPlus(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp) { syntax_asdl::arith_expr_t* right = nullptr; StackRoot _root0(&p); StackRoot _root1(&t); StackRoot _root2(&right); right = p->ParseUntil(bp); return Alloc(Id::Node_UnaryPlus, right); } syntax_asdl::arith_expr_t* NullUnaryMinus(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp) { syntax_asdl::arith_expr_t* right = nullptr; StackRoot _root0(&p); StackRoot _root1(&t); StackRoot _root2(&right); right = p->ParseUntil(bp); return Alloc(Id::Node_UnaryMinus, right); } syntax_asdl::arith_expr_t* LeftIncDec(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp) { int arith_id; int op_id; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&left); arith_id = word_::ArithId(w); if (arith_id == Id::Arith_DPlus) { op_id = Id::Node_PostDPlus; } else { if (arith_id == Id::Arith_DMinus) { op_id = Id::Node_PostDMinus; } else { assert(0); // AssertionError } } tdop::CheckLhsExpr(left, w); return Alloc(op_id, left); } syntax_asdl::arith_expr_t* LeftIndex(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int unused_bp) { syntax_asdl::arith_expr_t* index = nullptr; Token* tok = nullptr; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&left); StackRoot _root3(&index); StackRoot _root4(&tok); if (!tdop::IsIndexable(left)) { p_die(str1397, Alloc(w)); } index = p->ParseUntil(0); p->Eat(Id::Arith_RBracket); tok = static_cast(w); return Alloc(tok, left, index); } syntax_asdl::arith_expr_t* LeftTernary(tdop::TdopParser* p, syntax_asdl::word_t* t, syntax_asdl::arith_expr_t* left, int bp) { syntax_asdl::arith_expr_t* true_expr = nullptr; syntax_asdl::arith_expr_t* false_expr = nullptr; StackRoot _root0(&p); StackRoot _root1(&t); StackRoot _root2(&left); StackRoot _root3(&true_expr); StackRoot _root4(&false_expr); true_expr = p->ParseUntil(0); p->Eat(Id::Arith_Colon); false_expr = p->ParseUntil(bp); return Alloc(left, true_expr, false_expr); } } // define namespace arith_parse namespace bool_parse { // define using id_kind_asdl::Id; using id_kind_asdl::Kind; using types_asdl::lex_mode_t; using types_asdl::lex_mode_e; using syntax_asdl::loc; using syntax_asdl::word_t; using syntax_asdl::word_e; using syntax_asdl::bool_expr; using syntax_asdl::bool_expr_t; using syntax_asdl::Token; using error::p_die; BoolParser::BoolParser(word_parse::WordEmitter* w_parser) { this->w_parser = w_parser; this->words = Alloc>(); this->cur_word = nullptr; this->bool_id = Id::Undefined_Tok; this->bool_kind = Kind::Undefined; } void BoolParser::_NextOne(types_asdl::lex_mode_t lex_mode) { int n; syntax_asdl::word_t* w = nullptr; StackRoot _root0(&w); n = len(this->words); if (n == 2) { this->words->set(0, this->words->at(1)); this->cur_word = this->words->at(0); this->words->pop(); } else { if ((n == 0 || n == 1)) { w = this->w_parser->ReadWord(lex_mode); if (n == 0) { this->words->append(w); } else { this->words->set(0, w); } this->cur_word = w; } } this->bool_id = word_::BoolId(this->cur_word); this->bool_kind = consts::GetKind(this->bool_id); } void BoolParser::_Next(types_asdl::lex_mode_t lex_mode) { while (true) { this->_NextOne(lex_mode); if (this->bool_id != Id::Op_Newline) { break; } } } syntax_asdl::word_t* BoolParser::_LookAhead() { int n; syntax_asdl::word_t* w = nullptr; StackRoot _root0(&w); n = len(this->words); if (n != 1) { assert(0); // AssertionError } w = this->w_parser->ReadWord(lex_mode_e::DBracket); this->words->append(w); return w; } Tuple2 BoolParser::Parse() { syntax_asdl::bool_expr_t* node = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&node); StackRoot _root1(&right); this->_Next(); node = this->ParseExpr(); if (this->bool_id != Id::Lit_DRightBracket) { p_die(str1398, Alloc(this->cur_word)); } right = word_::LiteralToken(this->cur_word); return Tuple2(node, right); } bool BoolParser::_TestAtEnd() { return this->bool_id == Id::Lit_DRightBracket; } syntax_asdl::bool_expr_t* BoolParser::ParseForBuiltin() { syntax_asdl::bool_expr_t* node = nullptr; StackRoot _root0(&node); this->_Next(); node = this->ParseExpr(); if (this->bool_id != Id::Eof_Real) { p_die(StrFormat("Unexpected trailing word %s", word_::Pretty(this->cur_word)), Alloc(this->cur_word)); } return node; } syntax_asdl::bool_expr_t* BoolParser::ParseExpr() { syntax_asdl::bool_expr_t* left = nullptr; syntax_asdl::bool_expr_t* right = nullptr; StackRoot _root0(&left); StackRoot _root1(&right); left = this->ParseTerm(); if ((this->bool_id == Id::Op_DPipe || this->bool_id == Id::BoolUnary_o)) { this->_Next(); right = this->ParseExpr(); return Alloc(left, right); } else { return left; } } syntax_asdl::bool_expr_t* BoolParser::ParseTerm() { syntax_asdl::bool_expr_t* left = nullptr; syntax_asdl::bool_expr_t* right = nullptr; StackRoot _root0(&left); StackRoot _root1(&right); left = this->ParseNegatedFactor(); if ((this->bool_id == Id::Op_DAmp || this->bool_id == Id::BoolUnary_a)) { this->_Next(); right = this->ParseTerm(); return Alloc(left, right); } else { return left; } } syntax_asdl::bool_expr_t* BoolParser::ParseNegatedFactor() { syntax_asdl::bool_expr_t* child = nullptr; StackRoot _root0(&child); if (this->bool_id == Id::KW_Bang) { this->_Next(); child = this->ParseFactor(); return Alloc(child); } else { return this->ParseFactor(); } } syntax_asdl::bool_expr_t* BoolParser::ParseFactor() { int op; syntax_asdl::word_t* w = nullptr; int tag; syntax_asdl::CompoundWord* tilde = nullptr; syntax_asdl::bool_expr_t* node = nullptr; syntax_asdl::word_t* t2 = nullptr; int t2_bool_id; id_kind_asdl::Kind_t t2_bool_kind; syntax_asdl::word_t* left = nullptr; syntax_asdl::word_t* right = nullptr; StackRoot _root0(&w); StackRoot _root1(&tilde); StackRoot _root2(&node); StackRoot _root3(&t2); StackRoot _root4(&left); StackRoot _root5(&right); if (this->bool_kind == Kind::BoolUnary) { op = this->bool_id; this->_Next(); w = this->cur_word; tag = w->tag(); if ((tag != word_e::Compound and tag != word_e::String)) { p_die(str1400, Alloc(w)); } this->_Next(); tilde = word_::TildeDetect(w); if (tilde) { w = tilde; } node = Alloc(op, w); return node; } if (this->bool_kind == Kind::Word) { t2 = this->_LookAhead(); t2_bool_id = word_::BoolId(t2); t2_bool_kind = consts::GetKind(t2_bool_id); if ((t2_bool_kind == Kind::BoolBinary or (t2_bool_id == Id::Op_Less || t2_bool_id == Id::Op_Great))) { left = this->cur_word; this->_Next(); op = this->bool_id; if (t2_bool_id == Id::BoolBinary_EqualTilde) { this->_Next(lex_mode_e::BashRegex); } else { this->_Next(); } right = this->cur_word; this->_Next(); tilde = word_::TildeDetect(left); if (tilde) { left = tilde; } tilde = word_::TildeDetect(right); if (tilde) { right = tilde; } return Alloc(op, left, right); } else { w = this->cur_word; tilde = word_::TildeDetect(w); if (tilde) { w = tilde; } this->_Next(); return Alloc(w); } } if (this->bool_id == Id::Op_LParen) { this->_Next(); node = this->ParseExpr(); if (this->bool_id != Id::Op_RParen) { p_die(StrFormat("Expected ), got %s", word_::Pretty(this->cur_word)), Alloc(this->cur_word)); } this->_Next(); return node; } p_die(StrFormat("Unexpected token in boolean expression (%s)", ui::PrettyId(this->bool_id)), Alloc(this->cur_word)); } } // define namespace bool_parse namespace braces { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using syntax_asdl::Token; using syntax_asdl::CompoundWord; using syntax_asdl::word; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::word_part; using syntax_asdl::word_part_e; using syntax_asdl::word_part_t; using error::p_die; int NO_STEP = 0; _NotARange::_NotARange(BigStr* s) { ; // pass } _RangeParser::_RangeParser(match::SimpleLexer* lexer, syntax_asdl::Token* blame_tok) { this->lexer = lexer; this->blame_tok = blame_tok; this->token_type = Id::Undefined_Tok; this->token_val = str1403; } void _RangeParser::_Next() { Tuple2 tup0 = this->lexer->Next(); this->token_type = tup0.at0(); this->token_val = tup0.at1(); } BigStr* _RangeParser::_Eat(int token_type) { BigStr* val = nullptr; StackRoot _root0(&val); if (this->token_type != token_type) { throw Alloc<_NotARange>(StrFormat("Expected %d, got %d", token_type, this->token_type)); } val = this->token_val; this->_Next(); return val; } int _RangeParser::_ParseStep() { int step; this->_Next(); step = to_int(this->_Eat(Id::Range_Int)); if (step == 0) { p_die(str1405, this->blame_tok); } return step; } word_part::BracedRange* _RangeParser::_ParseRange(int range_kind) { BigStr* start = nullptr; BigStr* end = nullptr; int step; word_part::BracedRange* part = nullptr; StackRoot _root0(&start); StackRoot _root1(&end); StackRoot _root2(&part); start = this->token_val; this->_Next(); this->_Eat(Id::Range_Dots); end = this->_Eat(range_kind); if (this->token_type == Id::Range_Dots) { step = this->_ParseStep(); } else { step = NO_STEP; } part = Alloc(this->blame_tok, range_kind, start, end, step); return part; } word_part::BracedRange* _RangeParser::Parse() { word_part::BracedRange* part = nullptr; int start; int end; int start_num; int end_num; bool upper1; bool upper2; StackRoot _root0(&part); this->_Next(); if (this->token_type == Id::Range_Int) { part = this->_ParseRange(this->token_type); start = to_int(part->start); end = to_int(part->end); if (start < end) { if (part->step == NO_STEP) { part->step = 1; } if (part->step <= 0) { p_die(StrFormat("Invalid step %d for ascending integer range", part->step), this->blame_tok); } } else { if (start > end) { if (part->step == NO_STEP) { part->step = -1; } if (part->step >= 0) { p_die(StrFormat("Invalid step %d for descending integer range", part->step), this->blame_tok); } } else { part->step = 1; } } } else { if (this->token_type == Id::Range_Char) { part = this->_ParseRange(this->token_type); start_num = ord(part->start->at(0)); end_num = ord(part->end->at(0)); if (start_num < end_num) { if (part->step == NO_STEP) { part->step = 1; } if (part->step <= 0) { p_die(StrFormat("Invalid step %d for ascending character range", part->step), this->blame_tok); } } else { if (start_num > end_num) { if (part->step == NO_STEP) { part->step = -1; } if (part->step >= 0) { p_die(StrFormat("Invalid step %d for descending character range", part->step), this->blame_tok); } } else { part->step = 1; } } upper1 = part->start->isupper(); upper2 = part->end->isupper(); if (upper1 != upper2) { p_die(str1410, this->blame_tok); } } else { throw Alloc<_NotARange>(str1411); } } this->_Eat(Id::Eol_Tok); return part; } word_part::BracedRange* _RangePartDetect(syntax_asdl::Token* tok) { match::SimpleLexer* lx = nullptr; braces::_RangeParser* p = nullptr; word_part::BracedRange* part = nullptr; StackRoot _root0(&tok); StackRoot _root1(&lx); StackRoot _root2(&p); StackRoot _root3(&part); lx = match::BraceRangeLexer(lexer::TokenVal(tok)); p = Alloc<_RangeParser>(lx, tok); try { part = p->Parse(); } catch (_NotARange* e) { return nullptr; } return part; } _StackFrame::_StackFrame(List* cur_parts) { this->cur_parts = cur_parts; this->alt_part = Alloc(Alloc>()); this->saw_comma = false; } word::BracedTree* BraceDetect(syntax_asdl::CompoundWord* w) { List* cur_parts = nullptr; List* stack = nullptr; bool found; int i; bool append; syntax_asdl::word_part_t* UP_part = nullptr; int id_; braces::_StackFrame* new_frame = nullptr; syntax_asdl::word_part_t* range_part = nullptr; syntax_asdl::word_part_t* part2 = nullptr; Token* tok = nullptr; braces::_StackFrame* frame = nullptr; StackRoot _root0(&w); StackRoot _root1(&cur_parts); StackRoot _root2(&stack); StackRoot _root3(&UP_part); StackRoot _root4(&new_frame); StackRoot _root5(&range_part); StackRoot _root6(&part2); StackRoot _root7(&tok); StackRoot _root8(&frame); cur_parts = Alloc>(); stack = Alloc>(); found = false; i = 0; for (ListIter it(w->parts); !it.Done(); it.Next(), ++i) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); append = true; UP_part = part; if (part->tag() == word_part_e::Literal) { Token* part = static_cast(UP_part); id_ = part->id; if (id_ == Id::Lit_LBrace) { new_frame = Alloc<_StackFrame>(cur_parts); stack->append(new_frame); cur_parts = Alloc>(); append = false; found = true; } else { if (id_ == Id::Lit_Comma) { if (len(stack)) { stack->at(-1)->saw_comma = true; stack->at(-1)->alt_part->words->append(Alloc(cur_parts)); cur_parts = Alloc>(); append = false; } } else { if (id_ == Id::Lit_RBrace) { if (len(stack) == 0) { return nullptr; } range_part = nullptr; if ((!stack->at(-1)->saw_comma and len(cur_parts) == 1)) { part2 = cur_parts->at(0); if (part2->tag() == word_part_e::Literal) { tok = static_cast(part2); if (tok->id == Id::Lit_Chars) { range_part = _RangePartDetect(tok); if (range_part) { frame = stack->pop(); cur_parts = frame->cur_parts; cur_parts->append(range_part); append = false; } } } } if (!range_part) { if (!stack->at(-1)->saw_comma) { return nullptr; } stack->at(-1)->alt_part->words->append(Alloc(cur_parts)); frame = stack->pop(); cur_parts = frame->cur_parts; cur_parts->append(frame->alt_part); append = false; } } } } } if (append) { cur_parts->append(part); } } if (len(stack) != 0) { return nullptr; } if (found) { return Alloc(cur_parts); } else { return nullptr; } } List* BraceDetectAll(List* words) { List* out = nullptr; word::BracedTree* brace_tree = nullptr; StackRoot _root0(&words); StackRoot _root1(&out); StackRoot _root2(&brace_tree); out = Alloc>(); for (ListIter it(words); !it.Done(); it.Next()) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); if (len(w->parts) >= 3) { brace_tree = BraceDetect(w); if (brace_tree) { out->append(brace_tree); continue; } } out->append(w); } return out; } int _LeadingZeros(BigStr* s) { int n; StackRoot _root0(&s); n = 0; for (StrIter it(s); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (str_equals(c, str1412)) { n += 1; } else { break; } } return n; } BigStr* _IntToString(int i, int width) { BigStr* s = nullptr; int n; BigStr* pad = nullptr; StackRoot _root0(&s); StackRoot _root1(&pad); s = str(i); n = len(s); if (n < width) { pad = str_repeat(str1413, (width - n)); return str_concat(pad, s); } else { return s; } } List* _RangeStrings(word_part::BracedRange* part) { List* nums = nullptr; int z1; int z2; int width; int n; int end; int step; List* chars = nullptr; int ord_end; StackRoot _root0(&part); StackRoot _root1(&nums); StackRoot _root2(&chars); if (part->kind == Id::Range_Int) { nums = Alloc>(); z1 = _LeadingZeros(part->start); z2 = _LeadingZeros(part->end); if ((z1 == 0 and z2 == 0)) { width = 0; } else { if (z1 < z2) { width = len(part->end); } else { width = len(part->start); } } n = to_int(part->start); end = to_int(part->end); step = part->step; if (step > 0) { while (true) { nums->append(_IntToString(n, width)); n += step; if (n > end) { break; } } } else { while (true) { nums->append(_IntToString(n, width)); n += step; if (n < end) { break; } } } return nums; } else { chars = Alloc>(); n = ord(part->start); ord_end = ord(part->end); step = part->step; if (step > 0) { while (true) { chars->append(chr(n)); n += step; if (n > ord_end) { break; } } } else { while (true) { chars->append(chr(n)); n += step; if (n < ord_end) { break; } } } return chars; } } List*>* _ExpandPart(List* parts, int first_alt_index, List*>* suffixes) { List*>* out = nullptr; List* prefix = nullptr; syntax_asdl::word_part_t* expand_part = nullptr; syntax_asdl::word_part_t* UP_part = nullptr; List*>* expanded_alts = nullptr; List* out_parts = nullptr; List* strs = nullptr; List* out_parts_ = nullptr; syntax_asdl::Token* t = nullptr; StackRoot _root0(&parts); StackRoot _root1(&suffixes); StackRoot _root2(&out); StackRoot _root3(&prefix); StackRoot _root4(&expand_part); StackRoot _root5(&UP_part); StackRoot _root6(&expanded_alts); StackRoot _root7(&out_parts); StackRoot _root8(&strs); StackRoot _root9(&out_parts_); StackRoot _root10(&t); out = Alloc*>>(); prefix = parts->slice(0, first_alt_index); expand_part = parts->at(first_alt_index); UP_part = expand_part; switch (expand_part->tag()) { case word_part_e::BracedTuple: { word_part::BracedTuple* expand_part = static_cast(UP_part); expanded_alts = Alloc*>>(); for (ListIter it(expand_part->words); !it.Done(); it.Next()) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); expanded_alts->extend(_BraceExpand(w->parts)); } for (ListIter*> it(expanded_alts); !it.Done(); it.Next()) { List* alt_parts = it.Value(); StackRoot _for(&alt_parts ); for (ListIter*> it(suffixes); !it.Done(); it.Next()) { List* suffix = it.Value(); StackRoot _for(&suffix ); out_parts = Alloc>(); out_parts->extend(prefix); out_parts->extend(alt_parts); out_parts->extend(suffix); out->append(out_parts); } } } break; case word_part_e::BracedRange: { word_part::BracedRange* expand_part = static_cast(UP_part); strs = _RangeStrings(expand_part); for (ListIter it(strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); for (ListIter*> it(suffixes); !it.Done(); it.Next()) { List* suffix = it.Value(); StackRoot _for(&suffix ); out_parts_ = Alloc>(); out_parts_->extend(prefix); t = lexer::DummyToken(Id::Lit_Chars, s); out_parts_->append(t); out_parts_->extend(suffix); out->append(out_parts_); } } } break; default: { assert(0); // AssertionError } } return out; } List*>* _BraceExpand(List* parts) { int num_alts; int first_alt_index; int i; int tag; List* suffix = nullptr; List* tail_parts = nullptr; List*>* suffixes = nullptr; StackRoot _root0(&parts); StackRoot _root1(&suffix); StackRoot _root2(&tail_parts); StackRoot _root3(&suffixes); mylib::MaybeCollect(); num_alts = 0; first_alt_index = -1; i = 0; for (ListIter it(parts); !it.Done(); it.Next(), ++i) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); tag = part->tag(); if ((tag == word_part_e::BracedTuple || tag == word_part_e::BracedRange)) { num_alts += 1; if (num_alts == 1) { first_alt_index = i; } else { if (num_alts == 2) { break; } } } } if (num_alts == 0) { return NewList*>(std::initializer_list*>{parts}); } else { if (num_alts == 1) { suffix = parts->slice((first_alt_index + 1)); return _ExpandPart(parts, first_alt_index, NewList*>(std::initializer_list*>{suffix})); } else { tail_parts = parts->slice((first_alt_index + 1)); suffixes = _BraceExpand(tail_parts); return _ExpandPart(parts, first_alt_index, suffixes); } } } List* BraceExpandWords(List* words) { List* out = nullptr; syntax_asdl::word_t* UP_w = nullptr; List*>* parts_list = nullptr; syntax_asdl::CompoundWord* expanded = nullptr; syntax_asdl::CompoundWord* ti = nullptr; StackRoot _root0(&words); StackRoot _root1(&out); StackRoot _root2(&UP_w); StackRoot _root3(&parts_list); StackRoot _root4(&expanded); StackRoot _root5(&ti); out = Alloc>(); for (ListIter it(words); !it.Done(); it.Next()) { syntax_asdl::word_t* w = it.Value(); StackRoot _for(&w ); UP_w = w; switch (w->tag()) { case word_e::BracedTree: { word::BracedTree* w = static_cast(UP_w); parts_list = _BraceExpand(w->parts); for (ListIter*> it(parts_list); !it.Done(); it.Next()) { List* parts = it.Value(); StackRoot _for(&parts ); expanded = Alloc(parts); ti = word_::TildeDetect2(expanded); if (ti) { out->append(ti); } else { out->append(expanded); } } } break; case word_e::Compound: { CompoundWord* w = static_cast(UP_w); out->append(w); } break; default: { assert(0); // AssertionError } } } return out; } } // define namespace braces namespace cmd_eval { // define using id_kind_asdl::Id; using option_asdl::option_i; using syntax_asdl::IntParamBox; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::loc_e; using syntax_asdl::Token; using syntax_asdl::CompoundWord; using syntax_asdl::command; using syntax_asdl::command_e; using syntax_asdl::command_t; using syntax_asdl::command_str; using syntax_asdl::condition; using syntax_asdl::condition_e; using syntax_asdl::condition_t; using syntax_asdl::case_arg; using syntax_asdl::case_arg_e; using syntax_asdl::case_arg_t; using syntax_asdl::BraceGroup; using syntax_asdl::Proc; using syntax_asdl::Func; using syntax_asdl::assign_op_e; using syntax_asdl::expr_t; using syntax_asdl::proc_sig; using syntax_asdl::proc_sig_e; using syntax_asdl::redir_param; using syntax_asdl::redir_param_e; using syntax_asdl::for_iter; using syntax_asdl::for_iter_e; using syntax_asdl::pat; using syntax_asdl::pat_e; using syntax_asdl::word; using syntax_asdl::Eggex; using runtime_asdl::cmd_value; using runtime_asdl::cmd_value_e; using runtime_asdl::RedirValue; using runtime_asdl::redirect_arg; using runtime_asdl::flow_e; using runtime_asdl::scope_e; using runtime_asdl::CommandStatus; using runtime_asdl::StatusArray; using types_asdl::redir_arg_type_e; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::y_lvalue; using value_asdl::y_lvalue_e; using value_asdl::y_lvalue_t; using value_asdl::LeftName; using error::e_die; using error::e_die_status; int IsMainProgram = (1 << 0); int RaiseControlFlow = (1 << 1); int Optimize = (1 << 2); int NoDebugTrap = (1 << 3); int NoErrTrap = (1 << 4); cmd_value::Argv* MakeBuiltinArgv(List* argv1) { List* argv = nullptr; syntax_asdl::CompoundWord* missing = nullptr; StackRoot _root0(&argv1); StackRoot _root1(&argv); StackRoot _root2(&missing); argv = NewList(std::initializer_list{str1414}); argv->extend(argv1); missing = nullptr; return Alloc(argv, list_repeat(missing, len(argv)), nullptr, nullptr, nullptr, nullptr); } Deps::Deps() { this->mutable_opts = nullptr; this->dumper = nullptr; this->debug_f = nullptr; } bool _HasManyStatuses(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case command_e::Simple: case command_e::DBracket: case command_e::DParen: { return false; } break; case command_e::Redirect: { command::Redirect* node = static_cast(UP_node); return _HasManyStatuses(node->child); } break; case command_e::Sentence: { command::Sentence* node = static_cast(UP_node); return _HasManyStatuses(node->child); } break; case command_e::Pipeline: { command::Pipeline* node = static_cast(UP_node); if (len(node->children) == 1) { return _HasManyStatuses(node->children->at(0)); } else { return true; } } break; } return true; } value_asdl::value_t* PlusEquals(value_asdl::value_t* old_val, value_asdl::value_t* val) { value_asdl::value_t* UP_old_val = nullptr; value_asdl::value_t* UP_val = nullptr; int tag; List* strs = nullptr; StackRoot _root0(&old_val); StackRoot _root1(&val); StackRoot _root2(&UP_old_val); StackRoot _root3(&UP_val); StackRoot _root4(&strs); UP_old_val = old_val; UP_val = val; tag = val->tag(); switch (old_val->tag()) { case value_e::Undef: { ; // pass } break; case value_e::Str: { if (tag == value_e::Str) { value::Str* old_val = static_cast(UP_old_val); value::Str* str_to_append = static_cast(UP_val); val = Alloc(str_concat(old_val->s, str_to_append->s)); } else { if (tag == value_e::BashArray) { e_die(str1415); } else { assert(0); // AssertionError } } } break; case value_e::BashArray: { if (tag == value_e::Str) { e_die(str1416); } else { if (tag == value_e::BashArray) { value::BashArray* old_val = static_cast(UP_old_val); value::BashArray* to_append = static_cast(UP_val); strs = Alloc>(); strs->extend(old_val->strs); strs->extend(to_append->strs); val = Alloc(strs); } else { assert(0); // AssertionError } } } break; case value_e::BashAssoc: { ; // pass } break; default: { e_die(StrFormat("Can't append to value of type %s", ui::ValType(old_val))); } } return val; } ctx_LoopLevel::ctx_LoopLevel(cmd_eval::CommandEvaluator* cmd_ev) { gHeap.PushRoot(reinterpret_cast(&(this->cmd_ev))); cmd_ev->loop_level += 1; this->cmd_ev = cmd_ev; } ctx_LoopLevel::~ctx_LoopLevel() { this->cmd_ev->loop_level -= 1; gHeap.PopRoot(); } CommandEvaluator::CommandEvaluator(state::Mem* mem, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt, state::Procs* procs, Dict* assign_builtins, alloc::Arena* arena, cmd_eval::Deps* cmd_deps, trap_osh::TrapState* trap_state, pyos::SignalSafe* signal_safe) { this->shell_ex = nullptr; this->arith_ev = nullptr; this->bool_ev = nullptr; this->expr_ev = nullptr; this->word_ev = nullptr; this->tracer = nullptr; this->mem = mem; this->exec_opts = exec_opts; this->errfmt = errfmt; this->procs = procs; this->assign_builtins = assign_builtins; this->arena = arena; this->mutable_opts = cmd_deps->mutable_opts; this->dumper = cmd_deps->dumper; this->debug_f = cmd_deps->debug_f; this->trap_state = trap_state; this->signal_safe = signal_safe; this->loop_level = 0; this->check_command_sub_status = false; this->status_array_pool = Alloc>(); } void CommandEvaluator::CheckCircularDeps() { } int CommandEvaluator::_RunAssignBuiltin(cmd_value::Assign* cmd_val) { vm::_AssignBuiltin* builtin_func = nullptr; List* io_errors = nullptr; int status; BigStr* arg0 = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&builtin_func); StackRoot _root2(&io_errors); StackRoot _root3(&arg0); builtin_func = this->assign_builtins->get(cmd_val->builtin_id); if (builtin_func == nullptr) { e_die(StrFormat("Assignment builtin %r not configured", cmd_val->argv->at(0)), cmd_val->arg_locs->at(0)); } io_errors = Alloc>(); { // with vm::ctx_FlushStdout ctx{io_errors}; { // with ui::ctx_Location ctx{this->errfmt, cmd_val->arg_locs->at(0)}; try { status = builtin_func->Run(cmd_val); } catch (IOError_OSError* e) { this->errfmt->PrintMessage(StrFormat("%s builtin I/O error: %s", cmd_val->argv->at(0), pyutil::strerror(e)), cmd_val->arg_locs->at(0)); return 1; } catch (error::Usage* e) { arg0 = cmd_val->argv->at(0); this->errfmt->PrefixPrint(e->msg, StrFormat("%r ", arg0), e->location); return 2; } } } if (len(io_errors)) { this->errfmt->PrintMessage(StrFormat("%s builtin I/O: %s", cmd_val->argv->at(0), pyutil::strerror(io_errors->at(0))), cmd_val->arg_locs->at(0)); return 1; } return status; } void CommandEvaluator::_CheckStatus(int status, runtime_asdl::CommandStatus* cmd_st, syntax_asdl::command_t* node, syntax_asdl::loc_t* default_loc) { syntax_asdl::command_t* UP_node = nullptr; BigStr* desc = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; BigStr* msg = nullptr; StackRoot _root0(&cmd_st); StackRoot _root1(&node); StackRoot _root2(&default_loc); StackRoot _root3(&UP_node); StackRoot _root4(&desc); StackRoot _root5(&blame_loc); StackRoot _root6(&msg); if (status == 0) { return ; } this->_MaybeRunErrTrap(); if (this->exec_opts->errexit()) { UP_node = node; switch (node->tag()) { case command_e::ShAssignment: { command::ShAssignment* node = static_cast(UP_node); cmd_st->show_code = true; } break; case command_e::Subshell: { command::Subshell* node = static_cast(UP_node); cmd_st->show_code = true; } break; case command_e::Pipeline: { command::Pipeline* node = static_cast(UP_node); cmd_st->show_code = true; } break; } desc = command_str(node->tag()); if (default_loc->tag() != loc_e::Missing) { blame_loc = default_loc; } else { blame_loc = location::TokenForCommand(node); } msg = StrFormat("%s failed with status %d", desc, status); throw Alloc(status, msg, blame_loc, cmd_st->show_code); } } runtime_asdl::RedirValue* CommandEvaluator::_EvalRedirect(syntax_asdl::Redir* r) { runtime_asdl::RedirValue* result = nullptr; syntax_asdl::redir_param_t* arg = nullptr; syntax_asdl::redir_param_t* UP_arg = nullptr; types_asdl::redir_arg_type_t redir_type; word::BracedTree* b = nullptr; List* files = nullptr; int n; value::Str* val = nullptr; BigStr* t = nullptr; int target_fd; syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&r); StackRoot _root1(&result); StackRoot _root2(&arg); StackRoot _root3(&UP_arg); StackRoot _root4(&b); StackRoot _root5(&files); StackRoot _root6(&val); StackRoot _root7(&t); StackRoot _root8(&w); result = Alloc(r->op->id, r->op, r->loc, nullptr); arg = r->arg; UP_arg = arg; switch (arg->tag()) { case redir_param_e::Word: { CompoundWord* arg_word = static_cast(UP_arg); this->mem->SetTokenForLine(r->op); redir_type = consts::RedirArgType(r->op->id); if (redir_type == redir_arg_type_e::Path) { b = braces::BraceDetect(arg_word); if (b != nullptr) { throw Alloc(str1423, arg_word); } files = this->word_ev->EvalWordSequence(NewList(std::initializer_list{arg_word})); n = len(files); if (n == 0) { throw Alloc(str1424, arg_word); } if (n > 1) { throw Alloc(str1425, arg_word); } result->arg = Alloc(files->at(0)); return result; } else { if (redir_type == redir_arg_type_e::Desc) { val = this->word_ev->EvalWordToString(arg_word); t = val->s; if (len(t) == 0) { throw Alloc(str1426, arg_word); return nullptr; } try { if (str_equals(t, str1427)) { result->arg = redirect_arg::CloseFd; } else { if (str_equals(t->at(-1), str1428)) { target_fd = to_int(t->slice(0, -1)); result->arg = Alloc(target_fd); } else { result->arg = Alloc(to_int(t)); } } } catch (ValueError*) { throw Alloc(StrFormat("Invalid descriptor %r. Expected D, -, or D- where D is an integer", t), arg_word); return nullptr; } return result; } else { if (redir_type == redir_arg_type_e::Here) { val = this->word_ev->EvalWordToString(arg_word); result->arg = Alloc(str_concat(val->s, str1430)); return result; } else { assert(0); // AssertionError } } } } break; case redir_param_e::HereDoc: { redir_param::HereDoc* arg = static_cast(UP_arg); w = Alloc(arg->stdin_parts); val = this->word_ev->EvalWordToString(w); result->arg = Alloc(val->s); return result; } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } int CommandEvaluator::_RunSimpleCommand(runtime_asdl::cmd_value_t* cmd_val, runtime_asdl::CommandStatus* cmd_st, int run_flags) { runtime_asdl::cmd_value_t* UP_cmd_val = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&cmd_st); StackRoot _root2(&UP_cmd_val); UP_cmd_val = cmd_val; switch (UP_cmd_val->tag()) { case cmd_value_e::Argv: { cmd_value::Argv* cmd_val = static_cast(UP_cmd_val); this->tracer->OnSimpleCommand(cmd_val->argv); return this->shell_ex->RunSimpleCommand(cmd_val, cmd_st, run_flags); } break; case cmd_value_e::Assign: { cmd_value::Assign* cmd_val = static_cast(UP_cmd_val); this->tracer->OnAssignBuiltin(cmd_val); return this->_RunAssignBuiltin(cmd_val); } break; default: { assert(0); // AssertionError } } } void CommandEvaluator::_EvalTempEnv(List* more_env, int flags) { value_asdl::value_t* val = nullptr; StackRoot _root0(&more_env); StackRoot _root1(&val); for (ListIter it(more_env); !it.Done(); it.Next()) { syntax_asdl::EnvPair* e_pair = it.Value(); StackRoot _for(&e_pair ); val = this->word_ev->EvalRhsWord(e_pair->val); this->mem->SetNamed(location::LName(e_pair->name), val, scope_e::LocalOnly, flags); } } void CommandEvaluator::_StrictErrExit(syntax_asdl::command_t* node) { BigStr* node_str = nullptr; StackRoot _root0(&node); StackRoot _root1(&node_str); if (!(this->exec_opts->errexit() and this->exec_opts->strict_errexit())) { return ; } if (_HasManyStatuses(node)) { node_str = ui::CommandType(node); e_die(StrFormat("strict_errexit only allows simple commands in conditionals (got %s). ", node_str), Alloc(node)); } } void CommandEvaluator::_StrictErrExitList(List* node_list) { syntax_asdl::command_t* node = nullptr; BigStr* node_str = nullptr; StackRoot _root0(&node_list); StackRoot _root1(&node); StackRoot _root2(&node_str); if (!(this->exec_opts->errexit() and this->exec_opts->strict_errexit())) { return ; } if (len(node_list) > 1) { e_die(str1435, Alloc(node_list->at(0))); } node = node_list->at(0); if (_HasManyStatuses(node)) { node_str = ui::CommandType(node); e_die(StrFormat("strict_errexit only allows simple commands in conditionals (got %s). ", node_str), Alloc(node)); } } bool CommandEvaluator::_EvalCondition(syntax_asdl::condition_t* cond, syntax_asdl::Token* blame_tok) { bool b; syntax_asdl::condition_t* UP_cond = nullptr; int cond_status; value_asdl::value_t* obj = nullptr; StackRoot _root0(&cond); StackRoot _root1(&blame_tok); StackRoot _root2(&UP_cond); StackRoot _root3(&obj); b = false; UP_cond = cond; switch (cond->tag()) { case condition_e::Shell: { condition::Shell* cond = static_cast(UP_cond); this->_StrictErrExitList(cond->commands); { // with state::ctx_ErrExit ctx{this->mutable_opts, false, blame_tok}; cond_status = this->_ExecuteList(cond->commands); } b = cond_status == 0; } break; case condition_e::YshExpr: { condition::YshExpr* cond = static_cast(UP_cond); obj = this->expr_ev->EvalExpr(cond->e, blame_tok); b = val_ops::ToBool(obj); } break; } return b; } value_asdl::value_t* CommandEvaluator::_EvalCaseArg(syntax_asdl::case_arg_t* arg, syntax_asdl::loc_t* blame) { syntax_asdl::case_arg_t* UP_arg = nullptr; StackRoot _root0(&arg); StackRoot _root1(&blame); StackRoot _root2(&UP_arg); UP_arg = arg; switch (arg->tag()) { case case_arg_e::Word: { case_arg::Word* arg = static_cast(UP_arg); return this->word_ev->EvalWordToString(arg->w); } break; case case_arg_e::YshExpr: { case_arg::YshExpr* arg = static_cast(UP_arg); return this->expr_ev->EvalExpr(arg->e, blame); } break; default: { FAIL(kNotImplemented); // Python NotImplementedError } } } int CommandEvaluator::_DoVarDecl(command::VarDecl* node) { syntax_asdl::NameType* lhs0 = nullptr; value_asdl::LeftName* lval = nullptr; value_asdl::value_t* val = nullptr; int flags; int i; value_asdl::value_t* right_val = nullptr; List* lvals = nullptr; List* rhs_vals = nullptr; int num_lhs; List* items = nullptr; int num_rhs; value_asdl::value_t* rval = nullptr; StackRoot _root0(&node); StackRoot _root1(&lhs0); StackRoot _root2(&lval); StackRoot _root3(&val); StackRoot _root4(&right_val); StackRoot _root5(&lvals); StackRoot _root6(&rhs_vals); StackRoot _root7(&items); StackRoot _root8(&rval); if (node->keyword == nullptr) { lhs0 = node->lhs->at(0); lval = Alloc(lhs0->name, lhs0->left); val = this->expr_ev->EvalExpr(node->rhs, loc::Missing); this->mem->SetNamed(lval, val, scope_e::LocalOnly, state::SetReadOnly); } else { flags = node->keyword->id == Id::KW_Const ? state::SetReadOnly : 0; if (node->rhs == nullptr) { i = 0; for (ListIter it(node->lhs); !it.Done(); it.Next(), ++i) { syntax_asdl::NameType* lhs_val = it.Value(); StackRoot _for(&lhs_val ); lval = Alloc(lhs_val->name, lhs_val->left); this->mem->SetNamed(lval, value::Null, scope_e::LocalOnly, flags); } return 0; } right_val = this->expr_ev->EvalExpr(node->rhs, loc::Missing); lvals = nullptr; rhs_vals = nullptr; num_lhs = len(node->lhs); if (num_lhs == 1) { lhs0 = node->lhs->at(0); lvals = NewList(std::initializer_list{Alloc(lhs0->name, lhs0->left)}); rhs_vals = NewList(std::initializer_list{right_val}); } else { items = val_ops::ToList(right_val, str1437, node->keyword); num_rhs = len(items); if (num_lhs != num_rhs) { throw Alloc(StrFormat("Got %d places on the left, but %d values on right", num_lhs, num_rhs), node->keyword); } lvals = Alloc>(); rhs_vals = Alloc>(); i = 0; for (ListIter it(node->lhs); !it.Done(); it.Next(), ++i) { syntax_asdl::NameType* lhs_val = it.Value(); StackRoot _for(&lhs_val ); lval = Alloc(lhs_val->name, lhs_val->left); lvals->append(lval); rhs_vals->append(items->at(i)); } } i = 0; for (ListIter it(lvals); !it.Done(); it.Next(), ++i) { value_asdl::LeftName* lval = it.Value(); StackRoot _for(&lval ); rval = rhs_vals->at(i); this->mem->SetNamed(lval, rval, scope_e::LocalOnly, flags); } } return 0; } void CommandEvaluator::_DoMutation(command::Mutation* node) { runtime_asdl::scope_t which_scopes; value_asdl::value_t* right_val = nullptr; List* lvals = nullptr; List* rhs_vals = nullptr; int num_lhs; List* items = nullptr; int num_rhs; int i; value_asdl::value_t* rval = nullptr; value_asdl::y_lvalue_t* UP_lval = nullptr; value_asdl::value_t* obj = nullptr; value_asdl::value_t* UP_obj = nullptr; int index; BigStr* key = nullptr; value_asdl::y_lvalue_t* aug_lval = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&node); StackRoot _root1(&right_val); StackRoot _root2(&lvals); StackRoot _root3(&rhs_vals); StackRoot _root4(&items); StackRoot _root5(&rval); StackRoot _root6(&UP_lval); StackRoot _root7(&obj); StackRoot _root8(&UP_obj); StackRoot _root9(&key); StackRoot _root10(&aug_lval); StackRoot _root11(&val); switch (node->keyword->id) { case Id::KW_SetVar: { which_scopes = scope_e::LocalOnly; } break; case Id::KW_SetGlobal: { which_scopes = scope_e::GlobalOnly; } break; default: { assert(0); // AssertionError } } if (node->op->id == Id::Arith_Equal) { right_val = this->expr_ev->EvalExpr(node->rhs, loc::Missing); lvals = nullptr; rhs_vals = nullptr; num_lhs = len(node->lhs); if (num_lhs == 1) { lvals = NewList(std::initializer_list{this->expr_ev->EvalLhsExpr(node->lhs->at(0), which_scopes)}); rhs_vals = NewList(std::initializer_list{right_val}); } else { items = val_ops::ToList(right_val, str1439, node->keyword); num_rhs = len(items); if (num_lhs != num_rhs) { throw Alloc(StrFormat("Got %d places on the left, but %d values on the right", num_lhs, num_rhs), node->keyword); } lvals = Alloc>(); rhs_vals = Alloc>(); i = 0; for (ListIter it(node->lhs); !it.Done(); it.Next(), ++i) { syntax_asdl::y_lhs_t* lhs_val = it.Value(); StackRoot _for(&lhs_val ); lvals->append(this->expr_ev->EvalLhsExpr(lhs_val, which_scopes)); rhs_vals->append(items->at(i)); } } i = 0; for (ListIter it(lvals); !it.Done(); it.Next(), ++i) { value_asdl::y_lvalue_t* lval = it.Value(); StackRoot _for(&lval ); rval = rhs_vals->at(i); UP_lval = lval; if (lval->tag() == y_lvalue_e::Local) { LeftName* lval = static_cast(UP_lval); this->mem->SetNamed(lval, rval, which_scopes); } else { if (lval->tag() == y_lvalue_e::Container) { y_lvalue::Container* lval = static_cast(UP_lval); obj = lval->obj; UP_obj = obj; switch (obj->tag()) { case value_e::List: { value::List* obj = static_cast(UP_obj); index = val_ops::ToInt(lval->index, str1441, loc::Missing); obj->items->set(index, rval); } break; case value_e::Dict: { value::Dict* obj = static_cast(UP_obj); key = val_ops::ToStr(lval->index, str1442, loc::Missing); obj->d->set(key, rval); } break; default: { throw Alloc(obj, str1443, loc::Missing); } } } else { assert(0); // AssertionError } } } } else { aug_lval = this->expr_ev->EvalLhsExpr(node->lhs->at(0), which_scopes); val = this->expr_ev->EvalExpr(node->rhs, loc::Missing); this->expr_ev->EvalAugmented(aug_lval, val, node->op, which_scopes); } } int CommandEvaluator::_DoSimple(command::Simple* node, runtime_asdl::CommandStatus* cmd_st) { List* words = nullptr; runtime_asdl::cmd_value_t* cmd_val = nullptr; runtime_asdl::cmd_value_t* UP_cmd_val = nullptr; int run_flags; bool is_other_special; int status; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&words); StackRoot _root3(&cmd_val); StackRoot _root4(&UP_cmd_val); DTRACE_PROBE(cmd_eval, _DoSimple_enter); words = braces::BraceExpandWords(node->words); cmd_val = this->word_ev->EvalWordSequence2(words, true); UP_cmd_val = cmd_val; if (UP_cmd_val->tag() == cmd_value_e::Argv) { cmd_value::Argv* cmd_val = static_cast(UP_cmd_val); if (len(cmd_val->argv)) { this->mem->SetLastArgument(cmd_val->argv->at(-1)); } else { this->mem->SetLastArgument(str1444); } if ((node->typed_args or node->block)) { func_proc::EvalTypedArgsToProc(this->expr_ev, this->mutable_opts, node, cmd_val); } } else { if (node->block) { e_die(str1445, node->block->brace_group->left); } cmd_value::Assign* cmd_val = static_cast(UP_cmd_val); } run_flags = node->do_fork ? executor::DO_FORK : 0; if (len(node->more_env)) { is_other_special = false; if ((cmd_val->tag() == cmd_value_e::Assign or is_other_special)) { this->_EvalTempEnv(node->more_env, 0); status = this->_RunSimpleCommand(cmd_val, cmd_st, run_flags); } else { { // with state::ctx_Temp ctx{this->mem}; this->_EvalTempEnv(node->more_env, state::SetExport); status = this->_RunSimpleCommand(cmd_val, cmd_st, run_flags); } } } else { status = this->_RunSimpleCommand(cmd_val, cmd_st, run_flags); } DTRACE_PROBE1(cmd_eval, _DoSimple_exit, status); return status; } int CommandEvaluator::_DoExpandedAlias(command::ExpandedAlias* node) { StackRoot _root0(&node); if (len(node->more_env)) { { // with state::ctx_Temp ctx{this->mem}; this->_EvalTempEnv(node->more_env, state::SetExport); return this->_Execute(node->child); } } else { return this->_Execute(node->child); } } int CommandEvaluator::_DoPipeline(command::Pipeline* node, runtime_asdl::CommandStatus* cmd_st) { int status; int tmp_status; StackRoot _root0(&node); StackRoot _root1(&cmd_st); cmd_st->check_errexit = true; for (ListIter it(node->ops); !it.Done(); it.Next()) { syntax_asdl::Token* op = it.Value(); StackRoot _for(&op ); if (op->id != Id::Op_Pipe) { e_die(str1446, op); } } this->mem->SetLastArgument(str1447); status = -1; if (node->negated != nullptr) { this->_StrictErrExit(node); { // with state::ctx_ErrExit ctx{this->mutable_opts, false, node->negated}; if (len(node->children) == 1) { tmp_status = this->_Execute(node->children->at(0)); status = tmp_status == 0 ? 1 : 0; } else { this->shell_ex->RunPipeline(node, cmd_st); cmd_st->pipe_negated = true; } } cmd_st->check_errexit = false; } else { this->shell_ex->RunPipeline(node, cmd_st); } return status; } int CommandEvaluator::_DoShAssignment(command::ShAssignment* node, runtime_asdl::CommandStatus* cmd_st) { runtime_asdl::scope_t which_scopes; value_asdl::value_t* rhs = nullptr; value_asdl::sh_lvalue_t* lval = nullptr; value_asdl::value_t* old_val = nullptr; value_asdl::value_t* val = nullptr; int flags; int last_status; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&rhs); StackRoot _root3(&lval); StackRoot _root4(&old_val); StackRoot _root5(&val); which_scopes = this->mem->ScopesForWriting(); for (ListIter it(node->pairs); !it.Done(); it.Next()) { syntax_asdl::AssignPair* pair = it.Value(); StackRoot _for(&pair ); if (pair->op == assign_op_e::PlusEqual) { rhs = this->word_ev->EvalRhsWord(pair->rhs); lval = this->arith_ev->EvalShellLhs(pair->lhs, which_scopes); old_val = sh_expr_eval::OldValue(lval, this->mem, nullptr); val = PlusEquals(old_val, rhs); } else { lval = this->arith_ev->EvalShellLhs(pair->lhs, which_scopes); if (pair->rhs) { val = this->word_ev->EvalRhsWord(pair->rhs); } else { val = nullptr; } } flags = 0; this->mem->SetValue(lval, val, which_scopes, flags); this->tracer->OnShAssignment(lval, pair->op, val, flags, which_scopes); } if (this->check_command_sub_status) { last_status = this->mem->LastStatus(); this->_CheckStatus(last_status, cmd_st, node, loc::Missing); return last_status; } else { return 0; } } int CommandEvaluator::_DoExpr(command::Expr* node) { value_asdl::value_t* val = nullptr; List* io_errors = nullptr; StackRoot _root0(&node); StackRoot _root1(&val); StackRoot _root2(&io_errors); val = this->expr_ev->EvalExpr(node->e, loc::Missing); if (node->keyword->id == Id::Lit_Equals) { io_errors = Alloc>(); { // with vm::ctx_FlushStdout ctx{io_errors}; try { ui::PrettyPrintValue(str1448, val, mylib::Stdout()); } catch (IOError_OSError* e) { this->errfmt->PrintMessage(StrFormat("I/O error during = keyword: %s", pyutil::strerror(e)), node->keyword); return 1; } } if (len(io_errors)) { this->errfmt->PrintMessage(StrFormat("I/O error during = keyword: %s", pyutil::strerror(io_errors->at(0))), node->keyword); return 1; } } return 0; } int CommandEvaluator::_DoControlFlow(command::ControlFlow* node) { syntax_asdl::Token* keyword = nullptr; value::Str* str_val = nullptr; int arg; BigStr* msg = nullptr; StackRoot _root0(&node); StackRoot _root1(&keyword); StackRoot _root2(&str_val); StackRoot _root3(&msg); keyword = node->keyword; if (node->arg_word) { str_val = this->word_ev->EvalWordToString(node->arg_word); if ((len(str_val->s) == 0 and !this->exec_opts->strict_control_flow())) { arg = 0; } else { try { arg = to_int(str_val->s); } catch (ValueError*) { e_die(StrFormat("%r expected a small integer, got %r", lexer::TokenVal(keyword), str_val->s), Alloc(node->arg_word)); } } } else { if ((keyword->id == Id::ControlFlow_Exit || keyword->id == Id::ControlFlow_Return)) { arg = this->mem->LastStatus(); } else { arg = 1; } } this->tracer->OnControlFlow(consts::ControlFlowName(keyword->id), arg); if (((keyword->id == Id::ControlFlow_Break || keyword->id == Id::ControlFlow_Continue) and this->loop_level == 0)) { msg = str1452; if (this->exec_opts->strict_control_flow()) { e_die(msg, keyword); } else { this->errfmt->PrefixPrint(msg, str1453, keyword); return 0; } } if (keyword->id == Id::ControlFlow_Exit) { throw Alloc(arg); } else { throw Alloc(keyword, arg); } } int CommandEvaluator::_DoAndOr(command::AndOr* node, runtime_asdl::CommandStatus* cmd_st) { syntax_asdl::command_t* left = nullptr; int status; int i; int n; syntax_asdl::command_t* child = nullptr; syntax_asdl::Token* op = nullptr; int op_id; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&left); StackRoot _root3(&child); StackRoot _root4(&op); left = node->children->at(0); this->_StrictErrExit(left); { // with state::ctx_ErrExit ctx{this->mutable_opts, false, node->ops->at(0)}; status = this->_Execute(left); } i = 1; n = len(node->children); while (i < n) { child = node->children->at(i); op = node->ops->at((i - 1)); op_id = op->id; if ((op_id == Id::Op_DPipe and status == 0)) { i += 1; continue; } else { if ((op_id == Id::Op_DAmp and status != 0)) { i += 1; continue; } } if (i == (n - 1)) { status = this->_Execute(child); } else { this->_StrictErrExit(child); { // with state::ctx_ErrExit ctx{this->mutable_opts, false, op}; status = this->_Execute(child); } } i += 1; } return status; } int CommandEvaluator::_DoWhileUntil(command::WhileUntil* node) { int status; bool b; runtime_asdl::flow_t action; StackRoot _root0(&node); status = 0; { // with ctx_LoopLevel ctx{this}; while (true) { try { b = this->_EvalCondition(node->cond, node->keyword); if (node->keyword->id == Id::KW_Until) { b = !b; } if (!b) { break; } status = this->_Execute(node->body); } catch (vm::IntControlFlow* e) { status = 0; action = e->HandleLoop(); if (action == flow_e::Break) { break; } else { if (action == flow_e::Raise) { throw ; } } } } } return status; } int CommandEvaluator::_DoForEach(command::ForEach* node) { List* iter_list = nullptr; syntax_asdl::expr_t* iter_expr = nullptr; syntax_asdl::loc_t* expr_blame = nullptr; syntax_asdl::for_iter_t* iterable = nullptr; syntax_asdl::for_iter_t* UP_iterable = nullptr; List* words = nullptr; int n; value_asdl::LeftName* i_name = nullptr; value_asdl::LeftName* name1 = nullptr; value_asdl::LeftName* name2 = nullptr; val_ops::Iterator* it2 = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; int status; value_asdl::value_t* first = nullptr; runtime_asdl::flow_t action; StackRoot _root0(&node); StackRoot _root1(&iter_list); StackRoot _root2(&iter_expr); StackRoot _root3(&expr_blame); StackRoot _root4(&iterable); StackRoot _root5(&UP_iterable); StackRoot _root6(&words); StackRoot _root7(&i_name); StackRoot _root8(&name1); StackRoot _root9(&name2); StackRoot _root10(&it2); StackRoot _root11(&val); StackRoot _root12(&UP_val); StackRoot _root13(&first); iter_list = nullptr; iter_expr = nullptr; expr_blame = nullptr; iterable = node->iterable; UP_iterable = iterable; switch (node->iterable->tag()) { case for_iter_e::Args: { iter_list = this->mem->GetArgv(); } break; case for_iter_e::Words: { for_iter::Words* iterable = static_cast(UP_iterable); words = braces::BraceExpandWords(iterable->words); iter_list = this->word_ev->EvalWordSequence(words); } break; case for_iter_e::YshExpr: { for_iter::YshExpr* iterable = static_cast(UP_iterable); iter_expr = iterable->e; expr_blame = iterable->blame; } break; default: { assert(0); // AssertionError } } n = len(node->iter_names); i_name = nullptr; name1 = nullptr; name2 = nullptr; it2 = nullptr; if (iter_expr) { val = this->expr_ev->EvalExpr(iter_expr, expr_blame); UP_val = val; switch (val->tag()) { case value_e::List: { value::List* val = static_cast(UP_val); it2 = Alloc(val); if (n == 1) { name1 = location::LName(node->iter_names->at(0)); } else { if (n == 2) { i_name = location::LName(node->iter_names->at(0)); name1 = location::LName(node->iter_names->at(1)); } else { e_die_status(2, str1454, node->keyword); } } } break; case value_e::Dict: { value::Dict* val = static_cast(UP_val); it2 = Alloc(val); if (n == 1) { name1 = location::LName(node->iter_names->at(0)); } else { if (n == 2) { name1 = location::LName(node->iter_names->at(0)); name2 = location::LName(node->iter_names->at(1)); } else { if (n == 3) { i_name = location::LName(node->iter_names->at(0)); name1 = location::LName(node->iter_names->at(1)); name2 = location::LName(node->iter_names->at(2)); } else { assert(0); // AssertionError } } } } break; case value_e::Range: { value::Range* val = static_cast(UP_val); it2 = Alloc(val); if (n == 1) { name1 = location::LName(node->iter_names->at(0)); } else { if (n == 2) { i_name = location::LName(node->iter_names->at(0)); name1 = location::LName(node->iter_names->at(1)); } else { e_die_status(2, str1455, node->keyword); } } } break; case value_e::Stdin: { it2 = Alloc(expr_blame); if (n == 1) { name1 = location::LName(node->iter_names->at(0)); } else { if (n == 2) { i_name = location::LName(node->iter_names->at(0)); name1 = location::LName(node->iter_names->at(1)); } else { e_die_status(2, str1456, node->keyword); } } } break; default: { throw Alloc(val, str1457, node->keyword); } } } else { it2 = Alloc(iter_list); if (n == 1) { name1 = location::LName(node->iter_names->at(0)); } else { if (n == 2) { i_name = location::LName(node->iter_names->at(0)); name1 = location::LName(node->iter_names->at(1)); } else { e_die_status(2, str1458, node->keyword); } } } status = 0; { // with ctx_LoopLevel ctx{this}; while (true) { first = it2->FirstValue(); if (first == nullptr) { break; } if (first->tag() == value_e::Interrupted) { this->RunPendingTraps(); continue; } this->mem->SetLocalName(name1, first); if (name2) { this->mem->SetLocalName(name2, it2->SecondValue()); } if (i_name) { this->mem->SetLocalName(i_name, num::ToBig(it2->Index())); } it2->Next(); try { status = this->_Execute(node->body); } catch (vm::IntControlFlow* e) { status = 0; action = e->HandleLoop(); if (action == flow_e::Break) { break; } else { if (action == flow_e::Raise) { throw ; } } } } } return status; } int CommandEvaluator::_DoForExpr(command::ForExpr* node) { int status; syntax_asdl::arith_expr_t* init = nullptr; syntax_asdl::arith_expr_t* for_cond = nullptr; syntax_asdl::command_t* body = nullptr; syntax_asdl::arith_expr_t* update = nullptr; mops::BigInt cond_int; runtime_asdl::flow_t action; StackRoot _root0(&node); StackRoot _root1(&init); StackRoot _root2(&for_cond); StackRoot _root3(&body); StackRoot _root4(&update); status = 0; init = node->init; for_cond = node->cond; body = node->body; update = node->update; this->arith_ev->Eval(init); { // with ctx_LoopLevel ctx{this}; while (true) { cond_int = this->arith_ev->EvalToBigInt(for_cond); if (mops::Equal(cond_int, mops::ZERO)) { break; } try { status = this->_Execute(body); } catch (vm::IntControlFlow* e) { status = 0; action = e->HandleLoop(); if (action == flow_e::Break) { break; } else { if (action == flow_e::Raise) { throw ; } } } this->arith_ev->Eval(update); } } return status; } void CommandEvaluator::_DoShFunction(command::ShFunction* node) { value::Proc* sh_func = nullptr; StackRoot _root0(&node); StackRoot _root1(&sh_func); if ((this->procs->Get(node->name) and !this->exec_opts->redefine_proc_func())) { e_die(StrFormat("Function %s was already defined (redefine_proc_func)", node->name), node->name_tok); } sh_func = Alloc(node->name, node->name_tok, proc_sig::Open, node->body, nullptr, true); this->procs->SetShFunc(node->name, sh_func); } void CommandEvaluator::_DoProc(syntax_asdl::Proc* node) { BigStr* proc_name = nullptr; proc_sig::Closed* sig = nullptr; value_asdl::ProcDefaults* proc_defaults = nullptr; value::Proc* proc = nullptr; StackRoot _root0(&node); StackRoot _root1(&proc_name); StackRoot _root2(&sig); StackRoot _root3(&proc_defaults); StackRoot _root4(&proc); proc_name = lexer::TokenVal(node->name); if ((this->procs->Get(proc_name) and !this->exec_opts->redefine_proc_func())) { e_die(StrFormat("Proc %s was already defined (redefine_proc_func)", proc_name), node->name); } if (node->sig->tag() == proc_sig_e::Closed) { sig = static_cast(node->sig); proc_defaults = func_proc::EvalProcDefaults(this->expr_ev, sig); } else { proc_defaults = nullptr; } proc = Alloc(proc_name, node->name, node->sig, node->body, proc_defaults, false); this->procs->SetProc(proc_name, proc); } void CommandEvaluator::_DoFunc(syntax_asdl::Func* node) { BigStr* name = nullptr; value_asdl::LeftName* lval = nullptr; runtime_asdl::Cell* cell = nullptr; bool did_unset; List* pos_defaults = nullptr; Dict* named_defaults = nullptr; value::Func* func_val = nullptr; StackRoot _root0(&node); StackRoot _root1(&name); StackRoot _root2(&lval); StackRoot _root3(&cell); StackRoot _root4(&pos_defaults); StackRoot _root5(&named_defaults); StackRoot _root6(&func_val); name = lexer::TokenVal(node->name); lval = location::LName(name); cell = this->mem->GetCell(name, scope_e::LocalOnly); if ((cell and cell->val->tag() == value_e::Func)) { if (this->exec_opts->redefine_proc_func()) { cell->readonly = false; did_unset = this->mem->Unset(lval, scope_e::LocalOnly); } else { e_die(StrFormat("Func %s was already defined (redefine_proc_func)", name), node->name); } } Tuple2*, Dict*> tup0 = func_proc::EvalFuncDefaults(this->expr_ev, node); pos_defaults = tup0.at0(); named_defaults = tup0.at1(); func_val = Alloc(name, node, pos_defaults, named_defaults, nullptr); this->mem->SetNamed(lval, func_val, scope_e::LocalOnly, state::SetReadOnly); } int CommandEvaluator::_DoIf(command::If* node) { int status; bool done; bool b; StackRoot _root0(&node); status = -1; done = false; for (ListIter it(node->arms); !it.Done(); it.Next()) { syntax_asdl::IfArm* if_arm = it.Value(); StackRoot _for(&if_arm ); b = this->_EvalCondition(if_arm->cond, if_arm->keyword); if (b) { status = this->_ExecuteList(if_arm->action); done = true; break; } } if ((!done and node->else_action != nullptr)) { status = this->_ExecuteList(node->else_action); } return status; } int CommandEvaluator::_DoCase(command::Case* node) { value_asdl::value_t* to_match = nullptr; int fnmatch_flags; int status; bool done; bool ignore_next_cond; value::Str* to_match_str = nullptr; pat::Words* pat_words = nullptr; bool this_arm_matches; value::Str* word_val = nullptr; int id_; pat::YshExprs* pat_exprs = nullptr; value_asdl::value_t* expr_val = nullptr; Eggex* eggex = nullptr; value::Eggex* eggex_val = nullptr; StackRoot _root0(&node); StackRoot _root1(&to_match); StackRoot _root2(&to_match_str); StackRoot _root3(&pat_words); StackRoot _root4(&word_val); StackRoot _root5(&pat_exprs); StackRoot _root6(&expr_val); StackRoot _root7(&eggex); StackRoot _root8(&eggex_val); to_match = this->_EvalCaseArg(node->to_match, node->case_kw); fnmatch_flags = this->exec_opts->nocasematch() ? FNM_CASEFOLD : 0; status = 0; done = false; ignore_next_cond = false; for (ListIter it(node->arms); !it.Done(); it.Next()) { syntax_asdl::CaseArm* case_arm = it.Value(); StackRoot _for(&case_arm ); switch (case_arm->pattern->tag()) { case pat_e::Words: { if (to_match->tag() != value_e::Str) { continue; } to_match_str = static_cast(to_match); pat_words = static_cast(case_arm->pattern); this_arm_matches = false; if (ignore_next_cond) { this_arm_matches = true; ignore_next_cond = false; } else { for (ListIter it(pat_words->words); !it.Done(); it.Next()) { syntax_asdl::word_t* pat_word = it.Value(); StackRoot _for(&pat_word ); word_val = this->word_ev->EvalWordToString(pat_word, word_eval::QUOTE_FNMATCH); if (libc::fnmatch(word_val->s, to_match_str->s, fnmatch_flags)) { this_arm_matches = true; break; } } } if (this_arm_matches) { status = this->_ExecuteList(case_arm->action); done = true; if (case_arm->right) { id_ = case_arm->right->id; if (id_ == Id::Op_SemiAmp) { ignore_next_cond = true; done = false; } else { if (id_ == Id::Op_DSemiAmp) { done = false; } } } } } break; case pat_e::YshExprs: { pat_exprs = static_cast(case_arm->pattern); for (ListIter it(pat_exprs->exprs); !it.Done(); it.Next()) { syntax_asdl::expr_t* pat_expr = it.Value(); StackRoot _for(&pat_expr ); expr_val = this->expr_ev->EvalExpr(pat_expr, case_arm->left); if (val_ops::ExactlyEqual(expr_val, to_match, case_arm->left)) { status = this->_ExecuteList(case_arm->action); done = true; break; } } } break; case pat_e::Eggex: { eggex = static_cast(case_arm->pattern); eggex_val = this->expr_ev->EvalEggex(eggex); if (val_ops::MatchRegex(to_match, eggex_val, this->mem)) { status = this->_ExecuteList(case_arm->action); done = true; break; } } break; case pat_e::Else: { status = this->_ExecuteList(case_arm->action); done = true; break; } break; default: { assert(0); // AssertionError } } if (done) { break; } } return status; } int CommandEvaluator::_DoTimeBlock(command::TimeBlock* node) { double s_real; double s_user; double s_sys; int status; double e_real; double e_user; double e_sys; StackRoot _root0(&node); Tuple3 tup1 = pyos::Time(); s_real = tup1.at0(); s_user = tup1.at1(); s_sys = tup1.at2(); status = this->_Execute(node->pipeline); Tuple3 tup2 = pyos::Time(); e_real = tup2.at0(); e_user = tup2.at1(); e_sys = tup2.at2(); libc::print_time((e_real - s_real), (e_user - s_user), (e_sys - s_sys)); return status; } int CommandEvaluator::_DoRedirect(command::Redirect* node, runtime_asdl::CommandStatus* cmd_st) { int status; List* redirects = nullptr; List* io_errors = nullptr; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&redirects); StackRoot _root3(&io_errors); status = 0; redirects = Alloc>(); try { for (ListIter it(node->redirects); !it.Done(); it.Next()) { syntax_asdl::Redir* redir = it.Value(); StackRoot _for(&redir ); redirects->append(this->_EvalRedirect(redir)); } } catch (error::RedirectEval* e) { this->errfmt->PrettyPrintError(e); redirects = nullptr; } catch (error::FailGlob* e) { if (!e->HasLocation()) { e->location = this->mem->GetFallbackLocation(); } this->errfmt->PrettyPrintError(e, str1462); redirects = nullptr; } if (redirects == nullptr) { status = 1; } io_errors = Alloc>(); if (status == 0) { this->shell_ex->PushRedirects(redirects, io_errors); if (len(io_errors)) { this->errfmt->PrintMessage(StrFormat("I/O error applying redirect: %s", pyutil::strerror(io_errors->at(0))), this->mem->GetFallbackLocation()); status = 1; } } if (status == 0) { { // with vm::ctx_Redirect ctx{this->shell_ex, len(redirects), io_errors}; status = this->_Execute(node->child); } if (len(io_errors)) { e_die(StrFormat("Fatal error popping redirect: %s", pyutil::strerror(io_errors->at(0)))); } } return status; } int CommandEvaluator::_Dispatch(syntax_asdl::command_t* node, runtime_asdl::CommandStatus* cmd_st) { syntax_asdl::command_t* UP_node = nullptr; int status; bool result; mops::BigInt i; value_asdl::value_t* val = nullptr; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&UP_node); StackRoot _root3(&val); DTRACE_PROBE1(cmd_eval, _Dispatch, node->tag()); this->check_command_sub_status = false; UP_node = node; switch (node->tag()) { case command_e::Simple: { command::Simple* node = static_cast(UP_node); if (node->blame_tok != nullptr) { this->mem->SetTokenForLine(node->blame_tok); } this->_MaybeRunDebugTrap(); cmd_st->check_errexit = true; status = this->_DoSimple(node, cmd_st); } break; case command_e::ExpandedAlias: { command::ExpandedAlias* node = static_cast(UP_node); status = this->_DoExpandedAlias(node); } break; case command_e::Sentence: { command::Sentence* node = static_cast(UP_node); if (node->terminator->id == Id::Op_Semi) { status = this->_Execute(node->child); } else { status = this->shell_ex->RunBackgroundJob(node->child); } } break; case command_e::Redirect: { command::Redirect* node = static_cast(UP_node); cmd_st->check_errexit = true; status = this->_DoRedirect(node, cmd_st); } break; case command_e::Pipeline: { command::Pipeline* node = static_cast(UP_node); status = this->_DoPipeline(node, cmd_st); } break; case command_e::Subshell: { command::Subshell* node = static_cast(UP_node); cmd_st->check_errexit = true; status = this->shell_ex->RunSubshell(node->child); } break; case command_e::DBracket: { command::DBracket* node = static_cast(UP_node); this->mem->SetTokenForLine(node->left); this->_MaybeRunDebugTrap(); this->tracer->PrintSourceCode(node->left, node->right, this->arena); cmd_st->check_errexit = true; cmd_st->show_code = true; result = this->bool_ev->EvalB(node->expr); status = result ? 0 : 1; } break; case command_e::DParen: { command::DParen* node = static_cast(UP_node); this->mem->SetTokenForLine(node->left); this->_MaybeRunDebugTrap(); this->tracer->PrintSourceCode(node->left, node->right, this->arena); cmd_st->check_errexit = true; cmd_st->show_code = true; i = this->arith_ev->EvalToBigInt(node->child); status = mops::Equal(i, mops::ZERO) ? 1 : 0; } break; case command_e::ControlFlow: { command::ControlFlow* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); this->_MaybeRunDebugTrap(); status = this->_DoControlFlow(node); } break; case command_e::VarDecl: { command::VarDecl* node = static_cast(UP_node); this->mem->SetTokenForLine(node->lhs->at(0)->left); status = this->_DoVarDecl(node); } break; case command_e::Mutation: { command::Mutation* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); this->_DoMutation(node); status = 0; } break; case command_e::ShAssignment: { command::ShAssignment* node = static_cast(UP_node); this->mem->SetTokenForLine(node->pairs->at(0)->left); this->_MaybeRunDebugTrap(); status = this->_DoShAssignment(node, cmd_st); } break; case command_e::Expr: { command::Expr* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); status = this->_DoExpr(node); } break; case command_e::Retval: { command::Retval* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); val = this->expr_ev->EvalExpr(node->val, node->keyword); throw Alloc(node->keyword, val); } break; case command_e::CommandList: { command::CommandList* node = static_cast(UP_node); status = this->_ExecuteList(node->children); } break; case command_e::DoGroup: { command::DoGroup* node = static_cast(UP_node); status = this->_ExecuteList(node->children); } break; case command_e::BraceGroup: { BraceGroup* node = static_cast(UP_node); status = this->_ExecuteList(node->children); } break; case command_e::AndOr: { command::AndOr* node = static_cast(UP_node); status = this->_DoAndOr(node, cmd_st); } break; case command_e::WhileUntil: { command::WhileUntil* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); status = this->_DoWhileUntil(node); } break; case command_e::ForEach: { command::ForEach* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); status = this->_DoForEach(node); } break; case command_e::ForExpr: { command::ForExpr* node = static_cast(UP_node); this->mem->SetTokenForLine(node->keyword); status = this->_DoForExpr(node); } break; case command_e::ShFunction: { command::ShFunction* node = static_cast(UP_node); this->_DoShFunction(node); status = 0; } break; case command_e::Proc: { Proc* node = static_cast(UP_node); this->_DoProc(node); status = 0; } break; case command_e::Func: { Func* node = static_cast(UP_node); this->mem->SetTokenForLine(node->name); this->_DoFunc(node); status = 0; } break; case command_e::If: { command::If* node = static_cast(UP_node); status = this->_DoIf(node); } break; case command_e::NoOp: { status = 0; } break; case command_e::Case: { command::Case* node = static_cast(UP_node); this->mem->SetTokenForLine(node->case_kw); this->_MaybeRunDebugTrap(); status = this->_DoCase(node); } break; case command_e::TimeBlock: { command::TimeBlock* node = static_cast(UP_node); status = this->_DoTimeBlock(node); } break; default: { FAIL(kNotImplemented); // Python NotImplementedError } } return status; } void CommandEvaluator::RunPendingTraps() { List* trap_nodes = nullptr; StackRoot _root0(&trap_nodes); trap_nodes = this->trap_state->GetPendingTraps(); if (trap_nodes != nullptr) { { // with state::ctx_Option ctx{this->mutable_opts, NewList(std::initializer_list{option_i::_running_trap}), true}; for (ListIter it(trap_nodes); !it.Done(); it.Next()) { syntax_asdl::command_t* trap_node = it.Value(); StackRoot _for(&trap_node ); { // with state::ctx_Registers ctx{this->mem}; { // with dev::ctx_Tracer ctx{this->tracer, str1465, nullptr}; this->_Execute(trap_node); } } } } } } int CommandEvaluator::_Execute(syntax_asdl::command_t* node) { runtime_asdl::CommandStatus* cmd_st = nullptr; runtime_asdl::StatusArray* process_sub_st = nullptr; int status; List* pipe_status = nullptr; syntax_asdl::loc_t* errexit_loc = nullptr; int i; List* codes = nullptr; StackRoot _root0(&node); StackRoot _root1(&cmd_st); StackRoot _root2(&process_sub_st); StackRoot _root3(&pipe_status); StackRoot _root4(&errexit_loc); StackRoot _root5(&codes); this->RunPendingTraps(); // if MYCPP { if (this->signal_safe->PollSigInt()) { throw Alloc(); } } // endif MYCPP mylib::MaybeCollect(); cmd_st = CommandStatus::CreateNull(); if (len(this->status_array_pool)) { process_sub_st = this->status_array_pool->pop(); } else { process_sub_st = StatusArray::CreateNull(); } { // with vm::ctx_ProcessSub ctx{this->shell_ex, process_sub_st}; try { status = this->_Dispatch(node, cmd_st); } catch (error::FailGlob* e) { if (!e->HasLocation()) { e->location = this->mem->GetFallbackLocation(); } this->errfmt->PrettyPrintError(e, str1466); status = 1; cmd_st->check_errexit = true; } } pipe_status = cmd_st->pipe_status; errexit_loc = loc::Missing; if (pipe_status != nullptr) { this->mem->SetPipeStatus(pipe_status); if (this->exec_opts->pipefail()) { status = 0; i = 0; for (ListIter it(pipe_status); !it.Done(); it.Next(), ++i) { int st = it.Value(); if (st != 0) { status = st; errexit_loc = cmd_st->pipe_locs->at(i); } } } else { status = pipe_status->at(-1); } if (cmd_st->pipe_negated) { status = status == 0 ? 1 : 0; } } if (process_sub_st->codes == nullptr) { this->status_array_pool->append(process_sub_st); } else { codes = process_sub_st->codes; this->mem->SetProcessSubStatus(codes); if ((status == 0 and this->exec_opts->process_sub_fail())) { i = 0; for (ListIter it(codes); !it.Done(); it.Next(), ++i) { int st = it.Value(); if (st != 0) { status = st; errexit_loc = process_sub_st->locs->at(i); } } } } this->mem->SetLastStatus(status); if (cmd_st->check_errexit) { this->_CheckStatus(status, cmd_st, node, errexit_loc); } return status; } int CommandEvaluator::_ExecuteList(List* children) { int status; StackRoot _root0(&children); status = 0; for (ListIter it(children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); status = this->_Execute(child); } return status; } int CommandEvaluator::LastStatus() { return this->mem->LastStatus(); } void CommandEvaluator::_NoForkLast(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case command_e::Simple: { command::Simple* node = static_cast(UP_node); node->do_fork = false; } break; case command_e::Pipeline: { command::Pipeline* node = static_cast(UP_node); if (node->negated == nullptr) { this->_NoForkLast(node->children->at(-1)); } } break; case command_e::Sentence: { command::Sentence* node = static_cast(UP_node); this->_NoForkLast(node->child); } break; case command_e::CommandList: { command::CommandList* node = static_cast(UP_node); this->_NoForkLast(node->children->at(-1)); } break; case command_e::BraceGroup: { BraceGroup* node = static_cast(UP_node); this->_NoForkLast(node->children->at(-1)); } break; } } void CommandEvaluator::_NoForkSentence(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case command_e::Simple: { command::Simple* node = static_cast(UP_node); node->do_fork = false; } break; case command_e::Sentence: { command::Sentence* node = static_cast(UP_node); if (node->terminator->id == Id::Op_Amp) { this->_NoForkSentence(node->child); } } break; } } syntax_asdl::command_t* CommandEvaluator::_RemoveSubshells(syntax_asdl::command_t* node) { syntax_asdl::command_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); UP_node = node; switch (node->tag()) { case command_e::Subshell: { command::Subshell* node = static_cast(UP_node); return this->_RemoveSubshells(node->child); } break; } return node; } Tuple2 CommandEvaluator::ExecuteAndCatch(syntax_asdl::command_t* node, int cmd_flags) { bool is_return; bool is_fatal; bool is_errexit; error::FatalRuntime* err = nullptr; int status; List* options = nullptr; StackRoot _root0(&node); StackRoot _root1(&err); StackRoot _root2(&options); if ((cmd_flags & Optimize)) { node = this->_RemoveSubshells(node); if (this->exec_opts->no_fork_last()) { this->_NoForkLast(node); } } is_return = false; is_fatal = false; is_errexit = false; err = nullptr; status = -1; try { options = Alloc>(); if ((cmd_flags & NoDebugTrap)) { options->append(option_i::_no_debug_trap); } if ((cmd_flags & NoErrTrap)) { options->append(option_i::_no_err_trap); } { // with state::ctx_Option ctx{this->mutable_opts, options, true}; status = this->_Execute(node); } } catch (vm::IntControlFlow* e) { if ((cmd_flags & RaiseControlFlow)) { throw ; } else { if (e->IsReturn()) { is_return = true; status = e->StatusCode(); } else { this->errfmt->Print_(str1475, e->token); is_fatal = true; status = 1; } } } catch (error::Parse* e) { this->dumper->MaybeRecord(this, e); throw ; } catch (error::ErrExit* e) { err = e; is_errexit = true; } catch (error::FatalRuntime* e) { err = e; } if (err) { status = err->ExitStatus(); is_fatal = true; this->dumper->MaybeRecord(this, err); if (!err->HasLocation()) { err->location = this->mem->GetFallbackLocation(); } if (is_errexit) { if (this->exec_opts->verbose_errexit()) { this->errfmt->PrintErrExit(static_cast(err), posix::getpid()); } } else { this->errfmt->PrettyPrintError(err, str1476); } } this->dumper->MaybeDump(status); this->mem->SetLastStatus(status); return Tuple2(is_return, is_fatal); } int CommandEvaluator::EvalCommand(syntax_asdl::command_t* block) { int status; StackRoot _root0(&block); status = 0; try { status = this->_Execute(block); } catch (vm::IntControlFlow* e) { if (e->IsReturn()) { status = e->StatusCode(); } else { e_die(str1477, e->token); } } return status; } void CommandEvaluator::MaybeRunExitTrap(syntax_asdl::IntParamBox* mut_status) { syntax_asdl::command_t* node = nullptr; bool is_return; bool is_fatal; StackRoot _root0(&mut_status); StackRoot _root1(&node); node = this->trap_state->GetHook(str1478); if (node) { { // with dev::ctx_Tracer ctx{this->tracer, str1479, nullptr}; try { Tuple2 tup3 = this->ExecuteAndCatch(node); is_return = tup3.at0(); is_fatal = tup3.at1(); } catch (util::UserExit* e) { mut_status->i = e->status; return ; } if (is_return) { mut_status->i = this->LastStatus(); } } } } void CommandEvaluator::_MaybeRunDebugTrap() { syntax_asdl::command_t* node = nullptr; StackRoot _root0(&node); node = this->trap_state->GetHook(str1480); if (node == nullptr) { return ; } if (this->exec_opts->_no_debug_trap()) { return ; } if (!this->mem->ShouldRunDebugTrap()) { return ; } { // with dev::ctx_Tracer ctx{this->tracer, str1481, nullptr}; { // with state::ctx_Registers ctx{this->mem}; { // with state::ctx_DebugTrap ctx{this->mem}; this->_Execute(node); } } } } void CommandEvaluator::_MaybeRunErrTrap() { syntax_asdl::command_t* node = nullptr; StackRoot _root0(&node); node = this->trap_state->GetHook(str1482); if (node == nullptr) { return ; } if (this->exec_opts->_no_err_trap()) { return ; } if (this->mem->running_err_trap) { return ; } if (this->mutable_opts->ErrExitIsDisabled()) { return ; } if ((!this->exec_opts->errtrace() and this->mem->InsideFunction())) { return ; } { // with dev::ctx_Tracer ctx{this->tracer, str1483, nullptr}; { // with state::ctx_ErrTrap ctx{this->mem}; this->_Execute(node); } } } int CommandEvaluator::RunProc(value::Proc* proc, cmd_value::Argv* cmd_val) { syntax_asdl::proc_sig_t* sig = nullptr; List* proc_argv = nullptr; int status; StackRoot _root0(&proc); StackRoot _root1(&cmd_val); StackRoot _root2(&sig); StackRoot _root3(&proc_argv); sig = proc->sig; if (sig->tag() == proc_sig_e::Closed) { proc_argv = Alloc>(); } else { proc_argv = cmd_val->argv->slice(1); } { // with state::ctx_ProcCall ctx{this->mem, this->mutable_opts, proc, proc_argv}; func_proc::BindProcArgs(proc, cmd_val, this->mem); try { status = this->_Execute(proc->body); } catch (vm::IntControlFlow* e) { if (e->IsReturn()) { status = e->StatusCode(); } else { e_die(StrFormat("Unexpected %r (in proc call)", lexer::TokenVal(e->token)), e->token); } } catch (error::FatalRuntime* e) { this->dumper->MaybeRecord(this, e); throw ; } } return status; } int CommandEvaluator::RunFuncForCompletion(value::Proc* proc, List* argv) { cmd_value::Argv* cmd_val = nullptr; int status; StackRoot _root0(&proc); StackRoot _root1(&argv); StackRoot _root2(&cmd_val); cmd_val = MakeBuiltinArgv(argv); try { status = this->RunProc(proc, cmd_val); } catch (error::FatalRuntime* e) { this->errfmt->PrettyPrintError(e); status = e->ExitStatus(); } catch (vm::IntControlFlow* e) { this->errfmt->Print_(str1485, e->token); status = 1; } return status; } } // define namespace cmd_eval namespace cmd_parse { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using id_kind_asdl::Kind; using id_kind_asdl::Kind_str; using types_asdl::lex_mode_e; using types_asdl::cmd_mode_e; using types_asdl::cmd_mode_t; using syntax_asdl::loc; using syntax_asdl::SourceLine; using syntax_asdl::source; using syntax_asdl::parse_result; using syntax_asdl::parse_result_t; using syntax_asdl::command; using syntax_asdl::command_t; using syntax_asdl::condition; using syntax_asdl::condition_t; using syntax_asdl::for_iter; using syntax_asdl::ArgList; using syntax_asdl::BraceGroup; using syntax_asdl::LiteralBlock; using syntax_asdl::CaseArm; using syntax_asdl::case_arg; using syntax_asdl::IfArm; using syntax_asdl::pat; using syntax_asdl::pat_t; using syntax_asdl::Redir; using syntax_asdl::redir_param; using syntax_asdl::redir_loc; using syntax_asdl::redir_loc_t; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using syntax_asdl::word_part_e; using syntax_asdl::word_part_t; using syntax_asdl::rhs_word; using syntax_asdl::rhs_word_t; using syntax_asdl::sh_lhs; using syntax_asdl::sh_lhs_t; using syntax_asdl::AssignPair; using syntax_asdl::EnvPair; using syntax_asdl::ParsedAssignment; using syntax_asdl::assign_op_e; using syntax_asdl::NameType; using syntax_asdl::proc_sig; using syntax_asdl::proc_sig_e; using syntax_asdl::Proc; using syntax_asdl::Func; using error::p_die; int TAB_CH = 9; int SPACE_CH = 32; Tuple2*>*, Tuple2*> _ReadHereLines(reader::_Reader* line_reader, syntax_asdl::Redir* h, BigStr* delimiter) { List*>* here_lines = nullptr; Tuple2* last_line = nullptr; bool strip_leading_tabs; syntax_asdl::SourceLine* src_line = nullptr; BigStr* line = nullptr; int start_offset; int n; int i; StackRoot _root0(&line_reader); StackRoot _root1(&h); StackRoot _root2(&delimiter); StackRoot _root3(&here_lines); StackRoot _root4(&last_line); StackRoot _root5(&src_line); StackRoot _root6(&line); here_lines = Alloc*>>(); last_line = nullptr; strip_leading_tabs = h->op->id == Id::Redir_DLessDash; while (true) { Tuple2 tup0 = line_reader->GetLine(); src_line = tup0.at0(); if (src_line == nullptr) { p_die(str1486, h->op); } line = src_line->content; start_offset = 0; if (strip_leading_tabs) { n = len(line); i = 0; while (i < n) { if (!(str_equals(line->at(i), str1487))) { break; } i += 1; } start_offset = i; } if (str_equals(line->slice(start_offset)->rstrip(), delimiter)) { last_line = (Alloc>(src_line, start_offset)); break; } here_lines->append((Alloc>(src_line, start_offset))); } return Tuple2*>*, Tuple2*>(here_lines, last_line); } List* _MakeLiteralHereLines(List*>* here_lines, alloc::Arena* arena, bool do_lossless) { List* tokens = nullptr; syntax_asdl::SourceLine* src_line = nullptr; int start_offset; syntax_asdl::Token* t = nullptr; StackRoot _root0(&here_lines); StackRoot _root1(&arena); StackRoot _root2(&tokens); StackRoot _root3(&src_line); StackRoot _root4(&t); tokens = Alloc>(); for (ListIter*> it(here_lines); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); src_line = tup1->at0(); start_offset = tup1->at1(); if (do_lossless) { arena->NewToken(Id::Lit_CharsWithoutPrefix, start_offset, 0, src_line); } t = arena->NewToken(Id::Lit_Chars, start_offset, len(src_line->content), src_line); tokens->append(t); } return tokens; } void _ParseHereDocBody(parse_lib::ParseContext* parse_ctx, syntax_asdl::Redir* r, reader::_Reader* line_reader, alloc::Arena* arena) { redir_param::HereDoc* h = nullptr; bool ok; BigStr* delimiter = nullptr; bool delim_quoted; List*>* here_lines = nullptr; Tuple2* last_line = nullptr; word_parse::WordParser* w_parser = nullptr; syntax_asdl::SourceLine* end_line = nullptr; int start_offset; StackRoot _root0(&parse_ctx); StackRoot _root1(&r); StackRoot _root2(&line_reader); StackRoot _root3(&arena); StackRoot _root4(&h); StackRoot _root5(&delimiter); StackRoot _root6(&here_lines); StackRoot _root7(&last_line); StackRoot _root8(&w_parser); StackRoot _root9(&end_line); h = static_cast(r->arg); Tuple3 tup2 = word_::StaticEval(h->here_begin); ok = tup2.at0(); delimiter = tup2.at1(); delim_quoted = tup2.at2(); if (!ok) { p_die(str1488, Alloc(h->here_begin)); } Tuple2*>*, Tuple2*> tup3 = _ReadHereLines(line_reader, r, delimiter); here_lines = tup3.at0(); last_line = tup3.at1(); if (delim_quoted) { h->stdin_parts = _MakeLiteralHereLines(here_lines, arena, parse_ctx->do_lossless); } else { line_reader = Alloc(arena, here_lines, parse_ctx->do_lossless); w_parser = parse_ctx->MakeWordParserForHereDoc(line_reader); w_parser->ReadHereDocBody(h->stdin_parts); } Tuple2* tup4 = last_line; end_line = tup4->at0(); start_offset = tup4->at1(); if (parse_ctx->do_lossless) { arena->NewToken(Id::Lit_CharsWithoutPrefix, start_offset, 0, end_line); } h->here_end_tok = arena->NewToken(Id::Undefined_Tok, start_offset, len(end_line->content), end_line); } syntax_asdl::AssignPair* _MakeAssignPair(parse_lib::ParseContext* parse_ctx, syntax_asdl::ParsedAssignment* preparsed, alloc::Arena* arena) { syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* close_token = nullptr; syntax_asdl::sh_lhs_t* lhs = nullptr; BigStr* var_name = nullptr; syntax_asdl::assign_op_t op; int left_pos; BigStr* index_str = nullptr; int s; BigStr* code_str = nullptr; tdop::TdopParser* a_parser = nullptr; source::Reparsed* src = nullptr; syntax_asdl::arith_expr_t* index_node = nullptr; List* parts = nullptr; int offset; int n; syntax_asdl::rhs_word_t* rhs = nullptr; syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&parse_ctx); StackRoot _root1(&preparsed); StackRoot _root2(&arena); StackRoot _root3(&left_token); StackRoot _root4(&close_token); StackRoot _root5(&lhs); StackRoot _root6(&var_name); StackRoot _root7(&index_str); StackRoot _root8(&code_str); StackRoot _root9(&a_parser); StackRoot _root10(&src); StackRoot _root11(&index_node); StackRoot _root12(&parts); StackRoot _root13(&rhs); StackRoot _root14(&w); left_token = preparsed->left; close_token = preparsed->close; lhs = nullptr; if (left_token->id == Id::Lit_VarLike) { if (lexer::IsPlusEquals(left_token)) { var_name = lexer::TokenSliceRight(left_token, -2); op = assign_op_e::PlusEqual; } else { var_name = lexer::TokenSliceRight(left_token, -1); op = assign_op_e::Equal; } lhs = Alloc(left_token, var_name); } else { if ((left_token->id == Id::Lit_ArrayLhsOpen and parse_ctx->do_lossless)) { var_name = lexer::TokenSliceRight(left_token, -1); if (lexer::IsPlusEquals(close_token)) { op = assign_op_e::PlusEqual; } else { op = assign_op_e::Equal; } left_pos = (left_token->col + left_token->length); index_str = left_token->line->content->slice(left_pos, close_token->col); lhs = Alloc(left_token, var_name, index_str); } else { if (left_token->id == Id::Lit_ArrayLhsOpen) { var_name = lexer::TokenSliceRight(left_token, -1); if (lexer::IsPlusEquals(close_token)) { op = assign_op_e::PlusEqual; } else { op = assign_op_e::Equal; } if (left_token->line == close_token->line) { s = (left_token->col + left_token->length); code_str = left_token->line->content->slice(s, close_token->col); } else { FAIL(kNotImplemented); // Python NotImplementedError } a_parser = parse_ctx->MakeArithParser(code_str); src = Alloc(str1490, left_token, close_token); { // with alloc::ctx_SourceCode ctx{arena, src}; index_node = a_parser->Parse(); } lhs = Alloc(left_token, var_name, index_node); } else { assert(0); // AssertionError } } } parts = preparsed->w->parts; offset = preparsed->part_offset; n = len(parts); if (offset == n) { rhs = rhs_word::Empty; } else { w = Alloc(parts->slice(offset)); word_::TildeDetectAssign(w); rhs = w; } return Alloc(left_token, lhs, op, rhs); } void _AppendMoreEnv(List* preparsed_list, List* more_env) { syntax_asdl::Token* left_token = nullptr; BigStr* var_name = nullptr; List* parts = nullptr; int n; int offset; syntax_asdl::rhs_word_t* rhs = nullptr; syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&preparsed_list); StackRoot _root1(&more_env); StackRoot _root2(&left_token); StackRoot _root3(&var_name); StackRoot _root4(&parts); StackRoot _root5(&rhs); StackRoot _root6(&w); for (ListIter it(preparsed_list); !it.Done(); it.Next()) { syntax_asdl::ParsedAssignment* preparsed = it.Value(); StackRoot _for(&preparsed ); left_token = preparsed->left; if (left_token->id != Id::Lit_VarLike) { p_die(str1491, left_token); } if (lexer::IsPlusEquals(left_token)) { p_die(str1492, left_token); } var_name = lexer::TokenSliceRight(left_token, -1); parts = preparsed->w->parts; n = len(parts); offset = preparsed->part_offset; if (offset == n) { rhs = rhs_word::Empty; } else { w = Alloc(parts->slice(offset)); word_::TildeDetectAssign(w); rhs = w; } more_env->append(Alloc(left_token, var_name, rhs)); } } Tuple2*, List*> _SplitSimpleCommandPrefix(List* words) { List* preparsed_list = nullptr; List* suffix_words = nullptr; bool done_prefix; syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* close_token = nullptr; int part_offset; StackRoot _root0(&words); StackRoot _root1(&preparsed_list); StackRoot _root2(&suffix_words); StackRoot _root3(&left_token); StackRoot _root4(&close_token); preparsed_list = Alloc>(); suffix_words = Alloc>(); done_prefix = false; for (ListIter it(words); !it.Done(); it.Next()) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); if (done_prefix) { suffix_words->append(w); continue; } Tuple3 tup5 = word_::DetectShAssignment(w); left_token = tup5.at0(); close_token = tup5.at1(); part_offset = tup5.at2(); if (left_token) { preparsed_list->append(Alloc(left_token, close_token, part_offset, w)); } else { done_prefix = true; suffix_words->append(w); } } return Tuple2*, List*>(preparsed_list, suffix_words); } command::Simple* _MakeSimpleCommand(List* preparsed_list, List* suffix_words, syntax_asdl::ArgList* typed_args, syntax_asdl::LiteralBlock* block) { syntax_asdl::word_part_t* part0 = nullptr; syntax_asdl::Token* blame_tok = nullptr; List* words2 = nullptr; List* words3 = nullptr; List* more_env = nullptr; StackRoot _root0(&preparsed_list); StackRoot _root1(&suffix_words); StackRoot _root2(&typed_args); StackRoot _root3(&block); StackRoot _root4(&part0); StackRoot _root5(&blame_tok); StackRoot _root6(&words2); StackRoot _root7(&words3); StackRoot _root8(&more_env); for (ListIter it(preparsed_list); !it.Done(); it.Next()) { syntax_asdl::ParsedAssignment* preparsed = it.Value(); StackRoot _for(&preparsed ); if (word_::HasArrayPart(preparsed->w)) { p_die(str1493, Alloc(preparsed->w)); } } part0 = suffix_words->at(0)->parts->at(0); blame_tok = location::LeftTokenForWordPart(part0); words2 = braces::BraceDetectAll(suffix_words); words3 = word_::TildeDetectAll(words2); more_env = Alloc>(); _AppendMoreEnv(preparsed_list, more_env); return Alloc(blame_tok, more_env, words3, typed_args, block, true); } VarChecker::VarChecker() { this->tokens = Alloc>(); this->names = Alloc*>>(); } void VarChecker::Push(syntax_asdl::Token* blame_tok) { Dict* entry = nullptr; StackRoot _root0(&blame_tok); StackRoot _root1(&entry); if (len(this->tokens) != 0) { if (blame_tok->id == Id::KW_Proc) { p_die(str1495, blame_tok); } if (blame_tok->id == Id::KW_Func) { p_die(str1496, blame_tok); } if ((this->tokens->at(0)->id == Id::KW_Proc || this->tokens->at(0)->id == Id::KW_Func)) { p_die(str1497, blame_tok); } } this->tokens->append(blame_tok); entry = Alloc>(); this->names->append(entry); } void VarChecker::Pop() { this->names->pop(); this->tokens->pop(); } void VarChecker::Check(int keyword_id, BigStr* var_name, syntax_asdl::Token* blame_tok) { Dict* top = nullptr; StackRoot _root0(&var_name); StackRoot _root1(&blame_tok); StackRoot _root2(&top); if (len(this->names) == 0) { return ; } top = this->names->at(-1); if (keyword_id == Id::KW_Var) { if (dict_contains(top, var_name)) { p_die(StrFormat("%r was already declared", var_name), blame_tok); } else { top->set(var_name, keyword_id); } } if (keyword_id == Id::KW_SetVar) { if (!dict_contains(top, var_name)) { p_die(StrFormat("setvar couldn't find matching 'var %s' (OILS-ERR-10)", var_name), blame_tok); } } } ctx_VarChecker::ctx_VarChecker(cmd_parse::VarChecker* var_checker, syntax_asdl::Token* blame_tok) { gHeap.PushRoot(reinterpret_cast(&(this->var_checker))); var_checker->Push(blame_tok); this->var_checker = var_checker; } ctx_VarChecker::~ctx_VarChecker() { this->var_checker->Pop(); gHeap.PopRoot(); } ctx_CmdMode::ctx_CmdMode(cmd_parse::CommandParser* cmd_parse, types_asdl::cmd_mode_t new_cmd_mode) { gHeap.PushRoot(reinterpret_cast(&(this->cmd_parse))); this->cmd_parse = cmd_parse; this->prev_cmd_mode = cmd_parse->cmd_mode; cmd_parse->cmd_mode = new_cmd_mode; } ctx_CmdMode::~ctx_CmdMode() { this->cmd_parse->cmd_mode = this->prev_cmd_mode; gHeap.PopRoot(); } GLOBAL_LIST(SECONDARY_KEYWORDS, int, 7, {Id::KW_Do COMMA Id::KW_Done COMMA Id::KW_Then COMMA Id::KW_Fi COMMA Id::KW_Elif COMMA Id::KW_Else COMMA Id::KW_Esac}); CommandParser::CommandParser(parse_lib::ParseContext* parse_ctx, optview::Parse* parse_opts, word_parse::WordParser* w_parser, lexer::Lexer* lexer, reader::_Reader* line_reader, int eof_id) { this->parse_ctx = parse_ctx; this->aliases = parse_ctx->aliases; this->parse_opts = parse_opts; this->w_parser = w_parser; this->lexer = lexer; this->line_reader = line_reader; this->eof_id = eof_id; this->arena = line_reader->arena; this->aliases_in_flight = Alloc*>>(); this->allow_block = true; this->hay_attrs_stack = Alloc>(); this->var_checker = Alloc(); this->cmd_mode = cmd_mode_e::Shell; this->Reset(); } void CommandParser::Init_AliasesInFlight(List*>* aliases_in_flight) { StackRoot _root0(&aliases_in_flight); this->aliases_in_flight = aliases_in_flight; } void CommandParser::Reset() { this->next_lex_mode = lex_mode_e::ShCommand; this->cur_word = nullptr; this->c_kind = Kind::Undefined; this->c_id = Id::Undefined_Tok; this->pending_here_docs = Alloc>(); } void CommandParser::ResetInputObjects() { this->w_parser->Reset(); this->lexer->ResetInputObjects(); this->line_reader->Reset(); } void CommandParser::_SetNext() { this->next_lex_mode = lex_mode_e::ShCommand; } void CommandParser::_SetNextBrack() { this->next_lex_mode = lex_mode_e::ShCommandFakeBrack; } void CommandParser::_GetWord() { syntax_asdl::word_t* w = nullptr; Token* tok = nullptr; StackRoot _root0(&w); StackRoot _root1(&tok); if (this->next_lex_mode != lex_mode_e::Undefined) { w = this->w_parser->ReadWord(this->next_lex_mode); if (w->tag() == word_e::Operator) { tok = static_cast(w); if (tok->id == Id::Op_Newline) { for (ListIter it(this->pending_here_docs); !it.Done(); it.Next()) { syntax_asdl::Redir* h = it.Value(); StackRoot _for(&h ); _ParseHereDocBody(this->parse_ctx, h, this->line_reader, this->arena); } this->pending_here_docs->clear(); } } this->cur_word = w; this->c_kind = word_::CommandKind(this->cur_word); this->c_id = word_::CommandId(this->cur_word); this->next_lex_mode = lex_mode_e::Undefined; } } syntax_asdl::word_t* CommandParser::_Eat(int c_id, BigStr* msg) { syntax_asdl::word_t* skipped = nullptr; StackRoot _root0(&msg); StackRoot _root1(&skipped); this->_GetWord(); if (this->c_id != c_id) { if (msg == nullptr) { msg = StrFormat("Expected word type %s, got %s", ui::PrettyId(c_id), ui::PrettyId(this->c_id)); } p_die(msg, Alloc(this->cur_word)); } skipped = this->cur_word; this->_SetNext(); return skipped; } void CommandParser::_NewlineOk() { this->_GetWord(); if (this->c_id == Id::Op_Newline) { this->_SetNext(); } } bool CommandParser::_AtSecondaryKeyword() { this->_GetWord(); if (list_contains(SECONDARY_KEYWORDS, this->c_id)) { return true; } return false; } syntax_asdl::Redir* CommandParser::ParseRedirect() { Token* op_tok = nullptr; BigStr* op_val = nullptr; int pos; syntax_asdl::redir_loc_t* where = nullptr; redir_param::HereDoc* arg = nullptr; syntax_asdl::Redir* r = nullptr; syntax_asdl::word_t* arg_word = nullptr; syntax_asdl::CompoundWord* tilde = nullptr; StackRoot _root0(&op_tok); StackRoot _root1(&op_val); StackRoot _root2(&where); StackRoot _root3(&arg); StackRoot _root4(&r); StackRoot _root5(&arg_word); StackRoot _root6(&tilde); this->_GetWord(); op_tok = static_cast(this->cur_word); op_val = lexer::TokenVal(op_tok); if (str_equals(op_val->at(0), str1501)) { pos = op_val->find(str1502); where = Alloc(op_val->slice(1, pos)); } else { if (op_val->at(0)->isdigit()) { pos = 1; if (op_val->at(1)->isdigit()) { pos = 2; } where = Alloc(to_int(op_val->slice(0, pos))); } else { where = Alloc(consts::RedirDefaultFd(op_tok->id)); } } this->_SetNext(); this->_GetWord(); if (this->c_kind != Kind::Word) { p_die(str1503, Alloc(this->cur_word)); } if ((op_tok->id == Id::Redir_DLess || op_tok->id == Id::Redir_DLessDash)) { arg = redir_param::HereDoc::CreateNull(); arg->here_begin = this->cur_word; arg->stdin_parts = Alloc>(); r = Alloc(op_tok, where, arg); this->pending_here_docs->append(r); this->_SetNext(); return r; } arg_word = this->cur_word; tilde = word_::TildeDetect(arg_word); if (tilde) { arg_word = tilde; } this->_SetNext(); return Alloc(op_tok, where, static_cast(arg_word)); } List* CommandParser::_ParseRedirectList() { List* redirects = nullptr; syntax_asdl::Redir* node = nullptr; StackRoot _root0(&redirects); StackRoot _root1(&node); redirects = Alloc>(); while (true) { this->_GetWord(); if (this->c_kind != Kind::Redir) { break; } node = this->ParseRedirect(); redirects->append(node); this->_SetNext(); } return redirects; } syntax_asdl::command_t* CommandParser::_MaybeParseRedirectList(syntax_asdl::command_t* node) { List* redirects = nullptr; StackRoot _root0(&node); StackRoot _root1(&redirects); this->_GetWord(); if (this->c_kind != Kind::Redir) { return node; } redirects = NewList(std::initializer_list{this->ParseRedirect()}); while (true) { this->_GetWord(); if (this->c_kind != Kind::Redir) { break; } redirects->append(this->ParseRedirect()); this->_SetNext(); } return Alloc(node, redirects); } Tuple4*, List*, syntax_asdl::ArgList*, syntax_asdl::LiteralBlock*> CommandParser::_ScanSimpleCommand() { List* redirects = nullptr; List* words = nullptr; syntax_asdl::ArgList* typed_args = nullptr; syntax_asdl::LiteralBlock* block = nullptr; bool first_word_caps; int i; id_kind_asdl::Kind_t kind2; syntax_asdl::Redir* node = nullptr; CompoundWord* w = nullptr; syntax_asdl::word_part_t* part0 = nullptr; Token* tok = nullptr; bool ok; BigStr* word_str = nullptr; bool quoted; int prev_byte; int next_id; syntax_asdl::BraceGroup* brace_group = nullptr; List* lines = nullptr; StackRoot _root0(&redirects); StackRoot _root1(&words); StackRoot _root2(&typed_args); StackRoot _root3(&block); StackRoot _root4(&node); StackRoot _root5(&w); StackRoot _root6(&part0); StackRoot _root7(&tok); StackRoot _root8(&word_str); StackRoot _root9(&brace_group); StackRoot _root10(&lines); redirects = Alloc>(); words = Alloc>(); typed_args = nullptr; block = nullptr; first_word_caps = false; i = 0; while (true) { this->_GetWord(); kind2 = this->c_kind; if ((kind2 == Kind::Word and (this->parse_opts->parse_brace() and (this->c_id == Id::Lit_LBrace || this->c_id == Id::Lit_RBrace)))) { kind2 = Kind::Op; } if (kind2 == Kind::Redir) { node = this->ParseRedirect(); redirects->append(node); } else { if (kind2 == Kind::Word) { w = static_cast(this->cur_word); if (i == 0) { part0 = w->parts->at(0); if (part0->tag() == word_part_e::Literal) { tok = static_cast(part0); if (tok->id == Id::Lit_Equals) { p_die(str1504, tok); } } Tuple3 tup6 = word_::StaticEval(w); ok = tup6.at0(); word_str = tup6.at1(); quoted = tup6.at2(); if ((ok and (len(word_str) and (word_str->at(0)->isupper() and !word_str->isupper())))) { first_word_caps = true; } } words->append(w); } else { break; } } this->_SetNextBrack(); i += 1; } this->_GetWord(); if (this->c_id == Id::Op_LParen) { prev_byte = this->lexer->ByteLookBack(); if ((prev_byte != SPACE_CH && prev_byte != TAB_CH)) { if (this->parse_opts->parse_at()) { p_die(str1505, Alloc(this->cur_word)); } else { p_die(str1506, Alloc(this->cur_word)); } } next_id = this->lexer->LookPastSpace(lex_mode_e::ShCommand); if (next_id == Id::Op_RParen) { p_die(str1507, Alloc(this->cur_word)); } typed_args = this->w_parser->ParseProcCallArgs(grammar_nt::ysh_eager_arglist); this->_SetNext(); } else { if (this->c_id == Id::Op_LBracket) { typed_args = this->w_parser->ParseProcCallArgs(grammar_nt::ysh_lazy_arglist); this->_SetNext(); } } this->_GetWord(); if (this->c_kind == Kind::Redir) { redirects->extend(this->_ParseRedirectList()); } if ((this->parse_opts->parse_brace() and (this->c_id == Id::Lit_LBrace and this->allow_block))) { this->hay_attrs_stack->append(first_word_caps); brace_group = this->ParseBraceGroup(); lines = this->arena->SaveLinesAndDiscard(brace_group->left, brace_group->right); block = Alloc(brace_group, lines); this->hay_attrs_stack->pop(); } this->_GetWord(); if (this->c_kind == Kind::Redir) { redirects->extend(this->_ParseRedirectList()); } return Tuple4*, List*, syntax_asdl::ArgList*, syntax_asdl::LiteralBlock*>(redirects, words, typed_args, block); } syntax_asdl::command_t* CommandParser::_MaybeExpandAliases(List* words) { List*>* aliases_in_flight = nullptr; BigStr* first_word_str = nullptr; loc::Word* argv0_loc = nullptr; List* expanded = nullptr; int i; int n; syntax_asdl::CompoundWord* w = nullptr; bool ok; BigStr* word_str = nullptr; bool quoted; BigStr* alias_exp = nullptr; syntax_asdl::Token* left_tok = nullptr; syntax_asdl::Token* right_tok = nullptr; BigStr* words_str = nullptr; BigStr* code_str = nullptr; alloc::Arena* arena = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* cp = nullptr; source::Alias* src = nullptr; command::CommandList* node = nullptr; StackRoot _root0(&words); StackRoot _root1(&aliases_in_flight); StackRoot _root2(&first_word_str); StackRoot _root3(&argv0_loc); StackRoot _root4(&expanded); StackRoot _root5(&w); StackRoot _root6(&word_str); StackRoot _root7(&alias_exp); StackRoot _root8(&left_tok); StackRoot _root9(&right_tok); StackRoot _root10(&words_str); StackRoot _root11(&code_str); StackRoot _root12(&arena); StackRoot _root13(&line_reader); StackRoot _root14(&cp); StackRoot _root15(&src); StackRoot _root16(&node); aliases_in_flight = len(this->aliases_in_flight) ? this->aliases_in_flight : Alloc*>>(); first_word_str = nullptr; argv0_loc = Alloc(words->at(0)); expanded = Alloc>(); i = 0; n = len(words); while (i < n) { w = words->at(i); Tuple3 tup7 = word_::StaticEval(w); ok = tup7.at0(); word_str = tup7.at1(); quoted = tup7.at2(); if ((!ok or quoted)) { break; } alias_exp = this->aliases->get(word_str); if (alias_exp == nullptr) { break; } if (list_contains(aliases_in_flight, (Alloc>(word_str, i)))) { break; } if (i == 0) { first_word_str = word_str; } aliases_in_flight->append((Alloc>(word_str, i))); expanded->append(alias_exp); i += 1; if (!alias_exp->endswith(str1508)) { expanded->append(str1509); break; } } if (len(expanded) == 0) { return nullptr; } if (i < n) { left_tok = location::LeftTokenForWord(words->at(i)); right_tok = location::RightTokenForWord(words->at(-1)); words_str = this->arena->SnipCodeString(left_tok, right_tok); expanded->append(words_str); } code_str = str1510->join(expanded); arena = this->arena; line_reader = reader::StringLineReader(code_str, arena); cp = this->parse_ctx->MakeOshParser(line_reader); cp->Init_AliasesInFlight(aliases_in_flight); src = Alloc(first_word_str, argv0_loc); { // with alloc::ctx_SourceCode ctx{arena, src}; { // with parse_lib::ctx_Alias ctx{this->parse_ctx->trail}; try { node = cp->_ParseCommandTerm(); } catch (error::Parse* e) { throw ; } } } return node; } syntax_asdl::command_t* CommandParser::ParseSimpleCommand() { List* redirects = nullptr; List* words = nullptr; syntax_asdl::ArgList* typed_args = nullptr; syntax_asdl::LiteralBlock* block = nullptr; syntax_asdl::Token* typed_loc = nullptr; List* preparsed_list = nullptr; List* suffix_words = nullptr; List* pairs = nullptr; syntax_asdl::Token* left_tok = nullptr; command::ShAssignment* assign_node = nullptr; id_kind_asdl::Kind_t kind; syntax_asdl::Token* kw_token = nullptr; syntax_asdl::word_t* arg_word = nullptr; syntax_asdl::command_t* expanded_node = nullptr; List* more_env = nullptr; command::ExpandedAlias* exp = nullptr; command::Simple* node = nullptr; StackRoot _root0(&redirects); StackRoot _root1(&words); StackRoot _root2(&typed_args); StackRoot _root3(&block); StackRoot _root4(&typed_loc); StackRoot _root5(&preparsed_list); StackRoot _root6(&suffix_words); StackRoot _root7(&pairs); StackRoot _root8(&left_tok); StackRoot _root9(&assign_node); StackRoot _root10(&kw_token); StackRoot _root11(&arg_word); StackRoot _root12(&expanded_node); StackRoot _root13(&more_env); StackRoot _root14(&exp); StackRoot _root15(&node); Tuple4*, List*, syntax_asdl::ArgList*, syntax_asdl::LiteralBlock*> tup8 = this->_ScanSimpleCommand(); redirects = tup8.at0(); words = tup8.at1(); typed_args = tup8.at2(); block = tup8.at3(); typed_loc = nullptr; if (block) { typed_loc = block->brace_group->left; } if (typed_args) { typed_loc = typed_args->left; } if (len(words) == 0) { if (typed_loc != nullptr) { p_die(str1512, typed_loc); } return Alloc(command::NoOp, redirects); } Tuple2*, List*> tup9 = _SplitSimpleCommandPrefix(words); preparsed_list = tup9.at0(); suffix_words = tup9.at1(); if (len(preparsed_list)) { if (len(suffix_words) == 0) { if ((this->cmd_mode != cmd_mode_e::Shell or (len(this->hay_attrs_stack) and this->hay_attrs_stack->at(-1)))) { p_die(str1513, preparsed_list->at(0)->left); } } } this->parse_ctx->trail->SetLatestWords(suffix_words, redirects); if (len(suffix_words) == 0) { if (typed_loc != nullptr) { p_die(str1514, typed_loc); } pairs = Alloc>(); for (ListIter it(preparsed_list); !it.Done(); it.Next()) { syntax_asdl::ParsedAssignment* preparsed = it.Value(); StackRoot _for(&preparsed ); pairs->append(_MakeAssignPair(this->parse_ctx, preparsed, this->arena)); } left_tok = location::LeftTokenForCompoundWord(words->at(0)); assign_node = Alloc(left_tok, pairs); if (len(redirects)) { return Alloc(assign_node, redirects); } else { return assign_node; } } Tuple2 tup10 = word_::IsControlFlow(suffix_words->at(0)); kind = tup10.at0(); kw_token = tup10.at1(); if (kind == Kind::ControlFlow) { if ((!this->parse_opts->parse_ignored() and len(redirects))) { p_die(str1515, kw_token); } if (len(preparsed_list)) { p_die(str1516, preparsed_list->at(0)->left); } if (kw_token->id == Id::ControlFlow_Return) { if (typed_args == nullptr) { if ((this->cmd_mode != cmd_mode_e::Shell && this->cmd_mode != cmd_mode_e::Proc)) { p_die(str1517, kw_token); } } else { if (this->cmd_mode != cmd_mode_e::Func) { p_die(str1518, typed_loc); } if (len(typed_args->pos_args) != 1) { p_die(str1519, typed_loc); } if (len(typed_args->named_args) != 0) { p_die(str1520, typed_loc); } return Alloc(kw_token, typed_args->pos_args->at(0)); } } if (typed_loc != nullptr) { p_die(str1521, typed_loc); } if (len(suffix_words) == 1) { arg_word = nullptr; } else { if (len(suffix_words) == 2) { arg_word = suffix_words->at(1); } else { p_die(StrFormat("Unexpected argument to %r", lexer::TokenVal(kw_token)), Alloc(suffix_words->at(2))); } } return Alloc(kw_token, arg_word); } if ((!typed_args and (!block and this->parse_opts->expand_aliases()))) { expanded_node = this->_MaybeExpandAliases(suffix_words); if (expanded_node) { more_env = Alloc>(); _AppendMoreEnv(preparsed_list, more_env); exp = Alloc(expanded_node, more_env); if (len(redirects)) { return Alloc(exp, redirects); } else { return exp; } } } node = _MakeSimpleCommand(preparsed_list, suffix_words, typed_args, block); if (len(redirects)) { return Alloc(node, redirects); } else { return node; } } syntax_asdl::BraceGroup* CommandParser::ParseBraceGroup() { syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* left = nullptr; syntax_asdl::word_t* doc_word = nullptr; Token* doc_token = nullptr; command::CommandList* c_list = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&ate); StackRoot _root1(&left); StackRoot _root2(&doc_word); StackRoot _root3(&doc_token); StackRoot _root4(&c_list); StackRoot _root5(&right); ate = this->_Eat(Id::Lit_LBrace); left = word_::BraceToken(ate); doc_word = nullptr; this->_GetWord(); if (this->c_id == Id::Op_Newline) { this->_SetNext(); { // with word_::ctx_EmitDocToken ctx{this->w_parser}; this->_GetWord(); } } if (this->c_id == Id::Ignored_Comment) { doc_word = this->cur_word; this->_SetNext(); } doc_token = static_cast(doc_word); c_list = this->_ParseCommandList(); ate = this->_Eat(Id::Lit_RBrace); right = word_::BraceToken(ate); return Alloc(left, doc_token, c_list->children, right); } command::DoGroup* CommandParser::ParseDoGroup() { syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* do_kw = nullptr; command::CommandList* c_list = nullptr; syntax_asdl::Token* done_kw = nullptr; StackRoot _root0(&ate); StackRoot _root1(&do_kw); StackRoot _root2(&c_list); StackRoot _root3(&done_kw); ate = this->_Eat(Id::KW_Do); do_kw = word_::AsKeywordToken(ate); c_list = this->_ParseCommandList(); ate = this->_Eat(Id::KW_Done); done_kw = word_::AsKeywordToken(ate); return Alloc(do_kw, c_list->children, done_kw); } Tuple2*, syntax_asdl::Token*> CommandParser::ParseForWords() { List* words = nullptr; syntax_asdl::Token* semi_tok = nullptr; Token* tok = nullptr; CompoundWord* w2 = nullptr; StackRoot _root0(&words); StackRoot _root1(&semi_tok); StackRoot _root2(&tok); StackRoot _root3(&w2); words = Alloc>(); semi_tok = nullptr; while (true) { this->_GetWord(); if (this->c_id == Id::Op_Semi) { tok = static_cast(this->cur_word); semi_tok = tok; this->_SetNext(); this->_NewlineOk(); break; } else { if (this->c_id == Id::Op_Newline) { this->_SetNext(); break; } else { if ((this->parse_opts->parse_brace() and this->c_id == Id::Lit_LBrace)) { break; } } } if (this->cur_word->tag() != word_e::Compound) { p_die(str1523, Alloc(this->cur_word)); } w2 = static_cast(this->cur_word); words->append(w2); this->_SetNext(); } return Tuple2*, syntax_asdl::Token*>(words, semi_tok); } command::ForExpr* CommandParser::_ParseForExprLoop(syntax_asdl::Token* for_kw) { command::ForExpr* node = nullptr; StackRoot _root0(&for_kw); StackRoot _root1(&node); node = this->w_parser->ReadForExpression(); node->keyword = for_kw; this->_SetNext(); this->_GetWord(); if (this->c_id == Id::Op_Semi) { this->_SetNext(); this->_NewlineOk(); } else { if (this->c_id == Id::Op_Newline) { this->_SetNext(); } else { if (this->c_id == Id::KW_Do) { ; // pass } else { if (this->c_id == Id::Lit_LBrace) { ; // pass } else { p_die(str1524, Alloc(this->cur_word)); } } } } if (this->c_id == Id::Lit_LBrace) { node->body = this->ParseBraceGroup(); } else { node->body = this->ParseDoGroup(); } return node; } command::ForEach* CommandParser::_ParseForEachLoop(syntax_asdl::Token* for_kw) { command::ForEach* node = nullptr; int num_iter_names; syntax_asdl::word_t* w = nullptr; syntax_asdl::word_t* UP_w = nullptr; bool ok; BigStr* iter_name = nullptr; bool quoted; syntax_asdl::Token* expr_blame = nullptr; int next_id; syntax_asdl::expr_t* enode = nullptr; syntax_asdl::Token* semi_tok = nullptr; List* iter_words = nullptr; BigStr* s = nullptr; List* words2 = nullptr; List* words3 = nullptr; StackRoot _root0(&for_kw); StackRoot _root1(&node); StackRoot _root2(&w); StackRoot _root3(&UP_w); StackRoot _root4(&iter_name); StackRoot _root5(&expr_blame); StackRoot _root6(&enode); StackRoot _root7(&semi_tok); StackRoot _root8(&iter_words); StackRoot _root9(&s); StackRoot _root10(&words2); StackRoot _root11(&words3); node = command::ForEach::CreateNull(true); node->keyword = for_kw; num_iter_names = 0; while (true) { w = this->cur_word; UP_w = w; if (w->tag() == word_e::Compound) { CompoundWord* w = static_cast(UP_w); if (word_::LiteralId(w->parts->at(-1)) == Id::Lit_Comma) { w->parts->pop(); } } Tuple3 tup11 = word_::StaticEval(w); ok = tup11.at0(); iter_name = tup11.at1(); quoted = tup11.at2(); if ((!ok or quoted)) { p_die(str1525, Alloc(w)); } if (!match::IsValidVarName(iter_name)) { if (str_contains(iter_name, str1526)) { p_die(str1527, Alloc(w)); } p_die(StrFormat("Invalid loop variable name %r", iter_name), Alloc(w)); } node->iter_names->append(iter_name); num_iter_names += 1; this->_SetNext(); this->_GetWord(); if (((this->c_id == Id::KW_In || this->c_id == Id::KW_Do) or this->c_kind == Kind::Op)) { break; } if (num_iter_names == 3) { p_die(str1529, Alloc(this->cur_word)); } } this->_NewlineOk(); this->_GetWord(); if (this->c_id == Id::KW_In) { expr_blame = word_::AsKeywordToken(this->cur_word); this->_SetNext(); next_id = this->w_parser->LookPastSpace(); if (next_id == Id::Op_LParen) { enode = this->w_parser->ParseYshExprForCommand(); node->iterable = Alloc(enode, expr_blame); this->_GetWord(); if (this->c_id != Id::Lit_LBrace) { p_die(str1530, Alloc(this->cur_word)); } } else { if (next_id == Id::Redir_LessGreat) { w = this->_Eat(Id::Redir_LessGreat); p_die(str1531, Alloc(this->cur_word)); } else { if (next_id == Id::Redir_Less) { w = this->_Eat(Id::Redir_Less); p_die(str1532, Alloc(this->cur_word)); } else { semi_tok = nullptr; Tuple2*, syntax_asdl::Token*> tup12 = this->ParseForWords(); iter_words = tup12.at0(); semi_tok = tup12.at1(); node->semi_tok = semi_tok; if ((!this->parse_opts->parse_bare_word() and len(iter_words) == 1)) { Tuple3 tup13 = word_::StaticEval(iter_words->at(0)); ok = tup13.at0(); s = tup13.at1(); quoted = tup13.at2(); if ((ok and (match::IsValidVarName(s) and !quoted))) { p_die(str1533, Alloc(iter_words->at(0))); } } words2 = braces::BraceDetectAll(iter_words); words3 = word_::TildeDetectAll(words2); node->iterable = Alloc(words3); if (num_iter_names > 2) { p_die(str1534, for_kw); } } } } } else { if (this->c_id == Id::KW_Do) { node->iterable = for_iter::Args; } else { if (this->c_id == Id::Op_Semi) { node->iterable = for_iter::Args; this->_SetNext(); } else { p_die(str1535, Alloc(this->cur_word)); } } } this->_GetWord(); if (this->c_id == Id::Lit_LBrace) { node->body = this->ParseBraceGroup(); } else { node->body = this->ParseDoGroup(); } return node; } syntax_asdl::command_t* CommandParser::ParseFor() { syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* for_kw = nullptr; command::ForExpr* n1 = nullptr; command::ForEach* n2 = nullptr; StackRoot _root0(&ate); StackRoot _root1(&for_kw); StackRoot _root2(&n1); StackRoot _root3(&n2); ate = this->_Eat(Id::KW_For); for_kw = word_::AsKeywordToken(ate); this->_GetWord(); if (this->c_id == Id::Op_DLeftParen) { if (!this->parse_opts->parse_dparen()) { p_die(str1536, Alloc(this->cur_word)); } n1 = this->_ParseForExprLoop(for_kw); return this->_MaybeParseRedirectList(n1); } else { n2 = this->_ParseForEachLoop(for_kw); return this->_MaybeParseRedirectList(n2); } } syntax_asdl::condition_t* CommandParser::_ParseConditionList() { command::CommandList* commands = nullptr; StackRoot _root0(&commands); this->allow_block = false; commands = this->_ParseCommandList(); this->allow_block = true; if (len(commands->children) == 0) { p_die(str1537, Alloc(this->cur_word)); } return Alloc(commands->children); } command::WhileUntil* CommandParser::ParseWhileUntil(syntax_asdl::Token* keyword) { syntax_asdl::expr_t* enode = nullptr; syntax_asdl::condition_t* cond = nullptr; syntax_asdl::command_t* body_node = nullptr; StackRoot _root0(&keyword); StackRoot _root1(&enode); StackRoot _root2(&cond); StackRoot _root3(&body_node); this->_SetNext(); if ((this->parse_opts->parse_paren() and this->w_parser->LookPastSpace() == Id::Op_LParen)) { enode = this->w_parser->ParseYshExprForCommand(); cond = Alloc(enode); } else { cond = this->_ParseConditionList(); } this->_GetWord(); if ((this->parse_opts->parse_brace() and this->c_id == Id::Lit_LBrace)) { body_node = this->ParseBraceGroup(); } else { body_node = this->ParseDoGroup(); } return Alloc(keyword, cond, body_node); } syntax_asdl::CaseArm* CommandParser::ParseCaseArm() { syntax_asdl::Token* left_tok = nullptr; List* pat_words = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* middle_tok = nullptr; command::CommandList* c_list = nullptr; List* action_children = nullptr; syntax_asdl::Token* dsemi_tok = nullptr; StackRoot _root0(&left_tok); StackRoot _root1(&pat_words); StackRoot _root2(&ate); StackRoot _root3(&middle_tok); StackRoot _root4(&c_list); StackRoot _root5(&action_children); StackRoot _root6(&dsemi_tok); this->lexer->PushHint(Id::Op_RParen, Id::Right_CasePat); left_tok = location::LeftTokenForWord(this->cur_word); if (this->c_id == Id::Op_LParen) { this->_SetNext(); } pat_words = Alloc>(); while (true) { this->_GetWord(); if (this->c_kind != Kind::Word) { p_die(str1538, Alloc(this->cur_word)); } pat_words->append(this->cur_word); this->_SetNext(); this->_GetWord(); if (this->c_id == Id::Op_Pipe) { this->_SetNext(); } else { break; } } ate = this->_Eat(Id::Right_CasePat); middle_tok = word_::AsOperatorToken(ate); this->_NewlineOk(); this->_GetWord(); if ((this->c_id != Id::Op_DSemi && this->c_id != Id::Op_SemiAmp && this->c_id != Id::Op_DSemiAmp && this->c_id != Id::KW_Esac)) { c_list = this->_ParseCommandTerm(); action_children = c_list->children; } else { action_children = Alloc>(); } dsemi_tok = nullptr; this->_GetWord(); if (this->c_id == Id::KW_Esac) { ; // pass } else { if ((this->c_id == Id::Op_DSemi || this->c_id == Id::Op_SemiAmp || this->c_id == Id::Op_DSemiAmp)) { dsemi_tok = word_::AsOperatorToken(this->cur_word); this->_SetNext(); } else { p_die(str1539, Alloc(this->cur_word)); } } this->_NewlineOk(); return Alloc(left_tok, Alloc(pat_words), middle_tok, action_children, dsemi_tok); } syntax_asdl::CaseArm* CommandParser::ParseYshCaseArm(int discriminant) { syntax_asdl::Token* left_tok = nullptr; syntax_asdl::pat_t* pattern = nullptr; List* pat_words = nullptr; syntax_asdl::BraceGroup* action = nullptr; StackRoot _root0(&left_tok); StackRoot _root1(&pattern); StackRoot _root2(&pat_words); StackRoot _root3(&action); left_tok = nullptr; pattern = nullptr; if ((discriminant == Id::Op_LParen || discriminant == Id::Arith_Slash)) { Tuple2 tup14 = this->w_parser->ParseYshCasePattern(); pattern = tup14.at0(); left_tok = tup14.at1(); } else { pat_words = Alloc>(); while (true) { this->_GetWord(); if (this->c_kind != Kind::Word) { p_die(str1540, Alloc(this->cur_word)); } pat_words->append(this->cur_word); this->_SetNext(); if (!left_tok) { left_tok = location::LeftTokenForWord(this->cur_word); } this->_NewlineOk(); this->_GetWord(); if (this->c_id == Id::Op_Pipe) { this->_SetNext(); this->_NewlineOk(); } else { break; } } pattern = Alloc(pat_words); } this->_NewlineOk(); action = this->ParseBraceGroup(); return Alloc(left_tok, pattern, action->left, action->children, action->right); } command::Case* CommandParser::ParseYshCase(syntax_asdl::Token* case_kw) { syntax_asdl::expr_t* enode = nullptr; case_arg::YshExpr* to_match = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* arms_start = nullptr; int discriminant; List* arms = nullptr; syntax_asdl::CaseArm* arm = nullptr; syntax_asdl::Token* arms_end = nullptr; StackRoot _root0(&case_kw); StackRoot _root1(&enode); StackRoot _root2(&to_match); StackRoot _root3(&ate); StackRoot _root4(&arms_start); StackRoot _root5(&arms); StackRoot _root6(&arm); StackRoot _root7(&arms_end); enode = this->w_parser->ParseYshExprForCommand(); to_match = Alloc(enode); ate = this->_Eat(Id::Lit_LBrace); arms_start = word_::BraceToken(ate); discriminant = this->w_parser->NewlineOkForYshCase(); arms = Alloc>(); while (discriminant != Id::Op_RBrace) { arm = this->ParseYshCaseArm(discriminant); arms->append(arm); discriminant = this->w_parser->NewlineOkForYshCase(); } ate = this->_Eat(Id::Op_RBrace); arms_end = word_::AsOperatorToken(ate); arms_end->id = Id::Lit_RBrace; return Alloc(case_kw, to_match, arms_start, arms, arms_end); } command::Case* CommandParser::ParseOldCase(syntax_asdl::Token* case_kw) { syntax_asdl::word_t* w = nullptr; bool ok; BigStr* s = nullptr; bool quoted; case_arg::Word* to_match = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* arms_start = nullptr; List* arms = nullptr; syntax_asdl::CaseArm* arm = nullptr; syntax_asdl::Token* arms_end = nullptr; StackRoot _root0(&case_kw); StackRoot _root1(&w); StackRoot _root2(&s); StackRoot _root3(&to_match); StackRoot _root4(&ate); StackRoot _root5(&arms_start); StackRoot _root6(&arms); StackRoot _root7(&arm); StackRoot _root8(&arms_end); this->_GetWord(); w = this->cur_word; if (!this->parse_opts->parse_bare_word()) { Tuple3 tup15 = word_::StaticEval(w); ok = tup15.at0(); s = tup15.at1(); quoted = tup15.at2(); if ((ok and !quoted)) { p_die(str1541, Alloc(w)); } } if (w->tag() != word_e::Compound) { p_die(str1542, Alloc(w)); } to_match = Alloc(w); this->_SetNext(); this->_NewlineOk(); ate = this->_Eat(Id::KW_In); arms_start = word_::AsKeywordToken(ate); this->_NewlineOk(); arms = Alloc>(); while (true) { this->_GetWord(); if (this->c_id == Id::KW_Esac) { break; } if ((this->c_kind != Kind::Word and this->c_id != Id::Op_LParen)) { break; } arm = this->ParseCaseArm(); arms->append(arm); } ate = this->_Eat(Id::KW_Esac); arms_end = word_::AsKeywordToken(ate); return Alloc(case_kw, to_match, arms_start, arms, arms_end); } command::Case* CommandParser::ParseCase() { syntax_asdl::Token* case_kw = nullptr; StackRoot _root0(&case_kw); case_kw = word_::AsKeywordToken(this->cur_word); this->_SetNext(); if (this->w_parser->LookPastSpace() == Id::Op_LParen) { return this->ParseYshCase(case_kw); } else { return this->ParseOldCase(case_kw); } } void CommandParser::_ParseYshElifElse(command::If* if_node) { List* arms = nullptr; syntax_asdl::Token* elif_kw = nullptr; syntax_asdl::expr_t* enode = nullptr; syntax_asdl::condition_t* cond = nullptr; command::CommandList* commands = nullptr; syntax_asdl::BraceGroup* body = nullptr; syntax_asdl::IfArm* arm = nullptr; StackRoot _root0(&if_node); StackRoot _root1(&arms); StackRoot _root2(&elif_kw); StackRoot _root3(&enode); StackRoot _root4(&cond); StackRoot _root5(&commands); StackRoot _root6(&body); StackRoot _root7(&arm); arms = if_node->arms; while (this->c_id == Id::KW_Elif) { elif_kw = word_::AsKeywordToken(this->cur_word); this->_SetNext(); if ((this->parse_opts->parse_paren() and this->w_parser->LookPastSpace() == Id::Op_LParen)) { enode = this->w_parser->ParseYshExprForCommand(); cond = Alloc(enode); } else { this->allow_block = false; commands = this->_ParseCommandList(); this->allow_block = true; cond = Alloc(commands->children); } body = this->ParseBraceGroup(); this->_GetWord(); arm = Alloc(elif_kw, cond, nullptr, body->children, nullptr); arms->append(arm); } this->_GetWord(); if (this->c_id == Id::KW_Else) { this->_SetNext(); body = this->ParseBraceGroup(); if_node->else_action = body->children; } } command::If* CommandParser::_ParseYshIf(syntax_asdl::Token* if_kw, syntax_asdl::condition_t* cond) { command::If* if_node = nullptr; syntax_asdl::BraceGroup* body1 = nullptr; syntax_asdl::IfArm* arm = nullptr; StackRoot _root0(&if_kw); StackRoot _root1(&cond); StackRoot _root2(&if_node); StackRoot _root3(&body1); StackRoot _root4(&arm); if_node = command::If::CreateNull(true); if_node->if_kw = if_kw; body1 = this->ParseBraceGroup(); arm = Alloc(if_kw, cond, nullptr, body1->children, nullptr); if_node->arms->append(arm); this->_GetWord(); if ((this->c_id == Id::KW_Elif || this->c_id == Id::KW_Else)) { this->_ParseYshElifElse(if_node); } return if_node; } void CommandParser::_ParseElifElse(command::If* if_node) { List* arms = nullptr; syntax_asdl::Token* elif_kw = nullptr; syntax_asdl::condition_t* cond = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* then_kw = nullptr; command::CommandList* body = nullptr; syntax_asdl::IfArm* arm = nullptr; syntax_asdl::Token* else_kw = nullptr; StackRoot _root0(&if_node); StackRoot _root1(&arms); StackRoot _root2(&elif_kw); StackRoot _root3(&cond); StackRoot _root4(&ate); StackRoot _root5(&then_kw); StackRoot _root6(&body); StackRoot _root7(&arm); StackRoot _root8(&else_kw); arms = if_node->arms; this->_GetWord(); while (this->c_id == Id::KW_Elif) { elif_kw = word_::AsKeywordToken(this->cur_word); this->_SetNext(); cond = this->_ParseConditionList(); ate = this->_Eat(Id::KW_Then); then_kw = word_::AsKeywordToken(ate); body = this->_ParseCommandList(); arm = Alloc(elif_kw, cond, then_kw, body->children, then_kw); arms->append(arm); } this->_GetWord(); if (this->c_id == Id::KW_Else) { else_kw = word_::AsKeywordToken(this->cur_word); this->_SetNext(); body = this->_ParseCommandList(); if_node->else_action = body->children; } else { else_kw = nullptr; } if_node->else_kw = else_kw; } command::If* CommandParser::ParseIf() { command::If* if_node = nullptr; syntax_asdl::Token* if_kw = nullptr; syntax_asdl::expr_t* enode = nullptr; syntax_asdl::condition_t* cond = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* then_kw = nullptr; command::CommandList* body = nullptr; syntax_asdl::IfArm* arm = nullptr; StackRoot _root0(&if_node); StackRoot _root1(&if_kw); StackRoot _root2(&enode); StackRoot _root3(&cond); StackRoot _root4(&ate); StackRoot _root5(&then_kw); StackRoot _root6(&body); StackRoot _root7(&arm); if_node = command::If::CreateNull(true); if_kw = word_::AsKeywordToken(this->cur_word); if_node->if_kw = if_kw; this->_SetNext(); if ((this->parse_opts->parse_paren() and this->w_parser->LookPastSpace() == Id::Op_LParen)) { enode = this->w_parser->ParseYshExprForCommand(); cond = Alloc(enode); } else { cond = this->_ParseConditionList(); } this->_GetWord(); if ((this->parse_opts->parse_brace() and this->c_id == Id::Lit_LBrace)) { return this->_ParseYshIf(if_kw, cond); } ate = this->_Eat(Id::KW_Then); then_kw = word_::AsKeywordToken(ate); body = this->_ParseCommandList(); arm = Alloc(if_kw, cond, then_kw, body->children, then_kw); if_node->arms->append(arm); if ((this->c_id == Id::KW_Elif || this->c_id == Id::KW_Else)) { this->_ParseElifElse(if_node); } ate = this->_Eat(Id::KW_Fi); if_node->fi_kw = word_::AsKeywordToken(ate); return if_node; } syntax_asdl::command_t* CommandParser::ParseTime() { syntax_asdl::Token* time_kw = nullptr; syntax_asdl::command_t* pipeline = nullptr; StackRoot _root0(&time_kw); StackRoot _root1(&pipeline); time_kw = word_::AsKeywordToken(this->cur_word); this->_SetNext(); pipeline = this->ParsePipeline(); return Alloc(time_kw, pipeline); } syntax_asdl::command_t* CommandParser::ParseCompoundCommand() { syntax_asdl::BraceGroup* n1 = nullptr; command::Subshell* n2 = nullptr; syntax_asdl::Token* keyword = nullptr; command::WhileUntil* n3 = nullptr; command::If* n4 = nullptr; command::Case* n5 = nullptr; command::DBracket* n6 = nullptr; command::DParen* n7 = nullptr; StackRoot _root0(&n1); StackRoot _root1(&n2); StackRoot _root2(&keyword); StackRoot _root3(&n3); StackRoot _root4(&n4); StackRoot _root5(&n5); StackRoot _root6(&n6); StackRoot _root7(&n7); this->_GetWord(); if (this->c_id == Id::Lit_LBrace) { n1 = this->ParseBraceGroup(); return this->_MaybeParseRedirectList(n1); } if (this->c_id == Id::Op_LParen) { n2 = this->ParseSubshell(); return this->_MaybeParseRedirectList(n2); } if (this->c_id == Id::KW_For) { return this->ParseFor(); } if ((this->c_id == Id::KW_While || this->c_id == Id::KW_Until)) { keyword = word_::AsKeywordToken(this->cur_word); n3 = this->ParseWhileUntil(keyword); return this->_MaybeParseRedirectList(n3); } if (this->c_id == Id::KW_If) { n4 = this->ParseIf(); return this->_MaybeParseRedirectList(n4); } if (this->c_id == Id::KW_Case) { n5 = this->ParseCase(); return this->_MaybeParseRedirectList(n5); } if (this->c_id == Id::KW_DLeftBracket) { if (!this->parse_opts->parse_dbracket()) { p_die(str1543, Alloc(this->cur_word)); } n6 = this->ParseDBracket(); return this->_MaybeParseRedirectList(n6); } if (this->c_id == Id::Op_DLeftParen) { if (!this->parse_opts->parse_dparen()) { p_die(str1544, Alloc(this->cur_word)); } n7 = this->ParseDParen(); return this->_MaybeParseRedirectList(n7); } if (this->c_id == Id::KW_Time) { return this->ParseTime(); } p_die(StrFormat("Unexpected word while parsing compound command (%s)", Id_str(this->c_id)), Alloc(this->cur_word)); } command::ShFunction* CommandParser::ParseFunctionDef() { CompoundWord* word0 = nullptr; BigStr* name = nullptr; syntax_asdl::word_part_t* part0 = nullptr; Token* blame_tok = nullptr; command::ShFunction* func = nullptr; StackRoot _root0(&word0); StackRoot _root1(&name); StackRoot _root2(&part0); StackRoot _root3(&blame_tok); StackRoot _root4(&func); word0 = static_cast(this->cur_word); name = word_::ShFunctionName(word0); if (len(name) == 0) { p_die(str1546, Alloc(word0)); } part0 = word0->parts->at(0); blame_tok = static_cast(part0); this->_SetNext(); this->_GetWord(); this->lexer->PushHint(Id::Op_RParen, Id::Right_ShFunction); this->_SetNext(); this->_GetWord(); if (this->c_id == Id::Right_ShFunction) { this->_SetNext(); this->_NewlineOk(); func = command::ShFunction::CreateNull(); func->name = name; { // with ctx_VarChecker ctx{this->var_checker, blame_tok}; func->body = this->ParseCompoundCommand(); } func->name_tok = location::LeftTokenForCompoundWord(word0); return func; } else { p_die(str1547, Alloc(this->cur_word)); return nullptr; } } command::ShFunction* CommandParser::ParseKshFunctionDef() { syntax_asdl::Token* keyword_tok = nullptr; CompoundWord* cur_word = nullptr; BigStr* name = nullptr; syntax_asdl::word_t* name_word = nullptr; command::ShFunction* func = nullptr; StackRoot _root0(&keyword_tok); StackRoot _root1(&cur_word); StackRoot _root2(&name); StackRoot _root3(&name_word); StackRoot _root4(&func); keyword_tok = word_::AsKeywordToken(this->cur_word); this->_SetNext(); this->_GetWord(); cur_word = static_cast(this->cur_word); name = word_::ShFunctionName(cur_word); if (len(name) == 0) { p_die(str1548, Alloc(cur_word)); } name_word = this->cur_word; this->_SetNext(); this->_GetWord(); if (this->c_id == Id::Op_LParen) { this->lexer->PushHint(Id::Op_RParen, Id::Right_ShFunction); this->_SetNext(); this->_Eat(Id::Right_ShFunction); } this->_NewlineOk(); func = command::ShFunction::CreateNull(); func->name = name; { // with ctx_VarChecker ctx{this->var_checker, keyword_tok}; func->body = this->ParseCompoundCommand(); } func->keyword = keyword_tok; func->name_tok = location::LeftTokenForWord(name_word); return func; } syntax_asdl::Proc* CommandParser::ParseYshProc() { syntax_asdl::Proc* node = nullptr; syntax_asdl::Token* keyword_tok = nullptr; proc_sig::Closed* sig = nullptr; syntax_asdl::ParamGroup* wp = nullptr; syntax_asdl::RestParam* r = nullptr; syntax_asdl::ParamGroup* posit = nullptr; syntax_asdl::ParamGroup* named = nullptr; syntax_asdl::Param* b = nullptr; StackRoot _root0(&node); StackRoot _root1(&keyword_tok); StackRoot _root2(&sig); StackRoot _root3(&wp); StackRoot _root4(&r); StackRoot _root5(&posit); StackRoot _root6(&named); StackRoot _root7(&b); node = Proc::CreateNull(true); keyword_tok = word_::AsKeywordToken(this->cur_word); node->keyword = keyword_tok; { // with ctx_VarChecker ctx{this->var_checker, keyword_tok}; { // with ctx_CmdMode ctx{this, cmd_mode_e::Proc}; this->w_parser->ParseProc(node); if (node->sig->tag() == proc_sig_e::Closed) { sig = static_cast(node->sig); wp = sig->word; if (wp) { for (ListIter it(wp->params); !it.Done(); it.Next()) { syntax_asdl::Param* param = it.Value(); StackRoot _for(¶m ); this->var_checker->Check(Id::KW_Var, param->name, param->blame_tok); } if (wp->rest_of) { r = wp->rest_of; this->var_checker->Check(Id::KW_Var, r->name, r->blame_tok); } } posit = sig->positional; if (posit) { for (ListIter it(posit->params); !it.Done(); it.Next()) { syntax_asdl::Param* param = it.Value(); StackRoot _for(¶m ); this->var_checker->Check(Id::KW_Var, param->name, param->blame_tok); } if (posit->rest_of) { r = posit->rest_of; this->var_checker->Check(Id::KW_Var, r->name, r->blame_tok); } } named = sig->named; if (named) { for (ListIter it(named->params); !it.Done(); it.Next()) { syntax_asdl::Param* param = it.Value(); StackRoot _for(¶m ); this->var_checker->Check(Id::KW_Var, param->name, param->blame_tok); } if (named->rest_of) { r = named->rest_of; this->var_checker->Check(Id::KW_Var, r->name, r->blame_tok); } } if (sig->block_param) { b = sig->block_param; this->var_checker->Check(Id::KW_Var, b->name, b->blame_tok); } } this->_SetNext(); node->body = this->ParseBraceGroup(); } } return node; } syntax_asdl::Func* CommandParser::ParseYshFunc() { syntax_asdl::Func* node = nullptr; syntax_asdl::Token* keyword_tok = nullptr; syntax_asdl::ParamGroup* posit = nullptr; syntax_asdl::RestParam* r = nullptr; syntax_asdl::ParamGroup* named = nullptr; StackRoot _root0(&node); StackRoot _root1(&keyword_tok); StackRoot _root2(&posit); StackRoot _root3(&r); StackRoot _root4(&named); node = Func::CreateNull(true); keyword_tok = word_::AsKeywordToken(this->cur_word); node->keyword = keyword_tok; { // with ctx_VarChecker ctx{this->var_checker, keyword_tok}; this->w_parser->ParseFunc(node); posit = node->positional; if (posit) { for (ListIter it(posit->params); !it.Done(); it.Next()) { syntax_asdl::Param* param = it.Value(); StackRoot _for(¶m ); this->var_checker->Check(Id::KW_Var, param->name, param->blame_tok); } if (posit->rest_of) { r = posit->rest_of; this->var_checker->Check(Id::KW_Var, r->name, r->blame_tok); } } named = node->named; if (named) { for (ListIter it(named->params); !it.Done(); it.Next()) { syntax_asdl::Param* param = it.Value(); StackRoot _for(¶m ); this->var_checker->Check(Id::KW_Var, param->name, param->blame_tok); } if (named->rest_of) { r = named->rest_of; this->var_checker->Check(Id::KW_Var, r->name, r->blame_tok); } } this->_SetNext(); { // with ctx_CmdMode ctx{this, cmd_mode_e::Func}; node->body = this->ParseBraceGroup(); } } return node; } syntax_asdl::command_t* CommandParser::ParseCoproc() { FAIL(kNotImplemented); // Python NotImplementedError } command::Subshell* CommandParser::ParseSubshell() { syntax_asdl::Token* left = nullptr; command::CommandList* c_list = nullptr; syntax_asdl::command_t* child = nullptr; syntax_asdl::word_t* ate = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&left); StackRoot _root1(&c_list); StackRoot _root2(&child); StackRoot _root3(&ate); StackRoot _root4(&right); left = word_::AsOperatorToken(this->cur_word); this->_SetNext(); this->lexer->PushHint(Id::Op_RParen, Id::Right_Subshell); c_list = this->_ParseCommandList(); if (len(c_list->children) == 1) { child = c_list->children->at(0); } else { child = c_list; } ate = this->_Eat(Id::Right_Subshell); right = word_::AsOperatorToken(ate); return Alloc(left, child, right); } command::DBracket* CommandParser::ParseDBracket() { syntax_asdl::Token* left = nullptr; bool_parse::BoolParser* b_parser = nullptr; syntax_asdl::bool_expr_t* bnode = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&left); StackRoot _root1(&b_parser); StackRoot _root2(&bnode); StackRoot _root3(&right); left = word_::AsKeywordToken(this->cur_word); this->_SetNext(); b_parser = Alloc(this->w_parser); Tuple2 tup16 = b_parser->Parse(); bnode = tup16.at0(); right = tup16.at1(); return Alloc(left, bnode, right); } command::DParen* CommandParser::ParseDParen() { syntax_asdl::Token* left = nullptr; syntax_asdl::arith_expr_t* anode = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&left); StackRoot _root1(&anode); StackRoot _root2(&right); left = word_::AsOperatorToken(this->cur_word); this->_SetNext(); Tuple2 tup17 = this->w_parser->ReadDParen(); anode = tup17.at0(); right = tup17.at1(); return Alloc(left, anode, right); } syntax_asdl::command_t* CommandParser::ParseCommand() { int keyword_id; syntax_asdl::Token* kw_token = nullptr; command::VarDecl* n8 = nullptr; command::Mutation* n9 = nullptr; syntax_asdl::Token* keyword = nullptr; syntax_asdl::expr_t* enode = nullptr; CompoundWord* cur_word = nullptr; List* parts = nullptr; syntax_asdl::word_part_t* part0 = nullptr; Token* tok = nullptr; StackRoot _root0(&kw_token); StackRoot _root1(&n8); StackRoot _root2(&n9); StackRoot _root3(&keyword); StackRoot _root4(&enode); StackRoot _root5(&cur_word); StackRoot _root6(&parts); StackRoot _root7(&part0); StackRoot _root8(&tok); if (this->_AtSecondaryKeyword()) { p_die(str1549, Alloc(this->cur_word)); } if (this->c_id == Id::KW_Proc) { if (this->parse_opts->parse_proc()) { return this->ParseYshProc(); } else { p_die(str1550, Alloc(this->cur_word)); } } if (this->c_id == Id::KW_Typed) { this->_SetNext(); this->_GetWord(); if (this->c_id != Id::KW_Proc) { p_die(str1551, Alloc(this->cur_word)); } if (this->parse_opts->parse_proc()) { return this->ParseYshProc(); } else { p_die(str1552, Alloc(this->cur_word)); } } if (this->c_id == Id::KW_Func) { if (this->parse_opts->parse_func()) { return this->ParseYshFunc(); } else { p_die(str1553, Alloc(this->cur_word)); } } if ((this->c_id == Id::KW_Const and this->cmd_mode != cmd_mode_e::Shell)) { p_die(str1554, Alloc(this->cur_word)); } if ((this->c_id == Id::KW_Var || this->c_id == Id::KW_Const)) { keyword_id = this->c_id; kw_token = word_::LiteralToken(this->cur_word); this->_SetNext(); n8 = this->w_parser->ParseVarDecl(kw_token); for (ListIter it(n8->lhs); !it.Done(); it.Next()) { syntax_asdl::NameType* lhs = it.Value(); StackRoot _for(&lhs ); this->var_checker->Check(keyword_id, lhs->name, lhs->left); } return n8; } if ((this->c_id == Id::KW_SetVar || this->c_id == Id::KW_SetGlobal)) { kw_token = word_::LiteralToken(this->cur_word); this->_SetNext(); n9 = this->w_parser->ParseMutation(kw_token, this->var_checker); return n9; } if ((this->c_id == Id::KW_Call || this->c_id == Id::Lit_Equals)) { keyword = word_::LiteralToken(this->cur_word); this->_SetNext(); enode = this->w_parser->ParseCommandExpr(); return Alloc(keyword, enode); } if (this->c_id == Id::KW_Function) { return this->ParseKshFunctionDef(); } if ((this->c_id == Id::KW_DLeftBracket || this->c_id == Id::Op_DLeftParen || this->c_id == Id::Op_LParen || this->c_id == Id::Lit_LBrace || this->c_id == Id::KW_For || this->c_id == Id::KW_While || this->c_id == Id::KW_Until || this->c_id == Id::KW_If || this->c_id == Id::KW_Case || this->c_id == Id::KW_Time)) { return this->ParseCompoundCommand(); } if (this->c_id == Id::Lit_RBrace) { p_die(str1555, Alloc(this->cur_word)); } if (this->c_kind == Kind::Redir) { return this->ParseSimpleCommand(); } if (this->c_kind == Kind::Word) { cur_word = static_cast(this->cur_word); if ((this->w_parser->LookAheadFuncParens() and !word_::IsVarLike(cur_word))) { return this->ParseFunctionDef(); } parts = cur_word->parts; if ((this->parse_opts->parse_equals() and len(parts) == 1)) { part0 = parts->at(0); if (part0->tag() == word_part_e::Literal) { tok = static_cast(part0); if ((tok->id == Id::Lit_Chars and (this->w_parser->LookPastSpace() == Id::Lit_Equals and match::IsValidVarName(lexer::LazyStr(tok))))) { if ((len(this->hay_attrs_stack) and this->hay_attrs_stack->at(-1))) { enode = this->w_parser->ParseBareDecl(); this->_SetNext(); return Alloc(nullptr, NewList(std::initializer_list{Alloc(tok, lexer::TokenVal(tok), nullptr)}), enode); } else { this->_SetNext(); this->_GetWord(); p_die(str1556, Alloc(this->cur_word)); } } } } return this->ParseSimpleCommand(); } if (this->c_kind == Kind::Eof) { p_die(str1557, Alloc(this->cur_word)); } p_die(str1558, Alloc(this->cur_word)); } syntax_asdl::command_t* CommandParser::ParsePipeline() { syntax_asdl::Token* negated = nullptr; syntax_asdl::command_t* child = nullptr; List* children = nullptr; command::Pipeline* node = nullptr; List* ops = nullptr; syntax_asdl::Token* op = nullptr; StackRoot _root0(&negated); StackRoot _root1(&child); StackRoot _root2(&children); StackRoot _root3(&node); StackRoot _root4(&ops); StackRoot _root5(&op); negated = nullptr; this->_GetWord(); if (this->c_id == Id::KW_Bang) { negated = word_::AsKeywordToken(this->cur_word); this->_SetNext(); } child = this->ParseCommand(); children = NewList(std::initializer_list{child}); this->_GetWord(); if ((this->c_id != Id::Op_Pipe && this->c_id != Id::Op_PipeAmp)) { if (negated != nullptr) { node = Alloc(negated, children, Alloc>()); return node; } else { return child; } } ops = Alloc>(); while (true) { op = word_::AsOperatorToken(this->cur_word); ops->append(op); this->_SetNext(); this->_NewlineOk(); child = this->ParseCommand(); children->append(child); this->_GetWord(); if ((this->c_id != Id::Op_Pipe && this->c_id != Id::Op_PipeAmp)) { break; } } return Alloc(negated, children, ops); } syntax_asdl::command_t* CommandParser::ParseAndOr() { this->_GetWord(); if (this->c_id == Id::Lit_TDot) { this->_SetNext(); { // with word_::ctx_Multiline ctx{this->w_parser}; return this->_ParseAndOr(); } } return this->_ParseAndOr(); } syntax_asdl::command_t* CommandParser::_ParseAndOr() { syntax_asdl::command_t* child = nullptr; List* ops = nullptr; List* children = nullptr; StackRoot _root0(&child); StackRoot _root1(&ops); StackRoot _root2(&children); child = this->ParsePipeline(); this->_GetWord(); if ((this->c_id != Id::Op_DPipe && this->c_id != Id::Op_DAmp)) { return child; } ops = Alloc>(); children = NewList(std::initializer_list{child}); while (true) { ops->append(word_::AsOperatorToken(this->cur_word)); this->_SetNext(); this->_NewlineOk(); child = this->ParsePipeline(); children->append(child); this->_GetWord(); if ((this->c_id != Id::Op_DPipe && this->c_id != Id::Op_DAmp)) { break; } } return Alloc(children, ops); } syntax_asdl::command_t* CommandParser::_ParseCommandLine() { List* END_LIST = nullptr; List* children = nullptr; bool done; syntax_asdl::command_t* child = nullptr; Token* tok = nullptr; StackRoot _root0(&END_LIST); StackRoot _root1(&children); StackRoot _root2(&child); StackRoot _root3(&tok); END_LIST = NewList(std::initializer_list{Id::Op_Newline, Id::Eof_Real}); children = Alloc>(); done = false; while (!done) { child = this->ParseAndOr(); this->_GetWord(); if ((this->c_id == Id::Op_Semi || this->c_id == Id::Op_Amp)) { tok = static_cast(this->cur_word); child = Alloc(child, tok); this->_SetNext(); this->_GetWord(); if (list_contains(END_LIST, this->c_id)) { done = true; } } else { if (list_contains(END_LIST, this->c_id)) { done = true; } else { p_die(StrFormat("Invalid word while parsing command line (%s)", Id_str(this->c_id)), Alloc(this->cur_word)); } } children->append(child); } if (len(children) > 1) { return Alloc(children); } else { return children->at(0); } } command::CommandList* CommandParser::_ParseCommandTerm() { List* END_LIST = nullptr; List* children = nullptr; bool done; syntax_asdl::command_t* child = nullptr; Token* tok = nullptr; StackRoot _root0(&END_LIST); StackRoot _root1(&children); StackRoot _root2(&child); StackRoot _root3(&tok); END_LIST = NewList(std::initializer_list{this->eof_id, Id::Right_Subshell, Id::Lit_RBrace, Id::Op_DSemi, Id::Op_SemiAmp, Id::Op_DSemiAmp}); children = Alloc>(); done = false; while (!done) { if (this->_AtSecondaryKeyword()) { break; } child = this->ParseAndOr(); this->_GetWord(); if (this->c_id == Id::Op_Newline) { this->_SetNext(); this->_GetWord(); if (list_contains(END_LIST, this->c_id)) { done = true; } } else { if ((this->c_id == Id::Op_Semi || this->c_id == Id::Op_Amp)) { tok = static_cast(this->cur_word); child = Alloc(child, tok); this->_SetNext(); this->_GetWord(); if (this->c_id == Id::Op_Newline) { this->_SetNext(); this->_GetWord(); if (list_contains(END_LIST, this->c_id)) { done = true; } } else { if (list_contains(END_LIST, this->c_id)) { done = true; } } } else { if (list_contains(END_LIST, this->c_id)) { done = true; } else { if ((this->parse_opts->parse_brace() and this->c_id == Id::Lit_LBrace)) { done = true; } else { if (this->c_kind != Kind::Word) { p_die(str1560, Alloc(this->cur_word)); } } } } } children->append(child); } return Alloc(children); } command::CommandList* CommandParser::_ParseCommandList() { this->_NewlineOk(); return this->_ParseCommandTerm(); } syntax_asdl::command_t* CommandParser::ParseLogicalLine() { syntax_asdl::command_t* node = nullptr; StackRoot _root0(&node); this->_NewlineOk(); this->_GetWord(); if (this->c_id == Id::Eof_Real) { return nullptr; } node = this->_ParseCommandLine(); return node; } syntax_asdl::parse_result_t* CommandParser::ParseInteractiveLine() { syntax_asdl::command_t* node = nullptr; StackRoot _root0(&node); this->_GetWord(); if (this->c_id == Id::Op_Newline) { return parse_result::EmptyLine; } if (this->c_id == Id::Eof_Real) { return parse_result::Eof; } node = this->_ParseCommandLine(); return Alloc(node); } syntax_asdl::command_t* CommandParser::ParseCommandSub() { command::CommandList* c_list = nullptr; StackRoot _root0(&c_list); this->_NewlineOk(); this->_GetWord(); if (this->c_kind == Kind::Eof) { return command::NoOp; } c_list = this->_ParseCommandTerm(); if (len(c_list->children) == 1) { return c_list->children->at(0); } else { return c_list; } } void CommandParser::CheckForPendingHereDocs() { syntax_asdl::Redir* node = nullptr; redir_param::HereDoc* h = nullptr; StackRoot _root0(&node); StackRoot _root1(&h); if (len(this->pending_here_docs)) { node = this->pending_here_docs->at(0); h = static_cast(node->arg); p_die(str1561, Alloc(h->here_begin)); } } } // define namespace cmd_parse namespace glob_ { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using syntax_asdl::word_part_e; using syntax_asdl::glob_part; using syntax_asdl::glob_part_e; using syntax_asdl::glob_part_t; using mylib::print_stderr; bool LooksLikeGlob(BigStr* s) { bool left_bracket; int i; int n; int c; StackRoot _root0(&s); left_bracket = false; i = 0; n = len(s); while (i < n) { c = mylib::ByteAt(s, i); if (mylib::ByteEquals(c, str1562)) { i += 1; } else { if ((mylib::ByteEquals(c, str1563) or mylib::ByteEquals(c, str1564))) { return true; } else { if (mylib::ByteEquals(c, str1565)) { left_bracket = true; } else { if ((mylib::ByteEquals(c, str1566) and left_bracket)) { return true; } } } } i += 1; } return false; } bool LooksLikeStaticGlob(syntax_asdl::CompoundWord* w) { bool left_bracket; int id_; StackRoot _root0(&w); left_bracket = false; for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); if (part->tag() == word_part_e::Literal) { id_ = static_cast(part)->id; if ((id_ == Id::Lit_Star || id_ == Id::Lit_QMark)) { return true; } else { if (id_ == Id::Lit_LBracket) { left_bracket = true; } else { if ((id_ == Id::Lit_RBracket and left_bracket)) { return true; } } } } } return false; } BigStr* GLOB_META_CHARS = str1567; BigStr* GlobEscape(BigStr* s) { StackRoot _root0(&s); return pyutil::BackslashEscape(s, GLOB_META_CHARS); } BigStr* ERE_META_CHARS = str1568; BigStr* ExtendedRegexEscape(BigStr* s) { StackRoot _root0(&s); return pyutil::BackslashEscape(s, ERE_META_CHARS); } BigStr* GlobUnescape(BigStr* s) { List* unescaped = nullptr; int i; int n; int c; int c2; StackRoot _root0(&s); StackRoot _root1(&unescaped); unescaped = Alloc>(); i = 0; n = len(s); while (i < n) { c = mylib::ByteAt(s, i); if ((mylib::ByteEquals(c, str1569) and i != (n - 1))) { i += 1; c2 = mylib::ByteAt(s, i); if (mylib::ByteInSet(c2, GLOB_META_CHARS)) { unescaped->append(c2); } else { assert(0); // AssertionError } } else { unescaped->append(c); } i += 1; } return mylib::JoinBytes(unescaped); } _GlobParser::_GlobParser(match::SimpleLexer* lexer) { this->lexer = lexer; this->token_type = Id::Undefined_Tok; this->token_val = str1571; this->warnings = Alloc>(); } void _GlobParser::_Next() { Tuple2 tup0 = this->lexer->Next(); this->token_type = tup0.at0(); this->token_val = tup0.at1(); } List* _GlobParser::_ParseCharClass() { glob_part::Literal* first_token = nullptr; int balance; List*>* tokens = nullptr; List* parts = nullptr; int id_; BigStr* s = nullptr; bool negated; int id1; List* strs = nullptr; StackRoot _root0(&first_token); StackRoot _root1(&tokens); StackRoot _root2(&parts); StackRoot _root3(&s); StackRoot _root4(&strs); first_token = Alloc(this->token_type, this->token_val); balance = 1; tokens = Alloc*>>(); while (true) { this->_Next(); if (this->token_type == Id::Eol_Tok) { this->warnings->append(str1572); parts = NewList(std::initializer_list{first_token}); for (ListIter*> it(tokens); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); id_ = tup1->at0(); s = tup1->at1(); parts->append(Alloc(id_, s)); } return parts; } if (this->token_type == Id::Glob_LBracket) { balance += 1; } else { if (this->token_type == Id::Glob_RBracket) { balance -= 1; } } if (balance == 0) { break; } tokens->append((Alloc>(this->token_type, this->token_val))); } negated = false; if (len(tokens)) { Tuple2* tup2 = tokens->at(0); id1 = tup2->at0(); if ((id1 == Id::Glob_Bang || id1 == Id::Glob_Caret)) { negated = true; tokens = tokens->slice(1); } } strs = Alloc>(); for (ListIter*> it(tokens); !it.Done(); it.Next()) { Tuple2* tup3 = it.Value(); s = tup3->at1(); strs->append(s); } return NewList(std::initializer_list{Alloc(negated, strs)}); } Tuple2*, List*> _GlobParser::Parse() { List* parts = nullptr; int id_; BigStr* s = nullptr; StackRoot _root0(&parts); StackRoot _root1(&s); parts = Alloc>(); while (true) { this->_Next(); id_ = this->token_type; s = this->token_val; if (id_ == Id::Eol_Tok) { break; } if ((id_ == Id::Glob_Star || id_ == Id::Glob_QMark)) { parts->append(Alloc(id_)); } else { if (id_ == Id::Glob_LBracket) { parts->extend(this->_ParseCharClass()); } else { parts->append(Alloc(id_, s)); } } if (id_ == Id::Glob_RBracket) { this->warnings->append(str1573); } if (id_ == Id::Glob_BadBackslash) { this->warnings->append(str1574); } } return Tuple2*, List*>(parts, this->warnings); } BigStr* _REGEX_CHARS_TO_ESCAPE = str1575; BigStr* _GenerateERE(List* parts) { List* out = nullptr; int tag; syntax_asdl::glob_part_t* UP_part = nullptr; BigStr* c = nullptr; List* good = nullptr; bool literal_hyphen; bool literal_rbracket; StackRoot _root0(&parts); StackRoot _root1(&out); StackRoot _root2(&UP_part); StackRoot _root3(&c); StackRoot _root4(&good); out = Alloc>(); for (ListIter it(parts); !it.Done(); it.Next()) { syntax_asdl::glob_part_t* part = it.Value(); StackRoot _for(&part ); tag = part->tag(); UP_part = part; if (tag == glob_part_e::Literal) { glob_part::Literal* part = static_cast(UP_part); if (part->id == Id::Glob_EscapedChar) { c = part->s->at(1); if (str_contains(_REGEX_CHARS_TO_ESCAPE, c)) { out->append(str1576); } out->append(c); } else { if ((part->id == Id::Glob_CleanLiterals || part->id == Id::Glob_Bang)) { out->append(part->s); } else { if ((part->id == Id::Glob_OtherLiteral || part->id == Id::Glob_Caret)) { c = part->s; if (str_contains(_REGEX_CHARS_TO_ESCAPE, c)) { out->append(str1577); } out->append(c); } else { if (part->id == Id::Glob_LBracket) { out->append(str1578); } else { if (part->id == Id::Glob_RBracket) { out->append(str1579); } else { if (part->id == Id::Glob_BadBackslash) { out->append(str1580); } else { if (part->id == Id::Glob_Caret) { out->append(str1581); } else { assert(0); // AssertionError } } } } } } } } else { if (tag == glob_part_e::Operator) { glob_part::Operator* part = static_cast(UP_part); if (part->op_id == Id::Glob_QMark) { out->append(str1582); } else { if (part->op_id == Id::Glob_Star) { out->append(str1583); } else { assert(0); // AssertionError } } } else { if (tag == glob_part_e::CharClass) { glob_part::CharClass* part = static_cast(UP_part); out->append(str1584); if (part->negated) { out->append(str1585); } good = Alloc>(); literal_hyphen = false; literal_rbracket = false; for (ListIter it(part->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (str_equals(s, str1586)) { literal_hyphen = true; continue; } if (str_equals(s, str1587)) { literal_rbracket = true; continue; } good->append(s); } if (literal_rbracket) { out->append(str1588); } out->extend(good); if (literal_hyphen) { out->append(str1589); } out->append(str1590); } } } } return str1591->join(out); } Tuple2*> GlobToERE(BigStr* pat) { match::SimpleLexer* lexer = nullptr; glob_::_GlobParser* p = nullptr; List* parts = nullptr; List* warnings = nullptr; BigStr* regex = nullptr; StackRoot _root0(&pat); StackRoot _root1(&lexer); StackRoot _root2(&p); StackRoot _root3(&parts); StackRoot _root4(&warnings); StackRoot _root5(®ex); lexer = match::GlobLexer(pat); p = Alloc<_GlobParser>(lexer); Tuple2*, List*> tup4 = p->Parse(); parts = tup4.at0(); warnings = tup4.at1(); regex = _GenerateERE(parts); return Tuple2*>(regex, warnings); } Globber::Globber(optview::Exec* exec_opts) { this->exec_opts = exec_opts; } int Globber::_Glob(BigStr* arg, List* out) { List* results = nullptr; BigStr* msg = nullptr; int n; List* tmp = nullptr; StackRoot _root0(&arg); StackRoot _root1(&out); StackRoot _root2(&results); StackRoot _root3(&msg); StackRoot _root4(&tmp); try { results = libc::glob(arg); } catch (RuntimeError* e) { msg = e->message; print_stderr(StrFormat("Error expanding glob %r: %s", arg, msg)); throw ; } n = len(results); if (n) { if (!this->exec_opts->dashglob()) { tmp = Alloc>(); for (ListIter it(results); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (!s->startswith(str1595)) { tmp->append(s); } } results = tmp; n = len(results); } out->extend(results); return n; } return 0; } int Globber::Expand(BigStr* arg, List* out) { int n; StackRoot _root0(&arg); StackRoot _root1(&out); if (this->exec_opts->noglob()) { out->append(arg); return 1; } n = this->_Glob(arg, out); if (n) { return n; } if (this->exec_opts->failglob()) { return -1; } if (this->exec_opts->nullglob()) { return 0; } else { out->append(GlobUnescape(arg)); return 1; } } int Globber::ExpandExtended(BigStr* glob_pat, BigStr* fnmatch_pat, List* out) { List* tmp = nullptr; List* filtered = nullptr; int n; StackRoot _root0(&glob_pat); StackRoot _root1(&fnmatch_pat); StackRoot _root2(&out); StackRoot _root3(&tmp); StackRoot _root4(&filtered); if (this->exec_opts->noglob()) { out->append(fnmatch_pat); return 1; } tmp = Alloc>(); this->_Glob(glob_pat, tmp); filtered = Alloc>(); for (ListIter it(tmp); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (libc::fnmatch(fnmatch_pat, s)) { filtered->append(s); } } n = len(filtered); if (n) { out->extend(filtered); return n; } if (this->exec_opts->failglob()) { return -1; } if (this->exec_opts->nullglob()) { return 0; } else { out->append(GlobUnescape(fnmatch_pat)); return 1; } } } // define namespace glob_ namespace history { // define using id_kind_asdl::Id; Evaluator::Evaluator(py_readline::Readline* readline, parse_lib::ParseContext* parse_ctx, util::_DebugFile* debug_f) { this->readline = readline; this->parse_ctx = parse_ctx; this->debug_f = debug_f; } BigStr* Evaluator::Eval(BigStr* line) { List*>* tokens = nullptr; bool ok; int id_; int history_len; List* parts = nullptr; BigStr* val = nullptr; BigStr* out = nullptr; BigStr* prev = nullptr; BigStr* ch = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; List* words = nullptr; syntax_asdl::CompoundWord* w = nullptr; syntax_asdl::Token* tok1 = nullptr; syntax_asdl::Token* tok2 = nullptr; syntax_asdl::CompoundWord* w1 = nullptr; syntax_asdl::CompoundWord* w2 = nullptr; int begin; int end; int index; int num; BigStr* last_char = nullptr; BigStr* prefix = nullptr; BigStr* substring = nullptr; BigStr* cmd = nullptr; StackRoot _root0(&line); StackRoot _root1(&tokens); StackRoot _root2(&parts); StackRoot _root3(&val); StackRoot _root4(&out); StackRoot _root5(&prev); StackRoot _root6(&ch); StackRoot _root7(&line_reader); StackRoot _root8(&c_parser); StackRoot _root9(&words); StackRoot _root10(&w); StackRoot _root11(&tok1); StackRoot _root12(&tok2); StackRoot _root13(&w1); StackRoot _root14(&w2); StackRoot _root15(&last_char); StackRoot _root16(&prefix); StackRoot _root17(&substring); StackRoot _root18(&cmd); if (!this->readline) { return line; } tokens = match::HistoryTokens(line); ok = true; for (ListIter*> it(tokens); !it.Done(); it.Next()) { Tuple2* tup0 = it.Value(); id_ = tup0->at0(); if (id_ != Id::History_Other) { ok = false; break; } } if (ok) { return line; } history_len = this->readline->get_current_history_length(); if (history_len <= 0) { return line; } this->debug_f->writeln(StrFormat("history length = %d", history_len)); parts = Alloc>(); for (ListIter*> it(tokens); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); id_ = tup1->at0(); val = tup1->at1(); if (id_ == Id::History_Other) { out = val; } else { if (id_ == Id::History_Op) { prev = this->readline->get_history_item(history_len); ch = val->at(1); if (str_equals(ch, str1597)) { out = prev; } else { this->parse_ctx->trail->Clear(); line_reader = reader::StringLineReader(prev, this->parse_ctx->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); try { c_parser->ParseLogicalLine(); } catch (error::Parse* e) { this->debug_f->writeln(StrFormat("Couldn't parse historical command %r: %s", prev, e->UserErrorString())); } words = this->parse_ctx->trail->words; if (str_equals(ch, str1599)) { try { w = words->at(1); } catch (IndexError*) { throw Alloc(StrFormat("No first word in %r", prev)); } tok1 = location::LeftTokenForWord(w); tok2 = location::RightTokenForWord(w); } else { if (str_equals(ch, str1601)) { try { w = words->at(-1); } catch (IndexError*) { throw Alloc(StrFormat("No last word in %r", prev)); } tok1 = location::LeftTokenForWord(w); tok2 = location::RightTokenForWord(w); } else { if (str_equals(ch, str1603)) { try { w1 = words->at(1); w2 = words->at(-1); } catch (IndexError*) { throw Alloc(StrFormat("Couldn't find words in %r", prev)); } tok1 = location::LeftTokenForWord(w1); tok2 = location::RightTokenForWord(w2); } else { assert(0); // AssertionError } } } begin = tok1->col; end = (tok2->col + tok2->length); out = prev->slice(begin, end); } } else { if (id_ == Id::History_Num) { index = to_int(val->slice(1)); if (index < 0) { num = ((history_len + 1) + index); } else { num = index; } out = this->readline->get_history_item(num); if (out == nullptr) { throw Alloc(StrFormat("%s: not found", val)); } } else { if (id_ == Id::History_Search) { last_char = val->at(-1); val = val->slice(0, -1); prefix = nullptr; substring = str1606; if (str_equals(val->at(1), str1607)) { substring = val->slice(2); } else { prefix = val->slice(1); } out = nullptr; for (int i = history_len; i > 1; i += -1) { cmd = this->readline->get_history_item(i); if ((prefix != nullptr and cmd->startswith(prefix))) { out = cmd; } if ((len(substring) and str_contains(cmd, substring))) { out = cmd; } if (out != nullptr) { out = str_concat(out, last_char); break; } } if (out == nullptr) { throw Alloc(StrFormat("%r found no results", val)); } } else { assert(0); // AssertionError } } } } parts->append(out); } line = str1609->join(parts); print(StrFormat("! %s", line)); return line; } } // define namespace history namespace prompt { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using syntax_asdl::loc; using syntax_asdl::command_t; using syntax_asdl::source; using syntax_asdl::CompoundWord; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; BigStr* _ERROR_FMT = str1611; BigStr* _UNBALANCED_ERROR = str1612; _PromptEvaluatorCache::_PromptEvaluatorCache() { this->cache = Alloc>(); this->euid = -1; } int _PromptEvaluatorCache::_GetEuid() { if (this->euid == -1) { this->euid = posix::geteuid(); } return this->euid; } BigStr* _PromptEvaluatorCache::Get(BigStr* name) { BigStr* value = nullptr; StackRoot _root0(&name); StackRoot _root1(&value); if (dict_contains(this->cache, name)) { return this->cache->at(name); } if (str_equals(name, str1613)) { value = this->_GetEuid() == 0 ? str1614 : str1615; } else { if (str_equals(name, str1616)) { value = libc::gethostname(); } else { if (str_equals(name, str1617)) { value = pyos::GetUserName(this->_GetEuid()); } else { assert(0); // AssertionError } } } this->cache->set(name, value); return value; } Evaluator::Evaluator(BigStr* lang, BigStr* version_str, parse_lib::ParseContext* parse_ctx, state::Mem* mem) { this->word_ev = nullptr; this->expr_ev = nullptr; this->global_io = nullptr; this->lang = lang; this->version_str = version_str; this->parse_ctx = parse_ctx; this->mem = mem; this->cache = Alloc<_PromptEvaluatorCache>(); this->tokens_cache = Alloc*>*>>(); this->parse_cache = Alloc>(); } void Evaluator::CheckCircularDeps() { } BigStr* Evaluator::PromptVal(BigStr* what) { StackRoot _root0(&what); if (str_equals(what, str1618)) { return StrFormat(_ERROR_FMT, str1619); } else { return this->PromptSubst(what); } } BigStr* Evaluator::PromptSubst(BigStr* ch, BigStr* arg) { BigStr* r = nullptr; BigStr* hostname = nullptr; double now; BigStr* fmt = nullptr; BigStr* pwd = nullptr; BigStr* home = nullptr; value_asdl::value_t* val = nullptr; value::Str* str_val = nullptr; StackRoot _root0(&ch); StackRoot _root1(&arg); StackRoot _root2(&r); StackRoot _root3(&hostname); StackRoot _root4(&fmt); StackRoot _root5(&pwd); StackRoot _root6(&home); StackRoot _root7(&val); StackRoot _root8(&str_val); if (str_equals(ch, str1620)) { r = this->cache->Get(str1621); } else { if (str_equals(ch, str1622)) { r = this->cache->Get(str1623); } else { if (str_equals(ch, str1624)) { hostname = this->cache->Get(str1625); Tuple2 tup0 = mylib::split_once(hostname, str1626); r = tup0.at0(); } else { if (str_equals(ch, str1627)) { r = this->cache->Get(str1628); } else { if (str_equals(ch, str1629)) { r = this->lang; } else { if (str_equals(ch, str1630)) { r = this->version_str; } else { if (str_equals(ch, str1631)) { now = time_::time(); r = time_::strftime(str1632, time_::localtime(now)); } else { if (str_equals(ch, str1633)) { now = time_::time(); if (len(arg) == 0) { fmt = str1634; } else { fmt = arg; } r = time_::strftime(fmt, time_::localtime(now)); } else { if (str_equals(ch, str1635)) { try { pwd = state::GetString(this->mem, str1636); home = state::MaybeString(this->mem, str1637); r = ui::PrettyDir(pwd, home); } catch (error::Runtime* e) { r = StrFormat(_ERROR_FMT, e->UserErrorString()); } } else { if (str_equals(ch, str1638)) { val = this->mem->GetValue(str1639); if (val->tag() == value_e::Str) { str_val = static_cast(val); r = os_path::basename(str_val->s); } else { r = StrFormat(_ERROR_FMT, str1640); } } else { r = consts::LookupCharPrompt(ch); if (r == nullptr) { r = StrFormat(_ERROR_FMT, StrFormat("\\%s is invalid or unimplemented in $PS1", ch)); } } } } } } } } } } } return r; } BigStr* Evaluator::_ReplaceBackslashCodes(List*>* tokens) { List* ret = nullptr; int non_printing; int id_; BigStr* s = nullptr; int i; BigStr* ch = nullptr; BigStr* arg = nullptr; BigStr* r = nullptr; StackRoot _root0(&tokens); StackRoot _root1(&ret); StackRoot _root2(&s); StackRoot _root3(&ch); StackRoot _root4(&arg); StackRoot _root5(&r); ret = Alloc>(); non_printing = 0; for (ListIter*> it(tokens); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); id_ = tup1->at0(); s = tup1->at1(); if ((id_ == Id::PS_Literals || id_ == Id::PS_BadBackslash)) { ret->append(s); } else { if (id_ == Id::PS_Octal3) { i = to_int(s->slice(1), 8); ret->append(chr((i % 256))); } else { if (id_ == Id::PS_LBrace) { non_printing += 1; ret->append(str1642); } else { if (id_ == Id::PS_RBrace) { non_printing -= 1; if (non_printing < 0) { return StrFormat(_ERROR_FMT, _UNBALANCED_ERROR); } ret->append(str1643); } else { if (id_ == Id::PS_Subst) { ch = s->at(1); arg = nullptr; if (str_equals(ch, str1644)) { arg = s->slice(3, -1); } r = this->PromptSubst(ch, arg); ret->append(r->replace(str1645, str1646)); } else { assert(0); // AssertionError } } } } } } if (non_printing != 0) { return StrFormat(_ERROR_FMT, _UNBALANCED_ERROR); } return str1648->join(ret); } BigStr* Evaluator::EvalPrompt(value_asdl::value_t* UP_val) { List*>* tokens = nullptr; BigStr* ps1_str = nullptr; syntax_asdl::CompoundWord* ps1_word = nullptr; word_parse::WordParser* w_parser = nullptr; value::Str* val2 = nullptr; StackRoot _root0(&UP_val); StackRoot _root1(&tokens); StackRoot _root2(&ps1_str); StackRoot _root3(&ps1_word); StackRoot _root4(&w_parser); StackRoot _root5(&val2); if (UP_val->tag() != value_e::Str) { return str1649; } value::Str* val = static_cast(UP_val); tokens = this->tokens_cache->get(val->s); if (tokens == nullptr) { tokens = match::Ps1Tokens(val->s); this->tokens_cache->set(val->s, tokens); } ps1_str = this->_ReplaceBackslashCodes(tokens); ps1_word = this->parse_cache->get(ps1_str); if (ps1_word == nullptr) { w_parser = this->parse_ctx->MakeWordParserForPlugin(ps1_str); try { ps1_word = w_parser->ReadForPlugin(); } catch (error::Parse* e) { ps1_word = word_::ErrorWord(StrFormat("", e->UserErrorString())); } this->parse_cache->set(ps1_str, ps1_word); } val2 = this->word_ev->EvalForPlugin(ps1_word); return val2->s; } BigStr* Evaluator::EvalFirstPrompt() { value_asdl::value_t* UP_func_val = nullptr; List* pos_args = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; BigStr* msg = nullptr; value_asdl::value_t* ps1_val = nullptr; BigStr* prompt_str = nullptr; StackRoot _root0(&UP_func_val); StackRoot _root1(&pos_args); StackRoot _root2(&val); StackRoot _root3(&UP_val); StackRoot _root4(&msg); StackRoot _root5(&ps1_val); StackRoot _root6(&prompt_str); UP_func_val = this->mem->GetValue(str1651); if (UP_func_val->tag() == value_e::Func) { value::Func* func_val = static_cast(UP_func_val); pos_args = NewList(std::initializer_list{this->global_io}); val = this->expr_ev->PluginCall(func_val, pos_args); UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); return val->s; } break; default: { msg = StrFormat("renderPrompt() should return Str, got %s", ui::ValType(val)); return StrFormat(_ERROR_FMT, msg); } } } ps1_val = this->mem->GetValue(str1653); prompt_str = this->EvalPrompt(ps1_val); if (str_equals(this->lang, str1654)) { prompt_str = str_concat(str1655, prompt_str); } return prompt_str; } BigStr* PROMPT_COMMAND = str1656; UserPlugin::UserPlugin(state::Mem* mem, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt) { this->mem = mem; this->parse_ctx = parse_ctx; this->cmd_ev = cmd_ev; this->errfmt = errfmt; this->arena = parse_ctx->arena; this->parse_cache = Alloc>(); } void UserPlugin::Run() { value_asdl::value_t* val = nullptr; BigStr* prompt_cmd = nullptr; syntax_asdl::command_t* node = nullptr; reader::FileLineReader* line_reader = nullptr; cmd_parse::CommandParser* c_parser = nullptr; source::Variable* src = nullptr; StackRoot _root0(&val); StackRoot _root1(&prompt_cmd); StackRoot _root2(&node); StackRoot _root3(&line_reader); StackRoot _root4(&c_parser); StackRoot _root5(&src); val = this->mem->GetValue(PROMPT_COMMAND); if (val->tag() != value_e::Str) { return ; } prompt_cmd = static_cast(val)->s; node = this->parse_cache->get(prompt_cmd); if (node == nullptr) { line_reader = reader::StringLineReader(prompt_cmd, this->arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); src = Alloc(PROMPT_COMMAND, loc::Missing); { // with alloc::ctx_SourceCode ctx{this->arena, src}; try { node = main_loop::ParseWholeFile(c_parser); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); return ; } } this->parse_cache->set(prompt_cmd, node); } { // with state::ctx_Registers ctx{this->mem}; this->cmd_ev->ExecuteAndCatch(node); } } } // define namespace prompt namespace sh_expr_eval { // define using id_kind_asdl::Id; using runtime_asdl::scope_t; using syntax_asdl::word_t; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::source; using syntax_asdl::arith_expr; using syntax_asdl::arith_expr_e; using syntax_asdl::arith_expr_t; using syntax_asdl::bool_expr; using syntax_asdl::bool_expr_e; using syntax_asdl::bool_expr_t; using syntax_asdl::sh_lhs; using syntax_asdl::sh_lhs_e; using syntax_asdl::sh_lhs_t; using syntax_asdl::BracedVarSub; using option_asdl::option_i; using types_asdl::bool_arg_type_e; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::sh_lvalue; using value_asdl::sh_lvalue_e; using value_asdl::sh_lvalue_t; using value_asdl::LeftName; using value_asdl::eggex_ops; using value_asdl::regex_match; using value_asdl::RegexMatch; using error::e_die; using error::e_die_status; using error::e_strict; using error::e_usage; using mylib::str_cmp; value_asdl::value_t* OldValue(value_asdl::sh_lvalue_t* lval, state::Mem* mem, optview::Exec* exec_opts) { value_asdl::sh_lvalue_t* UP_lval = nullptr; BigStr* var_name = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; value::BashArray* array_val = nullptr; BigStr* s = nullptr; value::BashAssoc* assoc_val = nullptr; StackRoot _root0(&lval); StackRoot _root1(&mem); StackRoot _root2(&exec_opts); StackRoot _root3(&UP_lval); StackRoot _root4(&var_name); StackRoot _root5(&val); StackRoot _root6(&UP_val); StackRoot _root7(&array_val); StackRoot _root8(&s); StackRoot _root9(&assoc_val); UP_lval = lval; switch (lval->tag()) { case sh_lvalue_e::Var: { LeftName* lval = static_cast(UP_lval); var_name = lval->name; } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); var_name = lval->name; } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); var_name = lval->name; } break; default: { assert(0); // AssertionError } } val = mem->GetValue(var_name); if ((exec_opts and (exec_opts->nounset() and val->tag() == value_e::Undef))) { e_die(StrFormat("Undefined variable %r", var_name)); } UP_val = val; switch (lval->tag()) { case sh_lvalue_e::Var: { return val; } break; case sh_lvalue_e::Indexed: { sh_lvalue::Indexed* lval = static_cast(UP_lval); array_val = nullptr; switch (val->tag()) { case value_e::Undef: { array_val = Alloc(Alloc>()); } break; case value_e::BashArray: { value::BashArray* tmp = static_cast(UP_val); array_val = tmp; } break; default: { e_die(StrFormat("Can't use [] on value of type %s", ui::ValType(val))); } } s = word_eval::GetArrayItem(array_val->strs, lval->index); if (s == nullptr) { val = Alloc(str1659); } else { val = Alloc(s); } } break; case sh_lvalue_e::Keyed: { sh_lvalue::Keyed* lval = static_cast(UP_lval); assoc_val = nullptr; switch (val->tag()) { case value_e::Undef: { assert(0); // AssertionError } break; case value_e::BashAssoc: { value::BashAssoc* tmp2 = static_cast(UP_val); assoc_val = tmp2; } break; default: { e_die(StrFormat("Can't use [] on value of type %s", ui::ValType(val))); } } s = assoc_val->d->get(lval->key); if (s == nullptr) { val = Alloc(str1661); } else { val = Alloc(s); } } break; default: { assert(0); // AssertionError } } return val; } UnsafeArith::UnsafeArith(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, sh_expr_eval::ArithEvaluator* arith_ev, ui::ErrorFormatter* errfmt) { this->mem = mem; this->exec_opts = exec_opts; this->mutable_opts = mutable_opts; this->parse_ctx = parse_ctx; this->arith_ev = arith_ev; this->errfmt = errfmt; this->arena = this->parse_ctx->arena; } value_asdl::sh_lvalue_t* UnsafeArith::ParseLValue(BigStr* s, syntax_asdl::loc_t* location) { tdop::TdopParser* a_parser = nullptr; syntax_asdl::arith_expr_t* anode = nullptr; value_asdl::sh_lvalue_t* lval = nullptr; StackRoot _root0(&s); StackRoot _root1(&location); StackRoot _root2(&a_parser); StackRoot _root3(&anode); StackRoot _root4(&lval); if (!this->parse_ctx->parse_opts->parse_sh_arith()) { if (!match::IsValidVarName(s)) { e_die(StrFormat("Invalid variable name %r (parse_sh_arith is off)", s), location); } return Alloc(s, location); } a_parser = this->parse_ctx->MakeArithParser(s); { // with alloc::ctx_SourceCode ctx{this->arena, Alloc(str1663, location)}; try { anode = a_parser->Parse(); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); e_usage(str1664, location); } } if (this->exec_opts->eval_unsafe_arith()) { lval = this->arith_ev->EvalArithLhs(anode); } else { { // with state::ctx_Option ctx{this->mutable_opts, NewList(std::initializer_list{option_i::_allow_command_sub}), false}; lval = this->arith_ev->EvalArithLhs(anode); } } return lval; } syntax_asdl::BracedVarSub* UnsafeArith::ParseVarRef(BigStr* ref_str, syntax_asdl::Token* blame_tok) { reader::FileLineReader* line_reader = nullptr; lexer::Lexer* lexer = nullptr; word_parse::WordParser* w_parser = nullptr; source::VarRef* src = nullptr; syntax_asdl::BracedVarSub* bvs_part = nullptr; StackRoot _root0(&ref_str); StackRoot _root1(&blame_tok); StackRoot _root2(&line_reader); StackRoot _root3(&lexer); StackRoot _root4(&w_parser); StackRoot _root5(&src); StackRoot _root6(&bvs_part); line_reader = reader::StringLineReader(ref_str, this->arena); lexer = this->parse_ctx->MakeLexer(line_reader); w_parser = this->parse_ctx->MakeWordParser(lexer, line_reader); src = Alloc(blame_tok); { // with alloc::ctx_SourceCode ctx{this->arena, src}; try { bvs_part = w_parser->ParseVarRef(); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); e_die(str1665, blame_tok); } } return bvs_part; } ArithEvaluator::ArithEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt) { this->word_ev = nullptr; this->mem = mem; this->exec_opts = exec_opts; this->mutable_opts = mutable_opts; this->parse_ctx = parse_ctx; this->errfmt = errfmt; } void ArithEvaluator::CheckCircularDeps() { } mops::BigInt ArithEvaluator::_StringToBigInt(BigStr* s, syntax_asdl::loc_t* blame_loc) { mops::BigInt integer; BigStr* b = nullptr; BigStr* digits = nullptr; int base; int digit; alloc::Arena* arena = nullptr; tdop::TdopParser* a_parser = nullptr; syntax_asdl::arith_expr_t* node2 = nullptr; StackRoot _root0(&s); StackRoot _root1(&blame_loc); StackRoot _root2(&b); StackRoot _root3(&digits); StackRoot _root4(&arena); StackRoot _root5(&a_parser); StackRoot _root6(&node2); if (s->startswith(str1666)) { try { integer = mops::FromStr(s, 16); } catch (ValueError*) { e_strict(StrFormat("Invalid hex constant %r", s), blame_loc); } return integer; } if (s->startswith(str1668)) { try { integer = mops::FromStr(s, 8); } catch (ValueError*) { e_strict(StrFormat("Invalid octal constant %r", s), blame_loc); } return integer; } Tuple2 tup0 = mylib::split_once(s, str1670); b = tup0.at0(); digits = tup0.at1(); if (digits != nullptr) { try { base = to_int(b); } catch (ValueError*) { e_strict(StrFormat("Invalid base for numeric constant %r", b), blame_loc); } integer = mops::ZERO; for (StrIter it(digits); !it.Done(); it.Next()) { BigStr* ch = it.Value(); StackRoot _for(&ch ); if (IsLower(ch)) { digit = ((ord(ch) - ord(str1672)) + 10); } else { if (IsUpper(ch)) { digit = ((ord(ch) - ord(str1673)) + 36); } else { if (str_equals(ch, str1674)) { digit = 62; } else { if (str_equals(ch, str1675)) { digit = 63; } else { if (ch->isdigit()) { digit = to_int(ch); } else { e_strict(StrFormat("Invalid digits for numeric constant %r", digits), blame_loc); } } } } } if (digit >= base) { e_strict(StrFormat("Digits %r out of range for base %d", digits, base), blame_loc); } integer = mops::Add(mops::Mul(integer, mops::BigInt(base)), mops::BigInt(digit)); } return integer; } try { integer = mops::FromStr(s); } catch (ValueError*) { if (this->parse_ctx) { arena = this->parse_ctx->arena; if (len(s->strip()) == 0) { return mops::ZERO; } a_parser = this->parse_ctx->MakeArithParser(s); { // with alloc::ctx_SourceCode ctx{arena, Alloc(nullptr, blame_loc)}; try { node2 = a_parser->Parse(); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); e_die(str1678, e->location); } } if (node2->tag() == arith_expr_e::Word) { e_die(StrFormat("Invalid integer constant %r", s), blame_loc); } if (this->exec_opts->eval_unsafe_arith()) { integer = this->EvalToBigInt(node2); } else { { // with state::ctx_Option ctx{this->mutable_opts, NewList(std::initializer_list{option_i::_allow_command_sub}), false}; integer = this->EvalToBigInt(node2); } } } else { if ((len(s->strip()) == 0 or match::IsValidVarName(s))) { e_strict(StrFormat("Invalid integer constant %r", s), blame_loc); } else { e_die(StrFormat("Invalid integer constant %r", s), blame_loc); } } } return integer; } mops::BigInt ArithEvaluator::_ValToIntOrError(value_asdl::value_t* val, syntax_asdl::arith_expr_t* blame) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&blame); StackRoot _root2(&UP_val); try { UP_val = val; switch (val->tag()) { case value_e::Undef: { e_strict(str1682, Alloc(blame)); } break; case value_e::Int: { value::Int* val = static_cast(UP_val); return val->i; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); return this->_StringToBigInt(val->s, Alloc(blame)); } break; } } catch (error::Strict* e) { if (this->exec_opts->strict_arith()) { throw ; } else { return mops::ZERO; } } e_die(StrFormat("Expected a value convertible to integer, got %s", ui::ValType(val)), Alloc(blame)); } Tuple2 ArithEvaluator::_EvalLhsAndLookupArith(syntax_asdl::arith_expr_t* node) { value_asdl::sh_lvalue_t* lval = nullptr; value_asdl::value_t* val = nullptr; LeftName* named_lval = nullptr; mops::BigInt i; StackRoot _root0(&node); StackRoot _root1(&lval); StackRoot _root2(&val); StackRoot _root3(&named_lval); lval = this->EvalArithLhs(node); val = OldValue(lval, this->mem, this->exec_opts); if (((val->tag() == value_e::BashArray || val->tag() == value_e::BashAssoc) and lval->tag() == sh_lvalue_e::Var)) { named_lval = static_cast(lval); if (word_eval::ShouldArrayDecay(named_lval->name, this->exec_opts)) { if (val->tag() == value_e::BashArray) { lval = Alloc(named_lval->name, 0, loc::Missing); } else { if (val->tag() == value_e::BashAssoc) { lval = Alloc(named_lval->name, str1684, loc::Missing); } } val = word_eval::DecayArray(val); } } i = this->_ValToIntOrError(val, node); return Tuple2(i, lval); } void ArithEvaluator::_Store(value_asdl::sh_lvalue_t* lval, mops::BigInt new_int) { value::Str* val = nullptr; StackRoot _root0(&lval); StackRoot _root1(&val); val = Alloc(mops::ToStr(new_int)); state::OshLanguageSetValue(this->mem, lval, val); } mops::BigInt ArithEvaluator::EvalToBigInt(syntax_asdl::arith_expr_t* node) { value_asdl::value_t* val = nullptr; Token* vsub = nullptr; mops::BigInt i; StackRoot _root0(&node); StackRoot _root1(&val); StackRoot _root2(&vsub); val = this->Eval(node); if (((val->tag() == value_e::BashArray || val->tag() == value_e::BashAssoc) and node->tag() == arith_expr_e::VarSub)) { vsub = static_cast(node); if (word_eval::ShouldArrayDecay(lexer::LazyStr(vsub), this->exec_opts)) { val = word_eval::DecayArray(val); } } i = this->_ValToIntOrError(val, node); return i; } int ArithEvaluator::EvalToInt(syntax_asdl::arith_expr_t* node) { StackRoot _root0(&node); return mops::BigTruncate(this->EvalToBigInt(node)); } value_asdl::value_t* ArithEvaluator::Eval(syntax_asdl::arith_expr_t* node) { syntax_asdl::arith_expr_t* UP_node = nullptr; BigStr* var_name = nullptr; value_asdl::value_t* val = nullptr; int op_id; mops::BigInt old_big; value_asdl::sh_lvalue_t* lval = nullptr; mops::BigInt new_big; mops::BigInt result; mops::BigInt rhs_big; mops::BigInt i; mops::BigInt lhs_big; value_asdl::value_t* left = nullptr; value_asdl::value_t* UP_left = nullptr; int small_i; BigStr* s = nullptr; BigStr* key = nullptr; mops::BigInt index; mops::BigInt cond; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&var_name); StackRoot _root3(&val); StackRoot _root4(&lval); StackRoot _root5(&left); StackRoot _root6(&UP_left); StackRoot _root7(&s); StackRoot _root8(&key); UP_node = node; switch (node->tag()) { case arith_expr_e::EmptyZero: { return Alloc(mops::ZERO); } break; case arith_expr_e::EmptyOne: { return Alloc(mops::ONE); } break; case arith_expr_e::VarSub: { Token* vsub = static_cast(UP_node); var_name = lexer::LazyStr(vsub); val = this->mem->GetValue(var_name); if ((val->tag() == value_e::Undef and this->exec_opts->nounset())) { e_die(StrFormat("Undefined variable %r", var_name), vsub); } return val; } break; case arith_expr_e::Word: { CompoundWord* w = static_cast(UP_node); return this->word_ev->EvalWordToString(w); } break; case arith_expr_e::UnaryAssign: { arith_expr::UnaryAssign* node = static_cast(UP_node); op_id = node->op_id; Tuple2 tup1 = this->_EvalLhsAndLookupArith(node->child); old_big = tup1.at0(); lval = tup1.at1(); if (op_id == Id::Node_PostDPlus) { new_big = mops::Add(old_big, mops::ONE); result = old_big; } else { if (op_id == Id::Node_PostDMinus) { new_big = mops::Sub(old_big, mops::ONE); result = old_big; } else { if (op_id == Id::Arith_DPlus) { new_big = mops::Add(old_big, mops::ONE); result = new_big; } else { if (op_id == Id::Arith_DMinus) { new_big = mops::Sub(old_big, mops::ONE); result = new_big; } else { assert(0); // AssertionError } } } } this->_Store(lval, new_big); return Alloc(result); } break; case arith_expr_e::BinaryAssign: { arith_expr::BinaryAssign* node = static_cast(UP_node); op_id = node->op_id; if (op_id == Id::Arith_Equal) { lval = this->EvalArithLhs(node->left); rhs_big = this->EvalToBigInt(node->right); this->_Store(lval, rhs_big); return Alloc(rhs_big); } Tuple2 tup2 = this->_EvalLhsAndLookupArith(node->left); old_big = tup2.at0(); lval = tup2.at1(); rhs_big = this->EvalToBigInt(node->right); if (op_id == Id::Arith_PlusEqual) { new_big = mops::Add(old_big, rhs_big); } else { if (op_id == Id::Arith_MinusEqual) { new_big = mops::Sub(old_big, rhs_big); } else { if (op_id == Id::Arith_StarEqual) { new_big = mops::Mul(old_big, rhs_big); } else { if (op_id == Id::Arith_SlashEqual) { if (mops::Equal(rhs_big, mops::ZERO)) { e_die(str1686); } new_big = mops::Div(old_big, rhs_big); } else { if (op_id == Id::Arith_PercentEqual) { if (mops::Equal(rhs_big, mops::ZERO)) { e_die(str1687); } new_big = mops::Rem(old_big, rhs_big); } else { if (op_id == Id::Arith_DGreatEqual) { new_big = mops::RShift(old_big, rhs_big); } else { if (op_id == Id::Arith_DLessEqual) { new_big = mops::LShift(old_big, rhs_big); } else { if (op_id == Id::Arith_AmpEqual) { new_big = mops::BitAnd(old_big, rhs_big); } else { if (op_id == Id::Arith_PipeEqual) { new_big = mops::BitOr(old_big, rhs_big); } else { if (op_id == Id::Arith_CaretEqual) { new_big = mops::BitXor(old_big, rhs_big); } else { assert(0); // AssertionError } } } } } } } } } } this->_Store(lval, new_big); return Alloc(new_big); } break; case arith_expr_e::Unary: { arith_expr::Unary* node = static_cast(UP_node); op_id = node->op_id; i = this->EvalToBigInt(node->child); if (op_id == Id::Node_UnaryPlus) { result = i; } else { if (op_id == Id::Node_UnaryMinus) { result = mops::Sub(mops::ZERO, i); } else { if (op_id == Id::Arith_Bang) { if (mops::Equal(i, mops::ZERO)) { result = mops::ONE; } else { result = mops::ZERO; } } else { if (op_id == Id::Arith_Tilde) { result = mops::BitNot(i); } else { assert(0); // AssertionError } } } } return Alloc(result); } break; case arith_expr_e::Binary: { arith_expr::Binary* node = static_cast(UP_node); op_id = node->op->id; if (op_id == Id::Arith_DPipe) { lhs_big = this->EvalToBigInt(node->left); if (mops::Equal(lhs_big, mops::ZERO)) { rhs_big = this->EvalToBigInt(node->right); if (mops::Equal(rhs_big, mops::ZERO)) { result = mops::ZERO; } else { result = mops::ONE; } } else { result = mops::ONE; } return Alloc(result); } if (op_id == Id::Arith_DAmp) { lhs_big = this->EvalToBigInt(node->left); if (mops::Equal(lhs_big, mops::ZERO)) { result = mops::ZERO; } else { rhs_big = this->EvalToBigInt(node->right); if (mops::Equal(rhs_big, mops::ZERO)) { result = mops::ZERO; } else { result = mops::ONE; } } return Alloc(result); } if (op_id == Id::Arith_LBracket) { left = this->Eval(node->left); UP_left = left; switch (left->tag()) { case value_e::BashArray: { value::BashArray* array_val = static_cast(UP_left); small_i = mops::BigTruncate(this->EvalToBigInt(node->right)); s = word_eval::GetArrayItem(array_val->strs, small_i); } break; case value_e::BashAssoc: { value::BashAssoc* left = static_cast(UP_left); key = this->EvalWordToString(node->right); s = left->d->get(key); } break; case value_e::Str: { value::Str* left = static_cast(UP_left); if (this->exec_opts->strict_arith()) { e_die(str1688, node->op); } index = this->EvalToBigInt(node->right); s = mops::Equal(index, mops::ZERO) ? left->s : nullptr; } break; case value_e::Undef: { if (this->exec_opts->strict_arith()) { e_die(str1689, node->op); } s = nullptr; } break; default: { e_die(StrFormat("Value of type %s can't be indexed", ui::ValType(left)), node->op); } } if (s == nullptr) { val = value::Undef; } else { val = Alloc(s); } return val; } if (op_id == Id::Arith_Comma) { this->EvalToBigInt(node->left); result = this->EvalToBigInt(node->right); return Alloc(result); } lhs_big = this->EvalToBigInt(node->left); rhs_big = this->EvalToBigInt(node->right); if (op_id == Id::Arith_Plus) { result = mops::Add(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Minus) { result = mops::Sub(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Star) { result = mops::Mul(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Slash) { if (mops::Equal(rhs_big, mops::ZERO)) { e_die(str1691, node->op); } result = mops::Div(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Percent) { if (mops::Equal(rhs_big, mops::ZERO)) { e_die(str1692, node->op); } result = mops::Rem(lhs_big, rhs_big); } else { if (op_id == Id::Arith_DStar) { if (mops::Greater(mops::ZERO, rhs_big)) { e_die(str1693, Alloc(node->right)); } result = num::Exponent(lhs_big, rhs_big); } else { if (op_id == Id::Arith_DEqual) { result = mops::FromBool(mops::Equal(lhs_big, rhs_big)); } else { if (op_id == Id::Arith_NEqual) { result = mops::FromBool(!mops::Equal(lhs_big, rhs_big)); } else { if (op_id == Id::Arith_Great) { result = mops::FromBool(mops::Greater(lhs_big, rhs_big)); } else { if (op_id == Id::Arith_GreatEqual) { result = mops::FromBool((mops::Greater(lhs_big, rhs_big) or mops::Equal(lhs_big, rhs_big))); } else { if (op_id == Id::Arith_Less) { result = mops::FromBool(mops::Greater(rhs_big, lhs_big)); } else { if (op_id == Id::Arith_LessEqual) { result = mops::FromBool((mops::Greater(rhs_big, lhs_big) or mops::Equal(lhs_big, rhs_big))); } else { if (op_id == Id::Arith_Pipe) { result = mops::BitOr(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Amp) { result = mops::BitAnd(lhs_big, rhs_big); } else { if (op_id == Id::Arith_Caret) { result = mops::BitXor(lhs_big, rhs_big); } else { if (op_id == Id::Arith_DLess) { if (mops::Greater(mops::ZERO, rhs_big)) { throw Alloc(str1694, node->op); } result = mops::LShift(lhs_big, rhs_big); } else { if (op_id == Id::Arith_DGreat) { if (mops::Greater(mops::ZERO, rhs_big)) { throw Alloc(str1695, node->op); } result = mops::RShift(lhs_big, rhs_big); } else { assert(0); // AssertionError } } } } } } } } } } } } } } } } } return Alloc(result); } break; case arith_expr_e::TernaryOp: { arith_expr::TernaryOp* node = static_cast(UP_node); cond = this->EvalToBigInt(node->cond); if (mops::Equal(cond, mops::ZERO)) { return this->Eval(node->false_expr); } else { return this->Eval(node->true_expr); } } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } BigStr* ArithEvaluator::EvalWordToString(syntax_asdl::arith_expr_t* node, syntax_asdl::loc_t* blame_loc) { syntax_asdl::arith_expr_t* UP_node = nullptr; value::Str* val = nullptr; StackRoot _root0(&node); StackRoot _root1(&blame_loc); StackRoot _root2(&UP_node); StackRoot _root3(&val); UP_node = node; if (node->tag() == arith_expr_e::Word) { CompoundWord* w = static_cast(UP_node); val = this->word_ev->EvalWordToString(w); return val->s; } else { e_die(str1697, blame_loc); } } value_asdl::sh_lvalue_t* ArithEvaluator::EvalShellLhs(syntax_asdl::sh_lhs_t* node, runtime_asdl::scope_t which_scopes) { syntax_asdl::sh_lhs_t* UP_node = nullptr; value_asdl::sh_lvalue_t* lval = nullptr; value_asdl::LeftName* lval1 = nullptr; BigStr* key = nullptr; sh_lvalue::Keyed* lval2 = nullptr; int index; sh_lvalue::Indexed* lval3 = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&lval); StackRoot _root3(&lval1); StackRoot _root4(&key); StackRoot _root5(&lval2); StackRoot _root6(&lval3); UP_node = node; lval = nullptr; switch (node->tag()) { case sh_lhs_e::Name: { sh_lhs::Name* node = static_cast(UP_node); lval1 = Alloc(node->name, node->left); lval = lval1; } break; case sh_lhs_e::IndexedName: { sh_lhs::IndexedName* node = static_cast(UP_node); if (this->mem->IsBashAssoc(node->name)) { key = this->EvalWordToString(node->index, node->left); lval2 = Alloc(node->name, key, node->left); lval = lval2; } else { index = mops::BigTruncate(this->EvalToBigInt(node->index)); lval3 = Alloc(node->name, index, node->left); lval = lval3; } } break; default: { assert(0); // AssertionError } } return lval; } Tuple2 ArithEvaluator::_VarNameOrWord(syntax_asdl::arith_expr_t* anode) { syntax_asdl::arith_expr_t* UP_anode = nullptr; BigStr* var_name = nullptr; BigStr* no_str = nullptr; StackRoot _root0(&anode); StackRoot _root1(&UP_anode); StackRoot _root2(&var_name); StackRoot _root3(&no_str); UP_anode = anode; switch (anode->tag()) { case arith_expr_e::VarSub: { Token* tok = static_cast(UP_anode); return Tuple2(lexer::LazyStr(tok), tok); } break; case arith_expr_e::Word: { CompoundWord* w = static_cast(UP_anode); var_name = this->EvalWordToString(w); return Tuple2(var_name, w); } break; } no_str = nullptr; return Tuple2(no_str, loc::Missing); } value_asdl::sh_lvalue_t* ArithEvaluator::EvalArithLhs(syntax_asdl::arith_expr_t* anode) { syntax_asdl::arith_expr_t* UP_anode = nullptr; BigStr* var_name = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; syntax_asdl::Token* arith_loc = nullptr; BigStr* key = nullptr; int index; StackRoot _root0(&anode); StackRoot _root1(&UP_anode); StackRoot _root2(&var_name); StackRoot _root3(&blame_loc); StackRoot _root4(&arith_loc); StackRoot _root5(&key); UP_anode = anode; if (anode->tag() == arith_expr_e::Binary) { arith_expr::Binary* anode = static_cast(UP_anode); if (anode->op->id == Id::Arith_LBracket) { Tuple2 tup3 = this->_VarNameOrWord(anode->left); var_name = tup3.at0(); blame_loc = tup3.at1(); if (!match::IsValidVarName(var_name)) { e_die(StrFormat("Invalid variable name %r", var_name), blame_loc); } if (var_name != nullptr) { if (this->mem->IsBashAssoc(var_name)) { arith_loc = location::TokenForArith(anode); key = this->EvalWordToString(anode->right, arith_loc); return Alloc(var_name, key, blame_loc); } else { index = mops::BigTruncate(this->EvalToBigInt(anode->right)); return Alloc(var_name, index, blame_loc); } } } } Tuple2 tup4 = this->_VarNameOrWord(anode); var_name = tup4.at0(); blame_loc = tup4.at1(); if (var_name != nullptr) { return Alloc(var_name, blame_loc); } e_die_status(2, str1699, blame_loc); } BoolEvaluator::BoolEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, parse_lib::ParseContext* parse_ctx, ui::ErrorFormatter* errfmt, bool always_strict) : ::sh_expr_eval::ArithEvaluator(mem, exec_opts, mutable_opts, parse_ctx, errfmt) { this->always_strict = always_strict; } bool BoolEvaluator::_IsDefined(BigStr* s, syntax_asdl::loc_t* blame_loc) { List* m = nullptr; BigStr* var_name = nullptr; BigStr* index_str = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; int index; StackRoot _root0(&s); StackRoot _root1(&blame_loc); StackRoot _root2(&m); StackRoot _root3(&var_name); StackRoot _root4(&index_str); StackRoot _root5(&val); StackRoot _root6(&UP_val); m = util::RegexSearch(consts::TEST_V_RE, s); if (m == nullptr) { if (this->exec_opts->strict_word_eval()) { e_die(str1700, blame_loc); } return false; } var_name = m->at(1); index_str = m->at(3); val = this->mem->GetValue(var_name); if (len(index_str) == 0) { return val->tag() != value_e::Undef; } UP_val = val; switch (val->tag()) { case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); try { index = to_int(index_str); } catch (ValueError* e) { if (this->exec_opts->strict_word_eval()) { e_die(StrFormat("-v got BashArray and invalid index %r", index_str), blame_loc); } return false; } if (index < 0) { if (this->exec_opts->strict_word_eval()) { e_die(StrFormat("-v got invalid negative index %s", index_str), blame_loc); } return false; } if (index < len(val->strs)) { return val->strs->at(index) != nullptr; } return false; } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); return dict_contains(val->d, index_str); } break; default: { ; // pass if (this->exec_opts->strict_word_eval()) { throw Alloc(val, str1703, blame_loc); } return false; } } assert(0); // AssertionError } mops::BigInt BoolEvaluator::_StringToBigIntOrError(BigStr* s, syntax_asdl::word_t* blame_word) { syntax_asdl::loc_t* location = nullptr; mops::BigInt i; StackRoot _root0(&s); StackRoot _root1(&blame_word); StackRoot _root2(&location); if (blame_word) { location = Alloc(blame_word); } else { location = loc::Missing; } try { i = this->_StringToBigInt(s, location); } catch (error::Strict* e) { if ((this->always_strict or this->exec_opts->strict_arith())) { throw ; } else { i = mops::ZERO; } } return i; } BigStr* BoolEvaluator::_EvalCompoundWord(syntax_asdl::word_t* word, int eval_flags) { value::Str* val = nullptr; StackRoot _root0(&word); StackRoot _root1(&val); val = this->word_ev->EvalWordToString(word, eval_flags); return val->s; } bool BoolEvaluator::EvalB(syntax_asdl::bool_expr_t* node) { syntax_asdl::bool_expr_t* UP_node = nullptr; BigStr* s = nullptr; bool b; int op_id; types_asdl::bool_arg_type_t arg_type; int index; int eval_flags; BigStr* s1 = nullptr; BigStr* s2 = nullptr; mops::BigInt i1; mops::BigInt i2; int fnmatch_flags; int regex_flags; List* indices = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&s); StackRoot _root3(&s1); StackRoot _root4(&s2); StackRoot _root5(&indices); UP_node = node; switch (node->tag()) { case bool_expr_e::WordTest: { bool_expr::WordTest* node = static_cast(UP_node); s = this->_EvalCompoundWord(node->w); return to_bool(s); } break; case bool_expr_e::LogicalNot: { bool_expr::LogicalNot* node = static_cast(UP_node); b = this->EvalB(node->child); return !b; } break; case bool_expr_e::LogicalAnd: { bool_expr::LogicalAnd* node = static_cast(UP_node); if (this->EvalB(node->left)) { return this->EvalB(node->right); } else { return false; } } break; case bool_expr_e::LogicalOr: { bool_expr::LogicalOr* node = static_cast(UP_node); if (this->EvalB(node->left)) { return true; } else { return this->EvalB(node->right); } } break; case bool_expr_e::Unary: { bool_expr::Unary* node = static_cast(UP_node); op_id = node->op_id; s = this->_EvalCompoundWord(node->child); arg_type = consts::BoolArgType(op_id); if (arg_type == bool_arg_type_e::Path) { return bool_stat::DoUnaryOp(op_id, s); } if (arg_type == bool_arg_type_e::Str) { if (op_id == Id::BoolUnary_z) { return !to_bool(s); } if (op_id == Id::BoolUnary_n) { return to_bool(s); } assert(0); // AssertionError } if (arg_type == bool_arg_type_e::Other) { if (op_id == Id::BoolUnary_t) { return bool_stat::isatty(s, node->child); } if (op_id == Id::BoolUnary_o) { index = consts::OptionNum(s); if (index == 0) { return false; } else { return this->exec_opts->opt0_array->at(index); } } if (op_id == Id::BoolUnary_v) { return this->_IsDefined(s, Alloc(node->child)); } e_die(StrFormat("%s isn't implemented", ui::PrettyId(op_id))); } assert(0); // AssertionError } break; case bool_expr_e::Binary: { bool_expr::Binary* node = static_cast(UP_node); op_id = node->op_id; eval_flags = 0; switch (op_id) { case Id::BoolBinary_GlobEqual: case Id::BoolBinary_GlobDEqual: case Id::BoolBinary_GlobNEqual: { eval_flags |= word_eval::QUOTE_FNMATCH; } break; case Id::BoolBinary_EqualTilde: { eval_flags |= word_eval::QUOTE_ERE; } break; } s1 = this->_EvalCompoundWord(node->left); s2 = this->_EvalCompoundWord(node->right, eval_flags); arg_type = consts::BoolArgType(op_id); if (arg_type == bool_arg_type_e::Path) { return bool_stat::DoBinaryOp(op_id, s1, s2); } if (arg_type == bool_arg_type_e::Int) { i1 = this->_StringToBigIntOrError(s1, node->left); i2 = this->_StringToBigIntOrError(s2, node->right); if (op_id == Id::BoolBinary_eq) { return mops::Equal(i1, i2); } if (op_id == Id::BoolBinary_ne) { return !mops::Equal(i1, i2); } if (op_id == Id::BoolBinary_gt) { return mops::Greater(i1, i2); } if (op_id == Id::BoolBinary_ge) { return (mops::Greater(i1, i2) or mops::Equal(i1, i2)); } if (op_id == Id::BoolBinary_lt) { return mops::Greater(i2, i1); } if (op_id == Id::BoolBinary_le) { return (mops::Greater(i2, i1) or mops::Equal(i1, i2)); } assert(0); // AssertionError } if (arg_type == bool_arg_type_e::Str) { fnmatch_flags = this->exec_opts->nocasematch() ? FNM_CASEFOLD : 0; if ((op_id == Id::BoolBinary_GlobEqual || op_id == Id::BoolBinary_GlobDEqual)) { return libc::fnmatch(s2, s1, fnmatch_flags); } if (op_id == Id::BoolBinary_GlobNEqual) { return !libc::fnmatch(s2, s1, fnmatch_flags); } if ((op_id == Id::BoolBinary_Equal || op_id == Id::BoolBinary_DEqual)) { return str_equals(s1, s2); } if (op_id == Id::BoolBinary_NEqual) { return !(str_equals(s1, s2)); } if (op_id == Id::BoolBinary_EqualTilde) { regex_flags = this->exec_opts->nocasematch() ? REG_ICASE : 0; try { indices = libc::regex_search(s2, regex_flags, s1, 0); } catch (ValueError* e) { e_die_status(2, e->message, Alloc(node->right)); } if (indices != nullptr) { this->mem->SetRegexMatch(Alloc(s1, indices, eggex_ops::No)); return true; } else { this->mem->SetRegexMatch(regex_match::No); return false; } } if (op_id == Id::Op_Less) { return str_cmp(s1, s2) < 0; } if (op_id == Id::Op_Great) { return str_cmp(s1, s2) > 0; } assert(0); // AssertionError } } break; } assert(0); // AssertionError } } // define namespace sh_expr_eval namespace split { // define using runtime_asdl::scope_e; using runtime_asdl::span_e; using runtime_asdl::emit_i; using runtime_asdl::char_kind_i; using runtime_asdl::state_i; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; BigStr* DEFAULT_IFS = str1705; List* _SpansToParts(BigStr* s, List*>* spans) { List* parts = nullptr; int start_index; bool join_next; bool last_span_was_black; runtime_asdl::span_t span_type; int end_index; mylib::BufWriter* buf = nullptr; List* result = nullptr; StackRoot _root0(&s); StackRoot _root1(&spans); StackRoot _root2(&parts); StackRoot _root3(&buf); StackRoot _root4(&result); parts = Alloc>(); start_index = 0; join_next = false; last_span_was_black = false; for (ListIter*> it(spans); !it.Done(); it.Next()) { Tuple2* tup0 = it.Value(); span_type = tup0->at0(); end_index = tup0->at1(); if (span_type == span_e::Black) { if ((len(parts) and join_next)) { parts->at(-1)->write(s->slice(start_index, end_index)); join_next = false; } else { buf = Alloc(); buf->write(s->slice(start_index, end_index)); parts->append(buf); } last_span_was_black = true; } else { if (span_type == span_e::Backslash) { if (last_span_was_black) { join_next = true; } last_span_was_black = false; } else { last_span_was_black = false; } } start_index = end_index; } result = Alloc>(); for (ListIter it(parts); !it.Done(); it.Next()) { mylib::BufWriter* buf = it.Value(); result->append(buf->getvalue()); } return result; } SplitContext::SplitContext(state::Mem* mem) { this->mem = mem; this->splitters = Alloc>(); } split::IfsSplitter* SplitContext::_GetSplitter(BigStr* ifs) { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; split::IfsSplitter* sp = nullptr; mylib::BufWriter* ifs_whitespace = nullptr; mylib::BufWriter* ifs_other = nullptr; StackRoot _root0(&ifs); StackRoot _root1(&val); StackRoot _root2(&UP_val); StackRoot _root3(&sp); StackRoot _root4(&ifs_whitespace); StackRoot _root5(&ifs_other); if (ifs == nullptr) { val = this->mem->GetValue(str1706, scope_e::Dynamic); UP_val = val; switch (val->tag()) { case value_e::Undef: { ifs = DEFAULT_IFS; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); ifs = val->s; } break; default: { assert(0); // AssertionError } } } sp = this->splitters->get(ifs); if (sp == nullptr) { ifs_whitespace = Alloc(); ifs_other = Alloc(); for (StrIter it(ifs); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (str_contains(str1708, c)) { ifs_whitespace->write(c); } else { ifs_other->write(c); } } sp = Alloc(ifs_whitespace->getvalue(), ifs_other->getvalue()); this->splitters->set(ifs, sp); } return sp; } BigStr* SplitContext::GetJoinChar() { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); val = this->mem->GetValue(str1709, scope_e::Dynamic); UP_val = val; switch (val->tag()) { case value_e::Undef: { return str1710; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if (len(val->s)) { return val->s->at(0); } else { return str1711; } } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } BigStr* SplitContext::Escape(BigStr* s) { split::IfsSplitter* sp = nullptr; StackRoot _root0(&s); StackRoot _root1(&sp); sp = this->_GetSplitter(); return sp->Escape(s); } List* SplitContext::SplitForWordEval(BigStr* s, BigStr* ifs) { split::IfsSplitter* sp = nullptr; List*>* spans = nullptr; StackRoot _root0(&s); StackRoot _root1(&ifs); StackRoot _root2(&sp); StackRoot _root3(&spans); sp = this->_GetSplitter(ifs); spans = sp->Split(s, true); return _SpansToParts(s, spans); } List*>* SplitContext::SplitForRead(BigStr* line, bool allow_escape, bool do_split) { BigStr* ifs = nullptr; split::IfsSplitter* sp = nullptr; StackRoot _root0(&line); StackRoot _root1(&ifs); StackRoot _root2(&sp); ifs = do_split ? nullptr : str1715; sp = this->_GetSplitter(ifs); return sp->Split(line, allow_escape); } _BaseSplitter::_BaseSplitter(BigStr* escape_chars) { this->escape_chars = str_concat(escape_chars, str1716); } BigStr* _BaseSplitter::Escape(BigStr* s) { StackRoot _root0(&s); return pyutil::BackslashEscape(s, this->escape_chars); } IfsSplitter::IfsSplitter(BigStr* ifs_whitespace, BigStr* ifs_other) : ::split::_BaseSplitter(str_concat(ifs_whitespace, ifs_other)) { this->ifs_whitespace = ifs_whitespace; this->ifs_other = ifs_other; } List*>* IfsSplitter::Split(BigStr* s, bool allow_escape) { BigStr* ws_chars = nullptr; BigStr* other_chars = nullptr; int n; List*>* spans = nullptr; int i; int state; int byte; int ch; int new_state; int action; StackRoot _root0(&s); StackRoot _root1(&ws_chars); StackRoot _root2(&other_chars); StackRoot _root3(&spans); ws_chars = this->ifs_whitespace; other_chars = this->ifs_other; n = len(s); spans = Alloc*>>(); if (n == 0) { return spans; } i = 0; while ((i < n and mylib::ByteInSet(mylib::ByteAt(s, i), ws_chars))) { i += 1; } if (i != 0) { spans->append((Alloc>(span_e::Delim, i))); } if (i == n) { return spans; } state = state_i::Start; while (state != state_i::Done) { if (i < n) { byte = mylib::ByteAt(s, i); if (mylib::ByteInSet(byte, ws_chars)) { ch = char_kind_i::DE_White; } else { if (mylib::ByteInSet(byte, other_chars)) { ch = char_kind_i::DE_Gray; } else { if ((allow_escape and mylib::ByteEquals(byte, str1717))) { ch = char_kind_i::Backslash; } else { ch = char_kind_i::Black; } } } } else { if (i == n) { ch = char_kind_i::Sentinel; } else { assert(0); // AssertionError } } Tuple2 tup1 = consts::IfsEdge(state, ch); new_state = tup1.at0(); action = tup1.at1(); if (new_state == state_i::Invalid) { assert(0); // AssertionError } if (action == emit_i::Part) { spans->append((Alloc>(span_e::Black, i))); } else { if (action == emit_i::Delim) { spans->append((Alloc>(span_e::Delim, i))); } else { if (action == emit_i::Empty) { spans->append((Alloc>(span_e::Delim, i))); spans->append((Alloc>(span_e::Black, i))); } else { if (action == emit_i::Escape) { spans->append((Alloc>(span_e::Backslash, i))); } else { if (action == emit_i::Nothing) { ; // pass } else { assert(0); // AssertionError } } } } } state = new_state; i += 1; } return spans; } } // define namespace split namespace string_ops { // define using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::Token; using syntax_asdl::suffix_op; using error::e_die; using error::e_strict; int UTF8_ERR_OVERLONG = -1; int UTF8_ERR_SURROGATE = -2; int UTF8_ERR_TOO_LARGE = -3; int UTF8_ERR_BAD_ENCODING = -4; int UTF8_ERR_TRUNCATED_BYTES = -5; BigStr* Utf8Error_str(int error) { if (error == UTF8_ERR_OVERLONG) { return str1720; } if (error == UTF8_ERR_SURROGATE) { return str1721; } if (error == UTF8_ERR_TOO_LARGE) { return str1722; } if (error == UTF8_ERR_BAD_ENCODING) { return str1723; } if (error == UTF8_ERR_TRUNCATED_BYTES) { return str1724; } assert(0); // AssertionError } int DecodeUtf8Char(BigStr* s, int start) { int codepoint_or_error; int _bytes_read; StackRoot _root0(&s); Tuple2 tup0 = fastfunc::Utf8DecodeOne(s, start); codepoint_or_error = tup0.at0(); _bytes_read = tup0.at1(); if (codepoint_or_error < 0) { throw Alloc(StrFormat("%s at offset %d in string of %d bytes", Utf8Error_str(codepoint_or_error), start, len(s)), loc::Missing); } return codepoint_or_error; } int NextUtf8Char(BigStr* s, int i) { int codepoint_or_error; int bytes_read; StackRoot _root0(&s); Tuple2 tup1 = fastfunc::Utf8DecodeOne(s, i); codepoint_or_error = tup1.at0(); bytes_read = tup1.at1(); if (codepoint_or_error < 0) { e_strict(StrFormat("%s at offset %d in string of %d bytes", Utf8Error_str(codepoint_or_error), i, len(s)), loc::Missing); } return (i + bytes_read); } BigStr* _INVALID_START = str1727; int _Utf8CharLen(int starting_byte) { if ((starting_byte >> 7) == 0) { return 1; } else { if ((starting_byte >> 5) == 6) { return 2; } else { if ((starting_byte >> 4) == 14) { return 3; } else { if ((starting_byte >> 3) == 30) { return 4; } else { e_strict(_INVALID_START, loc::Missing); } } } } } int PreviousUtf8Char(BigStr* s, int i) { int orig_i; int byte_as_int; int offset; StackRoot _root0(&s); orig_i = i; while (i > 0) { i -= 1; byte_as_int = mylib::ByteAt(s, i); if ((byte_as_int >> 6) != 2) { offset = (orig_i - i); if (offset != _Utf8CharLen(byte_as_int)) { e_strict(_INVALID_START, loc::Missing); } return i; } } e_strict(_INVALID_START, loc::Missing); } int CountUtf8Chars(BigStr* s) { int num_chars; int num_bytes; int i; StackRoot _root0(&s); num_chars = 0; num_bytes = len(s); i = 0; while (i < num_bytes) { i = NextUtf8Char(s, i); num_chars += 1; } return num_chars; } int AdvanceUtf8Chars(BigStr* s, int num_chars, int byte_offset) { int num_bytes; int i; StackRoot _root0(&s); num_bytes = len(s); i = byte_offset; for (int _ = 0; _ < num_chars; ++_) { if (i >= num_bytes) { return i; } i = NextUtf8Char(s, i); } return i; } GLOBAL_LIST(SPACES, int, 8, {9 COMMA 10 COMMA 11 COMMA 12 COMMA 13 COMMA 32 COMMA 160 COMMA 65279}); bool _IsSpace(int codepoint) { return list_contains(SPACES, codepoint); } Tuple2 StartsWithWhitespaceByteRange(BigStr* s) { int len_s; int i; int codepoint; int start; int end; StackRoot _root0(&s); len_s = len(s); i = 0; while (i < len_s) { codepoint = DecodeUtf8Char(s, i); if (!_IsSpace(codepoint)) { break; } try { i = NextUtf8Char(s, i); } catch (error::Strict*) { } } start = 0; end = i; return Tuple2(start, end); } Tuple2 EndsWithWhitespaceByteRange(BigStr* s) { int len_s; int i; int prev; int codepoint; int start; int end; StackRoot _root0(&s); len_s = len(s); i = len_s; while (i > 0) { prev = PreviousUtf8Char(s, i); codepoint = DecodeUtf8Char(s, prev); if (!_IsSpace(codepoint)) { break; } i = prev; } start = i; end = len_s; return Tuple2(start, end); } BigStr* DoUnarySuffixOp(BigStr* s, syntax_asdl::Token* op_tok, BigStr* arg, bool is_extglob) { int id_; int n; int i; StackRoot _root0(&s); StackRoot _root1(&op_tok); StackRoot _root2(&arg); id_ = op_tok->id; if ((!is_extglob and !glob_::LooksLikeGlob(arg))) { arg = glob_::GlobUnescape(arg); if ((id_ == Id::VOp1_Pound || id_ == Id::VOp1_DPound)) { if ((len(arg) and s->startswith(arg))) { return s->slice(len(arg)); } else { return s; } } else { if ((id_ == Id::VOp1_Percent || id_ == Id::VOp1_DPercent)) { if ((len(arg) and s->endswith(arg))) { return s->slice(0, -len(arg)); } else { return s; } } else { if (id_ == Id::VOp1_Comma) { if (!(str_equals(arg, str1728))) { e_die(StrFormat("%s can't have an argument", ui::PrettyId(id_)), op_tok); } if (len(s)) { return str_concat(s->at(0)->lower(), s->slice(1)); } else { return s; } } else { if (id_ == Id::VOp1_DComma) { if (!(str_equals(arg, str1730))) { e_die(StrFormat("%s can't have an argument", ui::PrettyId(id_)), op_tok); } return s->lower(); } else { if (id_ == Id::VOp1_Caret) { if (!(str_equals(arg, str1732))) { e_die(StrFormat("%s can't have an argument", ui::PrettyId(id_)), op_tok); } if (len(s)) { return str_concat(s->at(0)->upper(), s->slice(1)); } else { return s; } } else { if (id_ == Id::VOp1_DCaret) { if (!(str_equals(arg, str1734))) { e_die(StrFormat("%s can't have an argument", ui::PrettyId(id_)), op_tok); } return s->upper(); } else { assert(0); // AssertionError } } } } } } } n = len(s); if (id_ == Id::VOp1_Pound) { i = 0; while (true) { if (libc::fnmatch(arg, s->slice(0, i))) { return s->slice(i); } if (i >= n) { break; } i = NextUtf8Char(s, i); } return s; } else { if (id_ == Id::VOp1_DPound) { i = n; while (true) { if (libc::fnmatch(arg, s->slice(0, i))) { return s->slice(i); } if (i == 0) { break; } i = PreviousUtf8Char(s, i); } return s; } else { if (id_ == Id::VOp1_Percent) { i = n; while (true) { if (libc::fnmatch(arg, s->slice(i))) { return s->slice(0, i); } if (i == 0) { break; } i = PreviousUtf8Char(s, i); } return s; } else { if (id_ == Id::VOp1_DPercent) { i = 0; while (true) { if (libc::fnmatch(arg, s->slice(i))) { return s->slice(0, i); } if (i >= n) { break; } i = NextUtf8Char(s, i); } return s; } else { FAIL(kNotImplemented); // Python NotImplementedError } } } } } List*>* _AllMatchPositions(BigStr* s, BigStr* regex) { List*>* matches = nullptr; int pos; int n; Tuple2* m = nullptr; int start; int end; StackRoot _root0(&s); StackRoot _root1(®ex); StackRoot _root2(&matches); StackRoot _root3(&m); matches = Alloc*>>(); pos = 0; n = len(s); while (pos < n) { m = libc::regex_first_group_match(regex, s, pos); if (m == nullptr) { break; } matches->append(m); Tuple2* tup2 = m; start = tup2->at0(); end = tup2->at1(); pos = end; } return matches; } BigStr* _PatSubAll(BigStr* s, BigStr* regex, BigStr* replace_str) { List* parts = nullptr; int prev_end; int start; int end; StackRoot _root0(&s); StackRoot _root1(®ex); StackRoot _root2(&replace_str); StackRoot _root3(&parts); parts = Alloc>(); prev_end = 0; for (ListIter*> it(_AllMatchPositions(s, regex)); !it.Done(); it.Next()) { Tuple2* tup3 = it.Value(); start = tup3->at0(); end = tup3->at1(); parts->append(s->slice(prev_end, start)); parts->append(replace_str); prev_end = end; } parts->append(s->slice(prev_end)); return str1736->join(parts); } GlobReplacer::GlobReplacer(BigStr* regex, BigStr* replace_str, syntax_asdl::Token* slash_tok) { this->regex = regex; this->replace_str = replace_str; this->slash_tok = slash_tok; } BigStr* GlobReplacer::Replace(BigStr* s, suffix_op::PatSub* op) { BigStr* regex = nullptr; BigStr* msg = nullptr; Tuple2* m = nullptr; int start; int end; StackRoot _root0(&s); StackRoot _root1(&op); StackRoot _root2(®ex); StackRoot _root3(&msg); StackRoot _root4(&m); regex = StrFormat("(%s)", this->regex); if (op->replace_mode == Id::Lit_Slash) { if (len(this->regex) == 0) { return s; } try { return _PatSubAll(s, regex, this->replace_str); } catch (RuntimeError* e) { msg = e->message; e_die(StrFormat("Error matching regex %r: %s", regex, msg), this->slash_tok); } } if (op->replace_mode == Id::Lit_Pound) { regex = str_concat(str1740, regex); } else { if (op->replace_mode == Id::Lit_Percent) { regex = str_concat(regex, str1741); } } m = libc::regex_first_group_match(regex, s, 0); if (m == nullptr) { return s; } Tuple2* tup4 = m; start = tup4->at0(); end = tup4->at1(); return str_concat(str_concat(s->slice(0, start), this->replace_str), s->slice(end)); } BigStr* ShellQuoteB(BigStr* s) { StackRoot _root0(&s); s = s->replace(str1742, str1743)->replace(str1744, str1745); return pyutil::BackslashEscape(s, str1746); } } // define namespace string_ops namespace tdop { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using syntax_asdl::loc; using syntax_asdl::arith_expr; using syntax_asdl::arith_expr_e; using syntax_asdl::arith_expr_t; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using error::p_die; bool IsIndexable(syntax_asdl::arith_expr_t* node) { StackRoot _root0(&node); switch (node->tag()) { case arith_expr_e::VarSub: case arith_expr_e::Word: { return true; } break; } return false; } void CheckLhsExpr(syntax_asdl::arith_expr_t* node, syntax_asdl::word_t* blame_word) { syntax_asdl::arith_expr_t* UP_node = nullptr; StackRoot _root0(&node); StackRoot _root1(&blame_word); StackRoot _root2(&UP_node); UP_node = node; if (node->tag() == arith_expr_e::Binary) { arith_expr::Binary* node = static_cast(UP_node); if ((node->op->id == Id::Arith_LBracket and IsIndexable(node->left))) { return ; } } if (IsIndexable(node)) { return ; } p_die(str1747, Alloc(blame_word)); } syntax_asdl::arith_expr_t* NullError(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp) { StackRoot _root0(&p); StackRoot _root1(&t); p_die(str1748, Alloc(t)); return nullptr; } syntax_asdl::arith_expr_t* NullConstant(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp) { syntax_asdl::Token* name_tok = nullptr; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&name_tok); name_tok = word_::LooksLikeArithVar(w); if (name_tok) { return name_tok; } return static_cast(w); } syntax_asdl::arith_expr_t* NullParen(tdop::TdopParser* p, syntax_asdl::word_t* t, int bp) { syntax_asdl::arith_expr_t* r = nullptr; StackRoot _root0(&p); StackRoot _root1(&t); StackRoot _root2(&r); r = p->ParseUntil(bp); p->Eat(Id::Arith_RParen); return r; } syntax_asdl::arith_expr_t* NullPrefixOp(tdop::TdopParser* p, syntax_asdl::word_t* w, int bp) { syntax_asdl::arith_expr_t* right = nullptr; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&right); right = p->ParseUntil(bp); return Alloc(word_::ArithId(w), right); } syntax_asdl::arith_expr_t* LeftError(tdop::TdopParser* p, syntax_asdl::word_t* t, syntax_asdl::arith_expr_t* left, int rbp) { StackRoot _root0(&p); StackRoot _root1(&t); StackRoot _root2(&left); p_die(str1749, Alloc(t)); return nullptr; } syntax_asdl::arith_expr_t* LeftBinaryOp(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp) { Token* tok = nullptr; StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&left); StackRoot _root3(&tok); tok = static_cast(w); return Alloc(tok, left, p->ParseUntil(rbp)); } syntax_asdl::arith_expr_t* LeftAssign(tdop::TdopParser* p, syntax_asdl::word_t* w, syntax_asdl::arith_expr_t* left, int rbp) { StackRoot _root0(&p); StackRoot _root1(&w); StackRoot _root2(&left); CheckLhsExpr(left, w); return Alloc(word_::ArithId(w), left, p->ParseUntil(rbp)); } TdopParser::TdopParser(tdop::ParserSpec* spec, word_parse::WordParser* w_parser, optview::Parse* parse_opts) { this->spec = spec; this->w_parser = w_parser; this->parse_opts = parse_opts; this->cur_word = nullptr; this->op_id = Id::Undefined_Tok; } int TdopParser::CurrentId() { return word_::ArithId(this->cur_word); } bool TdopParser::AtToken(int token_type) { return this->op_id == token_type; } void TdopParser::Eat(int token_type) { if (!this->AtToken(token_type)) { p_die(StrFormat("Parser expected %s, got %s", ui::PrettyId(token_type), ui::PrettyId(this->op_id)), Alloc(this->cur_word)); } this->Next(); } bool TdopParser::Next() { this->cur_word = this->w_parser->ReadArithWord(); this->op_id = word_::ArithId(this->cur_word); return true; } syntax_asdl::arith_expr_t* TdopParser::ParseUntil(int rbp) { syntax_asdl::word_t* t = nullptr; tdop::NullInfo* null_info = nullptr; syntax_asdl::arith_expr_t* node = nullptr; tdop::LeftInfo* left_info = nullptr; StackRoot _root0(&t); StackRoot _root1(&null_info); StackRoot _root2(&node); StackRoot _root3(&left_info); if ((this->op_id == Id::Eof_Real || this->op_id == Id::Eof_RParen || this->op_id == Id::Eof_Backtick)) { p_die(str1751, Alloc(this->cur_word)); } t = this->cur_word; null_info = this->spec->LookupNud(this->op_id); this->Next(); node = null_info->nud(this, t, null_info->bp); while (true) { t = this->cur_word; left_info = this->spec->LookupLed(this->op_id); if (rbp >= left_info->lbp) { break; } this->Next(); node = left_info->led(this, t, node, left_info->rbp); } return node; } syntax_asdl::arith_expr_t* TdopParser::Parse() { this->Next(); if (!this->parse_opts->parse_sh_arith()) { p_die(str1752, Alloc(this->cur_word)); } return this->ParseUntil(0); } } // define namespace tdop namespace word_ { // define using id_kind_asdl::Id; using id_kind_asdl::Kind; using id_kind_asdl::Id_t; using id_kind_asdl::Kind_t; using syntax_asdl::Token; using syntax_asdl::CompoundWord; using syntax_asdl::DoubleQuoted; using syntax_asdl::SingleQuoted; using syntax_asdl::word; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::word_str; using syntax_asdl::word_part; using syntax_asdl::word_part_t; using syntax_asdl::word_part_e; using syntax_asdl::AssocPair; int LiteralId(syntax_asdl::word_part_t* p) { syntax_asdl::word_part_t* UP_part = nullptr; StackRoot _root0(&p); StackRoot _root1(&UP_part); UP_part = p; if (p->tag() == word_part_e::Literal) { return static_cast(UP_part)->id; } else { return Id::Undefined_Tok; } } Tuple3 _EvalWordPart(syntax_asdl::word_part_t* part) { syntax_asdl::word_part_t* UP_part = nullptr; BigStr* s = nullptr; List* strs = nullptr; bool ok; StackRoot _root0(&part); StackRoot _root1(&UP_part); StackRoot _root2(&s); StackRoot _root3(&strs); UP_part = part; switch (part->tag()) { case word_part_e::Literal: { Token* tok = static_cast(UP_part); return Tuple3(true, lexer::TokenVal(tok), false); } break; case word_part_e::EscapedLiteral: { word_part::EscapedLiteral* part = static_cast(UP_part); s = lexer::TokenSliceLeft(part->token, 1); return Tuple3(true, s, true); } break; case word_part_e::SingleQuoted: { SingleQuoted* part = static_cast(UP_part); return Tuple3(true, part->sval, true); } break; case word_part_e::DoubleQuoted: { DoubleQuoted* part = static_cast(UP_part); strs = Alloc>(); for (ListIter it(part->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* p = it.Value(); StackRoot _for(&p ); Tuple3 tup0 = _EvalWordPart(p); ok = tup0.at0(); s = tup0.at1(); if (!ok) { return Tuple3(false, str1753, true); } strs->append(s); } return Tuple3(true, str1754->join(strs), true); } break; case word_part_e::ShArrayLiteral: case word_part_e::BashAssocLiteral: case word_part_e::ZshVarSub: case word_part_e::CommandSub: case word_part_e::SimpleVarSub: case word_part_e::BracedVarSub: case word_part_e::TildeSub: case word_part_e::ArithSub: case word_part_e::ExtGlob: case word_part_e::Splice: case word_part_e::ExprSub: { return Tuple3(false, str1755, false); } break; default: { assert(0); // AssertionError } } } BigStr* FastStrEval(syntax_asdl::CompoundWord* w) { syntax_asdl::word_part_t* part0 = nullptr; syntax_asdl::word_part_t* UP_part0 = nullptr; StackRoot _root0(&w); StackRoot _root1(&part0); StackRoot _root2(&UP_part0); if (len(w->parts) != 1) { return nullptr; } part0 = w->parts->at(0); UP_part0 = part0; switch (part0->tag()) { case word_part_e::Literal: { Token* part0 = static_cast(UP_part0); if ((part0->id == Id::Lit_Chars || part0->id == Id::Lit_LBracket || part0->id == Id::Lit_RBracket)) { return lexer::LazyStr(part0); } else { return nullptr; } } break; case word_part_e::SingleQuoted: { SingleQuoted* part0 = static_cast(UP_part0); return part0->sval; } break; default: { return nullptr; } } } Tuple3 StaticEval(syntax_asdl::word_t* UP_w) { bool quoted; List* strs = nullptr; bool ok; BigStr* s = nullptr; bool q; StackRoot _root0(&UP_w); StackRoot _root1(&strs); StackRoot _root2(&s); quoted = false; if (UP_w->tag() != word_e::Compound) { return Tuple3(false, str1756, quoted); } CompoundWord* w = static_cast(UP_w); strs = Alloc>(); for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); Tuple3 tup1 = _EvalWordPart(part); ok = tup1.at0(); s = tup1.at1(); q = tup1.at2(); if (!ok) { return Tuple3(false, str1757, quoted); } if (q) { quoted = true; } strs->append(s); } return Tuple3(true, str1758->join(strs), quoted); } syntax_asdl::CompoundWord* TildeDetect(syntax_asdl::word_t* UP_w) { StackRoot _root0(&UP_w); if (UP_w->tag() != word_e::Compound) { return nullptr; } CompoundWord* w = static_cast(UP_w); return TildeDetect2(w); } syntax_asdl::CompoundWord* TildeDetect2(syntax_asdl::CompoundWord* w) { syntax_asdl::word_part_t* part0 = nullptr; int id0; Token* tok0 = nullptr; List* new_parts = nullptr; int id1; Token* tok1 = nullptr; int id2; StackRoot _root0(&w); StackRoot _root1(&part0); StackRoot _root2(&tok0); StackRoot _root3(&new_parts); StackRoot _root4(&tok1); if (len(w->parts) == 0) { return nullptr; } part0 = w->parts->at(0); id0 = LiteralId(part0); if (id0 != Id::Lit_Tilde) { return nullptr; } tok0 = static_cast(part0); new_parts = Alloc>(); if (len(w->parts) == 1) { new_parts->append(Alloc(tok0, nullptr, nullptr)); return Alloc(new_parts); } id1 = LiteralId(w->parts->at(1)); if (id1 == Id::Lit_Slash) { new_parts->append(Alloc(tok0, nullptr, nullptr)); new_parts->extend(w->parts->slice(1)); return Alloc(new_parts); } if (id1 != Id::Lit_Chars) { return nullptr; } tok1 = static_cast(w->parts->at(1)); if (len(w->parts) == 2) { new_parts->append(Alloc(tok0, tok1, lexer::TokenVal(tok1))); return Alloc(new_parts); } id2 = LiteralId(w->parts->at(2)); if (id2 != Id::Lit_Slash) { return nullptr; } new_parts->append(Alloc(tok0, tok1, lexer::TokenVal(tok1))); new_parts->extend(w->parts->slice(2)); return Alloc(new_parts); } void TildeDetectAssign(syntax_asdl::CompoundWord* w) { List* parts = nullptr; bool has_tilde; List* new_parts = nullptr; bool tilde_could_be_next; int i; int n; syntax_asdl::word_part_t* part0 = nullptr; syntax_asdl::word_part_t* part1 = nullptr; syntax_asdl::word_part_t* part2 = nullptr; Token* tok0 = nullptr; int id1; Token* tok1 = nullptr; int id2; StackRoot _root0(&w); StackRoot _root1(&parts); StackRoot _root2(&new_parts); StackRoot _root3(&part0); StackRoot _root4(&part1); StackRoot _root5(&part2); StackRoot _root6(&tok0); StackRoot _root7(&tok1); parts = w->parts; has_tilde = false; for (ListIter it(parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); if (LiteralId(part) == Id::Lit_Tilde) { has_tilde = true; break; } } if (!has_tilde) { return ; } parts->append(nullptr); parts->append(nullptr); new_parts = Alloc>(); tilde_could_be_next = true; i = 0; n = len(parts); while (i < n) { part0 = parts->at(i); if (part0 == nullptr) { break; } if ((tilde_could_be_next and LiteralId(part0) == Id::Lit_Tilde)) { part1 = parts->at((i + 1)); part2 = parts->at((i + 2)); tok0 = static_cast(part0); if (part1 == nullptr) { new_parts->append(Alloc(tok0, nullptr, nullptr)); break; } id1 = LiteralId(part1); if ((id1 == Id::Lit_Slash || id1 == Id::Lit_Colon)) { new_parts->append(Alloc(tok0, nullptr, nullptr)); new_parts->append(part1); i += 2; continue; } if (id1 != Id::Lit_Chars) { new_parts->append(part0); new_parts->append(part1); i += 2; continue; } tok1 = static_cast(part1); if (part2 == nullptr) { new_parts->append(Alloc(tok0, tok1, lexer::TokenVal(tok1))); break; } id2 = LiteralId(part2); if ((id2 != Id::Lit_Slash && id2 != Id::Lit_Colon)) { new_parts->append(part0); new_parts->append(part1); new_parts->append(part2); i += 3; continue; } new_parts->append(Alloc(tok0, tok1, lexer::TokenVal(tok1))); new_parts->append(part2); i += 3; tilde_could_be_next = id2 == Id::Lit_Colon; } else { new_parts->append(part0); i += 1; tilde_could_be_next = LiteralId(part0) == Id::Lit_Colon; } } parts->pop(); parts->pop(); w->parts = new_parts; } List* TildeDetectAll(List* words) { List* out = nullptr; syntax_asdl::CompoundWord* t = nullptr; StackRoot _root0(&words); StackRoot _root1(&out); StackRoot _root2(&t); out = Alloc>(); for (ListIter it(words); !it.Done(); it.Next()) { syntax_asdl::word_t* w = it.Value(); StackRoot _for(&w ); t = TildeDetect(w); if (t) { out->append(t); } else { out->append(w); } } return out; } bool HasArrayPart(syntax_asdl::CompoundWord* w) { StackRoot _root0(&w); for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); if (part->tag() == word_part_e::ShArrayLiteral) { return true; } } return false; } BigStr* ShFunctionName(syntax_asdl::CompoundWord* w) { bool ok; BigStr* s = nullptr; bool quoted; StackRoot _root0(&w); StackRoot _root1(&s); Tuple3 tup2 = StaticEval(w); ok = tup2.at0(); s = tup2.at1(); quoted = tup2.at2(); if ((!ok or quoted)) { return str1759; } return s; } syntax_asdl::Token* LooksLikeArithVar(syntax_asdl::word_t* UP_w) { syntax_asdl::word_part_t* UP_part0 = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&UP_part0); if (UP_w->tag() != word_e::Compound) { return nullptr; } CompoundWord* w = static_cast(UP_w); if (len(w->parts) != 1) { return nullptr; } UP_part0 = w->parts->at(0); if (LiteralId(UP_part0) != Id::Lit_ArithVarLike) { return nullptr; } return static_cast(UP_part0); } bool IsVarLike(syntax_asdl::CompoundWord* w) { StackRoot _root0(&w); if (len(w->parts) == 0) { return false; } return LiteralId(w->parts->at(0)) == Id::Lit_VarLike; } Tuple3 DetectShAssignment(syntax_asdl::CompoundWord* w) { syntax_asdl::Token* no_token = nullptr; int n; syntax_asdl::word_part_t* UP_part0 = nullptr; int id0; syntax_asdl::word_part_t* UP_part = nullptr; StackRoot _root0(&w); StackRoot _root1(&no_token); StackRoot _root2(&UP_part0); StackRoot _root3(&UP_part); no_token = nullptr; n = len(w->parts); if (n == 0) { return Tuple3(no_token, no_token, 0); } UP_part0 = w->parts->at(0); id0 = LiteralId(UP_part0); if (id0 == Id::Lit_VarLike) { Token* tok = static_cast(UP_part0); return Tuple3(tok, no_token, 1); } if (id0 == Id::Lit_ArrayLhsOpen) { Token* tok0 = static_cast(UP_part0); if (n < 2) { return Tuple3(no_token, no_token, 0); } for (int i = 1; i < n; ++i) { UP_part = w->parts->at(i); if (LiteralId(UP_part) == Id::Lit_ArrayLhsClose) { Token* tok_close = static_cast(UP_part); return Tuple3(tok0, tok_close, (i + 1)); } } } return Tuple3(no_token, no_token, 0); } syntax_asdl::AssocPair* DetectAssocPair(syntax_asdl::CompoundWord* w) { List* parts = nullptr; int n; int id_; syntax_asdl::CompoundWord* key = nullptr; syntax_asdl::CompoundWord* value = nullptr; StackRoot _root0(&w); StackRoot _root1(&parts); StackRoot _root2(&key); StackRoot _root3(&value); parts = w->parts; if (LiteralId(parts->at(0)) != Id::Lit_LBracket) { return nullptr; } n = len(parts); for (int i = 0; i < n; ++i) { id_ = LiteralId(parts->at(i)); if (id_ == Id::Lit_ArrayLhsClose) { key = Alloc(parts->slice(1, i)); value = Alloc(parts->slice((i + 1))); return Alloc(key, value); } } return nullptr; } Tuple2 IsControlFlow(syntax_asdl::CompoundWord* w) { syntax_asdl::Token* no_token = nullptr; syntax_asdl::word_part_t* UP_part0 = nullptr; int token_type; id_kind_asdl::Kind_t token_kind; StackRoot _root0(&w); StackRoot _root1(&no_token); StackRoot _root2(&UP_part0); no_token = nullptr; if (len(w->parts) != 1) { return Tuple2(Kind::Undefined, no_token); } UP_part0 = w->parts->at(0); token_type = LiteralId(UP_part0); if (token_type == Id::Undefined_Tok) { return Tuple2(Kind::Undefined, no_token); } token_kind = consts::GetKind(token_type); if (token_kind == Kind::ControlFlow) { return Tuple2(token_kind, static_cast(UP_part0)); } return Tuple2(Kind::Undefined, no_token); } syntax_asdl::Token* LiteralToken(syntax_asdl::word_t* UP_w) { syntax_asdl::word_part_t* part0 = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&part0); CompoundWord* w = static_cast(UP_w); if (len(w->parts) != 1) { return nullptr; } part0 = w->parts->at(0); if (part0->tag() == word_part_e::Literal) { return static_cast(part0); } return nullptr; } syntax_asdl::Token* BraceToken(syntax_asdl::word_t* UP_w) { StackRoot _root0(&UP_w); switch (UP_w->tag()) { case word_e::Operator: { Token* tok = static_cast(UP_w); return tok; } break; case word_e::Compound: { CompoundWord* w = static_cast(UP_w); return LiteralToken(w); } break; default: { assert(0); // AssertionError } } } syntax_asdl::Token* AsKeywordToken(syntax_asdl::word_t* UP_w) { syntax_asdl::word_part_t* part = nullptr; Token* tok = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&part); StackRoot _root2(&tok); CompoundWord* w = static_cast(UP_w); part = w->parts->at(0); tok = static_cast(part); return tok; } syntax_asdl::Token* AsOperatorToken(syntax_asdl::word_t* word) { StackRoot _root0(&word); return static_cast(word); } int ArithId(syntax_asdl::word_t* w) { Token* tok = nullptr; StackRoot _root0(&w); StackRoot _root1(&tok); if (w->tag() == word_e::Operator) { tok = static_cast(w); return tok->id; } return Id::Word_Compound; } int BoolId(syntax_asdl::word_t* w) { syntax_asdl::word_t* UP_w = nullptr; int token_type; id_kind_asdl::Kind_t token_kind; StackRoot _root0(&w); StackRoot _root1(&UP_w); UP_w = w; switch (w->tag()) { case word_e::String: { word::String* w = static_cast(UP_w); return w->id; } break; case word_e::Operator: { Token* tok = static_cast(UP_w); return tok->id; } break; case word_e::Compound: { CompoundWord* w = static_cast(UP_w); if (len(w->parts) != 1) { return Id::Word_Compound; } token_type = LiteralId(w->parts->at(0)); if (token_type == Id::Undefined_Tok) { return Id::Word_Compound; } if ((token_type == Id::KW_Bang || token_type == Id::Lit_DRightBracket)) { return token_type; } token_kind = consts::GetKind(token_type); if ((token_kind == Kind::BoolUnary || token_kind == Kind::BoolBinary)) { return token_type; } return Id::Word_Compound; } break; default: { assert(0); // AssertionError } } } int CommandId(syntax_asdl::word_t* w) { syntax_asdl::word_t* UP_w = nullptr; int token_type; id_kind_asdl::Kind_t token_kind; StackRoot _root0(&w); StackRoot _root1(&UP_w); UP_w = w; switch (w->tag()) { case word_e::Operator: { Token* tok = static_cast(UP_w); return tok->id; } break; case word_e::Compound: { CompoundWord* w = static_cast(UP_w); if (len(w->parts) != 1) { return Id::Word_Compound; } token_type = LiteralId(w->parts->at(0)); if (token_type == Id::Undefined_Tok) { return Id::Word_Compound; } if ((token_type == Id::Lit_LBrace || token_type == Id::Lit_RBrace || token_type == Id::Lit_Equals || token_type == Id::Lit_TDot)) { return token_type; } token_kind = consts::GetKind(token_type); if (token_kind == Kind::KW) { return token_type; } return Id::Word_Compound; } break; default: { assert(0); // AssertionError } } } id_kind_asdl::Kind_t CommandKind(syntax_asdl::word_t* w) { Token* tok = nullptr; StackRoot _root0(&w); StackRoot _root1(&tok); if (w->tag() == word_e::Operator) { tok = static_cast(w); return consts::GetKind(tok->id); } return Kind::Word; } bool IsVarSub(syntax_asdl::word_t* w) { StackRoot _root0(&w); return false; } syntax_asdl::CompoundWord* ErrorWord(BigStr* error_str) { syntax_asdl::Token* t = nullptr; StackRoot _root0(&error_str); StackRoot _root1(&t); t = lexer::DummyToken(Id::Lit_Chars, error_str); return Alloc(NewList(std::initializer_list{t})); } BigStr* Pretty(syntax_asdl::word_t* w) { syntax_asdl::word_t* UP_w = nullptr; StackRoot _root0(&w); StackRoot _root1(&UP_w); UP_w = w; if (w->tag() == word_e::String) { word::String* w = static_cast(UP_w); if (w->id == Id::Eof_Real) { return str1760; } else { return repr(w->s); } } else { return word_str(w->tag()); } } ctx_EmitDocToken::ctx_EmitDocToken(word_parse::WordParser* w_parser) { gHeap.PushRoot(reinterpret_cast(&(this->w_parser))); w_parser->EmitDocToken(true); this->w_parser = w_parser; } ctx_EmitDocToken::~ctx_EmitDocToken() { this->w_parser->EmitDocToken(false); gHeap.PopRoot(); } ctx_Multiline::ctx_Multiline(word_parse::WordParser* w_parser) { gHeap.PushRoot(reinterpret_cast(&(this->w_parser))); w_parser->Multiline(true); this->w_parser = w_parser; } ctx_Multiline::~ctx_Multiline() { this->w_parser->Multiline(false); gHeap.PopRoot(); } } // define namespace word_ namespace word_compile { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using syntax_asdl::Token; using syntax_asdl::CharCode; using syntax_asdl::word_part_e; using syntax_asdl::word_part_t; using error::p_die; syntax_asdl::CharCode* EvalCharLiteralForRegex(syntax_asdl::Token* tok) { int id_; BigStr* value = nullptr; BigStr* s = nullptr; int i; BigStr* one_char_str = nullptr; StackRoot _root0(&tok); StackRoot _root1(&value); StackRoot _root2(&s); StackRoot _root3(&one_char_str); id_ = tok->id; value = lexer::TokenVal(tok); switch (id_) { case Id::Char_UBraced: { s = lexer::TokenSlice(tok, 3, -1); i = to_int(s, 16); return Alloc(tok, i, true); } break; case Id::Char_OneChar: { one_char_str = consts::LookupCharC(value->at(1)); return Alloc(tok, ord(one_char_str), false); } break; case Id::Char_Hex: { s = lexer::TokenSliceLeft(tok, 2); i = to_int(s, 16); return Alloc(tok, i, false); } break; case Id::Lit_Chars: case Id::Expr_Name: case Id::Expr_DecInt: { return Alloc(tok, ord(value->at(0)), false); } break; default: { assert(0); // AssertionError } } } BigStr* EvalCStringToken(int id_, BigStr* value) { int code_point; BigStr* c = nullptr; BigStr* s = nullptr; int i; StackRoot _root0(&value); StackRoot _root1(&c); StackRoot _root2(&s); code_point = -1; if ((id_ == Id::Lit_Chars || id_ == Id::Lit_CharsWithoutPrefix || id_ == Id::Unknown_Backslash)) { return value; } else { if (id_ == Id::Right_SingleQuote) { return value; } else { if (id_ == Id::Char_OneChar) { c = value->at(1); return consts::LookupCharC(c); } else { if (id_ == Id::Char_Stop) { return nullptr; } else { if ((id_ == Id::Char_Octal3 || id_ == Id::Char_Octal4)) { if (id_ == Id::Char_Octal3) { s = value->slice(1); } else { s = value->slice(2); } i = to_int(s, 8); if (i >= 256) { i = (i % 256); } return chr(i); } else { if ((id_ == Id::Char_Hex || id_ == Id::Char_YHex)) { s = value->slice(2); i = to_int(s, 16); return chr(i); } else { if ((id_ == Id::Char_Unicode4 || id_ == Id::Char_Unicode8)) { s = value->slice(2); code_point = to_int(s, 16); return j8::Utf8Encode(code_point); } else { if (id_ == Id::Char_UBraced) { s = value->slice(3, -1); code_point = to_int(s, 16); return j8::Utf8Encode(code_point); } else { assert(0); // AssertionError } } } } } } } } } BigStr* EvalSingleQuoted(int id_, List* tokens) { List* strs = nullptr; BigStr* s = nullptr; int code_point; StackRoot _root0(&tokens); StackRoot _root1(&strs); StackRoot _root2(&s); if ((id_ == Id::Left_SingleQuote || id_ == Id::Left_RSingleQuote || id_ == Id::Left_TSingleQuote || id_ == Id::Left_RTSingleQuote)) { strs = Alloc>(); for (ListIter it(tokens); !it.Done(); it.Next()) { syntax_asdl::Token* t = it.Value(); strs->append(lexer::TokenVal(t)); } } else { if ((id_ == Id::Left_DollarSingleQuote || id_ == Id::Left_USingleQuote || id_ == Id::Left_BSingleQuote || id_ == Id::Left_UTSingleQuote || id_ == Id::Left_BTSingleQuote)) { strs = Alloc>(); for (ListIter it(tokens); !it.Done(); it.Next()) { syntax_asdl::Token* t = it.Value(); StackRoot _for(&t ); if (t->id == Id::Char_UBraced) { s = lexer::TokenSlice(t, 3, -1); code_point = to_int(s, 16); if (code_point > 1114111) { p_die(str1762, t); } if ((55296 <= code_point and code_point < 57344)) { p_die(StrFormat("%s escape is illegal because it's in the surrogate range", lexer::TokenVal(t)), t); } } strs->append(EvalCStringToken(t->id, lexer::TokenVal(t))); } } else { assert(0); // AssertionError } } return str1764->join(strs); } bool _TokenConsistsOf(syntax_asdl::Token* tok, BigStr* byte_set) { int start; int end; int b; StackRoot _root0(&tok); StackRoot _root1(&byte_set); start = tok->col; end = (tok->col + tok->length); for (int i = start; i < end; ++i) { b = mylib::ByteAt(tok->line->content, i); if (!mylib::ByteInSet(b, byte_set)) { return false; } } return true; } bool _IsLeadingSpace(syntax_asdl::Token* tok) { StackRoot _root0(&tok); return _TokenConsistsOf(tok, str1765); } bool _IsTrailingSpace(syntax_asdl::Token* tok) { StackRoot _root0(&tok); return _TokenConsistsOf(tok, str1766); } void RemoveLeadingSpaceDQ(List* parts) { syntax_asdl::word_part_t* UP_first = nullptr; syntax_asdl::word_part_t* UP_last = nullptr; BigStr* to_strip = nullptr; int n; bool line_ended; Token* lit_tok = nullptr; StackRoot _root0(&parts); StackRoot _root1(&UP_first); StackRoot _root2(&UP_last); StackRoot _root3(&to_strip); StackRoot _root4(&lit_tok); if (len(parts) <= 1) { return ; } UP_first = parts->at(0); if (UP_first->tag() == word_part_e::Literal) { Token* first = static_cast(UP_first); if (_IsTrailingSpace(first)) { parts->pop(0); } } UP_last = parts->at(-1); to_strip = nullptr; if (UP_last->tag() == word_part_e::Literal) { Token* last = static_cast(UP_last); if (_IsLeadingSpace(last)) { to_strip = lexer::TokenVal(last); parts->pop(); } } if (to_strip == nullptr) { return ; } n = len(to_strip); for (ListIter it(parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); if (part->tag() != word_part_e::Literal) { line_ended = false; continue; } lit_tok = static_cast(part); if ((lit_tok->col == 0 and lexer::TokenStartsWith(lit_tok, to_strip))) { lit_tok->col = n; lit_tok->length -= n; lit_tok->id = Id::Lit_CharsWithoutPrefix; } } } void RemoveLeadingSpaceSQ(List* tokens) { syntax_asdl::Token* first = nullptr; syntax_asdl::Token* last = nullptr; BigStr* to_strip = nullptr; int n; StackRoot _root0(&tokens); StackRoot _root1(&first); StackRoot _root2(&last); StackRoot _root3(&to_strip); if (len(tokens) <= 1) { return ; } first = tokens->at(0); if (first->id == Id::Lit_Chars) { if (_IsTrailingSpace(first)) { tokens->pop(0); } } last = tokens->at(-1); to_strip = nullptr; if (last->id == Id::Lit_Chars) { if (_IsLeadingSpace(last)) { to_strip = lexer::TokenVal(last); tokens->pop(); } } if (to_strip == nullptr) { return ; } n = len(to_strip); for (ListIter it(tokens); !it.Done(); it.Next()) { syntax_asdl::Token* tok = it.Value(); StackRoot _for(&tok ); if ((tok->col == 0 and lexer::TokenStartsWith(tok, to_strip))) { tok->col = n; tok->length -= n; tok->id = Id::Lit_CharsWithoutPrefix; } } } } // define namespace word_compile namespace word_eval { // define using id_kind_asdl::Id; using id_kind_asdl::Kind; using id_kind_asdl::Kind_str; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::BracedVarSub; using syntax_asdl::CommandSub; using syntax_asdl::bracket_op; using syntax_asdl::bracket_op_e; using syntax_asdl::suffix_op; using syntax_asdl::suffix_op_e; using syntax_asdl::ShArrayLiteral; using syntax_asdl::SingleQuoted; using syntax_asdl::DoubleQuoted; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::CompoundWord; using syntax_asdl::rhs_word; using syntax_asdl::rhs_word_e; using syntax_asdl::rhs_word_t; using syntax_asdl::word_part; using syntax_asdl::word_part_e; using runtime_asdl::part_value; using runtime_asdl::part_value_e; using runtime_asdl::part_value_t; using runtime_asdl::cmd_value; using runtime_asdl::cmd_value_e; using runtime_asdl::cmd_value_t; using runtime_asdl::AssignArg; using runtime_asdl::a_index; using runtime_asdl::a_index_e; using runtime_asdl::VTestPlace; using runtime_asdl::VarSubState; using runtime_asdl::Piece; using option_asdl::option_i; using option_asdl::builtin_i; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::sh_lvalue; using value_asdl::sh_lvalue_t; using error::e_die; int QUOTED = (1 << 0); int IS_SUBST = (1 << 1); int EXTGLOB_FILES = (1 << 2); int EXTGLOB_MATCH = (1 << 3); int EXTGLOB_NESTED = (1 << 4); int QUOTE_FNMATCH = (1 << 5); int QUOTE_ERE = (1 << 6); GLOBAL_LIST(_STRING_AND_ARRAY, BigStr*, 3, {str1770 COMMA str1771 COMMA str1772}); bool ShouldArrayDecay(BigStr* var_name, optview::Exec* exec_opts, bool is_plain_var_sub) { StackRoot _root0(&var_name); StackRoot _root1(&exec_opts); return (!exec_opts->strict_array() or (is_plain_var_sub and list_contains(_STRING_AND_ARRAY, var_name))); } value_asdl::value_t* DecayArray(value_asdl::value_t* val) { value::BashArray* array_val = nullptr; BigStr* s = nullptr; value::BashAssoc* assoc_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&array_val); StackRoot _root2(&s); StackRoot _root3(&assoc_val); if (val->tag() == value_e::BashArray) { array_val = static_cast(val); s = len(array_val->strs) ? array_val->strs->at(0) : nullptr; } else { if (val->tag() == value_e::BashAssoc) { assoc_val = static_cast(val); s = dict_contains(assoc_val->d, str1773) ? assoc_val->d->at(str1774) : nullptr; } else { assert(0); // AssertionError } } if (s == nullptr) { return value::Undef; } else { return Alloc(s); } } BigStr* GetArrayItem(List* strs, int index) { int n; BigStr* s = nullptr; StackRoot _root0(&strs); StackRoot _root1(&s); n = len(strs); if (index < 0) { index += n; } if ((0 <= index and index < n)) { s = strs->at(index); } else { s = nullptr; } return s; } bool _DetectMetaBuiltinStr(BigStr* s) { StackRoot _root0(&s); return (consts::LookupNormalBuiltin(s) == builtin_i::builtin || consts::LookupNormalBuiltin(s) == builtin_i::command); } bool _DetectMetaBuiltin(runtime_asdl::part_value_t* val0) { runtime_asdl::part_value_t* UP_val0 = nullptr; StackRoot _root0(&val0); StackRoot _root1(&UP_val0); UP_val0 = val0; if (val0->tag() == part_value_e::String) { Piece* val0 = static_cast(UP_val0); if (!val0->quoted) { return _DetectMetaBuiltinStr(val0->s); } } return false; } runtime_asdl::AssignArg* _SplitAssignArg(BigStr* arg, syntax_asdl::CompoundWord* blame_word) { List* m = nullptr; BigStr* var_name = nullptr; BigStr* op = nullptr; value_asdl::value_t* val = nullptr; bool append; StackRoot _root0(&arg); StackRoot _root1(&blame_word); StackRoot _root2(&m); StackRoot _root3(&var_name); StackRoot _root4(&op); StackRoot _root5(&val); m = util::RegexSearch(consts::ASSIGN_ARG_RE, arg); if (m == nullptr) { e_die(StrFormat("Assignment builtin expected NAME=value, got %r", arg), blame_word); } var_name = m->at(1); op = m->at(3); if (len(op)) { val = Alloc(m->at(4)); append = str_equals(op->at(0), str1776); } else { val = nullptr; append = false; } return Alloc(var_name, val, append, blame_word); } BigStr* _BackslashEscape(BigStr* s) { StackRoot _root0(&s); return s->replace(str1777, str1778); } runtime_asdl::part_value_t* _ValueToPartValue(value_asdl::value_t* val, bool quoted, syntax_asdl::word_part_t* part_loc) { value_asdl::value_t* UP_val = nullptr; BigStr* s = nullptr; StackRoot _root0(&val); StackRoot _root1(&part_loc); StackRoot _root2(&UP_val); StackRoot _root3(&s); UP_val = val; switch (val->tag()) { case value_e::Undef: { return Alloc(str1779, quoted, !quoted); } break; case value_e::Str: { value::Str* val = static_cast(UP_val); return Alloc(val->s, quoted, !quoted); } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); return Alloc(val->strs); } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); return Alloc(val->d->values()); } break; case value_e::Null: case value_e::Bool: case value_e::Int: case value_e::Float: case value_e::Eggex: case value_e::List: { s = val_ops::Stringify(val, loc::Missing); return Alloc(s, quoted, !quoted); } break; default: { throw Alloc(val, str1780, Alloc(part_loc)); } } assert(0); // AssertionError } List*>* _MakeWordFrames(List* part_vals) { List* current = nullptr; List*>* frames = nullptr; runtime_asdl::part_value_t* UP_p = nullptr; bool is_first; runtime_asdl::Piece* piece = nullptr; StackRoot _root0(&part_vals); StackRoot _root1(¤t); StackRoot _root2(&frames); StackRoot _root3(&UP_p); StackRoot _root4(&piece); current = Alloc>(); frames = NewList*>(std::initializer_list*>{current}); for (ListIter it(part_vals); !it.Done(); it.Next()) { runtime_asdl::part_value_t* p = it.Value(); StackRoot _for(&p ); UP_p = p; switch (p->tag()) { case part_value_e::String: { Piece* p = static_cast(UP_p); current->append(p); } break; case part_value_e::Array: { part_value::Array* p = static_cast(UP_p); is_first = true; for (ListIter it(p->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s == nullptr) { continue; } piece = Alloc(s, true, false); if (is_first) { current->append(piece); is_first = false; } else { current = NewList(std::initializer_list{piece}); frames->append(current); } } } break; default: { assert(0); // AssertionError } } } return frames; } BigStr* _DecayPartValuesToString(List* part_vals, BigStr* join_char) { List* out = nullptr; runtime_asdl::part_value_t* UP_p = nullptr; List* tmp = nullptr; StackRoot _root0(&part_vals); StackRoot _root1(&join_char); StackRoot _root2(&out); StackRoot _root3(&UP_p); StackRoot _root4(&tmp); out = Alloc>(); for (ListIter it(part_vals); !it.Done(); it.Next()) { runtime_asdl::part_value_t* p = it.Value(); StackRoot _for(&p ); UP_p = p; switch (p->tag()) { case part_value_e::String: { Piece* p = static_cast(UP_p); out->append(p->s); } break; case part_value_e::Array: { part_value::Array* p = static_cast(UP_p); tmp = Alloc>(); for (ListIter it(p->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (s != nullptr) { tmp->append(s); } } out->append(join_char->join(tmp)); } break; default: { assert(0); // AssertionError } } } return str1782->join(out); } value_asdl::value_t* _PerformSlice(value_asdl::value_t* val, int begin, int length, bool has_length, syntax_asdl::BracedVarSub* part, value::Str* arg0_val) { value_asdl::value_t* UP_val = nullptr; BigStr* s = nullptr; int n; int byte_begin; int num_iters; int byte_end; BigStr* substr = nullptr; value_asdl::value_t* result = nullptr; List* orig = nullptr; int i; List* strs = nullptr; int count; StackRoot _root0(&val); StackRoot _root1(&part); StackRoot _root2(&arg0_val); StackRoot _root3(&UP_val); StackRoot _root4(&s); StackRoot _root5(&substr); StackRoot _root6(&result); StackRoot _root7(&orig); StackRoot _root8(&strs); UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); s = val->s; n = len(s); if (begin < 0) { byte_begin = n; num_iters = -begin; for (int _ = 0; _ < num_iters; ++_) { byte_begin = string_ops::PreviousUtf8Char(s, byte_begin); } } else { byte_begin = string_ops::AdvanceUtf8Chars(s, begin, 0); } if (has_length) { if (length < 0) { byte_end = n; num_iters = -length; for (int _ = 0; _ < num_iters; ++_) { byte_end = string_ops::PreviousUtf8Char(s, byte_end); } } else { byte_end = string_ops::AdvanceUtf8Chars(s, length, byte_begin); } } else { byte_end = len(s); } substr = s->slice(byte_begin, byte_end); result = Alloc(substr); } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); if ((has_length and length < 0)) { e_die(StrFormat("Array slice can't have negative length: %d", length), Alloc(part)); } if (arg0_val != nullptr) { orig = NewList(std::initializer_list{arg0_val->s}); orig->extend(val->strs); } else { orig = val->strs; } n = len(orig); if (begin < 0) { i = (n + begin); } else { i = begin; } strs = Alloc>(); count = 0; while (i < n) { if ((has_length and count == length)) { break; } s = orig->at(i); if (s != nullptr) { strs->append(s); count += 1; } i += 1; } result = Alloc(strs); } break; case value_e::BashAssoc: { e_die(str1784, Alloc(part)); } break; default: { throw Alloc(val, str1785, Alloc(part)); } } return result; } StringWordEvaluator::StringWordEvaluator() { ; // pass } value::Str* StringWordEvaluator::EvalWordToString(syntax_asdl::word_t* w, int eval_flags) { StackRoot _root0(&w); FAIL(kNotImplemented); // Python NotImplementedError } BigStr* _GetDollarHyphen(optview::Exec* exec_opts) { List* chars = nullptr; StackRoot _root0(&exec_opts); StackRoot _root1(&chars); chars = Alloc>(); if (exec_opts->interactive()) { chars->append(str1786); } if (exec_opts->errexit()) { chars->append(str1787); } if (exec_opts->noglob()) { chars->append(str1788); } if (exec_opts->noexec()) { chars->append(str1789); } if (exec_opts->nounset()) { chars->append(str1790); } if (exec_opts->xtrace()) { chars->append(str1791); } if (exec_opts->noclobber()) { chars->append(str1792); } return str1793->join(chars); } TildeEvaluator::TildeEvaluator(state::Mem* mem, optview::Exec* exec_opts) { this->mem = mem; this->exec_opts = exec_opts; } BigStr* TildeEvaluator::GetMyHomeDir() { value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); val = this->mem->GetValue(str1794); UP_val = val; if (val->tag() == value_e::Str) { value::Str* val = static_cast(UP_val); return val->s; } return pyos::GetMyHomeDir(); } BigStr* TildeEvaluator::Eval(word_part::TildeSub* part) { BigStr* result = nullptr; StackRoot _root0(&part); StackRoot _root1(&result); if (part->user_name == nullptr) { result = this->GetMyHomeDir(); } else { result = pyos::GetHomeDir(part->user_name); } if (result == nullptr) { if (this->exec_opts->strict_tilde()) { e_die(str1795, part->left); } else { result = str1796; if (part->user_name != nullptr) { result = str_concat(result, part->user_name); } } } return result; } AbstractWordEvaluator::AbstractWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt) { this->arith_ev = nullptr; this->expr_ev = nullptr; this->prompt_ev = nullptr; this->unsafe_arith = nullptr; this->tilde_ev = tilde_ev; this->mem = mem; this->exec_opts = exec_opts; this->mutable_opts = mutable_opts; this->splitter = splitter; this->errfmt = errfmt; this->globber = Alloc(exec_opts); } void AbstractWordEvaluator::CheckCircularDeps() { FAIL(kNotImplemented); // Python NotImplementedError } runtime_asdl::part_value_t* AbstractWordEvaluator::_EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted) { StackRoot _root0(&cs_part); FAIL(kNotImplemented); // Python NotImplementedError } runtime_asdl::part_value_t* AbstractWordEvaluator::_EvalProcessSub(syntax_asdl::CommandSub* cs_part) { StackRoot _root0(&cs_part); FAIL(kNotImplemented); // Python NotImplementedError } value_asdl::value_t* AbstractWordEvaluator::_EvalVarNum(int var_num) { return this->mem->GetArgNum(var_num); } value_asdl::value_t* AbstractWordEvaluator::_EvalSpecialVar(int op_id, bool quoted, runtime_asdl::VarSubState* vsub_state) { List* argv = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&vsub_state); StackRoot _root1(&argv); StackRoot _root2(&val); if ((op_id == Id::VSub_At || op_id == Id::VSub_Star)) { argv = this->mem->GetArgv(); val = Alloc(argv); if (op_id == Id::VSub_At) { vsub_state->join_array = !quoted; } else { vsub_state->join_array = true; } } else { if (op_id == Id::VSub_Hyphen) { val = Alloc(_GetDollarHyphen(this->exec_opts)); } else { val = this->mem->GetSpecialVar(op_id); } } return val; } bool AbstractWordEvaluator::_ApplyTestOp(value_asdl::value_t* val, suffix_op::Unary* op, bool quoted, List* part_vals, runtime_asdl::VTestPlace* vtest_place, syntax_asdl::Token* blame_token) { int eval_flags; syntax_asdl::Token* tok = nullptr; value_asdl::value_t* UP_val = nullptr; bool is_falsey; List* assign_part_vals = nullptr; BigStr* rhs_str = nullptr; value_asdl::sh_lvalue_t* lval = nullptr; BigStr* var_name = nullptr; runtime_asdl::a_index_t* var_index = nullptr; runtime_asdl::a_index_t* UP_var_index = nullptr; List* error_part_vals = nullptr; BigStr* error_str = nullptr; BigStr* actual = nullptr; BigStr* suffix = nullptr; StackRoot _root0(&val); StackRoot _root1(&op); StackRoot _root2(&part_vals); StackRoot _root3(&vtest_place); StackRoot _root4(&blame_token); StackRoot _root5(&tok); StackRoot _root6(&UP_val); StackRoot _root7(&assign_part_vals); StackRoot _root8(&rhs_str); StackRoot _root9(&lval); StackRoot _root10(&var_name); StackRoot _root11(&var_index); StackRoot _root12(&UP_var_index); StackRoot _root13(&error_part_vals); StackRoot _root14(&error_str); StackRoot _root15(&actual); StackRoot _root16(&suffix); eval_flags = IS_SUBST; if (quoted) { eval_flags |= QUOTED; } tok = op->op; UP_val = val; switch (val->tag()) { case value_e::Undef: { is_falsey = true; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if ((tok->id == Id::VTest_ColonHyphen || tok->id == Id::VTest_ColonEquals || tok->id == Id::VTest_ColonQMark || tok->id == Id::VTest_ColonPlus)) { is_falsey = len(val->s) == 0; } else { is_falsey = false; } } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); is_falsey = len(val->strs) == 0; } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); is_falsey = len(val->d) == 0; } break; default: { is_falsey = false; } } if ((tok->id == Id::VTest_ColonHyphen || tok->id == Id::VTest_Hyphen)) { if (is_falsey) { this->_EvalRhsWordToParts(op->arg_word, part_vals, eval_flags); return true; } else { return false; } } else { if ((tok->id == Id::VTest_ColonPlus || tok->id == Id::VTest_Plus)) { if (is_falsey) { return false; } else { this->_EvalRhsWordToParts(op->arg_word, part_vals, eval_flags); return true; } } else { if ((tok->id == Id::VTest_ColonEquals || tok->id == Id::VTest_Equals)) { if (is_falsey) { assign_part_vals = Alloc>(); this->_EvalRhsWordToParts(op->arg_word, assign_part_vals, eval_flags); part_vals->extend(assign_part_vals); if (vtest_place->name == nullptr) { e_die(str1797); } else { rhs_str = _DecayPartValuesToString(assign_part_vals, this->splitter->GetJoinChar()); if (vtest_place->index == nullptr) { lval = location::LName(vtest_place->name); } else { var_name = vtest_place->name; var_index = vtest_place->index; UP_var_index = var_index; switch (var_index->tag()) { case a_index_e::Int: { a_index::Int* var_index = static_cast(UP_var_index); lval = Alloc(var_name, var_index->i, loc::Missing); } break; case a_index_e::Str: { a_index::Str* var_index = static_cast(UP_var_index); lval = Alloc(var_name, var_index->s, loc::Missing); } break; default: { assert(0); // AssertionError } } } state::OshLanguageSetValue(this->mem, lval, Alloc(rhs_str)); } return true; } else { return false; } } else { if ((tok->id == Id::VTest_ColonQMark || tok->id == Id::VTest_QMark)) { if (is_falsey) { error_part_vals = Alloc>(); this->_EvalRhsWordToParts(op->arg_word, error_part_vals, eval_flags); error_str = _DecayPartValuesToString(error_part_vals, this->splitter->GetJoinChar()); if (vtest_place->name == nullptr) { var_name = str1798; } else { var_name = vtest_place->name; } if (val->tag() == value_e::Undef) { actual = str1800; } else { actual = str1801; } if (len(error_str)) { suffix = StrFormat(": %r", error_str); } else { suffix = str1803; } e_die(StrFormat("Var %s is %s%s", var_name, actual, suffix), blame_token); } else { return false; } } else { assert(0); // AssertionError } } } } } int AbstractWordEvaluator::_Length(value_asdl::value_t* val, syntax_asdl::Token* token) { value_asdl::value_t* UP_val = nullptr; int length; StackRoot _root0(&val); StackRoot _root1(&token); StackRoot _root2(&UP_val); UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); try { length = string_ops::CountUtf8Chars(val->s); } catch (error::Strict* e) { e->location = token; if (this->exec_opts->strict_word_eval()) { throw ; } else { this->errfmt->PrettyPrintError(e, str1805); return -1; } } } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); length = 0; for (ListIter it(val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s != nullptr) { length += 1; } } } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); length = len(val->d); } break; default: { throw Alloc(val, str1806, token); } } return length; } value_asdl::value_t* AbstractWordEvaluator::_Keys(value_asdl::value_t* val, syntax_asdl::Token* token) { value_asdl::value_t* UP_val = nullptr; List* indices = nullptr; int i; StackRoot _root0(&val); StackRoot _root1(&token); StackRoot _root2(&UP_val); StackRoot _root3(&indices); UP_val = val; switch (val->tag()) { case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); indices = Alloc>(); i = 0; for (ListIter it(val->strs); !it.Done(); it.Next(), ++i) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s != nullptr) { indices->append(str(i)); } } return Alloc(indices); } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); return Alloc(val->d->keys()); } break; default: { throw Alloc(val, str1807, token); } } } value_asdl::value_t* AbstractWordEvaluator::_EvalVarRef(value_asdl::value_t* val, syntax_asdl::Token* blame_tok, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place) { value_asdl::value_t* UP_val = nullptr; syntax_asdl::BracedVarSub* bvs_part = nullptr; StackRoot _root0(&val); StackRoot _root1(&blame_tok); StackRoot _root2(&vsub_state); StackRoot _root3(&vtest_place); StackRoot _root4(&UP_val); StackRoot _root5(&bvs_part); UP_val = val; switch (val->tag()) { case value_e::Undef: { return value::Undef; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); bvs_part = this->unsafe_arith->ParseVarRef(val->s, blame_tok); return this->_VarRefValue(bvs_part, quoted, vsub_state, vtest_place); } break; case value_e::BashArray: { e_die(str1808); } break; case value_e::BashAssoc: { e_die(str1809); } break; default: { throw Alloc(val, str1810, blame_tok); } } } value_asdl::value_t* AbstractWordEvaluator::_ApplyUnarySuffixOp(value_asdl::value_t* val, suffix_op::Unary* op) { id_kind_asdl::Kind_t op_kind; value::Str* arg_val = nullptr; bool has_extglob; value_asdl::value_t* UP_val = nullptr; BigStr* s = nullptr; value_asdl::value_t* new_val = nullptr; List* strs = nullptr; StackRoot _root0(&val); StackRoot _root1(&op); StackRoot _root2(&arg_val); StackRoot _root3(&UP_val); StackRoot _root4(&s); StackRoot _root5(&new_val); StackRoot _root6(&strs); op_kind = consts::GetKind(op->op->id); if (op_kind == Kind::VOp1) { Tuple2 tup0 = this->EvalWordToPattern(op->arg_word); arg_val = tup0.at0(); has_extglob = tup0.at1(); UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); s = string_ops::DoUnarySuffixOp(val->s, op->op, arg_val->s, has_extglob); new_val = Alloc(s); } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); strs = Alloc>(); for (ListIter it(val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s != nullptr) { strs->append(string_ops::DoUnarySuffixOp(s, op->op, arg_val->s, has_extglob)); } } new_val = Alloc(strs); } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); strs = Alloc>(); for (ListIter it(val->d->values()); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); strs->append(string_ops::DoUnarySuffixOp(s, op->op, arg_val->s, has_extglob)); } new_val = Alloc(strs); } break; default: { throw Alloc(val, str1811, op->op); } } } else { assert(0); // AssertionError } return new_val; } value_asdl::value_t* AbstractWordEvaluator::_PatSub(value_asdl::value_t* val, suffix_op::PatSub* op) { value::Str* pat_val = nullptr; bool has_extglob; value_asdl::value_t* replace_val = nullptr; BigStr* replace_str = nullptr; BigStr* regex = nullptr; List* warnings = nullptr; string_ops::GlobReplacer* replacer = nullptr; value::Str* str_val = nullptr; BigStr* s = nullptr; value::BashArray* array_val = nullptr; List* strs = nullptr; value::BashAssoc* assoc_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&op); StackRoot _root2(&pat_val); StackRoot _root3(&replace_val); StackRoot _root4(&replace_str); StackRoot _root5(®ex); StackRoot _root6(&warnings); StackRoot _root7(&replacer); StackRoot _root8(&str_val); StackRoot _root9(&s); StackRoot _root10(&array_val); StackRoot _root11(&strs); StackRoot _root12(&assoc_val); Tuple2 tup1 = this->EvalWordToPattern(op->pat); pat_val = tup1.at0(); has_extglob = tup1.at1(); if (has_extglob) { e_die(str1812, op->pat); } if (op->replace) { replace_val = this->EvalRhsWord(op->replace); replace_str = static_cast(replace_val)->s; } else { replace_str = str1813; } Tuple2*> tup2 = glob_::GlobToERE(pat_val->s); regex = tup2.at0(); warnings = tup2.at1(); if (len(warnings)) { ; // pass } replacer = Alloc(regex, replace_str, op->slash_tok); switch (val->tag()) { case value_e::Str: { str_val = static_cast(val); s = replacer->Replace(str_val->s, op); val = Alloc(s); } break; case value_e::BashArray: { array_val = static_cast(val); strs = Alloc>(); for (ListIter it(array_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); if (s != nullptr) { strs->append(replacer->Replace(s, op)); } } val = Alloc(strs); } break; case value_e::BashAssoc: { assoc_val = static_cast(val); strs = Alloc>(); for (ListIter it(assoc_val->d->values()); !it.Done(); it.Next()) { BigStr* s = it.Value(); StackRoot _for(&s ); strs->append(replacer->Replace(s, op)); } val = Alloc(strs); } break; default: { throw Alloc(val, str1814, op->slash_tok); } } return val; } value_asdl::value_t* AbstractWordEvaluator::_Slice(value_asdl::value_t* val, suffix_op::Slice* op, BigStr* var_name, syntax_asdl::BracedVarSub* part) { int begin; bool has_length; int length; value::Str* arg0_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&op); StackRoot _root2(&var_name); StackRoot _root3(&part); StackRoot _root4(&arg0_val); begin = this->arith_ev->EvalToInt(op->begin); has_length = false; length = -1; if (op->length) { has_length = true; length = this->arith_ev->EvalToInt(op->length); } try { arg0_val = nullptr; if (var_name == nullptr) { arg0_val = this->mem->GetArg0(); } val = _PerformSlice(val, begin, length, has_length, part, arg0_val); } catch (error::Strict* e) { if (this->exec_opts->strict_word_eval()) { throw ; } else { this->errfmt->PrettyPrintError(e, str1815); switch (val->tag()) { case value_e::Str: { val = Alloc(str1816); } break; case value_e::BashArray: { val = Alloc(Alloc>()); } break; default: { FAIL(kNotImplemented); // Python NotImplementedError } } } } return val; } Tuple2 AbstractWordEvaluator::_Nullary(value_asdl::value_t* val, syntax_asdl::Token* op, BigStr* var_name) { value_asdl::value_t* UP_val = nullptr; bool quoted2; int op_id; BigStr* prompt = nullptr; BigStr* p = nullptr; value::Str* result = nullptr; List* tmp = nullptr; List* chars = nullptr; runtime_asdl::Cell* cell = nullptr; StackRoot _root0(&val); StackRoot _root1(&op); StackRoot _root2(&var_name); StackRoot _root3(&UP_val); StackRoot _root4(&prompt); StackRoot _root5(&p); StackRoot _root6(&result); StackRoot _root7(&tmp); StackRoot _root8(&chars); StackRoot _root9(&cell); UP_val = val; quoted2 = false; op_id = op->id; if (op_id == Id::VOp0_P) { switch (val->tag()) { case value_e::Str: { value::Str* str_val = static_cast(UP_val); prompt = this->prompt_ev->EvalPrompt(str_val); p = prompt->replace(str1817, str1818)->replace(str1819, str1820); result = Alloc(p); } break; default: { e_die(StrFormat("Can't use @P on %s", ui::ValType(val)), op); } } } else { if (op_id == Id::VOp0_Q) { switch (val->tag()) { case value_e::Str: { value::Str* str_val = static_cast(UP_val); result = Alloc(j8_lite::MaybeShellEncode(str_val->s)); quoted2 = true; } break; case value_e::BashArray: { value::BashArray* array_val = static_cast(UP_val); tmp = Alloc>(); for (ListIter it(array_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); tmp->append(j8_lite::MaybeShellEncode(s)); } result = Alloc(str1822->join(tmp)); } break; default: { e_die(StrFormat("Can't use @Q on %s", ui::ValType(val)), op); } } } else { if (op_id == Id::VOp0_a) { chars = Alloc>(); switch (val->tag()) { case value_e::BashArray: { chars->append(str1824); } break; case value_e::BashAssoc: { chars->append(str1825); } break; } if (var_name != nullptr) { cell = this->mem->GetCell(var_name); if (cell) { if (cell->readonly) { chars->append(str1826); } if (cell->exported) { chars->append(str1827); } if (cell->nameref) { chars->append(str1828); } } } result = Alloc(str1829->join(chars)); } else { e_die(StrFormat("Var op %r not implemented", lexer::TokenVal(op)), op); } } } return Tuple2(result, quoted2); } value_asdl::value_t* AbstractWordEvaluator::_WholeArray(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state) { int op_id; value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&part); StackRoot _root2(&vsub_state); StackRoot _root3(&UP_val); op_id = static_cast(part->bracket_op)->op_id; if (op_id == Id::Lit_At) { vsub_state->join_array = !quoted; UP_val = val; switch (val->tag()) { case value_e::Undef: { if (!vsub_state->has_test_op) { val = this->_EmptyBashArrayOrError(part->token); } } break; case value_e::Str: { if (this->exec_opts->strict_array()) { e_die(str1831, Alloc(part)); } } break; case value_e::BashArray: { ; // pass } break; } } else { if (op_id == Id::Arith_Star) { vsub_state->join_array = true; UP_val = val; switch (val->tag()) { case value_e::Undef: { if (!vsub_state->has_test_op) { val = this->_EmptyBashArrayOrError(part->token); } } break; case value_e::Str: { if (this->exec_opts->strict_array()) { e_die(str1832, Alloc(part)); } } break; case value_e::BashArray: { ; // pass } break; } } else { assert(0); // AssertionError } } return val; } value_asdl::value_t* AbstractWordEvaluator::_ArrayIndex(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, runtime_asdl::VTestPlace* vtest_place) { syntax_asdl::arith_expr_t* anode = nullptr; value_asdl::value_t* UP_val = nullptr; int index; BigStr* s = nullptr; BigStr* key = nullptr; StackRoot _root0(&val); StackRoot _root1(&part); StackRoot _root2(&vtest_place); StackRoot _root3(&anode); StackRoot _root4(&UP_val); StackRoot _root5(&s); StackRoot _root6(&key); anode = static_cast(part->bracket_op)->expr; UP_val = val; switch (val->tag()) { case value_e::Undef: { ; // pass } break; case value_e::Str: { e_die(StrFormat("Can't index string %r with integer", part->var_name), part->token); } break; case value_e::BashArray: { value::BashArray* array_val = static_cast(UP_val); index = this->arith_ev->EvalToInt(anode); vtest_place->index = Alloc(index); s = GetArrayItem(array_val->strs, index); if (s == nullptr) { val = value::Undef; } else { val = Alloc(s); } } break; case value_e::BashAssoc: { value::BashAssoc* assoc_val = static_cast(UP_val); key = this->arith_ev->EvalWordToString(anode, location::TokenForArith(anode)); vtest_place->index = Alloc(key); s = assoc_val->d->get(key); if (s == nullptr) { val = value::Undef; } else { val = Alloc(s); } } break; default: { throw Alloc(val, str1834, Alloc(part)); } } return val; } void AbstractWordEvaluator::_EvalDoubleQuoted(List* parts, List* part_vals) { runtime_asdl::Piece* v = nullptr; StackRoot _root0(&parts); StackRoot _root1(&part_vals); StackRoot _root2(&v); if (len(parts) == 0) { v = Alloc(str1835, true, false); part_vals->append(v); return ; } for (ListIter it(parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* p = it.Value(); StackRoot _for(&p ); this->_EvalWordPart(p, part_vals, QUOTED); } } BigStr* AbstractWordEvaluator::EvalDoubleQuotedToString(syntax_asdl::DoubleQuoted* dq_part) { List* part_vals = nullptr; StackRoot _root0(&dq_part); StackRoot _root1(&part_vals); part_vals = Alloc>(); this->_EvalDoubleQuoted(dq_part->parts, part_vals); return this->_ConcatPartVals(part_vals, dq_part->left); } value::Str* AbstractWordEvaluator::_DecayArray(value::BashArray* val) { BigStr* sep = nullptr; List* tmp = nullptr; StackRoot _root0(&val); StackRoot _root1(&sep); StackRoot _root2(&tmp); sep = this->splitter->GetJoinChar(); tmp = Alloc>(); for (ListIter it(val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (s != nullptr) { tmp->append(s); } } return Alloc(sep->join(tmp)); } value_asdl::value_t* AbstractWordEvaluator::_EmptyStrOrError(value_asdl::value_t* val, syntax_asdl::Token* token) { BigStr* tok_str = nullptr; BigStr* name = nullptr; StackRoot _root0(&val); StackRoot _root1(&token); StackRoot _root2(&tok_str); StackRoot _root3(&name); if (val->tag() != value_e::Undef) { return val; } if (!this->exec_opts->nounset()) { return Alloc(str1836); } tok_str = lexer::TokenVal(token); name = tok_str->startswith(str1837) ? tok_str->slice(1) : tok_str; e_die(StrFormat("Undefined variable %r", name), token); } value_asdl::value_t* AbstractWordEvaluator::_EmptyBashArrayOrError(syntax_asdl::Token* token) { StackRoot _root0(&token); if (this->exec_opts->nounset()) { e_die(StrFormat("Undefined array %r", lexer::TokenVal(token)), token); } else { return Alloc(Alloc>()); } } value_asdl::value_t* AbstractWordEvaluator::_EvalBracketOp(value_asdl::value_t* val, syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place) { BigStr* var_name = nullptr; StackRoot _root0(&val); StackRoot _root1(&part); StackRoot _root2(&vsub_state); StackRoot _root3(&vtest_place); StackRoot _root4(&var_name); if (part->bracket_op) { switch (part->bracket_op->tag()) { case bracket_op_e::WholeArray: { val = this->_WholeArray(val, part, quoted, vsub_state); } break; case bracket_op_e::ArrayIndex: { val = this->_ArrayIndex(val, part, vtest_place); } break; default: { assert(0); // AssertionError } } } else { var_name = vtest_place->name; if ((var_name != nullptr and ((val->tag() == value_e::BashArray || val->tag() == value_e::BashAssoc) and !vsub_state->is_type_query))) { if (ShouldArrayDecay(var_name, this->exec_opts, !(part->prefix_op or part->suffix_op))) { val = DecayArray(val); } else { e_die(StrFormat("Array %r can't be referred to as a scalar (without @ or *)", var_name), Alloc(part)); } } } return val; } value_asdl::value_t* AbstractWordEvaluator::_VarRefValue(syntax_asdl::BracedVarSub* part, bool quoted, runtime_asdl::VarSubState* vsub_state, runtime_asdl::VTestPlace* vtest_place) { value_asdl::value_t* val = nullptr; int var_num; StackRoot _root0(&part); StackRoot _root1(&vsub_state); StackRoot _root2(&vtest_place); StackRoot _root3(&val); if (part->token->id == Id::VSub_Name) { vtest_place->name = part->var_name; val = this->mem->GetValue(part->var_name); } else { if (part->token->id == Id::VSub_Number) { var_num = to_int(part->var_name); val = this->_EvalVarNum(var_num); } else { val = this->_EvalSpecialVar(part->token->id, quoted, vsub_state); } } if (this->exec_opts->eval_unsafe_arith()) { val = this->_EvalBracketOp(val, part, quoted, vsub_state, vtest_place); } else { { // with state::ctx_Option ctx{this->mutable_opts, NewList(std::initializer_list{option_i::_allow_command_sub}), false}; val = this->_EvalBracketOp(val, part, quoted, vsub_state, vtest_place); } } return val; } void AbstractWordEvaluator::_EvalBracedVarSub(syntax_asdl::BracedVarSub* part, List* part_vals, bool quoted) { BigStr* var_name = nullptr; runtime_asdl::VTestPlace* vtest_place = nullptr; runtime_asdl::VarSubState* vsub_state = nullptr; Token* nullary_op = nullptr; List* names = nullptr; BigStr* sep = nullptr; value_asdl::value_t* val = nullptr; int var_num; syntax_asdl::suffix_op_t* suffix_op_ = nullptr; syntax_asdl::suffix_op_t* UP_op = nullptr; int n; syntax_asdl::Token* op_tok = nullptr; bool quoted2; syntax_asdl::suffix_op_t* op = nullptr; value_asdl::value_t* UP_val = nullptr; runtime_asdl::part_value_t* part_val = nullptr; StackRoot _root0(&part); StackRoot _root1(&part_vals); StackRoot _root2(&var_name); StackRoot _root3(&vtest_place); StackRoot _root4(&vsub_state); StackRoot _root5(&nullary_op); StackRoot _root6(&names); StackRoot _root7(&sep); StackRoot _root8(&val); StackRoot _root9(&suffix_op_); StackRoot _root10(&UP_op); StackRoot _root11(&op_tok); StackRoot _root12(&op); StackRoot _root13(&UP_val); StackRoot _root14(&part_val); var_name = nullptr; vtest_place = Alloc(var_name, nullptr); vsub_state = VarSubState::CreateNull(); if (part->token->id == Id::VSub_Name) { if ((part->prefix_op != nullptr and (part->bracket_op == nullptr and (part->suffix_op != nullptr and part->suffix_op->tag() == suffix_op_e::Nullary)))) { nullary_op = static_cast(part->suffix_op); if (consts::GetKind(nullary_op->id) == Kind::VOp3) { names = this->mem->VarNamesStartingWith(part->var_name); names->sort(); if ((quoted and nullary_op->id == Id::VOp3_At)) { part_vals->append(Alloc(names)); } else { sep = this->splitter->GetJoinChar(); part_vals->append(Alloc(sep->join(names), quoted, true)); } return ; } } var_name = part->var_name; vtest_place->name = var_name; val = this->mem->GetValue(var_name); } else { if (part->token->id == Id::VSub_Number) { var_num = to_int(part->var_name); val = this->_EvalVarNum(var_num); } else { val = this->_EvalSpecialVar(part->token->id, quoted, vsub_state); } } suffix_op_ = part->suffix_op; if (suffix_op_) { UP_op = suffix_op_; switch (suffix_op_->tag()) { case suffix_op_e::Nullary: { Token* suffix_op_ = static_cast(UP_op); if (suffix_op_->id == Id::VOp0_a) { vsub_state->is_type_query = true; } } break; case suffix_op_e::Unary: { suffix_op::Unary* suffix_op_ = static_cast(UP_op); if (consts::GetKind(suffix_op_->op->id) == Kind::VTest) { vsub_state->has_test_op = true; } } break; } } val = this->_EvalBracketOp(val, part, quoted, vsub_state, vtest_place); if (part->prefix_op) { if (part->prefix_op->id == Id::VSub_Pound) { if (!vsub_state->has_test_op) { val = this->_EmptyStrOrError(val, part->token); } n = this->_Length(val, part->token); part_vals->append(Alloc(str(n), quoted, false)); return ; } else { if (part->prefix_op->id == Id::VSub_Bang) { if ((part->bracket_op and part->bracket_op->tag() == bracket_op_e::WholeArray)) { if (vsub_state->has_test_op) { op_tok = static_cast(UP_op)->op; e_die(str1841, op_tok); } val = this->_Keys(val, part->token); } else { vtest_place->name = nullptr; vtest_place->index = nullptr; val = this->_EvalVarRef(val, part->token, quoted, vsub_state, vtest_place); if (!vsub_state->has_test_op) { val = this->_EmptyStrOrError(val, part->token); } } } else { assert(0); // AssertionError } } } else { if (!vsub_state->has_test_op) { val = this->_EmptyStrOrError(val, part->token); } } quoted2 = false; if (suffix_op_) { op = suffix_op_; switch (suffix_op_->tag()) { case suffix_op_e::Nullary: { Token* op = static_cast(UP_op); Tuple2 tup3 = this->_Nullary(val, op, var_name); val = tup3.at0(); quoted2 = tup3.at1(); } break; case suffix_op_e::Unary: { suffix_op::Unary* op = static_cast(UP_op); if (consts::GetKind(op->op->id) == Kind::VTest) { if (this->_ApplyTestOp(val, op, quoted, part_vals, vtest_place, part->token)) { return ; } } else { val = this->_ApplyUnarySuffixOp(val, op); } } break; case suffix_op_e::PatSub: { suffix_op::PatSub* op = static_cast(UP_op); val = this->_PatSub(val, op); } break; case suffix_op_e::Slice: { suffix_op::Slice* op = static_cast(UP_op); val = this->_Slice(val, op, var_name, part); } break; case suffix_op_e::Static: { suffix_op::Static* op = static_cast(UP_op); e_die(str1842, op->tok); } break; default: { assert(0); // AssertionError } } } UP_val = val; if (val->tag() == value_e::BashArray) { value::BashArray* array_val = static_cast(UP_val); if (vsub_state->join_array) { val = this->_DecayArray(array_val); } else { val = array_val; } } part_val = _ValueToPartValue(val, (quoted or quoted2), part); part_vals->append(part_val); } BigStr* AbstractWordEvaluator::_ConcatPartVals(List* part_vals, syntax_asdl::loc_t* location) { List* strs = nullptr; runtime_asdl::part_value_t* UP_part_val = nullptr; BigStr* s = nullptr; List* tmp = nullptr; StackRoot _root0(&part_vals); StackRoot _root1(&location); StackRoot _root2(&strs); StackRoot _root3(&UP_part_val); StackRoot _root4(&s); StackRoot _root5(&tmp); strs = Alloc>(); for (ListIter it(part_vals); !it.Done(); it.Next()) { runtime_asdl::part_value_t* part_val = it.Value(); StackRoot _for(&part_val ); UP_part_val = part_val; switch (part_val->tag()) { case part_value_e::String: { Piece* part_val = static_cast(UP_part_val); s = part_val->s; } break; case part_value_e::Array: { part_value::Array* part_val = static_cast(UP_part_val); if (this->exec_opts->strict_array()) { e_die(str1843, location); } else { tmp = Alloc>(); for (ListIter it(part_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (s != nullptr) { tmp->append(s); } } s = str1844->join(tmp); } } break; default: { assert(0); // AssertionError } } strs->append(s); } return str1845->join(strs); } BigStr* AbstractWordEvaluator::EvalBracedVarSubToString(syntax_asdl::BracedVarSub* part) { List* part_vals = nullptr; StackRoot _root0(&part); StackRoot _root1(&part_vals); part_vals = Alloc>(); this->_EvalBracedVarSub(part, part_vals, false); return this->_ConcatPartVals(part_vals, part->left); } void AbstractWordEvaluator::_EvalSimpleVarSub(syntax_asdl::SimpleVarSub* part, List* part_vals, bool quoted) { syntax_asdl::Token* token = nullptr; runtime_asdl::VarSubState* vsub_state = nullptr; BigStr* var_name = nullptr; value_asdl::value_t* val = nullptr; int var_num; value_asdl::value_t* UP_val = nullptr; runtime_asdl::part_value_t* v = nullptr; StackRoot _root0(&part); StackRoot _root1(&part_vals); StackRoot _root2(&token); StackRoot _root3(&vsub_state); StackRoot _root4(&var_name); StackRoot _root5(&val); StackRoot _root6(&UP_val); StackRoot _root7(&v); token = part->tok; vsub_state = VarSubState::CreateNull(); if (token->id == Id::VSub_DollarName) { var_name = lexer::LazyStr(token); val = this->mem->GetValue(var_name); if ((val->tag() == value_e::BashArray || val->tag() == value_e::BashAssoc)) { if (ShouldArrayDecay(var_name, this->exec_opts)) { val = DecayArray(val); } else { e_die(StrFormat("Array %r can't be referred to as a scalar (without @ or *)", var_name), token); } } } else { if (token->id == Id::VSub_Number) { var_num = to_int(lexer::LazyStr(token)); val = this->_EvalVarNum(var_num); } else { val = this->_EvalSpecialVar(token->id, quoted, vsub_state); } } val = this->_EmptyStrOrError(val, token); UP_val = val; if (val->tag() == value_e::BashArray) { value::BashArray* array_val = static_cast(UP_val); if (vsub_state->join_array) { val = this->_DecayArray(array_val); } else { val = array_val; } } v = _ValueToPartValue(val, quoted, part); part_vals->append(v); } BigStr* AbstractWordEvaluator::EvalSimpleVarSubToString(syntax_asdl::SimpleVarSub* node) { List* part_vals = nullptr; StackRoot _root0(&node); StackRoot _root1(&part_vals); part_vals = Alloc>(); this->_EvalSimpleVarSub(node, part_vals, false); return this->_ConcatPartVals(part_vals, node->tok); } void AbstractWordEvaluator::_EvalExtGlob(word_part::ExtGlob* part, List* part_vals) { syntax_asdl::Token* op = nullptr; BigStr* op_str = nullptr; int i; StackRoot _root0(&part); StackRoot _root1(&part_vals); StackRoot _root2(&op); StackRoot _root3(&op_str); op = part->op; if (op->id == Id::ExtGlob_Comma) { op_str = str1847; } else { op_str = lexer::LazyStr(op); } part_vals->append(Alloc(op_str, false, false)); i = 0; for (ListIter it(part->arms); !it.Done(); it.Next(), ++i) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); if (i != 0) { part_vals->append(Alloc(str1848, false, false)); } this->_EvalWordToParts(w, part_vals, EXTGLOB_NESTED); } part_vals->append(Alloc(str1849, false, false)); } void AbstractWordEvaluator::_TranslateExtGlob(List* part_vals, syntax_asdl::CompoundWord* w, List* glob_parts, List* fnmatch_parts) { int i; runtime_asdl::part_value_t* UP_part_val = nullptr; BigStr* s = nullptr; StackRoot _root0(&part_vals); StackRoot _root1(&w); StackRoot _root2(&glob_parts); StackRoot _root3(&fnmatch_parts); StackRoot _root4(&UP_part_val); StackRoot _root5(&s); i = 0; for (ListIter it(part_vals); !it.Done(); it.Next(), ++i) { runtime_asdl::part_value_t* part_val = it.Value(); StackRoot _for(&part_val ); UP_part_val = part_val; switch (part_val->tag()) { case part_value_e::String: { Piece* part_val = static_cast(UP_part_val); if ((part_val->quoted and !this->exec_opts->noglob())) { s = glob_::GlobEscape(part_val->s); } else { s = part_val->s; } glob_parts->append(s); fnmatch_parts->append(s); } break; case part_value_e::Array: { e_die(str1850, w); } break; case part_value_e::ExtGlob: { part_value::ExtGlob* part_val = static_cast(UP_part_val); this->_TranslateExtGlob(part_val->part_vals, w, Alloc>(), fnmatch_parts); glob_parts->append(str1851); } break; default: { assert(0); // AssertionError } } } } void AbstractWordEvaluator::_EvalWordPart(syntax_asdl::word_part_t* part, List* part_vals, int flags) { bool quoted; bool is_subst; syntax_asdl::word_part_t* UP_part = nullptr; runtime_asdl::Piece* v = nullptr; int id_; runtime_asdl::part_value_t* sv = nullptr; BigStr* s = nullptr; mops::BigInt num; List* part_vals2 = nullptr; value_asdl::value_t* val = nullptr; List* strs = nullptr; runtime_asdl::part_value_t* part_val = nullptr; StackRoot _root0(&part); StackRoot _root1(&part_vals); StackRoot _root2(&UP_part); StackRoot _root3(&v); StackRoot _root4(&sv); StackRoot _root5(&s); StackRoot _root6(&part_vals2); StackRoot _root7(&val); StackRoot _root8(&strs); StackRoot _root9(&part_val); quoted = to_bool((flags & QUOTED)); is_subst = to_bool((flags & IS_SUBST)); UP_part = part; switch (part->tag()) { case word_part_e::ShArrayLiteral: { ShArrayLiteral* part = static_cast(UP_part); e_die(str1852, Alloc(part)); } break; case word_part_e::BashAssocLiteral: { word_part::BashAssocLiteral* part = static_cast(UP_part); e_die(str1853, Alloc(part)); } break; case word_part_e::Literal: { Token* part = static_cast(UP_part); v = Alloc(lexer::LazyStr(part), quoted, is_subst); part_vals->append(v); } break; case word_part_e::EscapedLiteral: { word_part::EscapedLiteral* part = static_cast(UP_part); v = Alloc(part->ch, true, false); part_vals->append(v); } break; case word_part_e::SingleQuoted: { SingleQuoted* part = static_cast(UP_part); v = Alloc(part->sval, true, false); part_vals->append(v); } break; case word_part_e::DoubleQuoted: { DoubleQuoted* part = static_cast(UP_part); this->_EvalDoubleQuoted(part->parts, part_vals); } break; case word_part_e::CommandSub: { CommandSub* part = static_cast(UP_part); id_ = part->left_token->id; if ((id_ == Id::Left_DollarParen || id_ == Id::Left_AtParen || id_ == Id::Left_Backtick)) { sv = this->_EvalCommandSub(part, quoted); } else { if ((id_ == Id::Left_ProcSubIn || id_ == Id::Left_ProcSubOut)) { sv = this->_EvalProcessSub(part); } else { assert(0); // AssertionError } } part_vals->append(sv); } break; case word_part_e::SimpleVarSub: { SimpleVarSub* part = static_cast(UP_part); this->_EvalSimpleVarSub(part, part_vals, quoted); } break; case word_part_e::BracedVarSub: { BracedVarSub* part = static_cast(UP_part); this->_EvalBracedVarSub(part, part_vals, quoted); } break; case word_part_e::TildeSub: { word_part::TildeSub* part = static_cast(UP_part); s = this->tilde_ev->Eval(part); v = Alloc(s, true, false); part_vals->append(v); } break; case word_part_e::ArithSub: { word_part::ArithSub* part = static_cast(UP_part); num = this->arith_ev->EvalToBigInt(part->anode); v = Alloc(mops::ToStr(num), quoted, !quoted); part_vals->append(v); } break; case word_part_e::ExtGlob: { word_part::ExtGlob* part = static_cast(UP_part); part_vals2 = Alloc>(); this->_EvalExtGlob(part, part_vals2); part_vals->append(Alloc(part_vals2)); } break; case word_part_e::BashRegexGroup: { word_part::BashRegexGroup* part = static_cast(UP_part); part_vals->append(Alloc(str1854, false, false)); if (part->child) { this->_EvalWordToParts(part->child, part_vals, 0); } part_vals->append(Alloc(str1855, false, false)); } break; case word_part_e::Splice: { word_part::Splice* part = static_cast(UP_part); val = this->mem->GetValue(part->var_name); strs = this->expr_ev->SpliceValue(val, part); part_vals->append(Alloc(strs)); } break; case word_part_e::ExprSub: { word_part::ExprSub* part = static_cast(UP_part); part_val = this->expr_ev->EvalExprSub(part); part_vals->append(part_val); } break; case word_part_e::ZshVarSub: { word_part::ZshVarSub* part = static_cast(UP_part); e_die(str1856, part->left); } break; default: { assert(0); // AssertionError } } } void AbstractWordEvaluator::_EvalRhsWordToParts(syntax_asdl::rhs_word_t* w, List* part_vals, int eval_flags) { bool quoted; syntax_asdl::rhs_word_t* UP_w = nullptr; StackRoot _root0(&w); StackRoot _root1(&part_vals); StackRoot _root2(&UP_w); quoted = to_bool((eval_flags & QUOTED)); UP_w = w; switch (w->tag()) { case rhs_word_e::Empty: { part_vals->append(Alloc(str1857, quoted, !quoted)); } break; case rhs_word_e::Compound: { CompoundWord* w = static_cast(UP_w); this->_EvalWordToParts(w, part_vals, eval_flags); } break; default: { assert(0); // AssertionError } } } void AbstractWordEvaluator::_EvalWordToParts(syntax_asdl::CompoundWord* w, List* part_vals, int eval_flags) { List* word_part_vals = nullptr; bool has_extglob; List* glob_parts = nullptr; List* fnmatch_parts = nullptr; BigStr* glob_pat = nullptr; BigStr* fnmatch_pat = nullptr; List* results = nullptr; int n; StackRoot _root0(&w); StackRoot _root1(&part_vals); StackRoot _root2(&word_part_vals); StackRoot _root3(&glob_parts); StackRoot _root4(&fnmatch_parts); StackRoot _root5(&glob_pat); StackRoot _root6(&fnmatch_pat); StackRoot _root7(&results); word_part_vals = Alloc>(); has_extglob = false; for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* p = it.Value(); StackRoot _for(&p ); if (p->tag() == word_part_e::ExtGlob) { has_extglob = true; } this->_EvalWordPart(p, word_part_vals, eval_flags); } if (has_extglob) { if (to_bool((eval_flags & EXTGLOB_FILES))) { glob_parts = Alloc>(); fnmatch_parts = Alloc>(); this->_TranslateExtGlob(word_part_vals, w, glob_parts, fnmatch_parts); glob_pat = str1858->join(glob_parts); fnmatch_pat = str1859->join(fnmatch_parts); results = Alloc>(); n = this->globber->ExpandExtended(glob_pat, fnmatch_pat, results); if (n < 0) { throw Alloc(StrFormat("Extended glob %r matched no files", fnmatch_pat), w); } part_vals->append(Alloc(results)); } else { if (to_bool((eval_flags & EXTGLOB_NESTED))) { part_vals->extend(word_part_vals); } else { e_die(str1861, w); } } } else { part_vals->extend(word_part_vals); } } void AbstractWordEvaluator::_PartValsToString(List* part_vals, syntax_asdl::CompoundWord* w, int eval_flags, List* strs) { runtime_asdl::part_value_t* UP_part_val = nullptr; BigStr* s = nullptr; List* tmp = nullptr; StackRoot _root0(&part_vals); StackRoot _root1(&w); StackRoot _root2(&strs); StackRoot _root3(&UP_part_val); StackRoot _root4(&s); StackRoot _root5(&tmp); for (ListIter it(part_vals); !it.Done(); it.Next()) { runtime_asdl::part_value_t* part_val = it.Value(); StackRoot _for(&part_val ); UP_part_val = part_val; switch (part_val->tag()) { case part_value_e::String: { Piece* part_val = static_cast(UP_part_val); s = part_val->s; if (part_val->quoted) { if ((eval_flags & QUOTE_FNMATCH)) { s = glob_::GlobEscape(s); } else { if ((eval_flags & QUOTE_ERE)) { s = glob_::ExtendedRegexEscape(s); } } } strs->append(s); } break; case part_value_e::Array: { part_value::Array* part_val = static_cast(UP_part_val); if (this->exec_opts->strict_array()) { e_die(str1862, w); } else { tmp = Alloc>(); for (ListIter it(part_val->strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); if (s != nullptr) { tmp->append(s); } } s = str1863->join(tmp); strs->append(s); } } break; case part_value_e::ExtGlob: { part_value::ExtGlob* part_val = static_cast(UP_part_val); if (!to_bool((eval_flags & QUOTE_FNMATCH))) { e_die(str1864, w); } this->_PartValsToString(part_val->part_vals, w, eval_flags, strs); } break; default: { assert(0); // AssertionError } } } } value::Str* AbstractWordEvaluator::EvalWordToString(syntax_asdl::word_t* UP_w, int eval_flags) { BigStr* fast_str = nullptr; List* part_vals = nullptr; List* strs = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&fast_str); StackRoot _root2(&part_vals); StackRoot _root3(&strs); CompoundWord* w = static_cast(UP_w); if (eval_flags == 0) { fast_str = word_::FastStrEval(w); if (fast_str != nullptr) { return Alloc(fast_str); } } part_vals = Alloc>(); for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* p = it.Value(); StackRoot _for(&p ); this->_EvalWordPart(p, part_vals, 0); } strs = Alloc>(); this->_PartValsToString(part_vals, w, eval_flags, strs); return Alloc(str1865->join(strs)); } Tuple2 AbstractWordEvaluator::EvalWordToPattern(syntax_asdl::rhs_word_t* UP_w) { bool has_extglob; List* part_vals = nullptr; List* strs = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&part_vals); StackRoot _root2(&strs); if (UP_w->tag() == rhs_word_e::Empty) { return Tuple2(Alloc(str1866), false); } CompoundWord* w = static_cast(UP_w); has_extglob = false; part_vals = Alloc>(); for (ListIter it(w->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* p = it.Value(); StackRoot _for(&p ); this->_EvalWordPart(p, part_vals, 0); if (p->tag() == word_part_e::ExtGlob) { has_extglob = true; } } strs = Alloc>(); this->_PartValsToString(part_vals, w, QUOTE_FNMATCH, strs); return Tuple2(Alloc(str1867->join(strs)), has_extglob); } value::Str* AbstractWordEvaluator::EvalForPlugin(syntax_asdl::CompoundWord* w) { value::Str* val = nullptr; StackRoot _root0(&w); StackRoot _root1(&val); { // with state::ctx_Registers ctx{this->mem}; try { val = this->EvalWordToString(w); } catch (error::FatalRuntime* e) { val = Alloc(StrFormat("", e->UserErrorString())); } catch (IOError_OSError* e) { val = Alloc(StrFormat("", pyutil::strerror(e))); } catch (KeyboardInterrupt*) { val = Alloc(str1870); } } return val; } value_asdl::value_t* AbstractWordEvaluator::EvalRhsWord(syntax_asdl::rhs_word_t* UP_w) { syntax_asdl::word_part_t* part0 = nullptr; syntax_asdl::word_part_t* UP_part0 = nullptr; int tag; List* array_words = nullptr; List* words = nullptr; List* strs = nullptr; Dict* d = nullptr; value::Str* k = nullptr; value::Str* v = nullptr; StackRoot _root0(&UP_w); StackRoot _root1(&part0); StackRoot _root2(&UP_part0); StackRoot _root3(&array_words); StackRoot _root4(&words); StackRoot _root5(&strs); StackRoot _root6(&d); StackRoot _root7(&k); StackRoot _root8(&v); if (UP_w->tag() == rhs_word_e::Empty) { return Alloc(str1871); } CompoundWord* w = static_cast(UP_w); if (len(w->parts) == 1) { part0 = w->parts->at(0); UP_part0 = part0; tag = part0->tag(); if (tag == word_part_e::ShArrayLiteral) { ShArrayLiteral* part0 = static_cast(UP_part0); array_words = part0->words; words = braces::BraceExpandWords(array_words); strs = this->EvalWordSequence(words); return Alloc(strs); } if (tag == word_part_e::BashAssocLiteral) { word_part::BashAssocLiteral* part0 = static_cast(UP_part0); d = Alloc>(); for (ListIter it(part0->pairs); !it.Done(); it.Next()) { syntax_asdl::AssocPair* pair = it.Value(); StackRoot _for(&pair ); k = this->EvalWordToString(pair->key); v = this->EvalWordToString(pair->value); d->set(k->s, v->s); } return Alloc(d); } } return this->EvalWordToString(w); } void AbstractWordEvaluator::_EvalWordFrame(List* frame, List* argv) { bool all_empty; bool all_quoted; bool any_quoted; List* tmp = nullptr; BigStr* a = nullptr; bool will_glob; List* frags = nullptr; BigStr* frag = nullptr; BigStr* flat = nullptr; List* args = nullptr; int n; StackRoot _root0(&frame); StackRoot _root1(&argv); StackRoot _root2(&tmp); StackRoot _root3(&a); StackRoot _root4(&frags); StackRoot _root5(&frag); StackRoot _root6(&flat); StackRoot _root7(&args); all_empty = true; all_quoted = true; any_quoted = false; for (ListIter it(frame); !it.Done(); it.Next()) { runtime_asdl::Piece* piece = it.Value(); StackRoot _for(&piece ); if (len(piece->s)) { all_empty = false; } if (piece->quoted) { any_quoted = true; } else { all_quoted = false; } } if ((all_empty and !any_quoted)) { return ; } if (all_quoted) { tmp = Alloc>(); for (ListIter it(frame); !it.Done(); it.Next()) { runtime_asdl::Piece* piece = it.Value(); tmp->append(piece->s); } a = str1872->join(tmp); argv->append(a); return ; } will_glob = !this->exec_opts->noglob(); frags = Alloc>(); for (ListIter it(frame); !it.Done(); it.Next()) { runtime_asdl::Piece* piece = it.Value(); StackRoot _for(&piece ); if ((will_glob and piece->quoted)) { frag = glob_::GlobEscape(piece->s); } else { frag = _BackslashEscape(piece->s); } if (piece->do_split) { frag = _BackslashEscape(frag); } else { frag = this->splitter->Escape(frag); } frags->append(frag); } flat = str1873->join(frags); args = this->splitter->SplitForWordEval(flat); if ((len(args) == 0 and any_quoted)) { argv->append(str1874); return ; } for (ListIter it(args); !it.Done(); it.Next()) { BigStr* a = it.Value(); StackRoot _for(&a ); if (glob_::LooksLikeGlob(a)) { n = this->globber->Expand(a, argv); if (n < 0) { throw Alloc(StrFormat("Pattern %r matched no files", a), loc::Missing); } } else { argv->append(glob_::GlobUnescape(a)); } } } List* AbstractWordEvaluator::_EvalWordToArgv(syntax_asdl::CompoundWord* w) { List* part_vals = nullptr; List*>* frames = nullptr; List* argv = nullptr; List* tmp = nullptr; StackRoot _root0(&w); StackRoot _root1(&part_vals); StackRoot _root2(&frames); StackRoot _root3(&argv); StackRoot _root4(&tmp); part_vals = Alloc>(); this->_EvalWordToParts(w, part_vals, 0); frames = _MakeWordFrames(part_vals); argv = Alloc>(); for (ListIter*> it(frames); !it.Done(); it.Next()) { List* frame = it.Value(); StackRoot _for(&frame ); if (len(frame)) { tmp = Alloc>(); for (ListIter it(frame); !it.Done(); it.Next()) { runtime_asdl::Piece* piece = it.Value(); tmp->append(piece->s); } argv->append(str1876->join(tmp)); } } return argv; } cmd_value::Assign* AbstractWordEvaluator::_EvalAssignBuiltin(int builtin_id, BigStr* arg0, List* words, int meta_offset) { bool eval_to_pairs; bool started_pairs; List* flags = nullptr; List* flag_locs = nullptr; List* assign_args = nullptr; int n; syntax_asdl::CompoundWord* w = nullptr; syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* close_token = nullptr; int part_offset; BigStr* var_name = nullptr; bool append; syntax_asdl::rhs_word_t* rhs = nullptr; syntax_asdl::CompoundWord* tmp = nullptr; value_asdl::value_t* right = nullptr; runtime_asdl::AssignArg* arg2 = nullptr; List* argv = nullptr; StackRoot _root0(&arg0); StackRoot _root1(&words); StackRoot _root2(&flags); StackRoot _root3(&flag_locs); StackRoot _root4(&assign_args); StackRoot _root5(&w); StackRoot _root6(&left_token); StackRoot _root7(&close_token); StackRoot _root8(&var_name); StackRoot _root9(&rhs); StackRoot _root10(&tmp); StackRoot _root11(&right); StackRoot _root12(&arg2); StackRoot _root13(&argv); eval_to_pairs = true; started_pairs = false; flags = NewList(std::initializer_list{arg0}); flag_locs = NewList(std::initializer_list{words->at(0)}); assign_args = Alloc>(); n = len(words); for (int i = (meta_offset + 1); i < n; ++i) { w = words->at(i); if (word_::IsVarLike(w)) { started_pairs = true; } if (started_pairs) { Tuple3 tup4 = word_::DetectShAssignment(w); left_token = tup4.at0(); close_token = tup4.at1(); part_offset = tup4.at2(); if (left_token) { if (left_token->id != Id::Lit_VarLike) { e_die(str1877, w); } if (lexer::IsPlusEquals(left_token)) { var_name = lexer::TokenSliceRight(left_token, -2); append = true; } else { var_name = lexer::TokenSliceRight(left_token, -1); append = false; } if (part_offset == len(w->parts)) { rhs = rhs_word::Empty; } else { tmp = Alloc(w->parts->slice(part_offset)); word_::TildeDetectAssign(tmp); rhs = tmp; } { // with state::ctx_AssignBuiltin ctx{this->mutable_opts}; right = this->EvalRhsWord(rhs); } arg2 = Alloc(var_name, right, append, w); assign_args->append(arg2); } else { argv = this->_EvalWordToArgv(w); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* arg = it.Value(); StackRoot _for(&arg ); arg2 = _SplitAssignArg(arg, w); assign_args->append(arg2); } } } else { argv = this->_EvalWordToArgv(w); for (ListIter it(argv); !it.Done(); it.Next()) { BigStr* arg = it.Value(); StackRoot _for(&arg ); if ((arg->startswith(str1878) or arg->startswith(str1879))) { flags->append(arg); flag_locs->append(w); if ((str_contains(arg, str1880) or str_contains(arg, str1881))) { eval_to_pairs = false; } } else { if (eval_to_pairs) { arg2 = _SplitAssignArg(arg, w); assign_args->append(arg2); started_pairs = true; } else { flags->append(arg); } } } } } return Alloc(builtin_id, flags, flag_locs, assign_args); } cmd_value::Assign* AbstractWordEvaluator::_DetectAssignBuiltinStr(BigStr* arg0, List* words, int meta_offset) { int builtin_id; StackRoot _root0(&arg0); StackRoot _root1(&words); builtin_id = consts::LookupAssignBuiltin(arg0); if (builtin_id != consts::NO_INDEX) { return this->_EvalAssignBuiltin(builtin_id, arg0, words, meta_offset); } return nullptr; } cmd_value::Assign* AbstractWordEvaluator::_DetectAssignBuiltin(runtime_asdl::part_value_t* val0, List* words, int meta_offset) { runtime_asdl::part_value_t* UP_val0 = nullptr; StackRoot _root0(&val0); StackRoot _root1(&words); StackRoot _root2(&UP_val0); UP_val0 = val0; if (val0->tag() == part_value_e::String) { Piece* val0 = static_cast(UP_val0); if (!val0->quoted) { return this->_DetectAssignBuiltinStr(val0->s, words, meta_offset); } } return nullptr; } runtime_asdl::cmd_value_t* AbstractWordEvaluator::SimpleEvalWordSequence2(List* words, bool allow_assign) { List* strs = nullptr; List* locs = nullptr; int meta_offset; int i; List* strs0 = nullptr; cmd_value::Assign* cmd_val = nullptr; value::Str* val = nullptr; int num_appended; List* part_vals = nullptr; List*>* frames = nullptr; List* tmp = nullptr; StackRoot _root0(&words); StackRoot _root1(&strs); StackRoot _root2(&locs); StackRoot _root3(&strs0); StackRoot _root4(&cmd_val); StackRoot _root5(&val); StackRoot _root6(&part_vals); StackRoot _root7(&frames); StackRoot _root8(&tmp); strs = Alloc>(); locs = Alloc>(); meta_offset = 0; i = 0; for (ListIter it(words); !it.Done(); it.Next(), ++i) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); if ((i == meta_offset and allow_assign)) { strs0 = this->_EvalWordToArgv(w); if (len(strs0) == 1) { cmd_val = this->_DetectAssignBuiltinStr(strs0->at(0), words, meta_offset); if (cmd_val) { return cmd_val; } } strs->extend(strs0); for (ListIter it(strs0); !it.Done(); it.Next()) { BigStr* _ = it.Value(); StackRoot _for(&_ ); locs->append(w); } continue; } if (glob_::LooksLikeStaticGlob(w)) { val = this->EvalWordToString(w); num_appended = this->globber->Expand(val->s, strs); if (num_appended < 0) { throw Alloc(StrFormat("Pattern %r matched no files", val->s), w); } for (int _ = 0; _ < num_appended; ++_) { locs->append(w); } continue; } part_vals = Alloc>(); this->_EvalWordToParts(w, part_vals, 0); frames = _MakeWordFrames(part_vals); for (ListIter*> it(frames); !it.Done(); it.Next()) { List* frame = it.Value(); StackRoot _for(&frame ); if (len(frame)) { tmp = Alloc>(); for (ListIter it(frame); !it.Done(); it.Next()) { runtime_asdl::Piece* piece = it.Value(); tmp->append(piece->s); } strs->append(str1889->join(tmp)); locs->append(w); } } } return Alloc(strs, locs, nullptr, nullptr, nullptr, nullptr); } runtime_asdl::cmd_value_t* AbstractWordEvaluator::EvalWordSequence2(List* words, bool allow_assign) { List* strs = nullptr; List* locs = nullptr; int meta_offset; int n; int i; BigStr* fast_str = nullptr; cmd_value::Assign* cmd_val = nullptr; List* part_vals = nullptr; List*>* frames = nullptr; int n_next; StackRoot _root0(&words); StackRoot _root1(&strs); StackRoot _root2(&locs); StackRoot _root3(&fast_str); StackRoot _root4(&cmd_val); StackRoot _root5(&part_vals); StackRoot _root6(&frames); if (this->exec_opts->simple_word_eval()) { return this->SimpleEvalWordSequence2(words, allow_assign); } strs = Alloc>(); locs = Alloc>(); meta_offset = 0; n = 0; i = 0; for (ListIter it(words); !it.Done(); it.Next(), ++i) { syntax_asdl::CompoundWord* w = it.Value(); StackRoot _for(&w ); fast_str = word_::FastStrEval(w); if (fast_str != nullptr) { strs->append(fast_str); locs->append(w); if ((allow_assign and i == meta_offset)) { cmd_val = this->_DetectAssignBuiltinStr(fast_str, words, meta_offset); if (cmd_val) { return cmd_val; } } if ((i <= meta_offset and _DetectMetaBuiltinStr(fast_str))) { meta_offset += 1; } continue; } part_vals = Alloc>(); this->_EvalWordToParts(w, part_vals, EXTGLOB_FILES); if (len(part_vals) == 1) { if ((allow_assign and i == meta_offset)) { cmd_val = this->_DetectAssignBuiltin(part_vals->at(0), words, meta_offset); if (cmd_val) { return cmd_val; } } if ((i <= meta_offset and _DetectMetaBuiltin(part_vals->at(0)))) { meta_offset += 1; } } frames = _MakeWordFrames(part_vals); for (ListIter*> it(frames); !it.Done(); it.Next()) { List* frame = it.Value(); StackRoot _for(&frame ); this->_EvalWordFrame(frame, strs); } n_next = len(strs); for (int _ = 0; _ < (n_next - n); ++_) { locs->append(w); } n = n_next; } return Alloc(strs, locs, nullptr, nullptr, nullptr, nullptr); } List* AbstractWordEvaluator::EvalWordSequence(List* words) { runtime_asdl::cmd_value_t* UP_cmd_val = nullptr; StackRoot _root0(&words); StackRoot _root1(&UP_cmd_val); UP_cmd_val = this->EvalWordSequence2(words); cmd_value::Argv* cmd_val = static_cast(UP_cmd_val); return cmd_val->argv; } NormalWordEvaluator::NormalWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt) : ::word_eval::AbstractWordEvaluator(mem, exec_opts, mutable_opts, tilde_ev, splitter, errfmt) { this->shell_ex = nullptr; } void NormalWordEvaluator::CheckCircularDeps() { } runtime_asdl::part_value_t* NormalWordEvaluator::_EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted) { BigStr* stdout_str = nullptr; List* strs = nullptr; StackRoot _root0(&cs_part); StackRoot _root1(&stdout_str); StackRoot _root2(&strs); stdout_str = this->shell_ex->RunCommandSub(cs_part); if (cs_part->left_token->id == Id::Left_AtParen) { try { strs = j8::SplitJ8Lines(stdout_str); } catch (error::Decode* e) { throw Alloc(4, e->Message(), cs_part->left_token); } return Alloc(strs); } else { return Alloc(stdout_str, quoted, !quoted); } } runtime_asdl::Piece* NormalWordEvaluator::_EvalProcessSub(syntax_asdl::CommandSub* cs_part) { BigStr* dev_path = nullptr; StackRoot _root0(&cs_part); StackRoot _root1(&dev_path); dev_path = this->shell_ex->RunProcessSub(cs_part); return Alloc(dev_path, true, false); } BigStr* _DUMMY = str1896; CompletionWordEvaluator::CompletionWordEvaluator(state::Mem* mem, optview::Exec* exec_opts, state::MutableOpts* mutable_opts, word_eval::TildeEvaluator* tilde_ev, split::SplitContext* splitter, ui::ErrorFormatter* errfmt) : ::word_eval::AbstractWordEvaluator(mem, exec_opts, mutable_opts, tilde_ev, splitter, errfmt) { } void CompletionWordEvaluator::CheckCircularDeps() { } runtime_asdl::part_value_t* CompletionWordEvaluator::_EvalCommandSub(syntax_asdl::CommandSub* cs_part, bool quoted) { StackRoot _root0(&cs_part); if (cs_part->left_token->id == Id::Left_AtParen) { return Alloc(NewList(std::initializer_list{_DUMMY})); } else { return Alloc(_DUMMY, quoted, !quoted); } } runtime_asdl::Piece* CompletionWordEvaluator::_EvalProcessSub(syntax_asdl::CommandSub* cs_part) { StackRoot _root0(&cs_part); return Alloc(str1897, true, false); } } // define namespace word_eval namespace word_parse { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using id_kind_asdl::Kind; using types_asdl::lex_mode_t; using types_asdl::lex_mode_e; using syntax_asdl::BoolParamBox; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::loc; using syntax_asdl::source; using syntax_asdl::DoubleQuoted; using syntax_asdl::SingleQuoted; using syntax_asdl::BracedVarSub; using syntax_asdl::CommandSub; using syntax_asdl::ShArrayLiteral; using syntax_asdl::AssocPair; using syntax_asdl::bracket_op; using syntax_asdl::bracket_op_t; using syntax_asdl::suffix_op; using syntax_asdl::suffix_op_t; using syntax_asdl::rhs_word; using syntax_asdl::rhs_word_e; using syntax_asdl::rhs_word_t; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::CompoundWord; using syntax_asdl::word_part; using syntax_asdl::word_part_t; using syntax_asdl::y_lhs_e; using syntax_asdl::arith_expr_t; using syntax_asdl::command; using syntax_asdl::expr; using syntax_asdl::expr_e; using syntax_asdl::expr_t; using syntax_asdl::pat_t; using syntax_asdl::ArgList; using syntax_asdl::Proc; using syntax_asdl::Func; using syntax_asdl::Subscript; using syntax_asdl::Attribute; using syntax_asdl::arith_expr; using error::p_die; GLOBAL_LIST(KINDS_THAT_END_WORDS, id_kind_asdl::Kind_t, 4, {Kind::Eof COMMA Kind::WS COMMA Kind::Op COMMA Kind::Right}); WordEmitter::WordEmitter() { ; // pass } syntax_asdl::word_t* WordEmitter::ReadWord(types_asdl::lex_mode_t lex_mode) { FAIL(kNotImplemented); // Python NotImplementedError } WordParser::WordParser(parse_lib::ParseContext* parse_ctx, lexer::Lexer* lexer, reader::_Reader* line_reader) { this->parse_ctx = parse_ctx; this->lexer = lexer; this->line_reader = line_reader; this->arena = line_reader->arena; this->parse_opts = parse_ctx->parse_opts; this->a_parser = Alloc(arith_parse::Spec(), this, this->parse_opts); this->Reset(); } void WordParser::Init(types_asdl::lex_mode_t lex_mode) { this->next_lex_mode = lex_mode; } void WordParser::Reset() { this->cur_token = nullptr; this->token_kind = Kind::Undefined; this->token_type = Id::Undefined_Tok; this->next_lex_mode = lex_mode_e::ShCommand; this->emit_doc_token = false; this->multiline = false; this->newline_state = 0; this->returned_newline = false; this->buffered_word = nullptr; } void WordParser::_GetToken() { bool is_fake; types_asdl::lex_mode_t real_mode; if (this->next_lex_mode == lex_mode_e::Undefined) { return ; } is_fake = this->next_lex_mode == lex_mode_e::BashRegexFakeInner; real_mode = is_fake ? lex_mode_e::BashRegex : this->next_lex_mode; this->cur_token = this->lexer->Read(real_mode); if ((is_fake and (this->cur_token->id == Id::WS_Space || this->cur_token->id == Id::BashRegex_AllowedInParens))) { this->cur_token->id = Id::Lit_Chars; } this->token_type = this->cur_token->id; this->token_kind = consts::GetKind(this->token_type); if (this->token_type == Id::Op_Newline) { this->newline_state += 1; } else { if (this->token_kind != Kind::WS) { this->newline_state = 0; } } this->parse_ctx->trail->AppendToken(this->cur_token); this->next_lex_mode = lex_mode_e::Undefined; } void WordParser::_SetNext(types_asdl::lex_mode_t lex_mode) { this->next_lex_mode = lex_mode; } syntax_asdl::rhs_word_t* WordParser::_ReadVarOpArg(types_asdl::lex_mode_t arg_lex_mode) { syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&w); this->_SetNext(arg_lex_mode); this->_GetToken(); w = this->_ReadVarOpArg2(arg_lex_mode, Id::Undefined_Tok, true); if ((len(w->parts) == 0 and arg_lex_mode == lex_mode_e::VSub_ArgDQ)) { return rhs_word::Empty; } return w; } syntax_asdl::CompoundWord* WordParser::_ReadVarOpArg2(types_asdl::lex_mode_t arg_lex_mode, int eof_type, bool empty_ok) { syntax_asdl::CompoundWord* w = nullptr; syntax_asdl::CompoundWord* tilde = nullptr; StackRoot _root0(&w); StackRoot _root1(&tilde); w = this->_ReadCompoundWord3(arg_lex_mode, eof_type, empty_ok); tilde = word_::TildeDetect(w); if (tilde) { w = tilde; } return w; } suffix_op::Slice* WordParser::_ReadSliceVarOp() { int cur_id; syntax_asdl::arith_expr_t* begin = nullptr; syntax_asdl::arith_expr_t* no_length = nullptr; syntax_asdl::Token* colon_tok = nullptr; syntax_asdl::arith_expr_t* length = nullptr; StackRoot _root0(&begin); StackRoot _root1(&no_length); StackRoot _root2(&colon_tok); StackRoot _root3(&length); this->_NextNonSpace(); cur_id = this->token_type; if ((cur_id == Id::Arith_RBrace || cur_id == Id::Arith_Colon)) { begin = arith_expr::EmptyZero; } else { begin = this->a_parser->Parse(); cur_id = this->a_parser->CurrentId(); } if (cur_id == Id::Arith_RBrace) { no_length = nullptr; return Alloc(begin, no_length); } else { if (cur_id == Id::Arith_Colon) { colon_tok = this->cur_token; this->_NextNonSpace(); if (this->token_type == Id::Arith_RBrace) { if (this->parse_opts->strict_parse_slice()) { p_die(str1898, colon_tok); } length = arith_expr::EmptyZero; } else { length = this->_ReadArithExpr(Id::Arith_RBrace); } return Alloc(begin, length); } else { p_die(str1899, this->cur_token); } } assert(0); // AssertionError } suffix_op::PatSub* WordParser::_ReadPatSubVarOp() { syntax_asdl::Token* slash_tok = nullptr; int replace_mode; syntax_asdl::CompoundWord* pat = nullptr; bool empty_ok; syntax_asdl::rhs_word_t* replace = nullptr; StackRoot _root0(&slash_tok); StackRoot _root1(&pat); StackRoot _root2(&replace); slash_tok = this->cur_token; replace_mode = Id::Undefined_Tok; this->_SetNext(lex_mode_e::VSub_ArgUnquoted); this->_GetToken(); if (this->token_type == Id::Right_DollarBrace) { pat = Alloc(Alloc>()); return Alloc(pat, rhs_word::Empty, replace_mode, slash_tok); } if ((this->token_type == Id::Lit_Slash || this->token_type == Id::Lit_Pound || this->token_type == Id::Lit_Percent)) { replace_mode = this->token_type; this->_SetNext(lex_mode_e::VSub_ArgUnquoted); } empty_ok = replace_mode != Id::Lit_Slash; pat = this->_ReadVarOpArg2(lex_mode_e::VSub_ArgUnquoted, Id::Lit_Slash, empty_ok); if (this->token_type == Id::Lit_Slash) { replace = this->_ReadVarOpArg(lex_mode_e::VSub_ArgUnquoted); } else { replace = rhs_word::Empty; } this->_GetToken(); if (this->token_type != Id::Right_DollarBrace) { p_die(StrFormat("Expected } after replacement string, got %s", ui::PrettyId(this->token_type)), this->cur_token); } return Alloc(pat, replace, replace_mode, slash_tok); } syntax_asdl::bracket_op_t* WordParser::_ReadSubscript() { int next_id; syntax_asdl::bracket_op_t* op = nullptr; syntax_asdl::arith_expr_t* anode = nullptr; StackRoot _root0(&op); StackRoot _root1(&anode); next_id = this->lexer->LookPastSpace(lex_mode_e::Arith); if ((next_id == Id::Lit_At || next_id == Id::Arith_Star)) { op = Alloc(next_id); this->_SetNext(lex_mode_e::Arith); this->_GetToken(); this->_SetNext(lex_mode_e::Arith); this->_GetToken(); } else { this->_SetNext(lex_mode_e::Arith); anode = this->_ReadArithExpr(Id::Arith_RBracket); op = Alloc(anode); } if (this->token_type != Id::Arith_RBracket) { p_die(str1901, this->cur_token); } this->_SetNext(lex_mode_e::VSub_2); this->_GetToken(); return op; } syntax_asdl::BracedVarSub* WordParser::_ParseVarOf() { syntax_asdl::Token* name_token = nullptr; syntax_asdl::bracket_op_t* bracket_op = nullptr; syntax_asdl::BracedVarSub* part = nullptr; StackRoot _root0(&name_token); StackRoot _root1(&bracket_op); StackRoot _root2(&part); this->_GetToken(); name_token = this->cur_token; this->_SetNext(lex_mode_e::VSub_2); this->_GetToken(); if (this->token_type == Id::VOp2_LBracket) { bracket_op = this->_ReadSubscript(); } else { bracket_op = nullptr; } part = BracedVarSub::CreateNull(); part->token = name_token; part->var_name = lexer::TokenVal(name_token); part->bracket_op = bracket_op; return part; } syntax_asdl::BracedVarSub* WordParser::_ParseVarExpr(types_asdl::lex_mode_t arg_lex_mode, bool allow_query) { syntax_asdl::BracedVarSub* part = nullptr; id_kind_asdl::Kind_t op_kind; syntax_asdl::Token* tok = nullptr; syntax_asdl::rhs_word_t* arg_word = nullptr; syntax_asdl::rhs_word_t* UP_arg_word = nullptr; bool ok; BigStr* arg = nullptr; bool quoted; syntax_asdl::suffix_op_t* patsub_op = nullptr; StackRoot _root0(&part); StackRoot _root1(&tok); StackRoot _root2(&arg_word); StackRoot _root3(&UP_arg_word); StackRoot _root4(&arg); StackRoot _root5(&patsub_op); part = this->_ParseVarOf(); this->_GetToken(); if (this->token_type == Id::Right_DollarBrace) { return part; } op_kind = this->token_kind; if (op_kind == Kind::VTest) { tok = this->cur_token; arg_word = this->_ReadVarOpArg(arg_lex_mode); if (this->token_type != Id::Right_DollarBrace) { p_die(str1902, this->cur_token); } part->suffix_op = Alloc(tok, arg_word); } else { if (op_kind == Kind::VOpYsh) { tok = this->cur_token; arg_word = this->_ReadVarOpArg(arg_lex_mode); if (this->token_type != Id::Right_DollarBrace) { p_die(str1903, this->cur_token); } UP_arg_word = arg_word; switch (arg_word->tag()) { case rhs_word_e::Empty: { ; // pass } break; case rhs_word_e::Compound: { CompoundWord* arg_word = static_cast(UP_arg_word); Tuple3 tup0 = word_::StaticEval(arg_word); ok = tup0.at0(); arg = tup0.at1(); quoted = tup0.at2(); if ((!ok or quoted)) { p_die(str1904, Alloc(arg_word)); } } break; } part->suffix_op = Alloc(tok, arg); } else { if (op_kind == Kind::VOp0) { part->suffix_op = this->cur_token; this->_SetNext(lex_mode_e::VSub_2); this->_GetToken(); } else { if (op_kind == Kind::VOp1) { tok = this->cur_token; arg_word = this->_ReadVarOpArg(lex_mode_e::VSub_ArgUnquoted); if (this->token_type != Id::Right_DollarBrace) { p_die(str1905, this->cur_token); } part->suffix_op = Alloc(tok, arg_word); } else { if (op_kind == Kind::VOp2) { if (this->token_type == Id::VOp2_Slash) { patsub_op = this->_ReadPatSubVarOp(); part->suffix_op = patsub_op; } else { if (this->token_type == Id::VOp2_Colon) { part->suffix_op = this->_ReadSliceVarOp(); if (this->token_type != Id::Arith_RBrace) { p_die(str1906, this->cur_token); } } else { p_die(StrFormat("Unexpected token in ${} (%s)", str1908), this->cur_token); } } } else { if (op_kind == Kind::VOp3) { if (allow_query) { part->suffix_op = this->cur_token; this->_SetNext(lex_mode_e::VSub_2); this->_GetToken(); } else { p_die(StrFormat("Unexpected token in ${} (%s)", str1910), this->cur_token); } } } } } } } if ((this->token_type != Id::Right_DollarBrace && this->token_type != Id::Arith_RBrace)) { p_die(str1911, this->cur_token); } return part; } word_part::ZshVarSub* WordParser::_ReadZshVarSub(syntax_asdl::Token* left_token) { syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&w); this->_SetNext(lex_mode_e::VSub_Zsh); w = this->_ReadCompoundWord3(lex_mode_e::VSub_Zsh, Id::Right_DollarBrace, true); this->_GetToken(); return Alloc(left_token, w, this->cur_token); } Tuple2 WordParser::ReadBracedVarSub(syntax_asdl::Token* left_token) { syntax_asdl::BracedVarSub* part = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&part); StackRoot _root2(&last_token); part = this->_ReadBracedVarSub(left_token, false); last_token = this->cur_token; return Tuple2(part, last_token); } syntax_asdl::BracedVarSub* WordParser::_ReadBracedVarSub(syntax_asdl::Token* left_token, bool d_quoted) { types_asdl::lex_mode_t arg_lex_mode; int ty; syntax_asdl::Token* first_tok = nullptr; int next_id; syntax_asdl::BracedVarSub* part = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&first_tok); StackRoot _root2(&part); if (d_quoted) { arg_lex_mode = lex_mode_e::VSub_ArgDQ; } else { arg_lex_mode = lex_mode_e::VSub_ArgUnquoted; } this->_SetNext(lex_mode_e::VSub_1); this->_GetToken(); ty = this->token_type; first_tok = this->cur_token; if (ty == Id::VSub_Pound) { next_id = this->lexer->LookPastSpace(lex_mode_e::VSub_1); if ((next_id != Id::Unknown_Tok && next_id != Id::Right_DollarBrace)) { this->_SetNext(lex_mode_e::VSub_1); part = this->_ParseVarOf(); this->_GetToken(); if (this->token_type != Id::Right_DollarBrace) { p_die(str1912, this->cur_token); } part->prefix_op = first_tok; } else { part = this->_ParseVarExpr(arg_lex_mode); } } else { if (ty == Id::VSub_Bang) { next_id = this->lexer->LookPastSpace(lex_mode_e::VSub_1); if ((next_id != Id::Unknown_Tok && next_id != Id::Right_DollarBrace)) { this->_SetNext(lex_mode_e::VSub_1); part = this->_ParseVarExpr(arg_lex_mode, true); part->prefix_op = first_tok; } else { part = this->_ParseVarExpr(arg_lex_mode); } } else { if (ty == Id::VSub_Dot) { p_die(str1913, this->cur_token); } else { if (this->token_kind == Kind::VSub) { part = this->_ParseVarExpr(arg_lex_mode); } else { p_die(str1914, this->cur_token); } } } } part->left = left_token; part->right = this->cur_token; return part; } syntax_asdl::SingleQuoted* WordParser::_ReadSingleQuoted(syntax_asdl::Token* left_token, types_asdl::lex_mode_t lex_mode) { List* tokens = nullptr; syntax_asdl::Token* right_quote = nullptr; BigStr* sval = nullptr; syntax_asdl::SingleQuoted* node = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&tokens); StackRoot _root2(&right_quote); StackRoot _root3(&sval); StackRoot _root4(&node); tokens = Alloc>(); right_quote = this->ReadSingleQuoted(lex_mode, left_token, tokens, false); sval = word_compile::EvalSingleQuoted(left_token->id, tokens); node = Alloc(left_token, sval, right_quote); return node; } syntax_asdl::Token* WordParser::ReadSingleQuoted(types_asdl::lex_mode_t lex_mode, syntax_asdl::Token* left_token, List* out_tokens, bool is_ysh_expr) { List* tokens = nullptr; bool no_backslashes; int expected_end_tokens; int num_end_tokens; syntax_asdl::Token* tok = nullptr; bool is_u_string; StackRoot _root0(&left_token); StackRoot _root1(&out_tokens); StackRoot _root2(&tokens); StackRoot _root3(&tok); tokens = Alloc>(); no_backslashes = (is_ysh_expr and left_token->id == Id::Left_SingleQuote); expected_end_tokens = (left_token->id == Id::Left_TSingleQuote || left_token->id == Id::Left_RTSingleQuote || left_token->id == Id::Left_UTSingleQuote || left_token->id == Id::Left_BTSingleQuote) ? 3 : 1; num_end_tokens = 0; while (num_end_tokens < expected_end_tokens) { this->_SetNext(lex_mode); this->_GetToken(); if ((this->token_kind == Kind::Lit || this->token_kind == Kind::Char)) { tok = this->cur_token; if ((no_backslashes and lexer::TokenContains(tok, str1915))) { p_die(str1916, tok); } if (is_ysh_expr) { if (this->token_type == Id::Char_Octal3) { p_die(str1917, tok); } if ((this->token_type == Id::Char_Hex and this->cur_token->length != 4)) { p_die(str1918, tok); } } tokens->append(tok); } else { if (this->token_kind == Kind::Unknown) { tok = this->cur_token; if ((is_ysh_expr or !this->parse_opts->parse_backslash())) { p_die(str1919, tok); } tokens->append(tok); } else { if (this->token_kind == Kind::Eof) { p_die(str1920, left_token); } else { if (this->token_kind == Kind::Right) { num_end_tokens += 1; tokens->append(this->cur_token); } else { assert(0); // AssertionError } } } } if (this->token_kind != Kind::Right) { num_end_tokens = 0; } } if (expected_end_tokens == 1) { tokens->pop(); } else { if (expected_end_tokens == 3) { tokens->pop(); tokens->pop(); tokens->pop(); } } if ((left_token->id == Id::Left_TSingleQuote || left_token->id == Id::Left_RTSingleQuote || left_token->id == Id::Left_UTSingleQuote || left_token->id == Id::Left_BTSingleQuote)) { word_compile::RemoveLeadingSpaceSQ(tokens); } is_u_string = (left_token->id == Id::Left_USingleQuote || left_token->id == Id::Left_UTSingleQuote); for (ListIter it(tokens); !it.Done(); it.Next()) { syntax_asdl::Token* tok = it.Value(); StackRoot _for(&tok ); if ((is_u_string and tok->id == Id::Char_YHex)) { p_die(StrFormat("%s escapes not allowed in u'' strings", lexer::TokenVal(tok)), tok); } } out_tokens->extend(tokens); return this->cur_token; } syntax_asdl::word_part_t* WordParser::_ReadDoubleQuotedLeftParts() { if ((this->token_type == Id::Left_DollarParen || this->token_type == Id::Left_Backtick)) { return this->_ReadCommandSub(this->token_type, true); } if (this->token_type == Id::Left_DollarBrace) { return this->_ReadBracedVarSub(this->cur_token, true); } if (this->token_type == Id::Left_DollarDParen) { return this->_ReadArithSub(); } if (this->token_type == Id::Left_DollarBracket) { return this->_ReadExprSub(lex_mode_e::DQ); } assert(0); // AssertionError } syntax_asdl::CompoundWord* WordParser::_ReadYshSingleQuoted(int left_id) { types_asdl::lex_mode_t lexer_mode; int triple_left_id; syntax_asdl::Token* left_tok = nullptr; syntax_asdl::SingleQuoted* sq_part = nullptr; StackRoot _root0(&left_tok); StackRoot _root1(&sq_part); if (left_id == Id::Left_RSingleQuote) { lexer_mode = lex_mode_e::SQ_Raw; triple_left_id = Id::Left_RTSingleQuote; } else { if (left_id == Id::Left_USingleQuote) { lexer_mode = lex_mode_e::J8_Str; triple_left_id = Id::Left_UTSingleQuote; } else { if (left_id == Id::Left_BSingleQuote) { lexer_mode = lex_mode_e::J8_Str; triple_left_id = Id::Left_BTSingleQuote; } else { assert(0); // AssertionError } } } left_tok = this->cur_token; left_tok->id = left_id; sq_part = this->_ReadSingleQuoted(left_tok, lexer_mode); if ((len(sq_part->sval) == 0 and str_equals(this->lexer->ByteLookAhead(), str1922))) { this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); left_tok = this->cur_token; left_tok->id = triple_left_id; sq_part = this->_ReadSingleQuoted(left_tok, lexer_mode); } this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); if (!list_contains(KINDS_THAT_END_WORDS, this->token_kind)) { p_die(str1923, this->cur_token); } return Alloc(NewList(std::initializer_list{sq_part})); } syntax_asdl::word_part_t* WordParser::_ReadUnquotedLeftParts(syntax_asdl::BoolParamBox* triple_out) { syntax_asdl::DoubleQuoted* dq_part = nullptr; syntax_asdl::Token* left_dq_token = nullptr; types_asdl::lex_mode_t lexer_mode; int triple_left_id; syntax_asdl::SingleQuoted* sq_part = nullptr; syntax_asdl::Token* left_sq_token = nullptr; StackRoot _root0(&triple_out); StackRoot _root1(&dq_part); StackRoot _root2(&left_dq_token); StackRoot _root3(&sq_part); StackRoot _root4(&left_sq_token); if ((this->token_type == Id::Left_DoubleQuote || this->token_type == Id::Left_DollarDoubleQuote)) { dq_part = this->_ReadDoubleQuoted(this->cur_token); if ((triple_out and (len(dq_part->parts) == 0 and str_equals(this->lexer->ByteLookAhead(), str1924)))) { this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); left_dq_token = this->cur_token; left_dq_token->id = Id::Left_TDoubleQuote; triple_out->b = true; return this->_ReadDoubleQuoted(left_dq_token); } return dq_part; } if ((this->token_type == Id::Left_SingleQuote || this->token_type == Id::Left_RSingleQuote || this->token_type == Id::Left_DollarSingleQuote)) { if (this->token_type == Id::Left_SingleQuote) { lexer_mode = lex_mode_e::SQ_Raw; triple_left_id = Id::Left_TSingleQuote; } else { if (this->token_type == Id::Left_RSingleQuote) { lexer_mode = lex_mode_e::SQ_Raw; triple_left_id = Id::Left_RTSingleQuote; } else { lexer_mode = lex_mode_e::SQ_C; triple_left_id = Id::Undefined_Tok; } } sq_part = this->_ReadSingleQuoted(this->cur_token, lexer_mode); if ((triple_left_id != Id::Undefined_Tok and (triple_out != nullptr and (len(sq_part->sval) == 0 and str_equals(this->lexer->ByteLookAhead(), str1925))))) { this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); left_sq_token = this->cur_token; left_sq_token->id = triple_left_id; triple_out->b = true; return this->_ReadSingleQuoted(left_sq_token, lexer_mode); } return sq_part; } if ((this->token_type == Id::Left_DollarParen || this->token_type == Id::Left_Backtick || this->token_type == Id::Left_ProcSubIn || this->token_type == Id::Left_ProcSubOut)) { return this->_ReadCommandSub(this->token_type, false); } if (this->token_type == Id::Left_DollarBrace) { return this->_ReadBracedVarSub(this->cur_token, false); } if (this->token_type == Id::Left_DollarDParen) { return this->_ReadArithSub(); } if (this->token_type == Id::Left_DollarBracket) { return this->_ReadExprSub(lex_mode_e::ShCommand); } if (this->token_type == Id::Left_DollarBraceZsh) { return this->_ReadZshVarSub(this->cur_token); } assert(0); // AssertionError } word_part::ExtGlob* WordParser::_ReadExtGlob() { syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* right_token = nullptr; List* arms = nullptr; bool read_word; syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&right_token); StackRoot _root2(&arms); StackRoot _root3(&w); left_token = this->cur_token; right_token = nullptr; arms = Alloc>(); this->lexer->PushHint(Id::Op_RParen, Id::Right_ExtGlob); this->_SetNext(lex_mode_e::ExtGlob); read_word = false; while (true) { this->_GetToken(); if (this->token_type == Id::Right_ExtGlob) { if (!read_word) { arms->append(Alloc(Alloc>())); } right_token = this->cur_token; break; } else { if (this->token_type == Id::Op_Pipe) { if (!read_word) { arms->append(Alloc(Alloc>())); } read_word = false; this->_SetNext(lex_mode_e::ExtGlob); } else { if ((this->token_kind == Kind::Lit || this->token_kind == Kind::Left || this->token_kind == Kind::VSub || this->token_kind == Kind::ExtGlob)) { w = this->_ReadCompoundWord(lex_mode_e::ExtGlob); arms->append(w); read_word = true; } else { if (this->token_kind == Kind::Eof) { p_die(str1926, left_token); } else { assert(0); // AssertionError } } } } } return Alloc(left_token, arms, right_token); } word_part::BashRegexGroup* WordParser::_ReadBashRegexGroup() { syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* right_token = nullptr; List* arms = nullptr; syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&right_token); StackRoot _root2(&arms); StackRoot _root3(&w); left_token = this->cur_token; right_token = nullptr; arms = Alloc>(); this->lexer->PushHint(Id::Op_RParen, Id::Right_BashRegexGroup); this->_SetNext(lex_mode_e::BashRegexFakeInner); this->_GetToken(); if (this->token_type == Id::Right_BashRegexGroup) { return Alloc(left_token, nullptr, this->cur_token); } if ((this->token_kind == Kind::Lit || this->token_kind == Kind::Left || this->token_kind == Kind::VSub || this->token_kind == Kind::BashRegex)) { w = this->_ReadCompoundWord(lex_mode_e::BashRegexFakeInner); arms->append(w); this->_GetToken(); if (this->token_type != Id::Right_BashRegexGroup) { p_die(str1927, this->cur_token); } return Alloc(left_token, w, this->cur_token); } p_die(str1928, this->cur_token); } void WordParser::_ReadLikeDQ(syntax_asdl::Token* left_token, bool is_ysh_expr, List* out_parts) { int expected_end_tokens; int num_end_tokens; syntax_asdl::Token* tok = nullptr; BigStr* ch = nullptr; syntax_asdl::word_part_t* part = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&out_parts); StackRoot _root2(&tok); StackRoot _root3(&ch); StackRoot _root4(&part); if (left_token) { if ((left_token->id == Id::Left_TDoubleQuote || left_token->id == Id::Left_DollarTDoubleQuote)) { expected_end_tokens = 3; } else { expected_end_tokens = 1; } } else { expected_end_tokens = 1000; } num_end_tokens = 0; while (num_end_tokens < expected_end_tokens) { this->_SetNext(lex_mode_e::DQ); this->_GetToken(); if (this->token_kind == Kind::Lit) { if (this->token_type == Id::Lit_EscapedChar) { tok = this->cur_token; ch = lexer::TokenSliceLeft(tok, 1); part = Alloc(tok, ch); } else { if (this->token_type == Id::Lit_BadBackslash) { if ((is_ysh_expr or !this->parse_opts->parse_backslash())) { p_die(str1929, this->cur_token); } } else { if (this->token_type == Id::Lit_Dollar) { if ((is_ysh_expr or !this->parse_opts->parse_dollar())) { p_die(str1930, this->cur_token); } } } part = this->cur_token; } out_parts->append(part); } else { if (this->token_kind == Kind::Left) { if ((this->token_type == Id::Left_Backtick and is_ysh_expr)) { p_die(str1931, this->cur_token); } part = this->_ReadDoubleQuotedLeftParts(); out_parts->append(part); } else { if (this->token_kind == Kind::VSub) { tok = this->cur_token; part = Alloc(tok); out_parts->append(part); } else { if (this->token_kind == Kind::Right) { if (left_token) { num_end_tokens += 1; } out_parts->append(this->cur_token); } else { if (this->token_kind == Kind::Eof) { if (left_token) { p_die(str1932, left_token); } else { break; } } else { assert(0); // AssertionError } } } } } if (this->token_kind != Kind::Right) { num_end_tokens = 0; } } if (expected_end_tokens == 1) { out_parts->pop(); } else { if (expected_end_tokens == 3) { out_parts->pop(); out_parts->pop(); out_parts->pop(); } } if ((left_token and (left_token->id == Id::Left_TDoubleQuote || left_token->id == Id::Left_DollarTDoubleQuote))) { word_compile::RemoveLeadingSpaceDQ(out_parts); } } syntax_asdl::DoubleQuoted* WordParser::_ReadDoubleQuoted(syntax_asdl::Token* left_token) { List* parts = nullptr; syntax_asdl::Token* right_quote = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&parts); StackRoot _root2(&right_quote); parts = Alloc>(); this->_ReadLikeDQ(left_token, false, parts); right_quote = this->cur_token; return Alloc(left_token, parts, right_quote); } syntax_asdl::Token* WordParser::ReadDoubleQuoted(syntax_asdl::Token* left_token, List* parts) { StackRoot _root0(&left_token); StackRoot _root1(&parts); this->_ReadLikeDQ(left_token, true, parts); return this->cur_token; } syntax_asdl::CommandSub* WordParser::_ReadCommandSub(int left_id, bool d_quoted) { syntax_asdl::Token* left_token = nullptr; int right_id; cmd_parse::CommandParser* c_parser = nullptr; syntax_asdl::command_t* node = nullptr; syntax_asdl::Token* right_token = nullptr; List* parts = nullptr; BigStr* code_str = nullptr; alloc::Arena* arena = nullptr; reader::FileLineReader* line_reader = nullptr; source::Reparsed* src = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&c_parser); StackRoot _root2(&node); StackRoot _root3(&right_token); StackRoot _root4(&parts); StackRoot _root5(&code_str); StackRoot _root6(&arena); StackRoot _root7(&line_reader); StackRoot _root8(&src); left_token = this->cur_token; if ((left_id == Id::Left_DollarParen || left_id == Id::Left_AtParen || left_id == Id::Left_ProcSubIn || left_id == Id::Left_ProcSubOut)) { this->_SetNext(lex_mode_e::ShCommand); right_id = Id::Eof_RParen; this->lexer->PushHint(Id::Op_RParen, right_id); c_parser = this->parse_ctx->MakeParserForCommandSub(this->line_reader, this->lexer, right_id); node = c_parser->ParseCommandSub(); right_token = c_parser->w_parser->cur_token; } else { if ((left_id == Id::Left_Backtick and this->parse_ctx->do_lossless)) { right_id = Id::Eof_Backtick; this->lexer->PushHint(Id::Left_Backtick, right_id); c_parser = this->parse_ctx->MakeParserForCommandSub(this->line_reader, this->lexer, right_id); node = c_parser->ParseCommandSub(); right_token = c_parser->w_parser->cur_token; } else { if (left_id == Id::Left_Backtick) { if (!this->parse_opts->parse_backticks()) { p_die(str1933, left_token); } this->_SetNext(lex_mode_e::Backtick); parts = Alloc>(); while (true) { this->_GetToken(); if (this->token_type == Id::Backtick_Quoted) { parts->append(lexer::TokenSliceLeft(this->cur_token, 1)); } else { if (this->token_type == Id::Backtick_DoubleQuote) { if (d_quoted) { parts->append(lexer::TokenSliceLeft(this->cur_token, 1)); } else { parts->append(lexer::TokenVal(this->cur_token)); } } else { if (this->token_type == Id::Backtick_Other) { parts->append(lexer::TokenVal(this->cur_token)); } else { if (this->token_type == Id::Backtick_Right) { break; } else { if (this->token_type == Id::Eof_Real) { p_die(str1934, left_token); } else { assert(0); // AssertionError } } } } } this->_SetNext(lex_mode_e::Backtick); } right_token = this->cur_token; code_str = str1935->join(parts); arena = this->parse_ctx->arena; line_reader = reader::StringLineReader(code_str, arena); c_parser = this->parse_ctx->MakeOshParser(line_reader); src = Alloc(str1936, left_token, right_token); { // with alloc::ctx_SourceCode ctx{arena, src}; node = c_parser->ParseCommandSub(); } } else { assert(0); // AssertionError } } } return Alloc(left_token, node, right_token); } word_part::ExprSub* WordParser::_ReadExprSub(types_asdl::lex_mode_t lex_mode) { syntax_asdl::Token* left_token = nullptr; syntax_asdl::expr_t* enode = nullptr; syntax_asdl::Token* right_token = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&enode); StackRoot _root2(&right_token); left_token = this->cur_token; this->_SetNext(lex_mode_e::Expr); Tuple2 tup1 = this->parse_ctx->ParseYshExpr(this->lexer, grammar_nt::ysh_expr_sub); enode = tup1.at0(); right_token = tup1.at1(); this->_SetNext(lex_mode); return Alloc(left_token, enode, right_token); } command::VarDecl* WordParser::ParseVarDecl(syntax_asdl::Token* kw_token) { command::VarDecl* enode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&kw_token); StackRoot _root1(&enode); StackRoot _root2(&last_token); this->_SetNext(lex_mode_e::Expr); Tuple2 tup2 = this->parse_ctx->ParseVarDecl(kw_token, this->lexer); enode = tup2.at0(); last_token = tup2.at1(); if (last_token->id == Id::Op_RBrace) { last_token->id = Id::Lit_RBrace; } this->buffered_word = last_token; this->_SetNext(lex_mode_e::ShCommand); return enode; } command::Mutation* WordParser::ParseMutation(syntax_asdl::Token* kw_token, cmd_parse::VarChecker* var_checker) { command::Mutation* enode = nullptr; syntax_asdl::Token* last_token = nullptr; syntax_asdl::y_lhs_t* UP_lhs = nullptr; expr::Var* v = nullptr; StackRoot _root0(&kw_token); StackRoot _root1(&var_checker); StackRoot _root2(&enode); StackRoot _root3(&last_token); StackRoot _root4(&UP_lhs); StackRoot _root5(&v); this->_SetNext(lex_mode_e::Expr); Tuple2 tup3 = this->parse_ctx->ParseMutation(kw_token, this->lexer); enode = tup3.at0(); last_token = tup3.at1(); if (last_token->id == Id::Op_RBrace) { last_token->id = Id::Lit_RBrace; } for (ListIter it(enode->lhs); !it.Done(); it.Next()) { syntax_asdl::y_lhs_t* lhs = it.Value(); StackRoot _for(&lhs ); UP_lhs = lhs; switch (lhs->tag()) { case y_lhs_e::Var: { Token* lhs = static_cast(UP_lhs); var_checker->Check(kw_token->id, lexer::LazyStr(lhs), lhs); } break; case y_lhs_e::Subscript: { Subscript* lhs = static_cast(UP_lhs); if (lhs->obj->tag() == expr_e::Var) { v = static_cast(lhs->obj); var_checker->Check(kw_token->id, v->name, v->left); } } break; case y_lhs_e::Attribute: { Attribute* lhs = static_cast(UP_lhs); if (lhs->obj->tag() == expr_e::Var) { v = static_cast(lhs->obj); var_checker->Check(kw_token->id, v->name, v->left); } } break; } } this->buffered_word = last_token; this->_SetNext(lex_mode_e::ShCommand); return enode; } syntax_asdl::expr_t* WordParser::ParseBareDecl() { syntax_asdl::expr_t* enode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&enode); StackRoot _root1(&last_token); this->_SetNext(lex_mode_e::Expr); this->_GetToken(); Tuple2 tup4 = this->parse_ctx->ParseYshExpr(this->lexer, grammar_nt::command_expr); enode = tup4.at0(); last_token = tup4.at1(); if (last_token->id == Id::Op_RBrace) { last_token->id = Id::Lit_RBrace; } this->buffered_word = last_token; this->_SetNext(lex_mode_e::ShCommand); return enode; } syntax_asdl::expr_t* WordParser::ParseYshExprForCommand() { syntax_asdl::expr_t* enode = nullptr; StackRoot _root0(&enode); if (this->token_type == Id::Op_LParen) { this->lexer->MaybeUnreadOne(); } Tuple2 tup5 = this->parse_ctx->ParseYshExpr(this->lexer, grammar_nt::ysh_expr); enode = tup5.at0(); this->_SetNext(lex_mode_e::ShCommand); return enode; } syntax_asdl::expr_t* WordParser::ParseCommandExpr() { syntax_asdl::expr_t* enode = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&enode); StackRoot _root1(&last_token); Tuple2 tup6 = this->parse_ctx->ParseYshExpr(this->lexer, grammar_nt::command_expr); enode = tup6.at0(); last_token = tup6.at1(); if (last_token->id != Id::Eof_Real) { this->lexer->MaybeUnreadOne(); } return enode; } void WordParser::ParseProc(syntax_asdl::Proc* node) { syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&node); StackRoot _root1(&last_token); this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); if (this->token_type != Id::Lit_Chars) { p_die(StrFormat("Invalid proc name %s", ui::PrettyToken(this->cur_token)), this->cur_token); } node->name = this->cur_token; last_token = this->parse_ctx->ParseProc(this->lexer, node); last_token->id = Id::Lit_LBrace; this->buffered_word = last_token; this->_SetNext(lex_mode_e::ShCommand); } void WordParser::ParseFunc(syntax_asdl::Func* node) { syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&node); StackRoot _root1(&last_token); last_token = this->parse_ctx->ParseFunc(this->lexer, node); last_token->id = Id::Lit_LBrace; this->buffered_word = last_token; this->_SetNext(lex_mode_e::ShCommand); } Tuple2 WordParser::ParseYshCasePattern() { syntax_asdl::pat_t* pat = nullptr; syntax_asdl::Token* left_tok = nullptr; syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&pat); StackRoot _root1(&left_tok); StackRoot _root2(&last_token); Tuple3 tup7 = this->parse_ctx->ParseYshCasePattern(this->lexer); pat = tup7.at0(); left_tok = tup7.at1(); last_token = tup7.at2(); if (last_token->id == Id::Op_LBrace) { last_token->id = Id::Lit_LBrace; } this->buffered_word = last_token; return Tuple2(pat, left_tok); } int WordParser::NewlineOkForYshCase() { int next_id; id_kind_asdl::Kind_t next_kind; while (true) { next_id = this->lexer->LookAheadOne(lex_mode_e::Expr); if (next_id == Id::Unknown_Tok) { if (!this->lexer->MoveToNextLine()) { break; } continue; } next_kind = consts::GetKind(next_id); if ((next_id != Id::Op_Newline and next_kind != Kind::Ignored)) { break; } this->lexer->Read(lex_mode_e::Expr); } if ((next_id == Id::Op_RBrace || next_id == Id::Op_LParen || next_id == Id::Arith_Slash)) { this->_SetNext(lex_mode_e::Expr); } else { this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); } return next_id; } syntax_asdl::arith_expr_t* WordParser::_ReadArithExpr(int end_id) { syntax_asdl::arith_expr_t* anode = nullptr; int cur_id; StackRoot _root0(&anode); anode = this->a_parser->Parse(); cur_id = this->a_parser->CurrentId(); if ((end_id != Id::Undefined_Tok and cur_id != end_id)) { p_die(StrFormat("Unexpected token after arithmetic expression (%s != %s)", ui::PrettyId(cur_id), ui::PrettyId(end_id)), Alloc(this->a_parser->cur_word)); } return anode; } word_part::ArithSub* WordParser::_ReadArithSub() { syntax_asdl::Token* left_tok = nullptr; syntax_asdl::arith_expr_t* anode = nullptr; syntax_asdl::Token* right_tok = nullptr; StackRoot _root0(&left_tok); StackRoot _root1(&anode); StackRoot _root2(&right_tok); left_tok = this->cur_token; this->lexer->PushHint(Id::Op_RParen, Id::Right_DollarDParen); anode = arith_expr::EmptyZero; this->_NextNonSpace(); if (this->token_type != Id::Arith_RParen) { anode = this->_ReadArithExpr(Id::Arith_RParen); } this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); if (this->token_type != Id::Right_DollarDParen) { p_die(str1939, this->cur_token); } right_tok = this->cur_token; return Alloc(left_tok, anode, right_tok); } Tuple2 WordParser::ReadDParen() { syntax_asdl::arith_expr_t* anode = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&anode); StackRoot _root1(&right); anode = arith_expr::EmptyZero; this->lexer->PushHint(Id::Op_RParen, Id::Op_DRightParen); this->_NextNonSpace(); if (this->token_type != Id::Arith_RParen) { anode = this->_ReadArithExpr(Id::Arith_RParen); } this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); right = this->cur_token; if (right->id != Id::Op_DRightParen) { p_die(str1940, right); } this->_SetNext(lex_mode_e::ShCommand); return Tuple2(anode, right); } void WordParser::_NextNonSpace() { while (true) { this->_SetNext(lex_mode_e::Arith); this->_GetToken(); if ((this->token_kind != Kind::Ignored && this->token_kind != Kind::WS)) { break; } } } command::ForExpr* WordParser::ReadForExpression() { int cur_id; syntax_asdl::arith_expr_t* init_node = nullptr; syntax_asdl::arith_expr_t* cond_node = nullptr; syntax_asdl::arith_expr_t* update_node = nullptr; command::ForExpr* node = nullptr; StackRoot _root0(&init_node); StackRoot _root1(&cond_node); StackRoot _root2(&update_node); StackRoot _root3(&node); this->_NextNonSpace(); cur_id = this->token_type; if (cur_id == Id::Arith_Semi) { init_node = arith_expr::EmptyZero; } else { init_node = this->a_parser->Parse(); cur_id = this->a_parser->CurrentId(); } this->_NextNonSpace(); if (cur_id != Id::Arith_Semi) { p_die(str1941, Alloc(this->a_parser->cur_word)); } this->_GetToken(); cur_id = this->token_type; if (cur_id == Id::Arith_Semi) { cond_node = arith_expr::EmptyOne; } else { cond_node = this->a_parser->Parse(); cur_id = this->a_parser->CurrentId(); } if (cur_id != Id::Arith_Semi) { p_die(str1942, Alloc(this->a_parser->cur_word)); } this->_NextNonSpace(); if (this->token_type == Id::Arith_RParen) { update_node = arith_expr::EmptyZero; } else { update_node = this->_ReadArithExpr(Id::Arith_RParen); } this->_NextNonSpace(); if (this->token_type != Id::Arith_RParen) { p_die(str1943, this->cur_token); } this->_SetNext(lex_mode_e::ShCommand); node = command::ForExpr::CreateNull(); node->init = init_node; node->cond = cond_node; node->update = update_node; return node; } syntax_asdl::word_part_t* WordParser::_ReadArrayLiteral() { syntax_asdl::Token* left_token = nullptr; syntax_asdl::Token* right_token = nullptr; word_parse::WordParser* w_parser = nullptr; List* words = nullptr; bool done; syntax_asdl::word_t* w = nullptr; Token* tok = nullptr; List* no_words = nullptr; syntax_asdl::ShArrayLiteral* node = nullptr; List* pairs = nullptr; syntax_asdl::AssocPair* pair = nullptr; int n; syntax_asdl::CompoundWord* w2 = nullptr; List* words2 = nullptr; List* words3 = nullptr; StackRoot _root0(&left_token); StackRoot _root1(&right_token); StackRoot _root2(&w_parser); StackRoot _root3(&words); StackRoot _root4(&w); StackRoot _root5(&tok); StackRoot _root6(&no_words); StackRoot _root7(&node); StackRoot _root8(&pairs); StackRoot _root9(&pair); StackRoot _root10(&w2); StackRoot _root11(&words2); StackRoot _root12(&words3); this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); if (this->cur_token->id != Id::Op_LParen) { p_die(str1944, this->cur_token); } left_token = this->cur_token; right_token = nullptr; w_parser = this->parse_ctx->MakeWordParser(this->lexer, this->line_reader); words = Alloc>(); done = false; while (!done) { w = w_parser->ReadWord(lex_mode_e::ShCommand); switch (w->tag()) { case word_e::Operator: { tok = static_cast(w); if (tok->id == Id::Right_ShArrayLiteral) { right_token = tok; done = true; } else { if (tok->id == Id::Op_Newline) { continue; } else { p_die(str1945, Alloc(w)); } } } break; case word_e::Compound: { words->append(static_cast(w)); } break; default: { assert(0); // AssertionError } } } if (len(words) == 0) { no_words = Alloc>(); node = Alloc(left_token, no_words, right_token); return node; } pairs = Alloc>(); pair = word_::DetectAssocPair(words->at(0)); if (pair) { pairs->append(pair); n = len(words); for (int i = 1; i < n; ++i) { w2 = words->at(i); pair = word_::DetectAssocPair(w2); if (!pair) { p_die(str1946, Alloc(w2)); } pairs->append(pair); } return Alloc(left_token, pairs, right_token); } words2 = braces::BraceDetectAll(words); words3 = word_::TildeDetectAll(words2); return Alloc(left_token, words3, right_token); } syntax_asdl::ArgList* WordParser::ParseProcCallArgs(int start_symbol) { syntax_asdl::ArgList* arg_list = nullptr; StackRoot _root0(&arg_list); this->lexer->MaybeUnreadOne(); arg_list = ArgList::CreateNull(true); arg_list->left = this->cur_token; this->parse_ctx->ParseProcCallArgs(this->lexer, arg_list, start_symbol); return arg_list; } bool WordParser::_MaybeReadWordPart(bool is_first, types_asdl::lex_mode_t lex_mode, List* parts) { bool done; syntax_asdl::Token* tok = nullptr; BigStr* ch = nullptr; syntax_asdl::word_part_t* part = nullptr; int next_id; syntax_asdl::word_part_t* part2 = nullptr; syntax_asdl::Token* splice_tok = nullptr; StackRoot _root0(&parts); StackRoot _root1(&tok); StackRoot _root2(&ch); StackRoot _root3(&part); StackRoot _root4(&part2); StackRoot _root5(&splice_tok); done = false; if (this->token_type == Id::Lit_EscapedChar) { tok = this->cur_token; ch = lexer::TokenSliceLeft(tok, 1); if (!this->parse_opts->parse_backslash()) { if (!pyutil::IsValidCharEscape(ch)) { p_die(str1947, this->cur_token); } } part = Alloc(this->cur_token, ch); } else { part = this->cur_token; } if ((is_first and this->token_type == Id::Lit_VarLike)) { parts->append(part); next_id = this->lexer->LookPastSpace(lex_mode); if (next_id == Id::Op_LParen) { this->lexer->PushHint(Id::Op_RParen, Id::Right_ShArrayLiteral); part2 = this->_ReadArrayLiteral(); parts->append(part2); this->_SetNext(lex_mode); this->_GetToken(); if (!list_contains(KINDS_THAT_END_WORDS, this->token_kind)) { p_die(str1948, this->cur_token); } done = true; } } else { if ((is_first and (this->parse_opts->parse_at() and this->token_type == Id::Lit_Splice))) { splice_tok = this->cur_token; part2 = Alloc(splice_tok, lexer::TokenSliceLeft(splice_tok, 1)); parts->append(part2); this->_SetNext(lex_mode); this->_GetToken(); if (!list_contains(KINDS_THAT_END_WORDS, this->token_kind)) { p_die(str1949, this->cur_token); } done = true; } else { if ((is_first and (this->parse_opts->parse_at() and this->token_type == Id::Lit_AtLBracket))) { part2 = this->_ReadExprSub(lex_mode_e::DQ); parts->append(part2); this->_SetNext(lex_mode); this->_GetToken(); if (!list_contains(KINDS_THAT_END_WORDS, this->token_kind)) { p_die(str1950, this->cur_token); } done = true; } else { if ((is_first and (this->parse_opts->parse_at() and this->token_type == Id::Lit_AtLBraceDot))) { p_die(str1951, this->cur_token); } else { if ((is_first and (this->parse_opts->parse_at_all() and this->token_type == Id::Lit_At))) { p_die(str1952, this->cur_token); } else { parts->append(part); } } } } } return done; } syntax_asdl::CompoundWord* WordParser::_ReadCompoundWord(types_asdl::lex_mode_t lex_mode) { return this->_ReadCompoundWord3(lex_mode, Id::Undefined_Tok, true); } syntax_asdl::CompoundWord* WordParser::_ReadCompoundWord3(types_asdl::lex_mode_t lex_mode, int eof_type, bool empty_ok) { syntax_asdl::CompoundWord* w = nullptr; int num_parts; int brace_count; bool done; syntax_asdl::BoolParamBox* is_triple_quoted = nullptr; bool allow_done; BigStr* next_byte = nullptr; syntax_asdl::Token* vsub_token = nullptr; syntax_asdl::word_part_t* part = nullptr; syntax_asdl::CommandSub* cs_part = nullptr; bool try_triple_quote; StackRoot _root0(&w); StackRoot _root1(&is_triple_quoted); StackRoot _root2(&next_byte); StackRoot _root3(&vsub_token); StackRoot _root4(&part); StackRoot _root5(&cs_part); w = Alloc(Alloc>()); num_parts = 0; brace_count = 0; done = false; is_triple_quoted = nullptr; while (!done) { this->_GetToken(); allow_done = (empty_ok or num_parts != 0); if ((allow_done and this->token_type == eof_type)) { done = true; } else { if ((this->token_kind == Kind::Lit || this->token_kind == Kind::History || this->token_kind == Kind::KW || this->token_kind == Kind::ControlFlow || this->token_kind == Kind::BoolUnary || this->token_kind == Kind::BoolBinary)) { if (this->token_type == Id::Lit_LBrace) { brace_count += 1; } else { if (this->token_type == Id::Lit_RBrace) { brace_count -= 1; } else { if (this->token_type == Id::Lit_Dollar) { if (!this->parse_opts->parse_dollar()) { if ((num_parts == 0 and lex_mode == lex_mode_e::ShCommand)) { next_byte = this->lexer->ByteLookAhead(); if (str_equals(next_byte, str1953)) { ; // pass } } p_die(str1954, this->cur_token); } } } } done = this->_MaybeReadWordPart(num_parts == 0, lex_mode, w->parts); } else { if (this->token_kind == Kind::VSub) { vsub_token = this->cur_token; part = Alloc(vsub_token); w->parts->append(part); } else { if (this->token_kind == Kind::ExtGlob) { if ((this->parse_opts->parse_at() and (this->token_type == Id::ExtGlob_At and num_parts == 0))) { cs_part = this->_ReadCommandSub(Id::Left_AtParen, false); cs_part->left_token->id = Id::Left_AtParen; part = cs_part; this->_GetToken(); if (!list_contains(KINDS_THAT_END_WORDS, this->token_kind)) { p_die(str1955, this->cur_token); } done = true; } else { part = this->_ReadExtGlob(); } w->parts->append(part); } else { if (this->token_kind == Kind::BashRegex) { if (this->token_type == Id::BashRegex_LParen) { part = this->_ReadBashRegexGroup(); w->parts->append(part); } else { p_die(str1956, this->cur_token); } } else { if (this->token_kind == Kind::Left) { try_triple_quote = (this->parse_opts->parse_triple_quote() and (lex_mode == lex_mode_e::ShCommand and num_parts == 0)); if (try_triple_quote) { is_triple_quoted = Alloc(false); } part = this->_ReadUnquotedLeftParts(is_triple_quoted); w->parts->append(part); } else { if (this->token_kind == Kind::Right) { if (this->token_type == Id::Right_DoubleQuote) { ; // pass } else { if (this->token_type == Id::Right_Subshell) { if (this->lexer->MaybeUnreadOne()) { this->lexer->PushHint(Id::Op_RParen, Id::Right_Subshell); this->_SetNext(lex_mode); } done = true; } else { done = true; } } } else { if (this->token_kind == Kind::Ignored) { done = true; } else { if ((this->token_type == Id::Op_RParen || this->token_type == Id::Eof_RParen)) { if (this->lexer->MaybeUnreadOne()) { if (this->token_type == Id::Eof_RParen) { this->lexer->PushHint(Id::Op_RParen, Id::Eof_RParen); } this->_SetNext(lex_mode); } } done = true; } } } } } } } } if (!done) { this->_SetNext(lex_mode); num_parts += 1; } } if ((this->parse_opts->parse_brace() and (num_parts > 1 and brace_count != 0))) { p_die(str1957, Alloc(w)); } if ((is_triple_quoted and (is_triple_quoted->b and num_parts > 1))) { p_die(str1958, Alloc(w->parts->at(-1))); } return w; } syntax_asdl::word_t* WordParser::_ReadArithWord() { this->_GetToken(); if (this->token_kind == Kind::Unknown) { p_die(StrFormat("Unexpected token while parsing arithmetic: %r", lexer::TokenVal(this->cur_token)), this->cur_token); } else { if (this->token_kind == Kind::Eof) { return this->cur_token; } else { if (this->token_kind == Kind::Ignored) { this->_SetNext(lex_mode_e::Arith); return nullptr; } else { if ((this->token_kind == Kind::Arith || this->token_kind == Kind::Right)) { this->_SetNext(lex_mode_e::Arith); return this->cur_token; } else { if ((this->token_kind == Kind::Lit || this->token_kind == Kind::Left || this->token_kind == Kind::VSub)) { return this->_ReadCompoundWord(lex_mode_e::Arith); } else { assert(0); // AssertionError } } } } } } syntax_asdl::word_t* WordParser::_ReadWord(types_asdl::lex_mode_t word_mode) { types_asdl::lex_mode_t lex_mode; syntax_asdl::Token* bracket_word = nullptr; syntax_asdl::Token* tok = nullptr; int left_id; StackRoot _root0(&bracket_word); StackRoot _root1(&tok); if (word_mode == lex_mode_e::ShCommandFakeBrack) { lex_mode = lex_mode_e::ShCommand; } else { lex_mode = word_mode; } this->_GetToken(); if (this->token_kind == Kind::Eof) { return this->cur_token; } else { if ((this->token_kind == Kind::Op || this->token_kind == Kind::Redir || this->token_kind == Kind::Arith)) { this->_SetNext(lex_mode); if (this->token_type == Id::Op_Newline) { if (this->multiline) { if (this->newline_state > 1) { p_die(str1960, this->cur_token); } return nullptr; } if (this->returned_newline) { return nullptr; } } return this->cur_token; } else { if (this->token_kind == Kind::Right) { if ((this->token_type != Id::Right_Subshell && this->token_type != Id::Right_ShFunction && this->token_type != Id::Right_CasePat && this->token_type != Id::Right_ShArrayLiteral)) { assert(0); // AssertionError } this->_SetNext(lex_mode); return this->cur_token; } else { if ((this->token_kind == Kind::Ignored || this->token_kind == Kind::WS)) { this->_SetNext(lex_mode); return nullptr; } else { if ((word_mode == lex_mode_e::ShCommandFakeBrack and (this->parse_opts->parse_bracket() and this->token_type == Id::Lit_LBracket))) { bracket_word = this->cur_token; bracket_word->id = Id::Op_LBracket; this->_SetNext(lex_mode); return bracket_word; } if (this->token_type == Id::Lit_Pound) { this->_SetNext(lex_mode_e::Comment); this->_GetToken(); return nullptr; } else { if (this->token_type == Id::Lit_TPound) { this->_SetNext(lex_mode_e::Comment); this->_GetToken(); if ((this->token_type == Id::Ignored_Comment and this->emit_doc_token)) { return this->cur_token; } return nullptr; } else { if ((this->token_type == Id::Lit_Chars and this->lexer->LookAheadOne(lex_mode_e::ShCommand) == Id::Left_SingleQuote)) { tok = this->cur_token; if (this->parse_opts->parse_ysh_string()) { if (lexer::TokenEquals(tok, str1961)) { left_id = Id::Left_RSingleQuote; } else { if (lexer::TokenEquals(tok, str1962)) { left_id = Id::Left_USingleQuote; } else { if (lexer::TokenEquals(tok, str1963)) { left_id = Id::Left_BSingleQuote; } else { left_id = Id::Undefined_Tok; } } } if (left_id != Id::Undefined_Tok) { this->_SetNext(lex_mode_e::ShCommand); this->_GetToken(); return this->_ReadYshSingleQuoted(left_id); } } } return this->_ReadCompoundWord(lex_mode); } } } } } } } syntax_asdl::BracedVarSub* WordParser::ParseVarRef() { syntax_asdl::BracedVarSub* part = nullptr; StackRoot _root0(&part); this->_SetNext(lex_mode_e::VSub_1); this->_GetToken(); if (this->token_kind != Kind::VSub) { p_die(str1964, this->cur_token); } part = this->_ParseVarOf(); part->left = part->token; part->right = part->token; this->_GetToken(); if (this->token_type != Id::Eof_Real) { p_die(str1965, this->cur_token); } return part; } int WordParser::LookPastSpace() { int id_; if (this->cur_token->id == Id::WS_Space) { id_ = this->lexer->LookPastSpace(lex_mode_e::ShCommand); } else { id_ = this->cur_token->id; } return id_; } bool WordParser::LookAheadFuncParens() { if (this->cur_token->id == Id::Op_LParen) { return this->lexer->LookAheadFuncParens(1); } else { if (this->cur_token->id == Id::WS_Space) { return this->lexer->LookAheadFuncParens(0); } else { return false; } } } syntax_asdl::word_t* WordParser::ReadWord(types_asdl::lex_mode_t word_mode) { syntax_asdl::word_t* w = nullptr; StackRoot _root0(&w); if (this->buffered_word) { w = this->buffered_word; this->buffered_word = nullptr; } else { while (true) { w = this->_ReadWord(word_mode); if (w != nullptr) { break; } } } this->returned_newline = word_::CommandId(w) == Id::Op_Newline; return w; } syntax_asdl::word_t* WordParser::ReadArithWord() { syntax_asdl::word_t* w = nullptr; StackRoot _root0(&w); while (true) { w = this->_ReadArithWord(); if (w != nullptr) { break; } } return w; } void WordParser::ReadHereDocBody(List* parts) { StackRoot _root0(&parts); this->_ReadLikeDQ(nullptr, false, parts); } syntax_asdl::CompoundWord* WordParser::ReadForPlugin() { syntax_asdl::CompoundWord* w = nullptr; StackRoot _root0(&w); w = Alloc(Alloc>()); this->_ReadLikeDQ(nullptr, false, w->parts); return w; } void WordParser::EmitDocToken(bool b) { this->emit_doc_token = b; } void WordParser::Multiline(bool b) { this->multiline = b; } } // define namespace word_parse namespace parse { // define using pnode::PNode; using pnode::PNodeAllocator; int NT_OFFSET = 256; ParseError::ParseError(BigStr* msg, int type_, syntax_asdl::Token* tok) { this->msg = msg; this->type = type_; this->tok = tok; } _StackItem::_StackItem(Tuple2*>*>*, Dict*>* dfa, int state, pnode::PNode* node) { this->dfa = dfa; this->state = state; this->node = node; } Parser::Parser(grammar::Grammar* grammar) { this->grammar = grammar; this->rootnode = nullptr; this->stack = Alloc>(); this->pnode_alloc = nullptr; } void Parser::setup(int start, pnode::PNodeAllocator* pnode_alloc) { pnode::PNode* newnode = nullptr; StackRoot _root0(&pnode_alloc); StackRoot _root1(&newnode); this->pnode_alloc = pnode_alloc; newnode = this->pnode_alloc->NewPNode(start, nullptr); this->stack = NewList(std::initializer_list{Alloc<_StackItem>(this->grammar->dfas->at(start), 0, newnode)}); this->rootnode = nullptr; } bool Parser::addtoken(int typ, syntax_asdl::Token* opaque, int ilabel) { parse::_StackItem* top = nullptr; List*>*>* states = nullptr; int state; List*>* arcs = nullptr; bool found; int ilab; int newstate; int t; int s0; int s1; Tuple2*>*>*, Dict*>* itsdfa = nullptr; Dict* itsfirst = nullptr; bool found2; int left; int right; StackRoot _root0(&opaque); StackRoot _root1(&top); StackRoot _root2(&states); StackRoot _root3(&arcs); StackRoot _root4(&itsdfa); StackRoot _root5(&itsfirst); while (true) { top = this->stack->at(-1); Tuple2*>*>*, Dict*>* tup0 = top->dfa; states = tup0->at0(); state = top->state; arcs = states->at(state); found = false; for (ListIter*> it(arcs); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); ilab = tup1->at0(); newstate = tup1->at1(); t = this->grammar->labels->at(ilab); if (ilabel == ilab) { this->shift(typ, opaque, newstate); state = newstate; while (true) { if (len(states->at(state)) != 1) { break; } Tuple2* tup2 = states->at(state)->at(0); s0 = tup2->at0(); s1 = tup2->at1(); if ((s0 != 0 or s1 != state)) { break; } this->pop(); if (len(this->stack) == 0) { return true; } top = this->stack->at(-1); Tuple2*>*>*, Dict*>* tup3 = top->dfa; states = tup3->at0(); state = top->state; } return false; } else { if (t >= NT_OFFSET) { itsdfa = this->grammar->dfas->at(t); Tuple2*>*>*, Dict*>* tup4 = itsdfa; itsfirst = tup4->at1(); if (dict_contains(itsfirst, ilabel)) { this->push(t, opaque, this->grammar->dfas->at(t), newstate); found = true; break; } } } } if (!found) { found2 = false; for (ListIter*> it(arcs); !it.Done(); it.Next()) { Tuple2* tup5 = it.Value(); left = tup5->at0(); right = tup5->at1(); if ((left == 0 and right == state)) { this->pop(); if (len(this->stack) == 0) { throw Alloc(str1967, typ, opaque); } found2 = true; } } if (!found2) { throw Alloc(str1968, typ, opaque); } } } } void Parser::shift(int typ, syntax_asdl::Token* opaque, int newstate) { parse::_StackItem* top = nullptr; pnode::PNode* newnode = nullptr; StackRoot _root0(&opaque); StackRoot _root1(&top); StackRoot _root2(&newnode); top = this->stack->at(-1); newnode = this->pnode_alloc->NewPNode(typ, opaque); top->node->AddChild(newnode); this->stack->at(-1)->state = newstate; } void Parser::push(int typ, syntax_asdl::Token* opaque, Tuple2*>*>*, Dict*>* newdfa, int newstate) { parse::_StackItem* top = nullptr; pnode::PNode* newnode = nullptr; StackRoot _root0(&opaque); StackRoot _root1(&newdfa); StackRoot _root2(&top); StackRoot _root3(&newnode); top = this->stack->at(-1); newnode = this->pnode_alloc->NewPNode(typ, opaque); this->stack->at(-1)->state = newstate; this->stack->append(Alloc<_StackItem>(newdfa, 0, newnode)); } void Parser::pop() { parse::_StackItem* top = nullptr; pnode::PNode* newnode = nullptr; parse::_StackItem* top2 = nullptr; StackRoot _root0(&top); StackRoot _root1(&newnode); StackRoot _root2(&top2); top = this->stack->pop(); newnode = top->node; if (len(this->stack)) { top2 = this->stack->at(-1); top2->node->AddChild(newnode); } else { this->rootnode = newnode; } } } // define namespace parse namespace cgi { // define BigStr* escape(BigStr* s) { StackRoot _root0(&s); s = s->replace(str1969, str1970); s = s->replace(str1971, str1972); s = s->replace(str1973, str1974); return s; } } // define namespace cgi namespace os_path { // define BigStr* extsep = str1975; BigStr* sep = str1976; BigStr* join(BigStr* s1, BigStr* s2) { StackRoot _root0(&s1); StackRoot _root1(&s2); if ((s2->startswith(str1977) or len(s1) == 0)) { return s2; } if (s1->endswith(str1978)) { return str_concat(s1, s2); } return StrFormat("%s/%s", s1, s2); } Tuple2 split(BigStr* p) { int i; BigStr* head = nullptr; BigStr* tail = nullptr; StackRoot _root0(&p); StackRoot _root1(&head); StackRoot _root2(&tail); i = (p->rfind(str1980) + 1); head = p->slice(0, i); tail = p->slice(i); head = rstrip_slashes(head); return Tuple2(head, tail); } Tuple2 _splitext(BigStr* p, BigStr* sep, BigStr* extsep) { int sepIndex; int dotIndex; int filenameIndex; StackRoot _root0(&p); StackRoot _root1(&sep); StackRoot _root2(&extsep); sepIndex = p->rfind(sep); dotIndex = p->rfind(extsep); if (dotIndex > sepIndex) { filenameIndex = (sepIndex + 1); while (filenameIndex < dotIndex) { if (!(str_equals(p->at(filenameIndex), extsep))) { return Tuple2(p->slice(0, dotIndex), p->slice(dotIndex)); } filenameIndex += 1; } } return Tuple2(p, str1981); } Tuple2 splitext(BigStr* p) { StackRoot _root0(&p); return _splitext(p, sep, extsep); } BigStr* basename(BigStr* p) { int i; StackRoot _root0(&p); i = (p->rfind(str1982) + 1); return p->slice(i); } BigStr* dirname(BigStr* p) { int i; BigStr* head = nullptr; StackRoot _root0(&p); StackRoot _root1(&head); i = (p->rfind(str1983) + 1); head = p->slice(0, i); head = rstrip_slashes(head); return head; } BigStr* normpath(BigStr* path) { BigStr* slash = nullptr; BigStr* dot = nullptr; int initial_slashes; List* comps = nullptr; List* new_comps = nullptr; StackRoot _root0(&path); StackRoot _root1(&slash); StackRoot _root2(&dot); StackRoot _root3(&comps); StackRoot _root4(&new_comps); slash = str1984; dot = str1985; if (str_equals(path, str1986)) { return dot; } initial_slashes = path->startswith(str1987); if ((initial_slashes and (path->startswith(str1988) and !path->startswith(str1989)))) { initial_slashes = 2; } comps = path->split(str1990); new_comps = Alloc>(); for (ListIter it(comps); !it.Done(); it.Next()) { BigStr* comp = it.Value(); StackRoot _for(&comp ); if ((len(comp) == 0 or str_equals(comp, str1991))) { continue; } if ((!(str_equals(comp, str1992)) or ((initial_slashes == 0 and len(new_comps) == 0) or (len(new_comps) and str_equals(new_comps->at(-1), str1993))))) { new_comps->append(comp); } else { if (len(new_comps)) { new_comps->pop(); } } } comps = new_comps; path = slash->join(comps); if (initial_slashes) { path = str_concat(str_repeat(slash, initial_slashes), path); } return len(path) ? path : dot; } bool isabs(BigStr* s) { StackRoot _root0(&s); return s->startswith(str1994); } BigStr* abspath(BigStr* path) { BigStr* cwd = nullptr; StackRoot _root0(&path); StackRoot _root1(&cwd); if (!isabs(path)) { cwd = posix::getcwd(); path = join(cwd, path); } return normpath(path); } } // define namespace os_path namespace fmt { // define void Format(alloc::Arena* arena, syntax_asdl::command_t* node) { ysh_ify::Cursor* cursor = nullptr; StackRoot _root0(&arena); StackRoot _root1(&node); StackRoot _root2(&cursor); cursor = Alloc(arena, mylib::Stdout()); cursor->PrintUntilEnd(); } } // define namespace fmt namespace ysh_ify { // define using id_kind_asdl::Id; using id_kind_asdl::Id_str; using runtime_asdl::word_style_e; using runtime_asdl::word_style_t; using syntax_asdl::loc; using syntax_asdl::CompoundWord; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::BracedVarSub; using syntax_asdl::CommandSub; using syntax_asdl::DoubleQuoted; using syntax_asdl::SingleQuoted; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::word_part; using syntax_asdl::word_part_e; using syntax_asdl::word_part_t; using syntax_asdl::rhs_word_e; using syntax_asdl::rhs_word_t; using syntax_asdl::sh_lhs; using syntax_asdl::sh_lhs_e; using syntax_asdl::command; using syntax_asdl::command_e; using syntax_asdl::BraceGroup; using syntax_asdl::for_iter_e; using syntax_asdl::case_arg_e; using syntax_asdl::case_arg; using syntax_asdl::condition; using syntax_asdl::condition_e; using syntax_asdl::redir_param; using syntax_asdl::redir_param_e; using syntax_asdl::Redir; using error::p_die; using mylib::print_stderr; Cursor::Cursor(alloc::Arena* arena, mylib::Writer* f) { this->arena = arena; this->f = f; this->next_span_id = 0; } void Cursor::_PrintUntilSpid(int until_span_id) { syntax_asdl::Token* span = nullptr; int start_index; int end_index; BigStr* piece = nullptr; StackRoot _root0(&span); StackRoot _root1(&piece); if (until_span_id == runtime::NO_SPID) { } for (int span_id = this->next_span_id; span_id < until_span_id; ++span_id) { span = this->arena->GetToken(span_id); if (span->line == nullptr) { continue; } start_index = span->id == Id::Lit_CharsWithoutPrefix ? 0 : span->col; end_index = (span->col + span->length); piece = span->line->content->slice(start_index, end_index); this->f->write(piece); } this->next_span_id = until_span_id; } void Cursor::_SkipUntilSpid(int next_span_id) { if ((next_span_id == runtime::NO_SPID or next_span_id == (runtime::NO_SPID + 1))) { } this->next_span_id = next_span_id; } void Cursor::SkipUntil(syntax_asdl::Token* tok) { int span_id; StackRoot _root0(&tok); span_id = this->arena->GetSpanId(tok); this->_SkipUntilSpid(span_id); } void Cursor::SkipPast(syntax_asdl::Token* tok) { int span_id; StackRoot _root0(&tok); span_id = this->arena->GetSpanId(tok); this->_SkipUntilSpid((span_id + 1)); } void Cursor::PrintUntil(syntax_asdl::Token* tok) { int span_id; StackRoot _root0(&tok); span_id = this->arena->GetSpanId(tok); this->_PrintUntilSpid(span_id); } void Cursor::PrintIncluding(syntax_asdl::Token* tok) { int span_id; StackRoot _root0(&tok); span_id = this->arena->GetSpanId(tok); this->_PrintUntilSpid((span_id + 1)); } void Cursor::PrintUntilEnd() { this->_PrintUntilSpid(this->arena->LastSpanId()); } void LosslessCat(alloc::Arena* arena) { ysh_ify::Cursor* cursor = nullptr; StackRoot _root0(&arena); StackRoot _root1(&cursor); cursor = Alloc(arena, mylib::Stdout()); cursor->PrintUntilEnd(); } void PrintTokens(alloc::Arena* arena) { int i; BigStr* piece = nullptr; StackRoot _root0(&arena); StackRoot _root1(&piece); if (len(arena->tokens) == 1) { print(str1995); print(StrFormat("%s", arena->tokens->at(0))); return ; } i = 0; for (ListIter it(arena->tokens); !it.Done(); it.Next(), ++i) { syntax_asdl::Token* tok = it.Value(); StackRoot _for(&tok ); piece = tok->line->content->slice(tok->col, (tok->col + tok->length)); print(StrFormat("%5d %-20s %r", i, Id_str(tok->id), piece)); } print_stderr(StrFormat("(%d tokens)", len(arena->tokens))); } void Ysh_ify(alloc::Arena* arena, syntax_asdl::command_t* node) { ysh_ify::Cursor* cursor = nullptr; ysh_ify::YshPrinter* fixer = nullptr; StackRoot _root0(&arena); StackRoot _root1(&node); StackRoot _root2(&cursor); StackRoot _root3(&fixer); cursor = Alloc(arena, mylib::Stdout()); fixer = Alloc(cursor, arena, mylib::Stdout()); fixer->DoCommand(node, nullptr, true); fixer->End(); } runtime_asdl::word_style_t _GetRhsStyle(syntax_asdl::rhs_word_t* w) { syntax_asdl::rhs_word_t* UP_w = nullptr; syntax_asdl::word_part_t* part0 = nullptr; syntax_asdl::word_part_t* UP_part0 = nullptr; StackRoot _root0(&w); StackRoot _root1(&UP_w); StackRoot _root2(&part0); StackRoot _root3(&UP_part0); UP_w = w; switch (w->tag()) { case rhs_word_e::Empty: { return word_style_e::SQ; } break; case rhs_word_e::Compound: { CompoundWord* w = static_cast(UP_w); if (len(w->parts) == 0) { assert(0); // AssertionError } else { if (len(w->parts) == 1) { part0 = w->parts->at(0); UP_part0 = part0; switch (part0->tag()) { case word_part_e::TildeSub: { return word_style_e::Expr; } break; case word_part_e::Literal: { return word_style_e::SQ; } break; case word_part_e::SimpleVarSub: { return word_style_e::DQ; } break; case word_part_e::BracedVarSub: case word_part_e::CommandSub: case word_part_e::ArithSub: { return word_style_e::Unquoted; } break; case word_part_e::DoubleQuoted: { DoubleQuoted* part0 = static_cast(UP_part0); return word_style_e::DQ; } break; } } else { return word_style_e::DQ; } } } break; } return word_style_e::SQ; } YshPrinter::YshPrinter(ysh_ify::Cursor* cursor, alloc::Arena* arena, mylib::Writer* f) { this->cursor = cursor; this->arena = arena; this->f = f; } void YshPrinter::_DebugSpid(int spid) { syntax_asdl::Token* span = nullptr; BigStr* s = nullptr; StackRoot _root0(&span); StackRoot _root1(&s); span = this->arena->GetToken(spid); s = span->line->content->slice(span->col, (span->col + span->length)); print_stderr(StrFormat("SPID %d = %r", spid, s)); } void YshPrinter::End() { this->cursor->PrintUntilEnd(); } void YshPrinter::DoRedirect(syntax_asdl::Redir* node, Dict* local_symbols) { int op_id; redir_param::HereDoc* here_doc = nullptr; syntax_asdl::word_t* here_begin = nullptr; bool ok; BigStr* delimiter = nullptr; bool delim_quoted; syntax_asdl::Token* delim_end_tok = nullptr; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&here_doc); StackRoot _root3(&here_begin); StackRoot _root4(&delimiter); StackRoot _root5(&delim_end_tok); op_id = node->op->id; this->cursor->PrintUntil(node->op); if (node->arg->tag() == redir_param_e::HereDoc) { here_doc = static_cast(node->arg); here_begin = here_doc->here_begin; Tuple3 tup0 = word_::StaticEval(here_begin); ok = tup0.at0(); delimiter = tup0.at1(); delim_quoted = tup0.at2(); if (!ok) { p_die(str2000, Alloc(here_begin)); } this->f->write(str2001); if (delim_quoted) { this->f->write(str2002); } else { this->f->write(str2003); } delim_end_tok = location::RightTokenForWord(here_begin); this->cursor->SkipPast(delim_end_tok); for (ListIter it(here_doc->stdin_parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); this->DoWordPart(part, local_symbols); } this->cursor->SkipPast(here_doc->here_end_tok); if (delim_quoted) { this->f->write(str2004); } else { this->f->write(str2005); } } else { ; // pass } } void YshPrinter::DoShAssignment(command::ShAssignment* node, bool at_top_level, Dict* local_symbols) { bool has_rhs; bool defined_locally; syntax_asdl::sh_lhs_t* lhs0 = nullptr; List* has_array_index = nullptr; int n; int i; syntax_asdl::sh_lhs_t* lhs = nullptr; syntax_asdl::sh_lhs_t* UP_lhs = nullptr; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&lhs0); StackRoot _root3(&has_array_index); StackRoot _root4(&lhs); StackRoot _root5(&UP_lhs); has_rhs = false; defined_locally = false; if (true) { this->cursor->PrintUntil(node->pairs->at(0)->left); if (local_symbols != nullptr) { lhs0 = node->pairs->at(0)->lhs; } has_array_index = Alloc>(); for (ListIter it(node->pairs); !it.Done(); it.Next()) { syntax_asdl::AssignPair* pair = it.Value(); has_array_index->append(pair->lhs->tag() == sh_lhs_e::UnparsedIndex); } if (at_top_level) { this->f->write(str2006); } else { if (defined_locally) { this->f->write(str2007); } else { this->f->write(str2008); } } } n = len(node->pairs); i = 0; for (ListIter it(node->pairs); !it.Done(); it.Next(), ++i) { syntax_asdl::AssignPair* pair = it.Value(); StackRoot _for(&pair ); lhs = pair->lhs; UP_lhs = lhs; switch (lhs->tag()) { case sh_lhs_e::Name: { sh_lhs::Name* lhs = static_cast(UP_lhs); this->cursor->PrintUntil(pair->left); this->cursor->SkipPast(pair->left); this->f->write(lhs->name); this->f->write(str2009); if (pair->rhs->tag() == rhs_word_e::Empty) { this->f->write(str2010); } else { this->DoRhsWord(pair->rhs, local_symbols); } } break; case sh_lhs_e::UnparsedIndex: { ; // pass } break; default: { assert(0); // AssertionError } } if (i != (n - 1)) { this->f->write(str2011); } } } void YshPrinter::_DoSimple(command::Simple* node, Dict* local_symbols) { syntax_asdl::word_t* first_word = nullptr; bool ok; BigStr* val = nullptr; bool quoted; syntax_asdl::Token* word0_tok = nullptr; syntax_asdl::word_t* word2 = nullptr; syntax_asdl::word_t* last_word = nullptr; syntax_asdl::Token* tok2 = nullptr; syntax_asdl::Token* rbrack_tok = nullptr; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&first_word); StackRoot _root3(&val); StackRoot _root4(&word0_tok); StackRoot _root5(&word2); StackRoot _root6(&last_word); StackRoot _root7(&tok2); StackRoot _root8(&rbrack_tok); if (len(node->more_env)) { for (ListIter it(node->more_env); !it.Done(); it.Next()) { syntax_asdl::EnvPair* pair = it.Value(); StackRoot _for(&pair ); this->DoRhsWord(pair->val, local_symbols); } } if (len(node->words)) { first_word = node->words->at(0); Tuple3 tup1 = word_::StaticEval(first_word); ok = tup1.at0(); val = tup1.at1(); quoted = tup1.at2(); word0_tok = location::LeftTokenForWord(first_word); if ((ok and !quoted)) { if ((str_equals(val, str2012) and len(node->words) >= 3)) { word2 = node->words->at(-2); last_word = node->words->at(-1); Tuple3 tup2 = word_::StaticEval(last_word); ok = tup2.at0(); val = tup2.at1(); quoted = tup2.at2(); if ((ok and (!quoted and str_equals(val, str2013)))) { this->cursor->PrintUntil(word0_tok); this->cursor->SkipPast(word0_tok); this->f->write(str2014); for (ListIter it(node->words->slice(1, -1)); !it.Done(); it.Next()) { syntax_asdl::word_t* w = it.Value(); StackRoot _for(&w ); this->DoWordInCommand(w, local_symbols); } tok2 = location::RightTokenForWord(word2); rbrack_tok = location::LeftTokenForWord(last_word); this->cursor->PrintIncluding(tok2); this->cursor->SkipPast(rbrack_tok); return ; } else { throw Alloc(str2015); } } else { if (str_equals(val, str2016)) { this->cursor->PrintUntil(word0_tok); this->cursor->SkipPast(word0_tok); this->f->write(str2017); return ; } } } } for (ListIter it(node->words); !it.Done(); it.Next()) { syntax_asdl::word_t* w = it.Value(); StackRoot _for(&w ); this->DoWordInCommand(w, local_symbols); } } void YshPrinter::DoCommand(syntax_asdl::command_t* node, Dict* local_symbols, bool at_top_level) { syntax_asdl::command_t* UP_node = nullptr; Dict* new_local_symbols = nullptr; syntax_asdl::command_t* UP_body = nullptr; syntax_asdl::for_iter_t* UP_iterable = nullptr; syntax_asdl::Token* body_tok = nullptr; List* commands = nullptr; command::Sentence* sentence = nullptr; int i; syntax_asdl::Token* elif_tok = nullptr; syntax_asdl::Token* then_tok = nullptr; syntax_asdl::condition_t* cond = nullptr; syntax_asdl::word_t* to_match = nullptr; syntax_asdl::SimpleVarSub* var_part = nullptr; CompoundWord* w = nullptr; syntax_asdl::word_part_t* part0 = nullptr; DoubleQuoted* dq_part = nullptr; syntax_asdl::word_part_t* dq_part0 = nullptr; bool missing_last_dsemi; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&UP_node); StackRoot _root3(&new_local_symbols); StackRoot _root4(&UP_body); StackRoot _root5(&UP_iterable); StackRoot _root6(&body_tok); StackRoot _root7(&commands); StackRoot _root8(&sentence); StackRoot _root9(&elif_tok); StackRoot _root10(&then_tok); StackRoot _root11(&cond); StackRoot _root12(&to_match); StackRoot _root13(&var_part); StackRoot _root14(&w); StackRoot _root15(&part0); StackRoot _root16(&dq_part); StackRoot _root17(&dq_part0); UP_node = node; switch (node->tag()) { case command_e::CommandList: { command::CommandList* node = static_cast(UP_node); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols, at_top_level); } } break; case command_e::Redirect: { command::Redirect* node = static_cast(UP_node); this->DoCommand(node->child, local_symbols, at_top_level); for (ListIter it(node->redirects); !it.Done(); it.Next()) { syntax_asdl::Redir* r = it.Value(); StackRoot _for(&r ); this->DoRedirect(r, local_symbols); } } break; case command_e::Simple: { command::Simple* node = static_cast(UP_node); this->_DoSimple(node, local_symbols); } break; case command_e::ShAssignment: { command::ShAssignment* node = static_cast(UP_node); this->DoShAssignment(node, at_top_level, local_symbols); } break; case command_e::Pipeline: { command::Pipeline* node = static_cast(UP_node); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } break; case command_e::AndOr: { command::AndOr* node = static_cast(UP_node); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } break; case command_e::Sentence: { command::Sentence* node = static_cast(UP_node); this->DoCommand(node->child, local_symbols); } break; case command_e::BraceGroup: { BraceGroup* node = static_cast(UP_node); this->cursor->PrintUntil(node->left); this->cursor->SkipPast(node->left); this->f->write(str2018); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } break; case command_e::Subshell: { command::Subshell* node = static_cast(UP_node); this->cursor->PrintUntil(node->left); this->cursor->SkipPast(node->left); this->f->write(str2019); this->DoCommand(node->child, local_symbols); this->cursor->PrintUntil(node->right); this->cursor->SkipPast(node->right); this->f->write(str2020); } break; case command_e::ShFunction: { command::ShFunction* node = static_cast(UP_node); new_local_symbols = Alloc>(); if (node->keyword) { this->cursor->PrintUntil(node->keyword); } else { this->cursor->PrintUntil(node->name_tok); } this->f->write(StrFormat("proc %s ", node->name)); UP_body = node->body; switch (UP_body->tag()) { case command_e::BraceGroup: { BraceGroup* body = static_cast(UP_body); this->cursor->SkipUntil(body->left); for (ListIter it(body->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, new_local_symbols); } } break; default: { ; // pass } } } break; case command_e::DoGroup: { command::DoGroup* node = static_cast(UP_node); this->cursor->PrintUntil(node->left); this->cursor->SkipPast(node->left); this->f->write(str2022); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } this->cursor->PrintUntil(node->right); this->cursor->SkipPast(node->right); this->f->write(str2023); } break; case command_e::ForEach: { command::ForEach* node = static_cast(UP_node); UP_iterable = node->iterable; switch (node->iterable->tag()) { case for_iter_e::Args: { this->f->write(StrFormat("for %s in @ARGV ", node->iter_names->at(0))); body_tok = location::TokenForCommand(node->body); this->cursor->SkipUntil(body_tok); } break; case for_iter_e::Words: { ; // pass } break; case for_iter_e::YshExpr: { ; // pass } break; } if (node->semi_tok != nullptr) { this->cursor->PrintUntil(node->semi_tok); this->cursor->SkipPast(node->semi_tok); } this->DoCommand(node->body, local_symbols); } break; case command_e::WhileUntil: { command::WhileUntil* node = static_cast(UP_node); if (node->keyword->id == Id::KW_Until) { this->cursor->PrintUntil(node->keyword); this->cursor->SkipPast(node->keyword); this->f->write(str2025); } if (node->cond->tag() == condition_e::Shell) { commands = static_cast(node->cond)->commands; if ((len(commands) == 1 and commands->at(0)->tag() == command_e::Sentence)) { sentence = static_cast(commands->at(0)); this->DoCommand(sentence->child, local_symbols); this->cursor->SkipPast(sentence->terminator); } } this->DoCommand(node->body, local_symbols); } break; case command_e::If: { command::If* node = static_cast(UP_node); i = 0; for (ListIter it(node->arms); !it.Done(); it.Next(), ++i) { syntax_asdl::IfArm* arm = it.Value(); StackRoot _for(&arm ); elif_tok = arm->keyword; then_tok = arm->then_tok; if (i != 0) { this->cursor->PrintUntil(elif_tok); this->f->write(str2026); } cond = arm->cond; if (cond->tag() == condition_e::Shell) { commands = static_cast(cond)->commands; if ((len(commands) == 1 and commands->at(0)->tag() == command_e::Sentence)) { sentence = static_cast(commands->at(0)); this->DoCommand(sentence, local_symbols); this->cursor->PrintUntil(sentence->terminator); this->cursor->SkipPast(sentence->terminator); } else { for (ListIter it(commands); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } } this->cursor->PrintUntil(then_tok); this->cursor->SkipPast(then_tok); this->f->write(str2027); for (ListIter it(arm->action); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } if (len(node->else_action)) { this->cursor->PrintUntil(node->else_kw); this->f->write(str2028); this->cursor->PrintIncluding(node->else_kw); this->f->write(str2029); for (ListIter it(node->else_action); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } } this->cursor->PrintUntil(node->fi_kw); this->cursor->SkipPast(node->fi_kw); this->f->write(str2030); } break; case command_e::Case: { command::Case* node = static_cast(UP_node); to_match = nullptr; switch (node->to_match->tag()) { case case_arg_e::YshExpr: { return ; } break; case case_arg_e::Word: { to_match = static_cast(node->to_match)->w; } break; default: { assert(0); // AssertionError } } this->cursor->PrintIncluding(node->case_kw); var_part = nullptr; switch (to_match->tag()) { case word_e::Compound: { w = static_cast(to_match); part0 = w->parts->at(0); switch (part0->tag()) { case word_part_e::SimpleVarSub: { var_part = static_cast(part0); } break; case word_part_e::DoubleQuoted: { dq_part = static_cast(part0); if (len(dq_part->parts) == 1) { dq_part0 = dq_part->parts->at(0); switch (dq_part0->tag()) { case word_part_e::SimpleVarSub: { var_part = static_cast(dq_part0); } break; } } } break; } } break; } if (var_part) { this->f->write(str2031); this->f->write(lexer::LazyStr(var_part->tok)); this->f->write(str2032); } this->cursor->SkipPast(node->arms_start); this->f->write(str2033); missing_last_dsemi = false; for (ListIter it(node->arms); !it.Done(); it.Next()) { syntax_asdl::CaseArm* case_arm = it.Value(); StackRoot _for(&case_arm ); this->cursor->PrintUntil(case_arm->middle); this->f->write(str2034); this->cursor->SkipPast(case_arm->middle); for (ListIter it(case_arm->action); !it.Done(); it.Next()) { syntax_asdl::command_t* child = it.Value(); StackRoot _for(&child ); this->DoCommand(child, local_symbols); } if (case_arm->right) { this->cursor->PrintUntil(case_arm->right); this->f->write(str2035); this->cursor->SkipPast(case_arm->right); } else { missing_last_dsemi = true; } } this->cursor->PrintUntil(node->arms_end); if (missing_last_dsemi) { this->f->write(str2036); } this->cursor->SkipPast(node->arms_end); this->f->write(str2037); } break; case command_e::TimeBlock: { command::TimeBlock* node = static_cast(UP_node); this->DoCommand(node->pipeline, local_symbols); } break; case command_e::DParen: { command::DParen* node = static_cast(UP_node); ; // pass } break; case command_e::DBracket: { command::DBracket* node = static_cast(UP_node); ; // pass } break; default: { ; // pass } } } void YshPrinter::DoRhsWord(syntax_asdl::rhs_word_t* node, Dict* local_symbols) { syntax_asdl::rhs_word_t* UP_node = nullptr; runtime_asdl::word_style_t style; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&UP_node); UP_node = node; switch (node->tag()) { case rhs_word_e::Empty: { this->f->write(str2038); } break; case rhs_word_e::Compound: { CompoundWord* node = static_cast(UP_node); style = _GetRhsStyle(node); if (style == word_style_e::SQ) { this->f->write(str2039); this->DoWordInCommand(node, local_symbols); this->f->write(str2040); } else { if (style == word_style_e::DQ) { this->f->write(str2041); this->DoWordInCommand(node, local_symbols); this->f->write(str2042); } else { if (word_::IsVarSub(node)) { ; // pass } this->DoWordInCommand(node, local_symbols); } } } break; } } void YshPrinter::DoWordInCommand(syntax_asdl::word_t* node, Dict* local_symbols) { syntax_asdl::word_t* UP_node = nullptr; DoubleQuoted* dq_part = nullptr; syntax_asdl::word_part_t* part0 = nullptr; SimpleVarSub* vsub_part = nullptr; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&UP_node); StackRoot _root3(&dq_part); StackRoot _root4(&part0); StackRoot _root5(&vsub_part); UP_node = node; switch (node->tag()) { case word_e::Compound: { CompoundWord* node = static_cast(UP_node); if ((len(node->parts) == 1 and node->parts->at(0)->tag() == word_part_e::DoubleQuoted)) { dq_part = static_cast(node->parts->at(0)); if (len(dq_part->parts) == 1) { part0 = dq_part->parts->at(0); if (part0->tag() == word_part_e::SimpleVarSub) { vsub_part = static_cast(dq_part->parts->at(0)); if (vsub_part->tok->id == Id::VSub_At) { this->cursor->PrintUntil(dq_part->left); this->cursor->SkipPast(dq_part->right); this->f->write(str2043); return ; } if ((vsub_part->tok->id == Id::VSub_Number || vsub_part->tok->id == Id::VSub_DollarName)) { this->cursor->PrintUntil(dq_part->left); this->cursor->SkipPast(dq_part->right); this->f->write(lexer::TokenVal(vsub_part->tok)); return ; } } else { if (part0->tag() == word_part_e::BracedVarSub) { this->cursor->PrintUntil(dq_part->left); this->cursor->SkipPast(dq_part->left); this->DoWordPart(part0, local_symbols); this->cursor->SkipPast(dq_part->right); return ; } else { if (part0->tag() == word_part_e::CommandSub) { this->cursor->PrintUntil(dq_part->left); this->cursor->SkipPast(dq_part->left); this->DoWordPart(part0, local_symbols); this->cursor->SkipPast(dq_part->right); return ; } } } } } for (ListIter it(node->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); this->DoWordPart(part, local_symbols); } } break; case word_e::BracedTree: { ; // pass } break; default: { assert(0); // AssertionError } } } void YshPrinter::DoWordPart(syntax_asdl::word_part_t* node, Dict* local_symbols, bool quoted) { syntax_asdl::Token* left_tok = nullptr; syntax_asdl::word_part_t* UP_node = nullptr; syntax_asdl::Token* t = nullptr; BigStr* val = nullptr; int op_id; StackRoot _root0(&node); StackRoot _root1(&local_symbols); StackRoot _root2(&left_tok); StackRoot _root3(&UP_node); StackRoot _root4(&t); StackRoot _root5(&val); left_tok = location::LeftTokenForWordPart(node); if (left_tok) { this->cursor->PrintUntil(left_tok); } UP_node = node; switch (node->tag()) { case word_part_e::ShArrayLiteral: case word_part_e::BashAssocLiteral: case word_part_e::TildeSub: case word_part_e::ExtGlob: { ; // pass } break; case word_part_e::EscapedLiteral: { word_part::EscapedLiteral* node = static_cast(UP_node); if (quoted) { ; // pass } else { t = node->token; val = lexer::TokenSliceLeft(t, 1); if (!(str_equals(val, str2044))) { this->cursor->PrintUntil(t); this->cursor->SkipPast(t); this->f->write(StrFormat("'%s'", val)); } } } break; case word_part_e::Literal: { Token* node = static_cast(UP_node); this->cursor->PrintIncluding(node); } break; case word_part_e::SingleQuoted: { SingleQuoted* node = static_cast(UP_node); this->cursor->PrintUntil(node->right); } break; case word_part_e::DoubleQuoted: { DoubleQuoted* node = static_cast(UP_node); for (ListIter it(node->parts); !it.Done(); it.Next()) { syntax_asdl::word_part_t* part = it.Value(); StackRoot _for(&part ); this->DoWordPart(part, local_symbols, true); } } break; case word_part_e::SimpleVarSub: { SimpleVarSub* node = static_cast(UP_node); op_id = node->tok->id; if (op_id == Id::VSub_DollarName) { this->cursor->PrintIncluding(node->tok); } else { if (op_id == Id::VSub_Number) { this->cursor->PrintIncluding(node->tok); } else { if (op_id == Id::VSub_At) { this->f->write(str2046); this->cursor->SkipPast(node->tok); } else { if (op_id == Id::VSub_Star) { this->f->write(str2047); this->cursor->SkipPast(node->tok); } else { if (op_id == Id::VSub_Pound) { this->f->write(str2048); this->cursor->SkipPast(node->tok); } else { ; // pass } } } } } } break; case word_part_e::BracedVarSub: { BracedVarSub* node = static_cast(UP_node); this->cursor->PrintUntil(node->left); if (node->bracket_op) { ; // pass } if (node->prefix_op) { ; // pass } if (node->suffix_op) { ; // pass } op_id = node->token->id; if (op_id == Id::VSub_QMark) { this->cursor->PrintIncluding(node->token); } this->cursor->PrintIncluding(node->right); } break; case word_part_e::CommandSub: { CommandSub* node = static_cast(UP_node); if (node->left_token->id == Id::Left_Backtick) { this->cursor->PrintUntil(node->left_token); this->f->write(str2049); this->cursor->SkipPast(node->left_token); this->DoCommand(node->child, local_symbols); this->cursor->SkipPast(node->right); this->f->write(str2050); } else { this->cursor->PrintIncluding(node->right); } } break; default: { ; // pass } } } } // define namespace ysh_ify namespace expr_eval { // define using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::re; using syntax_asdl::re_e; using syntax_asdl::re_t; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::word_part; using syntax_asdl::SingleQuoted; using syntax_asdl::DoubleQuoted; using syntax_asdl::BracedVarSub; using syntax_asdl::ShArrayLiteral; using syntax_asdl::CommandSub; using syntax_asdl::expr; using syntax_asdl::expr_e; using syntax_asdl::expr_t; using syntax_asdl::y_lhs_e; using syntax_asdl::y_lhs_t; using syntax_asdl::Attribute; using syntax_asdl::Subscript; using syntax_asdl::class_literal_term; using syntax_asdl::class_literal_term_e; using syntax_asdl::class_literal_term_t; using syntax_asdl::char_class_term_t; using syntax_asdl::PosixClass; using syntax_asdl::PerlClass; using syntax_asdl::CharCode; using syntax_asdl::CharRange; using syntax_asdl::ArgList; using syntax_asdl::Eggex; using runtime_asdl::coerced_e; using runtime_asdl::coerced_t; using runtime_asdl::scope_e; using runtime_asdl::scope_t; using runtime_asdl::part_value; using runtime_asdl::part_value_t; using runtime_asdl::Piece; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::y_lvalue; using value_asdl::y_lvalue_e; using value_asdl::y_lvalue_t; using value_asdl::IntBox; using value_asdl::LeftName; using error::e_die; using error::e_die_status; using mylib::print_stderr; value_asdl::value_t* LookupVar(state::Mem* mem, BigStr* var_name, runtime_asdl::scope_t which_scopes, syntax_asdl::loc_t* var_loc) { value_asdl::value_t* val = nullptr; StackRoot _root0(&mem); StackRoot _root1(&var_name); StackRoot _root2(&var_loc); StackRoot _root3(&val); val = mem->GetValue(var_name, which_scopes); if (val->tag() == value_e::Undef) { e_die(StrFormat("Undefined variable %r", var_name), var_loc); } return val; } mops::BigInt _ConvertToInt(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; switch (val->tag()) { case value_e::Int: { value::Int* val = static_cast(UP_val); return val->i; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if (match::LooksLikeInteger(val->s)) { return mops::FromStr(val->s); } } break; } throw Alloc(val, msg, blame_loc); } Tuple3 _ConvertToNumber(value_asdl::value_t* val) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); UP_val = val; switch (val->tag()) { case value_e::Int: { value::Int* val = static_cast(UP_val); return Tuple3(coerced_e::Int, val->i, -1.0); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); return Tuple3(coerced_e::Float, mops::MINUS_ONE, val->f); } break; case value_e::Str: { value::Str* val = static_cast(UP_val); if (match::LooksLikeInteger(val->s)) { return Tuple3(coerced_e::Int, mops::FromStr(val->s), -1.0); } if (match::LooksLikeFloat(val->s)) { return Tuple3(coerced_e::Float, mops::MINUS_ONE, to_float(val->s)); } } break; } return Tuple3(coerced_e::Neither, mops::MINUS_ONE, -1.0); } Tuple5 _ConvertForBinaryOp(value_asdl::value_t* left, value_asdl::value_t* right) { runtime_asdl::coerced_t c1; mops::BigInt i1; double f1; runtime_asdl::coerced_t c2; mops::BigInt i2; double f2; mops::BigInt nope; StackRoot _root0(&left); StackRoot _root1(&right); Tuple3 tup0 = _ConvertToNumber(left); c1 = tup0.at0(); i1 = tup0.at1(); f1 = tup0.at2(); Tuple3 tup1 = _ConvertToNumber(right); c2 = tup1.at0(); i2 = tup1.at1(); f2 = tup1.at2(); nope = mops::MINUS_ONE; if ((c1 == coerced_e::Int and c2 == coerced_e::Int)) { return Tuple5(coerced_e::Int, i1, i2, -1.0, -1.0); } else { if ((c1 == coerced_e::Int and c2 == coerced_e::Float)) { return Tuple5(coerced_e::Float, nope, nope, mops::ToFloat(i1), f2); } else { if ((c1 == coerced_e::Float and c2 == coerced_e::Int)) { return Tuple5(coerced_e::Float, nope, nope, f1, mops::ToFloat(i2)); } else { if ((c1 == coerced_e::Float and c2 == coerced_e::Float)) { return Tuple5(coerced_e::Float, nope, nope, f1, f2); } else { return Tuple5(coerced_e::Neither, nope, nope, -1.0, -1.0); } } } } } ExprEvaluator::ExprEvaluator(state::Mem* mem, state::MutableOpts* mutable_opts, Dict*>* methods, split::SplitContext* splitter, ui::ErrorFormatter* errfmt) { this->shell_ex = nullptr; this->cmd_ev = nullptr; this->word_ev = nullptr; this->mem = mem; this->mutable_opts = mutable_opts; this->methods = methods; this->splitter = splitter; this->errfmt = errfmt; } void ExprEvaluator::CheckCircularDeps() { } value_asdl::value_t* ExprEvaluator::_LookupVar(BigStr* name, syntax_asdl::loc_t* var_loc) { StackRoot _root0(&name); StackRoot _root1(&var_loc); return LookupVar(this->mem, name, scope_e::LocalOrGlobal, var_loc); } void ExprEvaluator::EvalAugmented(value_asdl::y_lvalue_t* lval, value_asdl::value_t* rhs_val, syntax_asdl::Token* op, runtime_asdl::scope_t which_scopes) { value_asdl::y_lvalue_t* UP_lval = nullptr; value_asdl::value_t* lhs_val = nullptr; value_asdl::value_t* new_val = nullptr; value_asdl::value_t* obj = nullptr; value_asdl::value_t* UP_obj = nullptr; value_asdl::value_t* lhs_val_ = nullptr; int index; BigStr* key = nullptr; value_asdl::value_t* new_val_ = nullptr; StackRoot _root0(&lval); StackRoot _root1(&rhs_val); StackRoot _root2(&op); StackRoot _root3(&UP_lval); StackRoot _root4(&lhs_val); StackRoot _root5(&new_val); StackRoot _root6(&obj); StackRoot _root7(&UP_obj); StackRoot _root8(&lhs_val_); StackRoot _root9(&key); StackRoot _root10(&new_val_); UP_lval = lval; switch (lval->tag()) { case y_lvalue_e::Local: { LeftName* lval = static_cast(UP_lval); lhs_val = this->_LookupVar(lval->name, lval->blame_loc); if ((op->id == Id::Arith_PlusEqual || op->id == Id::Arith_MinusEqual || op->id == Id::Arith_StarEqual || op->id == Id::Arith_SlashEqual)) { new_val = this->_ArithIntFloat(lhs_val, rhs_val, op); } else { new_val = this->_ArithIntOnly(lhs_val, rhs_val, op); } this->mem->SetNamed(lval, new_val, which_scopes); } break; case y_lvalue_e::Container: { y_lvalue::Container* lval = static_cast(UP_lval); obj = lval->obj; UP_obj = obj; lhs_val_ = nullptr; switch (obj->tag()) { case value_e::List: { value::List* obj = static_cast(UP_obj); index = val_ops::ToInt(lval->index, str2052, loc::Missing); try { lhs_val_ = obj->items->at(index); } catch (IndexError*) { throw Alloc(StrFormat("List index out of range: %d", index), loc::Missing); } } break; case value_e::Dict: { value::Dict* obj = static_cast(UP_obj); index = -1; key = val_ops::ToStr(lval->index, str2054, loc::Missing); try { lhs_val_ = obj->d->at(key); } catch (KeyError*) { throw Alloc(StrFormat("Dict entry not found: %r", key), loc::Missing); } } break; default: { throw Alloc(obj, str2056, loc::Missing); } } if ((op->id == Id::Arith_PlusEqual || op->id == Id::Arith_MinusEqual || op->id == Id::Arith_StarEqual || op->id == Id::Arith_SlashEqual)) { new_val_ = this->_ArithIntFloat(lhs_val_, rhs_val, op); } else { new_val_ = this->_ArithIntOnly(lhs_val_, rhs_val, op); } switch (obj->tag()) { case value_e::List: { value::List* obj = static_cast(UP_obj); obj->items->set(index, new_val_); } break; case value_e::Dict: { value::Dict* obj = static_cast(UP_obj); obj->d->set(key, new_val_); } break; } } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::_EvalLeftLocalOrGlobal(syntax_asdl::expr_t* lhs, runtime_asdl::scope_t which_scopes) { syntax_asdl::expr_t* UP_lhs = nullptr; value_asdl::value_t* obj = nullptr; value_asdl::value_t* index = nullptr; StackRoot _root0(&lhs); StackRoot _root1(&UP_lhs); StackRoot _root2(&obj); StackRoot _root3(&index); UP_lhs = lhs; switch (lhs->tag()) { case expr_e::Var: { expr::Var* lhs = static_cast(UP_lhs); return LookupVar(this->mem, lhs->name, which_scopes, lhs->left); } break; case expr_e::Subscript: { Subscript* lhs = static_cast(UP_lhs); obj = this->_EvalLeftLocalOrGlobal(lhs->obj, which_scopes); index = this->_EvalExpr(lhs->index); return this->_EvalSubscript(obj, index); } break; case expr_e::Attribute: { Attribute* lhs = static_cast(UP_lhs); obj = this->_EvalLeftLocalOrGlobal(lhs->obj, which_scopes); return this->_EvalDot(lhs, obj); } break; default: { assert(0); // AssertionError } } } value_asdl::y_lvalue_t* ExprEvaluator::_EvalLhsExpr(syntax_asdl::y_lhs_t* lhs, runtime_asdl::scope_t which_scopes) { syntax_asdl::y_lhs_t* UP_lhs = nullptr; value_asdl::value_t* lval = nullptr; value_asdl::value_t* index = nullptr; value::Str* attr = nullptr; StackRoot _root0(&lhs); StackRoot _root1(&UP_lhs); StackRoot _root2(&lval); StackRoot _root3(&index); StackRoot _root4(&attr); UP_lhs = lhs; switch (lhs->tag()) { case y_lhs_e::Var: { Token* lhs = static_cast(UP_lhs); return Alloc(lexer::LazyStr(lhs), lhs); } break; case y_lhs_e::Subscript: { Subscript* lhs = static_cast(UP_lhs); lval = this->_EvalLeftLocalOrGlobal(lhs->obj, which_scopes); index = this->_EvalExpr(lhs->index); return Alloc(lval, index); } break; case y_lhs_e::Attribute: { Attribute* lhs = static_cast(UP_lhs); lval = this->_EvalLeftLocalOrGlobal(lhs->obj, which_scopes); attr = Alloc(lhs->attr_name); return Alloc(lval, attr); } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::EvalExpr(syntax_asdl::expr_t* node, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* val = nullptr; StackRoot _root0(&node); StackRoot _root1(&blame_loc); StackRoot _root2(&val); this->mem->SetLocationForExpr(blame_loc); { // with state::ctx_YshExpr ctx{this->mutable_opts}; val = this->_EvalExpr(node); } return val; } value_asdl::y_lvalue_t* ExprEvaluator::EvalLhsExpr(syntax_asdl::y_lhs_t* lhs, runtime_asdl::scope_t which_scopes) { value_asdl::y_lvalue_t* lval = nullptr; StackRoot _root0(&lhs); StackRoot _root1(&lval); { // with state::ctx_YshExpr ctx{this->mutable_opts}; lval = this->_EvalLhsExpr(lhs, which_scopes); } return lval; } runtime_asdl::part_value_t* ExprEvaluator::EvalExprSub(word_part::ExprSub* part) { value_asdl::value_t* val = nullptr; BigStr* s = nullptr; List* strs = nullptr; StackRoot _root0(&part); StackRoot _root1(&val); StackRoot _root2(&s); StackRoot _root3(&strs); val = this->EvalExpr(part->child, part->left); switch (part->left->id) { case Id::Left_DollarBracket: { s = val_ops::Stringify(val, Alloc(part)); return Alloc(s, false, false); } break; case Id::Lit_AtLBracket: { strs = val_ops::ToShellArray(val, Alloc(part), str2057); return Alloc(strs); } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::PluginCall(value::Func* func_val, List* pos_args) { Dict* named_args = nullptr; syntax_asdl::ArgList* arg_list = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&func_val); StackRoot _root1(&pos_args); StackRoot _root2(&named_args); StackRoot _root3(&arg_list); StackRoot _root4(&rd); StackRoot _root5(&val); { // with state::ctx_YshExpr ctx{this->mutable_opts}; { // with state::ctx_Registers ctx{this->mem}; named_args = Alloc>(); arg_list = ArgList::CreateNull(); rd = Alloc(pos_args, named_args, nullptr, arg_list); try { val = func_proc::CallUserFunc(func_val, rd, this->mem, this->cmd_ev); } catch (error::FatalRuntime* e) { val = Alloc(StrFormat("", e->UserErrorString())); } catch (IOError_OSError* e) { val = Alloc(StrFormat("", pyutil::strerror(e))); } catch (KeyboardInterrupt*) { val = Alloc(str2060); } } } return val; } value_asdl::value_t* ExprEvaluator::CallConvertFunc(value_asdl::value_t* func_val, value_asdl::value_t* arg, syntax_asdl::Token* convert_tok, syntax_asdl::loc_t* call_loc) { List* pos_args = nullptr; Dict* named_args = nullptr; syntax_asdl::ArgList* arg_list = nullptr; typed_args::Reader* rd = nullptr; value_asdl::value_t* val = nullptr; BigStr* func_name = nullptr; StackRoot _root0(&func_val); StackRoot _root1(&arg); StackRoot _root2(&convert_tok); StackRoot _root3(&call_loc); StackRoot _root4(&pos_args); StackRoot _root5(&named_args); StackRoot _root6(&arg_list); StackRoot _root7(&rd); StackRoot _root8(&val); StackRoot _root9(&func_name); { // with state::ctx_YshExpr ctx{this->mutable_opts}; pos_args = NewList(std::initializer_list{arg}); named_args = Alloc>(); arg_list = ArgList::CreateNull(); rd = Alloc(pos_args, named_args, nullptr, arg_list); rd->SetFallbackLocation(convert_tok); try { val = this->_CallFunc(func_val, rd); } catch (error::FatalRuntime* e) { func_name = lexer::TokenVal(convert_tok); this->errfmt->Print_(StrFormat("Fatal error calling Eggex conversion func %r from this Match accessor", func_name), call_loc); print_stderr(str2062); throw ; } } return val; } List* ExprEvaluator::SpliceValue(value_asdl::value_t* val, word_part::Splice* part) { StackRoot _root0(&val); StackRoot _root1(&part); return val_ops::ToShellArray(val, Alloc(part), str2063); } value_asdl::value_t* ExprEvaluator::_EvalConst(expr::Const* node) { StackRoot _root0(&node); return node->val; } value_asdl::value_t* ExprEvaluator::_EvalUnary(expr::Unary* node) { value_asdl::value_t* val = nullptr; runtime_asdl::coerced_t c1; mops::BigInt i1; double f1; mops::BigInt i; bool b; StackRoot _root0(&node); StackRoot _root1(&val); val = this->_EvalExpr(node->child); switch (node->op->id) { case Id::Arith_Minus: { Tuple3 tup2 = _ConvertToNumber(val); c1 = tup2.at0(); i1 = tup2.at1(); f1 = tup2.at2(); if (c1 == coerced_e::Int) { return Alloc(mops::Negate(i1)); } if (c1 == coerced_e::Float) { return Alloc(-f1); } throw Alloc(val, str2064, node->op); } break; case Id::Arith_Tilde: { i = _ConvertToInt(val, str2065, node->op); return Alloc(mops::BitNot(i)); } break; case Id::Expr_Not: { b = val_ops::ToBool(val); return Alloc(b ? false : true); } break; case Id::Arith_Amp: { FAIL(kNotImplemented); // Python NotImplementedError } break; default: { assert(0); // AssertionError } } assert(0); // AssertionError } value_asdl::value_t* ExprEvaluator::_ArithIntFloat(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op) { runtime_asdl::coerced_t c; mops::BigInt i1; mops::BigInt i2; double f1; double f2; int op_id; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&op); Tuple5 tup3 = _ConvertForBinaryOp(left, right); c = tup3.at0(); i1 = tup3.at1(); i2 = tup3.at2(); f1 = tup3.at3(); f2 = tup3.at4(); op_id = op->id; if (c == coerced_e::Int) { switch (op_id) { case Id::Arith_Plus: case Id::Arith_PlusEqual: { return Alloc(mops::Add(i1, i2)); } break; case Id::Arith_Minus: case Id::Arith_MinusEqual: { return Alloc(mops::Sub(i1, i2)); } break; case Id::Arith_Star: case Id::Arith_StarEqual: { return Alloc(mops::Mul(i1, i2)); } break; case Id::Arith_Slash: case Id::Arith_SlashEqual: { if (mops::Equal(i2, mops::ZERO)) { throw Alloc(str2067, op); } return Alloc((mops::ToFloat(i1) / mops::ToFloat(i2))); } break; default: { assert(0); // AssertionError } } } else { if (c == coerced_e::Float) { switch (op_id) { case Id::Arith_Plus: case Id::Arith_PlusEqual: { return Alloc((f1 + f2)); } break; case Id::Arith_Minus: case Id::Arith_MinusEqual: { return Alloc((f1 - f2)); } break; case Id::Arith_Star: case Id::Arith_StarEqual: { return Alloc((f1 * f2)); } break; case Id::Arith_Slash: case Id::Arith_SlashEqual: { if (f2 == 0.0) { throw Alloc(str2068, op); } return Alloc((f1 / f2)); } break; default: { assert(0); // AssertionError } } } else { throw Alloc(StrFormat("Binary operator expected numbers, got %s and %s (OILS-ERR-201)", ui::ValType(left), ui::ValType(right)), op); } } } value_asdl::value_t* ExprEvaluator::_ArithIntOnly(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op) { mops::BigInt i1; mops::BigInt i2; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&op); i1 = _ConvertToInt(left, str2070, op); i2 = _ConvertToInt(right, str2071, op); switch (op->id) { case Id::Arith_Percent: case Id::Arith_PercentEqual: { if (mops::Equal(i2, mops::ZERO)) { throw Alloc(str2072, op); } if (mops::Greater(mops::ZERO, i2)) { throw Alloc(str2073, op); } return Alloc(mops::Rem(i1, i2)); } break; case Id::Expr_DSlash: case Id::Expr_DSlashEqual: { if (mops::Equal(i2, mops::ZERO)) { throw Alloc(str2074, op); } return Alloc(mops::Div(i1, i2)); } break; case Id::Arith_DStar: case Id::Expr_DStarEqual: { if (mops::Greater(mops::ZERO, i2)) { throw Alloc(str2075, op); } return Alloc(num::Exponent(i1, i2)); } break; case Id::Arith_Amp: case Id::Arith_AmpEqual: { return Alloc(mops::BitAnd(i1, i2)); } break; case Id::Arith_Pipe: case Id::Arith_PipeEqual: { return Alloc(mops::BitOr(i1, i2)); } break; case Id::Arith_Caret: case Id::Arith_CaretEqual: { return Alloc(mops::BitXor(i1, i2)); } break; case Id::Arith_DGreat: case Id::Arith_DGreatEqual: { if (mops::Greater(mops::ZERO, i2)) { throw Alloc(str2076, op); } return Alloc(mops::RShift(i1, i2)); } break; case Id::Arith_DLess: case Id::Arith_DLessEqual: { if (mops::Greater(mops::ZERO, i2)) { throw Alloc(str2077, op); } return Alloc(mops::LShift(i1, i2)); } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::_Concat(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op) { value_asdl::value_t* UP_left = nullptr; value_asdl::value_t* UP_right = nullptr; List* c = nullptr; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&op); StackRoot _root3(&UP_left); StackRoot _root4(&UP_right); StackRoot _root5(&c); UP_left = left; UP_right = right; if ((left->tag() == value_e::Str and right->tag() == value_e::Str)) { value::Str* left = static_cast(UP_left); value::Str* right = static_cast(UP_right); return Alloc(str_concat(left->s, right->s)); } else { if ((left->tag() == value_e::List and right->tag() == value_e::List)) { value::List* left = static_cast(UP_left); value::List* right = static_cast(UP_right); c = list(left->items); c->extend(right->items); return Alloc(c); } else { throw Alloc(StrFormat("Expected Str ++ Str or List ++ List, got %s ++ %s", ui::ValType(left), ui::ValType(right)), op); } } } value_asdl::value_t* ExprEvaluator::_EvalBinary(expr::Binary* node) { value_asdl::value_t* left = nullptr; value_asdl::value_t* right = nullptr; StackRoot _root0(&node); StackRoot _root1(&left); StackRoot _root2(&right); left = this->_EvalExpr(node->left); switch (node->op->id) { case Id::Expr_And: { if (val_ops::ToBool(left)) { return this->_EvalExpr(node->right); } else { return left; } } break; case Id::Expr_Or: { if (val_ops::ToBool(left)) { return left; } else { return this->_EvalExpr(node->right); } } break; } right = this->_EvalExpr(node->right); switch (node->op->id) { case Id::Arith_DPlus: { return this->_Concat(left, right, node->op); } break; case Id::Arith_Plus: case Id::Arith_Minus: case Id::Arith_Star: case Id::Arith_Slash: { return this->_ArithIntFloat(left, right, node->op); } break; default: { return this->_ArithIntOnly(left, right, node->op); } } } bool ExprEvaluator::_CompareNumeric(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::Token* op) { runtime_asdl::coerced_t c; mops::BigInt i1; mops::BigInt i2; double f1; double f2; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&op); Tuple5 tup4 = _ConvertForBinaryOp(left, right); c = tup4.at0(); i1 = tup4.at1(); i2 = tup4.at2(); f1 = tup4.at3(); f2 = tup4.at4(); if (c == coerced_e::Int) { switch (op->id) { case Id::Arith_Less: { return mops::Greater(i2, i1); } break; case Id::Arith_Great: { return mops::Greater(i1, i2); } break; case Id::Arith_LessEqual: { return (mops::Greater(i2, i1) or mops::Equal(i1, i2)); } break; case Id::Arith_GreatEqual: { return (mops::Greater(i1, i2) or mops::Equal(i1, i2)); } break; default: { assert(0); // AssertionError } } } else { if (c == coerced_e::Float) { switch (op->id) { case Id::Arith_Less: { return f1 < f2; } break; case Id::Arith_Great: { return f1 > f2; } break; case Id::Arith_LessEqual: { return f1 <= f2; } break; case Id::Arith_GreatEqual: { return f1 >= f2; } break; default: { assert(0); // AssertionError } } } else { throw Alloc(StrFormat("Comparison operator expected numbers, got %s and %s", ui::ValType(left), ui::ValType(right)), op); } } } value_asdl::value_t* ExprEvaluator::_EvalCompare(expr::Compare* node) { value_asdl::value_t* left = nullptr; bool result; int i; syntax_asdl::expr_t* right_expr = nullptr; value_asdl::value_t* right = nullptr; value_asdl::value_t* UP_left = nullptr; value_asdl::value_t* UP_right = nullptr; BigStr* left2 = nullptr; bool lb; bool eq; StackRoot _root0(&node); StackRoot _root1(&left); StackRoot _root2(&right_expr); StackRoot _root3(&right); StackRoot _root4(&UP_left); StackRoot _root5(&UP_right); StackRoot _root6(&left2); left = this->_EvalExpr(node->left); result = true; i = 0; for (ListIter it(node->ops); !it.Done(); it.Next(), ++i) { syntax_asdl::Token* op = it.Value(); StackRoot _for(&op ); right_expr = node->comparators->at(i); right = this->_EvalExpr(right_expr); if ((op->id == Id::Arith_Less || op->id == Id::Arith_Great || op->id == Id::Arith_LessEqual || op->id == Id::Arith_GreatEqual)) { result = this->_CompareNumeric(left, right, op); } else { if (op->id == Id::Expr_TEqual) { result = val_ops::ExactlyEqual(left, right, op); } else { if (op->id == Id::Expr_NotDEqual) { result = !val_ops::ExactlyEqual(left, right, op); } else { if (op->id == Id::Expr_In) { result = val_ops::Contains(left, right); } else { if (op->id == Id::Node_NotIn) { result = !val_ops::Contains(left, right); } else { if (op->id == Id::Expr_Is) { if (left->tag() != right->tag()) { throw Alloc(str2080, op); } result = left == right; } else { if (op->id == Id::Node_IsNot) { if (left->tag() != right->tag()) { throw Alloc(str2081, op); } result = left != right; } else { if (op->id == Id::Expr_DTilde) { if (left->tag() != value_e::Str) { throw Alloc(str2082, op); } if (right->tag() != value_e::Str) { throw Alloc(str2083, op); } UP_left = left; UP_right = right; value::Str* left = static_cast(UP_left); value::Str* right = static_cast(UP_right); return Alloc(libc::fnmatch(right->s, left->s)); } else { if (op->id == Id::Expr_NotDTilde) { if (left->tag() != value_e::Str) { throw Alloc(str2084, op); } if (right->tag() != value_e::Str) { throw Alloc(str2085, op); } UP_left = left; UP_right = right; value::Str* left = static_cast(UP_left); value::Str* right = static_cast(UP_right); return Alloc(!libc::fnmatch(right->s, left->s)); } else { if (op->id == Id::Expr_TildeDEqual) { UP_left = left; if (left->tag() != value_e::Str) { e_die(str2086, op); } value::Str* left = static_cast(UP_left); left2 = left->s->strip(); UP_right = right; switch (right->tag()) { case value_e::Str: { value::Str* right = static_cast(UP_right); return Alloc(str_equals(left2, right->s)); } break; case value_e::Bool: { value::Bool* right = static_cast(UP_right); left2 = left2->lower(); lb = false; if (str_equals(left2, str2087)) { lb = true; } else { if (str_equals(left2, str2088)) { lb = false; } else { return Alloc(false); } } return Alloc(lb == right->b); } break; case value_e::Int: { value::Int* right = static_cast(UP_right); if (!left2->isdigit()) { return Alloc(false); } eq = mops::Equal(mops::FromStr(left2), right->i); return Alloc(eq); } break; } e_die(str2089, op); } else { try { if (op->id == Id::Arith_Tilde) { result = val_ops::MatchRegex(left, right, this->mem); } else { if (op->id == Id::Expr_NotTilde) { result = !val_ops::MatchRegex(left, right, nullptr); } else { assert(0); // AssertionError } } } catch (ValueError* e) { e_die_status(2, e->message, op); } } } } } } } } } } } if (!result) { return Alloc(result); } left = right; } return Alloc(result); } value_asdl::value_t* ExprEvaluator::_CallFunc(value_asdl::value_t* to_call, typed_args::Reader* rd) { value_asdl::value_t* UP_to_call = nullptr; vm::_Callable* f = nullptr; StackRoot _root0(&to_call); StackRoot _root1(&rd); StackRoot _root2(&UP_to_call); StackRoot _root3(&f); UP_to_call = to_call; switch (to_call->tag()) { case value_e::Func: { value::Func* to_call = static_cast(UP_to_call); return func_proc::CallUserFunc(to_call, rd, this->mem, this->cmd_ev); } break; case value_e::BuiltinFunc: { value::BuiltinFunc* to_call = static_cast(UP_to_call); f = static_cast(to_call->callable); return f->Call(rd); } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::_EvalFuncCall(expr::FuncCall* node) { value_asdl::value_t* func = nullptr; value_asdl::value_t* UP_func = nullptr; value_asdl::value_t* to_call = nullptr; List* pos_args = nullptr; Dict* named_args = nullptr; typed_args::Reader* rd = nullptr; StackRoot _root0(&node); StackRoot _root1(&func); StackRoot _root2(&UP_func); StackRoot _root3(&to_call); StackRoot _root4(&pos_args); StackRoot _root5(&named_args); StackRoot _root6(&rd); func = this->_EvalExpr(node->func); UP_func = func; switch (func->tag()) { case value_e::Func: case value_e::BuiltinFunc: { to_call = func; Tuple2*, Dict*> tup5 = func_proc::_EvalArgList(this, node->args); pos_args = tup5.at0(); named_args = tup5.at1(); rd = Alloc(pos_args, named_args, nullptr, node->args); } break; case value_e::BoundFunc: { value::BoundFunc* func = static_cast(UP_func); to_call = func->func; Tuple2*, Dict*> tup6 = func_proc::_EvalArgList(this, node->args, func->me); pos_args = tup6.at0(); named_args = tup6.at1(); rd = Alloc(pos_args, named_args, nullptr, node->args, true); } break; default: { throw Alloc(func, str2091, node->args->left); } } return this->_CallFunc(to_call, rd); } value_asdl::value_t* ExprEvaluator::_EvalSubscript(value_asdl::value_t* obj, value_asdl::value_t* index) { value_asdl::value_t* UP_obj = nullptr; value_asdl::value_t* UP_index = nullptr; int lower; int upper; int i; StackRoot _root0(&obj); StackRoot _root1(&index); StackRoot _root2(&UP_obj); StackRoot _root3(&UP_index); UP_obj = obj; UP_index = index; switch (obj->tag()) { case value_e::Str: { value::Str* obj = static_cast(UP_obj); switch (index->tag()) { case value_e::Slice: { value::Slice* index = static_cast(UP_index); lower = index->lower ? index->lower->i : 0; upper = index->upper ? index->upper->i : len(obj->s); return Alloc(obj->s->slice(lower, upper)); } break; case value_e::Int: { value::Int* index = static_cast(UP_index); i = mops::BigTruncate(index->i); try { return Alloc(obj->s->at(i)); } catch (IndexError*) { throw Alloc(str2092, loc::Missing); } } break; default: { throw Alloc(index, str2093, loc::Missing); } } } break; case value_e::List: { value::List* obj = static_cast(UP_obj); switch (index->tag()) { case value_e::Slice: { value::Slice* index = static_cast(UP_index); lower = index->lower ? index->lower->i : 0; upper = index->upper ? index->upper->i : len(obj->items); return Alloc(obj->items->slice(lower, upper)); } break; case value_e::Int: { value::Int* index = static_cast(UP_index); i = mops::BigTruncate(index->i); try { return obj->items->at(i); } catch (IndexError*) { throw Alloc(StrFormat("List index out of range: %d", i), loc::Missing); } } break; default: { throw Alloc(index, str2095, loc::Missing); } } } break; case value_e::Dict: { value::Dict* obj = static_cast(UP_obj); if (index->tag() != value_e::Str) { throw Alloc(index, str2096, loc::Missing); } value::Str* index = static_cast(UP_index); try { return obj->d->at(index->s); } catch (KeyError*) { throw Alloc(StrFormat("Dict entry not found: %r", index->s), loc::Missing); } } break; } throw Alloc(obj, str2098, loc::Missing); } value_asdl::value_t* ExprEvaluator::_EvalDot(syntax_asdl::Attribute* node, value_asdl::value_t* obj) { value_asdl::value_t* UP_obj = nullptr; BigStr* attr_name = nullptr; value_asdl::value_t* result = nullptr; StackRoot _root0(&node); StackRoot _root1(&obj); StackRoot _root2(&UP_obj); StackRoot _root3(&attr_name); StackRoot _root4(&result); UP_obj = obj; switch (obj->tag()) { case value_e::Dict: { value::Dict* obj = static_cast(UP_obj); attr_name = node->attr_name; try { result = obj->d->at(attr_name); } catch (KeyError*) { throw Alloc(StrFormat("Dict entry %r not found", attr_name), node->op); } } break; default: { throw Alloc(obj, str2100, node->op); } } return result; } value_asdl::value_t* ExprEvaluator::_EvalAttribute(syntax_asdl::Attribute* node) { value_asdl::value_t* o = nullptr; value_asdl::value_t* UP_o = nullptr; BigStr* name = nullptr; Dict* type_methods = nullptr; vm::_Callable* vm_callable = nullptr; value::BuiltinFunc* func_val = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&node); StackRoot _root1(&o); StackRoot _root2(&UP_o); StackRoot _root3(&name); StackRoot _root4(&type_methods); StackRoot _root5(&vm_callable); StackRoot _root6(&func_val); StackRoot _root7(&val); o = this->_EvalExpr(node->obj); UP_o = o; switch (node->op->id) { case Id::Expr_RArrow: case Id::Expr_RDArrow: { name = node->attr_name; type_methods = this->methods->get(o->tag()); vm_callable = type_methods != nullptr ? type_methods->get(name) : nullptr; if (vm_callable) { func_val = Alloc(vm_callable); return Alloc(o, func_val); } if (node->op->id == Id::Expr_RArrow) { throw Alloc(StrFormat("Method %r does not exist on type %s", name, ui::ValType(o)), node->attr); } val = this->_LookupVar(name, node->attr); switch (val->tag()) { case value_e::Func: case value_e::BuiltinFunc: { return Alloc(o, val); } break; default: { throw Alloc(val, str2102, node->attr); } } } break; case Id::Expr_Dot: { return this->_EvalDot(node, o); } break; default: { assert(0); // AssertionError } } } value_asdl::value_t* ExprEvaluator::_EvalExpr(syntax_asdl::expr_t* node) { syntax_asdl::expr_t* UP_node = nullptr; Dict* frame = nullptr; int id_; BigStr* stdout_str = nullptr; List* strs = nullptr; List* items = nullptr; List* words = nullptr; value_asdl::IntBox* lower = nullptr; value_asdl::IntBox* upper = nullptr; BigStr* msg = nullptr; int i; int j; bool b; List* kvals = nullptr; List* values = nullptr; value::Str* key = nullptr; value_asdl::value_t* v = nullptr; Dict* d = nullptr; BigStr* k = nullptr; value_asdl::value_t* obj = nullptr; value_asdl::value_t* index = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&frame); StackRoot _root3(&stdout_str); StackRoot _root4(&strs); StackRoot _root5(&items); StackRoot _root6(&words); StackRoot _root7(&lower); StackRoot _root8(&upper); StackRoot _root9(&msg); StackRoot _root10(&kvals); StackRoot _root11(&values); StackRoot _root12(&key); StackRoot _root13(&v); StackRoot _root14(&d); StackRoot _root15(&k); StackRoot _root16(&obj); StackRoot _root17(&index); UP_node = node; switch (node->tag()) { case expr_e::Const: { expr::Const* node = static_cast(UP_node); return this->_EvalConst(node); } break; case expr_e::Var: { expr::Var* node = static_cast(UP_node); return this->_LookupVar(node->name, node->left); } break; case expr_e::Place: { expr::Place* node = static_cast(UP_node); frame = this->mem->TopNamespace(); return Alloc(Alloc(node->var_name, node->blame_tok), frame); } break; case expr_e::CommandSub: { CommandSub* node = static_cast(UP_node); id_ = node->left_token->id; if (id_ == Id::Left_CaretParen) { return Alloc(node->child); } else { stdout_str = this->shell_ex->RunCommandSub(node); if (id_ == Id::Left_AtParen) { try { strs = j8::SplitJ8Lines(stdout_str); } catch (error::Decode* e) { throw Alloc(4, e->Message(), node->left_token); } items = Alloc>(); for (ListIter it(strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); items->append(Alloc(s)); } return Alloc(items); } else { return Alloc(stdout_str); } } } break; case expr_e::ShArrayLiteral: { ShArrayLiteral* node = static_cast(UP_node); words = braces::BraceExpandWords(node->words); strs = this->word_ev->EvalWordSequence(words); items = Alloc>(); for (ListIter it(strs); !it.Done(); it.Next()) { BigStr* s = it.Value(); items->append(Alloc(s)); } return Alloc(items); } break; case expr_e::DoubleQuoted: { DoubleQuoted* node = static_cast(UP_node); return Alloc(this->word_ev->EvalDoubleQuotedToString(node)); } break; case expr_e::SingleQuoted: { SingleQuoted* node = static_cast(UP_node); return Alloc(node->sval); } break; case expr_e::BracedVarSub: { BracedVarSub* node = static_cast(UP_node); return Alloc(this->word_ev->EvalBracedVarSubToString(node)); } break; case expr_e::SimpleVarSub: { SimpleVarSub* node = static_cast(UP_node); return Alloc(this->word_ev->EvalSimpleVarSubToString(node)); } break; case expr_e::Unary: { expr::Unary* node = static_cast(UP_node); return this->_EvalUnary(node); } break; case expr_e::Binary: { expr::Binary* node = static_cast(UP_node); return this->_EvalBinary(node); } break; case expr_e::Slice: { expr::Slice* node = static_cast(UP_node); lower = nullptr; upper = nullptr; if (node->lower) { msg = str2105; i = val_ops::ToInt(this->_EvalExpr(node->lower), msg, loc::Missing); lower = Alloc(i); } if (node->upper) { msg = str2106; i = val_ops::ToInt(this->_EvalExpr(node->upper), msg, loc::Missing); upper = Alloc(i); } return Alloc(lower, upper); } break; case expr_e::Range: { expr::Range* node = static_cast(UP_node); msg = str2107; i = val_ops::ToInt(this->_EvalExpr(node->lower), msg, loc::Missing); msg = str2108; j = val_ops::ToInt(this->_EvalExpr(node->upper), msg, loc::Missing); return Alloc(i, j); } break; case expr_e::Compare: { expr::Compare* node = static_cast(UP_node); return this->_EvalCompare(node); } break; case expr_e::IfExp: { expr::IfExp* node = static_cast(UP_node); b = val_ops::ToBool(this->_EvalExpr(node->test)); if (b) { return this->_EvalExpr(node->body); } else { return this->_EvalExpr(node->orelse); } } break; case expr_e::List: { expr::List* node = static_cast(UP_node); items = Alloc>(); for (ListIter it(node->elts); !it.Done(); it.Next()) { syntax_asdl::expr_t* e = it.Value(); items->append(this->_EvalExpr(e)); } return Alloc(items); } break; case expr_e::Tuple: { expr::Tuple* node = static_cast(UP_node); items = Alloc>(); for (ListIter it(node->elts); !it.Done(); it.Next()) { syntax_asdl::expr_t* e = it.Value(); items->append(this->_EvalExpr(e)); } return Alloc(items); } break; case expr_e::Dict: { expr::Dict* node = static_cast(UP_node); kvals = Alloc>(); for (ListIter it(node->keys); !it.Done(); it.Next()) { syntax_asdl::expr_t* e = it.Value(); kvals->append(this->_EvalExpr(e)); } values = Alloc>(); i = 0; for (ListIter it(node->values); !it.Done(); it.Next(), ++i) { syntax_asdl::expr_t* value_expr = it.Value(); StackRoot _for(&value_expr ); if (value_expr->tag() == expr_e::Implicit) { key = static_cast(kvals->at(i)); v = this->_LookupVar(key->s, loc::Missing); } else { v = this->_EvalExpr(value_expr); } values->append(v); } d = Alloc>(); i = 0; for (ListIter it(kvals); !it.Done(); it.Next(), ++i) { value_asdl::value_t* kval = it.Value(); StackRoot _for(&kval ); k = val_ops::ToStr(kval, str2109, loc::Missing); d->set(k, values->at(i)); } return Alloc(d); } break; case expr_e::ListComp: { e_die_status(2, str2110); } break; case expr_e::GeneratorExp: { e_die_status(2, str2111); } break; case expr_e::Literal: { expr::Literal* node = static_cast(UP_node); return Alloc(node->inner); } break; case expr_e::Lambda: { e_die_status(2, str2112); } break; case expr_e::FuncCall: { expr::FuncCall* node = static_cast(UP_node); return this->_EvalFuncCall(node); } break; case expr_e::Subscript: { Subscript* node = static_cast(UP_node); obj = this->_EvalExpr(node->obj); index = this->_EvalExpr(node->index); return this->_EvalSubscript(obj, index); } break; case expr_e::Attribute: { Attribute* node = static_cast(UP_node); return this->_EvalAttribute(node); } break; case expr_e::Eggex: { Eggex* node = static_cast(UP_node); return this->EvalEggex(node); } break; default: { FAIL(kNotImplemented); // Python NotImplementedError } } } value::Eggex* ExprEvaluator::EvalEggex(syntax_asdl::Eggex* node) { expr_eval::EggexEvaluator* ev = nullptr; syntax_asdl::re_t* spliced = nullptr; StackRoot _root0(&node); StackRoot _root1(&ev); StackRoot _root2(&spliced); ev = Alloc(this->mem, node->canonical_flags); spliced = ev->EvalE(node->regex); return Alloc(spliced, node->canonical_flags, ev->convert_funcs, ev->convert_toks, nullptr, Alloc>()); } EggexEvaluator::EggexEvaluator(state::Mem* mem, BigStr* canonical_flags) { this->mem = mem; this->canonical_flags = canonical_flags; this->convert_funcs = Alloc>(); this->convert_toks = Alloc>(); } value_asdl::value_t* EggexEvaluator::_LookupVar(BigStr* name, syntax_asdl::loc_t* var_loc) { StackRoot _root0(&name); StackRoot _root1(&var_loc); return LookupVar(this->mem, name, scope_e::LocalOrGlobal, var_loc); } void EggexEvaluator::_EvalClassLiteralTerm(syntax_asdl::class_literal_term_t* term, List* out) { syntax_asdl::class_literal_term_t* UP_term = nullptr; BigStr* s = nullptr; syntax_asdl::Token* char_code_tok = nullptr; value_asdl::value_t* val = nullptr; int char_int; StackRoot _root0(&term); StackRoot _root1(&out); StackRoot _root2(&UP_term); StackRoot _root3(&s); StackRoot _root4(&char_code_tok); StackRoot _root5(&val); UP_term = term; s = nullptr; char_code_tok = nullptr; switch (term->tag()) { case class_literal_term_e::CharCode: { CharCode* term = static_cast(UP_term); out->append(term); return ; } break; case class_literal_term_e::CharRange: { CharRange* term = static_cast(UP_term); out->append(term); return ; } break; case class_literal_term_e::PosixClass: { PosixClass* term = static_cast(UP_term); out->append(term); return ; } break; case class_literal_term_e::PerlClass: { PerlClass* term = static_cast(UP_term); out->append(term); return ; } break; case class_literal_term_e::SingleQuoted: { SingleQuoted* term = static_cast(UP_term); s = term->sval; char_code_tok = term->left; } break; case class_literal_term_e::Splice: { class_literal_term::Splice* term = static_cast(UP_term); val = this->_LookupVar(term->var_name, term->name); s = val_ops::ToStr(val, str2113, term->name); char_code_tok = term->name; } break; } for (StrIter it(s); !it.Done(); it.Next()) { BigStr* ch = it.Value(); StackRoot _for(&ch ); char_int = ord(ch); if (char_int >= 128) { e_die(StrFormat("Use unquoted char literal for byte %d, which is >= 128 (avoid confusing a set of bytes with a sequence)", char_int), char_code_tok); } out->append(Alloc(char_code_tok, char_int, false)); } } syntax_asdl::re_t* EggexEvaluator::EvalE(syntax_asdl::re_t* node) { syntax_asdl::re_t* UP_node = nullptr; List* new_children = nullptr; value_asdl::value_t* convert_func = nullptr; syntax_asdl::Token* convert_tok = nullptr; BigStr* func_name = nullptr; value_asdl::value_t* func_val = nullptr; List* new_terms = nullptr; BigStr* s = nullptr; value_asdl::value_t* val = nullptr; value_asdl::value_t* UP_val = nullptr; syntax_asdl::re_t* to_splice = nullptr; StackRoot _root0(&node); StackRoot _root1(&UP_node); StackRoot _root2(&new_children); StackRoot _root3(&convert_func); StackRoot _root4(&convert_tok); StackRoot _root5(&func_name); StackRoot _root6(&func_val); StackRoot _root7(&new_terms); StackRoot _root8(&s); StackRoot _root9(&val); StackRoot _root10(&UP_val); StackRoot _root11(&to_splice); UP_node = node; switch (node->tag()) { case re_e::Seq: { re::Seq* node = static_cast(UP_node); new_children = Alloc>(); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::re_t* child = it.Value(); new_children->append(this->EvalE(child)); } return Alloc(new_children); } break; case re_e::Alt: { re::Alt* node = static_cast(UP_node); new_children = Alloc>(); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::re_t* child = it.Value(); new_children->append(this->EvalE(child)); } return Alloc(new_children); } break; case re_e::Repeat: { re::Repeat* node = static_cast(UP_node); return Alloc(this->EvalE(node->child), node->op); } break; case re_e::Group: { re::Group* node = static_cast(UP_node); this->convert_funcs->append(nullptr); this->convert_toks->append(nullptr); return Alloc(this->EvalE(node->child)); } break; case re_e::Capture: { re::Capture* node = static_cast(UP_node); convert_func = nullptr; convert_tok = nullptr; if (node->func_name) { func_name = lexer::LazyStr(node->func_name); func_val = this->mem->GetValue(func_name); switch (func_val->tag()) { case value_e::Func: case value_e::BuiltinFunc: { convert_func = func_val; convert_tok = node->func_name; } break; default: { throw Alloc(func_val, StrFormat("Expected %r to be a func", func_name), node->func_name); } } } this->convert_funcs->append(convert_func); this->convert_toks->append(convert_tok); return Alloc(this->EvalE(node->child), node->name, node->func_name); } break; case re_e::CharClassLiteral: { re::CharClassLiteral* node = static_cast(UP_node); new_terms = Alloc>(); for (ListIter it(node->terms); !it.Done(); it.Next()) { syntax_asdl::class_literal_term_t* t = it.Value(); StackRoot _for(&t ); this->_EvalClassLiteralTerm(t, new_terms); } return Alloc(node->negated, new_terms); } break; case re_e::SingleQuoted: { SingleQuoted* node = static_cast(UP_node); s = node->sval; return Alloc(node->left, s); } break; case re_e::Splice: { re::Splice* node = static_cast(UP_node); val = this->_LookupVar(node->var_name, node->name); UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); to_splice = Alloc(node->name, val->s); } break; case value_e::Eggex: { value::Eggex* val = static_cast(UP_val); this->convert_funcs->extend(val->convert_funcs); this->convert_toks->extend(val->convert_toks); to_splice = val->spliced; if (!(str_equals(val->canonical_flags, this->canonical_flags))) { e_die(StrFormat("Expected eggex flags %r, but got %r", this->canonical_flags, val->canonical_flags), node->name); } } break; default: { throw Alloc(val, str2117, node->name); } } return to_splice; } break; default: { return node; } } } } // define namespace expr_eval namespace expr_parse { // define using syntax_asdl::loc; using syntax_asdl::Token; using syntax_asdl::DoubleQuoted; using syntax_asdl::SingleQuoted; using syntax_asdl::CommandSub; using syntax_asdl::ShArrayLiteral; using syntax_asdl::CompoundWord; using syntax_asdl::word_part_t; using syntax_asdl::word_e; using id_kind_asdl::Id; using id_kind_asdl::Kind; using id_kind_asdl::Id_str; using types_asdl::lex_mode_e; using error::p_die; using pnode::PNodeAllocator; int _Classify(grammar::Grammar* gr, syntax_asdl::Token* tok) { int id_; BigStr* type_str = nullptr; StackRoot _root0(&gr); StackRoot _root1(&tok); StackRoot _root2(&type_str); id_ = tok->id; if (dict_contains(gr->tokens, id_)) { return gr->tokens->at(id_); } if (id_ == Id::Unknown_DEqual) { p_die(str2118, tok); } if (id_ == Id::Unknown_Tok) { type_str = str2119; } else { type_str = StrFormat(" (%s)", ui::PrettyId(tok->id)); } p_die(StrFormat("Unexpected token in expression mode%s", type_str), tok); } GLOBAL_DICT(_OTHER_BALANCE, int, int, 4, {Id::Op_LParen COMMA Id::Op_RParen COMMA Id::Op_LBracket COMMA Id::Op_RBracket}, {1 COMMA -1 COMMA 1 COMMA -1}); syntax_asdl::Token* _PushYshTokens(parse_lib::ParseContext* parse_ctx, grammar::Grammar* gr, parse::Parser* p, lexer::Lexer* lex) { syntax_asdl::Token* last_token = nullptr; bool prev_was_newline; int balance; syntax_asdl::Token* tok = nullptr; int ilabel; syntax_asdl::Token* left_tok = nullptr; reader::DisallowedLineReader* line_reader = nullptr; word_parse::WordParser* w_parser = nullptr; List* words = nullptr; syntax_asdl::Token* close_tok = nullptr; bool done; syntax_asdl::word_t* w = nullptr; List* words2 = nullptr; List* words3 = nullptr; int typ; syntax_asdl::ShArrayLiteral* lit_part = nullptr; Token* opaque = nullptr; syntax_asdl::Token* left_token = nullptr; cmd_parse::CommandParser* c_parser = nullptr; syntax_asdl::command_t* node = nullptr; syntax_asdl::Token* right_token = nullptr; syntax_asdl::CommandSub* cs_part = nullptr; List* parts = nullptr; syntax_asdl::DoubleQuoted* expr_dq_part = nullptr; syntax_asdl::BracedVarSub* part = nullptr; types_asdl::lex_mode_t sq_mode; List* tokens = nullptr; BigStr* sval = nullptr; syntax_asdl::SingleQuoted* sq_part = nullptr; StackRoot _root0(&parse_ctx); StackRoot _root1(&gr); StackRoot _root2(&p); StackRoot _root3(&lex); StackRoot _root4(&last_token); StackRoot _root5(&tok); StackRoot _root6(&left_tok); StackRoot _root7(&line_reader); StackRoot _root8(&w_parser); StackRoot _root9(&words); StackRoot _root10(&close_tok); StackRoot _root11(&w); StackRoot _root12(&words2); StackRoot _root13(&words3); StackRoot _root14(&lit_part); StackRoot _root15(&opaque); StackRoot _root16(&left_token); StackRoot _root17(&c_parser); StackRoot _root18(&node); StackRoot _root19(&right_token); StackRoot _root20(&cs_part); StackRoot _root21(&parts); StackRoot _root22(&expr_dq_part); StackRoot _root23(&part); StackRoot _root24(&tokens); StackRoot _root25(&sval); StackRoot _root26(&sq_part); last_token = nullptr; prev_was_newline = false; balance = 0; while (true) { if (last_token) { tok = last_token; last_token = nullptr; } else { tok = lex->Read(lex_mode_e::Expr); } if (consts::GetKind(tok->id) == Kind::Ignored) { continue; } if (tok->id == Id::Op_Newline) { if (balance > 0) { continue; } if (prev_was_newline) { continue; } prev_was_newline = true; } else { prev_was_newline = false; } balance += _OTHER_BALANCE->get(tok->id, 0); if (tok->id == Id::Op_LParen) { lex->PushHint(Id::Op_RParen, Id::Op_RParen); } ilabel = _Classify(gr, tok); if (p->addtoken(tok->id, tok, ilabel)) { return tok; } if ((tok->id == Id::Left_ColonPipe || tok->id == Id::Left_PercentParen)) { left_tok = tok; if (tok->id == Id::Left_PercentParen) { lex->PushHint(Id::Op_RParen, Id::Right_ShArrayLiteral); } line_reader = Alloc(parse_ctx->arena, tok); w_parser = parse_ctx->MakeWordParser(lex, line_reader); words = Alloc>(); close_tok = nullptr; done = false; while (!done) { w = w_parser->ReadWord(lex_mode_e::ShCommand); switch (w->tag()) { case word_e::Operator: { tok = reinterpret_cast(w); if (tok->id == Id::Right_ShArrayLiteral) { if (left_tok->id != Id::Left_PercentParen) { p_die(str2122, left_tok); } close_tok = tok; done = true; } else { if (tok->id == Id::Op_Pipe) { if (left_tok->id != Id::Left_ColonPipe) { p_die(str2123, left_tok); } close_tok = tok; done = true; } else { if (tok->id == Id::Op_Newline) { continue; } else { p_die(str2124, Alloc(w)); } } } } break; case word_e::Compound: { words->append(static_cast(w)); } break; default: { assert(0); // AssertionError } } } words2 = braces::BraceDetectAll(words); words3 = word_::TildeDetectAll(words2); typ = Id::Expr_CastedDummy; lit_part = Alloc(left_tok, words3, close_tok); opaque = reinterpret_cast(lit_part); done = p->addtoken(typ, opaque, gr->tokens->at(typ)); ilabel = _Classify(gr, close_tok); done = p->addtoken(tok->id, close_tok, ilabel); continue; } if ((tok->id == Id::Left_DollarParen || tok->id == Id::Left_AtParen || tok->id == Id::Left_CaretParen)) { left_token = tok; lex->PushHint(Id::Op_RParen, Id::Eof_RParen); line_reader = Alloc(parse_ctx->arena, tok); c_parser = parse_ctx->MakeParserForCommandSub(line_reader, lex, Id::Eof_RParen); node = c_parser->ParseCommandSub(); right_token = c_parser->w_parser->cur_token; cs_part = Alloc(left_token, node, right_token); typ = Id::Expr_CastedDummy; opaque = reinterpret_cast(cs_part); done = p->addtoken(typ, opaque, gr->tokens->at(typ)); ilabel = _Classify(gr, right_token); done = p->addtoken(right_token->id, right_token, ilabel); continue; } if ((tok->id == Id::Left_DoubleQuote || tok->id == Id::Left_DollarDoubleQuote || tok->id == Id::Left_TDoubleQuote || tok->id == Id::Left_DollarTDoubleQuote || tok->id == Id::Left_CaretDoubleQuote)) { left_token = tok; line_reader = Alloc(parse_ctx->arena, tok); w_parser = parse_ctx->MakeWordParser(lex, line_reader); parts = Alloc>(); last_token = w_parser->ReadDoubleQuoted(left_token, parts); expr_dq_part = Alloc(left_token, parts, last_token); typ = Id::Expr_CastedDummy; opaque = reinterpret_cast(expr_dq_part); done = p->addtoken(typ, opaque, gr->tokens->at(typ)); continue; } if (tok->id == Id::Left_DollarBrace) { left_token = tok; line_reader = Alloc(parse_ctx->arena, tok); w_parser = parse_ctx->MakeWordParser(lex, line_reader); Tuple2 tup0 = w_parser->ReadBracedVarSub(left_token); part = tup0.at0(); last_token = tup0.at1(); typ = Id::Expr_CastedDummy; opaque = reinterpret_cast(part); done = p->addtoken(typ, opaque, gr->tokens->at(typ)); continue; } if ((tok->id == Id::Left_SingleQuote || tok->id == Id::Left_TSingleQuote || tok->id == Id::Left_RSingleQuote || tok->id == Id::Left_RTSingleQuote || tok->id == Id::Left_USingleQuote || tok->id == Id::Left_UTSingleQuote || tok->id == Id::Left_BSingleQuote || tok->id == Id::Left_BTSingleQuote || tok->id == Id::Left_DollarSingleQuote)) { if (tok->id == Id::Left_DollarSingleQuote) { sq_mode = lex_mode_e::SQ_C; } else { if ((tok->id == Id::Left_USingleQuote || tok->id == Id::Left_UTSingleQuote || tok->id == Id::Left_BSingleQuote || tok->id == Id::Left_BTSingleQuote)) { sq_mode = lex_mode_e::J8_Str; } else { sq_mode = lex_mode_e::SQ_Raw; } } left_token = tok; line_reader = Alloc(parse_ctx->arena, tok); w_parser = parse_ctx->MakeWordParser(lex, line_reader); tokens = Alloc>(); last_token = w_parser->ReadSingleQuoted(sq_mode, left_token, tokens, true); sval = word_compile::EvalSingleQuoted(left_token->id, tokens); sq_part = Alloc(left_token, sval, last_token); typ = Id::Expr_CastedDummy; opaque = reinterpret_cast(sq_part); done = p->addtoken(typ, opaque, gr->tokens->at(typ)); continue; } } } ExprParser::ExprParser(parse_lib::ParseContext* parse_ctx, grammar::Grammar* gr) { this->parse_ctx = parse_ctx; this->gr = gr; this->push_parser = Alloc(gr); this->pnode_alloc = nullptr; } Tuple2 ExprParser::Parse(lexer::Lexer* lexer, int start_symbol) { syntax_asdl::Token* last_token = nullptr; StackRoot _root0(&lexer); StackRoot _root1(&last_token); this->push_parser->setup(start_symbol, this->pnode_alloc); try { last_token = _PushYshTokens(this->parse_ctx, this->gr, this->push_parser, lexer); } catch (parse::ParseError* e) { p_die(StrFormat("Syntax error in expression (near %s)", ui::PrettyId(e->tok->id)), e->tok); } return Tuple2(this->push_parser->rootnode, last_token); } ctx_PNodeAllocator::ctx_PNodeAllocator(expr_parse::ExprParser* ep) { gHeap.PushRoot(reinterpret_cast(&(this->expr_parser))); this->expr_parser = ep; this->expr_parser->pnode_alloc = Alloc(); } ctx_PNodeAllocator::~ctx_PNodeAllocator() { this->expr_parser->pnode_alloc->Clear(); this->expr_parser->pnode_alloc = nullptr; gHeap.PopRoot(); } } // define namespace expr_parse namespace expr_to_ast { // define using id_kind_asdl::Id; using id_kind_asdl::Id_t; using id_kind_asdl::Id_str; using id_kind_asdl::Kind; using syntax_asdl::Token; using syntax_asdl::SimpleVarSub; using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::DoubleQuoted; using syntax_asdl::SingleQuoted; using syntax_asdl::BracedVarSub; using syntax_asdl::CommandSub; using syntax_asdl::ShArrayLiteral; using syntax_asdl::command; using syntax_asdl::expr; using syntax_asdl::expr_e; using syntax_asdl::expr_t; using syntax_asdl::expr_context_e; using syntax_asdl::re; using syntax_asdl::re_t; using syntax_asdl::re_repeat; using syntax_asdl::re_repeat_t; using syntax_asdl::class_literal_term; using syntax_asdl::class_literal_term_t; using syntax_asdl::PosixClass; using syntax_asdl::PerlClass; using syntax_asdl::NameType; using syntax_asdl::y_lhs_t; using syntax_asdl::Comprehension; using syntax_asdl::Subscript; using syntax_asdl::Attribute; using syntax_asdl::proc_sig; using syntax_asdl::proc_sig_t; using syntax_asdl::Param; using syntax_asdl::RestParam; using syntax_asdl::ParamGroup; using syntax_asdl::NamedArg; using syntax_asdl::ArgList; using syntax_asdl::pat; using syntax_asdl::pat_t; using syntax_asdl::TypeExpr; using syntax_asdl::Func; using syntax_asdl::Eggex; using syntax_asdl::EggexFlag; using syntax_asdl::CharCode; using syntax_asdl::CharRange; using value_asdl::value; using value_asdl::value_t; using error::p_die; GLOBAL_DICT(PERL_CLASSES, BigStr*, BigStr*, 4, {str2126 COMMA str2128 COMMA str2130 COMMA str2132}, {str2127 COMMA str2129 COMMA str2131 COMMA str2133}); GLOBAL_LIST(POSIX_CLASSES, BigStr*, 12, {str2134 COMMA str2135 COMMA str2136 COMMA str2137 COMMA str2138 COMMA str2139 COMMA str2140 COMMA str2141 COMMA str2142 COMMA str2143 COMMA str2144 COMMA str2145}); BigStr* RANGE_POINT_TOO_LONG = str2146; BigStr* POS_ARG_MISPLACED = str2147; int NT_OFFSET = 256; Transformer::Transformer(grammar::Grammar* gr) { this->number2symbol = gr->number2symbol; } syntax_asdl::expr_t* Transformer::_LeftAssoc(pnode::PNode* p_node) { int i; int n; syntax_asdl::expr_t* left = nullptr; pnode::PNode* op = nullptr; syntax_asdl::expr_t* right = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&left); StackRoot _root2(&op); StackRoot _root3(&right); i = 1; n = p_node->NumChildren(); left = this->Expr(p_node->GetChild(0)); while (i < n) { op = p_node->GetChild(i); right = this->Expr(p_node->GetChild((i + 1))); left = Alloc(op->tok, left, right); i += 2; } return left; } syntax_asdl::expr_t* Transformer::_Trailer(syntax_asdl::expr_t* base, pnode::PNode* p_trailer) { syntax_asdl::Token* tok0 = nullptr; int typ0; syntax_asdl::Token* lparen = nullptr; syntax_asdl::Token* rparen = nullptr; syntax_asdl::ArgList* arglist = nullptr; pnode::PNode* p = nullptr; pnode::PNode* p_args = nullptr; int n; pnode::PNode* a = nullptr; syntax_asdl::Token* attr = nullptr; StackRoot _root0(&base); StackRoot _root1(&p_trailer); StackRoot _root2(&tok0); StackRoot _root3(&lparen); StackRoot _root4(&rparen); StackRoot _root5(&arglist); StackRoot _root6(&p); StackRoot _root7(&p_args); StackRoot _root8(&a); StackRoot _root9(&attr); tok0 = p_trailer->GetChild(0)->tok; typ0 = p_trailer->GetChild(0)->typ; if (typ0 == Id::Op_LParen) { lparen = tok0; rparen = p_trailer->GetChild(-1)->tok; arglist = Alloc(lparen, Alloc>(), nullptr, Alloc>(), nullptr, nullptr, rparen); if (p_trailer->NumChildren() == 2) { return Alloc(base, arglist); } p = p_trailer->GetChild(1); this->_ArgList(p, arglist); return Alloc(base, arglist); } if (typ0 == Id::Op_LBracket) { p_args = p_trailer->GetChild(1); n = p_args->NumChildren(); if (n > 1) { p_die(str2148, p_args->GetChild(1)->tok); } a = p_args->GetChild(0); return Alloc(tok0, base, this->_Subscript(a)); } if ((typ0 == Id::Expr_Dot || typ0 == Id::Expr_RArrow || typ0 == Id::Expr_RDArrow)) { attr = p_trailer->GetChild(1)->tok; return Alloc(base, tok0, attr, lexer::TokenVal(attr), expr_context_e::Store); } assert(0); // AssertionError } Tuple2 Transformer::_DictPair(pnode::PNode* p_node) { int typ; syntax_asdl::expr_t* key = nullptr; syntax_asdl::expr_t* val = nullptr; syntax_asdl::Token* tok0 = nullptr; int id_; value::Str* key_str = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&key); StackRoot _root2(&val); StackRoot _root3(&tok0); StackRoot _root4(&key_str); typ = p_node->GetChild(0)->typ; if ((typ == grammar_nt::sq_string || typ == grammar_nt::dq_string)) { key = this->Expr(p_node->GetChild(0)); val = this->Expr(p_node->GetChild(2)); return Tuple2(key, val); } tok0 = p_node->GetChild(0)->tok; id_ = tok0->id; if (id_ == Id::Expr_Name) { key_str = Alloc(lexer::TokenVal(tok0)); key = Alloc(tok0, key_str); if (p_node->NumChildren() >= 3) { val = this->Expr(p_node->GetChild(2)); } else { val = expr::Implicit; } } if (id_ == Id::Op_LBracket) { key = this->Expr(p_node->GetChild(1)); val = this->Expr(p_node->GetChild(4)); return Tuple2(key, val); } return Tuple2(key, val); } expr::Dict* Transformer::_Dict(pnode::PNode* parent, pnode::PNode* p_node) { List* keys = nullptr; List* values = nullptr; int n; syntax_asdl::expr_t* key = nullptr; syntax_asdl::expr_t* val = nullptr; StackRoot _root0(&parent); StackRoot _root1(&p_node); StackRoot _root2(&keys); StackRoot _root3(&values); StackRoot _root4(&key); StackRoot _root5(&val); if (p_node->typ == Id::Op_RBrace) { return Alloc(parent->tok, Alloc>(), Alloc>()); } keys = Alloc>(); values = Alloc>(); n = p_node->NumChildren(); for (int i = 0; i < n; i += 2) { Tuple2 tup0 = this->_DictPair(p_node->GetChild(i)); key = tup0.at0(); val = tup0.at1(); keys->append(key); values->append(val); } return Alloc(parent->tok, keys, values); } syntax_asdl::expr_t* Transformer::_Tuple(pnode::PNode* parent) { int n; List* elts = nullptr; pnode::PNode* p_node = nullptr; StackRoot _root0(&parent); StackRoot _root1(&elts); StackRoot _root2(&p_node); n = parent->NumChildren(); if (n == 1) { return this->Expr(parent->GetChild(0)); } if (n == 2) { p_die(str2149, parent->GetChild(1)->tok); } elts = Alloc>(); for (int i = 0; i < n; i += 2) { p_node = parent->GetChild(i); elts->append(this->Expr(p_node)); } return Alloc(parent->tok, elts, expr_context_e::Store); } syntax_asdl::expr_t* Transformer::_TestlistComp(pnode::PNode* parent, pnode::PNode* p_node, int id0) { int n; syntax_asdl::expr_t* elt = nullptr; syntax_asdl::Comprehension* comp = nullptr; List* elts = nullptr; StackRoot _root0(&parent); StackRoot _root1(&p_node); StackRoot _root2(&elt); StackRoot _root3(&comp); StackRoot _root4(&elts); n = p_node->NumChildren(); if ((n > 1 and p_node->GetChild(1)->typ == grammar_nt::comp_for)) { elt = this->Expr(p_node->GetChild(0)); comp = this->_CompFor(p_node->GetChild(1)); if (id0 == Id::Op_LParen) { return Alloc(elt, NewList(std::initializer_list{comp})); } if (id0 == Id::Op_LBracket) { return Alloc(parent->tok, elt, NewList(std::initializer_list{comp})); } assert(0); // AssertionError } if (id0 == Id::Op_LParen) { if (n == 1) { return this->Expr(p_node->GetChild(0)); } if (p_node->GetChild(1)->typ == Id::Arith_Comma) { return this->_Tuple(p_node); } assert(0); // AssertionError } if (id0 == Id::Op_LBracket) { elts = Alloc>(); for (int i = 0; i < n; i += 2) { elts->append(this->Expr(p_node->GetChild(i))); } return Alloc(parent->tok, elts, expr_context_e::Store); } assert(0); // AssertionError } syntax_asdl::expr_t* Transformer::_Atom(pnode::PNode* parent) { syntax_asdl::Token* tok = nullptr; int id_; int n; syntax_asdl::expr_t* child = nullptr; int i; syntax_asdl::Token* name_tok = nullptr; StackRoot _root0(&parent); StackRoot _root1(&tok); StackRoot _root2(&child); StackRoot _root3(&name_tok); tok = parent->GetChild(0)->tok; id_ = tok->id; n = parent->NumChildren(); if (id_ == Id::Op_LParen) { if (n == 2) { return Alloc(tok, Alloc>(), expr_context_e::Store); } return this->_TestlistComp(parent, parent->GetChild(1), id_); } if (id_ == Id::Op_LBracket) { if (n == 2) { return Alloc(tok, Alloc>(), expr_context_e::Store); } return this->_TestlistComp(parent, parent->GetChild(1), id_); } if (id_ == Id::Left_CaretBracket) { child = this->Expr(parent->GetChild(1)); return Alloc(child); } if (id_ == Id::Op_LBrace) { i = 1; if (parent->GetChild(i)->typ == Id::Op_Newline) { i += 1; } return this->_Dict(parent, parent->GetChild(i)); } if (id_ == Id::Arith_Amp) { n = parent->NumChildren(); if (n >= 3) { p_die(str2150, parent->GetChild(2)->tok); } name_tok = parent->GetChild(1)->tok; return Alloc(name_tok, lexer::TokenVal(name_tok), Alloc>()); } if (id_ == Id::Expr_Func) { return Alloc(Alloc>(), expr::Implicit); } if (id_ == Id::Expr_DecInt) { p_die(str2151, parent->GetChild(1)->tok); } if (id_ == Id::Expr_Float) { p_die(str2152, parent->GetChild(1)->tok); } assert(0); // AssertionError } syntax_asdl::NameType* Transformer::_NameType(pnode::PNode* p_node) { syntax_asdl::Token* name_tok = nullptr; syntax_asdl::TypeExpr* typ = nullptr; int n; StackRoot _root0(&p_node); StackRoot _root1(&name_tok); StackRoot _root2(&typ); name_tok = p_node->GetChild(0)->tok; typ = nullptr; n = p_node->NumChildren(); if (n == 2) { typ = this->_TypeExpr(p_node->GetChild(1)); } if (n == 3) { typ = this->_TypeExpr(p_node->GetChild(2)); } return Alloc(name_tok, lexer::TokenVal(name_tok), typ); } List* Transformer::_NameTypeList(pnode::PNode* p_node) { List* results = nullptr; int n; StackRoot _root0(&p_node); StackRoot _root1(&results); results = Alloc>(); n = p_node->NumChildren(); for (int i = 0; i < n; i += 2) { results->append(this->_NameType(p_node->GetChild(i))); } return results; } syntax_asdl::Comprehension* Transformer::_CompFor(pnode::PNode* p_node) { List* lhs = nullptr; syntax_asdl::expr_t* iterable = nullptr; syntax_asdl::expr_t* cond = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&lhs); StackRoot _root2(&iterable); StackRoot _root3(&cond); lhs = this->_NameTypeList(p_node->GetChild(1)); iterable = this->Expr(p_node->GetChild(3)); if (p_node->NumChildren() >= 6) { cond = this->Expr(p_node->GetChild(5)); } else { cond = nullptr; } return Alloc(lhs, iterable, cond); } syntax_asdl::expr_t* Transformer::_CompareChain(pnode::PNode* parent) { List* cmp_ops = nullptr; List* comparators = nullptr; syntax_asdl::expr_t* left = nullptr; int i; int n; pnode::PNode* p = nullptr; syntax_asdl::Token* op = nullptr; StackRoot _root0(&parent); StackRoot _root1(&cmp_ops); StackRoot _root2(&comparators); StackRoot _root3(&left); StackRoot _root4(&p); StackRoot _root5(&op); cmp_ops = Alloc>(); comparators = Alloc>(); left = this->Expr(parent->GetChild(0)); i = 1; n = parent->NumChildren(); while (i < n) { p = parent->GetChild(i); op = p->GetChild(0)->tok; if (p->NumChildren() == 2) { if (op->id == Id::Expr_Not) { op->id = Id::Node_NotIn; } else { if (op->id == Id::Expr_Is) { op->id = Id::Node_IsNot; } else { assert(0); // AssertionError } } } else { ; // pass } cmp_ops->append(op); i += 1; comparators->append(this->Expr(parent->GetChild(i))); i += 1; } return Alloc(left, cmp_ops, comparators); } syntax_asdl::expr_t* Transformer::_Subscript(pnode::PNode* parent) { int typ0; int n; syntax_asdl::expr_t* lower = nullptr; syntax_asdl::expr_t* upper = nullptr; StackRoot _root0(&parent); StackRoot _root1(&lower); StackRoot _root2(&upper); typ0 = parent->GetChild(0)->typ; n = parent->NumChildren(); if (typ0 == grammar_nt::expr) { if (n == 3) { lower = this->Expr(parent->GetChild(0)); upper = this->Expr(parent->GetChild(2)); } else { if (n == 2) { lower = this->Expr(parent->GetChild(0)); upper = nullptr; } else { return this->Expr(parent->GetChild(0)); } } } else { lower = nullptr; if (n == 1) { upper = nullptr; } else { upper = this->Expr(parent->GetChild(1)); } } return Alloc(lower, parent->GetChild(0)->tok, upper); } syntax_asdl::expr_t* Transformer::Expr(pnode::PNode* pnode) { int typ; syntax_asdl::expr_t* test = nullptr; syntax_asdl::expr_t* body = nullptr; syntax_asdl::expr_t* orelse = nullptr; int n; List* params = nullptr; syntax_asdl::Token* op_tok = nullptr; pnode::PNode* op = nullptr; pnode::PNode* e = nullptr; syntax_asdl::expr_t* node = nullptr; int i; syntax_asdl::expr_t* factor = nullptr; DoubleQuoted* dq = nullptr; syntax_asdl::Token* tok = nullptr; BigStr* bare = nullptr; BigStr* tok_str = nullptr; BigStr* c_under = nullptr; value_asdl::value_t* cval = nullptr; BigStr* s = nullptr; BigStr* hex_str = nullptr; int code_point; StackRoot _root0(&pnode); StackRoot _root1(&test); StackRoot _root2(&body); StackRoot _root3(&orelse); StackRoot _root4(¶ms); StackRoot _root5(&op_tok); StackRoot _root6(&op); StackRoot _root7(&e); StackRoot _root8(&node); StackRoot _root9(&factor); StackRoot _root10(&dq); StackRoot _root11(&tok); StackRoot _root12(&bare); StackRoot _root13(&tok_str); StackRoot _root14(&c_under); StackRoot _root15(&cval); StackRoot _root16(&s); StackRoot _root17(&hex_str); typ = pnode->typ; if (typ == grammar_nt::ysh_expr) { return this->Expr(pnode->GetChild(1)); } if (typ == grammar_nt::command_expr) { return this->Expr(pnode->GetChild(0)); } if (typ == grammar_nt::atom) { if (pnode->NumChildren() == 1) { return this->Expr(pnode->GetChild(0)); } return this->_Atom(pnode); } if (typ == grammar_nt::testlist) { return this->_Tuple(pnode); } if (typ == grammar_nt::test) { if (pnode->NumChildren() == 1) { return this->Expr(pnode->GetChild(0)); } test = this->Expr(pnode->GetChild(2)); body = this->Expr(pnode->GetChild(0)); orelse = this->Expr(pnode->GetChild(4)); return Alloc(test, body, orelse); } if (typ == grammar_nt::lambdef) { n = pnode->NumChildren(); if (n == 4) { params = this->_NameTypeList(pnode->GetChild(1)); } else { params = Alloc>(); } body = this->Expr(pnode->GetChild((n - 1))); return Alloc(params, body); } if (typ == grammar_nt::or_test) { return this->_LeftAssoc(pnode); } if (typ == grammar_nt::and_test) { return this->_LeftAssoc(pnode); } if (typ == grammar_nt::not_test) { if (pnode->NumChildren() == 1) { return this->Expr(pnode->GetChild(0)); } op_tok = pnode->GetChild(0)->tok; return Alloc(op_tok, this->Expr(pnode->GetChild(1))); } else { if (typ == grammar_nt::comparison) { if (pnode->NumChildren() == 1) { return this->Expr(pnode->GetChild(0)); } return this->_CompareChain(pnode); } else { if (typ == grammar_nt::range_expr) { n = pnode->NumChildren(); if (n == 1) { return this->Expr(pnode->GetChild(0)); } if (n == 3) { return Alloc(this->Expr(pnode->GetChild(0)), pnode->GetChild(1)->tok, this->Expr(pnode->GetChild(2))); } assert(0); // AssertionError } else { if (typ == grammar_nt::expr) { return this->_LeftAssoc(pnode); } } } } if (typ == grammar_nt::xor_expr) { return this->_LeftAssoc(pnode); } if (typ == grammar_nt::and_expr) { return this->_LeftAssoc(pnode); } else { if (typ == grammar_nt::shift_expr) { return this->_LeftAssoc(pnode); } else { if (typ == grammar_nt::arith_expr) { return this->_LeftAssoc(pnode); } else { if (typ == grammar_nt::term) { return this->_LeftAssoc(pnode); } else { if (typ == grammar_nt::factor) { if (pnode->NumChildren() == 1) { return this->Expr(pnode->GetChild(0)); } op = pnode->GetChild(0); e = pnode->GetChild(1); return Alloc(op->tok, this->Expr(e)); } else { if (typ == grammar_nt::power) { node = this->Expr(pnode->GetChild(0)); if (pnode->NumChildren() == 1) { return node; } n = pnode->NumChildren(); i = 1; while ((i < n and pnode->GetChild(i)->typ == grammar_nt::trailer)) { node = this->_Trailer(node, pnode->GetChild(i)); i += 1; } if (i != n) { op_tok = pnode->GetChild(i)->tok; factor = this->Expr(pnode->GetChild((i + 1))); node = Alloc(op_tok, node, factor); } return node; } else { if (typ == grammar_nt::eggex) { return this->_Eggex(pnode); } else { if (typ == grammar_nt::ysh_expr_sub) { return this->Expr(pnode->GetChild(0)); } else { if (typ == grammar_nt::sh_array_literal) { return reinterpret_cast(pnode->GetChild(1)->tok); } else { if (typ == grammar_nt::old_sh_array_literal) { return reinterpret_cast(pnode->GetChild(1)->tok); } else { if (typ == grammar_nt::sh_command_sub) { return reinterpret_cast(pnode->GetChild(1)->tok); } else { if (typ == grammar_nt::braced_var_sub) { return reinterpret_cast(pnode->GetChild(1)->tok); } else { if (typ == grammar_nt::dq_string) { dq = reinterpret_cast(pnode->GetChild(1)->tok); if (pnode->GetChild(0)->typ == Id::Left_CaretDoubleQuote) { return Alloc(dq); } return dq; } else { if (typ == grammar_nt::sq_string) { return reinterpret_cast(pnode->GetChild(1)->tok); } else { if (typ == grammar_nt::simple_var_sub) { tok = pnode->GetChild(0)->tok; if (tok->id == Id::VSub_DollarName) { bare = lexer::TokenSliceLeft(tok, 1); p_die(StrFormat("In expressions, remove $ and use `%s`, or sometimes \"$%s\"", bare, bare), tok); } return Alloc(tok); } } } } } } } } } } } } } } } tok = pnode->tok; if (typ == Id::Expr_Name) { return Alloc(tok, lexer::TokenVal(tok)); } tok_str = lexer::TokenVal(tok); c_under = tok_str->replace(str2154, str2155); if (typ == Id::Expr_DecInt) { try { cval = Alloc(mops::FromStr(c_under)); } catch (ValueError*) { p_die(str2156, tok); } } else { if (typ == Id::Expr_BinInt) { try { cval = Alloc(mops::FromStr(c_under->slice(2), 2)); } catch (ValueError*) { p_die(str2157, tok); } } else { if (typ == Id::Expr_OctInt) { try { cval = Alloc(mops::FromStr(c_under->slice(2), 8)); } catch (ValueError*) { p_die(str2158, tok); } } else { if (typ == Id::Expr_HexInt) { try { cval = Alloc(mops::FromStr(c_under->slice(2), 16)); } catch (ValueError*) { p_die(str2159, tok); } } else { if (typ == Id::Expr_Float) { cval = Alloc(to_float(c_under)); } else { if (typ == Id::Expr_Null) { cval = value::Null; } else { if (typ == Id::Expr_True) { cval = Alloc(true); } else { if (typ == Id::Expr_False) { cval = Alloc(false); } else { if (typ == Id::Char_OneChar) { s = consts::LookupCharC(lexer::TokenSliceLeft(tok, 1)); cval = Alloc(s); } else { if (typ == Id::Char_YHex) { hex_str = lexer::TokenSliceLeft(tok, 2); s = chr(to_int(hex_str, 16)); cval = Alloc(s); } else { if (typ == Id::Char_UBraced) { hex_str = lexer::TokenSlice(tok, 3, -1); code_point = to_int(hex_str, 16); s = j8::Utf8Encode(code_point); cval = Alloc(s); } else { assert(0); // AssertionError } } } } } } } } } } } return Alloc(tok, cval); } void Transformer::_CheckLhs(syntax_asdl::expr_t* lhs) { syntax_asdl::expr_t* UP_lhs = nullptr; StackRoot _root0(&lhs); StackRoot _root1(&UP_lhs); UP_lhs = lhs; switch (lhs->tag()) { case expr_e::Var: { ; // pass } break; case expr_e::Subscript: { Subscript* lhs = static_cast(UP_lhs); this->_CheckLhs(lhs->obj); } break; case expr_e::Attribute: { Attribute* lhs = static_cast(UP_lhs); this->_CheckLhs(lhs->obj); } break; default: { p_die(str2160, location::TokenForExpr(lhs)); } } } List* Transformer::_LhsExprList(pnode::PNode* p_node) { List* lhs_list = nullptr; int n; pnode::PNode* p = nullptr; syntax_asdl::expr_t* e = nullptr; syntax_asdl::expr_t* UP_e = nullptr; syntax_asdl::loc_t* blame = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&lhs_list); StackRoot _root2(&p); StackRoot _root3(&e); StackRoot _root4(&UP_e); StackRoot _root5(&blame); lhs_list = Alloc>(); n = p_node->NumChildren(); for (int i = 0; i < n; i += 2) { p = p_node->GetChild(i); e = this->Expr(p); UP_e = e; switch (e->tag()) { case expr_e::Var: { expr::Var* e = static_cast(UP_e); lhs_list->append(e->left); } break; case expr_e::Subscript: { Subscript* e = static_cast(UP_e); this->_CheckLhs(e); lhs_list->append(e); } break; case expr_e::Attribute: { Attribute* e = static_cast(UP_e); this->_CheckLhs(e); if (e->op->id != Id::Expr_Dot) { p_die(str2161, e->op); } lhs_list->append(e); } break; default: { ; // pass if (p->tok) { blame = p->tok; } else { blame = loc::Missing; } p_die(str2162, blame); } } } return lhs_list; } command::VarDecl* Transformer::MakeVarDecl(pnode::PNode* p_node) { List* lhs = nullptr; int n; syntax_asdl::expr_t* rhs = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&lhs); StackRoot _root2(&rhs); lhs = this->_NameTypeList(p_node->GetChild(0)); n = p_node->NumChildren(); if (n >= 3) { rhs = this->Expr(p_node->GetChild(2)); } else { rhs = nullptr; } return Alloc(nullptr, lhs, rhs); } command::Mutation* Transformer::MakeMutation(pnode::PNode* p_node) { int typ; List* lhs_list = nullptr; syntax_asdl::Token* op_tok = nullptr; syntax_asdl::expr_t* rhs = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&lhs_list); StackRoot _root2(&op_tok); StackRoot _root3(&rhs); typ = p_node->typ; lhs_list = this->_LhsExprList(p_node->GetChild(0)); op_tok = p_node->GetChild(1)->tok; if ((len(lhs_list) > 1 and op_tok->id != Id::Arith_Equal)) { p_die(str2163, op_tok); } rhs = this->Expr(p_node->GetChild(2)); return Alloc(nullptr, lhs_list, op_tok, rhs); } syntax_asdl::EggexFlag* Transformer::_EggexFlag(pnode::PNode* p_node) { int n; StackRoot _root0(&p_node); n = p_node->NumChildren(); if (n == 1) { return Alloc(false, p_node->GetChild(0)->tok); } else { if (n == 2) { return Alloc(true, p_node->GetChild(1)->tok); } else { assert(0); // AssertionError } } } syntax_asdl::Eggex* Transformer::_Eggex(pnode::PNode* p_node) { syntax_asdl::Token* left = nullptr; syntax_asdl::re_t* regex = nullptr; List* flags = nullptr; syntax_asdl::Token* trans_pref = nullptr; int i; pnode::PNode* current = nullptr; BigStr* canonical_flags = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&left); StackRoot _root2(®ex); StackRoot _root3(&flags); StackRoot _root4(&trans_pref); StackRoot _root5(¤t); StackRoot _root6(&canonical_flags); left = p_node->GetChild(0)->tok; regex = this->_Regex(p_node->GetChild(1)); flags = Alloc>(); trans_pref = nullptr; i = 2; current = p_node->GetChild(i); if (current->typ == Id::Op_Semi) { i += 1; while (true) { current = p_node->GetChild(i); if (current->typ != grammar_nt::re_flag) { break; } flags->append(this->_EggexFlag(current)); i += 1; } if (current->typ == Id::Op_Semi) { i += 1; trans_pref = p_node->GetChild(i)->tok; } } if ((trans_pref == nullptr or str_equals(lexer::TokenVal(trans_pref), str2164))) { canonical_flags = regex_translate::CanonicalFlags(flags); } else { canonical_flags = nullptr; } return Alloc(left, regex, flags, trans_pref, canonical_flags); } syntax_asdl::pat_t* Transformer::YshCasePattern(pnode::PNode* pnode) { pnode::PNode* pattern = nullptr; int typ; List* exprs = nullptr; pnode::PNode* child = nullptr; syntax_asdl::expr_t* expr = nullptr; StackRoot _root0(&pnode); StackRoot _root1(&pattern); StackRoot _root2(&exprs); StackRoot _root3(&child); StackRoot _root4(&expr); pattern = pnode->GetChild(0); typ = pattern->typ; if (typ == Id::Op_LParen) { pattern = pnode->GetChild(1); typ = pattern->typ; if (typ == grammar_nt::pat_else) { return pat::Else; } if (typ == grammar_nt::pat_exprs) { exprs = Alloc>(); for (int i = 0; i < pattern->NumChildren(); ++i) { child = pattern->GetChild(i); if (child->typ == grammar_nt::expr) { expr = this->Expr(child); exprs->append(expr); } } return Alloc(exprs); } } if (typ == grammar_nt::eggex) { return this->_Eggex(pattern); } assert(0); // AssertionError } syntax_asdl::expr_t* Transformer::_BlockArg(pnode::PNode* p_node) { int n; pnode::PNode* child = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&child); n = p_node->NumChildren(); if (n == 1) { child = p_node->GetChild(0); return this->Expr(child); } p_die(str2165, p_node->tok); } void Transformer::_Argument(pnode::PNode* p_node, bool after_semi, syntax_asdl::ArgList* arglist) { List* pos_args = nullptr; List* named_args = nullptr; int n; pnode::PNode* child = nullptr; syntax_asdl::expr_t* arg = nullptr; syntax_asdl::Token* tok0 = nullptr; expr::Spread* spread_expr = nullptr; syntax_asdl::expr_t* elt = nullptr; syntax_asdl::Comprehension* comp = nullptr; syntax_asdl::NamedArg* n1 = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&arglist); StackRoot _root2(&pos_args); StackRoot _root3(&named_args); StackRoot _root4(&child); StackRoot _root5(&arg); StackRoot _root6(&tok0); StackRoot _root7(&spread_expr); StackRoot _root8(&elt); StackRoot _root9(&comp); StackRoot _root10(&n1); pos_args = arglist->pos_args; named_args = arglist->named_args; n = p_node->NumChildren(); if (n == 1) { child = p_node->GetChild(0); if (after_semi) { p_die(POS_ARG_MISPLACED, child->tok); } arg = this->Expr(child); pos_args->append(arg); return ; } if (n == 2) { tok0 = p_node->GetChild(0)->tok; if (tok0->id == Id::Expr_Ellipsis) { spread_expr = Alloc(tok0, this->Expr(p_node->GetChild(1))); if (after_semi) { named_args->append(Alloc(nullptr, spread_expr)); } else { pos_args->append(spread_expr); } return ; } if (p_node->GetChild(1)->typ == grammar_nt::comp_for) { child = p_node->GetChild(0); if (after_semi) { p_die(POS_ARG_MISPLACED, child->tok); } elt = this->Expr(child); comp = this->_CompFor(p_node->GetChild(1)); arg = Alloc(elt, NewList(std::initializer_list{comp})); pos_args->append(arg); return ; } assert(0); // AssertionError } if (n == 3) { n1 = Alloc(p_node->GetChild(0)->tok, this->Expr(p_node->GetChild(2))); named_args->append(n1); return ; } assert(0); // AssertionError } void Transformer::_ArgGroup(pnode::PNode* p_node, bool after_semi, syntax_asdl::ArgList* arglist) { pnode::PNode* p_child = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&arglist); StackRoot _root2(&p_child); for (int i = 0; i < p_node->NumChildren(); ++i) { p_child = p_node->GetChild(i); if (p_child->typ == grammar_nt::argument) { this->_Argument(p_child, after_semi, arglist); } } } void Transformer::_ArgList(pnode::PNode* p_node, syntax_asdl::ArgList* arglist) { int n; int i; pnode::PNode* child = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&arglist); StackRoot _root2(&child); n = p_node->NumChildren(); if (n == 0) { return ; } i = 0; if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == grammar_nt::arg_group) { this->_ArgGroup(child, false, arglist); i += 1; } if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == Id::Op_Semi) { arglist->semi_tok = child->tok; i += 1; } if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == grammar_nt::arg_group) { this->_ArgGroup(child, true, arglist); i += 1; } if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == Id::Op_Semi) { arglist->semi_tok2 = child->tok; i += 1; } if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == grammar_nt::argument) { arglist->block_expr = this->_BlockArg(child); i += 1; } } void Transformer::ProcCallArgs(pnode::PNode* pnode, syntax_asdl::ArgList* arglist) { int n; pnode::PNode* child1 = nullptr; StackRoot _root0(&pnode); StackRoot _root1(&arglist); StackRoot _root2(&child1); n = pnode->NumChildren(); if (n == 2) { return ; } if (n == 3) { child1 = pnode->GetChild(1); this->_ArgList(child1, arglist); return ; } assert(0); // AssertionError } syntax_asdl::TypeExpr* Transformer::_TypeExpr(pnode::PNode* pnode) { syntax_asdl::TypeExpr* ty = nullptr; int n; int i; syntax_asdl::TypeExpr* p = nullptr; StackRoot _root0(&pnode); StackRoot _root1(&ty); StackRoot _root2(&p); ty = TypeExpr::CreateNull(); ty->tok = pnode->GetChild(0)->tok; ty->name = lexer::TokenVal(ty->tok); n = pnode->NumChildren(); if (n == 1) { return ty; } ty->params = Alloc>(); i = 2; while (i < n) { p = this->_TypeExpr(pnode->GetChild(i)); ty->params->append(p); i += 2; } return ty; } syntax_asdl::Param* Transformer::_Param(pnode::PNode* pnode) { syntax_asdl::Token* name_tok = nullptr; int n; syntax_asdl::expr_t* default_val = nullptr; syntax_asdl::TypeExpr* type_ = nullptr; StackRoot _root0(&pnode); StackRoot _root1(&name_tok); StackRoot _root2(&default_val); StackRoot _root3(&type_); name_tok = pnode->GetChild(0)->tok; n = pnode->NumChildren(); default_val = nullptr; type_ = nullptr; if (n == 1) { ; // pass } else { if (n == 2) { type_ = this->_TypeExpr(pnode->GetChild(1)); } else { if (n == 3) { default_val = this->Expr(pnode->GetChild(2)); } else { if (n == 4) { type_ = this->_TypeExpr(pnode->GetChild(1)); default_val = this->Expr(pnode->GetChild(3)); } } } } return Alloc(name_tok, lexer::TokenVal(name_tok), type_, default_val); } syntax_asdl::ParamGroup* Transformer::_ParamGroup(pnode::PNode* p_node) { List* params = nullptr; syntax_asdl::RestParam* rest_of = nullptr; int n; int i; pnode::PNode* child = nullptr; syntax_asdl::Token* tok = nullptr; StackRoot _root0(&p_node); StackRoot _root1(¶ms); StackRoot _root2(&rest_of); StackRoot _root3(&child); StackRoot _root4(&tok); params = Alloc>(); rest_of = nullptr; n = p_node->NumChildren(); i = 0; while (i < n) { child = p_node->GetChild(i); if (child->typ == grammar_nt::param) { params->append(this->_Param(child)); } else { if (child->typ == Id::Expr_Ellipsis) { tok = p_node->GetChild((i + 1))->tok; rest_of = Alloc(tok, lexer::TokenVal(tok)); } } i += 2; } return Alloc(params, rest_of); } syntax_asdl::proc_sig_t* Transformer::Proc(pnode::PNode* p_node) { int typ; int n; proc_sig::Closed* sig = nullptr; int i; pnode::PNode* child = nullptr; syntax_asdl::ParamGroup* group = nullptr; List* params = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&sig); StackRoot _root2(&child); StackRoot _root3(&group); StackRoot _root4(¶ms); typ = p_node->typ; n = p_node->NumChildren(); if (n == 1) { return proc_sig::Open; } if (n == 3) { sig = proc_sig::Closed::CreateNull(true); } sig = proc_sig::Closed::CreateNull(true); i = 1; child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { sig->word = this->_ParamGroup(p_node->GetChild(i)); for (ListIter it(sig->word->params); !it.Done(); it.Next()) { syntax_asdl::Param* word = it.Value(); StackRoot _for(&word ); if (word->type) { if ((!str_equals(word->type->name, str2166) && !str_equals(word->type->name, str2167))) { p_die(str2168, word->type->tok); } if (word->type->params != nullptr) { p_die(str2169, word->type->tok); } } } i += 2; } else { i += 1; } if (i >= n) { return sig; } child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { sig->positional = this->_ParamGroup(p_node->GetChild(i)); i += 2; } else { i += 1; } if (i >= n) { return sig; } child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { sig->named = this->_ParamGroup(p_node->GetChild(i)); i += 2; } else { i += 1; } if (i >= n) { return sig; } child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { group = this->_ParamGroup(p_node->GetChild(i)); params = group->params; if (len(params) > 1) { p_die(str2170, params->at(1)->blame_tok); } if (group->rest_of) { p_die(str2171, group->rest_of->blame_tok); } if (len(params) == 1) { if (params->at(0)->type) { if (!(str_equals(params->at(0)->type->name, str2172))) { p_die(str2173, params->at(0)->type->tok); } if (params->at(0)->type->params != nullptr) { p_die(str2174, params->at(0)->type->tok); } } sig->block_param = params->at(0); } } return sig; } void Transformer::YshFunc(pnode::PNode* p_node, syntax_asdl::Func* out) { int n; int i; pnode::PNode* child = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&out); StackRoot _root2(&child); out->name = p_node->GetChild(0)->tok; n = p_node->NumChildren(); i = 2; child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { out->positional = this->_ParamGroup(child); i += 2; } else { i += 1; } if (i >= n) { return ; } child = p_node->GetChild(i); if (child->typ == grammar_nt::param_group) { out->named = this->_ParamGroup(child); } } syntax_asdl::CharCode* Transformer::_RangeCharSingleQuoted(pnode::PNode* p_node) { pnode::PNode* child0 = nullptr; SingleQuoted* sq_part = nullptr; int n; StackRoot _root0(&p_node); StackRoot _root1(&child0); StackRoot _root2(&sq_part); child0 = p_node->GetChild(0); if (child0->typ == grammar_nt::sq_string) { sq_part = reinterpret_cast(child0->GetChild(1)->tok); n = len(sq_part->sval); if (n == 0) { p_die(str2175, Alloc(sq_part)); } else { if (n == 1) { return Alloc(sq_part->left, ord(sq_part->sval->at(0)), false); } else { p_die(RANGE_POINT_TOO_LONG, Alloc(sq_part)); } } } return nullptr; } syntax_asdl::Token* Transformer::_OtherRangeToken(pnode::PNode* p_node) { pnode::PNode* child0 = nullptr; syntax_asdl::Token* tok = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&child0); StackRoot _root2(&tok); child0 = p_node->GetChild(0); if (child0->typ == grammar_nt::char_literal) { tok = child0->GetChild(0)->tok; return tok; } tok = p_node->tok; if (tok->length != 1) { p_die(RANGE_POINT_TOO_LONG, tok); } return tok; } syntax_asdl::class_literal_term_t* Transformer::_NonRangeChars(pnode::PNode* p_node) { pnode::PNode* child0 = nullptr; int typ0; StackRoot _root0(&p_node); StackRoot _root1(&child0); child0 = p_node->GetChild(0); typ0 = p_node->GetChild(0)->typ; if (typ0 == grammar_nt::sq_string) { return reinterpret_cast(child0->GetChild(1)->tok); } if (typ0 == grammar_nt::char_literal) { return word_compile::EvalCharLiteralForRegex(child0->tok); } if (typ0 == Id::Expr_Name) { return this->_NameInClass(nullptr, child0->tok); } assert(0); // AssertionError } syntax_asdl::class_literal_term_t* Transformer::_ClassLiteralTerm(pnode::PNode* p_node) { int typ0; int n; pnode::PNode* left = nullptr; pnode::PNode* right = nullptr; syntax_asdl::CharCode* code1 = nullptr; syntax_asdl::Token* tok1 = nullptr; syntax_asdl::CharCode* code2 = nullptr; syntax_asdl::Token* tok2 = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&left); StackRoot _root2(&right); StackRoot _root3(&code1); StackRoot _root4(&tok1); StackRoot _root5(&code2); StackRoot _root6(&tok2); typ0 = p_node->GetChild(0)->typ; if (typ0 == grammar_nt::range_char) { n = p_node->NumChildren(); if (n == 1) { return this->_NonRangeChars(p_node->GetChild(0)); } if (n == 3) { left = p_node->GetChild(0); right = p_node->GetChild(2); code1 = this->_RangeCharSingleQuoted(left); if (code1 == nullptr) { tok1 = this->_OtherRangeToken(left); code1 = word_compile::EvalCharLiteralForRegex(tok1); } code2 = this->_RangeCharSingleQuoted(right); if (code2 == nullptr) { tok2 = this->_OtherRangeToken(right); code2 = word_compile::EvalCharLiteralForRegex(tok2); } return Alloc(code1, code2); } assert(0); // AssertionError } if (typ0 == Id::Expr_At) { tok1 = p_node->GetChild(1)->tok; return Alloc(tok1, lexer::TokenVal(tok1)); } if (typ0 == Id::Expr_Bang) { return this->_NameInClass(p_node->GetChild(0)->tok, p_node->GetChild(1)->tok); } p_die(str2176, p_node->GetChild(0)->tok); } List* Transformer::_ClassLiteral(pnode::PNode* p_node) { List* terms = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&terms); terms = Alloc>(); for (int i = 1; i < (p_node->NumChildren() - 1); ++i) { terms->append(this->_ClassLiteralTerm(p_node->GetChild(i))); } return terms; } syntax_asdl::re_t* Transformer::_NameInRegex(syntax_asdl::Token* negated_tok, syntax_asdl::Token* tok) { BigStr* tok_str = nullptr; BigStr* perl = nullptr; StackRoot _root0(&negated_tok); StackRoot _root1(&tok); StackRoot _root2(&tok_str); StackRoot _root3(&perl); tok_str = lexer::TokenVal(tok); if (str_equals(tok_str, str2177)) { if (negated_tok) { p_die(str2178, tok); } return Alloc(tok, Id::Eggex_Dot); } if (list_contains(POSIX_CLASSES, tok_str)) { return Alloc(negated_tok, tok_str); } perl = PERL_CLASSES->get(tok_str); if (perl != nullptr) { return Alloc(negated_tok, perl); } if (tok_str->at(0)->isupper()) { return Alloc(tok, lexer::TokenVal(tok)); } p_die(StrFormat("%r isn't a character class", tok_str), tok); } syntax_asdl::class_literal_term_t* Transformer::_NameInClass(syntax_asdl::Token* negated_tok, syntax_asdl::Token* tok) { BigStr* tok_str = nullptr; BigStr* perl = nullptr; StackRoot _root0(&negated_tok); StackRoot _root1(&tok); StackRoot _root2(&tok_str); StackRoot _root3(&perl); tok_str = lexer::TokenVal(tok); if (len(tok_str) == 1) { if (negated_tok) { p_die(str2180, tok); } return word_compile::EvalCharLiteralForRegex(tok); } if (list_contains(POSIX_CLASSES, tok_str)) { return Alloc(negated_tok, tok_str); } perl = PERL_CLASSES->get(tok_str); if (perl != nullptr) { return Alloc(negated_tok, perl); } p_die(StrFormat("%r isn't a character class", tok_str), tok); } syntax_asdl::re_t* Transformer::_ReAtom(pnode::PNode* p_atom) { pnode::PNode* child0 = nullptr; int typ0; syntax_asdl::Token* tok0 = nullptr; BigStr* s = nullptr; BigStr* tok_str = nullptr; syntax_asdl::Token* tok1 = nullptr; int n; pnode::PNode* child1 = nullptr; syntax_asdl::re_t* regex = nullptr; syntax_asdl::Token* as_name = nullptr; syntax_asdl::Token* func_name = nullptr; int i; int typ; StackRoot _root0(&p_atom); StackRoot _root1(&child0); StackRoot _root2(&tok0); StackRoot _root3(&s); StackRoot _root4(&tok_str); StackRoot _root5(&tok1); StackRoot _root6(&child1); StackRoot _root7(®ex); StackRoot _root8(&as_name); StackRoot _root9(&func_name); child0 = p_atom->GetChild(0); typ0 = p_atom->GetChild(0)->typ; tok0 = p_atom->GetChild(0)->tok; if (typ0 == grammar_nt::class_literal) { return Alloc(false, this->_ClassLiteral(child0)); } if (typ0 == grammar_nt::sq_string) { return reinterpret_cast(child0->GetChild(1)->tok); } if (typ0 == grammar_nt::char_literal) { s = word_compile::EvalCStringToken(tok0->id, lexer::TokenVal(tok0)); return Alloc(tok0, s); } if (typ0 == Id::Expr_Dot) { return Alloc(tok0, Id::Eggex_Dot); } if (typ0 == Id::Arith_Caret) { return Alloc(tok0, Id::Eggex_Start); } if (typ0 == Id::Expr_Dollar) { return Alloc(tok0, Id::Eggex_End); } if (typ0 == Id::Expr_Name) { return this->_NameInRegex(nullptr, tok0); } if (typ0 == Id::Expr_Symbol) { tok_str = lexer::TokenVal(tok0); if (str_equals(tok_str, str2182)) { return Alloc(tok0, Id::Eggex_Start); } if (str_equals(tok_str, str2183)) { return Alloc(tok0, Id::Eggex_End); } p_die(StrFormat("Unexpected token %r in regex", tok_str), tok0); } if (typ0 == Id::Expr_At) { tok1 = p_atom->GetChild(1)->tok; return Alloc(tok0, lexer::TokenVal(tok1)); } if (typ0 == Id::Expr_Bang) { n = p_atom->NumChildren(); if (n == 2) { child1 = p_atom->GetChild(1); if (child1->typ == grammar_nt::class_literal) { return Alloc(true, this->_ClassLiteral(child1)); } else { return this->_NameInRegex(tok0, p_atom->GetChild(1)->tok); } } else { p_die(str2185, p_atom->GetChild(1)->tok); } } if (typ0 == Id::Op_LParen) { return Alloc(this->_Regex(p_atom->GetChild(1))); } if (typ0 == Id::Arith_Less) { n = p_atom->NumChildren(); regex = this->_Regex(p_atom->GetChild(2)); as_name = nullptr; func_name = nullptr; i = 3; typ = p_atom->GetChild(i)->typ; if (typ == Id::Expr_As) { as_name = p_atom->GetChild((i + 1))->tok; i += 2; } typ = p_atom->GetChild(i)->typ; if (typ == Id::Arith_Colon) { func_name = p_atom->GetChild((i + 1))->tok; } return Alloc(regex, as_name, func_name); } assert(0); // AssertionError } syntax_asdl::re_repeat_t* Transformer::_RepeatOp(pnode::PNode* p_repeat) { syntax_asdl::Token* tok = nullptr; int id_; pnode::PNode* child1 = nullptr; int n; syntax_asdl::Token* left = nullptr; syntax_asdl::Token* right = nullptr; StackRoot _root0(&p_repeat); StackRoot _root1(&tok); StackRoot _root2(&child1); StackRoot _root3(&left); StackRoot _root4(&right); tok = p_repeat->GetChild(0)->tok; id_ = tok->id; if ((id_ == Id::Arith_Plus || id_ == Id::Arith_Star || id_ == Id::Arith_QMark)) { return tok; } if (id_ == Id::Op_LBrace) { child1 = p_repeat->GetChild(1); if (child1->typ != grammar_nt::repeat_range) { p_die(str2186, child1->tok); } n = child1->NumChildren(); if (n == 1) { tok = child1->GetChild(0)->tok; return tok; } if (n == 2) { if (child1->GetChild(0)->typ == Id::Expr_DecInt) { left = child1->GetChild(0)->tok; return Alloc(left, lexer::TokenVal(left), str2187, nullptr); } else { right = child1->GetChild(1)->tok; return Alloc(nullptr, str2188, lexer::TokenVal(right), right); } } if (n == 3) { left = child1->GetChild(0)->tok; right = child1->GetChild(2)->tok; return Alloc(left, lexer::TokenVal(left), lexer::TokenVal(right), right); } assert(0); // AssertionError } assert(0); // AssertionError } syntax_asdl::re_t* Transformer::_ReAlt(pnode::PNode* p_node) { int i; int n; List* seq = nullptr; syntax_asdl::re_t* r = nullptr; syntax_asdl::re_repeat_t* repeat_op = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&seq); StackRoot _root2(&r); StackRoot _root3(&repeat_op); i = 0; n = p_node->NumChildren(); seq = Alloc>(); while (i < n) { r = this->_ReAtom(p_node->GetChild(i)); i += 1; if ((i < n and p_node->GetChild(i)->typ == grammar_nt::repeat_op)) { repeat_op = this->_RepeatOp(p_node->GetChild(i)); r = Alloc(r, repeat_op); i += 1; } seq->append(r); } if (len(seq) == 1) { return seq->at(0); } else { return Alloc(seq); } } syntax_asdl::re_t* Transformer::_Regex(pnode::PNode* p_node) { int n; List* alts = nullptr; pnode::PNode* c = nullptr; StackRoot _root0(&p_node); StackRoot _root1(&alts); StackRoot _root2(&c); n = p_node->NumChildren(); alts = Alloc>(); for (int i = 0; i < n; i += 2) { c = p_node->GetChild(i); alts->append(this->_ReAlt(c)); } if (len(alts) == 1) { return alts->at(0); } else { return Alloc(alts); } } } // define namespace expr_to_ast namespace func_proc { // define using id_kind_asdl::Id; using runtime_asdl::cmd_value; using syntax_asdl::proc_sig; using syntax_asdl::proc_sig_e; using syntax_asdl::Param; using syntax_asdl::ParamGroup; using syntax_asdl::NamedArg; using syntax_asdl::Func; using syntax_asdl::loc; using syntax_asdl::ArgList; using syntax_asdl::expr; using syntax_asdl::expr_e; using syntax_asdl::expr_t; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::ProcDefaults; using value_asdl::LeftName; using error::e_die; void _DisallowMutableDefault(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc) { StackRoot _root0(&val); StackRoot _root1(&blame_loc); if ((val->tag() == value_e::List || val->tag() == value_e::Dict)) { throw Alloc(val, str2189, blame_loc); } } List* _EvalPosDefaults(expr_eval::ExprEvaluator* expr_ev, List* pos_params) { value_asdl::value_t* no_val = nullptr; List* pos_defaults = nullptr; int i; value_asdl::value_t* val = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&pos_params); StackRoot _root2(&no_val); StackRoot _root3(&pos_defaults); StackRoot _root4(&val); no_val = nullptr; pos_defaults = list_repeat(no_val, len(pos_params)); i = 0; for (ListIter it(pos_params); !it.Done(); it.Next(), ++i) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); if (p->default_val) { val = expr_ev->EvalExpr(p->default_val, p->blame_tok); _DisallowMutableDefault(val, p->blame_tok); pos_defaults->set(i, val); } } return pos_defaults; } Dict* _EvalNamedDefaults(expr_eval::ExprEvaluator* expr_ev, List* named_params) { Dict* named_defaults = nullptr; int i; value_asdl::value_t* val = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&named_params); StackRoot _root2(&named_defaults); StackRoot _root3(&val); named_defaults = Alloc>(); i = 0; for (ListIter it(named_params); !it.Done(); it.Next(), ++i) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); if (p->default_val) { val = expr_ev->EvalExpr(p->default_val, p->blame_tok); _DisallowMutableDefault(val, p->blame_tok); named_defaults->set(p->name, val); } } return named_defaults; } Tuple2*, Dict*> EvalFuncDefaults(expr_eval::ExprEvaluator* expr_ev, syntax_asdl::Func* func) { List* pos_defaults = nullptr; Dict* named_defaults = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&func); StackRoot _root2(&pos_defaults); StackRoot _root3(&named_defaults); if (func->positional) { pos_defaults = _EvalPosDefaults(expr_ev, func->positional->params); } else { pos_defaults = nullptr; } if (func->named) { named_defaults = _EvalNamedDefaults(expr_ev, func->named->params); } else { named_defaults = nullptr; } return Tuple2*, Dict*>(pos_defaults, named_defaults); } value_asdl::ProcDefaults* EvalProcDefaults(expr_eval::ExprEvaluator* expr_ev, proc_sig::Closed* sig) { value_asdl::value_t* no_val = nullptr; List* word_defaults = nullptr; int i; value_asdl::value_t* val = nullptr; List* pos_defaults = nullptr; Dict* named_defaults = nullptr; syntax_asdl::expr_t* exp = nullptr; value_asdl::value_t* block_default = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&sig); StackRoot _root2(&no_val); StackRoot _root3(&word_defaults); StackRoot _root4(&val); StackRoot _root5(&pos_defaults); StackRoot _root6(&named_defaults); StackRoot _root7(&exp); StackRoot _root8(&block_default); no_val = nullptr; if (sig->word) { word_defaults = list_repeat(no_val, len(sig->word->params)); i = 0; for (ListIter it(sig->word->params); !it.Done(); it.Next(), ++i) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); if (p->default_val) { val = expr_ev->EvalExpr(p->default_val, p->blame_tok); if (val->tag() != value_e::Str) { throw Alloc(val, str2190, p->blame_tok); } word_defaults->set(i, val); } } } else { word_defaults = nullptr; } if (sig->positional) { pos_defaults = _EvalPosDefaults(expr_ev, sig->positional->params); } else { pos_defaults = nullptr; } if (sig->named) { named_defaults = _EvalNamedDefaults(expr_ev, sig->named->params); } else { named_defaults = nullptr; } if (sig->block_param) { exp = sig->block_param->default_val; if (exp) { block_default = expr_ev->EvalExpr(exp, sig->block_param->blame_tok); if ((block_default->tag() != value_e::Null && block_default->tag() != value_e::Command)) { throw Alloc(block_default, str2191, sig->block_param->blame_tok); } } else { block_default = nullptr; } } else { block_default = nullptr; } return Alloc(word_defaults, pos_defaults, named_defaults, block_default); } void _EvalPosArgs(expr_eval::ExprEvaluator* expr_ev, List* exprs, List* pos_args) { syntax_asdl::expr_t* UP_e = nullptr; value_asdl::value_t* val = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&exprs); StackRoot _root2(&pos_args); StackRoot _root3(&UP_e); StackRoot _root4(&val); for (ListIter it(exprs); !it.Done(); it.Next()) { syntax_asdl::expr_t* e = it.Value(); StackRoot _for(&e ); UP_e = e; if (e->tag() == expr_e::Spread) { expr::Spread* e = static_cast(UP_e); val = expr_ev->_EvalExpr(e->child); if (val->tag() != value_e::List) { throw Alloc(val, str2192, e->left); } pos_args->extend(static_cast(val)->items); } else { pos_args->append(expr_ev->_EvalExpr(e)); } } } Dict* _EvalNamedArgs(expr_eval::ExprEvaluator* expr_ev, List* named_exprs) { Dict* named_args = nullptr; syntax_asdl::expr_t* val_expr = nullptr; syntax_asdl::expr_t* UP_val_expr = nullptr; value_asdl::value_t* val = nullptr; BigStr* name = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&named_exprs); StackRoot _root2(&named_args); StackRoot _root3(&val_expr); StackRoot _root4(&UP_val_expr); StackRoot _root5(&val); StackRoot _root6(&name); named_args = Alloc>(); for (ListIter it(named_exprs); !it.Done(); it.Next()) { syntax_asdl::NamedArg* n = it.Value(); StackRoot _for(&n ); val_expr = n->value; UP_val_expr = val_expr; if (val_expr->tag() == expr_e::Spread) { expr::Spread* val_expr = static_cast(UP_val_expr); val = expr_ev->_EvalExpr(val_expr->child); if (val->tag() != value_e::Dict) { throw Alloc(val, str2193, val_expr->left); } named_args->update(static_cast(val)->d); } else { val = expr_ev->EvalExpr(n->value, n->name); name = lexer::TokenVal(n->name); named_args->set(name, val); } } return named_args; } Tuple2*, Dict*> _EvalArgList(expr_eval::ExprEvaluator* expr_ev, syntax_asdl::ArgList* args, value_asdl::value_t* me) { List* pos_args = nullptr; Dict* named_args = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&args); StackRoot _root2(&me); StackRoot _root3(&pos_args); StackRoot _root4(&named_args); pos_args = Alloc>(); if (me) { pos_args->append(me); } _EvalPosArgs(expr_ev, args->pos_args, pos_args); named_args = nullptr; if (args->named_args != nullptr) { named_args = _EvalNamedArgs(expr_ev, args->named_args); } return Tuple2*, Dict*>(pos_args, named_args); } void EvalTypedArgsToProc(expr_eval::ExprEvaluator* expr_ev, state::MutableOpts* mutable_opts, command::Simple* node, cmd_value::Argv* cmd_val) { syntax_asdl::ArgList* ty = nullptr; List* n1 = nullptr; Dict* named_args = nullptr; BigStr* name = nullptr; StackRoot _root0(&expr_ev); StackRoot _root1(&mutable_opts); StackRoot _root2(&node); StackRoot _root3(&cmd_val); StackRoot _root4(&ty); StackRoot _root5(&n1); StackRoot _root6(&named_args); StackRoot _root7(&name); cmd_val->typed_args = node->typed_args; cmd_val->pos_args = Alloc>(); ty = node->typed_args; if (ty) { if (ty->left->id == Id::Op_LBracket) { for (ListIter it(ty->pos_args); !it.Done(); it.Next()) { syntax_asdl::expr_t* exp = it.Value(); StackRoot _for(&exp ); cmd_val->pos_args->append(Alloc(exp)); } n1 = ty->named_args; if (n1 != nullptr) { named_args = Alloc>(); for (ListIter it(n1); !it.Done(); it.Next()) { syntax_asdl::NamedArg* named_arg = it.Value(); StackRoot _for(&named_arg ); name = lexer::TokenVal(named_arg->name); cmd_val->named_args->set(name, Alloc(named_arg->value)); } } } else { { // with state::ctx_YshExpr ctx{mutable_opts}; _EvalPosArgs(expr_ev, ty->pos_args, cmd_val->pos_args); if (ty->named_args != nullptr) { cmd_val->named_args = _EvalNamedArgs(expr_ev, ty->named_args); } } } if ((ty->block_expr and node->block)) { e_die(str2194, node->block->brace_group->left); } if (ty->block_expr) { cmd_val->block_arg = expr_ev->EvalExpr(ty->block_expr, ty->left); } } if (node->block) { cmd_val->block_arg = Alloc(node->block); if (!cmd_val->typed_args) { cmd_val->typed_args = ArgList::CreateNull(); cmd_val->typed_args->left = node->block->brace_group->left; cmd_val->typed_args->right = node->block->brace_group->right; } } } void _BindWords(BigStr* proc_name, syntax_asdl::ParamGroup* group, List* defaults, cmd_value::Argv* cmd_val, state::Mem* mem, syntax_asdl::loc_t* blame_loc) { List* argv = nullptr; int num_args; int i; value_asdl::value_t* val = nullptr; int num_params; syntax_asdl::RestParam* rest = nullptr; value_asdl::LeftName* lval = nullptr; List* items = nullptr; value::List* rest_val = nullptr; syntax_asdl::loc_t* extra_loc = nullptr; StackRoot _root0(&proc_name); StackRoot _root1(&group); StackRoot _root2(&defaults); StackRoot _root3(&cmd_val); StackRoot _root4(&mem); StackRoot _root5(&blame_loc); StackRoot _root6(&argv); StackRoot _root7(&val); StackRoot _root8(&rest); StackRoot _root9(&lval); StackRoot _root10(&items); StackRoot _root11(&rest_val); StackRoot _root12(&extra_loc); argv = cmd_val->argv->slice(1); num_args = len(argv); i = 0; for (ListIter it(group->params); !it.Done(); it.Next(), ++i) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); if (i < num_args) { val = Alloc(argv->at(i)); } else { val = defaults->at(i); if (val == nullptr) { throw Alloc(StrFormat("proc %r wasn't passed word param %r", proc_name, p->name), blame_loc); } } mem->SetLocalName(Alloc(p->name, p->blame_tok), val); } num_params = len(group->params); rest = group->rest_of; if (rest) { lval = Alloc(rest->name, rest->blame_tok); items = Alloc>(); for (ListIter it(argv->slice(num_params)); !it.Done(); it.Next()) { BigStr* s = it.Value(); items->append(Alloc(s)); } rest_val = Alloc(items); mem->SetLocalName(lval, rest_val); } else { if (num_args > num_params) { if (len(cmd_val->arg_locs)) { extra_loc = cmd_val->arg_locs->at((num_params + 1)); } else { extra_loc = loc::Missing; } throw Alloc(StrFormat("proc %r takes %d words, but got %d", proc_name, num_params, num_args), extra_loc); } } } void _BindTyped(BigStr* code_name, syntax_asdl::ParamGroup* group, List* defaults, List* pos_args, state::Mem* mem, syntax_asdl::loc_t* blame_loc) { int num_args; int num_params; int i; value_asdl::value_t* val = nullptr; syntax_asdl::RestParam* rest = nullptr; value_asdl::LeftName* lval = nullptr; value::List* rest_val = nullptr; StackRoot _root0(&code_name); StackRoot _root1(&group); StackRoot _root2(&defaults); StackRoot _root3(&pos_args); StackRoot _root4(&mem); StackRoot _root5(&blame_loc); StackRoot _root6(&val); StackRoot _root7(&rest); StackRoot _root8(&lval); StackRoot _root9(&rest_val); if (pos_args == nullptr) { pos_args = Alloc>(); } num_args = len(pos_args); num_params = 0; i = 0; if (group) { for (ListIter it(group->params); !it.Done(); it.Next()) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); if (i < num_args) { val = pos_args->at(i); } else { val = defaults->at(i); if (val == nullptr) { throw Alloc(StrFormat("%r wasn't passed typed param %r", code_name, p->name), blame_loc); } } mem->SetLocalName(Alloc(p->name, p->blame_tok), val); i += 1; } num_params += len(group->params); } if (group) { rest = group->rest_of; if (rest) { lval = Alloc(rest->name, rest->blame_tok); rest_val = Alloc(pos_args->slice(num_params)); mem->SetLocalName(lval, rest_val); } else { if (num_args > num_params) { throw Alloc(StrFormat("%r takes %d typed args, but got %d", code_name, num_params, num_args), blame_loc); } } } } void _BindNamed(BigStr* code_name, syntax_asdl::ParamGroup* group, Dict* defaults, Dict* named_args, state::Mem* mem, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* val = nullptr; syntax_asdl::RestParam* rest = nullptr; value_asdl::LeftName* lval = nullptr; int num_args; int num_params; StackRoot _root0(&code_name); StackRoot _root1(&group); StackRoot _root2(&defaults); StackRoot _root3(&named_args); StackRoot _root4(&mem); StackRoot _root5(&blame_loc); StackRoot _root6(&val); StackRoot _root7(&rest); StackRoot _root8(&lval); if (named_args == nullptr) { named_args = Alloc>(); } for (ListIter it(group->params); !it.Done(); it.Next()) { syntax_asdl::Param* p = it.Value(); StackRoot _for(&p ); val = named_args->get(p->name); if (val == nullptr) { val = defaults->get(p->name); } if (val == nullptr) { throw Alloc(StrFormat("%r wasn't passed named param %r", code_name, p->name), blame_loc); } mem->SetLocalName(Alloc(p->name, p->blame_tok), val); mylib::dict_erase(named_args, p->name); } rest = group->rest_of; if (rest) { lval = Alloc(rest->name, rest->blame_tok); mem->SetLocalName(lval, Alloc(named_args)); } else { num_args = len(named_args); num_params = len(group->params); if (num_args > num_params) { throw Alloc(StrFormat("%r takes %d named args, but got %d", code_name, num_params, num_args), blame_loc); } } } void _BindFuncArgs(value::Func* func, typed_args::Reader* rd, state::Mem* mem) { syntax_asdl::Func* node = nullptr; syntax_asdl::Token* blame_loc = nullptr; int num_pos; syntax_asdl::Token* semi = nullptr; int num_named; StackRoot _root0(&func); StackRoot _root1(&rd); StackRoot _root2(&mem); StackRoot _root3(&node); StackRoot _root4(&blame_loc); StackRoot _root5(&semi); node = func->parsed; blame_loc = rd->LeftParenToken(); if (node->positional) { _BindTyped(func->name, node->positional, func->pos_defaults, rd->pos_args, mem, blame_loc); } else { if (rd->pos_args != nullptr) { num_pos = len(rd->pos_args); if (num_pos != 0) { throw Alloc(StrFormat("Func %r takes no positional args, but got %d", func->name, num_pos), blame_loc); } } } semi = rd->arg_list->semi_tok; if (semi != nullptr) { blame_loc = semi; } if (node->named) { _BindNamed(func->name, node->named, func->named_defaults, rd->named_args, mem, blame_loc); } else { if (rd->named_args != nullptr) { num_named = len(rd->named_args); if (num_named != 0) { throw Alloc(StrFormat("Func %r takes no named args, but got %d", func->name, num_named), blame_loc); } } } } void BindProcArgs(value::Proc* proc, cmd_value::Argv* cmd_val, state::Mem* mem) { syntax_asdl::proc_sig_t* UP_sig = nullptr; syntax_asdl::loc_t* blame_loc = nullptr; int num_word; int num_pos; syntax_asdl::Token* semi = nullptr; int num_named; syntax_asdl::Param* block_param = nullptr; value_asdl::value_t* block_arg = nullptr; StackRoot _root0(&proc); StackRoot _root1(&cmd_val); StackRoot _root2(&mem); StackRoot _root3(&UP_sig); StackRoot _root4(&blame_loc); StackRoot _root5(&semi); StackRoot _root6(&block_param); StackRoot _root7(&block_arg); UP_sig = proc->sig; if (UP_sig->tag() != proc_sig_e::Closed) { return ; } proc_sig::Closed* sig = static_cast(UP_sig); blame_loc = loc::Missing; if (len(cmd_val->arg_locs) > 0) { blame_loc = cmd_val->arg_locs->at(0); } if (sig->word) { _BindWords(proc->name, sig->word, proc->defaults->for_word, cmd_val, mem, blame_loc); } else { num_word = len(cmd_val->argv); if (num_word != 1) { throw Alloc(StrFormat("Proc %r takes no word args, but got %d", proc->name, (num_word - 1)), blame_loc); } } if (cmd_val->typed_args) { blame_loc = cmd_val->typed_args->left; } if (sig->positional) { _BindTyped(proc->name, sig->positional, proc->defaults->for_typed, cmd_val->pos_args, mem, blame_loc); } else { if (cmd_val->pos_args != nullptr) { num_pos = len(cmd_val->pos_args); if (num_pos != 0) { throw Alloc(StrFormat("Proc %r takes no typed args, but got %d", proc->name, num_pos), blame_loc); } } } if (cmd_val->typed_args) { semi = cmd_val->typed_args->semi_tok; if (semi != nullptr) { blame_loc = semi; } } if (sig->named) { _BindNamed(proc->name, sig->named, proc->defaults->for_named, cmd_val->named_args, mem, blame_loc); } else { if (cmd_val->named_args != nullptr) { num_named = len(cmd_val->named_args); if (num_named != 0) { throw Alloc(StrFormat("Proc %r takes no named args, but got %d", proc->name, num_named), blame_loc); } } } if (cmd_val->typed_args) { semi = cmd_val->typed_args->semi_tok2; if (semi != nullptr) { blame_loc = semi; } } block_param = sig->block_param; block_arg = cmd_val->block_arg; if (block_param) { if (block_arg == nullptr) { block_arg = proc->defaults->for_block; } if (block_arg == nullptr) { throw Alloc(StrFormat("%r wasn't passed block param %r", proc->name, block_param->name), blame_loc); } mem->SetLocalName(Alloc(block_param->name, block_param->blame_tok), block_arg); } else { if (block_arg != nullptr) { throw Alloc(StrFormat("Proc %r doesn't accept a block argument", proc->name), blame_loc); } } } value_asdl::value_t* CallUserFunc(value::Func* func, typed_args::Reader* rd, state::Mem* mem, cmd_eval::CommandEvaluator* cmd_ev) { StackRoot _root0(&func); StackRoot _root1(&rd); StackRoot _root2(&mem); StackRoot _root3(&cmd_ev); { // with state::ctx_FuncCall ctx{mem, func}; _BindFuncArgs(func, rd, mem); try { cmd_ev->_Execute(func->parsed->body); return value::Null; } catch (vm::ValueControlFlow* e) { return e->value; } catch (vm::IntControlFlow* e) { assert(0); // AssertionError } } assert(0); // AssertionError } } // define namespace func_proc namespace regex_translate { // define using syntax_asdl::PosixClass; using syntax_asdl::PerlClass; using syntax_asdl::CharCode; using syntax_asdl::CharRange; using syntax_asdl::char_class_term_e; using syntax_asdl::char_class_term_t; using syntax_asdl::re; using syntax_asdl::re_e; using syntax_asdl::re_repeat; using syntax_asdl::re_repeat_e; using syntax_asdl::EggexFlag; using syntax_asdl::Token; using id_kind_asdl::Id; using value_asdl::value; using error::e_die; using error::p_die; GLOBAL_DICT(PERL_CLASS, BigStr*, BigStr*, 3, {str2210 COMMA str2212 COMMA str2214}, {str2211 COMMA str2213 COMMA str2215}); int CH_RBRACKET = 93; int CH_BACKSLASH = 92; int CH_CARET = 94; int CH_HYPHEN = 45; int FLAG_RBRACKET = 1; int FLAG_BACKSLASH = 2; int FLAG_CARET = 4; int FLAG_HYPHEN = 8; void _CharCodeToEre(syntax_asdl::CharCode* term, List* parts, List* special_char_flags) { int char_int; int mask; StackRoot _root0(&term); StackRoot _root1(&parts); StackRoot _root2(&special_char_flags); char_int = term->i; if ((char_int >= 128 and term->u_braced)) { e_die(StrFormat("ERE can't express char code %d", char_int), term->blame_tok); } mask = special_char_flags->at(0); if (char_int == CH_HYPHEN) { mask |= FLAG_HYPHEN; } else { if (char_int == CH_CARET) { mask |= FLAG_CARET; } else { if (char_int == CH_RBRACKET) { mask |= FLAG_RBRACKET; } else { if (char_int == CH_BACKSLASH) { mask |= FLAG_BACKSLASH; } else { parts->append(chr(char_int)); } } } } special_char_flags->set(0, mask); } void _CharClassTermToEre(syntax_asdl::char_class_term_t* term, List* parts, List* special_char_flags) { syntax_asdl::char_class_term_t* UP_term = nullptr; List* range_no_special = nullptr; BigStr* n = nullptr; BigStr* chars = nullptr; BigStr* pat = nullptr; StackRoot _root0(&term); StackRoot _root1(&parts); StackRoot _root2(&special_char_flags); StackRoot _root3(&UP_term); StackRoot _root4(&range_no_special); StackRoot _root5(&n); StackRoot _root6(&chars); StackRoot _root7(&pat); UP_term = term; switch (term->tag()) { case char_class_term_e::CharRange: { CharRange* term = static_cast(UP_term); range_no_special = NewList(std::initializer_list{0}); _CharCodeToEre(term->start, parts, range_no_special); if (range_no_special->at(0) != 0) { e_die(StrFormat("Can't use char %d as start of range in ERE syntax", term->start->i), term->start->blame_tok); } parts->append(str2218); _CharCodeToEre(term->end, parts, range_no_special); if (range_no_special->at(0) != 0) { e_die(StrFormat("Can't use char %d as end of range in ERE syntax", term->end->i), term->end->blame_tok); } } break; case char_class_term_e::CharCode: { CharCode* term = static_cast(UP_term); _CharCodeToEre(term, parts, special_char_flags); } break; case char_class_term_e::PerlClass: { PerlClass* term = static_cast(UP_term); n = term->name; chars = PERL_CLASS->at(term->name); if (term->negated) { e_die(str2220, term->negated); } else { pat = StrFormat("%s", chars); } parts->append(pat); } break; case char_class_term_e::PosixClass: { PosixClass* term = static_cast(UP_term); n = term->name; if (term->negated) { e_die(str2222, term->negated); } else { pat = StrFormat("[:%s:]", n); } parts->append(pat); } break; default: { assert(0); // AssertionError } } } void _AsPosixEre(syntax_asdl::re_t* node, List* parts, List* capture_names) { syntax_asdl::re_t* UP_node = nullptr; int tag; int i; re::LiteralChars* child = nullptr; syntax_asdl::re_repeat_t* op = nullptr; int op_tag; syntax_asdl::re_repeat_t* UP_op = nullptr; BigStr* capture_str = nullptr; BigStr* n = nullptr; BigStr* chars = nullptr; BigStr* pat = nullptr; List* special_char_flags = nullptr; List* non_special_parts = nullptr; StackRoot _root0(&node); StackRoot _root1(&parts); StackRoot _root2(&capture_names); StackRoot _root3(&UP_node); StackRoot _root4(&child); StackRoot _root5(&op); StackRoot _root6(&UP_op); StackRoot _root7(&capture_str); StackRoot _root8(&n); StackRoot _root9(&chars); StackRoot _root10(&pat); StackRoot _root11(&special_char_flags); StackRoot _root12(&non_special_parts); UP_node = node; tag = node->tag(); if (tag == re_e::Primitive) { re::Primitive* node = static_cast(UP_node); if (node->id == Id::Eggex_Dot) { parts->append(str2224); } else { if (node->id == Id::Eggex_Start) { parts->append(str2225); } else { if (node->id == Id::Eggex_End) { parts->append(str2226); } else { assert(0); // AssertionError } } } return ; } if (tag == re_e::LiteralChars) { re::LiteralChars* node = static_cast(UP_node); parts->append(glob_::ExtendedRegexEscape(node->s)); return ; } if (tag == re_e::Seq) { re::Seq* node = static_cast(UP_node); for (ListIter it(node->children); !it.Done(); it.Next()) { syntax_asdl::re_t* c = it.Value(); StackRoot _for(&c ); _AsPosixEre(c, parts, capture_names); } return ; } if (tag == re_e::Alt) { re::Alt* node = static_cast(UP_node); i = 0; for (ListIter it(node->children); !it.Done(); it.Next(), ++i) { syntax_asdl::re_t* c = it.Value(); StackRoot _for(&c ); if (i != 0) { parts->append(str2227); } _AsPosixEre(c, parts, capture_names); } return ; } if (tag == re_e::Repeat) { re::Repeat* node = static_cast(UP_node); if (node->child->tag() == re_e::LiteralChars) { child = static_cast(node->child); if (len(child->s) > 1) { e_die(str2228, child->blame_tok); } } _AsPosixEre(node->child, parts, capture_names); op = node->op; op_tag = op->tag(); UP_op = op; if (op_tag == re_repeat_e::Op) { Token* op = static_cast(UP_op); switch (op->id) { case Id::Arith_Plus: { parts->append(str2229); } break; case Id::Arith_Star: { parts->append(str2230); } break; case Id::Arith_QMark: { parts->append(str2231); } break; case Id::Expr_DecInt: { parts->append(StrFormat("{%s}", lexer::LazyStr(op))); } break; default: { assert(0); // AssertionError } } return ; } if (op_tag == re_repeat_e::Range) { re_repeat::Range* op = static_cast(UP_op); parts->append(StrFormat("{%s,%s}", op->lower, op->upper)); return ; } FAIL(kNotImplemented); // Python NotImplementedError } if (tag == re_e::Group) { re::Group* node = static_cast(UP_node); capture_names->append(nullptr); parts->append(str2234); _AsPosixEre(node->child, parts, capture_names); parts->append(str2235); return ; } if (tag == re_e::Capture) { re::Capture* node = static_cast(UP_node); capture_str = node->name ? lexer::TokenVal(node->name) : nullptr; capture_names->append(capture_str); parts->append(str2236); _AsPosixEre(node->child, parts, capture_names); parts->append(str2237); return ; } if (tag == re_e::PerlClass) { PerlClass* node = static_cast(UP_node); n = node->name; chars = PERL_CLASS->at(node->name); if (node->negated) { pat = StrFormat("[^%s]", chars); } else { pat = StrFormat("[%s]", chars); } parts->append(pat); return ; } if (tag == re_e::PosixClass) { PosixClass* node = static_cast(UP_node); n = node->name; if (node->negated) { pat = StrFormat("[^[:%s:]]", n); } else { pat = StrFormat("[[:%s:]]", n); } parts->append(pat); return ; } if (tag == re_e::CharClass) { re::CharClass* node = static_cast(UP_node); special_char_flags = NewList(std::initializer_list{0}); non_special_parts = Alloc>(); for (ListIter it(node->terms); !it.Done(); it.Next()) { syntax_asdl::char_class_term_t* term = it.Value(); StackRoot _for(&term ); _CharClassTermToEre(term, non_special_parts, special_char_flags); } parts->append(str2242); if (node->negated) { parts->append(str2243); } if ((special_char_flags->at(0) & FLAG_RBRACKET)) { parts->append(str2244); } parts->extend(non_special_parts); if ((special_char_flags->at(0) & FLAG_BACKSLASH)) { parts->append(str2245); } if ((special_char_flags->at(0) & FLAG_CARET)) { parts->append(str2246); } if ((special_char_flags->at(0) & FLAG_HYPHEN)) { parts->append(str2247); } parts->append(str2248); return ; } FAIL(kNotImplemented); // Python NotImplementedError } BigStr* AsPosixEre(value::Eggex* eggex) { List* parts = nullptr; StackRoot _root0(&eggex); StackRoot _root1(&parts); if (eggex->as_ere != nullptr) { return eggex->as_ere; } parts = Alloc>(); _AsPosixEre(eggex->spliced, parts, eggex->capture_names); eggex->as_ere = str2249->join(parts); return eggex->as_ere; } BigStr* CanonicalFlags(List* flags) { List* letters = nullptr; BigStr* flag_name = nullptr; StackRoot _root0(&flags); StackRoot _root1(&letters); StackRoot _root2(&flag_name); letters = Alloc>(); for (ListIter it(flags); !it.Done(); it.Next()) { syntax_asdl::EggexFlag* flag = it.Value(); StackRoot _for(&flag ); if (flag->negated) { p_die(str2250, flag->flag); } flag_name = lexer::TokenVal(flag->flag); if ((str_equals(flag_name, str2251) || str_equals(flag_name, str2252))) { letters->append(str2253); } else { if (str_equals(flag_name, str2254)) { letters->append(str2255); } else { p_die(StrFormat("Invalid regex flag %r", flag_name), flag->flag); } } } letters->sort(); return str2257->join(letters); } int LibcFlags(BigStr* canonical_flags) { int libc_flags; StackRoot _root0(&canonical_flags); if (canonical_flags == nullptr) { return 0; } libc_flags = 0; for (StrIter it(canonical_flags); !it.Done(); it.Next()) { BigStr* ch = it.Value(); StackRoot _for(&ch ); if (str_equals(ch, str2258)) { libc_flags |= REG_ICASE; } else { if (str_equals(ch, str2259)) { libc_flags |= REG_NEWLINE; } else { assert(0); // AssertionError } } } return libc_flags; } } // define namespace regex_translate namespace val_ops { // define using syntax_asdl::loc; using syntax_asdl::loc_t; using syntax_asdl::command_t; using value_asdl::value; using value_asdl::value_e; using value_asdl::value_t; using value_asdl::eggex_ops; using value_asdl::eggex_ops_t; using value_asdl::regex_match; using value_asdl::RegexMatch; using error::e_die; int ToInt(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::Int) { value::Int* val = static_cast(UP_val); return mops::BigTruncate(val->i); } throw Alloc(val, msg, blame_loc); } double ToFloat(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::Float) { value::Float* val = static_cast(UP_val); return val->f; } throw Alloc(val, msg, blame_loc); } BigStr* ToStr(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::Str) { value::Str* val = static_cast(UP_val); return val->s; } throw Alloc(val, msg, blame_loc); } List* ToList(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::List) { value::List* val = static_cast(UP_val); return val->items; } throw Alloc(val, msg, blame_loc); } Dict* ToDict(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::Dict) { value::Dict* val = static_cast(UP_val); return val->d; } throw Alloc(val, msg, blame_loc); } syntax_asdl::command_t* ToCommand(value_asdl::value_t* val, BigStr* msg, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&msg); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_val); UP_val = val; if (val->tag() == value_e::Command) { value::Command* val = static_cast(UP_val); return val->c; } throw Alloc(val, msg, blame_loc); } BigStr* Stringify(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc, BigStr* prefix) { value_asdl::value_t* UP_val = nullptr; BigStr* s = nullptr; StackRoot _root0(&val); StackRoot _root1(&blame_loc); StackRoot _root2(&prefix); StackRoot _root3(&UP_val); StackRoot _root4(&s); if (blame_loc == nullptr) { blame_loc = loc::Missing; } UP_val = val; switch (val->tag()) { case value_e::Str: { value::Str* val = static_cast(UP_val); return val->s; } break; case value_e::Null: { s = str2261; } break; case value_e::Bool: { value::Bool* val = static_cast(UP_val); s = val->b ? str2262 : str2263; } break; case value_e::Int: { value::Int* val = static_cast(UP_val); s = mops::ToStr(val->i); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); s = str(val->f); } break; case value_e::Eggex: { value::Eggex* val = static_cast(UP_val); s = regex_translate::AsPosixEre(val); } break; case value_e::List: { throw Alloc(StrFormat("%sgot a List, which can't be stringified. Perhaps use @ instead of $, or use join()", prefix), blame_loc); } break; default: { throw Alloc(val, StrFormat("%sexpected Null, Bool, Int, Float, Eggex", prefix), blame_loc); } } return s; } List* ToShellArray(value_asdl::value_t* val, syntax_asdl::loc_t* blame_loc, BigStr* prefix) { value_asdl::value_t* UP_val = nullptr; List* strs = nullptr; StackRoot _root0(&val); StackRoot _root1(&blame_loc); StackRoot _root2(&prefix); StackRoot _root3(&UP_val); StackRoot _root4(&strs); UP_val = val; switch (val->tag()) { case value_e::List: { value::List* val = static_cast(UP_val); strs = Alloc>(); for (ListIter it(val->items); !it.Done(); it.Next()) { value_asdl::value_t* item = it.Value(); StackRoot _for(&item ); strs->append(Stringify(item, blame_loc, prefix)); } } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); strs = val->strs; } break; default: { throw Alloc(val, StrFormat("%sexpected List", prefix), blame_loc); } } return strs; } Iterator::Iterator() { this->i = 0; } int Iterator::Index() { return this->i; } void Iterator::Next() { this->i += 1; } value_asdl::value_t* Iterator::FirstValue() { FAIL(kNotImplemented); // Python NotImplementedError } value_asdl::value_t* Iterator::SecondValue() { assert(0); // AssertionError } StdinIterator::StdinIterator(syntax_asdl::loc_t* blame_loc) : ::val_ops::Iterator() { this->blame_loc = blame_loc; this->f = mylib::Stdin(); } value_asdl::value_t* StdinIterator::FirstValue() { BigStr* line = nullptr; StackRoot _root0(&line); try { line = this->f->readline(); } catch (IOError_OSError* e) { if (e->errno_ == EINTR) { return value::Interrupted; } else { e_die(StrFormat("I/O error in for <> loop: %s", posix::strerror(e->errno_)), this->blame_loc); } } if (len(line) == 0) { return nullptr; } else { if (line->endswith(str2270)) { line = line->slice(0, -1); } } return Alloc(line); } ArrayIter::ArrayIter(List* strs) : ::val_ops::Iterator() { this->strs = strs; this->n = len(strs); } value_asdl::value_t* ArrayIter::FirstValue() { if (this->i == this->n) { return nullptr; } return Alloc(this->strs->at(this->i)); } RangeIterator::RangeIterator(value::Range* val) : ::val_ops::Iterator() { this->val = val; } value_asdl::value_t* RangeIterator::FirstValue() { if ((this->val->lower + this->i) >= this->val->upper) { return nullptr; } return Alloc(mops::IntWiden((this->val->lower + this->i))); } ListIterator::ListIterator(value::List* val) : ::val_ops::Iterator() { this->val = val; this->n = len(val->items); } value_asdl::value_t* ListIterator::FirstValue() { if (this->i == this->n) { return nullptr; } return this->val->items->at(this->i); } DictIterator::DictIterator(value::Dict* val) : ::val_ops::Iterator() { this->keys = val->d->keys(); this->values = val->d->values(); this->n = len(val->d); } value_asdl::value_t* DictIterator::FirstValue() { if (this->i == this->n) { return nullptr; } return Alloc(this->keys->at(this->i)); } value_asdl::value_t* DictIterator::SecondValue() { return this->values->at(this->i); } bool ToBool(value_asdl::value_t* val) { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&val); StackRoot _root1(&UP_val); UP_val = val; switch (val->tag()) { case value_e::Undef: { return false; } break; case value_e::Null: { return false; } break; case value_e::Str: { value::Str* val = static_cast(UP_val); return len(val->s) != 0; } break; case value_e::BashArray: { value::BashArray* val = static_cast(UP_val); return len(val->strs) != 0; } break; case value_e::BashAssoc: { value::BashAssoc* val = static_cast(UP_val); return len(val->d) != 0; } break; case value_e::Bool: { value::Bool* val = static_cast(UP_val); return val->b; } break; case value_e::Int: { value::Int* val = static_cast(UP_val); return !mops::Equal(val->i, mops::BigInt(0)); } break; case value_e::Float: { value::Float* val = static_cast(UP_val); return val->f != 0.0; } break; case value_e::List: { value::List* val = static_cast(UP_val); return len(val->items) > 0; } break; case value_e::Dict: { value::Dict* val = static_cast(UP_val); return len(val->d) > 0; } break; default: { return true; } } } bool ExactlyEqual(value_asdl::value_t* left, value_asdl::value_t* right, syntax_asdl::loc_t* blame_loc) { value_asdl::value_t* UP_left = nullptr; value_asdl::value_t* UP_right = nullptr; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&blame_loc); StackRoot _root3(&UP_left); StackRoot _root4(&UP_right); if ((left->tag() == value_e::Float or right->tag() == value_e::Float)) { throw Alloc(str2271, blame_loc); } if (left->tag() != right->tag()) { return false; } UP_left = left; UP_right = right; switch (left->tag()) { case value_e::Undef: { return true; } break; case value_e::Null: { return true; } break; case value_e::Bool: { value::Bool* left = static_cast(UP_left); value::Bool* right = static_cast(UP_right); return left->b == right->b; } break; case value_e::Int: { value::Int* left = static_cast(UP_left); value::Int* right = static_cast(UP_right); return mops::Equal(left->i, right->i); } break; case value_e::Float: { assert(0); // AssertionError } break; case value_e::Str: { value::Str* left = static_cast(UP_left); value::Str* right = static_cast(UP_right); return str_equals(left->s, right->s); } break; case value_e::BashArray: { value::BashArray* left = static_cast(UP_left); value::BashArray* right = static_cast(UP_right); if (len(left->strs) != len(right->strs)) { return false; } for (int i = 0; i < len(left->strs); ++i) { if (!(str_equals(left->strs->at(i), right->strs->at(i)))) { return false; } } return true; } break; case value_e::List: { value::List* left = static_cast(UP_left); value::List* right = static_cast(UP_right); if (len(left->items) != len(right->items)) { return false; } for (int i = 0; i < len(left->items); ++i) { if (!ExactlyEqual(left->items->at(i), right->items->at(i), blame_loc)) { return false; } } return true; } break; case value_e::BashAssoc: { value::Dict* left = static_cast(UP_left); value::Dict* right = static_cast(UP_right); if (len(left->d) != len(right->d)) { return false; } for (ListIter it(left->d->keys()); !it.Done(); it.Next()) { BigStr* k = it.Value(); StackRoot _for(&k ); if ((!dict_contains(right->d, k) or right->d->at(k) != left->d->at(k))) { return false; } } return true; } break; case value_e::Dict: { value::Dict* left = static_cast(UP_left); value::Dict* right = static_cast(UP_right); if (len(left->d) != len(right->d)) { return false; } for (ListIter it(left->d->keys()); !it.Done(); it.Next()) { BigStr* k = it.Value(); StackRoot _for(&k ); if ((!dict_contains(right->d, k) or !ExactlyEqual(right->d->at(k), left->d->at(k), blame_loc))) { return false; } } return true; } break; } throw Alloc(StrFormat("Can't compare two values of type %s", ui::ValType(left)), blame_loc); } bool Contains(value_asdl::value_t* needle, value_asdl::value_t* haystack) { value_asdl::value_t* UP_haystack = nullptr; BigStr* s = nullptr; StackRoot _root0(&needle); StackRoot _root1(&haystack); StackRoot _root2(&UP_haystack); StackRoot _root3(&s); UP_haystack = haystack; switch (haystack->tag()) { case value_e::Dict: { value::Dict* haystack = static_cast(UP_haystack); s = ToStr(needle, str2273, loc::Missing); return dict_contains(haystack->d, s); } break; default: { throw Alloc(haystack, str2274, loc::Missing); } } return false; } bool MatchRegex(value_asdl::value_t* left, value_asdl::value_t* right, state::Mem* mem) { value_asdl::value_t* UP_right = nullptr; BigStr* right_s = nullptr; int regex_flags; value_asdl::eggex_ops_t* capture = nullptr; value_asdl::value_t* UP_left = nullptr; BigStr* left_s = nullptr; List* indices = nullptr; StackRoot _root0(&left); StackRoot _root1(&right); StackRoot _root2(&mem); StackRoot _root3(&UP_right); StackRoot _root4(&right_s); StackRoot _root5(&capture); StackRoot _root6(&UP_left); StackRoot _root7(&left_s); StackRoot _root8(&indices); UP_right = right; switch (right->tag()) { case value_e::Str: { value::Str* right = static_cast(UP_right); right_s = right->s; regex_flags = 0; capture = eggex_ops::No; } break; case value_e::Eggex: { value::Eggex* right = static_cast(UP_right); right_s = regex_translate::AsPosixEre(right); regex_flags = regex_translate::LibcFlags(right->canonical_flags); capture = Alloc(right->convert_funcs, right->convert_toks, right->capture_names); } break; default: { throw Alloc(right, str2275, loc::Missing); } } UP_left = left; left_s = nullptr; switch (left->tag()) { case value_e::Str: { value::Str* left = static_cast(UP_left); left_s = left->s; } break; default: { throw Alloc(str2276, loc::Missing); } } indices = libc::regex_search(right_s, regex_flags, left_s, 0); if (indices != nullptr) { if (mem) { mem->SetRegexMatch(Alloc(left_s, indices, capture)); } return true; } else { if (mem) { mem->SetRegexMatch(regex_match::No); } return false; } } } // define namespace val_ops namespace bracket_osh { // define using id_kind_asdl::Id; using syntax_asdl::loc; using syntax_asdl::word; using syntax_asdl::word_e; using syntax_asdl::word_t; using syntax_asdl::bool_expr; using types_asdl::lex_mode_e; using value_asdl::value; using error::e_usage; using error::p_die; _StringWordEmitter::_StringWordEmitter(cmd_value::Argv* cmd_val) { this->cmd_val = cmd_val; this->i = 0; this->n = len(cmd_val->argv); } word::String* _StringWordEmitter::ReadWord(types_asdl::lex_mode_t unused_lex_mode) { word::String* w = nullptr; BigStr* s = nullptr; syntax_asdl::CompoundWord* arg_loc = nullptr; int id_; StackRoot _root0(&w); StackRoot _root1(&s); StackRoot _root2(&arg_loc); if (this->i == this->n) { w = Alloc(Id::Eof_Real, str2277, nullptr); return w; } s = this->cmd_val->argv->at(this->i); arg_loc = this->cmd_val->arg_locs->at(this->i); this->i += 1; id_ = match::BracketUnary(s); if (id_ == Id::Undefined_Tok) { id_ = match::BracketBinary(s); } if (id_ == Id::Undefined_Tok) { id_ = match::BracketOther(s); } if (id_ == Id::Undefined_Tok) { id_ = Id::Word_Compound; } return Alloc(id_, s, arg_loc); } word::String* _StringWordEmitter::Read() { return this->ReadWord(lex_mode_e::ShCommand); } BigStr* _StringWordEmitter::Peek(int offset) { return this->cmd_val->argv->at((this->i + offset)); } void _StringWordEmitter::Rewind(int offset) { this->i -= offset; } _WordEvaluator::_WordEvaluator() : ::word_eval::StringWordEvaluator() { } value::Str* _WordEvaluator::EvalWordToString(syntax_asdl::word_t* w, int eval_flags) { word::String* string_word = nullptr; StackRoot _root0(&w); StackRoot _root1(&string_word); string_word = static_cast(w); return Alloc(string_word->s); } syntax_asdl::bool_expr_t* _TwoArgs(bracket_osh::_StringWordEmitter* w_parser) { word::String* w0 = nullptr; word::String* w1 = nullptr; BigStr* s0 = nullptr; int unary_id; StackRoot _root0(&w_parser); StackRoot _root1(&w0); StackRoot _root2(&w1); StackRoot _root3(&s0); w0 = w_parser->Read(); w1 = w_parser->Read(); s0 = w0->s; if (str_equals(s0, str2278)) { return Alloc(Alloc(w1)); } unary_id = Id::Undefined_Tok; if (w0->s->startswith(str2279)) { if (str_equals(s0, str2280)) { unary_id = Id::BoolUnary_d; } else { if (str_equals(s0, str2281)) { unary_id = Id::BoolUnary_e; } else { if (str_equals(s0, str2282)) { unary_id = Id::BoolUnary_f; } else { if (str_equals(s0, str2283)) { unary_id = Id::BoolUnary_L; } } } } } if (unary_id == Id::Undefined_Tok) { unary_id = match::BracketUnary(w0->s); } if (unary_id == Id::Undefined_Tok) { p_die(StrFormat("Expected unary operator, got %r (2 args)", w0->s), Alloc(w0)); } return Alloc(unary_id, w1); } syntax_asdl::bool_expr_t* _ThreeArgs(bracket_osh::_StringWordEmitter* w_parser) { word::String* w0 = nullptr; word::String* w1 = nullptr; word::String* w2 = nullptr; int binary_id; syntax_asdl::bool_expr_t* child = nullptr; StackRoot _root0(&w_parser); StackRoot _root1(&w0); StackRoot _root2(&w1); StackRoot _root3(&w2); StackRoot _root4(&child); w0 = w_parser->Read(); w1 = w_parser->Read(); w2 = w_parser->Read(); binary_id = match::BracketBinary(w1->s); if (binary_id != Id::Undefined_Tok) { return Alloc(binary_id, w0, w2); } if (str_equals(w1->s, str2285)) { return Alloc(Alloc(w0), Alloc(w2)); } if (str_equals(w1->s, str2286)) { return Alloc(Alloc(w0), Alloc(w2)); } if (str_equals(w0->s, str2287)) { w_parser->Rewind(2); child = _TwoArgs(w_parser); return Alloc(child); } if ((str_equals(w0->s, str2288) and str_equals(w2->s, str2289))) { return Alloc(w1); } p_die(StrFormat("Expected binary operator, got %r (3 args)", w1->s), Alloc(w1)); } Test::Test(bool need_right_bracket, optview::Exec* exec_opts, state::Mem* mem, ui::ErrorFormatter* errfmt) { this->need_right_bracket = need_right_bracket; this->exec_opts = exec_opts; this->mem = mem; this->errfmt = errfmt; } int Test::Run(cmd_value::Argv* cmd_val) { List* strs = nullptr; bracket_osh::_StringWordEmitter* w_parser = nullptr; bool_parse::BoolParser* b_parser = nullptr; syntax_asdl::bool_expr_t* bool_node = nullptr; int n; word::String* w = nullptr; BigStr* a0 = nullptr; syntax_asdl::bool_expr_t* child = nullptr; bracket_osh::_WordEvaluator* word_ev = nullptr; sh_expr_eval::BoolEvaluator* bool_ev = nullptr; bool b; int status; StackRoot _root0(&cmd_val); StackRoot _root1(&strs); StackRoot _root2(&w_parser); StackRoot _root3(&b_parser); StackRoot _root4(&bool_node); StackRoot _root5(&w); StackRoot _root6(&a0); StackRoot _root7(&child); StackRoot _root8(&word_ev); StackRoot _root9(&bool_ev); if (this->need_right_bracket) { if (this->exec_opts->simple_test_builtin()) { e_usage(str2291, loc::Missing); } strs = cmd_val->argv; if ((len(strs) == 0 or !(str_equals(strs->at(-1), str2292)))) { this->errfmt->Print_(str2293, cmd_val->arg_locs->at(0)); return 2; } cmd_val->argv->pop(); cmd_val->arg_locs->pop(); } w_parser = Alloc<_StringWordEmitter>(cmd_val); w_parser->Read(); b_parser = Alloc(w_parser); bool_node = nullptr; n = (len(cmd_val->argv) - 1); if ((this->exec_opts->simple_test_builtin() and n > 3)) { e_usage(str2294, loc::Missing); } try { if (n == 0) { return 1; } else { if (n == 1) { w = w_parser->Read(); bool_node = Alloc(w); } else { if (n == 2) { bool_node = _TwoArgs(w_parser); } else { if (n == 3) { bool_node = _ThreeArgs(w_parser); } } } } if (n == 4) { a0 = w_parser->Peek(0); if (str_equals(a0, str2295)) { w_parser->Read(); child = _ThreeArgs(w_parser); bool_node = Alloc(child); } else { if ((str_equals(a0, str2296) and str_equals(w_parser->Peek(3), str2297))) { w_parser->Read(); bool_node = _TwoArgs(w_parser); } else { ; // pass } } } if (bool_node == nullptr) { bool_node = b_parser->ParseForBuiltin(); } } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e, str2298); return 2; } word_ev = Alloc<_WordEvaluator>(); bool_ev = Alloc(this->mem, this->exec_opts, nullptr, nullptr, this->errfmt, true); bool_ev->word_ev = word_ev; bool_ev->CheckCircularDeps(); try { b = bool_ev->EvalB(bool_node); } catch (error::_ErrorWithLocation* e) { this->errfmt->PrettyPrintError(e, str2299); return 2; } status = b ? 0 : 1; return status; } } // define namespace bracket_osh namespace completion_osh { // define using syntax_asdl::loc; using value_asdl::value; using value_asdl::value_e; using mylib::print_stderr; _FixedWordsAction::_FixedWordsAction(List* d) { this->d = d; } void _FixedWordsAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(sorted(this->d)); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(comp->to_complete)) { _out_yield_acc->append(name); ; } } } void _FixedWordsAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str2300); } _DynamicProcDictAction::_DynamicProcDictAction(state::Procs* d) { this->d = d; } void _DynamicProcDictAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(this->d->GetNames()); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(comp->to_complete)) { _out_yield_acc->append(name); ; } } } void _DynamicProcDictAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str2301); } _DynamicStrDictAction::_DynamicStrDictAction(Dict* d) { this->d = d; } void _DynamicStrDictAction::Matches(completion::Api* comp, List* _out_yield_acc) { StackRoot _root0(&comp); for (ListIter it(sorted(this->d)); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (name->startswith(comp->to_complete)) { _out_yield_acc->append(name); ; } } } void _DynamicStrDictAction::Print(mylib::BufWriter* f) { StackRoot _root0(&f); f->write(str2302); } SpecBuilder::SpecBuilder(cmd_eval::CommandEvaluator* cmd_ev, parse_lib::ParseContext* parse_ctx, word_eval::NormalWordEvaluator* word_ev, split::SplitContext* splitter, completion::Lookup* comp_lookup, Dict* help_data, ui::ErrorFormatter* errfmt) { this->cmd_ev = cmd_ev; this->parse_ctx = parse_ctx; this->word_ev = word_ev; this->splitter = splitter; this->comp_lookup = comp_lookup; this->help_data = help_data; this->topic_list = nullptr; this->errfmt = errfmt; } completion::UserSpec* SpecBuilder::Build(List* argv, args::_Attributes* attrs, Dict* base_opts) { cmd_eval::CommandEvaluator* cmd_ev = nullptr; arg_types::compgen* arg = nullptr; List* actions = nullptr; BigStr* func_name = nullptr; value::Proc* func = nullptr; BigStr* command = nullptr; completion::CompletionAction* a = nullptr; word_parse::WordParser* w_parser = nullptr; syntax_asdl::CompoundWord* arg_word = nullptr; List* extra_actions = nullptr; List* else_actions = nullptr; completion::_Predicate* p = nullptr; BigStr* filter_pat = nullptr; BigStr* prefix = nullptr; BigStr* suffix = nullptr; StackRoot _root0(&argv); StackRoot _root1(&attrs); StackRoot _root2(&base_opts); StackRoot _root3(&cmd_ev); StackRoot _root4(&arg); StackRoot _root5(&actions); StackRoot _root6(&func_name); StackRoot _root7(&func); StackRoot _root8(&command); StackRoot _root9(&a); StackRoot _root10(&w_parser); StackRoot _root11(&arg_word); StackRoot _root12(&extra_actions); StackRoot _root13(&else_actions); StackRoot _root14(&p); StackRoot _root15(&filter_pat); StackRoot _root16(&prefix); StackRoot _root17(&suffix); cmd_ev = this->cmd_ev; arg = Alloc(attrs->attrs); actions = Alloc>(); if (arg->F != nullptr) { func_name = arg->F; func = cmd_ev->procs->Get(func_name); if (func == nullptr) { throw Alloc(StrFormat("function %r not found", func_name), loc::Missing); } actions->append(Alloc(cmd_ev, func, this->comp_lookup)); } if (arg->C != nullptr) { command = arg->C; actions->append(Alloc(cmd_ev, command)); print_stderr(str2304); } for (ListIter it(attrs->actions); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (str_equals(name, str2305)) { a = Alloc<_DynamicStrDictAction>(this->parse_ctx->aliases); } else { if (str_equals(name, str2306)) { a = Alloc<_FixedWordsAction>(NewList(std::initializer_list{str2307})); } else { if (str_equals(name, str2308)) { a = Alloc<_FixedWordsAction>(consts::BUILTIN_NAMES); } else { if (str_equals(name, str2309)) { actions->append(Alloc<_FixedWordsAction>(consts::BUILTIN_NAMES)); actions->append(Alloc<_DynamicStrDictAction>(this->parse_ctx->aliases)); actions->append(Alloc<_DynamicProcDictAction>(cmd_ev->procs)); actions->append(Alloc<_FixedWordsAction>(consts::OSH_KEYWORD_NAMES)); actions->append(Alloc(false, true, false)); a = Alloc(cmd_ev->mem); } else { if (str_equals(name, str2310)) { a = Alloc(true, false, false); } else { if (str_equals(name, str2311)) { a = Alloc(cmd_ev->mem); } else { if (str_equals(name, str2312)) { a = Alloc(false, false, false); } else { if (str_equals(name, str2313)) { a = Alloc<_DynamicProcDictAction>(cmd_ev->procs); } else { if (str_equals(name, str2314)) { a = Alloc<_FixedWordsAction>(NewList(std::initializer_list{str2315})); } else { if (str_equals(name, str2316)) { a = Alloc<_FixedWordsAction>(consts::OSH_KEYWORD_NAMES); } else { if (str_equals(name, str2317)) { a = Alloc(); } else { if (str_equals(name, str2318)) { a = Alloc(cmd_ev->mem); } else { if (str_equals(name, str2319)) { if (this->topic_list == nullptr) { this->topic_list = this->help_data->keys(); } a = Alloc<_FixedWordsAction>(this->topic_list); } else { if (str_equals(name, str2320)) { a = Alloc<_FixedWordsAction>(consts::SET_OPTION_NAMES); } else { if (str_equals(name, str2321)) { a = Alloc<_FixedWordsAction>(consts::SHOPT_OPTION_NAMES); } else { if (str_equals(name, str2322)) { a = Alloc<_FixedWordsAction>(NewList(std::initializer_list{str2323})); } else { if (str_equals(name, str2324)) { a = Alloc<_FixedWordsAction>(NewList(std::initializer_list{str2325})); } else { assert(0); // AssertionError } } } } } } } } } } } } } } } } } actions->append(a); } if (arg->W != nullptr) { w_parser = this->parse_ctx->MakeWordParserForPlugin(arg->W); try { arg_word = w_parser->ReadForPlugin(); } catch (error::Parse* e) { this->errfmt->PrettyPrintError(e); throw ; } a = Alloc(this->word_ev, this->splitter, arg_word, this->errfmt); actions->append(a); } extra_actions = Alloc>(); if (base_opts->get(str2326, false)) { extra_actions->append(Alloc(true, false, false)); } else_actions = Alloc>(); if (base_opts->get(str2327, false)) { else_actions->append(Alloc(false, false, false)); } if (base_opts->get(str2328, false)) { else_actions->append(Alloc(true, false, false)); } if ((len(actions) == 0 and len(else_actions) == 0)) { throw Alloc(StrFormat("No actions defined in completion: %s", str2330->join(argv)), loc::Missing); } p = Alloc(); if (arg->X != nullptr) { filter_pat = arg->X; if (filter_pat->startswith(str2331)) { p = Alloc(false, filter_pat->slice(1)); } else { p = Alloc(true, filter_pat); } } prefix = arg->P; if (prefix == nullptr) { prefix = str2332; } suffix = arg->S; if (suffix == nullptr) { suffix = str2333; } return Alloc(actions, extra_actions, else_actions, p, prefix, suffix); } Complete::Complete(completion_osh::SpecBuilder* spec_builder, completion::Lookup* comp_lookup) { this->spec_builder = spec_builder; this->comp_lookup = comp_lookup; } int Complete::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::complete* arg = nullptr; List* commands = nullptr; Dict* base_opts = nullptr; completion::UserSpec* user_spec = nullptr; List* patterns = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); StackRoot _root4(&commands); StackRoot _root5(&base_opts); StackRoot _root6(&user_spec); StackRoot _root7(&patterns); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::ParseMore(str2334, arg_r); arg = Alloc(attrs->attrs); commands = arg_r->Rest(); if (arg->D) { commands->append(str2335); } if (arg->E) { commands->append(str2336); } if (len(commands) == 0) { if (len(cmd_val->argv) == 1) { this->comp_lookup->PrintSpecs(); return 0; } else { throw Alloc(str2337, loc::Missing); } } base_opts = dict(attrs->opt_changes); try { user_spec = this->spec_builder->Build(cmd_val->argv, attrs, base_opts); } catch (error::Parse* e) { return 2; } for (ListIter it(commands); !it.Done(); it.Next()) { BigStr* command = it.Value(); StackRoot _for(&command ); this->comp_lookup->RegisterName(command, base_opts, user_spec); } patterns = Alloc>(); for (ListIter it(patterns); !it.Done(); it.Next()) { BigStr* pat = it.Value(); StackRoot _for(&pat ); this->comp_lookup->RegisterGlob(pat, base_opts, user_spec); } return 0; } CompGen::CompGen(completion_osh::SpecBuilder* spec_builder) { this->spec_builder = spec_builder; } int CompGen::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* arg = nullptr; BigStr* to_complete = nullptr; bool matched; Dict* base_opts = nullptr; completion::UserSpec* user_spec = nullptr; completion::Api* comp = nullptr; BigStr* m = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&arg); StackRoot _root3(&to_complete); StackRoot _root4(&base_opts); StackRoot _root5(&user_spec); StackRoot _root6(&comp); StackRoot _root7(&m); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); arg = flag_util::ParseMore(str2338, arg_r); if (arg_r->AtEnd()) { to_complete = str2339; } else { to_complete = arg_r->Peek(); arg_r->Next(); } matched = false; base_opts = dict(arg->opt_changes); try { user_spec = this->spec_builder->Build(cmd_val->argv, arg, base_opts); } catch (error::Parse* e) { return 2; } matched = false; comp = Alloc(str2340, 0, 0); comp->Update(str2341, to_complete, str2342, -1, nullptr); try { List*> _for_yield_acc0; user_spec->AllMatches(comp, &_for_yield_acc0); for (ListIter*> it(&_for_yield_acc0); !it.Done(); it.Next()) { Tuple2* tup1 = it.Value(); m = tup1->at0(); matched = true; print(m); } } catch (error::FatalRuntime*) { return 1; } return matched ? 0 : 1; } CompOpt::CompOpt(completion::OptionState* comp_state, ui::ErrorFormatter* errfmt) { this->comp_state = comp_state; this->errfmt = errfmt; } int CompOpt::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* arg = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&arg); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); arg = flag_util::ParseMore(str2343, arg_r); if (!this->comp_state->currently_completing) { this->errfmt->Print_(str2344); return 1; } this->comp_state->dynamic_opts->update(arg->opt_changes); return 0; } CompAdjust::CompAdjust(state::Mem* mem) { this->mem = mem; } int CompAdjust::Run(cmd_value::Argv* cmd_val) { args::Reader* arg_r = nullptr; args::_Attributes* attrs = nullptr; arg_types::compadjust* arg = nullptr; List* var_names = nullptr; value_asdl::value_t* val = nullptr; List* comp_argv = nullptr; List* break_chars = nullptr; BigStr* omit_chars = nullptr; List* adjusted_argv = nullptr; int n; BigStr* cur = nullptr; BigStr* prev = nullptr; BigStr* split = nullptr; StackRoot _root0(&cmd_val); StackRoot _root1(&arg_r); StackRoot _root2(&attrs); StackRoot _root3(&arg); StackRoot _root4(&var_names); StackRoot _root5(&val); StackRoot _root6(&comp_argv); StackRoot _root7(&break_chars); StackRoot _root8(&omit_chars); StackRoot _root9(&adjusted_argv); StackRoot _root10(&cur); StackRoot _root11(&prev); StackRoot _root12(&split); arg_r = Alloc(cmd_val->argv, cmd_val->arg_locs); arg_r->Next(); attrs = flag_util::ParseMore(str2345, arg_r); arg = Alloc(attrs->attrs); var_names = arg_r->Rest(); for (ListIter it(var_names); !it.Done(); it.Next()) { BigStr* name = it.Value(); StackRoot _for(&name ); if (!list_contains(NewList(std::initializer_list{str2346, str2347, str2348, str2349}), name)) { throw Alloc(StrFormat("Invalid output variable name %r", name), loc::Missing); } } val = this->mem->GetValue(str2351); if (val->tag() != value_e::BashArray) { throw Alloc(str2352, loc::Missing); } comp_argv = static_cast(val)->strs; break_chars = NewList(std::initializer_list{str2353, str2354}); if (arg->s) { break_chars->remove(str2355); } omit_chars = arg->n; if (omit_chars == nullptr) { omit_chars = str2356; } for (StrIter it(omit_chars); !it.Done(); it.Next()) { BigStr* c = it.Value(); StackRoot _for(&c ); if (list_contains(break_chars, c)) { break_chars->remove(c); } } adjusted_argv = Alloc>(); for (ListIter it(comp_argv); !it.Done(); it.Next()) { BigStr* a = it.Value(); StackRoot _for(&a ); completion::AdjustArg(a, break_chars, adjusted_argv); } if (list_contains(var_names, str2357)) { state::BuiltinSetArray(this->mem, str2358, adjusted_argv); } n = len(adjusted_argv); cur = adjusted_argv->at(-1); prev = n < 2 ? str2359 : adjusted_argv->at(-2); if (arg->s) { if ((cur->startswith(str2360) and str_contains(cur, str2361))) { Tuple2 tup2 = mylib::split_once(cur, str2362); prev = tup2.at0(); cur = tup2.at1(); split = str2363; } else { split = str2364; } state::BuiltinSetString(this->mem, str2365, split); } if (list_contains(var_names, str2366)) { state::BuiltinSetString(this->mem, str2367, cur); } if (list_contains(var_names, str2368)) { state::BuiltinSetString(this->mem, str2369, prev); } if (list_contains(var_names, str2370)) { state::BuiltinSetString(this->mem, str2371, str((n - 1))); } return 0; } } // define namespace completion_osh namespace shell { // define using option_asdl::option_i; using option_asdl::builtin_i; using runtime_asdl::scope_e; using syntax_asdl::loc; using syntax_asdl::source; using syntax_asdl::source_t; using syntax_asdl::IntParamBox; using syntax_asdl::debug_frame; using syntax_asdl::debug_frame_t; using value_asdl::value; using value_asdl::value_e; using mylib::print_stderr; void _InitDefaultCompletions(cmd_eval::CommandEvaluator* cmd_ev, completion_osh::Complete* complete_builtin, completion::Lookup* comp_lookup) { StackRoot _root0(&cmd_ev); StackRoot _root1(&complete_builtin); StackRoot _root2(&comp_lookup); complete_builtin->Run(cmd_eval::MakeBuiltinArgv(NewList(std::initializer_list{str2372, str2373, str2374}))); complete_builtin->Run(cmd_eval::MakeBuiltinArgv(NewList(std::initializer_list{str2375, str2376, str2377}))); } void _CompletionDemo(completion::Lookup* comp_lookup) { completion::TestAction* A1 = nullptr; List* l = nullptr; completion::TestAction* A2 = nullptr; completion::UserSpec* C1 = nullptr; StackRoot _root0(&comp_lookup); StackRoot _root1(&A1); StackRoot _root2(&l); StackRoot _root3(&A2); StackRoot _root4(&C1); A1 = Alloc(NewList(std::initializer_list{str2378, str2379, str2380}), 0.0); l = Alloc>(); for (int i = 0; i < 5; ++i) { l->append(StrFormat("m%d", i)); } A2 = Alloc(l, 0.1); C1 = Alloc(NewList(std::initializer_list{A1, A2}), Alloc>(), Alloc>(), Alloc(), str2382, str2383); comp_lookup->RegisterName(str2384, Alloc>(), C1); } void SourceStartupFile(process::FdState* fd_state, BigStr* rc_path, BigStr* lang, parse_lib::ParseContext* parse_ctx, cmd_eval::CommandEvaluator* cmd_ev, ui::ErrorFormatter* errfmt) { mylib::LineReader* f = nullptr; alloc::Arena* arena = nullptr; reader::FileLineReader* rc_line_reader = nullptr; cmd_parse::CommandParser* rc_c_parser = nullptr; int unused; StackRoot _root0(&fd_state); StackRoot _root1(&rc_path); StackRoot _root2(&lang); StackRoot _root3(&parse_ctx); StackRoot _root4(&cmd_ev); StackRoot _root5(&errfmt); StackRoot _root6(&f); StackRoot _root7(&arena); StackRoot _root8(&rc_line_reader); StackRoot _root9(&rc_c_parser); try { f = fd_state->Open(rc_path); } catch (IOError_OSError* e) { if (e->errno_ != ENOENT) { throw ; } return ; } arena = parse_ctx->arena; rc_line_reader = Alloc(f, arena); rc_c_parser = parse_ctx->MakeOshParser(rc_line_reader); { // with alloc::ctx_SourceCode ctx{arena, Alloc(rc_path, loc::Missing)}; unused = main_loop::Batch(cmd_ev, rc_c_parser, errfmt); } f->close(); } ShellOptHook::ShellOptHook(py_readline::Readline* readline) { this->readline = readline; } bool ShellOptHook::OnChange(List* opt0_array, BigStr* opt_name, bool b) { StackRoot _root0(&opt0_array); StackRoot _root1(&opt_name); if ((str_equals(opt_name, str2385) or str_equals(opt_name, str2386))) { if (this->readline) { this->readline->parse_and_bind(str_concat(str2387, opt_name)); } else { print_stderr(StrFormat("Warning: Can't set option %r because shell wasn't compiled with GNU readline", opt_name)); return false; } if (str_equals(opt_name, str2389)) { opt0_array->set(option_i::emacs, !b); } else { if (str_equals(opt_name, str2390)) { opt0_array->set(option_i::vi, !b); } } } return true; } void _SetGlobalFunc(state::Mem* mem, BigStr* name, vm::_Callable* func) { StackRoot _root0(&mem); StackRoot _root1(&name); StackRoot _root2(&func); mem->SetNamed(location::LName(name), Alloc(func), scope_e::GlobalOnly); } Dict* InitAssignmentBuiltins(state::Mem* mem, state::Procs* procs, optview::Exec* exec_opts, ui::ErrorFormatter* errfmt) { Dict* assign_b = nullptr; assign_osh::NewVar* new_var = nullptr; StackRoot _root0(&mem); StackRoot _root1(&procs); StackRoot _root2(&exec_opts); StackRoot _root3(&errfmt); StackRoot _root4(&assign_b); StackRoot _root5(&new_var); assign_b = Alloc>(); new_var = Alloc(mem, procs, exec_opts, errfmt); assign_b->set(builtin_i::declare, new_var); assign_b->set(builtin_i::typeset, new_var); assign_b->set(builtin_i::local, new_var); assign_b->set(builtin_i::export_, Alloc(mem, errfmt)); assign_b->set(builtin_i::readonly, Alloc(mem, errfmt)); return assign_b; } ShellFiles::ShellFiles(BigStr* lang, BigStr* home_dir, state::Mem* mem, arg_types::main* flag) { this->lang = lang; this->home_dir = home_dir; this->mem = mem; this->flag = flag; } BigStr* ShellFiles::_HistVar() { return str_equals(this->lang, str2391) ? str2392 : str2393; } BigStr* ShellFiles::_DefaultHistoryFile() { return os_path::join(this->home_dir, StrFormat(".local/share/oils/%s_history", this->lang)); } void ShellFiles::InitAfterLoadingEnv() { BigStr* hist_var = nullptr; StackRoot _root0(&hist_var); hist_var = this->_HistVar(); if (this->mem->GetValue(hist_var)->tag() == value_e::Undef) { state::SetGlobalString(this->mem, hist_var, this->_DefaultHistoryFile()); } } BigStr* ShellFiles::HistoryFile() { value_asdl::value_t* UP_val = nullptr; StackRoot _root0(&UP_val); UP_val = this->mem->GetValue(this->_HistVar()); if (UP_val->tag() == value_e::Str) { value::Str* val = static_cast(UP_val); return val->s; } else { return nullptr; } } int Main(BigStr* lang, args::Reader* arg_r, Dict* environ, bool login_shell, pyutil::_ResourceLoader* loader, py_readline::Readline* readline) { BigStr* argv0 = nullptr; args::_Attributes* attrs = nullptr; arg_types::main* flag = nullptr; alloc::Arena* arena = nullptr; ui::ErrorFormatter* errfmt = nullptr; List* paths = nullptr; int status; BigStr* contents = nullptr; List* debug_stack = nullptr; BigStr* dollar0 = nullptr; debug_frame::Main* frame0 = nullptr; BigStr* script_name = nullptr; state::Mem* mem = nullptr; shell::ShellOptHook* opt_hook = nullptr; optview::Parse* parse_opts = nullptr; optview::Exec* exec_opts = nullptr; state::MutableOpts* mutable_opts = nullptr; BigStr* version_str = nullptr; Dict* aliases = nullptr; grammar::Grammar* ysh_grammar = nullptr; bool do_lossless; parse_lib::ParseContext* parse_ctx = nullptr; alloc::Arena* comp_arena = nullptr; parse_lib::Trail* trail1 = nullptr; parse_lib::ParseContext* comp_ctx = nullptr; alloc::Arena* hist_arena = nullptr; parse_lib::Trail* trail2 = nullptr; parse_lib::ParseContext* hist_ctx = nullptr; cmd_eval::Deps* cmd_deps = nullptr; process::JobControl* job_control = nullptr; process::JobList* job_list = nullptr; process::FdState* fd_state = nullptr; int my_pid; BigStr* debug_path = nullptr; BigStr* debug_dir = nullptr; util::_DebugFile* debug_f = nullptr; util::_DebugFile* trace_f = nullptr; BigStr* trace_dir = nullptr; BigStr* dumps = nullptr; BigStr* streams = nullptr; dev::MultiTracer* multi_trace = nullptr; dev::Tracer* tracer = nullptr; pyos::SignalSafe* signal_safe = nullptr; trap_osh::TrapState* trap_state = nullptr; process::Waiter* waiter = nullptr; double now; BigStr* iso_stamp = nullptr; mylib::BufWriter* argv_buf = nullptr; BigStr* interp = nullptr; state::SearchPath* search_path = nullptr; process::ExternalProgram* ext_prog = nullptr; split::SplitContext* splitter = nullptr; glob_::Globber* globber = nullptr; BigStr* crash_dump_dir = nullptr; completion::Lookup* comp_lookup = nullptr; completion::OptionState* compopt_state = nullptr; comp_ui::State* comp_ui_state = nullptr; comp_ui::PromptState* prompt_state = nullptr; word_eval::TildeEvaluator* tilde_ev = nullptr; BigStr* home_dir = nullptr; shell::ShellFiles* sh_files = nullptr; state::Procs* procs = nullptr; Dict* builtins = nullptr; Dict*>* methods = nullptr; hay_ysh::HayState* hay_state = nullptr; executor::ShellExecutor* shell_ex = nullptr; sh_expr_eval::ArithEvaluator* arith_ev = nullptr; sh_expr_eval::BoolEvaluator* bool_ev = nullptr; expr_eval::ExprEvaluator* expr_ev = nullptr; word_eval::NormalWordEvaluator* word_ev = nullptr; Dict* assign_b = nullptr; cmd_eval::CommandEvaluator* cmd_ev = nullptr; prompt::Evaluator* prompt_ev = nullptr; value::IO* global_io = nullptr; value::Guts* global_guts = nullptr; sh_expr_eval::UnsafeArith* unsafe_arith = nullptr; Dict* b = nullptr; Dict* help_data = nullptr; meta_osh::Source* source_builtin = nullptr; Dict* guards = nullptr; pure_osh::Boolean* true_ = nullptr; io_osh::MapFile* mapfile = nullptr; dirs_osh::DirStack* dir_stack = nullptr; completion_osh::SpecBuilder* spec_builder = nullptr; completion_osh::Complete* complete_builtin = nullptr; word_eval::CompletionWordEvaluator* comp_ev = nullptr; completion::RootCompleter* root_comp = nullptr; func_hay::ParseHay* parse_hay = nullptr; func_hay::EvalHay* eval_hay = nullptr; func_hay::HayFunc* hay_func = nullptr; func_eggex::MatchFunc* g = nullptr; history::Evaluator* hist_ev = nullptr; syntax_asdl::source_t* src = nullptr; reader::_Reader* line_reader = nullptr; mylib::LineReader* stdin_ = nullptr; mylib::LineReader* f = nullptr; int location_start_line; BigStr* config_dir = nullptr; List* rc_paths = nullptr; BigStr* rc_path = nullptr; BigStr* rc_dir = nullptr; main_loop::Headless* loop = nullptr; syntax_asdl::IntParamBox* mut_status = nullptr; cmd_parse::CommandParser* c_parser = nullptr; int term_width; comp_ui::_IDisplay* display = nullptr; prompt::UserPlugin* prompt_plugin = nullptr; BigStr* hist_file = nullptr; BigStr* tool_name = nullptr; syntax_asdl::command_t* node = nullptr; StackRoot _root0(&lang); StackRoot _root1(&arg_r); StackRoot _root2(&environ); StackRoot _root3(&loader); StackRoot _root4(&readline); StackRoot _root5(&argv0); StackRoot _root6(&attrs); StackRoot _root7(&flag); StackRoot _root8(&arena); StackRoot _root9(&errfmt); StackRoot _root10(&paths); StackRoot _root11(&contents); StackRoot _root12(&debug_stack); StackRoot _root13(&dollar0); StackRoot _root14(&frame0); StackRoot _root15(&script_name); StackRoot _root16(&mem); StackRoot _root17(&opt_hook); StackRoot _root18(&parse_opts); StackRoot _root19(&exec_opts); StackRoot _root20(&mutable_opts); StackRoot _root21(&version_str); StackRoot _root22(&aliases); StackRoot _root23(&ysh_grammar); StackRoot _root24(&parse_ctx); StackRoot _root25(&comp_arena); StackRoot _root26(&trail1); StackRoot _root27(&comp_ctx); StackRoot _root28(&hist_arena); StackRoot _root29(&trail2); StackRoot _root30(&hist_ctx); StackRoot _root31(&cmd_deps); StackRoot _root32(&job_control); StackRoot _root33(&job_list); StackRoot _root34(&fd_state); StackRoot _root35(&debug_path); StackRoot _root36(&debug_dir); StackRoot _root37(&debug_f); StackRoot _root38(&trace_f); StackRoot _root39(&trace_dir); StackRoot _root40(&dumps); StackRoot _root41(&streams); StackRoot _root42(&multi_trace); StackRoot _root43(&tracer); StackRoot _root44(&signal_safe); StackRoot _root45(&trap_state); StackRoot _root46(&waiter); StackRoot _root47(&iso_stamp); StackRoot _root48(&argv_buf); StackRoot _root49(&interp); StackRoot _root50(&search_path); StackRoot _root51(&ext_prog); StackRoot _root52(&splitter); StackRoot _root53(&globber); StackRoot _root54(&crash_dump_dir); StackRoot _root55(&comp_lookup); StackRoot _root56(&compopt_state); StackRoot _root57(&comp_ui_state); StackRoot _root58(&prompt_state); StackRoot _root59(&tilde_ev); StackRoot _root60(&home_dir); StackRoot _root61(&sh_files); StackRoot _root62(&procs); StackRoot _root63(&builtins); StackRoot _root64(&methods); StackRoot _root65(&hay_state); StackRoot _root66(&shell_ex); StackRoot _root67(&arith_ev); StackRoot _root68(&bool_ev); StackRoot _root69(&expr_ev); StackRoot _root70(&word_ev); StackRoot _root71(&assign_b); StackRoot _root72(&cmd_ev); StackRoot _root73(&prompt_ev); StackRoot _root74(&global_io); StackRoot _root75(&global_guts); StackRoot _root76(&unsafe_arith); StackRoot _root77(&b); StackRoot _root78(&help_data); StackRoot _root79(&source_builtin); StackRoot _root80(&guards); StackRoot _root81(&true_); StackRoot _root82(&mapfile); StackRoot _root83(&dir_stack); StackRoot _root84(&spec_builder); StackRoot _root85(&complete_builtin); StackRoot _root86(&comp_ev); StackRoot _root87(&root_comp); StackRoot _root88(&parse_hay); StackRoot _root89(&eval_hay); StackRoot _root90(&hay_func); StackRoot _root91(&g); StackRoot _root92(&hist_ev); StackRoot _root93(&src); StackRoot _root94(&line_reader); StackRoot _root95(&stdin_); StackRoot _root96(&f); StackRoot _root97(&config_dir); StackRoot _root98(&rc_paths); StackRoot _root99(&rc_path); StackRoot _root100(&rc_dir); StackRoot _root101(&loop); StackRoot _root102(&mut_status); StackRoot _root103(&c_parser); StackRoot _root104(&display); StackRoot _root105(&prompt_plugin); StackRoot _root106(&hist_file); StackRoot _root107(&tool_name); StackRoot _root108(&node); argv0 = arg_r->Peek(); arg_r->Next(); try { attrs = flag_util::ParseMore(str2395, arg_r); } catch (error::Usage* e) { print_stderr(StrFormat("%s usage error: %s", lang, e->msg)); return 2; } flag = Alloc(attrs->attrs); arena = Alloc(); errfmt = Alloc(); if (flag->help) { util::HelpFlag(loader, StrFormat("%s-usage", lang), mylib::Stdout()); return 0; } if (flag->version) { util::VersionFlag(loader, mylib::Stdout()); return 0; } if (maybe_str_equals(flag->tool, str2398)) { paths = arg_r->Rest(); status = 0; for (ListIter it(paths); !it.Done(); it.Next()) { BigStr* p = it.Value(); StackRoot _for(&p ); try { contents = loader->Get(p); print(contents); } catch (IOError_OSError*) { print_stderr(StrFormat("cat-em: %r not found", p)); status = 1; } } return status; } debug_stack = Alloc>(); if (arg_r->AtEnd()) { dollar0 = argv0; } else { dollar0 = arg_r->Peek(); frame0 = Alloc(dollar0); debug_stack->append(frame0); } script_name = arg_r->Peek(); arg_r->Next(); mem = Alloc(dollar0, arg_r->Rest(), arena, debug_stack); opt_hook = Alloc(readline); Tuple3 tup0 = state::MakeOpts(mem, opt_hook); parse_opts = tup0.at0(); exec_opts = tup0.at1(); mutable_opts = tup0.at2(); mem->exec_opts = exec_opts; mutable_opts->Init(); version_str = pyutil::GetVersion(loader); state::InitMem(mem, environ, version_str); if (attrs->show_options) { mutable_opts->ShowOptions(Alloc>()); return 0; } if (str_equals(lang, str2400)) { mutable_opts->SetAnyOption(str2401, true); } pure_osh::SetOptionsFromFlags(mutable_opts, attrs->opt_changes, attrs->shopt_changes); aliases = Alloc>(); ysh_grammar = pyutil::LoadYshGrammar(loader); if ((flag->do_lossless and !exec_opts->noexec())) { throw Alloc(str2402, loc::Missing); } do_lossless = len(flag->tool) ? true : flag->do_lossless; parse_ctx = Alloc(arena, parse_opts, aliases, ysh_grammar, do_lossless); comp_arena = Alloc(); comp_arena->PushSource(Alloc(str2403)); trail1 = Alloc(); comp_ctx = Alloc(comp_arena, parse_opts, aliases, ysh_grammar, true); comp_ctx->Init_Trail(trail1); hist_arena = Alloc(); hist_arena->PushSource(Alloc(str2404)); trail2 = Alloc(); hist_ctx = Alloc(hist_arena, parse_opts, aliases, ysh_grammar); hist_ctx->Init_Trail(trail2); cmd_deps = Alloc(); cmd_deps->mutable_opts = mutable_opts; job_control = Alloc(); job_list = Alloc(); fd_state = Alloc(errfmt, job_control, job_list, mem, nullptr, nullptr, exec_opts); my_pid = posix::getpid(); debug_path = str2405; debug_dir = environ->get(str2406); if (flag->debug_file != nullptr) { debug_path = flag->debug_file; } else { if (debug_dir != nullptr) { debug_path = os_path::join(debug_dir, StrFormat("%d-osh.log", my_pid)); } } if (len(debug_path)) { try { debug_f = Alloc(fd_state->OpenForWrite(debug_path)); } catch (IOError_OSError* e) { print_stderr(StrFormat("%s: Couldn't open %r: %s", lang, debug_path, posix::strerror(e->errno_))); return 2; } } else { debug_f = Alloc(); } if (flag->xtrace_to_debug_file) { trace_f = debug_f; } else { trace_f = Alloc(mylib::Stderr()); } trace_dir = environ->get(str2409, str2410); dumps = environ->get(str2411, str2412); streams = environ->get(str2413, str2414); multi_trace = Alloc(my_pid, trace_dir, dumps, streams, fd_state); tracer = Alloc(parse_ctx, exec_opts, mutable_opts, mem, trace_f, multi_trace); fd_state->tracer = tracer; signal_safe = pyos::InitSignalSafe(); trap_state = Alloc(signal_safe); waiter = Alloc(job_list, exec_opts, signal_safe, tracer); fd_state->waiter = waiter; cmd_deps->debug_f = debug_f; now = time_::time(); iso_stamp = time_::strftime(str2415, time_::localtime(now)); argv_buf = Alloc(); dev::PrintShellArgv(arg_r->argv, argv_buf); debug_f->writeln(StrFormat("%s [%d] Oils started with argv %s", iso_stamp, my_pid, argv_buf->getvalue())); if (len(debug_path)) { debug_f->writeln(StrFormat("Writing logs to %r", debug_path)); } interp = environ->get(str2418, str2419); search_path = Alloc(mem); ext_prog = Alloc(interp, fd_state, errfmt, debug_f); splitter = Alloc(mem); globber = Alloc(exec_opts); crash_dump_dir = environ->get(str2420, str2421); cmd_deps->dumper = Alloc(crash_dump_dir, fd_state); comp_lookup = Alloc(); compopt_state = Alloc(); comp_ui_state = Alloc(); prompt_state = Alloc(); tilde_ev = Alloc(mem, exec_opts); home_dir = tilde_ev->GetMyHomeDir(); if (home_dir == nullptr) { print_stderr(StrFormat("%s: Failed to get home dir from $HOME or getpwuid()", lang)); return 1; } sh_files = Alloc(lang, home_dir, mem, flag); sh_files->InitAfterLoadingEnv(); procs = Alloc(mem); builtins = Alloc>(); methods = Alloc*>>(); hay_state = Alloc(); shell_ex = Alloc(mem, exec_opts, mutable_opts, procs, hay_state, builtins, search_path, ext_prog, waiter, tracer, job_control, job_list, fd_state, trap_state, errfmt); arith_ev = Alloc(mem, exec_opts, mutable_opts, parse_ctx, errfmt); bool_ev = Alloc(mem, exec_opts, mutable_opts, parse_ctx, errfmt); expr_ev = Alloc(mem, mutable_opts, methods, splitter, errfmt); word_ev = Alloc(mem, exec_opts, mutable_opts, tilde_ev, splitter, errfmt); assign_b = InitAssignmentBuiltins(mem, procs, exec_opts, errfmt); cmd_ev = Alloc(mem, exec_opts, errfmt, procs, assign_b, arena, cmd_deps, trap_state, signal_safe); prompt_ev = Alloc(lang, version_str, parse_ctx, mem); global_io = Alloc(cmd_ev, prompt_ev); global_guts = Alloc(nullptr); vm::InitCircularDeps(arith_ev, bool_ev, expr_ev, word_ev, cmd_ev, shell_ex, prompt_ev, global_io, tracer); unsafe_arith = Alloc(mem, exec_opts, mutable_opts, parse_ctx, arith_ev, errfmt); vm::InitUnsafeArith(mem, word_ev, unsafe_arith); b = builtins; // if not PYTHON { help_data = help_meta::TopicMetadata(); } // endif MYCPP b->set(builtin_i::help, Alloc(lang, loader, help_data, errfmt)); b->set(builtin_i::set, Alloc(mutable_opts, mem)); b->set(builtin_i::shopt, Alloc(mutable_opts, cmd_ev)); b->set(builtin_i::hash, Alloc(search_path)); b->set(builtin_i::trap, Alloc(trap_state, parse_ctx, tracer, errfmt)); b->set(builtin_i::shvar, Alloc(mem, search_path, cmd_ev)); b->set(builtin_i::ctx, Alloc(mem, cmd_ev)); b->set(builtin_i::push_registers, Alloc(mem, cmd_ev)); b->set(builtin_i::hay, Alloc(hay_state, mutable_opts, mem, cmd_ev)); b->set(builtin_i::haynode, Alloc(hay_state, mem, cmd_ev)); b->set(builtin_i::type, Alloc(procs, aliases, search_path, errfmt)); b->set(builtin_i::builtin, Alloc(shell_ex, errfmt)); b->set(builtin_i::command, Alloc(shell_ex, procs, aliases, search_path)); b->set(builtin_i::runproc, Alloc(shell_ex, procs, errfmt)); source_builtin = Alloc(parse_ctx, search_path, cmd_ev, fd_state, tracer, errfmt, loader); b->set(builtin_i::source, source_builtin); b->set(builtin_i::dot, source_builtin); b->set(builtin_i::eval, Alloc(parse_ctx, exec_opts, cmd_ev, tracer, errfmt)); guards = Alloc>(); b->set(builtin_i::source_guard, Alloc(guards, exec_opts, errfmt)); b->set(builtin_i::is_main, Alloc(mem)); b->set(builtin_i::use, Alloc(mem, errfmt)); b->set(builtin_i::error, Alloc()); b->set(builtin_i::failed, Alloc(mem)); b->set(builtin_i::boolstatus, Alloc(shell_ex, errfmt)); b->set(builtin_i::try_, Alloc(mutable_opts, mem, cmd_ev, shell_ex, errfmt)); b->set(builtin_i::assert_, Alloc(expr_ev, errfmt)); true_ = Alloc(0); b->set(builtin_i::colon, true_); b->set(builtin_i::true_, true_); b->set(builtin_i::false_, Alloc(1)); b->set(builtin_i::alias, Alloc(aliases, errfmt)); b->set(builtin_i::unalias, Alloc(aliases, errfmt)); b->set(builtin_i::getopts, Alloc(mem, errfmt)); b->set(builtin_i::shift, Alloc(mem)); b->set(builtin_i::unset, Alloc(mem, procs, unsafe_arith, errfmt)); b->set(builtin_i::append, Alloc(mem, errfmt)); b->set(builtin_i::test, Alloc(false, exec_opts, mem, errfmt)); b->set(builtin_i::bracket, Alloc(true, exec_opts, mem, errfmt)); b->set(builtin_i::echo, Alloc(exec_opts)); b->set(builtin_i::printf, Alloc(mem, parse_ctx, unsafe_arith, errfmt)); b->set(builtin_i::write, Alloc(mem, errfmt)); b->set(builtin_i::fopen, Alloc(mem, cmd_ev)); b->set(builtin_i::pp, Alloc(expr_ev, mem, errfmt, procs, arena)); b->set(builtin_i::cat, Alloc()); b->set(builtin_i::read, Alloc(splitter, mem, parse_ctx, cmd_ev, errfmt)); mapfile = Alloc(mem, errfmt, cmd_ev); b->set(builtin_i::mapfile, mapfile); b->set(builtin_i::readarray, mapfile); dir_stack = Alloc(); b->set(builtin_i::cd, Alloc(mem, dir_stack, cmd_ev, errfmt)); b->set(builtin_i::pushd, Alloc(mem, dir_stack, errfmt)); b->set(builtin_i::popd, Alloc(mem, dir_stack, errfmt)); b->set(builtin_i::dirs, Alloc(mem, dir_stack, errfmt)); b->set(builtin_i::pwd, Alloc(mem, errfmt)); b->set(builtin_i::times, Alloc()); b->set(builtin_i::json, Alloc(mem, errfmt, false)); b->set(builtin_i::json8, Alloc(mem, errfmt, true)); b->set(builtin_i::exec_, Alloc(mem, ext_prog, fd_state, search_path, errfmt)); b->set(builtin_i::umask, Alloc()); b->set(builtin_i::ulimit, Alloc()); b->set(builtin_i::wait, Alloc(waiter, job_list, mem, tracer, errfmt)); b->set(builtin_i::jobs, Alloc(job_list)); b->set(builtin_i::fg, Alloc(job_control, job_list, waiter)); b->set(builtin_i::bg, Alloc(job_list)); b->set(builtin_i::fork, Alloc(shell_ex)); b->set(builtin_i::forkwait, Alloc(shell_ex)); b->set(builtin_i::bind, Alloc(readline, errfmt)); b->set(builtin_i::history, Alloc(readline, sh_files, errfmt, mylib::Stdout())); spec_builder = Alloc(cmd_ev, parse_ctx, word_ev, splitter, comp_lookup, help_data, errfmt); complete_builtin = Alloc(spec_builder, comp_lookup); b->set(builtin_i::complete, complete_builtin); b->set(builtin_i::compgen, Alloc(spec_builder)); b->set(builtin_i::compopt, Alloc(compopt_state, errfmt)); b->set(builtin_i::compadjust, Alloc(mem)); comp_ev = Alloc(mem, exec_opts, mutable_opts, tilde_ev, splitter, errfmt); comp_ev->arith_ev = arith_ev; comp_ev->expr_ev = expr_ev; comp_ev->prompt_ev = prompt_ev; comp_ev->CheckCircularDeps(); root_comp = Alloc(comp_ev, mem, comp_lookup, compopt_state, comp_ui_state, comp_ctx, debug_f); b->set(builtin_i::compexport, Alloc(root_comp)); methods->set(value_e::Str, Alloc>(std::initializer_list{str2423, str2424, str2425, str2426, str2427, str2428, str2429, str2430, str2431, str2432, str2433, str2434}, std::initializer_list{Alloc(method_str::START), Alloc(method_str::END), Alloc((method_str::START | method_str::END)), Alloc(method_str::START), Alloc(method_str::END), Alloc(), Alloc(), nullptr, Alloc(mem, expr_ev), Alloc(method_str::SEARCH), Alloc(method_str::LEFT_MATCH), nullptr})); methods->set(value_e::Dict, Alloc>(std::initializer_list{str2435, str2436, str2437, str2438, str2439, str2440}, std::initializer_list{nullptr, Alloc(), Alloc(), Alloc(), nullptr, nullptr})); methods->set(value_e::List, Alloc>(std::initializer_list{str2441, str2442, str2443, str2444, str2445, str2446, str2447, str2448}, std::initializer_list{Alloc(), Alloc(), Alloc(), Alloc(), nullptr, nullptr, Alloc(), Alloc()})); methods->set(value_e::Match, Alloc>(std::initializer_list{str2449, str2450, str2451}, std::initializer_list{Alloc(func_eggex::G, expr_ev), Alloc(func_eggex::S, nullptr), Alloc(func_eggex::E, nullptr)})); methods->set(value_e::IO, Alloc>(std::initializer_list{str2452, str2453, str2454, str2455, str2456}, std::initializer_list{Alloc(cmd_ev), Alloc(shell_ex), Alloc(), Alloc(), Alloc()})); methods->set(value_e::Place, Alloc>(std::initializer_list{str2457}, std::initializer_list{Alloc(mem)})); methods->set(value_e::Command, Alloc>(std::initializer_list{str2458}, std::initializer_list{nullptr})); parse_hay = Alloc(fd_state, parse_ctx, errfmt); eval_hay = Alloc(hay_state, mutable_opts, mem, cmd_ev); hay_func = Alloc(hay_state); _SetGlobalFunc(mem, str2459, parse_hay); _SetGlobalFunc(mem, str2460, eval_hay); _SetGlobalFunc(mem, str2461, hay_func); _SetGlobalFunc(mem, str2462, Alloc()); _SetGlobalFunc(mem, str2463, Alloc()); g = Alloc(func_eggex::G, expr_ev, mem); _SetGlobalFunc(mem, str2464, g); _SetGlobalFunc(mem, str2465, g); _SetGlobalFunc(mem, str2466, Alloc(func_eggex::S, nullptr, mem)); _SetGlobalFunc(mem, str2467, Alloc(func_eggex::E, nullptr, mem)); _SetGlobalFunc(mem, str2468, Alloc(expr_ev)); _SetGlobalFunc(mem, str2469, Alloc()); _SetGlobalFunc(mem, str2470, Alloc()); _SetGlobalFunc(mem, str2471, Alloc()); _SetGlobalFunc(mem, str2472, Alloc()); _SetGlobalFunc(mem, str2473, Alloc()); _SetGlobalFunc(mem, str2474, Alloc()); _SetGlobalFunc(mem, str2475, Alloc()); _SetGlobalFunc(mem, str2476, Alloc()); _SetGlobalFunc(mem, str2477, Alloc()); _SetGlobalFunc(mem, str2478, Alloc()); _SetGlobalFunc(mem, str2479, Alloc(splitter)); _SetGlobalFunc(mem, str2480, Alloc(splitter)); _SetGlobalFunc(mem, str2481, Alloc()); _SetGlobalFunc(mem, str2482, Alloc()); _SetGlobalFunc(mem, str2483, Alloc()); _SetGlobalFunc(mem, str2484, Alloc(globber)); _SetGlobalFunc(mem, str2485, Alloc(mem)); _SetGlobalFunc(mem, str2486, Alloc(mem)); _SetGlobalFunc(mem, str2487, Alloc(true)); _SetGlobalFunc(mem, str2488, Alloc(false)); _SetGlobalFunc(mem, str2489, Alloc(true)); _SetGlobalFunc(mem, str2490, Alloc(false)); _SetGlobalFunc(mem, str2491, Alloc()); _SetGlobalFunc(mem, str2492, Alloc()); mem->SetNamed(location::LName(str2493), global_io, scope_e::GlobalOnly); mem->SetNamed(location::LName(str2494), global_guts, scope_e::GlobalOnly); mem->SetNamed(location::LName(str2495), value::Stdin, scope_e::GlobalOnly); hist_ev = Alloc(readline, hist_ctx, debug_f); if (flag->c != nullptr) { src = source::CFlag; line_reader = reader::StringLineReader(flag->c, arena); if (flag->i) { mutable_opts->set_interactive(); } } else { if (flag->i) { src = Alloc(str2496); line_reader = Alloc(arena, prompt_ev, hist_ev, readline, prompt_state); mutable_opts->set_interactive(); } else { if (script_name == nullptr) { if (flag->headless) { src = source::Headless; line_reader = nullptr; } else { stdin_ = mylib::Stdin(); if ((len(flag->tool) == 0 and stdin_->isatty())) { src = source::Interactive; line_reader = Alloc(arena, prompt_ev, hist_ev, readline, prompt_state); mutable_opts->set_interactive(); } else { src = Alloc(str2497); line_reader = Alloc(stdin_, arena); } } } else { src = Alloc(script_name); try { f = fd_state->Open(script_name); } catch (IOError_OSError* e) { print_stderr(StrFormat("%s: Couldn't open %r: %s", lang, script_name, posix::strerror(e->errno_))); return 1; } line_reader = Alloc(f, arena); } } } if (flag->location_str != nullptr) { src = Alloc(flag->location_str); location_start_line = mops::BigTruncate(flag->location_start_line); if (location_start_line != -1) { line_reader->SetLineOffset(location_start_line); } } arena->PushSource(src); config_dir = str2499; rc_paths = Alloc>(); if ((!flag->norc and (flag->headless or exec_opts->interactive()))) { rc_path = flag->rcfile; if (rc_path == nullptr) { rc_paths->append(os_path::join(home_dir, StrFormat("%s/%src", config_dir, lang))); } else { rc_paths->append(rc_path); } rc_dir = flag->rcdir; if (rc_dir == nullptr) { rc_dir = os_path::join(home_dir, StrFormat("%s/%src.d", config_dir, lang)); } rc_paths->extend(libc::glob(os_path::join(rc_dir, str2502))); } else { if (flag->rcfile != nullptr) { print_stderr(StrFormat("%s warning: --rcfile ignored with --norc", lang)); } if (flag->rcdir != nullptr) { print_stderr(StrFormat("%s warning: --rcdir ignored with --norc", lang)); } } _InitDefaultCompletions(cmd_ev, complete_builtin, comp_lookup); if (flag->headless) { state::InitInteractive(mem); mutable_opts->set_redefine_proc_func(); mutable_opts->set_redefine_module(); for (ListIter it(rc_paths); !it.Done(); it.Next()) { BigStr* rc_path = it.Value(); StackRoot _for(&rc_path ); { // with state::ctx_ThisDir ctx{mem, rc_path}; try { SourceStartupFile(fd_state, rc_path, lang, parse_ctx, cmd_ev, errfmt); } catch (util::UserExit* e) { return e->status; } } } loop = Alloc(cmd_ev, parse_ctx, errfmt); try { status = loop->Loop(); } catch (util::UserExit* e) { status = e->status; } mut_status = Alloc(status); cmd_ev->MaybeRunExitTrap(mut_status); status = mut_status->i; return status; } c_parser = parse_ctx->MakeOshParser(line_reader); if (exec_opts->interactive()) { state::InitInteractive(mem); mutable_opts->set_emacs(); mutable_opts->set_redefine_proc_func(); mutable_opts->set_redefine_module(); if (readline) { term_width = 0; if (maybe_str_equals(flag->completion_display, str2505)) { try { term_width = libc::get_terminal_width(); } catch (IOError_OSError*) { ; // pass } } if (term_width != 0) { display = Alloc(term_width, comp_ui_state, prompt_state, debug_f, readline, signal_safe); } else { display = Alloc(comp_ui_state, prompt_state, debug_f); } comp_ui::InitReadline(readline, sh_files->HistoryFile(), root_comp, display, debug_f); _InitDefaultCompletions(cmd_ev, complete_builtin, comp_lookup); if (flag->completion_demo) { _CompletionDemo(comp_lookup); } } else { display = Alloc(comp_ui_state, prompt_state, debug_f); } process::InitInteractiveShell(); { // with process::ctx_TerminalControl ctx{job_control, errfmt}; for (ListIter it(rc_paths); !it.Done(); it.Next()) { BigStr* rc_path = it.Value(); StackRoot _for(&rc_path ); { // with state::ctx_ThisDir ctx{mem, rc_path}; try { SourceStartupFile(fd_state, rc_path, lang, parse_ctx, cmd_ev, errfmt); } catch (util::UserExit* e) { return e->status; } } } line_reader->Reset(); prompt_plugin = Alloc(mem, parse_ctx, cmd_ev, errfmt); try { status = main_loop::Interactive(flag, cmd_ev, c_parser, display, prompt_plugin, waiter, errfmt); } catch (util::UserExit* e) { status = e->status; } mut_status = Alloc(status); cmd_ev->MaybeRunExitTrap(mut_status); status = mut_status->i; } if (readline) { hist_file = sh_files->HistoryFile(); if (hist_file != nullptr) { try { readline->write_history_file(hist_file); } catch (IOError_OSError*) { ; // pass } } } return status; } if (flag->rcfile != nullptr) { print_stderr(StrFormat("%s warning: --rcfile ignored in non-interactive shell", lang)); } if (flag->rcdir != nullptr) { print_stderr(StrFormat("%s warning: --rcdir ignored in non-interactive shell", lang)); } tool_name = exec_opts->noexec() ? str2508 : flag->tool; if (len(tool_name)) { if (!(maybe_str_equals(tool_name, str2509))) { arena->SaveTokens(); } try { node = main_loop::ParseWholeFile(c_parser); } catch (error::Parse* e) { errfmt->PrettyPrintError(e); return 2; } if (maybe_str_equals(tool_name, str2510)) { ui::PrintAst(node, flag); } else { if (maybe_str_equals(tool_name, str2511)) { ysh_ify::PrintTokens(arena); } else { if (maybe_str_equals(tool_name, str2512)) { ysh_ify::LosslessCat(arena); } else { if (maybe_str_equals(tool_name, str2513)) { fmt::Format(arena, node); } else { if (maybe_str_equals(tool_name, str2514)) { assert(0); // AssertionError } else { if (maybe_str_equals(tool_name, str2516)) { ysh_ify::Ysh_ify(arena, node); } else { if (maybe_str_equals(tool_name, str2517)) { } else { assert(0); // AssertionError } } } } } } } return 0; } { // with state::ctx_ThisDir ctx{mem, script_name}; try { status = main_loop::Batch(cmd_ev, c_parser, errfmt, cmd_eval::IsMainProgram); } catch (util::UserExit* e) { status = e->status; } } mut_status = Alloc(status); cmd_ev->MaybeRunExitTrap(mut_status); multi_trace->WriteDumps(); return mut_status->i; } } // define namespace shell int main(int argc, char **argv) { mylib::InitCppOnly(); // Initializes gHeap auto* args = Alloc>(); for (int i = 0; i < argc; ++i) { args->append(StrFromC(argv[i])); } int status = oils_for_unix::main(args); gHeap.ProcessExit(); return status; }