1 files changed, 55 insertions, 0 deletions

diff --git a/private/crt32/iostream/ostrlong.cxx b/private/crt32/iostream/ostrlong.cxx
new file mode 100644
index 000000000..959c5fb94
--- /dev/null
+++ b/private/crt32/iostream/ostrlong.cxx
@@ -0,0 +1,55 @@
+/***
+* ostrlong.cxx - definitions for ostream class operator<<(long) member functions
+*
+*	Copyright (c) 1991-1992, Microsoft Corporation.  All rights reserved.
+*
+*Purpose:
+*	Contains the member function definitions for ostream operator<<(long).
+*
+*Revision History:
+*	09-23-91   KRS	Created.  Split out from ostream.cxx for granularity.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <internal.h>
+#include <stdio.h>
+#include <iostream.h>
+#pragma hdrstop
+
+ostream& ostream::operator<<(long n)
+{
+_WINSTATIC char obuffer[12];
+_WINSTATIC char fmt[4] = "%ld";
+_WINSTATIC char leader[4] = "\0\0";
+    if (opfx()) {
+
+	if (n) 
+	    {
+            if (x_flags & (hex|oct))
+		{
+		if (x_flags & hex)
+		    {
+		    if (x_flags & uppercase) 
+			fmt[2] = 'X';
+		    else
+			fmt[2] = 'x';
+		    leader[1] = fmt[2];   // 0x or 0X  (or \0X)
+		    }
+		else
+		    fmt[2] = 'o';
+		if (x_flags & showbase)
+	            leader[0] = '0';
+		}
+	    else if ((n>0) && (x_flags & showpos))
+		{
+		leader[0] = '+';
+		}
+	    }
+	sprintf(obuffer,fmt,n);
+	writepad(leader,obuffer);
+	osfx();
+    }
+    return *this;
+
+}