Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r50 - branches/0.6/Core

genelib
Discussion topic

Back to topic list

svn commit: r50 - branches/0.6/Core

Author lotec
Full name Jan Bogaerts
Date 2006-10-13 09:53:19 PDT
Message Author: LoTeC
Date: 2006-10-13 09:53:18-0700
New Revision: 50

Modified:
   branches/0.6/Core/Core.gen
   branches/0.6/Core/GeneCore.gen

Log:
-code adjustements for new language features

Modified: branches/0.6/Core/Core.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/Core/Core.gen?view=​diff&rev=50&​p1=branches/0.6/Core​/Core.gen&p2=bra​nches/0.6/Core/Core.​gen&r1=49&r2​=50
====================​====================​====================​==================
--- branches/0.6/Core/Core.gen (original)
+++ branches/0.6/Core/Core.gen 2006-10-13 09:53:18-0700
@@ -19,77 +19,75 @@
 
 global
 
-//for unicode, this is defined here, so that it is known in all units before any includes, also the project unit
-//#Unicode: bool = false
+pragma autextern on;
 
+namespace System('mscorlib');
 
-namespace mscorlib('mscorlib') extern('System');
-
-space sObject extern('Object') =
+class sObject =
  constructor Create extern('.ctor')
  destructor Destroy
 ;
 
-space sArray extern('Array') =
+class sArray =
 ;
 
-space sByte extern('Byte') =
+class sByte =
 ;
 
-space sChar extern('Char') =
+class sChar =
 ;
 
-space sDecimal extern('Decimal') =
+class sDecimal =
 ;
 
-space sDouble extern('Double') =
+class sDouble =
 ;
 
-space sEnum extern('Enum') =
+class sEnum =
 ;
 
-space sInt16 extern ('Int16') =
+class sInt16 =
 ;
 
-space sInt32 extern ('Int32') =
+class sInt32 =
 ;
 
-space sInt64 extern ('Int64') =
+class sInt64 =
 ;
 
-space sIntPtr extern ('IntPtr') =
+class sIntPtr =
 ;
 
-space sSingle extern('Single') =
+class sSingle =
 ;
 
-space sUint16 extern ('Int16') =
+class sUint16 =
 ;
 
-space sUint32 extern ('Int32') =
+class sUint32 =
 ;
 
-space sUint64 extern ('Int64') =
+class sUint64 =
 ;
 
-space sUintPtr extern ('IntPtr') =
+class sUintPtr =
 ;
 
-space sValueType extern('ValueType') =
+class sValueType =
 ;
 
-space smulticastdelegate extern('MulticastDelegate')=
+class sMulticastDelegate =
  constructor create(aOwner: sObject, aExp: native) extern('ctor')
 ;
 
-space sAttribute extern('Attribute') =
+class sAttribute =
 ;
 
 
 
-space sString; //forward declare
+class sstring; //forward declare
 
-space sCommonCursor(sCurso​r<sObject, sObject>) =
+class sCommonCursor(sCurso​r<sObject, sObject>) =
 ;
 
 struct sStringCursor =
@@ -97,7 +95,7 @@
  operator '^' GetData(aStore: sString&): tchar inline
 ;
 
-space sString extern('string') =
+class sstring =
  //internally defined for gene (all inline)
  cursor sStringCursor
  exp Get_Count: int inline
@@ -123,14 +121,13 @@
 
 
 //------------------​--------------------​--------------------​--------------------​--------------------​--------------------​----
-namespace push Text extern('Text');
+namespace System.Text;
 
-space StringBuilder extern('StringBuilder')
-=
+class sStringBuilder =
 ;
 
-namespace pop Collections extern('Collections');
-namespace push Generic extern('Generic');
+namespace System.Collections;
+namespace System.Generic;
 
-space sList<T> extern('Generic') =
+class sList<T> extern('Generic') =
 ;
\ No newline at end of file

Modified: branches/0.6/Core/GeneCore.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/Core/GeneCore.gen?v​iew=diff&rev=50​&p1=branches/0.6/​Core/GeneCore.gen​&p2=branches/0.6/Co​re/GeneCore.gen&​r1=49&r2=50
====================​====================​====================​==================
--- branches/0.6/Core/GeneCore.gen (original)
+++ branches/0.6/Core/GeneCore.gen 2006-10-13 09:53:18-0700
@@ -1,4 +1,4 @@
-namespace GeneSystem('GeneCorLib');
+namespace GeneSystem('GeneCoreLib');
 
 global //we want all to be known globally
 
@@ -8,10 +8,10 @@
 ;
 
 
-space sCursor<S, E> = //the base space for all cursors
+class sCursor<S, E> = //the base space for all cursors
  var Owner: S
      Value: E //E is the typed cursor object which can be a space or a struct
 ;
 
-space sMessageException(sException) extern('MessageException') =
+class sMessageException(sException) extern('MessageException') =
 ;
\ No newline at end of file

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r50 - branches/0.6/Core lotec Jan Bogaerts 2006-10-13 09:53:19 PDT
Messages per page: