view interps/sadol/Console.cpp @ 11686:10d612def8ee draft

<b_jonas> perl -e for $e ("i","u"){ $f="bin/date$e"; open my$i,"<",$f or die "error open $f r"; local$/; $s=<$i> or die; $s=~s/"\\+%Y/\\${d:+-d "\\$d"} $&/ or die; open $o,">",$f or die "error open $f w: $!"; print $o $s or die; close $o or die; print "OK $f\\n" }
author HackEso <hackeso@esolangs.org>
date Fri, 04 Jan 2019 21:29:08 +0000
parents 859f9b4339e6
children
line wrap: on
line source

/*
 * BDSM2
 * Author: Adam Sawicki
 * http://www.regedit.risp.pl
 * mailto:regedit@risp.pl
 */
#include "pch.hpp"
#include <iostream>
#include "Console.hpp"

using std::cin;
using std::cout;

char Console::InChar()
{
	return (char)(unsigned char)cin.get();
}

void Console::InString(string *s)
{
	std::getline(cin, *s);
}

int Console::InInteger()
{
	string s;
	InString(&s);
	return atoi(s.c_str());
}

double Console::InDouble()
{
	string s;
	InString(&s);
	return atof(s.c_str());
}

void Console::OutInteger(int x)
{
	cout << x;
}

void Console::OutDouble(double x)
{
	cout << x;
}

void Console::OutString(const string &s)
{
	cout << s;
}

Console g_Console;