home *** CD-ROM | disk | FTP | other *** search
/ European Smalltalk User Group 2004 September / esugcd.iso / Books-Tutorial-Lectures / Articles / AnsiSmalltalkStandard / x3j20.doc / Macros / VBA / x3j10files1296 < prev    next >
File List  |  2002-05-21  |  13KB  |  57 lines

  1. ╢                      x▐F╠    ∙')$    b╓╓:+    ▀                                                                                                                                  (6
  2.     <  <   <      ╫ìh4 $*\Rffff*2434688ed0▀    ° x`                      ä┘@ä(           ß    X«`            ╕     îâ.        ≡°Ç        ╪Iâ(               Ç░╕`            X      îâ.        ÉÿÇá
  3.     xIâ(               Çê ▓X`            °     ╧╧îâ.        08Ç    Iâ(               Ç┤°`            ÿ     îâ.        ╨╪Ç    ╕Iâ(               Ç¼    `            8     îâ.        p    Ç    X@ä(               h°                ╕Xx⬠     Φ                  $    8                °                        └                            
  4. ÿME          ■╩Ç        "üÇüü üT0üêÇ        Ç        Bà Éüÿü╕ü╚üΦÇ    °Ç    ü(ü@Ç    PÇ    püÇüáü░ü╚ü╪üαÇ        Bà Φü≡üü ü8üHühüxüÇÇ        Ç        Bà êüÉü░ü└ü╪üΦüüü0ü@ü`üpüÉüáü└ü╨ü≡üüü(üHüXüpüÇüáü░ü╚ü╪ü°Ç    BÇ    :PÇ    ÉÇ    ░ü└ü╪üΦüüü(ü8üXühüêüÿü░ü└ü╪üΦüüü0ü@üXühüêüÿü╕Ç        ü╚üΦü°üü(üHüXüpüÇüáü░ü╨üαü    ü    ü0    ü@    üX    üh    üê    üÿ    ü╕    Ç        ü╚    üΦ    ü°    ü
  5. ü (
  6. üH
  7. üX
  8. üx
  9. ü ê
  10. ü¿
  11. ü╕
  12. ü╪
  13. Ç        üΦ
  14. ü ü ü0 ü@ ü` üp üÉ üá ü└ ü╨ ü≡ ü ü  ü0 üP ü` üx üê üá ü░ ü╨ üα ü° üü(ü8üPü`üÇüÉü¿ü╕ü╨üαüüü0ü@üXühüÇüÉü░ü└üαü≡üü ü@üPüpüÇüÿü¿ü╚ü╪ü°üü(ü8üXühüÇüÉü░ü└üαü≡üü ü@üPüpüÇüáÇ        ü░ü╨Ç        üαüüü0ü@ü`üpüÉüáü╕ü╚üΦü°üü ü@üPühüxüÿÇ        ü¿ü╚ü╪ü°üü(ü8üXühüpÇ        Ç        Bà xüÇüáü░ü╨üαü°Ç        Ç    Ç    (Ç        Ç    8Ç    HÇ    hÇ    xÇ        üÿüáÇ        Ç        Bà ¿Ç░Ç    D╕Ç    6Ç    F8Ç    
  15. ÇÇ    ÉÇ    @ÿÇ    ╪üαüΦüüü0üHüP    `ÅZΩ@╞ñû┘ .p  .$¼'(«
  16. There are  ($D « files in the current list «Messageñ@ "B@4xl  pÅx« standard.doc (+ .    (ñ '(« conform.doc (+ .$   (ñ '(▄ list$(i) = "concepts.doc"▄
  17.  i = i + 1«
  18. syntax.doc (+ . (ñ '(▄ list$(i) = "otherlan.doc"▄
  19.  i = i + 1« interch.doc (+ . (ñ '(«
  20. limits.doc (+ . (ñ '( ('«f  Å« protocol.doc (+ .@ (ñ '(«    style.doc (+ . (ñ '(« stdglob.doc (+ . (ñ '( ('░f  xÅ╕« fundment.doc (+ . (ñ '(«
  21. object.doc (+ . (ñ '(« boolean.doc (+ . (ñ '(«nil.doc (+ . (ñ '(«classdesc.doc (+ . (ñ '(« instant.doc (+ . (ñ '(« objclass.doc (+ . (ñ '(F« valuable.doc (+ .one +  (ñ '(he«
  22. nilval.doc (+ . (ñ '(« nilblock.doc (+ . (ñ '(«
  23. monval.doc (+ . (ñ '(« monblock.doc (+ . (ñ '(«
  24. dyaval.doc (+ . (ñ '(« exceptns.doc (+ . (ñ '(▄> ** extensions to valuables to support exceptions removed 5/96▄5 ** this has been folded in to the valuable protocols▄ list$(i) = "exval.doc"▄
  25.  i = i + 1«    exsel.doc (+ . (ñ '(«    exsig.doc (+ . (ñ '(«
  26. exinst.doc (+ . (ñ '(« exdescr.doc (+ . (ñ '(« exbuild.doc (+ . (ñ '(«
  27. signal.doc (+ . (ñ '(«
  28. except.doc (+ . (ñ '(« exceptcl.doc (+ . (ñ '(«    exset.doc (+ . (ñ '(«    error.doc (+ . (ñ '(« notific.doc (+ . (ñ '(« warning.doc (+ . (ñ '(« numerics.doc (+ . (ñ '(« numgrph.doc (+ . (ñ '(« magnitud.doc (+ . (ñ '(«
  29. number.doc (+ . (ñ '(« fraction.doc (+ . (ñ '(« decimal.doc (+ . (ñ '(« integer.doc (+ . (ñ '(« realnmbr.doc (+ . (ñ '(«    float.doc (+ . (ñ '(« floatcls.doc (+ . (ñ '(« fractcls.doc (+ . (ñ '(« dtintro.doc (+ . (ñ '(« datetime.doc (+ . (ñ '(«datetimeclass.doc (+ . (ñ '(« duration.doc (+ . (ñ '(«durationclass.doc (+ . (ñ '(« calendar.doc (+ . (ñ '(«
  30. collns.doc (+ . (ñ '(« collgrph.doc (+ . (ñ '(« collect.doc (+ . (ñ '(« cntrctbl.doc (+ . (ñ '(« extcoll.doc (+ . (ñ '(« hshaccol.doc (+ . (ñ '(« seqrdcol.doc (+ . (ñ '(« seqwrcol.doc (+ . (ñ '(«    abdic.doc (+ . (ñ '(«bag.doc (+ . (ñ '(« interval.doc (+ . (ñ '(«set.doc (+ . (ñ '(« rdstrng.doc (+ . (ñ '(«    array.doc (+ . (ñ '(« bytearay.doc (+ . (ñ '(«
  31. dctnry.doc (+ . (ñ '(«
  32. iddict.doc (+ . (ñ '(« seqcncol.doc (+ . (ñ '(« seqexcol.doc (+ . (ñ '(«
  33. string.doc (+ . (ñ '(«
  34. symbol.doc (+ . (ñ '(« ordcoll.doc (+ . (ñ '(« sortcol.doc (+ . (ñ '(« colltcls.doc (+ . (ñ '(« abdiccls.doc (+ . (ñ '(« incolcls.doc (+ . (ñ '(«
  35. bagcls.doc (+ . (ñ '(« intvlcls.doc (+ . (ñ '(« dctnycls.doc (+ . (ñ '(« iddctcls.doc (+ . (ñ '(« seqclcls.doc (+ . (ñ '(«
  36. setcls.doc (+ . (ñ '(« sortccls.doc (+ . (ñ '(« arraycls.doc (+ . (ñ '(« bytarcls.doc (+ . (ñ '(« ordclcls.doc (+ . (ñ '(« strngcls.doc (+ . (ñ '(« symblcls.doc (+ . (ñ '(«character.doc (+ . (ñ '(« streams.doc (+ . (ñ '(« getstrm.doc (+ . (ñ '(« seqstrm.doc (+ . (ñ '(« putstrm.doc (+ . (ñ '(«    rstrm.doc (+ . (ñ '(« rstrmcls.doc (+ . (ñ '(«
  37. rwstrm.doc (+ . (ñ '(« rwstrmcl.doc (+ . (ñ '(«    wstrm.doc (+ . (ñ '(« wstrmcls.doc (+ . (ñ '(« filestr.doc (+ . (ñ '(« filecls.doc (+ . (ñ '(« readfil.doc (+ . (ñ '(« writefil.doc (+ . (ñ '( ('▓f  ê ÅX« glossary.doc (+ . (ñ '(« appendix.doc (+ . (ñ '(«
  38. sysrat.doc (+ . (ñ '(▄ list$(i) = "dtimerat.doc"▄
  39.  i = i + 1▄
  40.  i = i + 1▄ list$(i) = "dclratl.doc"▄
  41.  i = i + 1▄ list$(i) = "stdgloba.doc" ('┤f  X
  42. Å°ZΩx▄? This subroutine fills in the argument "list" with the names of▄1 files that make up the Smalltalk draft standard.▄A The argument must be a string array that is at least 150 entries▄ long.▄h    ▄< The subroutine returns the number of file names in the list▄     ñ'(  . ($«'(  . ($░'(  . ($▓'(  . ($┤'( ('¼f  ¿    á╣┤Attribute VB_Name = "x3j10files1296"
  43.  
  44. Public Sub MAIN()
  45. Dim iH
  46.  Relist__$(1,50<.iÜallö(<4WordBasic.MsgBox "T@here a" + Str(i)" > in the cur rent M", "Message
  47. 64
  48. Endú▒│riva┘FunctioÇn langu,F┌Å(), iJQ<âstandard.dockéhiJ1â{ïc@onformR4eméY$.cexptsäüû.sáyntaxú-oörvÑ-interchü=╦9lim■i.QEëY@Çë┴eàaéôìfprotocÇolIntroΣgâ┼ σ-style' αdglobù O,ô:╨íàΣ9fundm└╝Ñ.objecte boolean╟▀áqÇbnil_CclassdesµcinAn?DhαB ▀ ├ valuⁿab_@Et@@┐ ú ┴áblock π°mon┐ á⌐ª┐ ó»1πdya┐ ª exaænàælzaô** @extensα¿sp to á é)és└upport@ßBremovedÇ 5/96
  49. Dthis has been folld ╗ob╗e
  50.  ¥ds#┴Åà2exáçd,í
  51. ܪexse▀U3─IÇig┐7π+exoüU┐Ñ┴`r▀┼buil ╬sigⁿna▀╞a4_Ñ╤≥c▀+ ?pαA<╧)└R"erroO╧┬notifαé╧xÅÇwarnin ╥▀{ "n└umeric?0 ┴≤umgrpOs∩ΓmagnituτO σbe╧▀╥xfra"Äooæd≡ecim?#ƒìS ég▀∩πreal8nmb▀ ▀ ╙ lo╬aO#╧╟cl ≤í äûƒ  "d≥t≡ro┐┐▓0ª╕timƒà        d⌠┐k= ∩ƒT;dur■a1¼O    O    B    ⌠OOßf`cale»OAΘ» "¢loc!s! ╤?3O╡^±ƒî?4Γc░úctb┐JÅém▀/!hsh<ac  ±sexqrd ∩ Σ ≡wÄr  ⌠abd∩P≤»úba»Pob┴>>rGv╛r╠ü▐úse┐;»órdstrOYO ôarray∩∩ßbytea ∩Σdctnr≈▀ƒ Cd└▀╥∙ácn»┐┤≡ ÿ■oƒ+ ≤@√ooymb┐╙╡▓ list__$(i) = "ordcoll.@doc"
  52. °i┴Xi + 18 ╕psort^%\┤tcls%^abdi2c(/ina(/ba"g¬.tvl¿dchtny⌐/dÇ¿s╚eqc⌐Gse⌐╜év!h#arrai;by8tarΦAªj;tr┬niwsymb╫┐characterô│╥╦treamµ┐getstrmºÑ╦ä⌐ pujr ╧τêé┐;µÄrw┐ ¿ ²óc▀öñ܃ Hád ö4ß▒:file└▀4c¼╟┴_#G#ead@┐ Aú write·p╨rotoÑF┴í╗
  53. End Function
  54. !Privateª appendixó(┼└), i)q"gloss°ary▀├┼  π@sysrat│`
  55. Rem A┼┌d≡timeτ┴Φ┌π≤╬clÇ┼M¼ì╚stdÇbadâ#ç¬'.#1 all 9 es╟-`-Dim iCThis subroutine Çls in the argÇument "!!@" withnÇames ofcpat makÉe upBSm└talk draft stand0ard.òmu0st bPri|ngá░`3
  56. Éläea 150     riesSlongWΦ returns≥numb╠erP Ae 3 ö/±│ü0ºla└nguageè+g+â╤1Intro vÉÜ3E½è// 
  57.