/* "Buon Natale!" in ANSI C */
/* merry.c */
#include <stdio.h>
int main() {
char text[] = "Buon Natale!";
printf( "%s\n", text );
return 0;
}
/* "Buon Natale!" in C as a message box using WinAPI */
/* merry.c */
#include <windows.h>
int
WINAPI
WinMain( HINSTANCE hInstance,
HINSTANCE hPrevInstance,
PSTR szCmdLine,
int iCmdShow )
{
static TCHAR szText[] = TEXT( "Buon Natale!" );
MessageBox( NULL, szText, szText, MB_OK | MB_ICONEXCLAMATION );
return 0;
} |
// "Buon Natale!" in ANSI C++
// merry.cpp
#include <iostream>
#include <string>
int main() {
std::string text = "Buon Natale!";
std::cout << text << std::endl;
return 0;
} |
// "Buon Natale!" in Objective-C
// merry.m
#import <objc/Object.h>
@interface merryChristmx : Object {
STR str;
}
+ alloc;
- init;
- (STR) getstr;
int main();
@end
@implementation merryChristmx
+ alloc {
return [super alloc];
}
- init {
str = "Buon Natale!";
return [super init];
}
- (STR) getstr {
return str;
}
int main() {
id hw = [[merryChristmx alloc] init];
printf( "%s\n", [hw getstr] );
return 0;
}
@end |
// "Buon Natale!" in Java (application)
// merry.java
public class merry {
public static void main( String[] args ) {
String text = new String( "Buon Natale!" );
System.out.println( text );
}
}
// "Buon Natale!" in Java (applet)
// Natale.java
import java.applet.Applet;
import java.awt.Graphics;
public class Natale extends Applet {
public void paint(Graphics g) {
String merry = new String( "Buon Natale!" );
g.drawString( merry, 50, 25 );
}
}
// "Buon Natale!" in Java (MIDP)
// merry.java
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class Natale extends MIDlet {
private MerryScreen merryScreen = null;
public MerryMIDlet() {
String text = "Buon Natale!";
merryScreen = new MerryScreen( this, text );
}
public void startApp() {
Displayable current = Display.getDisplay( this ).getCurrent();
if(current == null) {
Display.getDisplay( this ).setCurrent( merryScreen );
}
}
public void pauseApp() {
}
public void destroyApp( boolean b ) {
}
public void exitRequested() {
destroyApp(false);
notifyDestroyed();
}
}
public class MerryScreen extends TextBox implements CommandListener {
private Natale midlet;
private Command exitCommand;
public MerryScreen( Natale midlet, String string ) {
super( "Natale", string, 256, 0 );
this.midlet = midlet;
exitCommand = new Command( "Exit", Command.EXIT, 1 );
addCommand( exitCommand );
setCommandListener( this );
}
public void commandAction( Command c, Displayable d ) {
if (c == exitCommand) {
midlet.exitRequested();
}
}
} |
{ "Buon Natale!" in Pascal }
{ merry.pas }
program merry(output);
var text : string;
begin
text := 'Buon Natale!';
writeln(text);
end. |
REM "Buon Natale!" in Basic
REM merry.bas
LET TEXT$ = "Buon Natale!"
PRINT TEXT$ |
REM "Buon Natale!" in DOS-batch
REM merry.bat
SET TEXT=Buon Natale!
ECHO %TEXT%
SET TEXT= |
% "Buon Natale!" in Prolog
% merry.pl
text('Buon Natale!').
merry:-text(X), write(X), nl. |
; "Buon Natale!" in CLisp
; merry.lsp
(SETQ TEXT "Buon Natale!~%")
(FORMAT T TEXT) |
-- "Buon Natale!" in Ada 95
-- merry.ada
with Ada.Text_IO;
procedure merry is
Text : string := "Buon Natale!";
begin
Ada.Text_IO.Put_Line( Text );
end merry; |
("Buon Natale!" in MMSFORTH)
$CONSTANT merry Buon Natale!"
merry COUNT TYPE |
("Buon Natale!" in FORTH79)
: merry 34 WORD CR COUNT TYPE;
merry Buon Natale!" |
# "Buon Natale!" in Perl
# merry.pl
my $merry = "Buon Natale!"
print $merry."\n"; |
; "Buon Natale!" in Intel assembly (x86)
; merry.asm
DATA SEGMENT
merry DB "Buon Natale!$"
ENDS
CODE SEGMENT
Start: LEA DX, merry
MOV AH, 9h
INT 21h
ret
ENDS Start |
c "Buon Natale!" in Fortran
c merry.f
program merry
dim $string as string * 14
$string = "Buon Natale!"
print $string
end |
# "Buon Natale!" in Tcl
# merry.tcl
set string "Buon Natale!"
puts $string |
#!/bin/bash
# "Buon Natale!" in bash shell
# merry
STRING="Buon Natale!"
echo $STRING |
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
"http://www.w3.org/TR/REC-html40/strict.dtd">
<!-- "Buon Natale!" in HTML -->
<!-- merry.html -->
<HTML>
<HEAD>
<TITLE>Buon Natale!</TITLE>
</HEAD>
<BODY>
Buon Natale!
</BODY>
</HTML> |
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
"http://www.w3.org/TR/REC-html40/strict.dtd">
<!-- "Buon Natale!" in VBScript/HTML -->
<!-- merry.html -->
<HTML>
<HEAD>
<TITLE>Buon Natale!</TITLE>
</HEAD>
<BODY>
<SCRIPT language="VBScript">
<!-- document.write "Buon Natale!" -->
</SCRIPT>
</BODY>
</HTML> |
<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
"http://www.w3.org/TR/REC-html40/strict.dtd">
<!-- "Buon Natale!" in PerlScript/HTML -->
<!-- merry.html -->
<HTML>
<HEAD>
<TITLE>Buon Natale!</TITLE>
</HEAD>
<BODY>
<SCRIPT language="PerlScript">
<!-- $window->document->write( "Buon Natale!" ); -->
</SCRIPT>
</BODY>
</HTML> |
-- "Buon Natale!" in PL/SQL
-- merry.sql
create or replace procedure merry is
begin
htp.p( '<!doctype HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"' );
htp.p( '"http://www.w3.org/TR/REC-html40/strict.dtd">' );
htp.htmlOpen;
htp.headOpen;
htp.title( 'Buon Natale!' );
htp.headClose;
htp.bodyOpen;
htp.p( '<P>Buon Natale!' );
htp.bodyClose;
htp.htmlClose;
end;
/
grant execute on merry to www_user;
show errors;
EXIT |
<?php
# "Buon Natale!" in PHP3
# merry.php3
echo "<!doctype HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\"\n";
echo "\"http://www.w3.org/TR/REC-html40/strict.dtd\">";
echo "<HTML>\n<HEAD>\n";
echo "<TITLE>Buon Natale!</TITLE>\n";
echo "</HEAD>\n<BODY>\n<P>";
$text = "Buon Natale!";
echo $text;
echo "\n";
echo "</BODY>\n</HTML>\n";
?>
; "Buon Natale!" in Cache(object)script
>w !,"Buon Natale!" |
