Mercurial Mercurial > hg > jv-cface / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Cface::Libgit2Mapping
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 04 Sep 2012 15:06:32 +0000
changeset 22 57da23a9fbbd
parent 21 899da9dea8a9
child 23 76267fa19138
- Cface::Libgit2Mapping added:7 methods - Cface::GeneratorCommand added: #generateLibgit - cvut_fel_cface changed: #classNamesAndAttributes #extensionMethodNames #preRequisites - extensions ...
Cface__GeneratorCommand.st file | annotate | diff | comparison | revisions
Cface__Libgit2Mapping.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
Make.spec file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions
bc.mak file | annotate | diff | comparison | revisions
cface.rc file | annotate | diff | comparison | revisions
cvut_fel_cface.st file | annotate | diff | comparison | revisions
libInit.cc file | annotate | diff | comparison | revisions 
--- a/Cface__GeneratorCommand.st	Wed May 30 19:57:40 2012 +0000
+++ b/Cface__GeneratorCommand.st	Tue Sep 04 15:06:32 2012 +0000
@@ -58,6 +58,26 @@
     "Created: / 22-02-2009 / 14:44:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
+generateLibgit
+
+    |svnDir libgit2DefFile|
+
+    svnDir := '/home/jv/Projects/Cface/sources/cface/trunk/resources/examples/libgit2/'.
+    libgit2DefFile := svnDir ,  'libgit2.def'.  
+
+    ^Cface::Platform theInstance generatorCommand
+        definitions: libgit2DefFile asFilename;
+        mappings: Cface::Libgit2Mapping new;
+        unixLibraryName:'libgit2.so';
+        process
+
+    "
+        Cface::GeneratorCommand generateLibgit
+    "
+
+    "Created: / 04-09-2012 / 14:55:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 generateSubversion
 
     |svnDir svnDefFile|
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Cface__Libgit2Mapping.st	Tue Sep 04 15:06:32 2012 +0000
@@ -0,0 +1,54 @@
+"{ Package: 'cvut:fel/cface' }"
+
+"{ NameSpace: Cface }"
+
+TypeMapping subclass:#Libgit2Mapping
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Cface-Mappings'
+!
+
+
+!Libgit2Mapping methodsFor:'accessing'!
+
+smalltalkNameForEnumValue:cEnumFieldType 
+    |cairoName|
+
+    cairoName := cEnumFieldType cName.
+    (cairoName startsWith:'GIT_') ifTrue:[
+        cairoName := cairoName copyFrom:5
+    ].
+    ^ cairoName asSymbol
+
+    "
+        Cface::CairoMapping new
+            smalltalkNameForEnumValue:(Cface::CEnumValueNode new cName:'CAIRO_FONT_TYPE_TOY')
+
+    "
+
+    "Created: / 04-07-2008 / 11:32:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-09-2012 / 16:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkNamespace
+
+    ^#Smalltalk
+
+    "Created: / 17-02-2008 / 20:51:26 / janfrog"
+    "Modified: / 04-09-2012 / 16:01:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalltalkPackage
+
+    ^#'stx:libgit'
+
+    "Created: / 03-07-2008 / 21:14:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-09-2012 / 16:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!Libgit2Mapping class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id::                                                                                                                        $'
+! !
--- a/Make.proto	Wed May 30 19:57:40 2012 +0000
+++ b/Make.proto	Tue Sep 04 15:06:32 2012 +0000
@@ -79,12 +79,15 @@
 	fi
 
 cvut_fel_cface.o: cvut_fel_cface.st .svnversion 
-	if [ -d .svn ]; then \
+	@if [ -d .svn ]; then \
 		rev2="$(shell printf "%-16s" $$(cat .svnversion))"; \
+		echo "  [SV]  Expanding svnRevisionNo in $1.st"; \
 		sed -e "s/\"\$$SVN\-Revision:\".*\"\$$\"/\"\$$SVN-Revision:\"\'$$rev2\'\"\$$\"/g" $< > .cvut_fel_cface.svn.st; \
 	fi
-	$(MAKE) CC="$(CLASSLIB_CC)" OPT="$(OPT)" SEPINITCODE="$(SEPINITCODE)" STC="$(STC)" STFILE=.cvut_fel_cface.svn $(O_RULE);
-	mv .cvut_fel_cface.svn.$(O) cvut_fel_cface.$(O) 
+	$(MAKE) CC="$(CLASSLIB_CC)" OPT="$(OPT)" SEPINITCODE="$(SEPINITCODE)" STC="$(STC)" STFILE=.cvut_fel_cface.svn $(C_RULE);
+	sed -i -e "s/\".cvut_fel_cface.svn.st\");/\"\cvut_fel_cface.st\");/g" .cvut_fel_cface.svn.c
+	$(MAKE) .cvut_fel_cface.svn.$(O)
+	@mv .cvut_fel_cface.svn.$(O) cvut_fel_cface.$(O) 
 endif
 
 
@@ -150,6 +153,7 @@
 $(OUTDIR)Cface__CairoMapping.$(O) Cface__CairoMapping.$(H): Cface__CairoMapping.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__TypeMapping.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__GTKMapping.$(O) Cface__GTKMapping.$(H): Cface__GTKMapping.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__TypeMapping.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__Generator.$(O) Cface__Generator.$(H): Cface__Generator.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__CNodeVisitor.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)Cface__Libgit2Mapping.$(O) Cface__Libgit2Mapping.$(H): Cface__Libgit2Mapping.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__TypeMapping.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__SVNMapping.$(O) Cface__SVNMapping.$(H): Cface__SVNMapping.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__TypeMapping.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__SmalltalkX.$(O) Cface__SmalltalkX.$(H): Cface__SmalltalkX.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__Platform.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__TypeCollector.$(O) Cface__TypeCollector.$(H): Cface__TypeCollector.st $(INCLUDE_TOP)/cvut/fel/cface/Cface__CNodeVisitor.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
--- a/Make.spec	Wed May 30 19:57:40 2012 +0000
+++ b/Make.spec	Tue Sep 04 15:06:32 2012 +0000
@@ -97,6 +97,7 @@
 	Cface::CWCharNode \
 	Cface::CStructNode \
 	Cface::CUnionNode \
+	Cface::Libgit2Mapping \
 
 
 
@@ -149,6 +150,7 @@
     $(OUTDIR)Cface__CWCharNode.$(O) \
     $(OUTDIR)Cface__CStructNode.$(O) \
     $(OUTDIR)Cface__CUnionNode.$(O) \
+    $(OUTDIR)Cface__Libgit2Mapping.$(O) \
     $(OUTDIR)extensions.$(O) \
 
 
--- a/abbrev.stc	Wed May 30 19:57:40 2012 +0000
+++ b/abbrev.stc	Tue Sep 04 15:06:32 2012 +0000
@@ -48,3 +48,4 @@
 Cface::CWCharNode Cface__CWCharNode cvut:fel/cface 'Cface-C AST' 0
 Cface::CStructNode Cface__CStructNode cvut:fel/cface 'Cface-C AST' 0
 Cface::CUnionNode Cface__CUnionNode cvut:fel/cface 'Cface-C AST' 0
+Cface::Libgit2Mapping Cface__Libgit2Mapping cvut:fel/cface 'Cface-Mappings' 0
--- a/bc.mak	Wed May 30 19:57:40 2012 +0000
+++ b/bc.mak	Tue Sep 04 15:06:32 2012 +0000
@@ -89,6 +89,7 @@
 $(OUTDIR)Cface__CairoMapping.$(O) Cface__CairoMapping.$(H): Cface__CairoMapping.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__TypeMapping.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__GTKMapping.$(O) Cface__GTKMapping.$(H): Cface__GTKMapping.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__TypeMapping.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__Generator.$(O) Cface__Generator.$(H): Cface__Generator.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__CNodeVisitor.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
+$(OUTDIR)Cface__Libgit2Mapping.$(O) Cface__Libgit2Mapping.$(H): Cface__Libgit2Mapping.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__TypeMapping.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__SVNMapping.$(O) Cface__SVNMapping.$(H): Cface__SVNMapping.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__TypeMapping.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__SmalltalkX.$(O) Cface__SmalltalkX.$(H): Cface__SmalltalkX.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__Platform.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
 $(OUTDIR)Cface__TypeCollector.$(O) Cface__TypeCollector.$(H): Cface__TypeCollector.st $(INCLUDE_TOP)\cvut\fel\cface\Cface__CNodeVisitor.$(H) $(INCLUDE_TOP)\stx\libbasic\Object.$(H) $(STCHDR)
--- a/cface.rc	Wed May 30 19:57:40 2012 +0000
+++ b/cface.rc	Tue Sep 04 15:06:32 2012 +0000
@@ -4,7 +4,7 @@
 //
 VS_VERSION_INFO VERSIONINFO
   FILEVERSION     6,2,19,19
-  PRODUCTVERSION  6,2,1,1
+  PRODUCTVERSION  6,2,3,1
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
   FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
@@ -24,8 +24,8 @@
       VALUE "InternalName", "cvut:fel/cface\0"
       VALUE "LegalCopyright", "Copyright 2008 Jan Vrany\0"
       VALUE "ProductName", "CairoGraphics\0"
-      VALUE "ProductVersion", "6.2.1.1\0"
-      VALUE "ProductDate", "Wed, 30 May 2012 19:57:33 GMT\0"
+      VALUE "ProductVersion", "6.2.3.1\0"
+      VALUE "ProductDate", "Tue, 04 Sep 2012 15:06:31 GMT\0"
     END
 
   END
--- a/cvut_fel_cface.st	Wed May 30 19:57:40 2012 +0000
+++ b/cvut_fel_cface.st	Tue Sep 04 15:06:32 2012 +0000
@@ -19,9 +19,9 @@
      exclude individual packages in the #excludedFromPrerequisites method."
 
     ^ #(
-        #'stx:goodies/smaCC'    "SmaCC::SmaCCParser - superclass of Cface::CDefinitionParser "
-        #'stx:libbasic'    "Object - superclass of Cface::CDerivedTypeNode "
-        #'stx:libbasic3'    "MethodDefinitionChange - referenced by Cface::SmalltalkXGenerator>>visitCStructFieldNode: "
+        #'stx:goodies/smaCC'    "SmaCC::SmaCCScanner - superclass of Cface::CDefinitionScanner "
+        #'stx:libbasic'    "Object - superclass of Cface::CDefinitionScanner "
+        #'stx:libbasic3'    "ClassChange - superclass of extended ClassDefinitionChange "
     )
 ! !
 
@@ -82,6 +82,7 @@
         #'Cface::CWCharNode'
         #'Cface::CStructNode'
         #'Cface::CUnionNode'
+        #'Cface::Libgit2Mapping'
     )
 !
 
--- a/libInit.cc	Wed May 30 19:57:40 2012 +0000
+++ b/libInit.cc	Tue Sep 04 15:06:32 2012 +0000
@@ -41,6 +41,7 @@
 _Cface__CairoMapping_Init(pass,__pRT__,snd);
 _Cface__GTKMapping_Init(pass,__pRT__,snd);
 _Cface__Generator_Init(pass,__pRT__,snd);
+_Cface__Libgit2Mapping_Init(pass,__pRT__,snd);
 _Cface__SVNMapping_Init(pass,__pRT__,snd);
 _Cface__SmalltalkX_Init(pass,__pRT__,snd);
 _Cface__TypeCollector_Init(pass,__pRT__,snd);
hg/jv-cface