AW: [mono-vb] vbNewLine to be platform dependent?
Jochen Wezel
jwezel@compumaster.de
Fri, 23 Jul 2004 15:49:20 +0200
This is a multi-part message in MIME format.
------_=_NextPart_001_01C470BB.DB0E7B40
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Hi!
=20
How could we copy the value and behaviour of System.Environment.NewLine
into our VB class as best?
=20
I've seen in /mcs/class/corlib/System/Environment.cs the following
implementation:
/// <summary>
/// Gets the standard new line value
/// </summary>
public extern static string NewLine {
[MethodImplAttribute
(MethodImplOptions.InternalCall)]
get;
}
And now I'm a little bit confused...
=20
This doesn't work (compilation errors because not a constant, sure):
namespace Microsoft.VisualBasic {
sealed public class ControlChars {
// Declarations
public const System.String CrLf =3D "\n\r";
public const System.String NewLine =3D
System.Environment.NewLine;=20
public const System.Char Cr =3D '\n';
public const System.Char Lf =3D '\r';
public const System.Char Back =3D '\b';
=09
Regards
Jochen
________________________________
Von: JD Conley [mailto:jconley@winfessor.com]=20
Gesendet: Donnerstag, 22. Juli 2004 20:50
An: Jochen Wezel
Betreff: RE: [mono-vb] vbNewLine to be platform dependent?
Check out the implementation for System.Environment.NewLine. You can
probably just steal that. It should be platform independent (I don't
have mcs source handy to check).
=20
JD
=20
=20
________________________________
From: Jochen Wezel [mailto:jwezel@compumaster.de]=20
Sent: Thursday, July 22, 2004 12:13 AM
To: Jambunathan Jambunathan <kjambunathan@novell.com>;
mono-vb@lists.ximian.com
Subject: [mono-vb] vbNewLine to be platform dependent?
=20
Hi Jambunathan and all the other VB gurus!
=20
> +namespace Microsoft.VisualBasic {
> +
[Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]
> + sealed public class Constants {
> + // Declarations
> + public const System.Int32 vbObjectError =3D
(System.Int32)(-2147221504);
> + public const System.String vbCrLf =3D "\r\n";
> + public const System.String vbNewLine =3D "\r\n";
> + public const System.String vbCr =3D "\r";
> + public const System.String vbLf =3D "\n";
I would prefer to see the constant vbNewLine to be a platform dependent
line break.
=20
(If I remember correctly, Microsoft itself was telling in the tooltip
text/intellisense of this constant, that this vbnewline was intended to
be the the platform dependent line break.)=20
=20
Certainly, the test case for this constant had to be fixed, too.
That's why I recommend something like that.
# if PLATFORM_LINUX {
public const System.String vbNewLine =3D "\n";
# } else if PLATFORM_UNIX {
public const System.String vbNewLine =3D "\n";
# } else if PLATFORM_MAC {
public const System.String vbNewLine =3D "\r";
# } else { // PLATFORM_WINDOWS
public const System.String vbNewLine =3D "\r\n";
# }
=20
What do you think about?
=20
Regards
Jochen
=20
________________________________
Von: mono-patches-admin@ximian.com im Auftrag von Jambunathan
Jambunathan <kjambunathan@novell.com>
Gesendet: Do 22.07.2004 06:39
An: mono-patches@lists.ximian.com
Betreff: [Mono-patches]
mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic
Constants.cs,1.5,1.5.2.1 ChangeLog,1.43,1.43.2.1
Update of
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic
In directory mono-cvs.ximian.com:/tmp/cvs-serv9235
Modified Files:
Tag: mono-1-0
Constants.cs ChangeLog
Log Message:
Fixed definitions of vbCr, vbLf, vbCrLf and
vbNewLine
Index: Constants.cs
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file:
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic/Consta
nts.cs,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -u -d -r1.5 -r1.5.2.1
--- Constants.cs 24 Jun 2004 14:06:50 -0000 1.5
+++ Constants.cs 22 Jul 2004 04:39:48 -0000 1.5.2.1
@@ -1,11 +1,11 @@
-//
-// Constants.cs
-//
-// Author:
-// Chris J Breisch (cjbreisch@altavista.net)
-//
-// (C) 2002 Chris J Breisch
-//
+//
+// Constants.cs
+//
+// Author:
+// Chris J Breisch (cjbreisch@altavista.net)
+//
+// (C) 2002 Chris J Breisch
+//
//
// Copyright (c) 2002-2003 Mainsoft Corporation.
@@ -30,131 +30,131 @@
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
CONNECTION
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
-
-using System;
-
-namespace Microsoft.VisualBasic {
- [Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]
- sealed public class Constants {
- // Declarations
- public const System.Int32 vbObjectError =3D
(System.Int32)(-2147221504);
- public const System.String vbCrLf =3D "\n\r";
- public const System.String vbNewLine =3D "\n\r";
- public const System.String vbCr =3D "\n";
- public const System.String vbLf =3D "\r";
- public const System.String vbBack =3D "\b";
- public const System.String vbFormFeed =3D "\f";
- public const System.String vbTab =3D "\t";
- public const System.String vbVerticalTab =3D "\v";
- public const System.String vbNullChar =3D "\0";
- public const System.String vbNullString =3D "";
-
- public const AppWinStyle vbHide =3D AppWinStyle.Hide;
- public const AppWinStyle vbNormalFocus =3D
AppWinStyle.NormalFocus;
- public const AppWinStyle vbMinimizedFocus =3D
AppWinStyle.MinimizedFocus;
- public const AppWinStyle vbMaximizedFocus =3D
AppWinStyle.MaximizedFocus;
- public const AppWinStyle vbNormalNoFocus =3D
AppWinStyle.NormalNoFocus;
- public const AppWinStyle vbMinimizedNoFocus =3D
AppWinStyle.MinimizedNoFocus;
-
- public const CallType vbMethod =3D CallType.Method;
- public const CallType vbGet =3D CallType.Get;
- public const CallType vbLet =3D CallType.Let;
- public const CallType vbSet =3D CallType.Set;
-
- public const CompareMethod vbBinaryCompare =3D
CompareMethod.Binary;
- public const CompareMethod vbTextCompare =3D
CompareMethod.Text;
-
- public const DateFormat vbGeneralDate =3D
DateFormat.GeneralDate;
- public const DateFormat vbLongDate =3D
DateFormat.LongDate;
- public const DateFormat vbShortDate =3D
DateFormat.ShortDate;
- public const DateFormat vbLongTime =3D
DateFormat.LongTime;
- public const DateFormat vbShortTime =3D
DateFormat.ShortTime;
-
- public const FirstDayOfWeek vbUseSystemDayOfWeek =3D
FirstDayOfWeek.System;
- public const FirstDayOfWeek vbSunday =3D
FirstDayOfWeek.Sunday;
- public const FirstDayOfWeek vbMonday =3D
FirstDayOfWeek.Monday;
- public const FirstDayOfWeek vbTuesday =3D
FirstDayOfWeek.Tuesday;
- public const FirstDayOfWeek vbWednesday =3D
FirstDayOfWeek.Wednesday;
- public const FirstDayOfWeek vbThursday =3D
FirstDayOfWeek.Thursday;
- public const FirstDayOfWeek vbFriday =3D
FirstDayOfWeek.Friday;
- public const FirstDayOfWeek vbSaturday =3D
FirstDayOfWeek.Saturday;
-
- public const FileAttribute vbNormal =3D
FileAttribute.Normal;
- public const FileAttribute vbReadOnly =3D
FileAttribute.ReadOnly;
- public const FileAttribute vbHidden =3D
FileAttribute.Hidden;
- public const FileAttribute vbSystem =3D
FileAttribute.System;
- public const FileAttribute vbVolume =3D
FileAttribute.Volume;
- public const FileAttribute vbDirectory =3D
FileAttribute.Directory;
- public const FileAttribute vbArchive =3D
FileAttribute.Archive;
-
- public const FirstWeekOfYear vbUseSystem =3D
FirstWeekOfYear.System;
- public const FirstWeekOfYear vbFirstJan1 =3D
FirstWeekOfYear.Jan1;
- public const FirstWeekOfYear vbFirstFourDays =3D
FirstWeekOfYear.FirstFourDays;
- public const FirstWeekOfYear vbFirstFullWeek =3D
FirstWeekOfYear.FirstFullWeek;
-
- public const VbStrConv vbUpperCase =3D
VbStrConv.UpperCase;
- public const VbStrConv vbLowerCase =3D
VbStrConv.LowerCase;
- public const VbStrConv vbProperCase =3D
VbStrConv.ProperCase;
- public const VbStrConv vbWide =3D VbStrConv.Wide;
- public const VbStrConv vbNarrow =3D VbStrConv.Narrow;
- public const VbStrConv vbKatakana =3D =
VbStrConv.Katakana;
- public const VbStrConv vbHiragana =3D =
VbStrConv.Hiragana;
- public const VbStrConv vbSimplifiedChinese =3D
VbStrConv.SimplifiedChinese;
- public const VbStrConv vbTraditionalChinese =3D
VbStrConv.TraditionalChinese;
- public const VbStrConv vbLinguisticCasing =3D
VbStrConv.LinguisticCasing;
-
- public const TriState vbUseDefault =3D
TriState.UseDefault;
- public const TriState vbTrue =3D TriState.True;
- public const TriState vbFalse =3D TriState.False;
-
- public const VariantType vbEmpty =3D VariantType.Empty;
- public const VariantType vbNull =3D VariantType.Null;
- public const VariantType vbInteger =3D
VariantType.Integer;
- public const VariantType vbLong =3D VariantType.Long;
- public const VariantType vbSingle =3D =
VariantType.Single;
- public const VariantType vbDouble =3D =
VariantType.Double;
- public const VariantType vbCurrency =3D
VariantType.Currency;
- public const VariantType vbDate =3D VariantType.Date;
- public const VariantType vbString =3D =
VariantType.String;
- public const VariantType vbObject =3D =
VariantType.Object;
- public const VariantType vbBoolean =3D
VariantType.Boolean;
- public const VariantType vbVariant =3D
VariantType.Variant;
- public const VariantType vbDecimal =3D
VariantType.Decimal;
- public const VariantType vbByte =3D VariantType.Byte;
- public const VariantType vbUserDefinedType =3D
VariantType.UserDefinedType;
- public const VariantType vbArray =3D VariantType.Array;
-
- public const MsgBoxResult vbOK =3D MsgBoxResult.OK;
- public const MsgBoxResult vbCancel =3D
MsgBoxResult.Cancel;
- public const MsgBoxResult vbAbort =3D =
MsgBoxResult.Abort;
- public const MsgBoxResult vbRetry =3D =
MsgBoxResult.Retry;
- public const MsgBoxResult vbIgnore =3D
MsgBoxResult.Ignore;
- public const MsgBoxResult vbYes =3D MsgBoxResult.Yes;
- public const MsgBoxResult vbNo =3D MsgBoxResult.No;
-
- public const MsgBoxStyle vbOKOnly =3D =
MsgBoxStyle.OKOnly;
- public const MsgBoxStyle vbOKCancel =3D
MsgBoxStyle.OKCancel;
- public const MsgBoxStyle vbAbortRetryIgnore =3D
MsgBoxStyle.AbortRetryIgnore;
- public const MsgBoxStyle vbYesNoCancel =3D
MsgBoxStyle.YesNoCancel;
- public const MsgBoxStyle vbYesNo =3D MsgBoxStyle.YesNo;
- public const MsgBoxStyle vbRetryCancel =3D
MsgBoxStyle.RetryCancel;
- public const MsgBoxStyle vbCritical =3D
MsgBoxStyle.Critical;
- public const MsgBoxStyle vbQuestion =3D
MsgBoxStyle.Question;
- public const MsgBoxStyle vbExclamation =3D
MsgBoxStyle.Exclamation;
- public const MsgBoxStyle vbInformation =3D
MsgBoxStyle.Information;
- public const MsgBoxStyle vbDefaultButton1 =3D
MsgBoxStyle.DefaultButton1;
- public const MsgBoxStyle vbDefaultButton2 =3D
MsgBoxStyle.DefaultButton2;
- public const MsgBoxStyle vbDefaultButton3 =3D
MsgBoxStyle.DefaultButton3;
- public const MsgBoxStyle vbApplicationModal =3D
MsgBoxStyle.ApplicationModal;
- public const MsgBoxStyle vbSystemModal =3D
MsgBoxStyle.SystemModal;
- public const MsgBoxStyle vbMsgBoxHelp =3D
MsgBoxStyle.MsgBoxHelp;
- public const MsgBoxStyle vbMsgBoxRight =3D
MsgBoxStyle.MsgBoxRight;
- public const MsgBoxStyle vbMsgBoxRtlReading =3D
MsgBoxStyle.MsgBoxRtlReading;
- public const MsgBoxStyle vbMsgBoxSetForeground =3D
MsgBoxStyle.MsgBoxSetForeground;
-
- // Constructors
- // Properties
- // Methods
- // Events
- };
-}
+
+using System;
+
+namespace Microsoft.VisualBasic {
+ [Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]
+ sealed public class Constants {
+ // Declarations
+ public const System.Int32 vbObjectError =3D
(System.Int32)(-2147221504);
+ public const System.String vbCrLf =3D "\r\n";
+ public const System.String vbNewLine =3D "\r\n";
+ public const System.String vbCr =3D "\r";
+ public const System.String vbLf =3D "\n";
+ public const System.String vbBack =3D "\b";
+ public const System.String vbFormFeed =3D "\f";
+ public const System.String vbTab =3D "\t";
+ public const System.String vbVerticalTab =3D "\v";
+ public const System.String vbNullChar =3D "\0";
+ public const System.String vbNullString =3D "";
+
+ public const AppWinStyle vbHide =3D AppWinStyle.Hide;
+ public const AppWinStyle vbNormalFocus =3D
AppWinStyle.NormalFocus;
+ public const AppWinStyle vbMinimizedFocus =3D
AppWinStyle.MinimizedFocus;
+ public const AppWinStyle vbMaximizedFocus =3D
AppWinStyle.MaximizedFocus;
+ public const AppWinStyle vbNormalNoFocus =3D
AppWinStyle.NormalNoFocus;
+ public const AppWinStyle vbMinimizedNoFocus =3D
AppWinStyle.MinimizedNoFocus;
+
+ public const CallType vbMethod =3D CallType.Method;
+ public const CallType vbGet =3D CallType.Get;
+ public const CallType vbLet =3D CallType.Let;
+ public const CallType vbSet =3D CallType.Set;
+
+ public const CompareMethod vbBinaryCompare =3D
CompareMethod.Binary;
+ public const CompareMethod vbTextCompare =3D
CompareMethod.Text;
+
+ public const DateFormat vbGeneralDate =3D
DateFormat.GeneralDate;
+ public const DateFormat vbLongDate =3D
DateFormat.LongDate;
+ public const DateFormat vbShortDate =3D
DateFormat.ShortDate;
+ public const DateFormat vbLongTime =3D
DateFormat.LongTime;
+ public const DateFormat vbShortTime =3D
DateFormat.ShortTime;
+
+ public const FirstDayOfWeek vbUseSystemDayOfWeek =3D
FirstDayOfWeek.System;
+ public const FirstDayOfWeek vbSunday =3D
FirstDayOfWeek.Sunday;
+ public const FirstDayOfWeek vbMonday =3D
FirstDayOfWeek.Monday;
+ public const FirstDayOfWeek vbTuesday =3D
FirstDayOfWeek.Tuesday;
+ public const FirstDayOfWeek vbWednesday =3D
FirstDayOfWeek.Wednesday;
+ public const FirstDayOfWeek vbThursday =3D
FirstDayOfWeek.Thursday;
+ public const FirstDayOfWeek vbFriday =3D
FirstDayOfWeek.Friday;
+ public const FirstDayOfWeek vbSaturday =3D
FirstDayOfWeek.Saturday;
+
+ public const FileAttribute vbNormal =3D
FileAttribute.Normal;
+ public const FileAttribute vbReadOnly =3D
FileAttribute.ReadOnly;
+ public const FileAttribute vbHidden =3D
FileAttribute.Hidden;
+ public const FileAttribute vbSystem =3D
FileAttribute.System;
+ public const FileAttribute vbVolume =3D
FileAttribute.Volume;
+ public const FileAttribute vbDirectory =3D
FileAttribute.Directory;
+ public const FileAttribute vbArchive =3D
FileAttribute.Archive;
+
+ public const FirstWeekOfYear vbUseSystem =3D
FirstWeekOfYear.System;
+ public const FirstWeekOfYear vbFirstJan1 =3D
FirstWeekOfYear.Jan1;
+ public const FirstWeekOfYear vbFirstFourDays =3D
FirstWeekOfYear.FirstFourDays;
+ public const FirstWeekOfYear vbFirstFullWeek =3D
FirstWeekOfYear.FirstFullWeek;
+
+ public const VbStrConv vbUpperCase =3D
VbStrConv.UpperCase;
+ public const VbStrConv vbLowerCase =3D
VbStrConv.LowerCase;
+ public const VbStrConv vbProperCase =3D
VbStrConv.ProperCase;
+ public const VbStrConv vbWide =3D VbStrConv.Wide;
+ public const VbStrConv vbNarrow =3D VbStrConv.Narrow;
+ public const VbStrConv vbKatakana =3D =
VbStrConv.Katakana;
+ public const VbStrConv vbHiragana =3D =
VbStrConv.Hiragana;
+ public const VbStrConv vbSimplifiedChinese =3D
VbStrConv.SimplifiedChinese;
+ public const VbStrConv vbTraditionalChinese =3D
VbStrConv.TraditionalChinese;
+ public const VbStrConv vbLinguisticCasing =3D
VbStrConv.LinguisticCasing;
+
+ public const TriState vbUseDefault =3D
TriState.UseDefault;
+ public const TriState vbTrue =3D TriState.True;
+ public const TriState vbFalse =3D TriState.False;
+
+ public const VariantType vbEmpty =3D VariantType.Empty;
+ public const VariantType vbNull =3D VariantType.Null;
+ public const VariantType vbInteger =3D
VariantType.Integer;
+ public const VariantType vbLong =3D VariantType.Long;
+ public const VariantType vbSingle =3D =
VariantType.Single;
+ public const VariantType vbDouble =3D =
VariantType.Double;
+ public const VariantType vbCurrency =3D
VariantType.Currency;
+ public const VariantType vbDate =3D VariantType.Date;
+ public const VariantType vbString =3D =
VariantType.String;
+ public const VariantType vbObject =3D =
VariantType.Object;
+ public const VariantType vbBoolean =3D
VariantType.Boolean;
+ public const VariantType vbVariant =3D
VariantType.Variant;
+ public const VariantType vbDecimal =3D
VariantType.Decimal;
+ public const VariantType vbByte =3D VariantType.Byte;
+ public const VariantType vbUserDefinedType =3D
VariantType.UserDefinedType;
+ public const VariantType vbArray =3D VariantType.Array;
+
+ public const MsgBoxResult vbOK =3D MsgBoxResult.OK;
+ public const MsgBoxResult vbCancel =3D
MsgBoxResult.Cancel;
+ public const MsgBoxResult vbAbort =3D =
MsgBoxResult.Abort;
+ public const MsgBoxResult vbRetry =3D =
MsgBoxResult.Retry;
+ public const MsgBoxResult vbIgnore =3D
MsgBoxResult.Ignore;
+ public const MsgBoxResult vbYes =3D MsgBoxResult.Yes;
+ public const MsgBoxResult vbNo =3D MsgBoxResult.No;
+
+ public const MsgBoxStyle vbOKOnly =3D =
MsgBoxStyle.OKOnly;
+ public const MsgBoxStyle vbOKCancel =3D
MsgBoxStyle.OKCancel;
+ public const MsgBoxStyle vbAbortRetryIgnore =3D
MsgBoxStyle.AbortRetryIgnore;
+ public const MsgBoxStyle vbYesNoCancel =3D
MsgBoxStyle.YesNoCancel;
+ public const MsgBoxStyle vbYesNo =3D MsgBoxStyle.YesNo;
+ public const MsgBoxStyle vbRetryCancel =3D
MsgBoxStyle.RetryCancel;
+ public const MsgBoxStyle vbCritical =3D
MsgBoxStyle.Critical;
+ public const MsgBoxStyle vbQuestion =3D
MsgBoxStyle.Question;
+ public const MsgBoxStyle vbExclamation =3D
MsgBoxStyle.Exclamation;
+ public const MsgBoxStyle vbInformation =3D
MsgBoxStyle.Information;
+ public const MsgBoxStyle vbDefaultButton1 =3D
MsgBoxStyle.DefaultButton1;
+ public const MsgBoxStyle vbDefaultButton2 =3D
MsgBoxStyle.DefaultButton2;
+ public const MsgBoxStyle vbDefaultButton3 =3D
MsgBoxStyle.DefaultButton3;
+ public const MsgBoxStyle vbApplicationModal =3D
MsgBoxStyle.ApplicationModal;
+ public const MsgBoxStyle vbSystemModal =3D
MsgBoxStyle.SystemModal;
+ public const MsgBoxStyle vbMsgBoxHelp =3D
MsgBoxStyle.MsgBoxHelp;
+ public const MsgBoxStyle vbMsgBoxRight =3D
MsgBoxStyle.MsgBoxRight;
+ public const MsgBoxStyle vbMsgBoxRtlReading =3D
MsgBoxStyle.MsgBoxRtlReading;
+ public const MsgBoxStyle vbMsgBoxSetForeground =3D
MsgBoxStyle.MsgBoxSetForeground;
+
+ // Constructors
+ // Properties
+ // Methods
+ // Events
+ };
+}
Index: ChangeLog
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file:
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic/Change
Log,v
retrieving revision 1.43
retrieving revision 1.43.2.1
diff -u -d -r1.43 -r1.43.2.1
--- ChangeLog 24 Jun 2004 16:56:07 -0000 1.43
+++ ChangeLog 22 Jul 2004 04:39:48 -0000 1.43.2.1
@@ -1,3 +1,8 @@
+2004-07-22 Jambunathan K <kjambunathan@novell.com>
+
+ * Constants.cs: Fixed definitions of vbCr, vbLf, vbCrLf and
+ vbNewLine
+
2004-06-24 Jambunathan K <kjambunathan@novell.com>
* RandomVBFile.cs: Fixed FileGet() for Date and Decimal types
* FileSystem.cs: Fixed ChDir, FileCopy
_______________________________________________
Mono-patches maillist - Mono-patches@ximian.com
http://lists.ximian.com/mailman/listinfo/mono-patches
------_=_NextPart_001_01C470BB.DB0E7B40
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=3D"http://www.w3.org/TR/REC-html40" xmlns:v =3D=20
"urn:schemas-microsoft-com:vml" xmlns:o =3D=20
"urn:schemas-microsoft-com:office:office" xmlns:w =3D=20
"urn:schemas-microsoft-com:office:word"><HEAD><TITLE>[Mono-patches] =
mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic =
Constants.cs,1.5,1.5.2.1 ChangeLog,1.43,1.43.2.1</TITLE>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR><!--[if !mso]>
<STYLE>v\:* {
BEHAVIOR: url(#default#VML)
}
o\:* {
BEHAVIOR: url(#default#VML)
}
w\:* {
BEHAVIOR: url(#default#VML)
}
.shape {
BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]-->
<STYLE>@font-face {
font-family: Tahoma;
}
@page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.25in 1.0in 1.25in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: blue; TEXT-DECORATION: underline
}
P.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Courier New"
}
LI.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Courier New"
}
DIV.MsoPlainText {
FONT-SIZE: 10pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Courier New"
}
P.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoAutoSig {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New Roman"
}
P {
FONT-SIZE: 12pt; MARGIN-LEFT: 0in; MARGIN-RIGHT: 0in; FONT-FAMILY: =
"Times New Roman"; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto
}
SPAN.EmailStyle18 {
COLOR: navy; FONT-FAMILY: Arial; mso-style-type: personal-reply
}
DIV.Section1 {
page: Section1
}
</STYLE>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=3DEN-US vLink=3Dblue link=3Dblue>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>Hi!</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2></FONT></SPAN> </DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>How could we copy the value and behaviour of=20
System.Environment.NewLine into our VB class as =
best?</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2></FONT></SPAN> </DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2>I've seen in =
/mcs/class/corlib/System/Environment.cs the=20
following implementation:</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D341504513-23072004><FONT =
face=3DArial=20
color=3D#0000ff size=3D2><FONT=20
face=3D"Courier =
New"> &n=
bsp; =20
///=20
<summary><BR> =
=20
/// Gets the standard new line=20
value<BR> &nbs=
p; =20
///=20
</summary><BR>  =
; =20
public extern static string NewLine=20
{<BR> &n=
bsp; =20
[MethodImplAttribute=20
(MethodImplOptions.InternalCall)]<BR> =
&=
nbsp; =20
get;<BR>  =
; =20
}</FONT><BR></FONT></SPAN></DIV>
<DIV><SPAN class=3D341504513-23072004></SPAN><FONT face=3DArial><FONT=20
color=3D#0000ff><FONT=20
size=3D2>And now I'm a little bit confused.=
..</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial><FONT color=3D#0000ff><FONT=20
size=3D2></FONT></FONT></FONT> </DIV>
<DIV><SPAN class=3D341504513-23072004><FONT face=3DArial color=3D#0000ff =
size=3D2>This=20
doesn't work (compilation errors because not a constant,=20
sure):</FONT></SPAN></DIV>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
<DIV><SPAN class=3D341504513-23072004><FONT face=3D"Courier New" =
color=3D#0000ff=20
size=3D2>namespace Microsoft.VisualBasic=20
{<BR> sealed public class=20
ControlChars=20
=
{<BR> &n=
bsp; =20
//=20
=
Declarations<BR> &nb=
sp; =20
public const System.String CrLf =3D=20
=
"\n\r";<BR> &n=
bsp; =20
public const System.String NewLine =3D=20
System.Environment.NewLine; </FONT></SPAN></DIV>
<DIV><SPAN class=3D341504513-23072004><FONT color=3D#0000ff =
size=3D2><FONT=20
face=3D"Courier =
New"> &n=
bsp; =20
public const System.Char Cr =3D=20
=
'\n';<BR> &nbs=
p; =20
public const System.Char Lf =3D=20
=
'\r';<BR> &nbs=
p; =20
public const System.Char Back =3D=20
'\b';<BR></FONT></DIV></BLOCKQUOTE></FONT></SPAN>
<DIV><FONT><FONT><FONT face=3DArial><FONT color=3D#0000ff><FONT =
size=3D2>R<SPAN=20
class=3D341504513-23072004>egards</SPAN></FONT></FONT></FONT></FONT></FON=
T></DIV>
<DIV><FONT><FONT><FONT face=3DArial><FONT color=3D#0000ff><FONT =
size=3D2><SPAN=20
class=3D341504513-23072004>Jochen</SPAN></FONT></FONT></FONT></FONT></FON=
T></DIV>
<DIV><BR></DIV>
<DIV class=3DOutlookMessageHeader lang=3Dde dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
<FONT face=3DTahoma size=3D2><B>Von:</B> JD Conley =
[mailto:jconley@winfessor.com]=20
<BR><B>Gesendet:</B> Donnerstag, 22. Juli 2004 20:50<BR><B>An:</B> =
Jochen=20
Wezel<BR><B>Betreff:</B> RE: [mono-vb] vbNewLine to be platform=20
dependent?<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=3DSection1>
<P class=3DMsoNormal><FONT face=3DArial color=3Dnavy size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Check out the =
implementation for System.Environment.NewLine. You can probably =
just steal=20
that. It should be platform independent (I don’t have mcs =
source handy to=20
check).<o:p></o:p></SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3DArial color=3Dnavy size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: =
Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt">JD</SPAN></FONT><FONT face=3DArial =
color=3Dnavy size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: =
Arial"><o:p></o:p></SPAN></FONT></P>
<DIV>
<P class=3DMsoAutoSig><FONT face=3D"Times New Roman" color=3Dnavy =
size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt; COLOR: =
navy"><o:p> </o:p></SPAN></FONT></P></DIV>
<P class=3DMsoNormal><FONT face=3DArial color=3Dnavy size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: =
Arial"><o:p> </o:p></SPAN></FONT></P>
<DIV=20
style=3D"BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: =
medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: blue =
1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none">
<DIV>
<DIV class=3DMsoNormal style=3D"TEXT-ALIGN: center" align=3Dcenter><FONT =
face=3D"Times New Roman" size=3D3><SPAN style=3D"FONT-SIZE: 12pt">
<HR tabIndex=3D-1 align=3Dcenter width=3D"100%" SIZE=3D2>
</SPAN></FONT></DIV>
<P class=3DMsoNormal><B><FONT face=3DTahoma size=3D2><SPAN=20
style=3D"FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: =
Tahoma">From:</SPAN></FONT></B><FONT=20
face=3DTahoma size=3D2><SPAN style=3D"FONT-SIZE: 10pt; FONT-FAMILY: =
Tahoma"> Jochen=20
Wezel [mailto:jwezel@compumaster.de] <BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Sent:</SPAN></B> Thursday, July 22, 2004 =
12:13=20
AM<BR><B><SPAN style=3D"FONT-WEIGHT: bold">To:</SPAN></B> Jambunathan =
Jambunathan=20
<kjambunathan@novell.com>; mono-vb@lists.ximian.com<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Subject:</SPAN></B> [mono-vb] vbNewLine to =
be platform=20
dependent?</SPAN></FONT><o:p></o:p></P></DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<DIV id=3DidOWAReplyText39737>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial color=3Dblack size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial">Hi =
Jambunathan and all=20
the other VB gurus!</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">> +namespace=20
Microsoft.VisualBasic {<BR>> + =20
[Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]<BR>> =
+ sealed public class Constants =
{<BR>>=20
+ =
=20
// Declarations<BR>> + =20
public const System.Int32=20
vbObjectError =3D (System.Int32)(-2147221504);<BR>>=20
+ =
=20
public const System.String vbCrLf =3D "\r\n";<BR>>=20
+ =
=20
public const System.String vbNewLine =3D "\r\n";<BR>>=20
+ =
=20
public const System.String vbCr =3D "\r";<BR>>=20
+ =
=20
public const System.String vbLf =3D =
"\n";</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">I would prefer to see=20
the constant vbNewLine to be a platform dependent line=20
break.</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">(If I remember correctly, =
Microsoft=20
itself was telling in the tooltip text/intellisense of this constant, =
that this=20
vbnewline was intended to be the the platform dependent line =
break.)=20
</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Certainly, the test case =
for this=20
constant had to be fixed, too.</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">That's why I recommend =
something=20
like that.</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Courier New" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"># if =
PLATFORM_LINUX=20
{</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Courier New" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Courier =
New'"> &=
nbsp; =20
public const System.String vbNewLine =3D "\n";<BR># } else if =
PLATFORM_UNIX=20
{</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Courier New" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Courier =
New'"> &=
nbsp; =20
public const System.String vbNewLine =3D "\n";<BR># } else if =
PLATFORM_MAC=20
{</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Courier New" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Courier =
New'"> &=
nbsp; =20
public const System.String vbNewLine =3D "\r";<BR># } else { //=20
PLATFORM_WINDOWS</SPAN></FONT><o:p></o:p></P></DIV></DIV></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Courier New" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Courier =
New'"> &=
nbsp; =20
public const System.String vbNewLine =3D "\r\n";<BR>#=20
}</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">What do you think=20
about?</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: =
Arial">Regards</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: =
Arial">Jochen</SPAN></FONT><o:p></o:p></P></DIV>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D3><SPAN=20
style=3D"FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV>
<DIV>
<DIV class=3DMsoNormal style=3D"TEXT-ALIGN: center" align=3Dcenter><FONT =
face=3D"Times New Roman" size=3D3><SPAN style=3D"FONT-SIZE: 12pt">
<HR tabIndex=3D-1 align=3Dcenter width=3D"100%" SIZE=3D2>
</SPAN></FONT></DIV></DIV>
<DIV>
<P class=3DMsoNormal style=3D"MARGIN-BOTTOM: 12pt"><B><FONT =
face=3DTahoma size=3D2><SPAN=20
style=3D"FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: =
Tahoma">Von:</SPAN></FONT></B><FONT=20
face=3DTahoma size=3D2><SPAN style=3D"FONT-SIZE: 10pt; FONT-FAMILY: =
Tahoma">=20
mono-patches-admin@ximian.com im Auftrag von Jambunathan Jambunathan=20
<kjambunathan@novell.com><BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Gesendet:</SPAN></B> Do 22.07.2004 =
06:39<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">An:</SPAN></B>=20
mono-patches@lists.ximian.com<BR><B><SPAN=20
style=3D"FONT-WEIGHT: bold">Betreff:</SPAN></B> [Mono-patches]=20
mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic =
Constants.cs,1.5,1.5.2.1=20
ChangeLog,1.43,1.43.2.1</SPAN></FONT><o:p></o:p></P></DIV>
<DIV>
<P style=3D"MARGIN-BOTTOM: 12pt"><FONT face=3D"Times New Roman" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt">Update of=20
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic<BR>In=20
directory mono-cvs.ximian.com:/tmp/cvs-serv9235<BR><BR>Modified=20
Files:<BR> Tag:=20
mono-1-0<BR> Constants.cs=20
ChangeLog<BR>Log Message:<BR>Fixed definitions of vbCr, vbLf, vbCrLf=20
and<BR>vbNewLine<BR><BR><BR>Index:=20
Constants.cs<BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>=
RCS=20
file:=20
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic/Constan=
ts.cs,v<BR>retrieving=20
revision 1.5<BR>retrieving revision 1.5.2.1<BR>diff -u -d -r1.5 =
-r1.5.2.1<BR>---=20
Constants.cs 24 Jun 2004 =
14:06:50=20
-0000 1.5<BR>+++=20
Constants.cs 22 Jul 2004 =
04:39:48=20
-0000 1.5.2.1<BR>@@ -1,11 +1,11 =
@@<BR>-//<BR>-//=20
Constants.cs<BR>-//<BR>-// Author:<BR>-// Chris J Breisch=20
(cjbreisch@altavista.net)<BR>-//<BR>-// (C) 2002 Chris J=20
Breisch<BR>-//<BR>+//<BR>+// Constants.cs<BR>+//<BR>+//=20
Author:<BR>+// Chris J Breisch=20
(cjbreisch@altavista.net)<BR>+//<BR>+// (C) 2002 Chris J=20
Breisch<BR>+//<BR><BR> //<BR> // Copyright (c) 2002-2003 =
Mainsoft=20
Corporation.<BR>@@ -30,131 +30,131 @@<BR> // OF CONTRACT, TORT OR=20
OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION<BR> // WITH THE =
SOFTWARE=20
OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.<BR> //<BR>-<BR>-using =
System;<BR>-<BR>-namespace Microsoft.VisualBasic=20
{<BR>- =20
[Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]<BR>-&nbs=
p; =20
sealed public class Constants {<BR>- =
//=20
Declarations<BR>- =20
public const System.Int32=20
vbObjectError =3D=20
(System.Int32)(-2147221504);<BR>- =20
public const System.String =
vbCrLf =3D=20
"\n\r";<BR>- =20
public const System.String =
vbNewLine=20
=3D "\n\r";<BR>- =20
public const System.String =
vbCr =3D=20
"\n";<BR>- =20
public const System.String =
vbLf =3D=20
"\r";<BR>- =20
public const System.String =
vbBack =3D=20
"\b";<BR>- =20
public const System.String =
vbFormFeed=20
=3D "\f";<BR>- =20
public const System.String =
vbTab =3D=20
"\t";<BR>- =20
public const System.String=20
vbVerticalTab =3D "\v";<BR>- =20
public const System.String =
vbNullChar=20
=3D "\0";<BR>- =20
public const System.String=20
vbNullString =3D "";<BR>-<BR>- =20
public const AppWinStyle =
vbHide =3D=20
AppWinStyle.Hide;<BR>- =20
public const AppWinStyle=20
vbNormalFocus =3D=20
AppWinStyle.NormalFocus;<BR>- =20
public const AppWinStyle=20
vbMinimizedFocus =3D=20
AppWinStyle.MinimizedFocus;<BR>- =20
public const AppWinStyle=20
vbMaximizedFocus =3D=20
AppWinStyle.MaximizedFocus;<BR>- =20
public const AppWinStyle=20
vbNormalNoFocus =3D=20
AppWinStyle.NormalNoFocus;<BR>- =20
public const AppWinStyle=20
vbMinimizedNoFocus =3D=20
AppWinStyle.MinimizedNoFocus;<BR>-<BR>- &nbs=
p;=20
public const CallType =
vbMethod =3D=20
CallType.Method;<BR>- =20
public const CallType vbGet =
=3D=20
CallType.Get;<BR>- =20
public const CallType vbLet =
=3D=20
CallType.Let;<BR>- =20
public const CallType vbSet =
=3D=20
CallType.Set;<BR>-<BR>- =20
public const CompareMethod=20
vbBinaryCompare =3D =
CompareMethod.Binary;<BR>- =20
public const CompareMethod=20
vbTextCompare =3D=20
CompareMethod.Text;<BR>-<BR>- =20
public const DateFormat =
vbGeneralDate=20
=3D DateFormat.GeneralDate;<BR>- =20
public const DateFormat =
vbLongDate =3D=20
DateFormat.LongDate;<BR>- =20
public const DateFormat =
vbShortDate =3D=20
DateFormat.ShortDate;<BR>- =20
public const DateFormat =
vbLongTime =3D=20
DateFormat.LongTime;<BR>- =20
public const DateFormat =
vbShortTime =3D=20
DateFormat.ShortTime;<BR>-<BR>- =20
public const FirstDayOfWeek=20
vbUseSystemDayOfWeek =3D=20
FirstDayOfWeek.System;<BR>- =20
public const FirstDayOfWeek =
vbSunday=20
=3D FirstDayOfWeek.Sunday;<BR>- =20
public const FirstDayOfWeek =
vbMonday=20
=3D FirstDayOfWeek.Monday;<BR>- =20
public const FirstDayOfWeek =
vbTuesday=20
=3D FirstDayOfWeek.Tuesday;<BR>- =20
public const FirstDayOfWeek=20
vbWednesday =3D =
FirstDayOfWeek.Wednesday;<BR>- =20
public const FirstDayOfWeek=20
vbThursday =3D =
FirstDayOfWeek.Thursday;<BR>- =20
public const FirstDayOfWeek =
vbFriday=20
=3D FirstDayOfWeek.Friday;<BR>- =20
public const FirstDayOfWeek=20
vbSaturday =3D=20
FirstDayOfWeek.Saturday;<BR>-<BR>- =20
public const FileAttribute =
vbNormal =3D=20
FileAttribute.Normal;<BR>- =20
public const FileAttribute =
vbReadOnly=20
=3D FileAttribute.ReadOnly;<BR>- =20
public const FileAttribute =
vbHidden =3D=20
FileAttribute.Hidden;<BR>- =20
public const FileAttribute =
vbSystem =3D=20
FileAttribute.System;<BR>- =20
public const FileAttribute =
vbVolume =3D=20
FileAttribute.Volume;<BR>- =20
public const FileAttribute=20
vbDirectory =3D =
FileAttribute.Directory;<BR>- =20
public const FileAttribute =
vbArchive=20
=3D FileAttribute.Archive;<BR>-<BR>- =
public const FirstWeekOfYear=20
vbUseSystem =3D =
FirstWeekOfYear.System;<BR>- =20
public const FirstWeekOfYear=20
vbFirstJan1 =3D =
FirstWeekOfYear.Jan1;<BR>- =20
public const FirstWeekOfYear=20
vbFirstFourDays =3D=20
FirstWeekOfYear.FirstFourDays;<BR>- =20
public const FirstWeekOfYear=20
vbFirstFullWeek =3D=20
FirstWeekOfYear.FirstFullWeek;<BR>-<BR>- &nb=
sp;=20
public const VbStrConv =
vbUpperCase =3D=20
VbStrConv.UpperCase;<BR>- =20
public const VbStrConv =
vbLowerCase =3D=20
VbStrConv.LowerCase;<BR>- =20
public const VbStrConv =
vbProperCase =3D=20
VbStrConv.ProperCase;<BR>- =20
public const VbStrConv vbWide =
=3D=20
VbStrConv.Wide;<BR>- =20
public const VbStrConv =
vbNarrow =3D=20
VbStrConv.Narrow;<BR>- =20
public const VbStrConv =
vbKatakana =3D=20
VbStrConv.Katakana;<BR>- =20
public const VbStrConv =
vbHiragana =3D=20
VbStrConv.Hiragana;<BR>- =20
public const VbStrConv=20
vbSimplifiedChinese =3D=20
VbStrConv.SimplifiedChinese;<BR>- =20
public const VbStrConv=20
vbTraditionalChinese =3D=20
VbStrConv.TraditionalChinese;<BR>- =20
public const VbStrConv=20
vbLinguisticCasing =3D=20
VbStrConv.LinguisticCasing;<BR>-<BR>- =
=20
public const TriState =
vbUseDefault =3D=20
TriState.UseDefault;<BR>- =20
public const TriState vbTrue =
=3D=20
TriState.True;<BR>- =20
public const TriState vbFalse =
=3D=20
TriState.False;<BR>-<BR>- =20
public const VariantType =
vbEmpty =3D=20
VariantType.Empty;<BR>- =20
public const VariantType =
vbNull =3D=20
VariantType.Null;<BR>- =20
public const VariantType =
vbInteger =3D=20
VariantType.Integer;<BR>- =20
public const VariantType =
vbLong =3D=20
VariantType.Long;<BR>- =20
public const VariantType =
vbSingle =3D=20
VariantType.Single;<BR>- =20
public const VariantType =
vbDouble =3D=20
VariantType.Double;<BR>- =20
public const VariantType =
vbCurrency =3D=20
VariantType.Currency;<BR>- =20
public const VariantType =
vbDate =3D=20
VariantType.Date;<BR>- =20
public const VariantType =
vbString =3D=20
VariantType.String;<BR>- =20
public const VariantType =
vbObject =3D=20
VariantType.Object;<BR>- =20
public const VariantType =
vbBoolean =3D=20
VariantType.Boolean;<BR>- =20
public const VariantType =
vbVariant =3D=20
VariantType.Variant;<BR>- =20
public const VariantType =
vbDecimal =3D=20
VariantType.Decimal;<BR>- =20
public const VariantType =
vbByte =3D=20
VariantType.Byte;<BR>- =20
public const VariantType=20
vbUserDefinedType =3D=20
VariantType.UserDefinedType;<BR>- =20
public const VariantType =
vbArray =3D=20
VariantType.Array;<BR>-<BR>- =20
public const MsgBoxResult =
vbOK =3D=20
MsgBoxResult.OK;<BR>- =20
public const MsgBoxResult =
vbCancel =3D=20
MsgBoxResult.Cancel;<BR>- =20
public const MsgBoxResult =
vbAbort =3D=20
MsgBoxResult.Abort;<BR>- =20
public const MsgBoxResult =
vbRetry =3D=20
MsgBoxResult.Retry;<BR>- =20
public const MsgBoxResult =
vbIgnore =3D=20
MsgBoxResult.Ignore;<BR>- =20
public const MsgBoxResult =
vbYes =3D=20
MsgBoxResult.Yes;<BR>- =20
public const MsgBoxResult =
vbNo =3D=20
MsgBoxResult.No;<BR>-<BR>- =20
public const MsgBoxStyle =
vbOKOnly =3D=20
MsgBoxStyle.OKOnly;<BR>- =20
public const MsgBoxStyle =
vbOKCancel =3D=20
MsgBoxStyle.OKCancel;<BR>- =20
public const MsgBoxStyle=20
vbAbortRetryIgnore =3D=20
MsgBoxStyle.AbortRetryIgnore;<BR>- =20
public const MsgBoxStyle=20
vbYesNoCancel =3D=20
MsgBoxStyle.YesNoCancel;<BR>- =20
public const MsgBoxStyle =
vbYesNo =3D=20
MsgBoxStyle.YesNo;<BR>- =20
public const MsgBoxStyle=20
vbRetryCancel =3D=20
MsgBoxStyle.RetryCancel;<BR>- =20
public const MsgBoxStyle =
vbCritical =3D=20
MsgBoxStyle.Critical;<BR>- =20
public const MsgBoxStyle =
vbQuestion =3D=20
MsgBoxStyle.Question;<BR>- =20
public const MsgBoxStyle=20
vbExclamation =3D=20
MsgBoxStyle.Exclamation;<BR>- =20
public const MsgBoxStyle=20
vbInformation =3D=20
MsgBoxStyle.Information;<BR>- =20
public const MsgBoxStyle=20
vbDefaultButton1 =3D=20
MsgBoxStyle.DefaultButton1;<BR>- =20
public const MsgBoxStyle=20
vbDefaultButton2 =3D=20
MsgBoxStyle.DefaultButton2;<BR>- =20
public const MsgBoxStyle=20
vbDefaultButton3 =3D=20
MsgBoxStyle.DefaultButton3;<BR>- =20
public const MsgBoxStyle=20
vbApplicationModal =3D=20
MsgBoxStyle.ApplicationModal;<BR>- =20
public const MsgBoxStyle=20
vbSystemModal =3D=20
MsgBoxStyle.SystemModal;<BR>- =20
public const MsgBoxStyle =
vbMsgBoxHelp=20
=3D MsgBoxStyle.MsgBoxHelp;<BR>- =20
public const MsgBoxStyle=20
vbMsgBoxRight =3D=20
MsgBoxStyle.MsgBoxRight;<BR>- =20
public const MsgBoxStyle=20
vbMsgBoxRtlReading =3D=20
MsgBoxStyle.MsgBoxRtlReading;<BR>- =20
public const MsgBoxStyle=20
vbMsgBoxSetForeground =3D=20
MsgBoxStyle.MsgBoxSetForeground;<BR>-<BR>- &=
nbsp;=20
//=20
Constructors<BR>- =20
//=20
Properties<BR>- =20
//=20
Methods<BR>- =20
//=20
Events<BR>- };<BR>-}<BR>+<BR>+using=20
System;<BR>+<BR>+namespace Microsoft.VisualBasic=20
{<BR>+ =20
[Microsoft.VisualBasic.CompilerServices.StandardModuleAttribute]<BR>+&nbs=
p; =20
sealed public class Constants {<BR>+ =
//=20
Declarations<BR>+ =20
public const System.Int32=20
vbObjectError =3D=20
(System.Int32)(-2147221504);<BR>+ =20
public const System.String =
vbCrLf =3D=20
"\r\n";<BR>+ =20
public const System.String =
vbNewLine=20
=3D "\r\n";<BR>+ =20
public const System.String =
vbCr =3D=20
"\r";<BR>+ =20
public const System.String =
vbLf =3D=20
"\n";<BR>+ =20
public const System.String =
vbBack =3D=20
"\b";<BR>+ =20
public const System.String =
vbFormFeed=20
=3D "\f";<BR>+ =20
public const System.String =
vbTab =3D=20
"\t";<BR>+ =20
public const System.String=20
vbVerticalTab =3D "\v";<BR>+ =20
public const System.String =
vbNullChar=20
=3D "\0";<BR>+ =20
public const System.String=20
vbNullString =3D "";<BR>+<BR>+ =20
public const AppWinStyle =
vbHide =3D=20
AppWinStyle.Hide;<BR>+ =20
public const AppWinStyle=20
vbNormalFocus =3D=20
AppWinStyle.NormalFocus;<BR>+ =20
public const AppWinStyle=20
vbMinimizedFocus =3D=20
AppWinStyle.MinimizedFocus;<BR>+ =20
public const AppWinStyle=20
vbMaximizedFocus =3D=20
AppWinStyle.MaximizedFocus;<BR>+ =20
public const AppWinStyle=20
vbNormalNoFocus =3D=20
AppWinStyle.NormalNoFocus;<BR>+ =20
public const AppWinStyle=20
vbMinimizedNoFocus =3D=20
AppWinStyle.MinimizedNoFocus;<BR>+<BR>+ &nbs=
p;=20
public const CallType =
vbMethod =3D=20
CallType.Method;<BR>+ =20
public const CallType vbGet =
=3D=20
CallType.Get;<BR>+ =20
public const CallType vbLet =
=3D=20
CallType.Let;<BR>+ =20
public const CallType vbSet =
=3D=20
CallType.Set;<BR>+<BR>+ =20
public const CompareMethod=20
vbBinaryCompare =3D =
CompareMethod.Binary;<BR>+ =20
public const CompareMethod=20
vbTextCompare =3D=20
CompareMethod.Text;<BR>+<BR>+ =20
public const DateFormat =
vbGeneralDate=20
=3D DateFormat.GeneralDate;<BR>+ =20
public const DateFormat =
vbLongDate =3D=20
DateFormat.LongDate;<BR>+ =20
public const DateFormat =
vbShortDate =3D=20
DateFormat.ShortDate;<BR>+ =20
public const DateFormat =
vbLongTime =3D=20
DateFormat.LongTime;<BR>+ =20
public const DateFormat =
vbShortTime =3D=20
DateFormat.ShortTime;<BR>+<BR>+ =20
public const FirstDayOfWeek=20
vbUseSystemDayOfWeek =3D=20
FirstDayOfWeek.System;<BR>+ =20
public const FirstDayOfWeek =
vbSunday=20
=3D FirstDayOfWeek.Sunday;<BR>+ =20
public const FirstDayOfWeek =
vbMonday=20
=3D FirstDayOfWeek.Monday;<BR>+ =20
public const FirstDayOfWeek =
vbTuesday=20
=3D FirstDayOfWeek.Tuesday;<BR>+ =20
public const FirstDayOfWeek=20
vbWednesday =3D =
FirstDayOfWeek.Wednesday;<BR>+ =20
public const FirstDayOfWeek=20
vbThursday =3D =
FirstDayOfWeek.Thursday;<BR>+ =20
public const FirstDayOfWeek =
vbFriday=20
=3D FirstDayOfWeek.Friday;<BR>+ =20
public const FirstDayOfWeek=20
vbSaturday =3D=20
FirstDayOfWeek.Saturday;<BR>+<BR>+ =20
public const FileAttribute =
vbNormal =3D=20
FileAttribute.Normal;<BR>+ =20
public const FileAttribute =
vbReadOnly=20
=3D FileAttribute.ReadOnly;<BR>+ =20
public const FileAttribute =
vbHidden =3D=20
FileAttribute.Hidden;<BR>+ =20
public const FileAttribute =
vbSystem =3D=20
FileAttribute.System;<BR>+ =20
public const FileAttribute =
vbVolume =3D=20
FileAttribute.Volume;<BR>+ =20
public const FileAttribute=20
vbDirectory =3D =
FileAttribute.Directory;<BR>+ =20
public const FileAttribute =
vbArchive=20
=3D FileAttribute.Archive;<BR>+<BR>+ =
public const FirstWeekOfYear=20
vbUseSystem =3D =
FirstWeekOfYear.System;<BR>+ =20
public const FirstWeekOfYear=20
vbFirstJan1 =3D =
FirstWeekOfYear.Jan1;<BR>+ =20
public const FirstWeekOfYear=20
vbFirstFourDays =3D=20
FirstWeekOfYear.FirstFourDays;<BR>+ =20
public const FirstWeekOfYear=20
vbFirstFullWeek =3D=20
FirstWeekOfYear.FirstFullWeek;<BR>+<BR>+ &nb=
sp;=20
public const VbStrConv =
vbUpperCase =3D=20
VbStrConv.UpperCase;<BR>+ =20
public const VbStrConv =
vbLowerCase =3D=20
VbStrConv.LowerCase;<BR>+ =20
public const VbStrConv =
vbProperCase =3D=20
VbStrConv.ProperCase;<BR>+ =20
public const VbStrConv vbWide =
=3D=20
VbStrConv.Wide;<BR>+ =20
public const VbStrConv =
vbNarrow =3D=20
VbStrConv.Narrow;<BR>+ =20
public const VbStrConv =
vbKatakana =3D=20
VbStrConv.Katakana;<BR>+ =20
public const VbStrConv =
vbHiragana =3D=20
VbStrConv.Hiragana;<BR>+ =20
public const VbStrConv=20
vbSimplifiedChinese =3D=20
VbStrConv.SimplifiedChinese;<BR>+ =20
public const VbStrConv=20
vbTraditionalChinese =3D=20
VbStrConv.TraditionalChinese;<BR>+ =20
public const VbStrConv=20
vbLinguisticCasing =3D=20
VbStrConv.LinguisticCasing;<BR>+<BR>+ =
=20
public const TriState =
vbUseDefault =3D=20
TriState.UseDefault;<BR>+ =20
public const TriState vbTrue =
=3D=20
TriState.True;<BR>+ =20
public const TriState vbFalse =
=3D=20
TriState.False;<BR>+<BR>+ =20
public const VariantType =
vbEmpty =3D=20
VariantType.Empty;<BR>+ =20
public const VariantType =
vbNull =3D=20
VariantType.Null;<BR>+ =20
public const VariantType =
vbInteger =3D=20
VariantType.Integer;<BR>+ =20
public const VariantType =
vbLong =3D=20
VariantType.Long;<BR>+ =20
public const VariantType =
vbSingle =3D=20
VariantType.Single;<BR>+ =20
public const VariantType =
vbDouble =3D=20
VariantType.Double;<BR>+ =20
public const VariantType =
vbCurrency =3D=20
VariantType.Currency;<BR>+ =20
public const VariantType =
vbDate =3D=20
VariantType.Date;<BR>+ =20
public const VariantType =
vbString =3D=20
VariantType.String;<BR>+ =20
public const VariantType =
vbObject =3D=20
VariantType.Object;<BR>+ =20
public const VariantType =
vbBoolean =3D=20
VariantType.Boolean;<BR>+ =20
public const VariantType =
vbVariant =3D=20
VariantType.Variant;<BR>+ =20
public const VariantType =
vbDecimal =3D=20
VariantType.Decimal;<BR>+ =20
public const VariantType =
vbByte =3D=20
VariantType.Byte;<BR>+ =20
public const VariantType=20
vbUserDefinedType =3D=20
VariantType.UserDefinedType;<BR>+ =20
public const VariantType =
vbArray =3D=20
VariantType.Array;<BR>+<BR>+ =20
public const MsgBoxResult =
vbOK =3D=20
MsgBoxResult.OK;<BR>+ =20
public const MsgBoxResult =
vbCancel =3D=20
MsgBoxResult.Cancel;<BR>+ =20
public const MsgBoxResult =
vbAbort =3D=20
MsgBoxResult.Abort;<BR>+ =20
public const MsgBoxResult =
vbRetry =3D=20
MsgBoxResult.Retry;<BR>+ =20
public const MsgBoxResult =
vbIgnore =3D=20
MsgBoxResult.Ignore;<BR>+ =20
public const MsgBoxResult =
vbYes =3D=20
MsgBoxResult.Yes;<BR>+ =20
public const MsgBoxResult =
vbNo =3D=20
MsgBoxResult.No;<BR>+<BR>+ =20
public const MsgBoxStyle =
vbOKOnly =3D=20
MsgBoxStyle.OKOnly;<BR>+ =20
public const MsgBoxStyle =
vbOKCancel =3D=20
MsgBoxStyle.OKCancel;<BR>+ =20
public const MsgBoxStyle=20
vbAbortRetryIgnore =3D=20
MsgBoxStyle.AbortRetryIgnore;<BR>+ =20
public const MsgBoxStyle=20
vbYesNoCancel =3D=20
MsgBoxStyle.YesNoCancel;<BR>+ =20
public const MsgBoxStyle =
vbYesNo =3D=20
MsgBoxStyle.YesNo;<BR>+ =20
public const MsgBoxStyle=20
vbRetryCancel =3D=20
MsgBoxStyle.RetryCancel;<BR>+ =20
public const MsgBoxStyle =
vbCritical =3D=20
MsgBoxStyle.Critical;<BR>+ =20
public const MsgBoxStyle =
vbQuestion =3D=20
MsgBoxStyle.Question;<BR>+ =20
public const MsgBoxStyle=20
vbExclamation =3D=20
MsgBoxStyle.Exclamation;<BR>+ =20
public const MsgBoxStyle=20
vbInformation =3D=20
MsgBoxStyle.Information;<BR>+ =20
public const MsgBoxStyle=20
vbDefaultButton1 =3D=20
MsgBoxStyle.DefaultButton1;<BR>+ =20
public const MsgBoxStyle=20
vbDefaultButton2 =3D=20
MsgBoxStyle.DefaultButton2;<BR>+ =20
public const MsgBoxStyle=20
vbDefaultButton3 =3D=20
MsgBoxStyle.DefaultButton3;<BR>+ =20
public const MsgBoxStyle=20
vbApplicationModal =3D=20
MsgBoxStyle.ApplicationModal;<BR>+ =20
public const MsgBoxStyle=20
vbSystemModal =3D=20
MsgBoxStyle.SystemModal;<BR>+ =20
public const MsgBoxStyle =
vbMsgBoxHelp=20
=3D MsgBoxStyle.MsgBoxHelp;<BR>+ =20
public const MsgBoxStyle=20
vbMsgBoxRight =3D=20
MsgBoxStyle.MsgBoxRight;<BR>+ =20
public const MsgBoxStyle=20
vbMsgBoxRtlReading =3D=20
MsgBoxStyle.MsgBoxRtlReading;<BR>+ =20
public const MsgBoxStyle=20
vbMsgBoxSetForeground =3D=20
MsgBoxStyle.MsgBoxSetForeground;<BR>+<BR>+ &=
nbsp;=20
//=20
Constructors<BR>+ =20
//=20
Properties<BR>+ =20
//=20
Methods<BR>+ =20
//=20
Events<BR>+ };<BR>+}<BR><BR>Index:=20
ChangeLog<BR>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D<BR>RCS=
=20
file:=20
/cvs/public/mcs/class/Microsoft.VisualBasic/Microsoft.VisualBasic/ChangeL=
og,v<BR>retrieving=20
revision 1.43<BR>retrieving revision 1.43.2.1<BR>diff -u -d -r1.43=20
-r1.43.2.1<BR>--- ChangeLog 24 Jun 2004 16:56:07=20
-0000 1.43<BR>+++ ChangeLog 22 =
Jul=20
2004 04:39:48 -0000 1.43.2.1<BR>@@ -1,3 =
+1,8=20
@@<BR>+2004-07-22 Jambunathan K =20
<kjambunathan@novell.com><BR>+<BR>+ &n=
bsp; *=20
Constants.cs: Fixed definitions of vbCr, vbLf, vbCrLf=20
and<BR>+ =20
vbNewLine<BR>+<BR> 2004-06-24 Jambunathan K =20
<kjambunathan@novell.com><BR> &n=
bsp; *=20
RandomVBFile.cs: Fixed FileGet() for Date and Decimal=20
types<BR> * FileSystem.cs: =
Fixed=20
ChDir,=20
FileCopy<BR><BR>_______________________________________________<BR>Mono-p=
atches=20
maillist - Mono-patches@ximian.com<BR><A=20
href=3D"http://lists.ximian.com/mailman/listinfo/mono-patches">http://lis=
ts.ximian.com/mailman/listinfo/mono-patches</A><BR><BR></SPAN></FONT><o:p=
></o:p></P></DIV></DIV></DIV></BODY></HTML>
------_=_NextPart_001_01C470BB.DB0E7B40--