equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls) |
4 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls) |
3 Copyright (C) 2001 eXept Software AG |
5 Copyright (C) 2001 eXept Software AG |
4 |
6 |
5 Permission is hereby granted, free of charge, to any |
7 Permission is hereby granted, free of charge, to any |
1907 compiledReceiver as value." |
1909 compiledReceiver as value." |
1908 |
1910 |
1909 |aCleanedReceiverString compiledReceiver| |
1911 |aCleanedReceiverString compiledReceiver| |
1910 |
1912 |
1911 aCleanedReceiverString := self cleanInputs:(receiverEditor contents). |
1913 aCleanedReceiverString := self cleanInputs:(receiverEditor contents). |
|
1914 "/ allow C-style integers |
|
1915 (aCleanedReceiverString startsWith:'0b') ifTrue:[ |
|
1916 aCleanedReceiverString := '2r',(aCleanedReceiverString withoutPrefix:'0b') |
|
1917 ] ifFalse:[ |
|
1918 (aCleanedReceiverString startsWith:'0x') ifTrue:[ |
|
1919 aCleanedReceiverString := '16r',(aCleanedReceiverString withoutPrefix:'0x') |
|
1920 ] ifFalse:[ |
|
1921 (aCleanedReceiverString startsWith:'0o') ifTrue:[ |
|
1922 aCleanedReceiverString := '8r',(aCleanedReceiverString withoutPrefix:'0o') |
|
1923 ]. |
|
1924 ]. |
|
1925 ]. |
1912 compiledReceiver := Compiler evaluate:aCleanedReceiverString. |
1926 compiledReceiver := Compiler evaluate:aCleanedReceiverString. |
1913 ((self isExpression:aCleanedReceiverString) or:[ compiledReceiver isNil ]) ifTrue:[ |
1927 ((self isExpression:aCleanedReceiverString) or:[ compiledReceiver isNil ]) ifTrue:[ |
1914 aCleanedReceiverString := compiledReceiver printString |
1928 aCleanedReceiverString := compiledReceiver printString |
1915 ]. |
1929 ]. |
1916 ^ aCleanedReceiverString -> compiledReceiver. |
1930 ^ aCleanedReceiverString -> compiledReceiver. |