analyzer/tests/stx_goodies_petitparser_analyzer_tests.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 03 Nov 2014 09:10:56 +0000
changeset 405 0470a5e6e712
parent 386 a409905f7f2d
child 420 b2f2f15cef26
permissions -rw-r--r--
Merged PetitParser and PetitTests Name: PetitParser-JanKurs.253 Author: JanKurs Time: 30-10-2014, 03:55:46 AM UUID: c7100f9c-e875-4453-8f26-e0c91dd49b91 Name: PetitTests-JanKurs.63 Author: JanKurs Time: 30-10-2014, 12:54:37 PM UUID: 7afbeef7-eadf-4d65-bce5-7204e2727edb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/petitparser/analyzer/tests' }"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
LibraryDefinition subclass:#stx_goodies_petitparser_analyzer_tests
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'* Projects & Packages *'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
386
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 382
diff changeset
    10
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    11
!stx_goodies_petitparser_analyzer_tests class methodsFor:'accessing - monticello'!
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    12
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    13
monticelloLastMergedVersionInfo
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    14
    "The last merged version is: "
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    15
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    16
    ^ '
405
0470a5e6e712 Merged PetitParser and PetitTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 386
diff changeset
    17
    Name: PetitAnalyzer-JanKurs.48
0470a5e6e712 Merged PetitParser and PetitTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 386
diff changeset
    18
    Author: JanKurs
0470a5e6e712 Merged PetitParser and PetitTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 386
diff changeset
    19
    Time: 30-10-2014, 12:53:26 PM
0470a5e6e712 Merged PetitParser and PetitTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 386
diff changeset
    20
    UUID: 13464ded-5457-4b5b-ba2f-b4ab7dcec782 
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    21
    '
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    22
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    23
    "Created: / 03-10-2014 / 02:40:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
405
0470a5e6e712 Merged PetitParser and PetitTests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 386
diff changeset
    24
    "Modified: / 03-11-2014 / 09:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    25
!
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    26
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    27
monticelloName
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    28
    "Return name of the package for Monticello. This is used when package is exported"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    29
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    30
    ^ 'PetitAnalyzerTests'
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    31
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    32
    "Created: / 03-10-2014 / 01:48:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    33
    "Modified: / 04-10-2014 / 21:37:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    34
! !
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    35
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
!stx_goodies_petitparser_analyzer_tests class methodsFor:'description'!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
excludedFromPreRequisites
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    "list all packages which should be ignored in the automatic
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
     preRequisites scan. See #preRequisites for more."
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    ^ #(
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
mandatoryPreRequisites
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    47
    "list packages which are mandatory as a prerequisite.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    48
     This are packages containing superclasses of my classes and classes which
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    49
     are extended by myself.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    50
     They are mandatory, because we need these packages as a prerequisite for loading and compiling.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    51
     This method is generated automatically,
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    52
     by searching along the inheritance chain of all of my classes."
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    ^ #(
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    55
        #'stx:goodies/petitparser/tests'    "PPAbstractParserTest - superclass of PPAnalyzerTest"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    56
        #'stx:goodies/sunit'    "TestAsserter - superclass of PPAnalyzerTest"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    57
        #'stx:libbasic'    "LibraryDefinition - superclass of stx_goodies_petitparser_analyzer_tests"
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
referencedPreRequisites
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    62
    "list packages which are a prerequisite, because they contain
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    63
     classes which are referenced by my classes.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    64
     We do not need these packages as a prerequisite for loading or compiling.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    65
     This method is generated automatically,
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    66
     by searching all classes (and their packages) which are referenced by my classes."
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
    ^ #(
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    69
        #'stx:goodies/petitparser'    "PPAndParser - referenced by PPAnalyzerTest>>testIsNullable"
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
    70
        #'stx:goodies/petitparser/analyzer'    "PPListPattern - referenced by PPRewriterTest>>testDuplicationRemoval"
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
subProjects
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
    "list packages which are known as subprojects.
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
     The generated makefile will enter those and make there as well.
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
     However: they are not forced to be loaded when a package is loaded;
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
     for those, redefine requiredPrerequisites"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
    ^ #(
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
! !
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
!stx_goodies_petitparser_analyzer_tests class methodsFor:'description - contents'!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
classNamesAndAttributes
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
    "lists the classes which are to be included in the project.
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
     Each entry in the list may be: a single class-name (symbol),
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
     or an array-literal consisting of class name and attributes.
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
     Attributes are: #autoload or #<os> where os is one of win32, unix,..."
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    ^ #(
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
        "<className> or (<className> attributes...) in load order"
380
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
    94
        (PPAnalyzerTest autoload)
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
    95
        (PPRewriterTest autoload)
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
    96
        (PPSearcherTest autoload)
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
        #'stx_goodies_petitparser_analyzer_tests'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
extensionMethodNames
382
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
   102
    "list class/selector pairs of extensions.
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 380
diff changeset
   103
     A correponding method with real names must be present in my concrete subclasses"
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    ^ #(
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
    )
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
! !
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
!stx_goodies_petitparser_analyzer_tests class methodsFor:'description - project information'!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
companyName
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
    "Return a companyname which will appear in <lib>.rc"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   114
    ^ 'eXept Software AG'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   115
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   116
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   117
description
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   118
    "Return a description string which will appear in vc.def / bc.def"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   119
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
    ^ 'Smalltalk/X Class library'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
legalCopyright
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
    "Return a copyright string which will appear in <lib>.rc"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
    ^ 'Copyright Claus Gittinger 1988-2014\nCopyright eXept Software AG 1998-2014'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
productName
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
    "Return a product name which will appear in <lib>.rc"
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
    ^ 'Smalltalk/X'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
! !
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
!stx_goodies_petitparser_analyzer_tests class methodsFor:'documentation'!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
version
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/tests/stx_goodies_petitparser_analyzer_tests.st,v 1.1 2014-03-04 20:26:59 cg Exp $'
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
!
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   140
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
version_CVS
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/tests/stx_goodies_petitparser_analyzer_tests.st,v 1.1 2014-03-04 20:26:59 cg Exp $'
380
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
   143
!
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
   144
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
   145
version_HG
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
   146
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 275
diff changeset
   147
    ^ '$Changeset: <not expanded> $'
275
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
! !
d4be37b311b0 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149