paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed C->Pascal type translations

Browse Source 
git-svn-id: trunk@14429 -
This commit is contained in:
Jonas Maebe 2009-12-12 20:58:21 +00:00
parent 347d71db10
commit 919cf1151b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/cocoaint/utils/objp_parser.php
View File

@ -29,7 +29,7 @@ class TObjPParser extends TPasCocoaParser {
"unsigned char"=>"char", "short"=>"cshort", "double"=>"double", "long long"=>"clonglong", "unsigned char"=>"char", "short"=>"cshort", "double"=>"double", "long long"=>"clonglong",
// ??? new in instance var parser: (add to main section eventually) // ??? new in instance var parser: (add to main section eventually)
"signed char"=>"char", "uint64_t"=>"clonglong", "signed char"=>"char", "uint64_t"=>"qword",
// work-arounds - the type replacement needs regex to handle with spaces I guess // work-arounds - the type replacement needs regex to handle with spaces I guess
"void*"=>"Pointer", "void*"=>"Pointer",
@ -38,9 +38,9 @@ class TObjPParser extends TPasCocoaParser {
"IBAction"=>"void", "IBOutlet"=>"", "IBAction"=>"void", "IBOutlet"=>"",
// special pointers // special pointers
"const id *"=>"NSObjectArrayOfObjectsPtr", "Protocol *"=>"objc_protocol", "NSObject *"=>"NSObject", "const id *"=>"NSObjectArrayOfObjectsPtr", "Protocol *"=>"Protocol", "NSObject *"=>"NSObject",
"const char *"=>"PChar", "const void *"=>"Pointer", "unsigned char *"=>"Pointer", "char *"=>"Pointer", "const char *"=>"PChar", "const void *"=>"Pointer", "unsigned char *"=>"Pointer", "char *"=>"PChar",
"unsigned *"=>"Pointer", "unichar *"=>"PChar", "const unichar *"=>"PChar", "unsigned *"=>"Pointer", "unichar *"=>"PWideChar", "const unichar *"=>"PWideChar",
); );
// These methods require that the last parameter append a trailing underscore (if $trailing_underscore is on) // These methods require that the last parameter append a trailing underscore (if $trailing_underscore is on)