!
" # ! $ %
& # ' (
) * (+,
- . /!
0 ' # 1 '' !
1
'(22$$$
334 ( - 1 5
333 ( ' ' +
66 ( (
!!
334 ( 5
66 ( 7 !
66 (
66" ( 0 8$
5
9 ! '1 # ,
5
9 ! '1 # ,
5
9 ! '1 # ,
7 !
9 ! ( ,
7 !
9 ! ( ,
' *
5 1 2
!! 1 ' + 1 1#
+# : '1
- ;
- ' #
1 '' 1 '
!! 1
< 1
= 1 + <>>
? + @ 2
0 ' . . 7@
A
7 ( B $ . . ? =0 C
5 ! <>>
int main()
{ // On initialise simplement le noyau de TND
nKernelServer* ks = new nKernelServer();
// Ensuite, on prépare un handler pour nos logs
nFileLogHandler* fh = new nFileLogHandler("myapplication");
ks->AddLogHandler(fh);
// Et un serveur de script (ici, celui pour Erlang)
nScriptServer* ss = (nScriptServer*)ks->New("nerlangserver", "/sys/servers/script");
// Pour éviter de référencer directement un répertoire donné, on prépare un alias...
nFileServer2* fs = ks->GetFileServer2();
fs->SetAssign("monalias", "home:data/myapplication/");
// ... que l'on utilise ici, par exemple
char buf[N_MAXPATH];
fs->ManglePath("monalias:scripts/startup.erl", buf, N_MAXPATH);
ss->RunScript(buf, result);
return 0;
}
A !' ' A
-module(simple).
%%% File : simple.erl
%%% Author : Mickael Remond <mickael.remond@erlang-fr.org>
%%% Description : Demonstrates Nebula-Device basic functions
%%% Created : 9 Nov 2003 by Mickael Remond <mickael.remond@erlang-fr.org>
%%% $Id: simple.erl,v 1.2 2003/11/22 14:35:49 mremond Exp $
-export([start/0]).
start() ->
nebula:start(), % Start the Nebula engine
ndefault:start(), % Setup a default "world"
MeshFileName = "torus",
%% Create object, and add mesh and shader
{ok, Object} = nebula:new( "n3dnode", "/usr/scene/object" ),
ndefault:mesh( Object, MeshFileName ),
ndefault:shader( Object ),
ndefault:eventloop().
A !' ' A
D ! $ % ' + '1 1
E!' 1! A
F 1 '
(
7 ! G ! =/-A ;
7 7@ ;
-1 !' 1! A
! ' + .
# 1 '
! 9 7 0 ,
A H
@ ?
I @J! ! K
? % L -1!
I ! % ! J +# K