mim/mim/mimlib/itime.msubr

   1 <PACKAGE "ITIME">
   2 <ENTRY ITIME QTIME LTIME ETIME BTIME IDAY TIME-ZONE DAY DAY-PART TIME-PART
   3 STIME DTIME>
   4 <SETG TM-SECONDS 1>
   5 <SETG TM-MICRO 2>
   6 <SETG TZ-MINUTES 1>
   7 <SETG TZ-DST 2>
   8 <MANIFEST TM-SECONDS TM-MICRO TZ-MINUTES TZ-DST>
   9 <SETG DAY 65536>
  10 <SETG MONTHS '["JAN" "FEB" "MAR" "APR" "MAY" "JUN" "JUL" "AUG" "SEP" "OCT"
  11 "NOV" "DEC"]>
  12 <GDECL (MONTHS) <VECTOR [REST STRING]>>
  13 <SETG TIME-STRING <ISTRING 22 !\ >>
  14 <GDECL (TIME-STRING) STRING>
  15
  16 <SETG \1adtime-IMSUBR #IMSUBR [|AAADHCCOH\AEACDAAAAAAKDAAAAAAKDAAAAAAKCCE_CCE_CCE_CCE_BMH]AAAAABABCCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGBGBMH]AAAAAICCBMH]AAAAAACSBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAANFIBLCIAAAEBKEACKDNAAAKDGAQBADMAAAUBAAYBACQBLCIAAAMBLCAAAAIBADMAAA]BADIAAAEBLCIAAAUAMDNABCBAAACDGBEBMH[H`FQBMH]AAAAAAFABMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAANC[BLCIAAAEBKEABQDNAAAIFRH]AAAAAAAWDMAOBQD]AAAABAB]AAAAABCBCOHYAAFOBQDNAAAIGQH]H`HKBOAIG`FNAAAME`DNAAAIBMH[H`DABMH]AAAAABAABMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAQBMHNAAAUCLHOH`HQDQACDAAAACBSBADNAAAUBCDIAAAEBEDJH`H]BEDKH`H]BOBKAAAEBMAHCMD]DYAHAAAAAAAKG_F]AAAAAABQBEDNAAAMAUEHBOAGCMD[DIAFH`HKG[F[H`HMAVCFAAABAVD]AABAAAACBGDMAABEBGA\BGCTBADJH`H]BOBIAAAEBABTD_HYBADTD_H]CCEHA_AQAVCHAAADCCEHA_BIAAABAVCHAAAECCEHA_BIAAACAVCHAAAFAVD]AABAAAAGBOBJAAAEBMAHCMD[DYAHH`EWG_F[H`EYAVCHAAAHBOAGCMD[DIAFH`EGG[F[H`EIAVCFAAAIAVD]AABAAAAJBADNAAAUBCDIH`H]BGDJAAAEBOBLAAAEBMAHCMD[DYAHH`DAG_F[H`DCAVCHAAAKBOAGCMD[DIAFH`CQG[F[H`CSAVCFAAALAVD]AAB[AAAMBCDLH`H]BOBJAAAEBMAHCMD[DYAHH`BSG_F[H`BUAVCHAAANBOAGCMD[DIAFH`BCG[F[H`BEAVCFAAAOAVD]AAB[AAAPBCDLH`H]BCDJH`H]BOBJAAAEBMAHCMD[DYAHH`AAG_F[H`ACAVCHAAAQBOAGCMD[DIAFH_HQG[F[H_HSAVCFAAARAVD]AABAAAASBCDIH`H]BCDJH`H]BAAZBACRCCEHA_AQAVCHAAATCCEHA_BIAAABAVCHAAAUCCEHA_BIAAACAVCHAAAVBACKBABNAAAICOHYAAFOCOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGASHJHNDQAQAAAEBACHBAB]AAAAAACACOHYAAFOBOBNAAAMHBEPHBEPBMBNAAAEACEGAAAAH`H`EMEHBACGBAB[H`HACOHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGAUBOBNAAAEACEHAAAAH`H`BACHBAB[H`FICOHYAAFOBOBNAAAEACEHH`H`AAAABMBNAAAMACEGAAAAH`H`EMEHBACGBAB[H`EICOHYAAFOAAAACOH\AEACDAAAAAAKDAAAAAAKDAAAAAAKCCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGBEBMH[H]HQBMH]AAAAADDABMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAAKE[BLCIAAAEBKEACKDNAAAKDGASBADMAAA]BADIAAAEBLCIAAAMBLD[H]FAAAAIAMDNAHGGAAACDGB_BMH[H]FMBMH]AAAAADGABMGNBMHNH`H]DMAEBNCNH`H]BADNAAAEBMH[H_HWBMGQBMH[H_HQBMHIAAAEBMHNAAAIBMHNAAAMCLHOH`HIDQADDAAAAACSCOHYAAFOBMH[H]DOBMH]AAAAADHKBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAABACOHYAAFOAAAACOH\AEACDAAAAAAODAAAAAAODAAAAAAODAAAAAAOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H]AACCE_BMH[H\H[CCE_CCE_CCE_BMH[H_DOCCE_BMH[H_DICCE_BMH[H_DCCCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGBEBMH[H\HGBMH]AAAAAEDKBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAAJEQBLCIAAAEBKEACKDNAAASDGASBADMAAA]BADIAAAEBLCIAAAUBLD[H\EWAAAQBADNAAAUBCDIAAAEBEDIH`H]BGDKAAAEAMDNAACAAAACDGAMBEDNAAAEBEAVBLCKAAA]DAAOBEDNAAAEBACSBLCIAAA]BEB[H^HABLCCAAAYBADNAAA]BAACCKDNAAAKDHBIBMH[H\DIBMH]AAAAAFDEBMGNBMHNH`H]DMAEBNCNH`H]BLCIAABEBLCAAABABLCJAABMBLCLAABUDADAAMDNAACAAAACDGDMBMH[H\BYBMH]AAAAAFDEBMGNBMHNH`H]DMAEBNCNH`H]BMH[H\BCBMH]AAAAAFCKBMGNBMHNH`H]DMAEBNCNH`H]BMH[H\EQCCE_BMGVBMGKBLCIAABEBLCAAABABLCJAABMBLCLAABUCLHOH`HQDQACDAAAACFOBLCIAAAMBLCAAAAIBMHNAAAIBMHNAAAMCLHOH`HYDQABDAAAACEQDACKBMH[H[GMBMH]AAAAAFFQBMGNBMHNH`H]DMAEBNCNH`H]BLCIAABEBLCAAABABADKAAAEBMHNAAAIBMGIBMH[H^AIBMGSBLCIAAAMBLD[H]H_AAAIBLCJAABMBLCLAABUCLHOH`HQDQACDAAAACCIBCDNAAAUBEDJH`H]BEDKH`H]BEEABFCIAAAEBOBNAAAMACEHAAABAAAACKEHDHAECTFNAAAMBOBNAAAMACEHAAAAAAB`BADMAABMBADIAAAEBMAICMD]DIAGAAAAAAAYCMAGDYAACEEHG_FNAABEBMH[H[BYBMH]AAAAAGBKBMGNBMHNH`H]DMAEBNCNH`H]BMH[H]EGBMGHBLCHAABEBLD[H]D]AABACLHOH`HYDQABDAAAH]CQGQH]ACG\BOAICMD]DYAHAAAAAFFVHFEPG_F]AAAAAACEBMAICMD[DIAFH`HOG[F]H`H`H_ESBADMAABUCKEFDNAGBQD]AAAADAAUG[F]AAAAABDOBLD]AAAKADCCAABYBLCIAAB]DABUCSEHG[F]H`H`H_ETCKEFDNAKCSEHG[F[H`HUCKEFDMASG[F]AAAAABDNBLD[H[BKAABYBLCIAAB]DAAMCSEHBLD[H[A]AABYBLCIAAB]BCDNAABMBDCHAAAED_ABBEDMAAB]BEBMAABYBLCKAAA]BLCCAAAYBLCHAACEBLCFAACMCKFZA`H`H`HIDHAECOFYABBYCKDNAAAYDPDMBADNAAA]BCCQBLCJAACUCKFNAAB]DHAOFTH]AAAAAAA]DGAGD_A^BLCHAACUBOBNAACME_FNAACUCKEHDMBGBADNAABMBCDIH`H]BCFNAACABDDNAACEAAAEBOBNAACMCSEHBADIH`H]BADIH`H]BBCHAAAEDAA]BOBNAACUE`FNAACMCSFNAACECTDNAAAYCYEIBLCIAAA]BLCIAAA]DAECBMH[HYHOBMH]AAAAAHEQBMGNBMHNH`H]DMAEBNCNH`H]BMH[HYGYBMH]AAAAAHECBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABABMHNAABECLHOH`HYDQABDAAAH\CMBMGABMGICLHOH`HYDQABDAAAAHCGBOAICMD]DYAHAAAAAOAQBCDNAABUBDCHAAAEBOAICMD[DYAGH`HOBOAGCMD]DIAGAAAAAAB]BADJH`H]BBCGAAAEBMAHCMD[DYAFH`HOBADJH`H]BADIH`H]BBCFAAAEBADNAAAUBAB[HYCECOHYAAFOCOH\AEACDAAAAAAKDAAAAAAMDAAAAAAMBMH[HYGKCCE_CCE_CCE_CCE_CCE_BMH]AAAAAHGGCCE_BMH[H[EUCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAACEBAAYBACQBCDMAACMBCAZBCCRAMDNABCBAAACDHAWBLCJAAA]BLCBAAAYBLCIAAAUBLCAAAAQCKDNAAAKDGDSBMH[HXHQBMH]AAAAAIDWBMGNBMHNH`H]DMAEBNCNH`H]BMGBBMGJBLCIAAAUBLCAAAAQBLCJAAA]BLCBAAAYCLHOH`HYDQABDAAAADCEBADNAAA]BCCQBOAJCMD[DYAHH`BOBLCHAABECKDNAAAKDGBGBMH[HXFEBMH]AAAAAIFMBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAAFCOBLCIAAAMBLCAAAAIBADNAAA]BCDIAAAEBOAJDPB_BMH[HXDSBMH]AAAAAIHQBMGNBMHNH`H]DMAEBNCNH`H]BMHNAAAIBMHNAAAMBMHNAABABMHNAABECLHOH`HQDQACDAAAAAF[FQD]ABCBDHAIAAFNAAABAAAAAABEAMDNABCBAAACDGAMBADNAABEBAB[HZEMCOHYAAFOAMDNAACAAAACDGCQBADNAAAUBABNAAAQFQF]AAAAH`H`DPBCBCDNAAAEFTHIAAAEDGAIAMDIAACAAAACDHA]GQF]H`H`AAAACQEIFQF[H`G_DPACDAHCBADNAABEBAB[HZCGCOHYAAFODYABCOFYABFKBCAYBCCQBACJBAABCOHYAAFOCOFYAAFUBMGVBMHNAAAEBMHNAAAQBMHNAAAUDQACBADMAACUCOFYAAF[FQD]ABCBDHAQBCBIAAAIBCDIAAAMBACJBAABCOHYAAFOBADMAAC]BABMAACYCOHYAAFOCCE_CCE_CCE_CCE_BMH[HYHGCCE_BMH[HYHACCE_BMH[HYG[CCE_CKFZA`H`H`HIDHAECOFYABBYBOBNAAAMACEHAAAAAAB`HDEPBADMAABMBADIAAAEBMAICMD[DIAGH]AEG_EGCEEHG_FNAAAEHJGHDAAQG]F]AAAAACG\BKAGCMD[DIAEH]BSGYF[H]CEBADMAABUCKEEDNAGBQD]AAAADAAQGYF[H]CGBLD[H]CIAAAQBLCIAAAUDABIGYF[H]CMCKEEDNASGYF[H]CEBLD[HWEEAAAQBLCIAAAUCKEEDMAOGYF[H]CGBLD[HWDSAAAQBLCIAAAUD]ABBCDMAAB]BCBMAABYBLCJAAA]BLCBAAAYBLCGAABEBLCHAAAEBLCEAABMCKFZA`H`H`HIDHAECOFYABBYCKDNAAAYDPCKBADNAAA]BCCQBLCJAABUCKFNAAAUDHAMFTH[H]C[DGAGD_A^BLCHAABUBOBNAABME_FNAABUCKEHDMAGCSFNAABMDAA]BOBNAABUE`FNAABMCSFNAABECTDNAAAYCYEIBLCIAAA]BLCIAAA]DAFEAMFNAAAAAAAEAABEDPAWAMFNAAAAAAAKAABEDMAMBADMAABUBABMAABQCOHYAAFOAMFNAAAAAAAEAABEDHAWAMFNAAAAAAAKAABEDHAMBQD]AAAABAB[HVFWCOHYAAFOBMH[HVBKBMH]AAAAALBOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAECLHOH`HYDQABDAAAAEAEFRH]AAAAAAAGDGAID_HZBLCHAABUDAAGC^EIBLCIAABUAMFNAAAAAAAEAABEDGBKAGFNAAAAAAA_AABUBOBNAABMF_FNAABUDPAMBADMAABUBABMAABQCOHYAAFOBQD]AAAABAB[HVCGCOHYAAFOAMFNAAAAAAAKAABEDHAMBQD]AAAABAB[HVBQCOHYAAFOAGFNAAAAAAA`AABUBOBNAABMF_FNAABUDMAMBADMAABUBABMAABQCOHYAAFOBQD]AAAABAB[HVAGCOHYAAFOCKFZA`H`H`HIDHAECOFYABBYBADMAADEBMGYBMGQBMGVBMHNAAAEDYACBKB]AAAAAAEICOFYACA]BACFBAAECOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBADMAADEBMGYBMGQBADMAACMBMGYBMGQDYACBKB[H`GOCOFYACA]BACFBAAECOHYAAFOAAAACOH\AEACDAAAAAA[DAAAAAA]DAAAAABCDAAAAABGDAAAAABIDAAAAABKDAAAAABMBMH[HWC_CCE_BMH[HWCYBMH]AAAAAAABBMH[HWCOBMH[H`HWBMH[HWCGCCE_BMH[HWCACCE_BMH[HWB[CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAADMBAAYBACQCKFNAAAEDMCEBMH[HTFOBMH]AAAAAMFKBMGNBMHNH`H]DMAEBNCNH`H]BLCIAABUBLCAAABQCLGWDQAADAAAH`CABADMAADEBAAYBACQBCCQBOAJCMD]DYAHABHBBTEABLCHAAAEBKF[HVGUDABWAMFNAAAAAHFSAAAEDNASAGFNH`H`HYCOAAAEBLCIAABUBLCAAABQDAA[BLCIAABUBLCAAABQAMFNAAAAAACGAAAEDNAIAGFNH`H`H`F[AAAEBOBNAAAECMB[DYAAHZECBMBNAAAECSEGBKAGCKEGDMACCWEGHEEGG_EGBMBNAAAECUEGACEGAAAAAAADCKEGDGAOAMFNAAAAAAACAAAMDPAED]ABDAACD]AAG_EGBADNAABUBMBNAAAMBCDQDMH]G_EJG_FNAAAUCTEHBMBNAAA]BMH[HSG_BMH]AAAAANEGBMGNBMHNH`H]DMAEBNCNH`H]BLCHAAAUBLD[HVBIAAAQBLCGAAB]BLD[HVA_AABYCLGWDQAADAAAH[DIBOAIACEHAAAAAAB`BMBNAAB]G]EHHJGHCQAQE]EFBOBNAAAUHBEPHBEPBMH[HSEQBMH]AAAAANHIBMGNBMHNH`H]DMAEBNCNH`H]BKBNAABECMB[CYAAHZHQCMB[DIAAHZGQG[EGG[FNAABMBMH[HUGIBMGFBLCHAAB]BLD[HUF_AABYCLHOH`HYDQABDAAAAAE_BOAIEOFNAAB]BACHBAB[HUFGCOHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBMH[HSBKBMH]AAAAAOBGBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH^GEBADMAADEBAAYBACQBCCQBOAJCMD]DYAHAAABCREAHBEPHBEPBMH[HRHUBMH]AAAAAODUBMGNBMHNH`H]DMAEBNCNH`H]BMAJCMD[DIAFH`G]BMH[HUB[BMGFBLCHAAAEBKF[HUBQCLHOH`HYDQABDAAAAAASBOAIEOFNAAAEBACHBAB[HUA[COHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBIBNAAAECOFYABDOBKB]CHEAAAAACOFYABEGBIAFBLCFAAAMBLD]AAAAAAGAAAAIBKB]CHFIGAAACOFYABACBIAFCOFYABDIACEEAAAAH`H`BACEBAB[HTGKCOHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBOBNAAAEACEHAAAAH`H`BIAHCOFYABDOBKB[H`GACOFYABEGBIAFBLCFAAAMBLD[H`FKAAAIBKB[H`EUCOFYABACBIAFCOFYABDIBACEBAB[HTD_COHYAAFOCOH\AEACDAAAAAAGDAAAAAAGCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGBEBMH[HQHQBMH]AAAAAPDABMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH_E[BLCIAAAEBKEAHJHNDQAQAAAECWEHBMAHCMD]DYAFAAAAAAAHBACFBAB[HTA]COHYAAFOAAAAAAAA| dtime-IMSUBR %<GBIND TIME-STRING T>  %<GBIND
  17 TIME-LIST T>  %<GBIND MONTHS T>  %<GBIND DAY T>  T ![31 28 31 30 31 30 31 31 30
  18 31 30 31!] %<GBIND ZONELIST T>  %<GBIND ZONE-UV T>  MEMBER #FALSE (
  19 "Unknown time zone") %<GBIND TIME-UV T>  %<GBIND LOSSAGE T>  ]>
  20 <SETG \1aDTIME #MSUBR [dtime-IMSUBR DTIME ("VALUE" <OR FALSE STRING> "OPTIONAL"
  21 <OR FIX FALSE> STRING) 0]>
  22 <SETG \1aDAY-PART #MSUBR [dtime-IMSUBR DAY-PART ("VALUE" FIX FIX "OPTIONAL" FIX)
  23  620]>
  24 <SETG \1aTIME-PART #MSUBR [dtime-IMSUBR TIME-PART ("VALUE" FIX FIX "OPTIONAL"
  25 FIX) 704]>
  26 <SETG TIME-LIST ((0 0 0) (0 0 0) "EST")>
  27 <GDECL (TIME-LIST) <LIST LIST LIST STRING>>
  28 <SETG \1aLTIME #MSUBR [dtime-IMSUBR LTIME ("VALUE" <LIST [2 LIST] STRING>
  29 "OPTIONAL" <OR FIX UVECTOR> <LIST [2 LIST] STRING>) 792]>
  30 <SETG \1aETIME #MSUBR [dtime-IMSUBR ETIME ("VALUE" <LIST [2 LIST] STRING>
  31 "OPTIONAL" <OR FIX UVECTOR> FIX <LIST [2 LIST] STRING>) 1008]>
  32 <SETG \1aTIME-ZONE #MSUBR [dtime-IMSUBR TIME-ZONE ("VALUE" ANY "OPTIONAL" <OR
  33 FIX STRING FALSE> ANY) 2012]>
  34 <SETG \1aIN-DST? #MSUBR [dtime-IMSUBR IN-DST? ("VALUE" <OR ATOM FALSE> FIX FIX)
  35 2472]>
  36 <SETG \1aDO-FTIME #MSUBR [dtime-IMSUBR DO-FTIME ("VALUE" ANY ANY) 3000]>
  37 <SETG \1aDO-TIME #MSUBR [dtime-IMSUBR DO-TIME ("VALUE" ANY) 3048]>
  38 <SETG TIME-UV <UVECTOR 0 0>>
  39 <SETG ZONE-UV <UVECTOR 0 0>>
  40 <GDECL (TIME-UV ZONE-UV) UVECTOR>
  41 <SETG ZONELIST '["EST" 5 "EDT" 65541 "CST" 6 "CDT" 65542 "MST" 7 "MDT" 65543
  42 "PST" 8 "PDT" 65544 "YST" 9 "YDT" 65545 "HST" 10 "HDT" 65546 "BST" 11 "BDT"
  43 65547 "AST" 4 "ADT" 65540 "NST" 3 "GMT" 0]>
  44 <GDECL (ZONELIST) <VECTOR [REST STRING FIX]>>
  45 <SETG \1aBTIME #MSUBR [dtime-IMSUBR BTIME ("VALUE" FIX "OPTIONAL" FIX FIX FIX
  46 FIX FIX FIX) 3096]>
  47 <SETG LOSSAGE '![0 31 59 90 120 151 181 212 243 273 304 334!]>
  48 <SETG \1aITIME #MSUBR [dtime-IMSUBR ITIME ("VALUE" FIX) 3576]>
  49 <SETG \1aSTIME #MSUBR [dtime-IMSUBR STIME ("VALUE" FIX FIX) 3716]>
  50 <SETG \1aQTIME #MSUBR [dtime-IMSUBR QTIME ("VALUE" FIX FIX) 3796]>
  51 <SETG \1aIDAY #MSUBR [dtime-IMSUBR IDAY ("VALUE" FIX "OPTIONAL" FIX) 3872]>
  52 <ENDPACKAGE>