B îq\’¼ã@sàddlZddlZddlZddlmZmZmZmZddl m Z m Z m Z m Z ddlmZddlmZddgZe d d ¡Ze d d ¡Zd ZdeZdZdZdZGdd„dƒZeƒZGdd„de ƒZdd„Zdd„Z dd„Z!dd„Z"dS)éNé)Ú _str_to_numÚ_is_intÚ translateÚ _words_group)Ú_VerifyÚ_ErrListÚ VerifyErrorÚ VerifyWarning)Úconf)ÚAstropyUserWarningÚCardÚ UndefinedZdeZDEZdDZeEéPú éz= ú=c@seZdZdZdd„ZdS)rzUndefined value.cCsdS)N©)Úselfrrú3lib/python3.7/site-packages/astropy/io/fits/card.pyÚ__init__!szUndefined.__init__N)Ú__name__Ú __module__Ú __qualname__Ú__doc__rrrrrrsc@s²eZdZeZe de¡Ze dej ¡Z dZ dZ de Z de Ze d e ¡¡Ze d e ¡¡Ze d ¡Ze d e d e d e d ¡Ze ded ed ed¡ZdZedZd ee¡Zd ee ¡Zd e¡Zd e¡Ze ed¡Ze d ee¡¡Ze e¡ZddddhZeZ dedd„Z!dd „Z"d!d"„Z#d#d$„Z$d%d&„Z%e&d'd(„ƒZ'e'j(d)d(„ƒZ'e&d*d+„ƒZ)e)j(d,d+„ƒZ)e)j*d-d+„ƒZ)e&d.d/„ƒZ+e&d0d1„ƒZ,e&d2d3„ƒZ-e-j(d4d3„ƒZ-e-j*d5d3„ƒZ-e&d6d7„ƒZ.e.j(d8d7„ƒZ.e.j*d9d7„ƒZ.e&d:d;„ƒZ/e&dd?„ƒZ2e1d@dA„ƒZ3dBdC„Z4dDdE„Z5dFdG„Z6dHdI„Z7dJdK„Z8dLdM„Z9dNdO„Z:dPdQ„Z;dRdS„ZdXdY„Z?dZd[„Z@d\d]„ZAd^d_„ZBdfdadb„ZCdcdd„ZDdS)gr z^[A-Z0-9_-]{0,%d}$z"^(?:HIERARCH +)?(?:^[ -<>-~]+ ?)+$z"(\.\d+|\d+(\.\d*)?)([DE][+-]?\d+)?z*(\.\d+|\d+(\.\d*)?) *([deDE] *[+-]? *\d+)?z[+-]?z[+-]? *z(?P[+-])?0*?(?P{})z (?P[+-])? *0*?(?P{})z[ -~]*\Zz\(?P *(?P\'(?P([ -~]+?|\'\'|)) *?\'(?=$|/| )|(?P[FT])|(?Pz)|(?P\( *(?Pz) *, *(?Pz@) *\)))? *)(?P(?P/ *)(?P[!-~][ -~]*)?)?$z\(?P *(?P\'(?P([ -~]+?|\'\'|) *?)\'(?=$|/| )|(?P[FT])|(?Pz;) *\)))? *)(?P(?P/ *)(?P(.|\n)*))?$z [a-zA-Z_]\w*z(\.\d+)?z {}(\.{})*z(?P{}): (?P{})z\'(?P{})\'z *{} *(/ *(?P[ -~]*))?$ú$z)(?P{})\.(?P{})$ÚÚCOMMENTZHISTORYÚENDNcKs°|dkrd|kr|d}d|_d|_d|_d|_d|_d|_d|_d|_d|_d|_ |dk rp|dk rp|  ||¡sŒ|dk r~||_ |dk rŒ||_ |dk rš||_ d|_d|_d|_dS)NÚkeyTF)Ú_keywordÚ_valueÚ_commentÚ_imageÚ _verifiedÚ _hierarchÚ_invalidÚ_field_specifierÚ _rawkeywordÚ _rawvalueÚ_check_if_rvkcÚkeywordÚvalueÚcommentÚ _modifiedÚ _valuestringÚ_valuemodified)rr+r,r-Úkwargsrrrršs. z Card.__init__cCst|j|j|jfƒS)N)Úreprr+r,r-)rrrrÚ__repr__Èsz Card.__repr__cCs|jS)N)Úimage)rrrrÚ__str__Ësz Card.__str__cCsdS)Nér)rrrrÚ__len__Îsz Card.__len__cCs|j|j|jf|S)N)r+r,r-)rÚindexrrrÚ __getitem__ÑszCard.__getitem__cCs4|jdk r|jS|jr&| ¡|_|jSd|_dSdS)z4Returns the keyword name parsed from the card image.Nr)r r#Ú_parse_keywordr+)rrrrr+Ôs  z Card.keywordcCsØ|jdk rtdƒ‚nÀt|tƒrÆ| ¡}| ¡}t|ƒtkr\|j  |¡r\|dkrVt dƒ‚|}n\|j   |¡rªd|_ t |_|dd…dkr–|dd… ¡}q¸t d |¡t¡nt d  |¡ƒ‚||_d|_nt d  |¡ƒ‚dS) z6Set the key attribute; once set it cannot be modified.Nz.Once set, the Card keyword may not be modifiedrzKeyword 'END' not allowed.Té z HIERARCH zˆKeyword name {!r} is greater than 8 characters or contains characters not allowed by the FITS standard; a HIERARCH card will be created.zIllegal keyword name: {!r}.z"Keyword name {!r} is not a string.)r ÚAttributeErrorÚ isinstanceÚstrÚrstripÚupperÚlenÚKEYWORD_LENGTHÚ _keywd_FSC_REÚmatchÚ ValueErrorÚ_keywd_hierarch_REr%ÚHIERARCH_VALUE_INDICATORÚ_value_indicatorÚstripÚwarningsÚwarnÚformatr r.)rr+Ú keyword_upperrrrr+às.      cCsj|jrt|jƒS|jdk r"|j}n,|jdk s2|jrD| ¡|_|j}n d|_}tjrft|t ƒrf|  ¡}|S)z:The value associated with the keyword stored in this card.Nr) Úfield_specifierÚfloatr!r/r#Ú _parse_valuer Ústrip_header_whitespacer=r>r?)rr,rrrr,s    z Card.valuec Cs|jrtdƒ‚|dkrd}|j}|dkr,d}t|tttttt t j t j t j t jf ƒs`td |¡ƒ‚t|tƒrŽt  |¡s~t  |¡rŽtd |¡ƒ‚n¢t|tƒr¸|j |¡}|s¶td |¡ƒ‚nxt|tƒrd}y| d¡}Wntk rîd}YnX|j |¡}|dk }|s0td  |¡ƒ‚nt|t jƒr0t|ƒ}tjrbt|tƒrbt|tƒrb| ¡| ¡k}nÚintrOÚcomplexÚboolrÚnpÚfloatingZintegerÚcomplexfloatingÚbool_rLZisnanZisinfÚ_ascii_text_rerDÚbytesÚdecodeÚUnicodeDecodeErrorr rQr?Útyper)r.r/r0rNÚ _int_or_float)rr,ZoldvalueÚmZvalidZ text_valueZ differentrrrr,&sn             cCs(|jrtdƒ‚|jsd|_ntdƒ‚dS)NznThe value of invalid/unparseable cards cannot deleted. Either delete this card from the header or replace it.rz9Values cannot be deleted from record-valued keyword cards)r&rErNr,r<)rrrrr,ss cCs>|jdk r|jS|jdk r4|j dd¡d|_|jS|jSdS)z½On record-valued keyword cards this is the name of the standard <= 8 character FITS keyword that this RVKC is stored in. Otherwise it is the card's normal keyword. NÚ.rr)r(rNr+Úsplit)rrrrÚ rawkeyword€s   zCard.rawkeywordcCs<|jdk r|jS|jdk r2d |j|j¡|_|jS|jSdS)zÜOn record-valued keyword cards this is the raw string value in the ``: `` format stored in the card in order to represent a RVKC. Otherwise it is the card's normal value. Nz{}: {})r)rNrLr,)rrrrÚrawvalues   z Card.rawvaluecCs4|jdk r|jS|jr&| ¡|_|jSd|_dSdS)zAGet the comment attribute from the card image if not already set.Nr)r"r#Ú_parse_commentr-)rrrrr-žs  z Card.commentcCsl|jrtdƒ‚|dkrd}t|tƒrB|j |¡}|sBtd |¡ƒ‚|j}|dkrTd}||krh||_d|_dS)NzlThe comment of invalid/unparseable cards cannot set. Either delete this card from the header or replace it.rz—FITS header comments must contain standard printable ASCII characters; {!r} contains characters not representable in ASCII or non-printable characters.T) r&rEr=r>rZrDrLr"r.)rr-r`Z oldcommentrrrr-«s"  cCs|jrtdƒ‚d|_dS)NzpThe comment of invalid/unparseable cards cannot deleted. Either delete this card from the header or replace it.r)r&rEr-)rrrrr-ÅscCs|jr |jSdSdS)zl The field-specifier of record-valued keyword cards; always `None` on normal cards. N)r+r')rrrrrNÎs zCard.field_specifiercCsZ|stdƒ‚nH|jstdƒ‚n8||jkrV||_|j dd¡d}d ||g¡|_d|_dS)NzDThe field-specifier may not be blank in record-valued keyword cards.z^Cannot coerce cards to be record-valued keyword cards by setting the field_specifier attributerarrT)rErNr<r'r rbÚjoinr.)rrNr+rrrrNÜs   cCs tdƒ‚dS)NzRThe field_specifier attribute may not be deleted from record-valued keyword cards.)r<)rrrrrNìscCs6|jr|js| d¡|jdks&|jr0| ¡|_|jS)z… The card "image", that is, the 80 byte character string that represents this card in an actual FITS header. zfix+warnN)r#r$Úverifyr.Ú _format_image)rrrrr4ñs    z Card.imagecCs4|js|jtkS|j o2t|jtƒo2|j o2|j S)z¼ `True` if the card is completely blank--that is, it has no keyword, value, or comment. It appears in the header as 80 spaces. Returns `False` otherwise. )r$r#Ú BLANK_CARDr+r=r,r>r-)rrrrÚis_blankþs  z Card.is_blankcCs|ƒ}t|ƒ|_d|_|S)zü Construct a `Card` object from a (raw) string. It will pad the string if it is not the length of a card image (80 columns). If the card image is longer than 80 columns, assume it contains ``CONTINUE`` card(s). F)Ú_padr#r$)Úclsr4ÚcardrrrÚ fromstrings  zCard.fromstringcCs’t|ƒtkr|j |¡r|S|j |¡}|rNd | d¡ ¡ ¡| d¡f¡St|ƒdkr‚|dd… ¡dkr‚|dd… ¡ ¡S| ¡ ¡SdS)a_ `classmethod` to convert a keyword value that may contain a field-specifier to uppercase. The effect is to raise the key to uppercase and leave the field specifier in its original case. Parameters ---------- keyword : or str A keyword value or a ``keyword.field-specifier`` value rar+rNr;Nz HIERARCH ) rArBrCrDÚ_rvkc_keyword_name_RErfÚgrouprIr@)rlr+rDrrrÚnormalize_keyword!s    zCard.normalize_keywordcGsètjs dSt|ƒdkr"|j|ŽnÂt|ƒdkrä|\}}t|tƒsDdS||jkrRdS|j |¡}|rt|t t fƒr|  |  d¡|  d¡d|¡dSt|tƒrä|  d¡d krä|j |¡}|rä|j |¡rä|  ||  d¡||  d ¡¡dSdS) a! Determine whether or not the card is a record-valued keyword card. If one argument is given, that argument is treated as a full card image and parsed as such. If two arguments are given, the first is treated as the card keyword (including the field-specifier if the card is intended as a RVKC), and the second as the card value OR the first value can be the base keyword, and the second value the 'field-specifier: value' string. If the check passes the ._keyword, ._value, and .field_specifier keywords are set. Examples -------- :: self._check_if_rvkc('DP1', 'AXIS.1: 2') self._check_if_rvkc('DP1.AXIS.1', 2) self._check_if_rvkc('DP1 = AXIS.1: 2') Frér+rNNTz: rÚval)r Z"enable_record_valued_keyword_cardsrAÚ_check_if_rvkc_imager=r>Ú_commentary_keywordsrorDrSrOÚ _init_rvkcrpÚfindÚ_rvkc_field_specifier_val_RErC)rÚargsr+r,rDrrrr*Cs*         zCard._check_if_rvkccGsÀt|ƒdkrT|d}| t¡}|dks.|dkr2dS|d|…}||ttƒd…}n|\}}| ¡}|r‚|ddks‚| d¡dkr†dS|j |¡}|r¼| || d ¡| d ¡| d ¡¡d SdS) a( Implements `Card._check_if_rvkc` for the case of an unparsed card image. If given one argument this is the full intact image. If given two arguments the card has already been split between keyword and value+comment at the standard value indicator '= '. rrr;FNú'z: rrr+ZrawvalrsT)rArwÚVALUE_INDICATORÚlstripÚ_rvkc_keyword_val_comm_RErDrvrp)rryr4Zeq_idxr+ÚrestrDrrrrtus     zCard._check_if_rvkc_imagecCs8| ¡}d ||f¡|_||_||_t|ƒ|_||_dS)z Sort of addendum to Card.__init__ to set the appropriate internal attributes if the card was determined to be a RVKC. raN)r@rfr r(r'r_r!r))rr+rNZfieldr,rMrrrrv–s  zCard._init_rvkccCs|jdt… ¡}| ¡}|j t¡}|j}d|kr@tksRn||ksR|dkrž|dkrš|d|…}|j|ttƒd…}| ||¡rŽ|j S|d|…}|S|dkrì|jddkrìt |jkrìd|_ t |_ |j  t d¡ddd…}| ¡St d  |j¡t¡d|_|SdS) NrÚCONTINUEÚHIERARCHrrTrr;z^The following header keyword is invalid or follows an unrecognized non-standard convention: {})r#rBrIr@rwr{rurArtr rGr%rHrbrJrKrLr r&)rr+rMZ val_ind_idxZspecialr~rrrr:£s.      zCard._parse_keywordcCsX|j ¡|jks|jr(|jtd… ¡S| |j¡r:|jSt |jƒ|j kr¬g}xH|  ¡D]<}|j  ¡  dd¡}|rŠ|ddkrŠ|dd…}| |¡qXWd |¡}||_|S|j | ¡d¡}|dkrØtd |j¡ƒ‚| d ¡dk rø| d ¡d k}nH| d ¡dk r t dd| d ¡¡}n | d ¡dk r‚|j | d ¡¡}t| d ¡tdƒ}| d¡dkrjd}n | d¡}t||ƒ}n¾| d¡dk r<|j | d¡¡}t| d ¡tdƒ} | d¡dkrÌd} n | d¡} t| | ƒ}|j | d¡¡} t|  d ¡tdƒ} |  d¡dkrd} n |  d¡} |t| | ƒd7}nt}|jsT| d¡|_|S)z.Extract the keyword value from the card image.Nz''rzéÿÿÿÿú&rrz7Unparsable card ({}), fix it first with .verify('fix').rUÚTZstrgÚnumrÚdigtrÚsignÚcplxÚrealÚimagyð?Zvalu)r+r@rur&r#rBr?r*r!rAÚlengthÚ _itersubcardsr,ÚreplaceÚappendrfr/Ú_value_NFSC_RErDÚ_splitr rLrpÚreÚsubÚ_number_NFSC_RErÚ FIX_FP_TABLE2rÚ UNDEFINED)rÚvaluesrmr,r`r„r…r†rˆÚrdigtZrsignr‰ÚidigtZisignrrrrPËs\         zCard._parse_valuecCs¤|jtjks|jrdSt|jƒ|jkrng}x"| ¡D]}|jr4|  |j¡q4Wdd  |¡  ¡}|j   |¡}n|j   | ¡d¡}|dk r | d¡}|r |  ¡SdS)z.Extract the keyword value from the card image.rz/ rrNÚcomm)r+r rur&rAr#rŠr‹r-rrfr?rŽrDrrp)rZcommentsrmr-r`rrrres zCard._parse_commentcCsÞ|jdk r|j}n|j}|j|j dg¡kr>| dd¡\}}ny| |j¡}Wntk rfd}YnX|dkrŠ|dt …}|t d…}nD|dkr¼|dd…dkr¼|dd…}|dd…}n| |jd¡\}}|  ¡|  ¡fS) zT Split the card image between the keyword and the rest of the card. Nrrré r;z HIERARCH r) r#r4r+ruÚunionrbr8rHrErBrI)rr4r+Ú valuecommentZ delim_indexrrrr&s"    z Card._splitcCsD|jr.|j dd¡\}}d | ¡|g¡|_n |j ¡|_d|_dS)NrarT)rNr rbrfr@r.)rr+rNrrrÚ _fix_keywordFs  zCard._fix_keywordc Csxd}| ¡\}}|j |¡}|dkrxy(| dd¡\}}| ¡|_| ¡|_Wnttfk rj||_YnX|j |_ dS|  d¡dk rÈ|j  |  d¡¡}t |  d¡tdƒ}|  d¡dk rÆ|  d¡|}n |  d¡dk rh|j  |  d ¡¡}t |  d¡tdƒ}|  d¡dk r|  d¡|}|j  |  d ¡¡} t |   d¡tdƒ} |   d¡dk r\|   d¡| } d  || ¡}||_ d |_dS) z7Fix the card image for fixable non-standard compliance.Nú/rr„r…rr†r‡rˆr‰z({}, {})T)rrŽrDrbrIr,r-rEÚ IndexErrorr!r/rpr’rÚ FIX_FP_TABLErLr.) rr,r+r›r`r-r„rˆr–r‰r—rrrÚ _fix_valueNs:     zCard._fix_valuecCsX|jrL|jr(dj|j dd¡dtdS|jr:d |j¡Sdj|jtdSndtSdS)Nz{:{len}}rarr)rAz HIERARCH {} r)r+rNrLrbrBr%)rrrrÚ_format_keywordvs zCard._format_keywordcCs¤ttjttjf}|j}|j}|j|jkr2t |ƒ}nR|j rX|j sXt |j|ƒrXd  |j ¡}n,|jr|t|jƒ ¡}d  |j|¡}nt|ƒ}|js t|jƒtkr | ¡}|S)Nz{:>20}z'{}: {}')rOrVrWrTrXr,r!r+rur>r/r0r=rLrNÚ _format_valuerIrArB)rZ float_typesr,rrrr¢‚s    zCard._format_valuecCs|js dSd |j¡SdS)Nrz / {})r-rLr")rrrrÚ_format_comment szCard._format_commentcCs$| ¡}| ¡}| ¡|jk}|r(d}n| ¡}t}|rÚ_format_long_imagerJrKr r )rr+r,Z is_commentaryr-Z delimiterÚoutputZkeywordvalue_lengthrrrrh¦s4     zCard._format_imagec Cs|jtjkr| ¡Sd}d}g}|j dd¡}t||ƒ}xpt|ƒD]d\}}|dkrddj|jt d}nd}|j s„|t |ƒd kr„d } nd } |  |¡}|  d  ||¡¡qBWd } |j rt|j |ƒ}xLt|ƒD]@\}}|t |ƒd krêd}nd}||  |¡} |  d  | ¡¡qÌWd  |¡S)a5 Break up long string value/comment into ``CONTINUE`` cards. This is a primitive implementation: it will put the value string in one block and the comment string in another. Also, it does not break at the blank space between words. So it may not look pretty. éCé@rzz''rz {:{len}}= )rAz CONTINUE rz'{}'z'{}&'z{:80}z{}zCONTINUE '' / zCONTINUE '&' / r)r+r ruÚ_format_long_commentary_imager!rŒrÚ enumeraterLrBr-rArrf) rZ value_lengthZcomment_lengthr¦r,ZwordsÚidxZwordZheadstrZ value_formatZcomment_formatr-rrrr¥×s4    zCard._format_long_imagec Cs`tjt}| ¡}g}d}x:|t|ƒkrT| tt|j||||…ƒƒ¡||7}qWd |¡S)z· If a commentary card's value is too long to fit on a single card, this will render the card as multiple consecutive commentary card of the same type. rr) r rŠrBr¢rArr>r+rf)rÚmaxlenr,r¦r«rrrr© s " z"Card._format_long_commentary_imagerKcCsúd|_tgƒ}d |j¡}|jr$|S|j|jkr~|jr~|jdd… ¡dkr~|j d¡dkr~|  |j |d |j¡||j d¡|jrš|jdd… ¡d ks |j r¢n„|jrà|  ¡d }|| ¡krà|  |j |d  |¡||jd¡|j}|jrü| d d ¡d }|j |¡s&|  |j |d |¡dd¡|  ¡\}}|j|jkrl|j |¡s¢|  |j |d |¡dd¡n6|j |¡}|s¢|  |j |d |j|¡||j d¡|j |¡}|dk rö| d¡}|dk rö|j |¡sö|  |j |d |¡dd¡|S)NTz*Fixed {!r} card to meet the FITS standard.r;z HIERARCH rrz)rZncardsr«rmrrrr‹us zCard._itersubcards)NNN)rK)ErrrÚ CARD_LENGTHrŠrÚcompilerBrCÚIrFZ _digits_FSCZ _digits_NFSCZ _numr_FSCZ _numr_NFSCrLZ_number_FSC_REr’rZr¯rŽZ_rvkc_identifierZ _rvkc_fieldZ_rvkc_field_specifier_sZ_rvkc_field_specifier_valZ_rvkc_keyword_valZ_rvkc_keyword_val_commrxror}rur{rHrr3r5r7r9Úpropertyr+Úsetterr,Údeleterrcrdr-rNr4rjÚ classmethodrnrqr*rtrvr:rPrerrœr r¡r¢r£rhr¥r©r°r‹rrrrr )sŒ       . 2 M       "2! (C ( 14 Zc Cspt|tƒr|Syt|ƒSttfk rjyt|ƒSttfk rd}ztt|ƒƒ‚Wdd}~XYnXYnXdS)z Converts an a string to an int if possible, or to a float. If the string is neither a string or a float a value error is raised. N)r=rOrSrEÚ TypeErrorr>)ÚsÚerrrr_‹s r_cCsÒt|tƒr8|dkrdS| dd¡}d |¡}d |¡Sn–t|ttjfƒrZd t|ƒd¡St|ƒrld |¡St|t tj fƒrŠd t |ƒ¡St|t tj fƒr¼d  t |jƒt |jƒ¡}d |¡St|tƒrÊdSdSd S) zk Converts a card value to its appropriate string representation as defined by the FITS format. rz''rzz'{:8}'z{:20}z{:>20}rz{:>20d}z({}, {})N)r=r>rŒrLrUrVrYr2rrOrWÚ _format_floatrTrXrˆr‰r)r,Z exp_val_strZval_strrrrr¢Ÿs&         r¢cCsÆd |¡}d|kr$d|kr$|d7}nNd|krr| d¡\}}|ddkr\|d}|dd…}nd }d  ||t|ƒ¡}t|ƒ}|d krÂ| d¡}|dkr¢|dd …}n |dd ||…||d…}|S) z@Format a floating number to make sure it gets the decimal point.z{:.16G}raÚEz.0r)ú+ú-rNrz {}E{}{:02d}é)rLrbrSrArw)r,Z value_strZ significandZexponentr†Zstr_lenr«rrrr¼Äs"     r¼cCsjt|ƒ}|tjkr|S|tjkrJ|tj}|dkr6|S|dtj|Sn|tj}|dtj|SdS)z9Pad blank space to the input string to be multiple of 80.rrN)rAr rŠ)ÚinputÚ_lenZstrlenrrrrkäs    rk)#rrJZnumpyrVÚutilrrrrrgrrr r rr Zastropy.utils.exceptionsr Ú__all__r>Ú maketransrŸr“r²rirBr{rGrr”r r_r¢r¼rkrrrrÚs:    j%