{ (* -*- caml -*- *) open Common open Types open Lexing open Info let bpos = -1,-1 type raw_token = | EOF of raw_pos | SPACE of int | CR | INT of (string * raw_pos) | FLOAT of (string * raw_pos) | RAW_STRING of (string * raw_pos) | STRING of (raw_interpolated_string * raw_pos) | PATTERN of (raw_interpolated_string * string * raw_pos) | QR_PATTERN of (raw_interpolated_string * string * raw_pos) | PATTERN_SUBST of (raw_interpolated_string * raw_interpolated_string * string * raw_pos) | BAREWORD of (string * raw_pos) | BAREWORD_PAREN of (string * raw_pos) | REVISION of (string * raw_pos) | PERL_CHECKER_COMMENT of (string * raw_pos) | PO_COMMENT of (string * raw_pos) | POD of (string * raw_pos) | LABEL of (string * raw_pos) | COMMAND_STRING of (raw_interpolated_string * raw_pos) | PRINT_TO_STAR of ((string * string) * raw_pos) | PRINT_TO_SCALAR of ((string * string) * raw_pos) | QUOTEWORDS of (string * raw_pos) | COMPACT_HASH_SUBSCRIPT of (string * raw_pos) | RAW_HERE_DOC of ((string * raw_pos) ref * raw_pos) | HERE_DOC of (raw_interpolated_string * raw_pos) ref * raw_pos | FORMAT of (raw_interpolated_string * raw_pos) ref * raw_pos | SCALAR_IDENT of (string option * string * raw_pos) | ARRAY_IDENT of (string option * string * raw_pos) | HASH_IDENT of (string option * string * raw_pos) | FUNC_IDENT of (string option * string * raw_pos) | STAR_IDENT of (string option * string * raw_pos) | RAW_IDENT of (string option * string * raw_pos) | RAW_IDENT_PAREN of (string option * string * raw_pos) | ARRAYLEN_IDENT of (string option * string * raw_pos) | SUB_WITH_PROTO of (string * raw_pos) | FUNC_DECL_WITH_PROTO of (string option * string * string * raw_pos) | IF of raw_pos | ELSIF of raw_pos | ELSE of raw_pos | UNLESS of raw_pos | DO of raw_pos | WHILE of raw_pos | UNTIL of raw_pos | MY_OUR of (string * raw_pos) | CONTINUE of raw_pos | SUB of raw_pos | LOCAL of raw_pos | FOR of (string * raw_pos) | USE of raw_pos | PACKAGE of raw_pos | BEGIN of raw_pos | END of raw_pos | PRINT of (string * raw_pos) | NEW of (raw_pos) | AT of raw_pos | DOLLAR of raw_pos | PERCENT of raw_pos | AMPERSAND of raw_pos | STAR of raw_pos | ARRAYLEN of raw_pos | SEMI_COLON of raw_pos | PKG_SCOPE of raw_pos | PAREN of raw_pos | PAREN_END of raw_pos | BRACKET of raw_pos | BRACKET_END of raw_pos | BRACKET_HASHREF of raw_pos | ARRAYREF of raw_pos | ARRAYREF_END of raw_pos | ARROW of raw_pos | INCR of raw_pos | DECR of raw_pos | CONCAT of raw_pos | POWER of raw_pos | TIGHT_NOT of raw_pos | BIT_NEG of raw_pos | REF of raw_pos | ONE_SCALAR_PARA of (string * raw_pos) | PATTERN_MATCH of raw_pos | PATTERN_MATCH_NOT of raw_pos | MULT of (string * raw_pos) | MULT_L_STR of raw_pos | PLUS of (string * raw_pos) | BIT_SHIFT of (string * raw_pos) | LT of raw_pos | GT of raw_pos | COMPARE_OP of (string * raw_pos) | COMPARE_OP_STR of (string * raw_pos) | EQ_OP of (string * raw_pos) | EQ_OP_STR of (string * raw_pos) | BIT_AND of raw_pos | BIT_OR of raw_pos | BIT_XOR of raw_pos | AND_TIGHT of raw_pos | OR_TIGHT of raw_pos | DOTDOT of (string * raw_pos) | QUESTION_MARK of raw_pos | COLON of raw_pos | ASSIGN of (string * raw_pos) | COMMA of raw_pos | RIGHT_ARROW of raw_pos | NOT of raw_pos | AND of raw_pos | OR of raw_pos | XOR of raw_pos and raw_interpolated_string = (string * raw_token list) list let new_any mcontext any spaces pos = { mcontext = mcontext ; any = any ; spaces = spaces ; pos = pos } let rec concat_bareword_paren accu = function | PRINT(s, pos1) :: PAREN(pos2) :: l | BAREWORD(s, pos1) :: PAREN(pos2) :: l -> concat_bareword_paren (PAREN(pos2) :: BAREWORD_PAREN(s, pos1) :: accu) l | RAW_IDENT(kind, ident, pos1) :: PAREN(pos2) :: l -> concat_bareword_paren (PAREN(pos2) :: RAW_IDENT_PAREN(kind, ident, pos1) :: accu) l | [] -> List.rev accu | e :: l -> concat_bareword_paren (e :: accu) l let rec raw_token_to_pos_and_token spaces = function | INT(s, pos) -> pos, Parser.NUM(new_any M_int s spaces pos) | FLOAT(s, pos) -> pos, Parser.NUM(new_any M_float s spaces pos) | RAW_STRING(s, pos) -> pos, Parser.RAW_STRING(new_any M_string s spaces pos) | RAW_HERE_DOC(r, pos) -> pos, Parser.RAW_HERE_DOC(new_any M_string !r spaces pos) | STRING(l, pos) -> pos, Parser.STRING(new_any M_string (raw_interpolated_string_to_tokens l) spaces pos) | COMMAND_STRING(l, pos) -> pos, Parser.COMMAND_STRING(new_any (M_mixed [M_string; M_array]) (raw_interpolated_string_to_tokens l) spaces pos) | QR_PATTERN(s, opts, pos) -> pos, Parser.QR_PATTERN(new_any M_special (raw_interpolated_string_to_tokens s, opts) spaces pos) | PATTERN(s, opts, pos) -> pos, Parser.PATTERN(new_any M_special (raw_interpolated_string_to_tokens s, opts) spaces pos) | PATTERN_SUBST(from, to_, opts, pos) -> pos, Parser.PATTERN_SUBST(new_any M_special (raw_interpolated_string_to_tokens from, raw_interpolated_string_to_tokens to_, opts) spaces pos) | HERE_DOC(l, pos) -> pos, Parser.HERE_DOC(new_any M_string (raw_interpolated_string_to_tokens (fst !l), snd !l) spaces pos) | FORMAT(l, pos) -> pos, Parser.FORMAT(new_any M_string (raw_interpolated_string_to_tokens (fst !l), snd !l) spaces pos) | BAREWORD(s, pos) -> pos, Parser.BAREWORD(new_any M_special s spaces pos) | BAREWORD_PAREN(s, pos) -> pos, Parser.BAREWORD_PAREN(new_any M_special s spaces pos) | REVISION(s, pos) -> pos, Parser.REVISION(new_any M_revision s spaces pos) | PERL_CHECKER_COMMENT(s, pos) -> pos, Parser.PERL_CHECKER_COMMENT(new_any M_none s spaces pos) | PO_COMMENT(s, pos) -> pos, Parser.PO_COMMENT(new_any M_special s spaces pos) | POD(s, pos) -> pos, Parser.POD(new_any M_special s spaces pos) | LABEL(s, pos) -> pos, Parser.LABEL(new_any M_none s spaces pos) | PRINT(s, pos) -> pos, Parser.PRINT(new_any M_special s spaces pos) | PRINT_TO_STAR(s, pos) -> pos, Parser.PRINT_TO_STAR(new_any M_special s spaces pos) | PRINT_TO_SCALAR(s, pos) -> pos, Parser.PRINT_TO_SCALAR(new_any M_special s spaces pos) | QUOTEWORDS(s, pos) -> pos, Parser.QUOTEWORDS(new_any M_array s spaces pos) | COMPACT_HASH_SUBSCRIPT(s, pos) -> pos, Parser.COMPACT_HASH_SUBSCRIPT(new_any M_special s spaces pos) | SCALAR_IDENT(kind, name, pos) -> pos, Parser.SCALAR_IDENT(new_any M_special (kind, name) spaces pos) | ARRAY_IDENT(kind, name, pos) -> pos, Parser.ARRAY_IDENT(new_any M_special (kind, name) spaces pos) | HASH_IDENT(kind, name, pos) -> pos, Parser.HASH_IDENT(new_any M_special (kind, name) spaces pos) | FUNC_IDENT(kind, name, pos) -> pos, Parser.FUNC_IDENT(new_any M_special (kind, name) spaces pos) | STAR_IDENT(kind, name, pos) -> pos, Parser.STAR_IDENT(new_any M_special (kind, name) spaces pos) | RAW_IDENT(kind, name, pos) -> pos, Parser.RAW_IDENT(new_any M_special (kind, name) spaces pos) | RAW_IDENT_PAREN(kind, name, pos) -> pos, Parser.RAW_IDENT_PAREN(new_any M_special (kind, name) spaces pos) | ARRAYLEN_IDENT(kind, name, pos) -> pos, Parser.ARRAYLEN_IDENT(new_any M_special (kind, name) spaces pos) | SUB_WITH_PROTO(proto, pos) -> pos, Parser.SUB_WITH_PROTO(new_any M_special proto spaces pos) | FUNC_DECL_WITH_PROTO(fq, name, proto, pos) -> pos, Parser.FUNC_DECL_WITH_PROTO(new_any M_special (fq, name, proto) spaces pos) | NEW(pos) -> pos, Parser.NEW(new_any M_special () spaces pos) | COMPARE_OP(s, pos) -> pos, Parser.COMPARE_OP(new_any M_special s spaces pos) | COMPARE_OP_STR(s, pos) -> pos, Parser.COMPARE_OP_STR(new_any M_special s spaces pos) | EQ_OP(s, pos) -> pos, Parser.EQ_OP(new_any M_special s spaces pos) | EQ_OP_STR(s, pos) -> pos, Parser.EQ_OP_STR(new_any M_special s spaces pos) | ASSIGN(s, pos) -> pos, Parser.ASSIGN(new_any M_special s spaces pos) | FOR(s, pos) -> pos, Parser.FOR(new_any M_special s spaces pos) | DOTDOT(s, pos) -> pos, Parser.DOTDOT(new_any M_special s spaces pos) | MULT(s, pos) -> pos, Parser.MULT(new_any M_special s spaces pos) | BIT_SHIFT(s, pos) -> pos, Parser.BIT_SHIFT(new_any M_special s spaces pos) | PLUS(s, pos) -> pos, Parser.PLUS(new_any M_special s spaces pos) | ONE_SCALAR_PARA(s, pos) -> pos, Parser.ONE_SCALAR_PARA(new_any M_special s spaces pos) | MY_OUR(s, pos) -> pos, Parser.MY_OUR(new_any M_special s spaces pos) | EOF (pos) -> pos, Parser.EOF (new_any M_special () spaces pos) | IF (pos) -> pos, Parser.IF (new_any M_special () spaces pos) | ELSIF (pos) -> pos, Parser.ELSIF (new_any M_special () spaces pos) | ELSE (pos) -> pos, Parser.ELSE (new_any M_special () spaces pos) | UNLESS (pos) -> pos, Parser.UNLESS (new_any M_special () spaces pos) | DO (pos) -> pos, Parser.DO (new_any M_special () spaces pos) | WHILE (pos) -> pos, Parser.WHILE (new_any M_special () spaces pos) | UNTIL (pos) -> pos, Parser.UNTIL (new_any M_special () spaces pos) | CONTINUE (pos) -> pos, Parser.CONTINUE (new_any M_special () spaces pos) | SUB (pos) -> pos, Parser.SUB (new_any M_special () spaces pos) | LOCAL (pos) -> pos, Parser.LOCAL (new_any M_special () spaces pos) | USE (pos) -> pos, Parser.USE (new_any M_special () spaces pos) | PACKAGE (pos) -> pos, Parser.PACKAGE (new_any M_special () spaces pos) | BEGIN (pos) -> pos, Parser.BEGIN (new_any M_special () spaces pos) | END (pos) -> pos, Parser.END (new_any M_special () spaces pos) | AT (pos) -> pos, Parser.AT (new_any M_special () spaces pos) | DOLLAR (pos) -> pos, Parser.DOLLAR (new_any M_special () spaces pos) | PERCENT (pos) -> pos, Parser.PERCENT (new_any M_special () spaces pos) | AMPERSAND (pos) -> pos, Parser.AMPERSAND (new_any M_special () spaces pos) | STAR (pos) -> pos, Parser.STAR (new_any M_special () spaces pos) | ARRAYLEN (pos) -> pos, Parser.ARRAYLEN (new_any M_special () spaces pos) | SEMI_COLON (pos) -> pos, Parser.SEMI_COLON (new_any M_none () spaces pos) | PKG_SCOPE (pos) -> pos, Parser.PKG_SCOPE (new_any M_special () spaces pos) | PAREN (pos) -> pos, Parser.PAREN (new_any M_special () spaces pos) | PAREN_END (pos) -> pos, Parser.PAREN_END (new_any M_special () spaces pos) | BRACKET (pos) -> pos, Parser.BRACKET (new_any M_special () spaces pos) | BRACKET_END (pos) -> pos, Parser.BRACKET_END (new_any M_special () spaces pos) | BRACKET_HASHREF (pos) -> pos, Parser.BRACKET_HASHREF (new_any M_special () spaces pos) | ARRAYREF (pos) -> pos, Parser.ARRAYREF (new_any M_special () spaces pos) | ARRAYREF_END (pos) -> pos, Parser.ARRAYREF_END (new_any M_special () spaces pos) | ARROW (pos) -> pos, Parser.ARROW (new_any M_special () spaces pos) | INCR (pos) -> pos, Parser.INCR (new_any M_special () spaces pos) | DECR (pos) -> pos, Parser.DECR (new_any M_special () spaces pos) | POWER (pos) -> pos, Parser.POWER (new_any M_special () spaces pos) | TIGHT_NOT (pos) -> pos, Parser.TIGHT_NOT (new_any M_special () spaces pos) | BIT_NEG (pos) -> pos, Parser.BIT_NEG (new_any M_special () spaces pos) | REF (pos) -> pos, Parser.REF (new_any M_special () spaces pos) | PATTERN_MATCH (pos) -> pos, Parser.PATTERN_MATCH (new_any M_special () spaces pos) | PATTERN_MATCH_NOT(pos) -> pos, Parser.PATTERN_MATCH_NOT(new_any M_special () spaces pos) | LT (pos) -> pos, Parser.LT (new_any M_special () spaces pos) | GT (pos) -> pos, Parser.GT (new_any M_special () spaces pos) | BIT_AND (pos) -> pos, Parser.BIT_AND (new_any M_special () spaces pos) | BIT_OR (pos) -> pos, Parser.BIT_OR (new_any M_special () spaces pos) | BIT_XOR (pos) -> pos, Parser.BIT_XOR (new_any M_special () spaces pos) | AND_TIGHT (pos) -> pos, Parser.AND_TIGHT (new_any M_special () spaces pos) | OR_TIGHT (pos) -> pos, Parser.OR_TIGHT (new_any M_special () spaces pos) | QUESTION_MARK (pos) -> pos, Parser.QUESTION_MARK (new_any M_special () spaces pos) | COLON (pos) -> pos, Parser.COLON (new_any M_special () spaces pos) | COMMA (pos) -> pos, Parser.COMMA (new_any M_special () spaces pos) | CONCAT (pos) -> pos, Parser.CONCAT (new_any M_special () spaces pos) | MULT_L_STR (pos) -> pos, Parser.MULT_L_STR (new_any M_special () spaces pos) | RIGHT_ARROW (pos) -> pos, Parser.RIGHT_ARROW (new_any M_special () spaces pos) | NOT (pos) -> pos, Parser.NOT (new_any M_special () spaces pos) | AND (pos) -> pos, Parser.AND (new_any M_special () spaces pos) | OR (pos) -> pos, Parser.OR (new_any M_special () spaces pos) | XOR (pos) -> pos, Parser.XOR (new_any M_special () spaces pos) | SPACE _ | CR -> internal_error "raw_token_to_token" and raw_token_to_token spaces raw_token = let _, token = raw_token_to_pos_and_token spaces raw_token in token and raw_interpolated_string_to_tokens l = List.map (fun (s, rtok) -> s, concat_spaces Space_0 rtok) l and concat_spaces spaces = function | CR :: l -> concat_spaces Space_cr l | SPACE n :: l -> let spaces' = match spaces with | Space_cr -> Space_cr | Space_0 -> if n = 1 then Space_1 else Space_n | _ -> Space_n in concat_spaces spaces' l | [] -> [] | token :: l -> raw_token_to_pos_and_token spaces token :: concat_spaces Space_0 l let rec lexbuf2list accu t lexbuf = match t lexbuf with | EOF pos -> List.rev (EOF pos :: accu) | e -> lexbuf2list (e :: accu) t lexbuf let get_token token lexbuf = let tokens = lexbuf2list [] token lexbuf in let tokens = concat_bareword_paren [] tokens in let tokens = concat_spaces Space_0 tokens in tokens let next_rule = Stack.create() let pos lexbuf = lexeme_start lexbuf, lexeme_end lexbuf let pos2sfull_with start end_ = Info.pos2sfull (!current_file, start, end_) let pos2sfull lexbuf = pos2sfull_with (lexeme_start lexbuf) (lexeme_end lexbuf) let putback lexbuf nb = lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_curr_pos - nb let add_a_new_line raw_pos = incr current_file_current_line ; lpush current_file_lines_starts raw_pos let here_docs = Queue.create() let raw_here_docs = Queue.create() let current_here_doc_mark = ref "" let here_doc_next_line mark = let here_doc_ref = ref([], bpos) in Queue.push (mark, here_doc_ref) here_docs ; here_doc_ref let raw_here_doc_next_line mark = let here_doc_ref = ref("", bpos) in Queue.push (mark, here_doc_ref) raw_here_docs ; here_doc_ref let delimit_char = ref '/' type string_escape_kinds = Double_quote | Qq | Delimited | Here_doc let string_escape_kind = ref Double_quote let string_quote_escape = ref false let string_escape_useful = ref (Left false) let not_ok_for_match = ref (-1) let string_nestness = ref 0 let string_is_i18n = ref false let building_current_interpolated_string = Stack.create() let building_current_string = Stack.create() let current_string_start_pos = ref 0 let current_string_start_line = ref 0 let warn_with_pos (start, end_) err = print_endline_flush (pos2sfull_with start end_ ^ err) let warn lexbuf err = warn_with_pos (pos lexbuf) err let die lexbuf err = failwith (pos2sfull_with (lexeme_start lexbuf) (lexeme_end lexbuf) ^ err) let die_in_string lexbuf err = failwith (pos2sfull_with !current_string_start_pos (lexeme_end lexbuf) ^ err) let warn_escape_unneeded lexbuf c = warn lexbuf ("you can replace \\" ^ c ^ " with " ^ c) let next_interpolated toks = let r = Stack.top building_current_string in Queue.push (!r, toks) (Stack.top building_current_interpolated_string) ; r := "" let raw_ins t lexbuf = Stack.push (ref "") building_current_string; current_string_start_pos := lexeme_start lexbuf; t lexbuf ; !(Stack.pop building_current_string), (!current_string_start_pos, lexeme_end lexbuf) let ins t lexbuf = Stack.push (Queue.create()) building_current_interpolated_string ; Stack.push (ref "") building_current_string; current_string_start_pos := lexeme_start lexbuf; t lexbuf ; next_interpolated [] ; let _ = Stack.pop building_current_string in queue2list (Stack.pop building_current_interpolated_string), (!current_string_start_pos, lexeme_end lexbuf) let raw_ins_to_string t lexbuf = let s, pos = raw_ins t lexbuf in not_ok_for_match := lexeme_end lexbuf; RAW_STRING(s, pos) let ins_to_string t lexbuf = string_escape_useful := Left false ; string_quote_escape := false ; let s, pos = ins t lexbuf in if not !string_is_i18n then (match !string_escape_useful, s with | Right c, [ _, [] ] -> warn_with_pos pos ("you can replace \"xxx\\" ^ c ^ "xxx\" with 'xxx" ^ c ^ "xxx', that way you don't need to escape <" ^ c ^ ">") | _ -> if !string_quote_escape then let full_s = String.concat "" (List.map fst s) in let nb = string_fold_left (fun nb c -> if nb < 0 then nb else if c = '(' then nb + 1 else if c = ')' then nb - 1 else nb ) 0 full_s in if nb = 0 then warn_with_pos pos "you can replace \"xxx\\\"xxx\" with qq(xxx\"xxx), that way you don't need to escape <\">" ); not_ok_for_match := lexeme_end lexbuf; string_is_i18n := false ; STRING(s, pos) let next_s s t lexbuf = let r = Stack.top building_current_string in r := !r ^ s ; t lexbuf let next t lexbuf = next_s (lexeme lexbuf) t lexbuf let ins_re re_delimited_string lexbuf = let s, pos = ins re_delimited_string lexbuf in List.iter (fun (s, _) -> if str_contains s "[^\\s]" then warn lexbuf "you can replace [^\\s] with \\S"; if str_contains s "[^\\w]" then warn lexbuf "you can replace [^\\w] with \\W" ) s ; s, pos let string_interpolate token pre lexbuf = let s = lexeme lexbuf in let local_lexbuf = Lexing.from_string (pre ^ s ^ " ") in (* add a space to help tokenizing "xxx$$" *) local_lexbuf.lex_start_p <- lexbuf.lex_start_p ; local_lexbuf.lex_curr_p <- lexbuf.lex_start_p ; local_lexbuf.lex_abs_pos <- lexeme_start lexbuf ; let l = lexbuf2list [] token local_lexbuf in let l = concat_bareword_paren [] l in next_interpolated l; (Stack.pop next_rule) lexbuf let ident_type_from_char fq name lexbuf c = not_ok_for_match := lexeme_end lexbuf; match c with | '$' -> SCALAR_IDENT(fq, name, pos lexbuf) | '@' -> ARRAY_IDENT (fq, name, pos lexbuf) | '%' -> HASH_IDENT (fq, name, pos lexbuf) | '&' -> FUNC_IDENT (fq, name, pos lexbuf) | '*' -> STAR_IDENT (fq, name, pos lexbuf) | _ -> internal_error "ident_type_from_char" let split_at_two_colons s = let i_fq = String.rindex s ':' in String.sub s 0 (i_fq - 1), skip_n_char (i_fq + 1) s let ident_from_lexbuf lexbuf = let fq, name = split_at_two_colons (lexeme lexbuf) in RAW_IDENT(Some fq, name, pos lexbuf) let typed_ident_from_lexbuf lexbuf = let s = lexeme lexbuf in ident_type_from_char None (skip_n_char 1 s) lexbuf s.[0] let typed_fqident_from_lexbuf lexbuf = let s = lexeme lexbuf in let fq, name = split_at_two_colons (skip_n_char 1 s) in ident_type_from_char (Some fq) name lexbuf s.[0] let arraylen_ident_from_lexbuf lexbuf = not_ok_for_match := lexeme_end lexbuf; let s = lexeme lexbuf in ARRAYLEN_IDENT(None, skip_n_char 2 s, pos lexbuf) let arraylen_fqident_from_lexbuf lexbuf = let s = lexeme lexbuf in let fq, name = split_at_two_colons (skip_n_char 2 s) in ARRAYLEN_IDENT(Some fq, name, pos lexbuf) let check_multi_line_delimited_string opts (start, end_) = let check = match opts with | None -> true | Some s -> not (String.contains s 'x') in if check then if !current_file_current_line <> !current_string_start_line then failwith (pos2sfull_with start end_ ^ "multi-line patterns are not allowed (or use /x modifier)") let hex_in_string lexbuf next_rule s = let i = try int_of_string ("0x" ^ s) with Failure("int_of_string") -> die_in_string lexbuf ("Bad_hex_in_string \"" ^ lexeme lexbuf ^ "\"") in let s = if i < 256 then String.make 1 (Char.chr i) else "\\x{" ^ s ^ "}" in next_s s (Stack.pop next_rule) lexbuf let set_delimit_char lexbuf op = match lexeme_char lexbuf (String.length op) with | '@' -> die lexbuf ("don't use " ^ op ^ "@...@, replace @ with / ! , or |") | c -> delimit_char := c } let stash = [ '$' '@' '%' '&' '*' ] let ident_start = ['a'-'z' 'A'-'Z' '_'] let ident = ident_start ['0'-'9' 'A'-'Z' 'a'-'z' '_'] * let pattern_separator = [ '/' '!' ',' '|' '@' ] let in_string_expr = (ident | (ident? ("::" ident)+)) "->"? (('{' [^ '{' '}' '\n']* '}') | ('[' [^ '[' ']' '\n']* ']'))* rule token = parse | [' ' '\t']+ { (* propagate not_ok_for_match when it was set by the previous token *) if lexeme_start lexbuf = !not_ok_for_match then not_ok_for_match := lexeme_end lexbuf; SPACE(lexeme_end lexbuf - lexeme_start lexbuf) } | "# perl_checker: " [^ '\n']* { PERL_CHECKER_COMMENT(skip_n_char 16 (lexeme lexbuf), pos lexbuf) } | "#-PO: " [^ '\n']* { PO_COMMENT(skip_n_char 1 (lexeme lexbuf), pos lexbuf) } | '#' [^ '\n']* { SPACE(1) } | "\n=" { add_a_new_line(lexeme_end lexbuf - 1); let _ = ins pod_command lexbuf in token lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); (try let (mark, r) = Queue.pop here_docs in current_here_doc_mark := mark ; r := ins here_doc lexbuf with Queue.Empty -> try let (mark, r) = Queue.pop raw_here_docs in current_here_doc_mark := mark ; r := raw_ins raw_here_doc lexbuf with Queue.Empty -> ()); CR } | "->" { ARROW(pos lexbuf) } | "++" { INCR(pos lexbuf) } | "--" { DECR(pos lexbuf) } | "**" { POWER(pos lexbuf) } | "!" { TIGHT_NOT(pos lexbuf) } | "~" { BIT_NEG(pos lexbuf) } | "=~" { PATTERN_MATCH(pos lexbuf) } | "!~" { PATTERN_MATCH_NOT(pos lexbuf) } | "*" { MULT(lexeme lexbuf, pos lexbuf) } | "%" { MULT(lexeme lexbuf, pos lexbuf) } | "x" { MULT_L_STR(pos lexbuf) } | "+" { PLUS(lexeme lexbuf, pos lexbuf) } | "-" { PLUS(lexeme lexbuf, pos lexbuf) } | "." { CONCAT(pos lexbuf) } | "<<" { BIT_SHIFT(lexeme lexbuf, pos lexbuf) } | ">>" { BIT_SHIFT(lexeme lexbuf, pos lexbuf) } | "<" { LT(pos lexbuf) } | ">" { GT(pos lexbuf) } | "<=" | ">=" { COMPARE_OP(lexeme lexbuf, pos lexbuf) } | "lt" | "gt" | "le" | "ge" { COMPARE_OP_STR(lexeme lexbuf, pos lexbuf) } | "==" | "!=" | "<=>" { EQ_OP(lexeme lexbuf, pos lexbuf) } | "eq" | "ne" | "cmp" { EQ_OP_STR(lexeme lexbuf, pos lexbuf) } | "&" { BIT_AND(pos lexbuf) } | "|" { BIT_OR(pos lexbuf) } | "^" { BIT_XOR(pos lexbuf) } | "&&" { AND_TIGHT(pos lexbuf) } | "||" { OR_TIGHT(pos lexbuf) } | ".." { DOTDOT(lexeme lexbuf, pos lexbuf) } | "..." { DOTDOT(lexeme lexbuf, pos lexbuf) } | "?" { QUESTION_MARK(pos lexbuf) } | ":" { COLON(pos lexbuf) } | "::" { PKG_SCOPE(pos lexbuf) } | "=" | "+=" | "-=" | "*=" | ".=" | "|=" | "&=" | "^=" | "||=" | "&&=" { ASSIGN(lexeme lexbuf, pos lexbuf) } | "<<=" | ">>=" | "**=" { warn lexbuf (Printf.sprintf "don't use \"%s\", use the expanded version instead" (lexeme lexbuf)) ; ASSIGN(lexeme lexbuf, pos lexbuf) } | "," { COMMA(pos lexbuf) } | "=>" { RIGHT_ARROW(pos lexbuf) } | "not" { NOT(pos lexbuf) } | "and" { AND(pos lexbuf) } | "or" { OR(pos lexbuf) } | "xor" { XOR(pos lexbuf) } | "if" { IF(pos lexbuf) } | "else" { ELSE(pos lexbuf) } | "elsif" { ELSIF(pos lexbuf) } | "unless" { UNLESS(pos lexbuf) } | "do" { DO(pos lexbuf) } | "while" { WHILE(pos lexbuf) } | "until" { UNTIL(pos lexbuf) } | "foreach" { FOR(lexeme lexbuf, pos lexbuf) } | "for" { FOR(lexeme lexbuf, pos lexbuf) } | "my" { MY_OUR(lexeme lexbuf, pos lexbuf) } | "our" { MY_OUR(lexeme lexbuf, pos lexbuf) } | "local" { LOCAL(pos lexbuf) } | "continue" { CONTINUE(pos lexbuf) } | "sub" { SUB(pos lexbuf) } | "package" { PACKAGE(pos lexbuf) } | "use" { USE(pos lexbuf) } | "BEGIN" { BEGIN(pos lexbuf) } | "END" { END(pos lexbuf) } | "print" { PRINT(lexeme lexbuf, pos lexbuf) } | "printf" { PRINT(lexeme lexbuf, pos lexbuf) } | "new" { NEW(pos lexbuf) } | "format" { let pos = pos lexbuf in FORMAT(here_doc_next_line ".", pos) } | "defined" | "length" | "keys" | "exists" | "shift" | "eval" | "ref" { ONE_SCALAR_PARA(lexeme lexbuf, pos lexbuf) } | "split" | "grep" { (* ok_for_match! *) BAREWORD(lexeme lexbuf, pos lexbuf) } | "print " ['A'-'Z'] ['A'-'Z' '0'-'9']* ['\n' ' '] { putback lexbuf 1; PRINT_TO_STAR(("print", skip_n_char 6 (lexeme lexbuf)), pos lexbuf) } | "print $" ident ['\n' ' '] { putback lexbuf 1; PRINT_TO_SCALAR(("print", skip_n_char 7 (lexeme lexbuf)), pos lexbuf); } | "printf " ['A'-'Z'] ['A'-'Z' '0'-'9']* ['\n' ' '] { putback lexbuf 1; PRINT_TO_STAR(("printf", skip_n_char 7 (lexeme lexbuf)), pos lexbuf) } | "printf $" ident ['\n' ' '] { putback lexbuf 1; PRINT_TO_SCALAR(("printf", skip_n_char 8 (lexeme lexbuf)), pos lexbuf); } | ident ' '* "=>" { (* needed so that (if => 1) works *) let s = lexeme lexbuf in let end_ = String.length s - 1 in let ident_end = non_rindex_from s (end_ - 2) ' ' in putback lexbuf (end_ - ident_end); BAREWORD(String.sub s 0 (ident_end+1), pos lexbuf) } | "{" ident "}" { (* needed so that $h{if} works *) not_ok_for_match := lexeme_end lexbuf; COMPACT_HASH_SUBSCRIPT(skip_n_char_ 1 1 (lexeme lexbuf), pos lexbuf) } | '@' { AT(pos lexbuf) } | '$' { DOLLAR(pos lexbuf) } | '$' '#' { ARRAYLEN(pos lexbuf) } | '%' ['$' '{'] { putback lexbuf 1; PERCENT(pos lexbuf) } | '&' ['$' '{'] { putback lexbuf 1; AMPERSAND(pos lexbuf) } | '*' ['$' '{'] { putback lexbuf 1; if lexeme_start lexbuf = !not_ok_for_match then MULT("*", pos lexbuf) else STAR(pos lexbuf) } | ';' { SEMI_COLON(pos lexbuf) } | '(' { PAREN(pos lexbuf) } | '{' { BRACKET(pos lexbuf) } | "+{"{ BRACKET_HASHREF(pos lexbuf) } | '[' { ARRAYREF(pos lexbuf) } | ')' { not_ok_for_match := lexeme_end lexbuf; PAREN_END(pos lexbuf) } | '}' { not_ok_for_match := lexeme_end lexbuf; BRACKET_END(pos lexbuf) } | ']' { not_ok_for_match := lexeme_end lexbuf; ARRAYREF_END(pos lexbuf) } | "/" { if lexeme_start lexbuf = !not_ok_for_match then MULT("/", pos lexbuf) else ( delimit_char := '/' ; current_string_start_line := !current_file_current_line; let s, pos = ins_re re_delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in check_multi_line_delimited_string (Some opts) pos ; PATTERN(s, opts, pos) ) } | "/=" { if lexeme_start lexbuf = !not_ok_for_match then ASSIGN(lexeme lexbuf, pos lexbuf) else ( putback lexbuf 1 ; delimit_char := '/' ; let s, pos = ins_re re_delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in PATTERN(s, opts, pos) ) } | "m" pattern_separator { set_delimit_char lexbuf "m" ; current_string_start_line := !current_file_current_line; let s, pos = ins_re re_delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in check_multi_line_delimited_string (Some opts) pos ; PATTERN(s, opts, pos) } | "qr" pattern_separator { set_delimit_char lexbuf "qr" ; current_string_start_line := !current_file_current_line; let s, pos = ins_re re_delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in check_multi_line_delimited_string (Some opts) pos ; QR_PATTERN(s, opts, pos) } | "s" pattern_separator { set_delimit_char lexbuf "s" ; current_string_start_line := !current_file_current_line; let s1, (start, _) = ins_re re_delimited_string lexbuf in let s2, (_, end_) = ins delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in let pos = start, end_ in if String.contains opts 'e' && sum (List.map (fun (s, _) -> count_chars_in_string s '"') s2) > 2 then die lexbuf ("do not write so complicated things in the eval part of s///,\n" ^ "i generate wrong warnings for things like s/xxx/die \"yyy \\\"zzz\\\" \"/") check_multi_line_delimited_string (Some opts) pos ; PATTERN_SUBST(s1, s2, opts, pos) } | "tr" pattern_separator { set_delimit_char lexbuf "tr" ; current_string_start_line := !current_file_current_line; let s1, (start, _) = ins delimited_string lexbuf in let s2, (_, end_) = ins delimited_string lexbuf in let opts, _ = raw_ins pattern_options lexbuf in let pos = start, end_ in check_multi_line_delimited_string None pos ; PATTERN_SUBST(s1, s2, opts, pos) } | "<<" ident { not_ok_for_match := lexeme_end lexbuf; HERE_DOC(here_doc_next_line (skip_n_char 2 (lexeme lexbuf)), pos lexbuf) } | "<<'" ident "'" { not_ok_for_match := lexeme_end lexbuf; RAW_HERE_DOC(raw_here_doc_next_line (skip_n_char_ 3 1 (lexeme lexbuf)), pos lexbuf) } | "<<" ' '+ "'" | "<<" ' '+ ident { failwith (pos2sfull_with (lexeme_start lexbuf + 2) (lexeme_end lexbuf) ^ "No space allowed between \"<<\" and the marker") } | "<<" ' '* '"' { failwith (pos2sfull_with (lexeme_start lexbuf + 2) (lexeme_end lexbuf) ^ "Don't use <<\"MARK\", use <>" (pos2sfull lexbuf) (lexeme lexbuf)) } and string = parse | '"' { () } | '\\' { Stack.push string next_rule ; string_escape_kind := Double_quote; string_escape lexbuf } | '$' { Stack.push string next_rule ; string_interpolate_scalar lexbuf } | '@' { Stack.push string next_rule ; string_interpolate_array lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); next string lexbuf } | "'" { string_escape_useful := Left true ; next string lexbuf } | [^ '\n' '\\' '"' '$' '@']+ { next string lexbuf } | eof { die_in_string lexbuf "Unterminated_string" } and delimited_string = parse | '\\' { Stack.push delimited_string next_rule ; string_escape_kind := Delimited; string_escape lexbuf } | '$' { Stack.push delimited_string next_rule ; delimited_string_interpolate_scalar lexbuf } | '@' { Stack.push delimited_string next_rule ; delimited_string_interpolate_array lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); next delimited_string lexbuf } | eof { die_in_string lexbuf "Unterminated_delimited_string" } | [ ^ '\n' '\\' '$' '@'] { if lexeme_char lexbuf 0 <> !delimit_char then next delimited_string lexbuf } and re_delimited_string = parse | '\\' { Stack.push re_delimited_string next_rule ; re_string_escape lexbuf } | '$' { Stack.push re_delimited_string next_rule ; delimited_string_interpolate_scalar lexbuf } | '@' { Stack.push re_delimited_string next_rule ; delimited_string_interpolate_array lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); next re_delimited_string lexbuf } | eof { die_in_string lexbuf "Unterminated_delimited_string" } | [ ^ '\n' '\\' '$' '@'] { if lexeme_char lexbuf 0 <> !delimit_char then next re_delimited_string lexbuf } and rawstring = parse | ''' { () } | '\n' { add_a_new_line(lexeme_end lexbuf); next rawstring lexbuf } | '\\' { next rawstring lexbuf } | "\\'" { next_s "'" rawstring lexbuf } | [^ '\n' ''' '\\']+ { next rawstring lexbuf } | eof { die_in_string lexbuf "Unterminated_rawstring" } and qqstring = parse | ')' { if !string_nestness <> 0 then (decr string_nestness; next qqstring lexbuf) } | '(' { incr string_nestness; next qqstring lexbuf } | '\\' { Stack.push qqstring next_rule ; string_escape_kind := Qq; string_escape lexbuf } | '$' { Stack.push qqstring next_rule ; string_interpolate_scalar lexbuf } | '@' { Stack.push qqstring next_rule ; string_interpolate_array lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); next qqstring lexbuf } | [^ '\n' '(' ')' '\\' '$' '@']+ { next qqstring lexbuf } | eof { die_in_string lexbuf "Unterminated_qqstring" } and qstring = parse | ')' { if !string_nestness <> 0 then (decr string_nestness ; next qstring lexbuf) } | '(' { incr string_nestness; next qstring lexbuf } | '\n' { add_a_new_line(lexeme_end lexbuf); next qstring lexbuf } | [^ '\n' '(' ')']+ { next qstring lexbuf } | eof { die_in_string lexbuf "Unterminated_qstring" } and here_doc = parse | '\\' { Stack.push here_doc next_rule ; string_escape_kind := Here_doc; string_escape lexbuf } | '$' { Stack.push here_doc next_rule ; string_interpolate_scalar lexbuf } | '@' { Stack.push here_doc next_rule ; string_interpolate_array lexbuf } | [ ^ '\n' '\\' '$' '@' ]* { let s = lexeme lexbuf in if chomps s <> !current_here_doc_mark then next_s s here_doc lexbuf else if s <> !current_here_doc_mark then Printf.eprintf "%sTrailing spaces after HERE-document mark\n" (pos2sfull lexbuf) } | '\n' { add_a_new_line(lexeme_end lexbuf); next here_doc lexbuf } | eof { die_in_string lexbuf "Unterminated_here_doc" } and raw_here_doc = parse | [ ^ '\n' ]* { let s = lexeme lexbuf in if chomps s <> !current_here_doc_mark then next_s s raw_here_doc lexbuf else if s <> !current_here_doc_mark then Printf.eprintf "%sTrailing spaces after HERE-document mark\n" (pos2sfull lexbuf) } | '\n' { add_a_new_line(lexeme_end lexbuf); next raw_here_doc lexbuf } | eof { die_in_string lexbuf "Unterminated_raw_here_doc" } and string_escape = parse | ['0'-'9'] { string_escape_useful := Left true; next_s (String.make 1 (Char.chr (int_of_string (lexeme lexbuf)))) (Stack.pop next_rule) lexbuf } | 'n' { string_escape_useful := Left true; next_s "\n" (Stack.pop next_rule) lexbuf } | 't' { string_escape_useful := Left true; next_s "\t" (Stack.pop next_rule) lexbuf } | "x{" [^ '}']* '}' { string_escape_useful := Left true; hex_in_string lexbuf next_rule (skip_n_char_ 2 1 (lexeme lexbuf)) } | 'x' [^ '{'] _ { string_escape_useful := Left true; hex_in_string lexbuf next_rule (skip_n_char 1 (lexeme lexbuf)) } | '\n' { die lexbuf "do not use \"\\\" before end-of-line, it's useless and generally bad" } | '\\'{ next_s "\\" (Stack.pop next_rule) lexbuf } | ['b' 'f' 'a' 'r'] { string_escape_useful := Left true; next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | ['$' '@' '%' '{' '['] { if !string_escape_useful = Left false then string_escape_useful := Right (lexeme lexbuf) ; next_s (lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { let c = lexeme lexbuf in (match !string_escape_kind with | Double_quote -> if c <> "\"" then warn_escape_unneeded lexbuf c else ( if !string_escape_useful = Left false then string_escape_useful := Right c ; string_quote_escape := true ) | Qq -> if c <> "(" && c <> ")" then warn_escape_unneeded lexbuf c | Here_doc -> warn_escape_unneeded lexbuf c | Delimited -> if c = String.make 1 !delimit_char then warn lexbuf ("change the delimit character " ^ String.make 1 !delimit_char ^ " to get rid of this escape") else warn_escape_unneeded lexbuf c); let c = if c = "\"" then c else "\\" ^ c in next_s c (Stack.pop next_rule) lexbuf } and re_string_escape = parse | ['0'-'9'] { next_s (String.make 1 (Char.chr (int_of_string (lexeme lexbuf)))) (Stack.pop next_rule) lexbuf } | '\\'{ next_s "\\" (Stack.pop next_rule) lexbuf } | 'n' { next_s "\n" (Stack.pop next_rule) lexbuf } | 't' { next_s "\t" (Stack.pop next_rule) lexbuf } | "x{" [^ '}']* '}' { hex_in_string lexbuf next_rule (skip_n_char_ 2 1 (lexeme lexbuf)) } | 'x' [^ '{'] _ { hex_in_string lexbuf next_rule (skip_n_char 1 (lexeme lexbuf)) } | '\n' { die lexbuf "do not use \"\\\" before end-of-line, it's useless and generally bad" } | ['r' 'b' 'f' '$' '@' '%' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-'] { next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { let c = lexeme lexbuf in if c = String.make 1 !delimit_char then warn lexbuf ("change the delimit character " ^ String.make 1 !delimit_char ^ " to get rid of this escape") else warn_escape_unneeded lexbuf c ; next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } and string_interpolate_scalar = parse | '$' ident | ['0'-'9'] | '{' [^ '{' '}']* '}' | in_string_expr | [^ '{' '}' ' ' '\n' '"'] { (* eg: $! $$ *) string_interpolate token "$" lexbuf } | "{" | ident "->"? '{' | '"' { putback lexbuf 1; next_s "$" (Stack.pop next_rule) lexbuf } | eof { next_s "$" (Stack.pop next_rule) lexbuf } | _ { warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); next_s ("$" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } and delimited_string_interpolate_scalar = parse (* needed for delimited string like m!foo$! where $! should not be taken as is... *) | '$' ident | ['0'-'9'] | '{' [^ '{' '}']* '}' | (ident | (ident? ("::" ident)+)) "->"? ('{' [^ '{' '}' '\n']* '}')* | (ident | (ident? ("::" ident)+)) "->"? (('{' [^ '{' '}' '\n']* '}') | ('[' ('$' ident | ['0'-'9']+) ']'))* { string_interpolate token "$" lexbuf } | (ident | (ident? ("::" ident)+)) "->"? (('{' [^ '{' '}' '\n']* '}') | ('[' ['$' '0'-'9'] [^ '[' ']' '\n']* ']'))* { die lexbuf (Printf.sprintf "I really can't handle this, [xxx] can be indexing or not based on stellar position :-(") } | "{" | ident "->"? '{' | eof { next_s "$" (Stack.pop next_rule) lexbuf } | _ { let c = lexeme_char lexbuf 0 in if c <> !delimit_char && c <> '|' && c<>')' && c<>'/' && c<>' ' then warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); putback lexbuf 1; next_s "$" (Stack.pop next_rule) lexbuf } and string_interpolate_array = parse | '$' ident | '{' [^ '{' '}']* '}' | in_string_expr { string_interpolate token "@" lexbuf } | [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | '"' { putback lexbuf 1; next_s "@" (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } and delimited_string_interpolate_array = parse | '$' ident | '{' [^ '{' '}']* '}' | in_string_expr { string_interpolate token "@" lexbuf } | [ '@' '*' '<' '>' ']' '.' '(' ' ' ] { next_s ("@" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | eof { next_s "@" (Stack.pop next_rule) lexbuf } | _ { let c = lexeme_char lexbuf 0 in if c <> !delimit_char then warn lexbuf (Printf.sprintf "weird \"%s\" in string" (lexeme lexbuf)); putback lexbuf 1; next_s "@" (Stack.pop next_rule) lexbuf } and pattern_options = parse | [ 'g' 'i' 'm' 'o' 's' 'x' 'e' 'd' ] { next pattern_options lexbuf } | _ { putback lexbuf 1; () } and pod_command = parse | [^ '\n' ]+ { let s = lexeme lexbuf in let command = String.sub s 0 (try String.index s ' ' with Not_found -> String.length s) in match command with | "cut" -> if !(Stack.top building_current_string) = "" then failwith(pos2sfull lexbuf ^ "found POD command \"=cut\" but it is not a POD block") | "head1" | "head2" | "head3" | "head4" | "over" | "item" | "back" | "pod" | "begin" | "end" | "for" -> next pod lexbuf | s -> failwith(pos2sfull lexbuf ^ "unknown POD command \"" ^ s ^ "\"") } | _ { failwith(pos2sfull lexbuf ^ "POD command expected") } and pod = parse | "\n=" { add_a_new_line(lexeme_end lexbuf - 1); next pod_command lexbuf } | "\n" [^ '=' '\n'] [^ '\n']* | "\n" { add_a_new_line(lexeme_end lexbuf); next pod lexbuf } | eof | _ { failwith(pos2sfull_with !current_string_start_pos (lexeme_end lexbuf) ^ "POD block still open") } ='n1189' href='#n1189'>1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 
msgid ""
msgstr ""
"Project-Id-Version: initscripts 5.70\n"
"POT-Creation-Date: 2001-03-07 11:51-0500\n"
"PO-Revision-Date: 2002-03-02 17:31GMT\n"
"Last-Translator: David Sungmin Joo (주성민) <djoo@redhat.com>\n"
"Language-Team: Korean <ko@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=EUCKR\n"
"Content-Transfer-Encoding: 8bit\n"
"X-Generator: KBabel 0.9.5\n"

#: /etc/rc.d/init.d/ipchains:72 /etc/rc.d/init.d/iptables:77
msgid "Resetting built-in chains to the default ACCEPT policy:"
msgstr "IP CHAINS의 ACCEPT 정책들을 기본값으로 재설정 합니다:"

#: /etc/rc.d/init.d/amd:39 /etc/rc.d/init.d/anacron:25
#: /etc/rc.d/init.d/arpwatch:35 /etc/rc.d/init.d/atd:39
#: /etc/rc.d/init.d/bootparamd:38 /etc/rc.d/init.d/crond:33
#: /etc/rc.d/init.d/httpd:51 /etc/rc.d/init.d/identd:54
#: /etc/rc.d/init.d/kadmin:47 /etc/rc.d/init.d/kprop:37
#: /etc/rc.d/init.d/krb524:37 /etc/rc.d/init.d/krb5kdc:37
#: /etc/rc.d/init.d/ldap:63 /etc/rc.d/init.d/ldap:70 /etc/rc.d/init.d/lpd:57
#: /etc/rc.d/init.d/mcserv:32 /etc/rc.d/init.d/mysqld:53
#: /etc/rc.d/init.d/mysqld:55 /etc/rc.d/init.d/named:58
#: /etc/rc.d/init.d/nscd:58 /etc/rc.d/init.d/portmap:60
#: /etc/rc.d/init.d/pxe:32 /etc/rc.d/init.d/radvd:45 /etc/rc.d/init.d/rarpd:32
#: /etc/rc.d/init.d/rwalld:33 /etc/rc.d/init.d/snmpd:30
#: /etc/rc.d/init.d/tWnn:42 /etc/rc.d/init.d/ups:61 /etc/rc.d/init.d/xinetd:66
msgid "Stopping $prog: "
msgstr "$prog 를 정지함: "

#: /etc/sysconfig/network-scripts/network-functions-ipv6:52
msgid "Kernel is not compiled with IPv6 support"
msgstr "커널이 IPv6을 지원하게 컴파일 되지 않았습니다."

#: /etc/rc.d/init.d/smb:58 /etc/rc.d/init.d/smb:63
msgid "Shutting down $KIND services: "
msgstr "$KIND 서비스를 종료함: "

#: /etc/rc.d/init.d/ypbind:34
msgid "Binding to the NIS domain: "
msgstr "NIS 도메인에 연결함: "

#: /etc/sysconfig/network-scripts/network-functions-ipv6:449
msgid "Missing parameter 'IPv6AddrToTest' (arg 2)"
msgstr "'IPv6AddrToTest' 매개변수가 없음 (arg 1)"

#: /etc/rc.d/init.d/functions:272
msgid "${base} (pid $pid) is running..."
msgstr "${base} (pid $pid) 가 실행하고 있습니다.."

#: /etc/rc.d/init.d/crond:51
msgid "Reloading cron daemon configuration: "
msgstr "cron 데몬 설정을 다시 읽음: "

#: /etc/rc.d/rc.sysinit:488
msgid "*** An error occurred during the RAID startup"
msgstr "*** RAID를 시작하는 도중 에러가 발생했습니다"

#: /etc/rc.d/rc.sysinit:57
msgid "Unmounting initrd: "
msgstr "initrd 를 분리함: "

#: /etc/rc.d/init.d/isdn:96
msgid "Starting $prog"
msgstr "$prog 시작합니다"

#: /etc/rc.d/init.d/netfs:141
msgid "/proc filesystem unavailable"
msgstr "/proc 파일시스템을 이용할 수 없습니다"

#: /etc/rc.d/init.d/kudzu:39
msgid "Checking for new hardware"
msgstr "새로운 하드웨어 찾고 있습니다"

#: /etc/rc.d/init.d/ypbind:29
msgid "Setting NIS domain name $NISDOMAIN: "
msgstr "NIS 도메인 이름을 $NISDOMAIN로 설정함: "

#: /etc/rc.d/init.d/gpm:54
msgid "Shutting down console mouse services: "
msgstr "콘솔 마우스 서비스를 종료함: "

#: /etc/sysconfig/network-scripts/ifup-aliases:148
msgid "error in $FILE: already seen ipaddr $IPADDR in $ipseen"
msgstr "$FILE에 오류 발생: $ipseen에 ip주소 $IPADDR가 이미 존재합니다"

#: /etc/rc.d/init.d/keytable:22
msgid "Loading keymap: "
msgstr "키맵을 읽음: "

#: /etc/rc.d/init.d/iptables:62 /etc/rc.d/init.d/iptables:63
msgid "Applying iptables firewall rules"
msgstr "IPTABLES 방화벽 규칙을 적용하고 있습니다"

#: /etc/rc.d/init.d/functions:373 /etc/rc.d/rc.sysinit:231
msgid "$STRING"
msgstr "$STRING"

#: /etc/rc.d/init.d/netfs:57
msgid "Unmounting loopback filesystems: "
msgstr "loopback 파일시스템을 분리함: "

#: /etc/rc.d/init.d/autofs:216 /etc/rc.d/init.d/sshd:87
msgid "Starting $prog:"
msgstr "$prog를 시작함:"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:929
#: /etc/sysconfig/network-scripts/network-functions-ipv6:935
msgid "Tunnel device '$device' creation didn't work - ERROR!"
msgstr "터널 장치 '$device' 생성에 실패했습니다 - 오류!"

#: /etc/rc.d/init.d/innd:42
msgid "Stopping INND service: "
msgstr "INND 서비스 중지함:"

#: /etc/rc.d/rc.sysinit:250 /etc/rc.d/rc.sysinit:498 /etc/rc.d/rc.sysinit:533
msgid "Automatic reboot in progress."
msgstr "자동 재시동을 하고 있습니다."

#: /etc/rc.d/init.d/rwhod:23
msgid "Starting rwho services: "
msgstr "rwho 서비스를 시작함: "

#: /etc/rc.d/init.d/rawdevices:34 /etc/rc.d/init.d/rawdevices:41
msgid "   you'll have to upgrade your util-linux package"
msgstr "   util-linux 패키지를 업그레이드 해 주십시요"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:132
#: /etc/sysconfig/network-scripts/network-functions-ipv6:179
msgid "Missing parameter 'IPv6-network' (arg 1)"
msgstr "매개 변수인 'IPv6-network'가 없습니다 (arg 1)"

#: /etc/rc.d/init.d/iscsi:33
msgid "iscsi daemon already running"
msgstr "iscsi 데몬이 이미 실행되어 있습니다"

#: /etc/rc.d/init.d/netfs:41
msgid "Mounting SMB filesystems: "
msgstr "SMB 파일시스템을 장착함: "

#: /etc/sysconfig/network-scripts/network-functions-ipv6:647
msgid "Missing 'prefix length' for given address '$testipv6addr_valid'"
msgstr "주어진 주소: '$testipv6addr_valid'에 'prefix length'가 없습니다"

#: /etc/rc.d/init.d/mysqld:96
msgid "Usage: $0 {start|stop|status|reload|condrestart|restart}"
msgstr "사용법: $0 {start|stop|status|reload|condrestart|restart}"

#: /etc/rc.d/init.d/portmap:33
msgid "Networking not configured - exiting"
msgstr "네트워크가 설정되지 않았습니다 - 종료함"

#: /etc/sysconfig/network-scripts/ifup-aliases:337
msgid "error in $FILE: IPADDR_START and IPADDR_END don't argree"
msgstr "$FILE에 오류 발생: IPADDR_START 와 IPADDR_END가 일치하지 않습니다"

#: /etc/rc.d/init.d/netfs:152
msgid "Usage: $0 {start|stop|restart|reload|status}"
msgstr "사용법: $0 {start|stop|restart|reload|status}"

#: /etc/rc.d/init.d/keytable:54
msgid "No status available for this package"
msgstr "패키지의 상태를 알 수 없음"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:775
#: /etc/sysconfig/network-scripts/network-functions-ipv6:846
msgid "Missing parameter 'local IPv4 address' (arg 2)"
msgstr "매개변수 'local IPv4 address'가 없음 (arg 2)"

#: /etc/rc.d/init.d/routed:41
msgid "Stopping routed (RIP) services: "
msgstr "routed (RIP) 서비스를 종료함: "

#: /etc/rc.d/init.d/junkbuster:23
msgid "Starting junkbuster: "
msgstr "junkbuster를 시작함: "

#: /etc/rc.d/init.d/halt:118
msgid "Syncing hardware clock to system time"
msgstr "하드웨어 시간을 시스템 시간과 동기화 합니다"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:330
#: /etc/sysconfig/network-scripts/network-functions-ipv6:377
#: /etc/sysconfig/network-scripts/network-functions-ipv6:415
#: /etc/sysconfig/network-scripts/network-functions-ipv6:898
msgid "Missing parameter 'IPv4-tunnel address' (arg 2)"
msgstr "매개변수 'local IPv4-tunnel address'가 없음 (arg 2)"

#: /etc/sysconfig/network-scripts/ifdown:12
#: /etc/sysconfig/network-scripts/ifdown:19
msgid "usage: ifdown <device name>"
msgstr "사용법: ifdown <장치 명>"

#: /etc/rc.d/init.d/autofs:193
msgid "Active Mount Points:"
msgstr "장착지점 활성화:"

#: /etc/rc.d/rc.sysinit:298
msgid "Remounting root filesystem in read-write mode: "
msgstr "루트 파일시스템을 읽기-쓰기 모드로 재장착함: "

#: /etc/rc.d/init.d/xfs:81
msgid "Restarting $prog: "
msgstr "$prog를 다시 시작함: "

#: /etc/rc.d/init.d/mars-nwe:23
msgid "Starting NetWare emulator-server: "
msgstr "넷웨어 에뮬레이터-서버를 시작함: "

#: /etc/rc.d/init.d/ypxfrd:31
msgid "Stopping YP map server: "
msgstr "YP map 서버를 종료함: "

#: /etc/sysconfig/network-scripts/network-functions-ipv6:303
msgid "Tunnel device 'sit0' is still up - FATAL ERROR!"
msgstr "터널 장치 'sit0'가 아직 작동하고 있습니다 - 오류!"

#: /etc/rc.d/init.d/halt:18
msgid "$1 "
msgstr "$1 "

#: /etc/rc.d/init.d/random:46
msgid "The random data source is missing"
msgstr "랜덤 데이터 소스가 없습니다"

#: /etc/sysconfig/network-scripts/ifup-ipv6:148
msgid ""
"Given IPv4 address $ipv4addr is not a globally usable one, 6to4 "
"configuration is not valid!"
msgstr ""
"주어진 IPv4 주소 $ipv4addr가 전체적으로 사용될 수 없는 것입니다, 6에서 4설정"
"은 가능하지 않습니다!"

#: /etc/rc.d/init.d/isdn:78
msgid "Unloading ISDN modules"
msgstr "ISDN 모듈을 종료하고 있습니다"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:500
#: /etc/sysconfig/network-scripts/network-functions-ipv6:582
msgid "Missing parameter 'IPv6-address' (arg 2)"
msgstr "매개변수 'IPv6-address'가 없음 (arg 2)"

#: /etc/rc.d/init.d/apmd:26
msgid "Starting up APM daemon: "
msgstr "APM 데몬을 시작함: "

#: /etc/rc.d/init.d/postgresql:114
msgid "Initializing database: "
msgstr "데이타베이스를 초기함: "

#: /etc/rc.d/init.d/ipchains:110 /etc/rc.d/init.d/ipchains:111
msgid "Saving current rules to $IPCHAINS_CONFIG"
msgstr "$IPCHAINS_CONFIG에 현재 규칙을 저장하고 있습니다"

#: /etc/rc.d/init.d/autofs:251 /etc/rc.d/init.d/autofs:252
msgid "could not make temp file"
msgstr "temp 파일을 만들 수 없습니다"

#: /etc/sysconfig/network-scripts/ifup-ppp:69
msgid "ifup-ppp for ${DEVNAME} exiting"
msgstr "$(DEVNAME)의 ifup-ppp를 종료합니다"

#: /etc/rc.d/init.d/ypbind:42
msgid "Listening for an NIS domain server."
msgstr "NIS 도메인 서버를 찾고 있습니다."

#: /etc/rc.d/init.d/iptables:60
msgid "Applying iptables firewall rules: "
msgstr "IPTABLES 방화벽 규칙들을 적용함: "

#: /etc/rc.d/init.d/pcmcia:121
msgid " cardmgr."
msgstr " cardmgr."

#: /etc/rc.d/init.d/random:26
msgid "Initializing random number generator: "
msgstr "난수 생성기를 초기화함: "

#: /etc/rc.d/init.d/isdn:46
msgid "$*"
msgstr "$*"

#: /etc/rc.d/rc.sysinit:242 /etc/rc.d/rc.sysinit:490 /etc/rc.d/rc.sysinit:525
msgid "*** when you leave the shell."
msgstr "쉘을 나가실때 ***"

#: /etc/rc.d/init.d/innd:108 /etc/rc.d/init.d/kprop:67
#: /etc/rc.d/init.d/krb524:66 /etc/rc.d/init.d/postgresql:227
#: /etc/rc.d/init.d/syslog:77 /etc/rc.d/init.d/ypbind:104
msgid "Usage: $0 {start|stop|status|restart|condrestart}"
msgstr "사용법: $0 {start|stop|status|restart|condrestart}"

#: /etc/rc.d/init.d/lpd:98 /etc/rc.d/init.d/rarpd:65
msgid "Usage: $0 {start|stop|restart|condrestart|reload|status}"
msgstr "사용법: $0 {start|stop|restart|condrestart|reload|status}"

#: /etc/rc.d/init.d/network:175
msgid "Shutting down interface $i: "
msgstr "인터페이스 $i (을)를 종료함: "

#: /etc/rc.d/init.d/network:219
msgid "Currently active devices:"
msgstr "현재 사용 중인 장치들:"

#: /etc/rc.d/init.d/rawdevices:68
msgid "You need to be root to use this command ! "
msgstr "이 명령어는 Root 계정에서 사용해야 합니다 ! "

#: /etc/rc.d/init.d/netfs:97
msgid "Unmounting NFS filesystems (retry): "
msgstr "NFS 파일시스템을 분리함 (재시도): "

#: /etc/rc.d/rc.sysinit:191
msgid "Initializing USB mouse: "
msgstr "USB 마우스 초기화함: "

#: /etc/rc.d/init.d/network:216
msgid "Devices with modified configuration:"
msgstr "바뀐 설정의 장치들:"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:94
msgid "Don't understand forwarding control parameter '$fw_control' (arg 1)"
msgstr "Forwarding 통제 매개변수 '$fw_control'을 알 수 없습니다 (arg 1)"

#: /etc/rc.d/rc.sysinit:53
msgid "Mounting proc filesystem: "
msgstr "proc 파일시스템을 장착함: "

#: /etc/rc.d/rc.sysinit:132
msgid "Loading default keymap: "
msgstr "기본 키맵을 시작함: "

#: /etc/sysconfig/network-scripts/ifup-ppp:43
msgid "ifup-ppp for ${DEVICE} exiting"
msgstr "$(DEVICE)의 ifup-ppp를 종료합니다"

#: /etc/rc.d/rc.sysinit:392 /etc/rc.d/rc.sysinit:394
msgid "Finding module dependencies: "
msgstr "모듈의 의존성을 찾음: "

#: /etc/rc.d/init.d/autofs:224 /etc/rc.d/init.d/sshd:96
msgid "Stopping $prog:"
msgstr "$prog (을)를 종료함:"

#: /etc/rc.d/init.d/rawdevices:57
msgid "done"
msgstr "마침"

#: /etc/rc.d/init.d/network:285
msgid "Usage: $0 {start|stop|restart|reload|status|probe}"
msgstr "사용법: $0 {start|stop|restart|reload|status|probe}"

#: /etc/rc.d/rc.sysinit:155
msgid "Activating swap partitions: "
msgstr "스왑 공간를 활성화함: "

#: /etc/rc.d/init.d/ipchains:98 /etc/rc.d/init.d/ipchains:99
msgid "Changing target policies to DENY"
msgstr "목표 규칙을 DENY로 변경합니다"

#: /etc/rc.d/init.d/syslog:34
msgid "Starting kernel logger: "
msgstr "커널관련 기록을 시작함: "

#: /etc/sysconfig/network-scripts/ifup-aliases:156
msgid "error in $FILE: didn't specify device or ipaddr"
msgstr "$FILE에 오류 발생: 장치 또는 IP주소가 지정되지 않았습니다"

#: /etc/rc.d/init.d/functions:280
msgid "${base} dead but pid file exists"
msgstr "$(base)가 종료되었지만 pid 파일이 존재합니다"

#: /etc/rc.d/rc.sysinit:647
msgid "Enabling swap space: "
msgstr "스왑 공간을 활성화함: "

#: /etc/rc.d/init.d/pcmcia:105 /etc/rc.d/init.d/pcmcia:141
msgid " modules"
msgstr " 모듈"

#: /etc/rc.d/rc.sysinit:39
msgid "Red Hat"
msgstr "Red Hat"

#: /etc/rc.d/init.d/ntpd:26
msgid "Synchronizing with time server: "
msgstr "시간 서버와 동기화함: "

#: /etc/rc.d/init.d/rusersd:35
msgid "Stopping rusers services: "
msgstr "rusers 서비스를 종료함: "

#: /etc/rc.d/init.d/gpm:21
msgid "Starting console mouse services: "
msgstr "콘솔 마우스 서비스를 시작함: "

#: /etc/rc.d/rc.sysinit:185
msgid "Initializing USB HID interface: "
msgstr "USB HID 인터페이스를 초기화함: "

#: /etc/rc.d/init.d/rhnsd:46
msgid "Stopping Red Hat Network Daemon: "
msgstr "Red Hat 네트워크 데몬을 종료함: "

#: /etc/rc.d/init.d/isdn:153
msgid "$pn is attached to $dev"
msgstr "$pn이 $dev에 연결되어 있습니다"

#: /etc/sysconfig/network-scripts/ifup-aliases:65
msgid "usage: ifup-aliases <net-device>\n"
msgstr "사용법: ifup-aliases <네트워크-장치>\n"

#: /etc/rc.d/init.d/amd:93 /etc/rc.d/init.d/sshd:105
msgid "Reloading $prog:"
msgstr "$prog를 다시 읽음:"

#: /etc/rc.d/init.d/kadmin:86
msgid "Usage: $0 {start|stop|status|condrestart|reload|restart}"
msgstr "사용법: $0 {start|stop|status|condrestart|reload|restart}"

#: /etc/rc.d/init.d/ypserv:27
msgid "Starting YP server services: "
msgstr "YP 서버 서비스를 시작함: "

#: /etc/rc.d/init.d/innd:49
msgid "Stopping INNWatch service: "
msgstr "INNWatch 서비스를 종료함: "

#: /etc/rc.d/init.d/iptables:167
msgid "Usage: $0 {start|stop|restart|condrestart|status|panic|save}"
msgstr "사용법: $0 {start|stop|restart|condrestart|status|panic|save}"

#: /etc/rc.d/init.d/autofs:260
msgid "Stop $command"
msgstr "$command 종료"

#: /etc/rc.d/init.d/halt:122
msgid "Turning off swap: "
msgstr "스왑을 해제함: "

#: /etc/rc.d/init.d/ups:42
msgid "Starting UPS monitor (master): "
msgstr "UPS 모니터를 시작함 (마스터): "

#: /etc/rc.d/init.d/netfs:133
msgid "Active SMB mountpoints: "
msgstr "SMB 장착점을 활성화함: "

#: /etc/rc.d/init.d/syslog:41
msgid "Shutting down kernel logger: "
msgstr "커널관련 기록을 종료함: "

#: /etc/rc.d/init.d/bcm5820:32
msgid "Loading $module module"
msgstr "$module 모듈을 설치하고 있습니다"

#: /etc/sysconfig/network-scripts/ifup-aliases:152
msgid "error in $FILE: already seen device $parent_device:$DEVNUM in $devseen"
msgstr "$FILE에 오류 발생: $devseen에 $parent_device:$DEVNUM 장치가 이미 존재합니다"

#: /etc/rc.d/rc.sysinit:562
msgid "Checking local filesystem quotas: "
msgstr "로컬 파일시스템의 쿼터를 검사함: "

#: /etc/rc.d/init.d/sshd:34
msgid "Generating SSH1 RSA host key: "
msgstr "SSH1 RSA 호스트 키를 생성함: "

#: /etc/rc.d/init.d/innd:63
msgid "Stopping INN actived service: "
msgstr "INN 활성 중인 서비스들을 종료함"

#: /etc/rc.d/init.d/network:232 /etc/rc.d/init.d/network:239
msgid "Bringing up device $device: "
msgstr "$device 장치를 활성화함: "

#: /etc/rc.d/init.d/crond:78 /etc/rc.d/init.d/krb5kdc:76
#: /etc/rc.d/init.d/squid:145
msgid "Usage: $0 {start|stop|status|reload|restart|condrestart}"
msgstr "사용법: $0 {start|stop|status|reload|restart|condrestart}"

#: /etc/rc.d/init.d/pcmcia:110
msgid " module directory $PC not found."
msgstr "모듈 디렉토리 $PC를 찾을 수 없습니다."

#: /etc/rc.d/init.d/kadmin:35
msgid "Extracting kadm5 Service Keys: "
msgstr "Kadm5 서비스 키를 가져옴: "

#: /etc/rc.d/init.d/lpd:34
msgid "No Printers Defined"
msgstr "설정된 프린터가 없습니다"

#: /etc/rc.d/rc.sysinit:302
msgid "Setting up Logical Volume Management:"
msgstr "논리적 볼륨 메니지먼트를 설정함: "

#: /etc/rc.d/init.d/netfs:42
msgid "Mounting NCP filesystems: "
msgstr "NCP 파일시스템을 장착함: "

#: /etc/sysconfig/network-scripts/ifup-ipv6:206
msgid "Trigger RADVD for IPv6to4 prefix recalculation"
msgstr "IPv6to4 의 RADVD 트리거 재계산"

#: /etc/rc.d/rc.sysinit:291
msgid "Skipping ISA PNP configuration at users request: "
msgstr "사용자 요청으로 ISA PNP 설정을 건너뛰고 있습니다: "

#: /etc/rc.d/init.d/ipchains:62 /etc/rc.d/init.d/ipchains:63
msgid "Applying ipchains firewall rules"
msgstr "IPCHAINS 방화벽의 규칙을 적용하고 있습니다"

#: /etc/sysconfig/network-scripts/ifup-ipv6:173
msgid ""
"IPv6to4 configuration needs an IPv4 address on related interface or extra "
"specified, 6to4 configuration is not valid!"
msgstr ""
"IPv6to4설정에서 IPv4주소와 관련된 인터페이스나 엑스트라 설정이 필요합니"
"다,6to4 설정이 유효하지 않습니다!"

#: /etc/sysconfig/network-scripts/network-functions-ipv6:225
#: /etc/sysconfig/network-scripts/network-functions-ipv6:325
#: /etc/sysconfig/network-scripts/network-functions-ipv6:372
#: /etc/sysconfig/network-scripts/network-functions-ipv6:410
#: /etc/sysconfig/network-scripts/network-functions-ipv6:494
#: /etc/sysconfig/network-scripts/network-functions-ipv6:549
#: /etc/sysconfig/network-scripts/network-functions-ipv6:576
#: /etc/sysconfig/network-scripts/network-functions-ipv6:769
#: /etc/sysconfig/network-scripts/network-functions-ipv6:814
#: /etc/sysconfig/network-scripts/network-functions-ipv6:841
#: /etc/sysconfig/network-scripts/network-functions-ipv6:893
#: /etc/sysconfig/network-scripts/network-functions-ipv6:972
#: /etc/sysconfig/network-scripts/network-functions-ipv6:1011
msgid "Missing parameter 'device' (arg 1)"
msgstr "'device'라는 매계변수가 없습니다 (arg 1)"

#: /etc/rc.d/init.d/syslog:44
msgid "Shutting down system logger: "
msgstr "시스템 기록을 종료하고 있습니다:  "

#: /etc/rc.d/init.d/network:189
msgid "Disabling IPv4 packet forwarding: "
msgstr "IPv4 패켓 forwarding을 종료하고 있습니다: "

#: /etc/rc.d/init.d/iscsi:42
msgid "See error log in /var/log/iscsi.log"
msgstr "/var/log/iscsi.log을 참조해 주십시요"

#: /etc/rc.d/init.d/iscsi:46
msgid "Starting iSCSI iscsilun: "
msgstr "iSCSI iscsilun을 시작하고 있습니다: "

#: /etc/rc.d/init.d/vncserver:33
msgid "vncserver startup"
msgstr "VNCSERVER 시작"

#: /etc/rc.d/init.d/ipchains:60
msgid "Applying ipchains firewall rules: "
msgstr "IPCHAINS 방화벽 규칙을 적용하고 있습니다: "

#: /etc/rc.d/init.d/rstatd:21
msgid "Starting rstat services: "
msgstr "rstat 서비스를 시작하고 있습니다: "

#: /etc/rc.d/init.d/ipchains:102 /etc/rc.d/init.d/iptables:75
#: /etc/rc.d/init.d/iptables:76 /etc/rc.d/init.d/iptables:152
#: /etc/rc.d/init.d/iptables:153
msgid "Removing user defined chains:"
msgstr "사용자 정의한 chain을 삭제중 입니다: "

#: /etc/rc.d/init.d/named:32
msgid "$prog: already running"
msgstr "$prog: 실행중 입니다"

#: /etc/rc.d/init.d/functions:286
msgid "${base} dead but subsys locked"
msgstr "${base} 는 종료되었으마 subsys까 잠겨있습니다"

#: /etc/rc.d/init.d/functions:87 /etc/rc.d/init.d/functions:111
msgid "$0: Usage: daemon [+/-nicelevel] {program}"
msgstr "$0: 사용법: daemon [+/-nicelevel] {program}"

#: /etc/rc.d/init.d/named:74
msgid "$prog is running, PIDs: $PIDS."
msgstr "$prog 이 실행중입니다, PIDs: $PIDs."

#: /etc/sysconfig/network-scripts/ifup-aliases:222
#: /etc/sysconfig/network-scripts/ifup-aliases:232
msgid "error in ifcfg-${parent_device}: files"
msgstr "ifcfg-${parent_device}에 에러 발생: 파일들"

#: /etc/rc.d/init.d/iscsi:63
msgid "Stopping iSCSI: iscsid"
msgstr "iSCSI를 중지하고 있습니다: nuscsitcp"

#: /etc/rc.d/init.d/FreeWnn:71 /etc/rc.d/init.d/bootparamd:69
#: /etc/rc.d/init.d/cWnn:70 /etc/rc.d/init.d/pcmcia:52
#: /etc/rc.d/init.d/random:56 /etc/rc.d/init.d/routed:72
#: /etc/rc.d/init.d/tWnn:70
msgid "Usage: $0 {start|stop|status|restart|reload}"
msgstr "사용법: $0 {start|stop|status|restart|reload}"

#: /etc/rc.d/init.d/gated:49
msgid "Stopping $prog"
msgstr "$prog 종료 중"

#: /etc/rc.d/rc.sysinit:110
msgid "Setting clock $CLOCKDEF: `date`"
msgstr "시간 설정 $CLOCKDEF: `date`"

#: /etc/rc.d/init.d/xfs:110
msgid "*** Usage: $prog {start|stop|status|restart|reload|condrestart}"
msgstr "*** 사용법: $prog {start|stop|status|restart|reload|condrestart}"

#: /etc/rc.d/rc.sysinit:408 /etc/rc.d/rc.sysinit:413
msgid "Loading sound module ($alias): "
msgstr "사운드 모듈 ($alias) 실행중입니다: "

#: /etc/rc.d/init.d/iptables:131 /etc/rc.d/init.d/iptables:132
msgid "Changing target policies to DROP"
msgstr "목표 규칙을 DROP으로 바꿉니다"

#: /etc/rc.d/init.d/network:104 /etc/rc.d/init.d/network:131
msgid "Bringing up interface $i: "
msgstr "$i 인터페이스 활성화중 입니다: "

#: /etc/rc.d/init.d/gated:85
msgid "Usage: $0 {start|stop|reload|restart|condrestart|status}"
msgstr "사용법: $0 {start|stop|reload|restart|condrestart|status}"

#: /etc/rc.d/init.d/netfs:137
msgid "Active NCP mountpoints: "
msgstr "NCP 장착점 활성화: "

#: /etc/rc.d/init.d/functions:319
msgid "PASSED"
msgstr "통과"

#: /etc/rc.d/rc.sysinit:188
msgid "Initializing USB keyboard: "
msgstr "USB 키보드를 기초화중입니다: "

#: /etc/rc.d/init.d/innd:26
msgid "Please run makehistory and/or makedbz before starting innd."