view interps/sadol/Console.hpp @ 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
 */
#ifndef CONSOLE_H_
#define CONSOLE_H_

class Console
{
private:
	char m_Buffer[65536];

public:
	// one raw character from input
	char InChar();
	// one line from input
	void InString(string *s);
	// one line from input
	int InInteger();
	// one line from input
	double InDouble();

	void OutInteger(int x);
	void OutDouble(double x);
	void OutString(const string &s);
};

extern Console g_Console;

#endif