/objects/applications/smalltalk/generated_by_smalltalk.self

http://github.com/ticking/self · Unknown · 77 lines · 55 code · 22 blank · 0 comment · 0 complexity · cd63d758206355daed8cd756574bef4e MD5 · raw file 

    

  1. '$Revision: 30.6 $'
    2. 

  2.  '
    3. 

  3. Copyright 1992-2006 Sun Microsystems, Inc.
    4. 

  4. See the LICENSE file for license information.
    5. 

  5. '
    6. 

    7. 

  7. 

  8.  '-- Module body'
    9. 

  9. 

  10.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> () From: ( | {
    11. 

  11.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot'
    12. 

  12.         
    13. 

  13.          generated_by_smalltalk = bootstrap define: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () ToBe: bootstrap addSlotsTo: (
    14. 

  14.              bootstrap remove: 'comment' From:
    15. 

  15.              bootstrap remove: 'directory' From:
    16. 

  16.              bootstrap remove: 'fileInTimeString' From:
    17. 

  17.              bootstrap remove: 'postFileIn' From:
    18. 

  18.              bootstrap remove: 'revision' From:
    19. 

  19.              bootstrap remove: 'subpartNames' From:
    20. 

  20.              globals modules init copy ) From: bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( |
    21. 

  21.              {} = 'ModuleInfo: Creator: globals modules generated_by_smalltalk.
    22. 

    23. 

  23. CopyDowns:
    24. 

  24. globals modules init. copy 
    25. 

  25. SlotsToOmit: comment directory fileInTimeString postFileIn revision subpartNames.
    26. 

  26. 

  27. \x7fIsComplete: '.
    28. 

  28.             | ) .
    29. 

  29.         } | ) 
    30. 

  30. 

  31.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    32. 

  32.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot\x7fVisibility: public'
    33. 

  33.         
    34. 

  34.          comment <- ''.
    35. 

  35.         } | ) 
    36. 

  36. 

  37.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    38. 

  38.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot\x7fVisibility: public'
    39. 

  39.         
    40. 

  40.          directory <- 'applications/smalltalk'.
    41. 

  41.         } | ) 
    42. 

  42. 

  43.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    44. 

  44.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: InitializeToExpression: (_CurrentTimeString)\x7fVisibility: public'
    45. 

  45.         
    46. 

  46.          fileInTimeString <- _CurrentTimeString.
    47. 

  47.         } | ) 
    48. 

  48. 

  49.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    50. 

  50.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot'
    51. 

  51.         
    52. 

  52.          postFileIn = ( |
    53. 

  53.             | 
    54. 

  54.             transporter moduleDictionary resetFillingSemaphore.
    55. 

  55.             snapshotAction addSchedulerInitialMessage:  
    56. 

  56.               message copy receiver: transporter moduleDictionary
    57. 

  57.                            Selector: 'resetFillingSemaphore'.
    58. 

  58.             resend.postFileIn).
    59. 

  59.         } | ) 
    60. 

  60. 

  61.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    62. 

  62.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot\x7fVisibility: public'
    63. 

  63.         
    64. 

  64.          revision <- '$Revision: 30.6 $'.
    65. 

  65.         } | ) 
    66. 

  66. 

  67.  bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'generated_by_smalltalk' -> () From: ( | {
    68. 

  68.          'ModuleInfo: Module: generated_by_smalltalk InitialContents: FollowSlot\x7fVisibility: public'
    69. 

  69.         
    70. 

  70.          subpartNames <- ''.
    71. 

  71.         } | ) 
    72. 

  72. 

  73. 

  74. 

  75.  '-- Side effects'
    76. 

  76. 

  77.  globals modules generated_by_smalltalk postFileIn
    78.