diff options
Diffstat (limited to 'kalyptus')
| -rw-r--r-- | kalyptus/ChangeLog | 2 | ||||
| -rw-r--r-- | kalyptus/kalyptus | 93 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToCSharp.pm | 4 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToDcopIDL.pm | 23 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToJNI.pm | 43 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToJava.pm | 24 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToKimono.pm | 25 | ||||
| -rw-r--r-- | kalyptus/kalyptusCxxToSmoke.pm | 13 | ||||
| -rw-r--r-- | kalyptus/kalyptusDataDict.pm | 30 | ||||
| -rw-r--r-- | kalyptus/kdocAstUtil.pm | 8 | ||||
| -rw-r--r-- | kalyptus/kdocParseDoc.pm | 12 |
11 files changed, 134 insertions, 143 deletions
diff --git a/kalyptus/ChangeLog b/kalyptus/ChangeLog index f1729b0d..73c69c35 100644 --- a/kalyptus/ChangeLog +++ b/kalyptus/ChangeLog @@ -119,7 +119,7 @@ 2004-05-25 Richard Dale <Richard_Dale@tipitina.demon.co.uk> - * Added the correct macro expansion for Q_OBJECT with Qt/E 2.3.x + * Added the correct macro expansion for TQ_OBJECT with Qt/E 2.3.x * kalyptus can now generate the SMOKE library for Qt Embedded 2004-05-22 Richard Dale <Richard_Dale@tipitina.demon.co.uk> diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus index ede21d42..e95873ba 100644 --- a/kalyptus/kalyptus +++ b/kalyptus/kalyptus @@ -27,7 +27,7 @@ use vars qw/ %rootNodes $declNodeType @includes_list %options @formats_wanted $a $libdir $libname $outputdir @libs $parse_global_space $qt_embedded $qt4 $striphpath $doPrivate $readstdin $Version $quiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe %formats %flagnames @allowed_k_dcop_accesors $allowed_k_dcop_accesors_re $rootNode - @classStack $cNode $globalSpaceClassName + @classStack $cNode $globalSpaceClassName $have_tdehw_lib $lastLine $docNode @includes $cpp $defcppcmd $cppcmd $docincluded $inExtern $inNamespace %stats %definitions @inputqueue @codeqobject @qt4_codeqobject @qte_codeqobject /; @@ -131,10 +131,9 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors); _STYLE_PLATINUM => '', _STYLE_SGI => '', _STYLE_WINDOWS => '', - QT_STATIC_CONST => 'static const', - Q_EXPORT => '', - Q_EXPORT_CODECS_BIG5 => '', - Q_REFCOUNT => '', + TQ_EXPORT => '', + TQ_EXPORT_CODECS_BIG5 => '', + TQ_REFCOUNT => '', TQM_EXPORT_CANVAS => '', TQM_EXPORT_DNS => '', TQM_EXPORT_ICONVIEW => '', @@ -143,11 +142,11 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors); TQM_EXPORT_WORKSPACE => '', TQT_NO_REMOTE => 'TQT_NO_REMOTE', QT_ACCESSIBILITY_SUPPORT => 'QT_ACCESSIBILITY_SUPPORT', - Q_WS_X11 => 'Q_WS_X11', + TQ_WS_X11 => 'TQ_WS_X11', TQ_DISABLE_COPY => 'TQ_DISABLE_COPY', - Q_WS_QWS => 'undef', - Q_WS_MAC => 'undef', - Q_OBJECT => <<'CODE', + TQ_WS_QWS => 'undef', + TQ_WS_MAC => 'undef', + TQ_OBJECT => <<'CODE', public: virtual TQMetaObject *metaObject() const; virtual const char *className() const; @@ -230,6 +229,18 @@ if ( $#includes >= 0 && !$cpp ) { die "$exe: --includedir requires --cpp\n"; } +# Check for tdehw lib headers presence +if (-e "$ENV{KDE_PREFIX}/include/tdehardwaredevices.h") +{ + $have_tdehw_lib = 1; + print "kalyptus: tdehw headers found in $ENV{KDE_PREFIX}/include\n"; +} +else +{ + $have_tdehw_lib = 0; + print "kalyptus: tdehw headers not found in $ENV{KDE_PREFIX}/include\n"; +} + # Check output formats. HTML is the default if( $#formats_wanted < 0 ) { push @formats_wanted, "java"; @@ -364,7 +375,7 @@ sub parseFiles || croak "Can't preprocess $currentfile"; } else { - open( INPUT, "tqt-replace-stream $currentfile |" ) + open( INPUT, "$currentfile" ) || croak "Can't read from $currentfile"; } @@ -456,7 +467,7 @@ sub readSourceLine =head2 readCxxLine Reads a C++ source line, skipping comments, blank lines, - preprocessor tokens and the Q_OBJECT macro + preprocessor tokens and the TQ_OBJECT macro =cut @@ -484,7 +495,7 @@ LOOP: } } - if ( $p =~ /^\s*Q_OBJECT/ ) { + if ( $p =~ /^\s*TQ_OBJECT/ ) { if ($qt_embedded) { push @inputqueue, @qte_codeqobject; } elsif ($qt4) { @@ -496,14 +507,12 @@ LOOP: } # Hack, waiting for real handling of preprocessor defines $p =~ s/QT_MODULE\(\w+\)//; - $p =~ s/QT_STATIC_CONST/static const/; $p =~ s/QT_WEAK_SYMBOL//; $p =~ s/QT_MOC_COMPAT//; - $p =~ s/Q_EXPORT_CODECS_BIG5//; + $p =~ s/TQ_EXPORT_CODECS_BIG5//; $p =~ s/QT_COMPAT / /; $p =~ s/TQ_DISABLE_COPY\((\w+)\)/$1(const $1 &);\n$1 &operator=(const $1 &);/; $p =~ s/TQWIDGETSIZE_MAX/32767/; # Qt/E uses this #define as an enum value - yuck! - $p =~ s/Q_SIGNALS/signals/; $p =~ s/ASYNC/void/; $p =~ s/[A-Z_]*_EXPORT_DEPRECATED//; $p =~ s/[A-Z_]*_EXPORT\s/ /; @@ -533,7 +542,7 @@ LOOP: next if ( $p =~ /^\s*$/s ); # blank lines -# || $p =~ /^\s*Q_OBJECT/ # TQObject macro +# || $p =~ /^\s*TQ_OBJECT/ # TQObject macro # ); # @@ -546,7 +555,7 @@ LOOP: || $p =~ /^\s*Q_GADGET/ || $p =~ /^\s*TQ_OVERRIDE/ # and TQ_OVERRIDE || $p =~ /^\s*TQ_SETS/ - || $p =~ /^\s*Q_DUMMY_COMPARISON_OPERATOR/ + || $p =~ /^\s*TQ_DUMMY_COMPARISON_OPERATOR/ || $p =~ /^\s*K_SYCOCATYPE/ # and K_SYCOCA stuff || $p =~ /^\s*K_SYCOCAFACTORY/ # || $p =~ /^\s*KSVG_/ # and KSVG stuff ;) @@ -559,7 +568,7 @@ LOOP: || $p =~ /^\s*Q_DECLARE_SHARED/ ); - push @includes_list, $1 if $p =~ /^#include\s+<?(.*?)>?\s*$/; + push @includes_list, $1 if $p =~ /^#include\s+[<"]?(.*?)[>"]?\s*$/; # remove all preprocessor macros if( $p =~ /^\s*#\s*(\w+)/ ) { @@ -577,13 +586,13 @@ LOOP: else { # Skip platform-specific stuff, or #if 0 stuff # or #else of something we parsed (e.g. for TQKeySequence) - if ( $p =~ m/^#\s*ifdef\s*Q_WS_/ or - $p =~ m/^#\s*if\s+defined\(Q_WS_/ or + if ( $p =~ m/^#\s*ifdef\s*TQ_WS_/ or + $p =~ m/^#\s*if\s+defined\(TQ_WS_/ or ($p =~ m/^#\s*ifdef\s+_WS_QWS_/ and $qt_embedded) or ($p =~ m/^#\s*ifndef\s+TQT_NO_MIMECLIPBOARD/ and $qt_embedded) or ($p =~ m/^#\s*if\s+defined\(_WS_X11_/ and $qt_embedded) or - ($p =~ m/^#\s*if\s+defined\(Q_WS_X11_/ and $qt_embedded) or - ($p =~ m/^#\s*if\s+defined\(Q_WS_WIN_/ and $qt_embedded) or + ($p =~ m/^#\s*if\s+defined\(TQ_WS_X11_/ and $qt_embedded) or + ($p =~ m/^#\s*if\s+defined\(TQ_WS_WIN_/ and $qt_embedded) or ($p =~ m/^#\s*if\s+defined\(_WS_MAC_/ and $qt_embedded) or ($p =~ m/^#\s*if\s+defined\(Q_INCOMPATIBLE_3_0_ADDONS/ and $qt_embedded) or $p =~ m/^#\s*ifndef\s+TQT_NO_STL/ or @@ -591,7 +600,7 @@ LOOP: $p =~ m/^#\s*if\s+defined\(Q_CC_/ or $p =~ m/^#\s*if\s+defined\(TQT_THREAD_SUPPORT/ or $p =~ m/^#\s*else/ or - $p =~ m/^#\s*if\s+defined\(Q_FULL_TEMPLATE_INSTANTIATION/ or + $p =~ m/^#\s*if\s+defined\(TQ_FULL_TEMPLATE_INSTANTIATION/ or $p =~ m/^#\s*ifdef\s+QT_WORKSPACE_WINDOWMODE/ or $p =~ m/^#\s*ifdef\s+QT_COMPAT/ or $p =~ m/^#\s*if\s+defined\s*\(?QT_COMPAT/ or @@ -602,6 +611,7 @@ LOOP: $p =~ m/^#\s*if\s+defined\s*\(qdoc/ or $p =~ m/^#\s*ifndef\s+TQT_NO_MEMBER_TEMPLATES/ or $p =~ m/^#if\s*!defined\(Q_NO_USING_KEYWORD\)/ or + (not $have_tdehw_lib and $p =~ m/^#\s*ifdef\s+__TDE_HAVE_TDEHWLIB/) or &$match_qt_defines( $p ) or $p =~ m/^#\s*if\s+0\s+/ ) { my $if_depth = 1; @@ -790,7 +800,7 @@ sub identifyDecl my $skipBlock = 0; my $isDeprecated = 0; - if ( $decl =~ s/KDE_DEPRECATED// ) { + if ( $decl =~ s/TDE_DEPRECATED// ) { $isDeprecated = 1; } # Doc comment @@ -864,7 +874,7 @@ sub identifyDecl (?:\s*TQ[A-Z_]*EXPORT[A-Z_]*)? (?:\s*Q[A-Z_]*EXPORT[A-Z_]*)? (?:\s*TQ_PACKED)? - (?:\s*Q_REFCOUNT)? + (?:\s*TQ_REFCOUNT)? \s+([\w_]+ # 3 name (?:<[\w_ :,]+?>)? # maybe explicit template # (eat chars between <> non-hungry) @@ -942,7 +952,10 @@ sub identifyDecl \( (.*?) \) # parameters \s*((?:const)?)\s* (?:throw\s*\(.*?\))? - \s*((?:=\s*0(?:L?))?)\s* # Pureness. is "0L" allowed? + \s*((?:=\s*(?: + 0(?:L?)| # Pureness. is "0L" allowed? + default # Default method + ))?) \s*[;{]+/xs ) { # rest my $tpn = $1; # type + name @@ -954,7 +967,7 @@ sub identifyDecl } my $const = $3 eq "" ? 0 : 1; - my $pure = $4 eq "" ? 0 : 1; + my $pure = $4 eq "" ? 0 : ($4 =~ "default" ? 0 : 1); $tpn =~ s/\s+/ /g; $tpn =~ s/operator\s+([^\w])/operator$1/g; $params =~ s/\s+/ /g; @@ -1692,16 +1705,22 @@ sub makeParamList($$$) # Separate arg type from arg name, if the latter is specified if ( $arg =~ /(.*)\s+([\w_]+)\s*$/ || $arg =~ /(.*)\(\s*\*\s([\w_]+)\)\s*\((.*)\)\s*$/ ) { - if ( defined $3 ) { # function pointer - $argType = $1."(*)($3)"; - $argName = $2; - } else { - $argType = $1; - $argName = $2; - } - } else { # unnamed arg - or enum value - $argType = $arg if (!$isEnum); - $argName = $arg if ($isEnum); + if ( $1 eq "const" || $2 eq "long" || $2 eq "short" || $2 eq "int" || $2 eq "char" ) { + # const qualifier or long notation of numeric type + # without argument name + $argType = "$1 $2"; + } else { + $argType = $1; + $argName = $2; + } + if ( defined $3 ) { + # function pointer + $argType .= "(*)($3)"; + } + } else { + # unnamed arg - or enum value + $argType = $arg if (!$isEnum); + $argName = $arg if ($isEnum); } $argId++; diff --git a/kalyptus/kalyptusCxxToCSharp.pm b/kalyptus/kalyptusCxxToCSharp.pm index 6c8ce4cb..d077fb59 100644 --- a/kalyptus/kalyptusCxxToCSharp.pm +++ b/kalyptus/kalyptusCxxToCSharp.pm @@ -117,7 +117,7 @@ sub cplusplusToCSharp return "IntPtr"; } elsif ( $cplusplusType =~ /^TQUuid/ ) { return "IntPtr"; - } elsif ( $cplusplusType =~ /^Q_REFCOUNT/ ) { + } elsif ( $cplusplusType =~ /^TQ_REFCOUNT/ ) { return "IntPtr"; } elsif ( $cplusplusType =~ /^EventRef/ ) { return "IntPtr"; @@ -223,7 +223,7 @@ sub cplusplusToPInvoke return "RawObject"; } elsif ( $cplusplusType =~ /^TQUuid/ ) { return "RawObject"; - } elsif ( $cplusplusType =~ /^Q_REFCOUNT/ ) { + } elsif ( $cplusplusType =~ /^TQ_REFCOUNT/ ) { return "RawObject"; } elsif ( $cplusplusType =~ /^EventRef/ ) { return "RawObject"; diff --git a/kalyptus/kalyptusCxxToDcopIDL.pm b/kalyptus/kalyptusCxxToDcopIDL.pm index 5ff17c02..3dd00fc2 100644 --- a/kalyptus/kalyptusCxxToDcopIDL.pm +++ b/kalyptus/kalyptusCxxToDcopIDL.pm @@ -230,7 +230,7 @@ sub preParseClass my( $classNode ) = @_; my $className = join( "::", kdocAstUtil::heritage($classNode) ); - if( $#{$classNode->{Kids}} < 0 || + if( ($#{$classNode->{Kids}} < 0 && !$classNode->{DcopExported}) || $classNode->{Access} eq "private" || $classNode->{Access} eq "protected" || # e.g. TQPixmap::TQPixmapData exists $classNode->{Tmpl} || @@ -685,8 +685,14 @@ sub generateMethod($$$) $argType =~ s/^\s*(.*?)\s*$/$1/; $argType =~ s/</</g; $argType =~ s/>/>/g; + $argType =~ s/(\W)\s+/$1/g; + $argType =~ s/\s+(\W)/$1/g; + $argType =~ s/\b(signed|unsigned|long|short)$/$1 int/; - $args .= " <ARG><TYPE$typeAttrs>$argType</TYPE><NAME>$arg->{ArgName}</NAME></ARG>\n"; + $args .= " "; + $args .= "<ARG><TYPE$typeAttrs>$argType</TYPE>"; + $args .= "<NAME>$arg->{ArgName}</NAME>" if $arg->{ArgName} !~ /^$/; + $args .= "</ARG>\n"; push @argTypeList, $argType; @@ -703,6 +709,13 @@ sub generateMethod($$$) my $qual = ""; $qual .= " qual=\"const\"" if $flags =~ "c"; + my $r_isConst = ($returnType =~ s/^\s*const\s*//); + my $r_isRef = ($returnType =~ s/&//); + + my $retTypeAttrs = ""; + $retTypeAttrs .= " qleft=\"const\"" if $r_isConst; + $retTypeAttrs .= " qright=\"&\"" if $r_isRef; + my $this = $classNode->{BindingDerives} > 0 ? "this" : "xthis"; # We iterate as many times as we have default params @@ -714,8 +727,12 @@ sub generateMethod($$$) $xretCode .= coerce_type('x[0]', 'xret', $returnType, 1); } $returnType = "void" unless $returnType; + $returnType =~ s/^\s*(.*?)\s*$/$1/; $returnType =~ s/</</g; $returnType =~ s/>/>/g; + $returnType =~ s/(\W)\s+/$1/g; + $returnType =~ s/\s+(\W)/$1/g; + $returnType =~ s/\b(signed|unsigned|long|short)$/$1 int/; my $methodCode = ""; @@ -739,7 +756,7 @@ sub generateMethod($$$) $methodCode .= " <DOC>$doc</DOC>\n"; } - $methodCode .= " <TYPE>$returnType</TYPE>\n"; + $methodCode .= " <TYPE$retTypeAttrs>$returnType</TYPE>\n"; $methodCode .= " <NAME>$name</NAME>\n"; $methodCode .= "$args"; $methodCode .= " </$tagType>\n"; diff --git a/kalyptus/kalyptusCxxToJNI.pm b/kalyptus/kalyptusCxxToJNI.pm index 7d57f377..6653fae0 100644 --- a/kalyptus/kalyptusCxxToJNI.pm +++ b/kalyptus/kalyptusCxxToJNI.pm @@ -439,7 +439,7 @@ EOF $qtExtras = <<EOF; /** This member allows a typecast of an instance which wraps a Qt instance, to a more specialized type. Invokes the private qtjava.dynamicCast() - via reflection, as that method isn't part of the public Qt api */ + via reflection, as that method isn't part of the public TQt api */ public static QtSupport dynamicCast(String type, QtSupport source) { Method method = null; @@ -447,7 +447,7 @@ EOF method = qtjava.class.getDeclaredMethod( "dynamicCast", new Class[] { String.class, QtSupport.class } ); } catch (NoSuchMethodException e1) { - Qt.tqWarning("No such method : qtjava.dynamicCast()"); + TQt.tqWarning("No such method : qtjava.dynamicCast()"); } try { @@ -455,10 +455,10 @@ EOF Object result = method.invoke(qtjava.class, new Object[] { type, source } ); return (QtSupport) result; } catch (InvocationTargetException e) { - Qt.tqWarning("Invocation failed : qtjava.dynamicCast()"); + TQt.tqWarning("Invocation failed : qtjava.dynamicCast()"); return null; } catch (IllegalAccessException e) { - Qt.tqWarning("Invocation failed : qtjava.dynamicCast()"); + TQt.tqWarning("Invocation failed : qtjava.dynamicCast()"); return null; } } @@ -536,12 +536,12 @@ EOF } /** Prepend a '2' to a signal string and remove any spaces */ - public static String SIGNAL(String signal) { + public static String TQ_SIGNAL(String signal) { return "2" + sqeezeOut(signal, ' '); } /** Prepend a '1' to a slot string and remove any spaces */ - public static String SLOT(String slot) { + public static String TQ_SLOT(String slot) { return "1" + sqeezeOut(slot, ' '); } @@ -1326,7 +1326,7 @@ JNIEXPORT jobject JNICALL Java_org_trinitydesktop_qt_QPointArray_at(JNIEnv * env, jobject obj, jint index) { TQPoint _p= ((TQPointArrayJBridge*) QtSupport::getQt(env, obj))->at((uint) index); - return (jobject) QtSupport::objectForQtKey(env, (void *)new TQPoint(_p.x(),_p.y()), "org.trinitydesktop.qt.TQPoint", TRUE); + return (jobject) QtSupport::objectForQtKey(env, (void *)new TQPoint(_p.x(),_p.y()), "org.trinitydesktop.qt.TQPoint", true); } EOF @@ -1698,7 +1698,7 @@ static TQCString* _qstring__version = 0; } JNIEXPORT void JNICALL -Java_org_trinitydesktop_koala_TDECmdLineArgs_init___3Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Z(JNIEnv* env, jclass cls, jobjectArray args, jstring _appname, jstring programName, jstring _description, jstring _version, jboolean noKApp) +Java_org_trinitydesktop_koala_TDECmdLineArgs_init___3Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Ljava_lang_String_2Z(JNIEnv* env, jclass cls, jobjectArray args, jstring _appname, jstring programName, jstring _description, jstring _version, jboolean noTDEApp) { (void) cls; static TQCString* _qstring__appname = 0; @@ -1706,7 +1706,7 @@ static TQCString* _qstring_programName = 0; static TQCString* _qstring__description = 0; static TQCString* _qstring__version = 0; int argc = (int) env->GetArrayLength(args); - TDECmdLineArgsJBridge::init(argc+1, (char**) QtSupport::toArgv(env, args), (const char*) QtSupport::toCharString(env, _appname, &_qstring__appname), (const char*) QtSupport::toCharString(env, programName, &_qstring_programName), (const char*) QtSupport::toCharString(env, _description, &_qstring__description), (const char*) QtSupport::toCharString(env, _version, &_qstring__version), (bool) noKApp); + TDECmdLineArgsJBridge::init(argc+1, (char**) QtSupport::toArgv(env, args), (const char*) QtSupport::toCharString(env, _appname, &_qstring__appname), (const char*) QtSupport::toCharString(env, programName, &_qstring_programName), (const char*) QtSupport::toCharString(env, _description, &_qstring__description), (const char*) QtSupport::toCharString(env, _version, &_qstring__version), (bool) noTDEApp); return; } @@ -1720,11 +1720,11 @@ Java_org_trinitydesktop_koala_TDECmdLineArgs_init___3Ljava_lang_String_2Lorg_tri } JNIEXPORT void JNICALL -Java_org_trinitydesktop_koala_TDECmdLineArgs_init___3Ljava_lang_String_2Lorg_trinitydesktop_koala_TDEAboutData_2Z(JNIEnv* env, jclass cls, jobjectArray args, jobject about, jboolean noKApp) +Java_org_trinitydesktop_koala_TDECmdLineArgs_init___3Ljava_lang_String_2Lorg_trinitydesktop_koala_TDEAboutData_2Z(JNIEnv* env, jclass cls, jobjectArray args, jobject about, jboolean noTDEApp) { (void) cls; int argc = (int) env->GetArrayLength(args); - TDECmdLineArgsJBridge::init(argc+1, (char**) QtSupport::toArgv(env, args), (const TDEAboutData*) QtSupport::getQt(env, about), (bool) noKApp); + TDECmdLineArgsJBridge::init(argc+1, (char**) QtSupport::toArgv(env, args), (const TDEAboutData*) QtSupport::getQt(env, about), (bool) noTDEApp); return; } @@ -1836,7 +1836,6 @@ sub cplusplusToJava || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_MediaList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_OfferList\s*\*/ || $cplusplusType =~ /TQMemArray<TQRect>/ - || $cplusplusType =~ /TQArray<TQRect>/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QCanvasItemList\s*\*/ ) { return "ArrayList" } elsif ( $cplusplusType =~ /uchar\s*\*/ ) { @@ -2247,8 +2246,6 @@ sub jniToReturnValue($$$) $returnCall .= "\treturn (jobject) QtSupport::arrayWithTQIconDragItemList(env, (TQValueList<TQIconDragItem>*) " . ($1 eq "\*" ? "" : "&") . "_qlist);\n"; } elsif ( $cplusplusType =~ /TQMemArray<TQRect>\s*([\*\&])?\s*$/ ) { $returnCall .= "\treturn (jobject) QtSupport::arrayWithTQRectList(env, (TQMemArray<TQRect>*) " . ($1 eq "\*" ? "" : "&") . "_qlist);\n"; - } elsif ( $cplusplusType =~ /TQArray<TQRect>\s*([\*\&])?\s*$/ ) { - $returnCall .= "\treturn (jobject) QtSupport::arrayWithTQRectList(env, (TQArray<TQRect>*) " . ($1 eq "\*" ? "" : "&") . "_qlist);\n"; } } elsif ( $javaType =~ /String\[\]/ ) { ; # Do nothing, string arrays are ArrayLists as return values @@ -2628,7 +2625,7 @@ sub preParseClass || ($name eq 'qt_cast') || ($name eq 'qt_property') || ($name eq 'staticMetaObject') - # Assume only Qt classes have tr() and trUtf8() in their Q_OBJECT macro + # Assume only Qt classes have tr() and trUtf8() in their TQ_OBJECT macro || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'tr') || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'trUtf8') || $name eq 'trUtf8' @@ -2835,7 +2832,7 @@ sub writeClassDoc my @ancestor_nodes = (); Iter::Ancestors( $node, $rootnode, undef, undef, sub { my ( $ances, $name, $type, $template ) = @_; - if ( $name ne "TQMemArray" and $name ne "TQArray" and $name ne "TQSqlFieldInfoList" ) { + if ( $name ne "TQMemArray" and $name ne "TQSqlFieldInfoList" ) { push @ancestor_nodes, $ances; push @ancestors, $name; } @@ -2889,7 +2886,7 @@ sub writeClassDoc # Special case these two classes as they have methods that use ArrayList added as 'extras' print CLASS "import java.util.ArrayList;\n"; } - print CLASS "import org.trinitydesktop.qt.Qt;\n"; + print CLASS "import org.trinitydesktop.qt.TQt;\n"; } if ( kalyptusDataDict::interfacemap($javaClassName) ne () ) { @@ -3917,7 +3914,7 @@ sub generateMethod($$$$$$$$$) $javaReturnType = "byte[]"; } elsif ($javaSignature eq "at()" and $javaClassName eq 'KFilterDev') { $javaReturnType = "long"; - } elsif ($javaSignature =~ /copyTo/ and $javaClassName eq "KDesktopFile" ) { + } elsif ($javaSignature =~ /copyTo/ and $javaClassName eq "TDEDesktopFile" ) { $altReturnType = "TDEConfig"; } @@ -4257,7 +4254,7 @@ sub generateAllMethods($$$$$$$$) if ($main::qt_embedded) { $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQPopupMenu*)($className*)QtSupport::getQt(env, obj))->parentWidget() == 0) {\n"; } else { - $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQPopupMenu*)($className*)QtSupport::getQt(env, obj))->parentWidget(FALSE) == 0) {\n"; + $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQPopupMenu*)($className*)QtSupport::getQt(env, obj))->parentWidget(false) == 0) {\n"; } } elsif ( is_kindof($classNode, 'TQListViewItem') ) { $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQListViewItem*)($className*)QtSupport::getQt(env, obj))->parent() == 0 && ((TQListViewItem*)($className*)QtSupport::getQt(env, obj))->listView() == 0) {\n"; @@ -4271,7 +4268,7 @@ sub generateAllMethods($$$$$$$$) if ($main::qt_embedded) { $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQWidget*)($className*)QtSupport::getQt(env, obj))->parentWidget() == 0) {\n"; } else { - $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQWidget*)($className*)QtSupport::getQt(env, obj))->parentWidget(TRUE) == 0) {\n"; + $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && ((TQWidget*)($className*)QtSupport::getQt(env, obj))->parentWidget(true) == 0) {\n"; } } elsif ( $classNode->{astNodeName} =~ /^TQObject$/ || defined kdocAstUtil::findOverride( $rootnode, $classNode, "parent" ) ) { $jniCode .= "\n\tif (QtSupport::allocatedInJavaWorld(env, obj) && (($className*)QtSupport::getQt(env, obj))->parent() == 0) {\n"; @@ -5476,9 +5473,9 @@ sub printJavadocComment($$$$) $line =~ s/const char/String/g; $line =~ s/const (\w+)\&/$1/g; $line =~ s/bool/boolean/g; - $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g; - $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g; - $line =~ s/Q_OBJECT\n//g; + $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g; + $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g; + $line =~ s/TQ_OBJECT\n//g; $line =~ s/class\s+([\w]+)\s*:\s*public/public class $1 implements/g; $line =~ s/public\s*(slots)?:\n/public /g; $line =~ s/([^0-9"]\s*)\*(\s*[^0-9"-])/$1$2/g; diff --git a/kalyptus/kalyptusCxxToJava.pm b/kalyptus/kalyptusCxxToJava.pm index 59a5444d..4df92568 100644 --- a/kalyptus/kalyptusCxxToJava.pm +++ b/kalyptus/kalyptusCxxToJava.pm @@ -234,7 +234,7 @@ EOF $qtExtras = <<EOF; /** This member allows a typecast of an instance which wraps a Qt instance, to a more specialized type. Invokes the private qtjava.dynamicCast() - via reflection, as that method isn't part of the public Qt api */ + via reflection, as that method isn't part of the public TQt api */ public static QtSupport dynamicCast(String type, QtSupport source) { Method method = null; @@ -242,7 +242,7 @@ EOF method = qtjava.class.getDeclaredMethod( "dynamicCast", new Class[] { String.class, QtSupport.class } ); } catch (NoSuchMethodException e1) { - Qt.tqWarning("No such method : qtjava.dynamicCast()"); + TQt.tqWarning("No such method : qtjava.dynamicCast()"); } try { @@ -250,10 +250,10 @@ EOF Object result = method.invoke(qtjava.class, new Object[] { type, source } ); return (QtSupport) result; } catch (InvocationTargetException e) { - Qt.tqWarning("Invocation failed : qtjava.dynamicCast()"); + TQt.tqWarning("Invocation failed : qtjava.dynamicCast()"); return null; } catch (IllegalAccessException e) { - Qt.tqWarning("Invocation failed : qtjava.dynamicCast()"); + TQt.tqWarning("Invocation failed : qtjava.dynamicCast()"); return null; } } @@ -331,12 +331,12 @@ EOF } /** Prepend a '2' to a signal string and remove any spaces */ - public static String SIGNAL(String signal) { + public static String TQ_SIGNAL(String signal) { return "2" + sqeezeOut(signal, ' '); } /** Prepend a '1' to a slot string and remove any spaces */ - public static String SLOT(String slot) { + public static String TQ_SLOT(String slot) { return "1" + sqeezeOut(slot, ' '); } @@ -903,7 +903,7 @@ sub preParseClass || ($name eq 'qt_property') || ($name eq 'staticMetaObject') || ($classNode->{astNodeName} eq 'KTar' and $name eq 'writeFile_impl') - # Assume only Qt classes have tr() and trUtf8() in their Q_OBJECT macro + # Assume only Qt classes have tr() and trUtf8() in their TQ_OBJECT macro || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'tr') || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'trUtf8') || $m->{Deprecated} ) { @@ -1175,7 +1175,7 @@ sub writeClassDoc # Special case these two classes as they have methods that use ArrayList added as 'extras' print CLASS "import java.util.ArrayList;\n"; } - print CLASS "import org.trinitydesktop.qt.Qt;\n"; + print CLASS "import org.trinitydesktop.qt.TQt;\n"; } if ( kalyptusDataDict::interfacemap($javaClassName) ne () ) { @@ -1979,7 +1979,7 @@ sub generateMethod($$$$$$$) $javaReturnType = "byte[]"; } elsif ($javaSignature eq "at()" and $javaClassName eq 'KFilterDev') { $javaReturnType = "long"; - } elsif ($javaSignature =~ /copyTo/ and $javaClassName eq "KDesktopFile" ) { + } elsif ($javaSignature =~ /copyTo/ and $javaClassName eq "TDEDesktopFile" ) { $altReturnType = "TDEConfig"; } @@ -3315,9 +3315,9 @@ sub printJavadocComment($$$$) $line =~ s/const char/String/g; $line =~ s/const (\w+)\&/$1/g; $line =~ s/bool/boolean/g; - $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g; - $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g; - $line =~ s/Q_OBJECT\n//g; + $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g; + $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g; + $line =~ s/TQ_OBJECT\n//g; $line =~ s/class\s+([\w]+)\s*:\s*public/public class $1 implements/g; $line =~ s/public\s*(slots)?:\n/public /g; $line =~ s/([^0-9"]\s*)\*(\s*[^0-9"-])/$1$2/g; diff --git a/kalyptus/kalyptusCxxToKimono.pm b/kalyptus/kalyptusCxxToKimono.pm index 089cec92..69429eb0 100644 --- a/kalyptus/kalyptusCxxToKimono.pm +++ b/kalyptus/kalyptusCxxToKimono.pm @@ -82,10 +82,7 @@ BEGIN 'TQ_UINT64' => '$', 'TQ_INT64' => '$', 'TQ_LLONG' => '$', - 'tquint64' => '$', - 'qint64' => '$', 'long long' => '$', - 'qulonglong' => '$', ); # Yes some of this is in kalyptusDataDict's ctypemap @@ -147,21 +144,13 @@ BEGIN 'TQStyle::SCFlags' => 'int', 'TQStyle::SFlags' => 'int', 'TQ_INT16' => 'short', - 'qint16' => 'short', 'TQ_INT32' => 'int', - 'qint32' => 'int', - 'qint32&' => 'int&', 'TQ_INT8' => 'char', - 'qint8' => 'char', 'TQ_LONG' => 'long', 'TQ_UINT16' => 'ushort', - 'tquint16' => 'ushort', 'TQ_UINT32' => 'uint', - 'tquint32' => 'uint', 'TQ_UINT8' => 'uchar', - 'tquint8' => 'uchar', 'TQ_ULONG' => 'long', - 'qreal' => 'double', 'pid_t' => 'int', 'size_t' => 'int', 'pid_t' => 'int', @@ -397,11 +386,11 @@ EOF public static TQApplication tqApp = null; - public static string SIGNAL(string signal) { + public static string TQ_SIGNAL(string signal) { return "2"+ signal; } - public static string SLOT(string slot) { + public static string TQ_SLOT(string slot) { return "1" + slot; } EOF @@ -952,7 +941,7 @@ sub preParseClass || ($name eq 'type') || ($classNode->{astNodeName} eq 'KTar' and $name eq 'writeFile_impl') || ($classNode->{astNodeName} eq 'TQApplication' and $name eq 'TQApplication') - # Assume only Qt classes have tr() and trUtf8() in their Q_OBJECT macro + # Assume only Qt classes have tr() and trUtf8() in their TQ_OBJECT macro || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'tr') || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'trUtf8') @@ -2074,7 +2063,7 @@ sub generateMethod($$$$$$$) $csharpReturnType = "byte[]"; } elsif ($csharpSignature eq "at()" and $csharpClassName eq 'KFilterDev') { $csharpReturnType = "long"; - } elsif ($csharpSignature =~ /copyTo/ and $csharpClassName eq "KDesktopFile" ) { + } elsif ($csharpSignature =~ /copyTo/ and $csharpClassName eq "TDEDesktopFile" ) { $altReturnType = "TDEConfig"; } @@ -3508,9 +3497,9 @@ sub printCSharpdocComment($$$$) $line =~ s/const char/string/g; $line =~ s/const (\w+)\&/$1/g; $line =~ s/bool/bool/g; - $line =~ s/SLOT\(\s*([^\)]*)\) ?\)/SLOT("$1)")/g; - $line =~ s/SIGNAL\(\s*([^\)]*)\) ?\)/SIGNAL("$1)")/g; - $line =~ s/Q_OBJECT\n//g; + $line =~ s/TQ_SLOT\(\s*([^\)]*)\) ?\)/TQ_SLOT("$1)")/g; + $line =~ s/TQ_SIGNAL\(\s*([^\)]*)\) ?\)/TQ_SIGNAL("$1)")/g; + $line =~ s/TQ_OBJECT\n//g; $line =~ s/public\s*(slots)?:\n/public /g; $line =~ s/([^0-9"]\s*)\*(\s*[^0-9"-])/$1$2/g; $line =~ s/^(\s*)\*/$1/g; diff --git a/kalyptus/kalyptusCxxToSmoke.pm b/kalyptus/kalyptusCxxToSmoke.pm index a33f74a7..3ea44e58 100644 --- a/kalyptus/kalyptusCxxToSmoke.pm +++ b/kalyptus/kalyptusCxxToSmoke.pm @@ -75,10 +75,7 @@ BEGIN 'TQ_UINT64' => '$', 'TQ_INT64' => '$', 'TQ_LLONG' => '$', - 'tquint64' => '$', - 'qint64' => '$', 'long long' => '$', - 'qulonglong' => '$', ); # Yes some of this is in kalyptusDataDict's ctypemap @@ -141,21 +138,13 @@ BEGIN 'TQStyle::SCFlags' => 'int', 'TQStyle::SFlags' => 'int', 'TQ_INT16' => 'short', - 'qint16' => 'short', 'TQ_INT32' => 'int', - 'qint32' => 'int', - 'qint32&' => 'int&', 'TQ_INT8' => 'char', - 'qint8' => 'char', 'TQ_LONG' => 'long', 'TQ_UINT16' => 'ushort', - 'tquint16' => 'ushort', 'TQ_UINT32' => 'uint', - 'tquint32' => 'uint', 'TQ_UINT8' => 'uchar', - 'tquint8' => 'uchar', 'TQ_ULONG' => 'long', - 'qreal' => 'double', 'pid_t' => 'int', 'size_t' => 'int', 'pid_t' => 'int', @@ -637,7 +626,7 @@ sub preParseClass || ($name eq 'hack_strchr') || ($name eq 'hack_strstr') ) ) - # Assume only Qt classes have tr() and trUtf8() in their Q_OBJECT macro + # Assume only Qt classes have tr() and trUtf8() in their TQ_OBJECT macro || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'tr') || ($classNode->{astNodeName} !~ /^Q/ and $name eq 'trUtf8') diff --git a/kalyptus/kalyptusDataDict.pm b/kalyptus/kalyptusDataDict.pm index 205aea42..ecd1dce6 100644 --- a/kalyptus/kalyptusDataDict.pm +++ b/kalyptus/kalyptusDataDict.pm @@ -805,7 +805,7 @@ BEGIN 'KDateTable*' => 'tde_KDateTable*', 'KDateValidator*' => 'tde_KDateValidator*', 'KDateWidget*' => 'tde_KDateWidget*', -'KDesktopFile*' => 'tde_KDesktopFile*' , +'TDEDesktopFile*' => 'tde_TDEDesktopFile*' , 'KDevApi*' => 'tde_KDevApi*', 'KDevAppFrontend*' => 'tde_KDevAppFrontend*', 'KDevCompilerOptions*' => 'tde_KDevCompilerOptions*', @@ -1055,7 +1055,7 @@ BEGIN 'KPrintDialogPage*' => 'tde_KPrintDialogPage*', 'KPrinter*' => 'tde_KPrinter*', 'KPrinterWrapper*' => 'tde_KPrinterWrapper*', -'KProcIO*' => 'tde_KProcIO*' , +'TDEProcIO*' => 'tde_TDEProcIO*' , 'TDEProcess&' => 'tde_TDEProcess*' , 'TDEProcess*' => 'tde_TDEProcess*' , 'TDEProcessController*' => 'tde_TDEProcessController*', @@ -1137,8 +1137,8 @@ BEGIN 'TDEShortcuts' => 'tde_TDEShortcuts*', 'TDEShortcuts*' => 'tde_TDEShortcuts*', 'KShred*' => 'tde_KShred*', -'KSimpleConfig&' => 'tde_KSimpleConfig*' , -'KSimpleConfig*' => 'tde_KSimpleConfig*', +'TDESimpleConfig&' => 'tde_TDESimpleConfig*' , +'TDESimpleConfig*' => 'tde_TDESimpleConfig*', 'KSimpleFileFilter*' => 'tde_KSimpleFileFilter*', 'KSpell*' => 'tde_KSpell*', 'KSpellConfig&' => 'tde_KSpellConfig*' , @@ -1231,7 +1231,7 @@ BEGIN 'KURLPropsPlugin*' => 'tde_KURLPropsPlugin*', 'KURLRequester*' => 'tde_KURLRequester*', 'KURLRequesterDlg*' => 'tde_KURLRequesterDlg*', -'KUniqueApplication*' => 'tde_KUniqueApplication*', +'TDEUniqueApplication*' => 'tde_TDEUniqueApplication*', 'KUnixSocketAddress*' => 'tde_KUnixSocketAddress*', 'KValueSelector*' => 'tde_KValueSelector*', 'KWin*' => 'tde_KWin*', @@ -1467,7 +1467,6 @@ BEGIN 'TQActionGroup*' => 'qt_QActionGroup*', 'TQApplication*' => 'qt_QApplication*' , 'TQArabicCodec*' => 'qt_QArabicCodec*', -'TQArray*' => 'qt_QArray*', 'TQAsciiBucket*' => 'qt_QAsciiBucket*', 'TQAsciiCache*' => 'qt_QAsciiCache*', 'TQAsciiCacheIterator*' => 'qt_QAsciiCacheIterator*', @@ -1541,10 +1540,6 @@ BEGIN 'TQCleanupHandler*' => 'qt_QCleanupHandler*', 'TQClipboard*' => 'qt_QClipboard*', 'TQCloseEvent*' => 'qt_QCloseEvent*' , -'TQCollection&' => 'qt_QCollection*' , -'TQCollection*' => 'qt_QCollection*', -'TQCollection::Item&' => 'void*' , -'TQCollection::Item' => 'void*' , 'TQColor &' => 'qt_QColor*', 'TQColor&' => 'qt_QColor*', 'TQColor&fillColor::white' => 'int' , @@ -1871,10 +1866,6 @@ BEGIN 'TQMultiLineEdit*' => 'qt_QMultiLineEdit*', 'TQMultiLineEditRow*' => 'qt_QMultiLineEditRow*', 'TQMutex*' => 'qt_QMutex*', -'TQNPInstance*' => 'qt_QNPInstance*', -'TQNPStream*' => 'qt_QNPStream*', -'TQNPWidget*' => 'qt_QNPWidget*', -'TQNPlugin*' => 'qt_QNPlugin*', 'TQNetworkOperation*' => 'qt_QNetworkOperation*' , 'TQNetworkProtocol*' => 'qt_QNetworkProtocol*' , 'TQNetworkProtocol::Operation' => 'int' , @@ -1951,7 +1942,6 @@ BEGIN 'TQPtrStack*' => 'qt_QPtrStack*', 'TQPtrVector*' => 'qt_QPtrVector*', 'TQPushButton*' => 'qt_QPushButton*', -'TQQueue*' => 'qt_QQueue*', 'TQRESULT' => 'long', 'TQRadioButton*' => 'qt_QRadioButton*', 'TQRangeControl*' => 'qt_QRangeControl*', @@ -1976,7 +1966,6 @@ BEGIN 'TQScrollBar*' => 'qt_QScrollBar*' , 'TQScrollView*' => 'qt_QScrollView*', 'TQSemaphore*' => 'qt_QSemaphore*', -'TQSemiModal*' => 'qt_QSemiModal*', 'TQSenderObject*' => 'qt_QSenderObject*', 'TQServerSocket*' => 'qt_QServerSocket*', 'TQSessionManager&' => 'qt_QSessionManager*' , @@ -2012,7 +2001,6 @@ BEGIN 'TQSocketDevice*' => 'qt_QSocketDevice*' , 'TQSocketNotifier*' => 'qt_QSocketNotifier*', 'TQSocketNotifier::Type' => 'int', -'TQSortedList*' => 'qt_QSortedList*', 'TQSound*' => 'qt_QSound*', 'TQSpacerItem*' => 'qt_QSpacerItem*' , 'TQSpinBox*' => 'qt_QSpinBox*', @@ -2059,7 +2047,6 @@ BEGIN 'TQSqlResult' => 'qt_QSqlResult*', 'TQSqlResult*' => 'qt_QSqlResult*', 'TQSqlResultShared*' => 'qt_QSqlResultShared*', -'TQStack*' => 'qt_QStack*', 'TQStatusBar*' => 'qt_QStatusBar*' , 'TQStoredDrag*' => 'qt_QStoredDrag*', 'TQStrIList' => 'tde_QStrIList', @@ -2266,8 +2253,6 @@ BEGIN 'TQXmlParseException*' => 'qt_QXmlParseException*', 'TQXmlReader*' => 'qt_QXmlReader*', 'TQXmlSimpleReader*' => 'qt_QXmlSimpleReader*' , -'TQXtApplication*' => 'qt_QXtApplication*', -'TQXtWidget*' => 'qt_QXtWidget*', 'TQ_INT16&' => 'short', 'TQ_INT16' => 'short', 'TQ_INT32&' => 'int', @@ -2286,7 +2271,7 @@ BEGIN 'TQ_UINT8*' => 'unsigned char*' , 'TQ_ULONG&' => 'long', 'TQ_ULONG' => 'long', -'Qt*' => 'qt_Qt*' , +'TQt*' => 'qt_Qt*' , 'TQt::ArrowType' => 'int' , 'TQt::BackgroundMode' => 'int', 'TQt::DateFormat' => 'int', @@ -2297,9 +2282,6 @@ BEGIN 'TQt::RasterOp' => 'int' , 'TQt::UIEffect' => 'int' , 'TQt::WFlags' => 'int' , -'QtMultiLineEdit*' => 'qt_QtMultiLineEdit*', -'QtMultiLineEditRow*' => 'qt_QtMultiLineEditRow*', -'QtTableView*' => 'qt_QtTableView*', 'QwAbsSpriteFieldView*' => 'qt_QwAbsSpriteFieldView*' , 'QwClusterizer*' => 'qt_QwClusterizer*' , 'QwEllipse*' => 'qt_QwEllipse*', diff --git a/kalyptus/kdocAstUtil.pm b/kalyptus/kdocAstUtil.pm index ec3e8fb5..4684a5da 100644 --- a/kalyptus/kdocAstUtil.pm +++ b/kalyptus/kdocAstUtil.pm @@ -361,10 +361,12 @@ ANITER: if( !defined $ref ) { # ancestor undefined - warn "warning: ", $node->{astNodeName}, - " inherits unknown class '", + if( $in->{astNodeName} ne "DCOPObject" + && $in->{astNodeName} ne "TQObject" ) { + warn "warning: ", $node->{astNodeName}, + " inherits unknown class '", $in->{astNodeName},"'\n"; - + } $parent->AddPropList( 'InBy', $node ); } else { diff --git a/kalyptus/kdocParseDoc.pm b/kalyptus/kdocParseDoc.pm index f28b4e56..befa8c5e 100644 --- a/kalyptus/kdocParseDoc.pm +++ b/kalyptus/kdocParseDoc.pm @@ -60,15 +60,15 @@ PARSELOOP: next if !defined $text; $text =~ s#^\s*\*(?!\/)##; + if ( $text =~ m#\*/# ) { + $finished = 1; + $text = $`; + } # if ( $text =~ /^\s*<\/pre>/i ) { # flushProp(); # $inbounded = 0; # } if( $inbounded ) { - if ( $text =~ m#\*/# ) { - $finished = 1; - $text = $`; - } $buffer .= $text; next PARSELOOP; } @@ -165,10 +165,6 @@ PARSELOOP: docProp( "LibDoc" ); } else { - if ( $text =~ m#\*/# ) { - $finished = 1; - $text = $`; - } $buffer .= $text; } } |
