imgsrc/main.st

   1 COMMENT The Smalltalk source code of the initial image.
   2 COMMENT Must be compiled with the image builder tools to
   3 COMMENT create a binary image for the Little Smalltalk
   4 COMMENT virtual machine.
   5 COMMENT
   6 COMMENT ---------------------------------------------------------------
   7 COMMENT Little Smalltalk, Version 5
   8 COMMENT
   9 COMMENT Copyright (C) 1987-2005 by Timothy A. Budd
  10 COMMENT Copyright (C) 2007 by Charles R. Childers
  11 COMMENT Copyright (C) 2005-2007 by Danny Reinhold
  12 COMMENT
  13 COMMENT ============================================================================
  14 COMMENT This license applies to the virtual machine and to the initial image of
  15 COMMENT the Little Smalltalk system and to all files in the Little Smalltalk
  16 COMMENT packages except the files explicitly licensed with another license(s).
  17 COMMENT ============================================================================
  18 COMMENT Permission is hereby granted, free of charge, to any person obtaining a copy
  19 COMMENT of this software and associated documentation files (the "Software"), to deal
  20 COMMENT in the Software without restriction, including without limitation the rights
  21 COMMENT to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  22 COMMENT copies of the Software, and to permit persons to whom the Software is
  23 COMMENT furnished to do so, subject to the following conditions:
  24 COMMENT
  25 COMMENT The above copyright notice and this permission notice shall be included in
  26 COMMENT all copies or substantial portions of the Software.
  27 COMMENT
  28 COMMENT THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  29 COMMENT IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  30 COMMENT FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  31 COMMENT AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  32 COMMENT LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  33 COMMENT FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  34 COMMENT DEALINGS IN THE SOFTWARE.
  35 COMMENT
  36 COMMENT
  37 COMMENT -----------------------------------------------------------
  38 COMMENT RAWCLASS name   instanceOf subclassOf  (instance variable names)
  39 COMMENT  or... CLASS name subclassOf (instance vars)
  40 COMMENT RAWCLASS doesn't automatically build Meta class; CLASS does
  41 COMMENT -----------------------------------------------------------
  42 COMMENT
  43 COMMENT -----------------------------------------------------------
  44 COMMENT Object subclass: System  cvar0 ...  [ | ivar0 ... ]
  45 COMMENT -----------------------------------------------------------
  46 COMMENT
  47
  48 PACKAGE System 1
  49 MODULE defs/base
  50
  51 PACKAGE LstCompiler 1 REQUIRES System 1
  52 MODULE defs/compiler
  53
  54 PACKAGE Files 1 REQUIRES System 1 LstCompiler 1
  55 MODULE defs/file
  56
  57 PACKAGE GstParser 1 REQUIRES System 1 LstCompiler 1
  58 MODULE defs/gstparser
  59
  60 PACKAGE HostOS 1 REQUIRES System 1
  61 MODULE defs/system
  62
  63 COMMENT PACKAGE HostOS 1 REQUIRES System 1
  64 COMMENT MODULE defs/ffi
  65
  66 COMMENT PACKAGE Image 1 REQUIRES HostOS 1
  67 COMMENT MODULE defs/image
  68
  69
  70 PACKAGE Repl 1 REQUIRES System 1
  71 INCLUDE repl
  72 COMMENT INCLUDE transcript
  73
  74
  75 COMMENTS
  76 CLASS ZTest  Object
  77
  78 METHODS FOR ZTest
  79 test [
  80   [ [ 5 ifNil: [
  81           ^nil ].
  82     ] whileTrue: [ nil ].
  83     6 ] whileTrue: [
  84      7 ].
  85   ^self
  86 ]
  87 !
  88 ENDCOMMENTS
  89
  90
  91 INCLUDE entries
  92 END