From 29929f336722a7c0f78bd48066f0038b8bd1a2d6 Mon Sep 17 00:00:00 2001 From: spotlessmind1975 Date: Wed, 11 Oct 2023 18:49:48 +0000 Subject: [PATCH] Fixed manual. --- ugbc/src/targets/atari/paper.c | 4 --- ugbc/src/targets/atari/play.c | 4 +-- ugbc/src/targets/atari/play_off.c | 4 +-- ugbc/src/targets/atari/point_at.c | 7 ----- ugbc/src/targets/c128/next_raster_at.c | 4 +-- ugbc/src/targets/c128/paper.c | 2 +- ugbc/src/targets/c128/play.c | 30 ------------------ ugbc/src/targets/c128/play_off.c | 18 ----------- ugbc/src/targets/c128/plot.c | 2 +- ugbc/src/targets/c128/point_at.c | 25 ++++++++------- ugbc/src/targets/c128/text_get_paper.c | 6 ++-- ugbc/src/targets/c128z/paper.c | 5 --- ugbc/src/targets/c128z/play.c | 32 ------------------- ugbc/src/targets/c128z/play_off.c | 20 ------------ ugbc/src/targets/c128z/point_at.c | 5 --- ugbc/src/targets/c64/next_raster_at.c | 20 ------------ ugbc/src/targets/c64/paper.c | 28 ----------------- ugbc/src/targets/c64/peek.c | 6 ++-- ugbc/src/targets/c64/play.c | 30 ------------------ ugbc/src/targets/c64/play_off.c | 18 ----------- ugbc/src/targets/c64/plot.c | 24 -------------- ugbc/src/targets/c64/point_at.c | 22 ------------- ugbc/src/targets/c64/text_get_paper.c | 26 ---------------- ugbc/src/targets/coco/paper.c | 5 --- ugbc/src/targets/coco/point_at.c | 8 ----- ugbc/src/targets/coco/text_get_paper.c | 3 -- ugbc/src/targets/coco3/next_raster_at.c | 2 -- ugbc/src/targets/coco3/paper.c | 5 --- ugbc/src/targets/coco3/point.c | 5 --- ugbc/src/targets/coco3/point_at.c | 8 ----- ugbc/src/targets/coco3/text_get_paper.c | 3 -- ugbc/src/targets/coleco/paper.c | 5 --- ugbc/src/targets/coleco/play.c | 30 ------------------ ugbc/src/targets/coleco/play_off.c | 18 ----------- ugbc/src/targets/coleco/point_at.c | 5 --- ugbc/src/targets/common/__syntax.c | 24 +++----------- ugbc/src/targets/common/exit_proc.c | 38 +++++++++++++++++++++++ ugbc/src/targets/common/on_gosub.c | 4 +-- ugbc/src/targets/common/on_goto.c | 4 +-- ugbc/src/targets/common/on_proc.c | 4 +-- ugbc/src/targets/common/on_scroll_call.c | 9 ++++-- ugbc/src/targets/common/on_scroll_gosub.c | 7 +++-- ugbc/src/targets/common/out.c | 2 +- ugbc/src/targets/common/param.c | 8 ++--- ugbc/src/targets/common/poke.c | 2 +- ugbc/src/targets/cpc/paper.c | 5 --- ugbc/src/targets/cpc/play.c | 30 ------------------ ugbc/src/targets/cpc/play_off.c | 18 ----------- ugbc/src/targets/cpc/point_at.c | 5 --- ugbc/src/targets/d32/next_raster_at.c | 2 -- ugbc/src/targets/d32/paper.c | 5 --- ugbc/src/targets/d32/peek.c | 6 ---- ugbc/src/targets/d32/point_at.c | 8 ----- ugbc/src/targets/d32/text_get_paper.c | 3 -- ugbc/src/targets/d64/next_raster_at.c | 2 -- ugbc/src/targets/d64/paper.c | 5 --- ugbc/src/targets/d64/point_at.c | 8 ----- ugbc/src/targets/d64/text_get_paper.c | 3 -- ugbc/src/targets/mo5/next_raster_at.c | 2 -- ugbc/src/targets/mo5/paper.c | 5 --- ugbc/src/targets/mo5/peek.c | 6 ---- ugbc/src/targets/mo5/point_at.c | 8 ----- ugbc/src/targets/mo5/text_get_paper.c | 3 -- ugbc/src/targets/msx1/paper.c | 5 --- ugbc/src/targets/msx1/play.c | 30 ------------------ ugbc/src/targets/msx1/play_off.c | 18 ----------- ugbc/src/targets/msx1/point_at.c | 5 --- ugbc/src/targets/pc128op/next_raster_at.c | 2 -- ugbc/src/targets/pc128op/paper.c | 5 --- ugbc/src/targets/pc128op/point_at.c | 8 ----- ugbc/src/targets/pc128op/text_get_paper.c | 3 -- ugbc/src/targets/plus4/next_raster_at.c | 4 --- ugbc/src/targets/plus4/paper.c | 5 --- ugbc/src/targets/plus4/peek.c | 6 ---- ugbc/src/targets/plus4/play.c | 30 ------------------ ugbc/src/targets/plus4/play_off.c | 18 ----------- ugbc/src/targets/plus4/point_at.c | 22 ------------- ugbc/src/targets/sc3000/paper.c | 5 --- ugbc/src/targets/sc3000/play.c | 30 ------------------ ugbc/src/targets/sc3000/play_off.c | 18 ----------- ugbc/src/targets/sc3000/point_at.c | 5 --- ugbc/src/targets/sg1000/paper.c | 5 --- ugbc/src/targets/sg1000/play.c | 30 ------------------ ugbc/src/targets/sg1000/play_off.c | 18 ----------- ugbc/src/targets/sg1000/point_at.c | 5 --- ugbc/src/targets/vg5000/paper.c | 5 --- ugbc/src/targets/vg5000/point_at.c | 5 --- ugbc/src/targets/vic20/next_raster_at.c | 21 ------------- ugbc/src/targets/vic20/paper.c | 28 ----------------- ugbc/src/targets/vic20/play.c | 30 ------------------ ugbc/src/targets/vic20/play_off.c | 18 ----------- ugbc/src/targets/vic20/point_at.c | 22 ------------- ugbc/src/targets/vic20/text_get_paper.c | 26 ---------------- ugbc/src/targets/zx/paper.c | 5 --- ugbc/src/targets/zx/point_at.c | 5 --- ugbc/src/ugbc.y | 4 +++ 96 files changed, 94 insertions(+), 1017 deletions(-) diff --git a/ugbc/src/targets/atari/paper.c b/ugbc/src/targets/atari/paper.c index 3fa2ca7b0..1f2de65c4 100755 --- a/ugbc/src/targets/atari/paper.c +++ b/ugbc/src/targets/atari/paper.c @@ -44,10 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER -@target atari - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/atari/play.c b/ugbc/src/targets/atari/play.c index 2d3f99833..39f908b1e 100755 --- a/ugbc/src/targets/atari/play.c +++ b/ugbc/src/targets/atari/play.c @@ -68,7 +68,7 @@ dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è espressa in millisecondi. -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} +@syntax PLAY #note[, #duration] [ON #channels] @example PLAY #32 @example PLAY #24, #250 @@ -100,7 +100,7 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { /* @keyword PLAY -@syntax PLAY [note] {, [duration] {ON [channels]}} +@syntax PLAY note[, duration] [ON channels] @example PLAY laDiesis @example PLAY solMaggiore, breve diff --git a/ugbc/src/targets/atari/play_off.c b/ugbc/src/targets/atari/play_off.c index 11d4411a6..21f6c5230 100755 --- a/ugbc/src/targets/atari/play_off.c +++ b/ugbc/src/targets/atari/play_off.c @@ -55,7 +55,7 @@ This command allows you to stop the play on all channels or specific channels. @italian Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. -@syntax PLAY OFF {ON #channels} +@syntax PLAY OFF [ON #channels] @example PLAY OFF @example PLAY OFF ON #%001 @@ -79,7 +79,7 @@ void play_off( Environment * _environment, int _channels ) { /* @keyword PLAY OFF -@syntax PLAY OFF {ON [channels]} +@syntax PLAY OFF [ON channels] @example PLAY OFF @example PLAY OFF ON primaVoce diff --git a/ugbc/src/targets/atari/point_at.c b/ugbc/src/targets/atari/point_at.c index 8e641273f..3be7faf70 100755 --- a/ugbc/src/targets/atari/point_at.c +++ b/ugbc/src/targets/atari/point_at.c @@ -51,10 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT -@target atari - */ void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); @@ -81,9 +77,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { outline2("; POINT AT (%s,%s)", _x, _y); diff --git a/ugbc/src/targets/c128/next_raster_at.c b/ugbc/src/targets/c128/next_raster_at.c index 6819894cd..d88953d2c 100755 --- a/ugbc/src/targets/c128/next_raster_at.c +++ b/ugbc/src/targets/c128/next_raster_at.c @@ -64,7 +64,7 @@ ed esegui il codice in corrispondenza dell'etichetta data. Nel frattempo, l'esecuzione del codice principale riprenderà da dove era stata interrotta. -@syntax NEXT RASTER AT # [integer] WITH [label] +@syntax NEXT RASTER AT #line WITH label @example NEXT RASTER AT #$42 WITH myRasterRoutine @@ -96,7 +96,7 @@ void next_raster_at_with( Environment * _environment, int _position, char * _lab /* @keyword NEXT RASTER AT -@syntax NEXT RASTER AT [expression] WITH [label] +@syntax NEXT RASTER AT expression WITH label @example NEXT RASTER AT newRaterLine WITH myRasterRoutine */ diff --git a/ugbc/src/targets/c128/paper.c b/ugbc/src/targets/c128/paper.c index 40985f499..577787bb6 100755 --- a/ugbc/src/targets/c128/paper.c +++ b/ugbc/src/targets/c128/paper.c @@ -62,7 +62,7 @@ un numero compreso tra 0 e ''PAPER COLORS'', a seconda della modalità grafica in uso, esattamente come ''PEN''. Il colore predefinito è ''DEFAULT PAPER''. -@syntax PAPER [expression] +@syntax PAPER expression @example PAPER 4 @example PAPER (esempio) diff --git a/ugbc/src/targets/c128/play.c b/ugbc/src/targets/c128/play.c index 279eb0efb..d48a131b1 100755 --- a/ugbc/src/targets/c128/play.c +++ b/ugbc/src/targets/c128/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target c128 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target c128 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/c128/play_off.c b/ugbc/src/targets/c128/play_off.c index cddc035c3..08e3ca0ef 100755 --- a/ugbc/src/targets/c128/play_off.c +++ b/ugbc/src/targets/c128/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target c128 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target c128 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/c128/plot.c b/ugbc/src/targets/c128/plot.c index 14b5d9613..6aae3441d 100755 --- a/ugbc/src/targets/c128/plot.c +++ b/ugbc/src/targets/c128/plot.c @@ -67,7 +67,7 @@ il colore di default è quello impostato con l'ultimo comando ''INK'' / ''PEN''. E' possibile omettere una o entrambe le coordinate, e ugBASIC utilizzerà l'ultima usata, che viene stoccata nelle variabili ''XGR'' e ''YGR''. -@syntax PLOT [x], [y] {, [color]} +@syntax PLOT [x], [y][, color @example PLOT 42, 42 @example PLOT 100, 100, RED diff --git a/ugbc/src/targets/c128/point_at.c b/ugbc/src/targets/c128/point_at.c index 598d5a41b..2afe7d8e8 100755 --- a/ugbc/src/targets/c128/point_at.c +++ b/ugbc/src/targets/c128/point_at.c @@ -55,17 +55,25 @@ @keyword POINT AT @english -Draws a pixel on the screen in bitmap mode on given coordinates. +The ''POINT AT'' instruction allows you to draw a point on the screen, at +the ''(x, y)'' coordinate. The color is the default color, the one set with +the last ''INK'' / ''PEN'' command. @italian -Disegna un pixel sullo schermo in modalità bitmap su coordinate date. +L'istruzione ''POINT AT'' permette di tracciare un punto sullo schermo, a +la coordinata ''(x, y)''. Il colore è quello predefinito, quello impostato con +l'ultimo comando ''INK'' / ''PEN''. -@syntax POINT AT (# [integer], # [integer]) +@syntax POINT AT(#x, #y) +@syntax POINT AT(x, y) -@example POINT AT (#42,#42) +@example POINT AT (42, 42) +@example POINT AT (100, 100) +@example POINT AT (x+1,y+1) @target c128 - */ + */ + void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); @@ -92,13 +100,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@syntax POINT AT ([expression],[expression]) - -@example POINT AT (x+1,y+1) - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { outline2("; POINT AT (%s,%s)", _x, _y); diff --git a/ugbc/src/targets/c128/text_get_paper.c b/ugbc/src/targets/c128/text_get_paper.c index 3a73b80d2..bc1749932 100755 --- a/ugbc/src/targets/c128/text_get_paper.c +++ b/ugbc/src/targets/c128/text_get_paper.c @@ -46,10 +46,10 @@ * @return Variable* */ /* -@keyword PAPER$ +@keyword PAPER (function) @english -The ''PEN$'' function returns a special control sequence that changes +The ''PAPER$'' function returns a special control sequence that changes the paper colour inside a string. This means that, whenever the string is printed on the screen, the pre-set paper colour is automatically assigned to it. The format of the string returned by ''PAPER$'' is not specific @@ -63,7 +63,7 @@ sullo schermo, le viene automaticamente assegnato il colore dello sfondo preimpostato. Il formato della stringa restituita da ''PAPER$'' non è specifico per l'hardware -@syntax = PAPER$([expression]) +@syntax = PAPER$(expression) @example PRINT PAPER$(WHITE) diff --git a/ugbc/src/targets/c128z/paper.c b/ugbc/src/targets/c128z/paper.c index 5c9afeeb3..da930f7f8 100755 --- a/ugbc/src/targets/c128z/paper.c +++ b/ugbc/src/targets/c128z/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target c128z - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/c128z/play.c b/ugbc/src/targets/c128z/play.c index 5f6796f8b..34ac461eb 100755 --- a/ugbc/src/targets/c128z/play.c +++ b/ugbc/src/targets/c128z/play.c @@ -51,30 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - -@target c128z */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,14 +75,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - -@target c128z */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/c128z/play_off.c b/ugbc/src/targets/c128z/play_off.c index 86399ad12..4dd0569d4 100755 --- a/ugbc/src/targets/c128z/play_off.c +++ b/ugbc/src/targets/c128z/play_off.c @@ -48,19 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - -@target c128z */ void play_off( Environment * _environment, int _channels ) { @@ -78,13 +65,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - -@target c128z */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/c128z/point_at.c b/ugbc/src/targets/c128z/point_at.c index 8eedb3ea5..2dba6c167 100755 --- a/ugbc/src/targets/c128z/point_at.c +++ b/ugbc/src/targets/c128z/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target c128z - */ void point_at( Environment * _environment, int _x, int _y ) { vdcz_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/c64/next_raster_at.c b/ugbc/src/targets/c64/next_raster_at.c index 17d70a7ad..f76698e5c 100755 --- a/ugbc/src/targets/c64/next_raster_at.c +++ b/ugbc/src/targets/c64/next_raster_at.c @@ -52,22 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@english -Wait for the next raster at a specific, new, raster position -and to execute the code at the given label. Meanwhile, the -execution of the main code will resume where it left off. - -@italian -Attendi il raster successivo in una nuova posizione raster specifica -ed esegui il codice in corrispondenza dell'etichetta data. Nel -frattempo, l'esecuzione del codice principale riprenderà da dove -era stata interrotta. - -@syntax NEXT RASTER AT # [integer] WITH [label] - -@example NEXT RASTER AT #$42 WITH myRasterRoutine - @target c64 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { @@ -95,10 +79,6 @@ void next_raster_at_with( Environment * _environment, int _position, char * _lab */ /* @keyword NEXT RASTER AT - -@syntax NEXT RASTER AT [expression] WITH [label] - -@example NEXT RASTER AT newRaterLine WITH myRasterRoutine */ void next_raster_at_with_var( Environment * _environment, char * _position, char * _label ) { diff --git a/ugbc/src/targets/c64/paper.c b/ugbc/src/targets/c64/paper.c index e809c0156..e806d036a 100755 --- a/ugbc/src/targets/c64/paper.c +++ b/ugbc/src/targets/c64/paper.c @@ -44,34 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@english -This command allow to select a background colour on which your text is -to be printed. The command is -followed by a colour index number between 0 and ''PAPER COLORS'', -depending on the graphics mode in use, in exactly the same way -as ''PEN''. The normal default colour index number is -''DEFAULT PAPER''. - -@italian -Questo comando permette di selezionare un colore di sfondo -su cui si trova il testo da stampare Il comando è seguito da -un numero compreso tra 0 e ''PAPER COLORS'', a seconda della -modalità grafica in uso, esattamente come ''PEN''. Il colore -predefinito è ''DEFAULT PAPER''. - -@syntax PAPER [expression] - -@example PAPER 4 -@example PAPER (esempio) - -@UsedInExample texts_options_01.bas -@UsedInExample texts_options_02.bas - -@target c64 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/c64/peek.c b/ugbc/src/targets/c64/peek.c index d47aa1e9b..9890d4646 100755 --- a/ugbc/src/targets/c64/peek.c +++ b/ugbc/src/targets/c64/peek.c @@ -58,11 +58,11 @@ Retrieve a byte from memory, and returns it. @italian Recupera un byte dalla memoria e restituiscilo. -@syntax = PEEK( [expression] ) +@syntax = PEEK(address) -@example memory = PEEK( location ) +@example memory = PEEK(49152) -@target c64 +@target all */ Variable * peek_var( Environment * _environment, char * _location ) { diff --git a/ugbc/src/targets/c64/play.c b/ugbc/src/targets/c64/play.c index 84550a0bc..475c19b1f 100755 --- a/ugbc/src/targets/c64/play.c +++ b/ugbc/src/targets/c64/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target c64 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target c64 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/c64/play_off.c b/ugbc/src/targets/c64/play_off.c index d9a92c919..8b4dfc338 100755 --- a/ugbc/src/targets/c64/play_off.c +++ b/ugbc/src/targets/c64/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target c64 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target c64 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/c64/plot.c b/ugbc/src/targets/c64/plot.c index 16878e65c..23a8bb0a6 100755 --- a/ugbc/src/targets/c64/plot.c +++ b/ugbc/src/targets/c64/plot.c @@ -50,30 +50,6 @@ */ /* @keyword PLOT - -@english -The ''PLOT'' instruction allows you to draw a point on the screen, at -the ''(x, y)'' coordinate and with any color. If the color is not -provided, the default color is the one set with the last ''INK'' / ''PEN'' command. - -It is possible to omit one or both coordinates, and ugBASIC will use the last one used, -which is stored in the ''XGR'' and ''YGR'' variables. - -@italian -L'istruzione ''PLOT'' consente di disegnare un punto sullo schermo, alla -coordinata ''(x,y)'' e con l'eventuale colore. Se il colore non viene fornito, -il colore di default è quello impostato con l'ultimo comando ''INK'' / ''PEN''. - -E' possibile omettere una o entrambe le coordinate, e ugBASIC utilizzerà l'ultima -usata, che viene stoccata nelle variabili ''XGR'' e ''YGR''. - -@syntax PLOT [x], [y] {, [color]} - -@example PLOT 42, 42 -@example PLOT 100, 100, RED - -@usedInExample contrib_sierpinski3.bas - @target c64 */ diff --git a/ugbc/src/targets/c64/point_at.c b/ugbc/src/targets/c64/point_at.c index 724a02c10..d23da2458 100755 --- a/ugbc/src/targets/c64/point_at.c +++ b/ugbc/src/targets/c64/point_at.c @@ -51,21 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@english -Draws a pixel on the screen in bitmap mode on given coordinates. - -@italian -Disegna un pixel sullo schermo in modalità bitmap su coordinate date. - -@syntax POINT AT (# [integer], # [integer]) - -@example POINT AT (#42,#42) - -@target c64 - */ void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); @@ -92,13 +77,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@syntax POINT AT ([expression],[expression]) - -@example POINT AT (x+1,y+1) - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { outline2("; POINT AT (%s,%s)", _x, _y); diff --git a/ugbc/src/targets/c64/text_get_paper.c b/ugbc/src/targets/c64/text_get_paper.c index 3a73b80d2..a7699e551 100755 --- a/ugbc/src/targets/c64/text_get_paper.c +++ b/ugbc/src/targets/c64/text_get_paper.c @@ -45,32 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - -@english -The ''PEN$'' function returns a special control sequence that changes -the paper colour inside a string. This means that, whenever the string is -printed on the screen, the pre-set paper colour is automatically assigned -to it. The format of the string returned by ''PAPER$'' is not specific -for the target. - -@italian -La funzione ''PAPER$'' restituisce una speciale sequenza di controllo -che cambia il colore dello sfondo all'interno di una stringa. -Ciò significa che, ogni volta che la stringa viene stampata -sullo schermo, le viene automaticamente assegnato il colore -dello sfondo preimpostato. Il formato della stringa restituita da -''PAPER$'' non è specifico per l'hardware - -@syntax = PAPER$([expression]) - -@example PRINT PAPER$(WHITE) - -@UsedInExample texts_options_02.bas - -@target all - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/coco/paper.c b/ugbc/src/targets/coco/paper.c index 76869d877..866b3a638 100755 --- a/ugbc/src/targets/coco/paper.c +++ b/ugbc/src/targets/coco/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target coco - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/coco/point_at.c b/ugbc/src/targets/coco/point_at.c index b6a28b81f..626da483a 100755 --- a/ugbc/src/targets/coco/point_at.c +++ b/ugbc/src/targets/coco/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target coco - */ void point_at( Environment * _environment, int _x, int _y ) { c6847_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { c6847_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/coco/text_get_paper.c b/ugbc/src/targets/coco/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/coco/text_get_paper.c +++ b/ugbc/src/targets/coco/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/coco3/next_raster_at.c b/ugbc/src/targets/coco3/next_raster_at.c index a7d6ba61f..9fad84667 100755 --- a/ugbc/src/targets/coco3/next_raster_at.c +++ b/ugbc/src/targets/coco3/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target coco3 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { diff --git a/ugbc/src/targets/coco3/paper.c b/ugbc/src/targets/coco3/paper.c index f19c32ad0..866b3a638 100755 --- a/ugbc/src/targets/coco3/paper.c +++ b/ugbc/src/targets/coco3/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target coco3 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/coco3/point.c b/ugbc/src/targets/coco3/point.c index 533eb76e2..ce71fc9b3 100755 --- a/ugbc/src/targets/coco3/point.c +++ b/ugbc/src/targets/coco3/point.c @@ -38,11 +38,6 @@ * CODE SECTION ****************************************************************************/ -/* -@keyword POINT - -@target coco3 - */ Variable * point( Environment * _environment, char * _x, char * _y ) { Variable * result = variable_temporary( _environment, VT_COLOR, "(point's result)"); diff --git a/ugbc/src/targets/coco3/point_at.c b/ugbc/src/targets/coco3/point_at.c index 90bc85f7b..49a99260b 100755 --- a/ugbc/src/targets/coco3/point_at.c +++ b/ugbc/src/targets/coco3/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target coco3 - */ void point_at( Environment * _environment, int _x, int _y ) { gime_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { gime_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/coco3/text_get_paper.c b/ugbc/src/targets/coco3/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/coco3/text_get_paper.c +++ b/ugbc/src/targets/coco3/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/coleco/paper.c b/ugbc/src/targets/coleco/paper.c index 3b2bfac32..a41926b9a 100755 --- a/ugbc/src/targets/coleco/paper.c +++ b/ugbc/src/targets/coleco/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target coleco - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/coleco/play.c b/ugbc/src/targets/coleco/play.c index 6ea9b4c30..9c92c509c 100755 --- a/ugbc/src/targets/coleco/play.c +++ b/ugbc/src/targets/coleco/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target coleco */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target coleco */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/coleco/play_off.c b/ugbc/src/targets/coleco/play_off.c index 8131094e6..730fa9735 100755 --- a/ugbc/src/targets/coleco/play_off.c +++ b/ugbc/src/targets/coleco/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target coleco */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target coleco */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/coleco/point_at.c b/ugbc/src/targets/coleco/point_at.c index afa9f5b42..60172e4ce 100755 --- a/ugbc/src/targets/coleco/point_at.c +++ b/ugbc/src/targets/coleco/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target coleco - */ void point_at( Environment * _environment, int _x, int _y ) { tms9918_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/common/__syntax.c b/ugbc/src/targets/common/__syntax.c index 909f7868f..53a068d32 100755 --- a/ugbc/src/targets/common/__syntax.c +++ b/ugbc/src/targets/common/__syntax.c @@ -1481,7 +1481,8 @@ Il programmatore potrebbe digitare in modo errato un nome di variabile in una o più posizioni, il che causerebbe risultati imprevisti durante l'esecuzione del programma. -@syntax OPTION EXPLICT {[ON|OFF]} +@syntax OPTION EXPLICT [ON] +@syntax OPTION EXPLICT OFF @example OPTION EXPLICIT ON @@ -1506,7 +1507,8 @@ Y è orientato verso l'alto (''UP'') oppure verso il basso (''DOWN''). Se non utilizzato, il sistema di riferimento per default viene posto in alto a sinistra con l'asse delle Y verso il basso. -@syntax ORIGIN [x], [y] {UP|DOWN} +@syntax ORIGIN x, y UP +@syntax ORIGIN x, y [DOWN] @example ORIGIN 100, 100 UP @@ -1535,7 +1537,7 @@ vicino. Di default, la risoluzione virtuale sarà impostata uguale alla risoluzi ''BITMAP ENABLE''. Quindi, dopo ''RESOLUTION'', le istruzioni grafiche utilizzeranno questa risoluzione virtuale. -@syntax RESOLUTION [x], [y] +@syntax RESOLUTION width, height @example RESOLUTION 100, 100 @@ -1669,22 +1671,6 @@ di 0 (nessun ritardo) a un valore massimo di 255 (massimo ritardo). @target c128z @target cpc @target msx1 - */ -/* -@keyword PEEK - -@english -Retrieve a byte from memory, and returns it. - -@italian -Recupera un byte dalla memoria e lo restituisce. - -@syntax = PEEK( [expression] ) - -@example memory = PEEK( location ) - -@target all - */ /* diff --git a/ugbc/src/targets/common/exit_proc.c b/ugbc/src/targets/common/exit_proc.c index 447c4a9c8..c3cc3fb41 100755 --- a/ugbc/src/targets/common/exit_proc.c +++ b/ugbc/src/targets/common/exit_proc.c @@ -60,6 +60,25 @@ Questa parola chiave fa uscire da una procedura. @target all */ + +/* +@keyword POP PROCEDURE + +@english +This keyword will exit from a procedure. + +@italian +Questa parola chiave fa uscire da una procedura. + +@syntax POP PROCEDURE + +@example POP PROCEDURE + +@usedInExample procedures_jumping_02.bas + +@target all + */ + /* @keyword EXIT PROC @@ -77,6 +96,25 @@ Questa parola chiave fa uscire da una procedura. @target all */ + +/* +@keyword EXIT PROCEDURE + +@english +This keyword will exit from a procedure. + +@italian +Questa parola chiave fa uscire da una procedura. + +@syntax EXIT PROCEDURE + +@example EXIT PROCEDURE + +@usedInExample procedures_jumping_02.bas + +@target all + */ + void exit_procedure( Environment * _environment ) { cpu_return( _environment ); diff --git a/ugbc/src/targets/common/on_gosub.c b/ugbc/src/targets/common/on_gosub.c index 3bf1e8f73..eacd457e9 100755 --- a/ugbc/src/targets/common/on_gosub.c +++ b/ugbc/src/targets/common/on_gosub.c @@ -69,7 +69,7 @@ Per funzionare correttamente, l'espressione deve avere un valore compreso tra 1 e il numero di destinazioni. Se l'espressione ha un valore di 0 o maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. -@syntax ON [expression] GOSUB [label1] {, [label2] {, [label3], ... }} +@syntax ON expression GOSUB label1[, label2 [, ... ] ] @example ON level GOSUB level1, level2, level3 @usedInExample control_by_expression_01.bas @@ -78,8 +78,6 @@ maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. */ void on_gosub( Environment * _environment, char * _expression ) { - - MAKE_LABEL Variable * expression = variable_retrieve( _environment, _expression ); diff --git a/ugbc/src/targets/common/on_goto.c b/ugbc/src/targets/common/on_goto.c index 5168a2582..90b73c762 100755 --- a/ugbc/src/targets/common/on_goto.c +++ b/ugbc/src/targets/common/on_goto.c @@ -69,7 +69,7 @@ Per funzionare correttamente, l'espressione deve avere un valore compreso tra 1 e il numero di destinazioni. Se l'espressione ha un valore di 0 o maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. -@syntax ON [expression] GOTO [label1] {, [label2] {, [label3], ... }} +@syntax ON expression GOTO label1[, label2[, ... ] ] @example ON level GOTO level1, level2, level3 @usedInExample control_by_expression_02.bas @@ -78,8 +78,6 @@ maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. */ void on_goto( Environment * _environment, char * _expression ) { - - MAKE_LABEL Variable * expression = variable_retrieve( _environment, _expression ); diff --git a/ugbc/src/targets/common/on_proc.c b/ugbc/src/targets/common/on_proc.c index b752b22c8..1c1a25d4f 100755 --- a/ugbc/src/targets/common/on_proc.c +++ b/ugbc/src/targets/common/on_proc.c @@ -69,7 +69,7 @@ Per funzionare correttamente, l'espressione deve avere un valore compreso tra 1 e il numero di destinazioni. Se l'espressione ha un valore di 0 o maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. -@syntax ON [expression] PROC [name1] {, [name2] {, [name3], ... }} +@syntax ON expression PROC name1[, name2 [, ... ] ] @example ON level PROC level1, level2, level3 @usedInExample procedures_jumping_01.bas @@ -78,8 +78,6 @@ maggiore della destinazione più alta possibile, non sarà eseguito alcun salto. */ void on_proc( Environment * _environment, char * _expression ) { - - MAKE_LABEL Variable * expression = variable_retrieve( _environment, _expression ); diff --git a/ugbc/src/targets/common/on_scroll_call.c b/ugbc/src/targets/common/on_scroll_call.c index 21c263234..d9033173f 100755 --- a/ugbc/src/targets/common/on_scroll_call.c +++ b/ugbc/src/targets/common/on_scroll_call.c @@ -48,10 +48,10 @@ * @param _expression Expression with the true / false condition */ /* -@keyword ON SCROLL..CALL +@keyword ON SCROLL...CALL @english -This command is used to force a procedure call +This command is used to force a procedure call when the screen is scrolled down by an entire row or column. @italian @@ -59,7 +59,10 @@ Questo comando viene utilizzato per forzare la chiamata a una procedura, laddove lo schermo sia fatto scorrere da una intera riga o colonna. -@syntax ON SCROLL {UP ROW|DOWN ROW|LEFT COLUMN|RIGHT COLUMN} CALL [label] +@syntax ON SCROLL UP ROW CALL label +@syntax ON SCROLL DOWN ROW CALL label +@syntax ON SCROLL LEFT COLUMN CALL label +@syntax ON SCROLL RIGHT COLUMN CALL label @example ON SCROLL UP ROW CALL scrolledAway diff --git a/ugbc/src/targets/common/on_scroll_gosub.c b/ugbc/src/targets/common/on_scroll_gosub.c index 353884391..a68e2240d 100755 --- a/ugbc/src/targets/common/on_scroll_gosub.c +++ b/ugbc/src/targets/common/on_scroll_gosub.c @@ -48,7 +48,7 @@ * @param _expression Expression with the true / false condition */ /* -@keyword ON SCROLL..GOSUB +@keyword ON SCROLL...GOSUB @english This command is used to force a unconditional jump with returning to a pre-defined position @@ -59,7 +59,10 @@ Questo comando viene utilizzato per forzare un salto incondizionato a una posizione predefinita (con ritorno), laddove lo schermo sia fatto scorrere da una intera riga o colonna. -@syntax ON SCROLL {UP ROW|DOWN ROW|LEFT COLUMN|RIGHT COLUMN} GOSUB [label] +@syntax ON SCROLL UP ROW GOSUB label +@syntax ON SCROLL DOWN ROW GOSUB label +@syntax ON SCROLL LEFT COLUMN GOSUB label +@syntax ON SCROLL RIGHT COLUMN GOSUB label @example ON SCROLL UP ROW GOSUB scrolledAway diff --git a/ugbc/src/targets/common/out.c b/ugbc/src/targets/common/out.c index c1a672c1d..f1ef2035b 100755 --- a/ugbc/src/targets/common/out.c +++ b/ugbc/src/targets/common/out.c @@ -56,7 +56,7 @@ allows it. If it wasn't allowed, the statement will do nothing. Questo comando permette di inviare un byte a una porta di I/O, sempre che ciò sia consentito dall'hardware sottostante. Se non fosse consentito, l'istruzione non farà nulla. -@syntax OUT [port], [value] +@syntax OUT port, value @example OUT &HBC00, 0 diff --git a/ugbc/src/targets/common/param.c b/ugbc/src/targets/common/param.c index 4aeb341e7..01ba8ac80 100755 --- a/ugbc/src/targets/common/param.c +++ b/ugbc/src/targets/common/param.c @@ -49,17 +49,17 @@ @keyword PARAM @english -The PARAM function takes the result of an expression in an ''END PROC'' statement +The PARAM function takes the result of an expression in an ''END PROC'' / ''END PROCEDURE'' statement (or from a ''RETURN'' statement), and returns it. If the variable you are interested in is a string variable, the ''$'' character can be used (but it is not mandatory). @italian -La funzione ''PARAM'' recupera il risultato di un'espressione in un'istruzione ''END PROC'' +La funzione ''PARAM'' recupera il risultato di un'espressione in un'istruzione ''END PROC'' / ''END PROCEDURE'' (o da un'istruzione ''RETURN'') e la restituisce. Se la variabile di interesse è una stringa, è possibile utilizzare il carattere ''$'' (ma non è obbligatorio). -@syntax = PARAM([name]) -@syntax = PARAM$([name]) +@syntax = PARAM(name) +@syntax = PARAM$(name) @example CALL factorial @example x = PARAM(factorial) diff --git a/ugbc/src/targets/common/poke.c b/ugbc/src/targets/common/poke.c index a650e977e..5be515fad 100755 --- a/ugbc/src/targets/common/poke.c +++ b/ugbc/src/targets/common/poke.c @@ -54,7 +54,7 @@ Store a byte to memory. @italian Memorizza un byte nella memoria. -@syntax POKE [address], [value] +@syntax POKE address, value @example POKE 32768, 2 diff --git a/ugbc/src/targets/cpc/paper.c b/ugbc/src/targets/cpc/paper.c index 596eaa990..c339fd728 100755 --- a/ugbc/src/targets/cpc/paper.c +++ b/ugbc/src/targets/cpc/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target cpc - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/cpc/play.c b/ugbc/src/targets/cpc/play.c index bdbdeac0f..7a14977b3 100755 --- a/ugbc/src/targets/cpc/play.c +++ b/ugbc/src/targets/cpc/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target cpc */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target cpc */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/cpc/play_off.c b/ugbc/src/targets/cpc/play_off.c index cb9549f0e..6c1ec2a06 100755 --- a/ugbc/src/targets/cpc/play_off.c +++ b/ugbc/src/targets/cpc/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target cpc */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target cpc */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/cpc/point_at.c b/ugbc/src/targets/cpc/point_at.c index db01877c0..ad4f156ea 100755 --- a/ugbc/src/targets/cpc/point_at.c +++ b/ugbc/src/targets/cpc/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target cpc - */ void point_at( Environment * _environment, int _x, int _y ) { cpc_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/d32/next_raster_at.c b/ugbc/src/targets/d32/next_raster_at.c index 06b5e8f8d..9fad84667 100755 --- a/ugbc/src/targets/d32/next_raster_at.c +++ b/ugbc/src/targets/d32/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target d32 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { diff --git a/ugbc/src/targets/d32/paper.c b/ugbc/src/targets/d32/paper.c index d0bbeb363..866b3a638 100755 --- a/ugbc/src/targets/d32/paper.c +++ b/ugbc/src/targets/d32/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target d32 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/d32/peek.c b/ugbc/src/targets/d32/peek.c index ad567d842..4dc37295f 100755 --- a/ugbc/src/targets/d32/peek.c +++ b/ugbc/src/targets/d32/peek.c @@ -49,12 +49,6 @@ * @param _location Expression with the location to read from. * @return Variable* Temporary variable with the content of the location (1 byte). */ -/* -@keyword PEEK - -@target d32 - - */ Variable * peek_var( Environment * _environment, char * _location ) { outline1("; PEEK(%s)", _location); diff --git a/ugbc/src/targets/d32/point_at.c b/ugbc/src/targets/d32/point_at.c index e1af86743..626da483a 100755 --- a/ugbc/src/targets/d32/point_at.c +++ b/ugbc/src/targets/d32/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target d32 - */ void point_at( Environment * _environment, int _x, int _y ) { c6847_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { c6847_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/d32/text_get_paper.c b/ugbc/src/targets/d32/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/d32/text_get_paper.c +++ b/ugbc/src/targets/d32/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/d64/next_raster_at.c b/ugbc/src/targets/d64/next_raster_at.c index 4d99f7d30..9fad84667 100755 --- a/ugbc/src/targets/d64/next_raster_at.c +++ b/ugbc/src/targets/d64/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target d64 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { diff --git a/ugbc/src/targets/d64/paper.c b/ugbc/src/targets/d64/paper.c index b02768fad..866b3a638 100755 --- a/ugbc/src/targets/d64/paper.c +++ b/ugbc/src/targets/d64/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target d64 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/d64/point_at.c b/ugbc/src/targets/d64/point_at.c index f694fe6b2..626da483a 100755 --- a/ugbc/src/targets/d64/point_at.c +++ b/ugbc/src/targets/d64/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target d64 - */ void point_at( Environment * _environment, int _x, int _y ) { c6847_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { c6847_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/d64/text_get_paper.c b/ugbc/src/targets/d64/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/d64/text_get_paper.c +++ b/ugbc/src/targets/d64/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/mo5/next_raster_at.c b/ugbc/src/targets/mo5/next_raster_at.c index 0cf838e1a..9fad84667 100755 --- a/ugbc/src/targets/mo5/next_raster_at.c +++ b/ugbc/src/targets/mo5/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target mo5 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { diff --git a/ugbc/src/targets/mo5/paper.c b/ugbc/src/targets/mo5/paper.c index c776f3089..866b3a638 100755 --- a/ugbc/src/targets/mo5/paper.c +++ b/ugbc/src/targets/mo5/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target mo5 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/mo5/peek.c b/ugbc/src/targets/mo5/peek.c index 8bc7b3d9c..4dc37295f 100755 --- a/ugbc/src/targets/mo5/peek.c +++ b/ugbc/src/targets/mo5/peek.c @@ -49,12 +49,6 @@ * @param _location Expression with the location to read from. * @return Variable* Temporary variable with the content of the location (1 byte). */ -/* -@keyword PEEK - -@target mo5 - - */ Variable * peek_var( Environment * _environment, char * _location ) { outline1("; PEEK(%s)", _location); diff --git a/ugbc/src/targets/mo5/point_at.c b/ugbc/src/targets/mo5/point_at.c index c76453967..7858c5731 100755 --- a/ugbc/src/targets/mo5/point_at.c +++ b/ugbc/src/targets/mo5/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target mo5 - */ void point_at( Environment * _environment, int _x, int _y ) { ef936x_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { ef936x_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/mo5/text_get_paper.c b/ugbc/src/targets/mo5/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/mo5/text_get_paper.c +++ b/ugbc/src/targets/mo5/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/msx1/paper.c b/ugbc/src/targets/msx1/paper.c index 813654caa..a41926b9a 100755 --- a/ugbc/src/targets/msx1/paper.c +++ b/ugbc/src/targets/msx1/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target msx1 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/msx1/play.c b/ugbc/src/targets/msx1/play.c index e9ee82bd7..0e3c6d541 100755 --- a/ugbc/src/targets/msx1/play.c +++ b/ugbc/src/targets/msx1/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target msx1 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target msx1 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/msx1/play_off.c b/ugbc/src/targets/msx1/play_off.c index ca542417a..b0a0dae3d 100755 --- a/ugbc/src/targets/msx1/play_off.c +++ b/ugbc/src/targets/msx1/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target msx1 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target msx1 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/msx1/point_at.c b/ugbc/src/targets/msx1/point_at.c index e0391296b..60172e4ce 100755 --- a/ugbc/src/targets/msx1/point_at.c +++ b/ugbc/src/targets/msx1/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target msx1 - */ void point_at( Environment * _environment, int _x, int _y ) { tms9918_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/pc128op/next_raster_at.c b/ugbc/src/targets/pc128op/next_raster_at.c index 44da52083..9fad84667 100755 --- a/ugbc/src/targets/pc128op/next_raster_at.c +++ b/ugbc/src/targets/pc128op/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target pc128op */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { diff --git a/ugbc/src/targets/pc128op/paper.c b/ugbc/src/targets/pc128op/paper.c index f8edc8662..866b3a638 100755 --- a/ugbc/src/targets/pc128op/paper.c +++ b/ugbc/src/targets/pc128op/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target pc128op - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve_or_define( _environment, "PAPER", VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/pc128op/point_at.c b/ugbc/src/targets/pc128op/point_at.c index 950c4d752..7858c5731 100755 --- a/ugbc/src/targets/pc128op/point_at.c +++ b/ugbc/src/targets/pc128op/point_at.c @@ -51,11 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target pc128op - */ void point_at( Environment * _environment, int _x, int _y ) { ef936x_point_at_int( _environment, _x, _y ); @@ -80,9 +75,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { ef936x_point_at_vars( _environment, _x, _y ); diff --git a/ugbc/src/targets/pc128op/text_get_paper.c b/ugbc/src/targets/pc128op/text_get_paper.c index 0ac1d1d5a..04e2619c1 100755 --- a/ugbc/src/targets/pc128op/text_get_paper.c +++ b/ugbc/src/targets/pc128op/text_get_paper.c @@ -45,9 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/plus4/next_raster_at.c b/ugbc/src/targets/plus4/next_raster_at.c index d43694223..33cb28948 100755 --- a/ugbc/src/targets/plus4/next_raster_at.c +++ b/ugbc/src/targets/plus4/next_raster_at.c @@ -52,8 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@target plus4 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { @@ -80,8 +78,6 @@ void next_raster_at_with( Environment * _environment, int _position, char * _lab */ /* @keyword NEXT RASTER AT - -@target plus4 */ void next_raster_at_with_var( Environment * _environment, char * _position, char * _label ) { diff --git a/ugbc/src/targets/plus4/paper.c b/ugbc/src/targets/plus4/paper.c index de8109435..5caacdf5d 100755 --- a/ugbc/src/targets/plus4/paper.c +++ b/ugbc/src/targets/plus4/paper.c @@ -44,11 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target plus4 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/plus4/peek.c b/ugbc/src/targets/plus4/peek.c index 0ab3adfef..089657204 100755 --- a/ugbc/src/targets/plus4/peek.c +++ b/ugbc/src/targets/plus4/peek.c @@ -49,12 +49,6 @@ * @param _location Expression with the location to read from. * @return Variable* Temporary variable with the content of the location (1 byte). */ -/* -@keyword PEEK - -@target plus4 - - */ Variable * peek_var( Environment * _environment, char * _location ) { outline1("; PEEK(%s)", _location); diff --git a/ugbc/src/targets/plus4/play.c b/ugbc/src/targets/plus4/play.c index 81db4daa0..be396bab9 100755 --- a/ugbc/src/targets/plus4/play.c +++ b/ugbc/src/targets/plus4/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target plus4 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target plus4 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/plus4/play_off.c b/ugbc/src/targets/plus4/play_off.c index 5d58bc887..d1452f1a0 100755 --- a/ugbc/src/targets/plus4/play_off.c +++ b/ugbc/src/targets/plus4/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target plus4 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target plus4 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/plus4/point_at.c b/ugbc/src/targets/plus4/point_at.c index e9bd97530..e0d299e4e 100755 --- a/ugbc/src/targets/plus4/point_at.c +++ b/ugbc/src/targets/plus4/point_at.c @@ -51,21 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@english -Draws a pixel on the screen in bitmap mode on given coordinates. - -@italian -Disegna un pixel sullo schermo in modalità bitmap su coordinate date. - -@syntax POINT AT (# [integer], # [integer]) - -@example POINT AT (#42,#42) - -@target c64 - */ void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); @@ -92,13 +77,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@syntax POINT AT ([expression],[expression]) - -@example POINT AT (x+1,y+1) - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { outline2("; POINT AT (%s,%s)", _x, _y); diff --git a/ugbc/src/targets/sc3000/paper.c b/ugbc/src/targets/sc3000/paper.c index 550ac3590..a41926b9a 100755 --- a/ugbc/src/targets/sc3000/paper.c +++ b/ugbc/src/targets/sc3000/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target sc3000 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/sc3000/play.c b/ugbc/src/targets/sc3000/play.c index 2fd03bc34..dc709563d 100755 --- a/ugbc/src/targets/sc3000/play.c +++ b/ugbc/src/targets/sc3000/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target sc3000 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target sc3000 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/sc3000/play_off.c b/ugbc/src/targets/sc3000/play_off.c index 798427984..ef9779e32 100755 --- a/ugbc/src/targets/sc3000/play_off.c +++ b/ugbc/src/targets/sc3000/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target sc3000 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target sc3000 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/sc3000/point_at.c b/ugbc/src/targets/sc3000/point_at.c index 32e0a1bda..60172e4ce 100755 --- a/ugbc/src/targets/sc3000/point_at.c +++ b/ugbc/src/targets/sc3000/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target sc3000 - */ void point_at( Environment * _environment, int _x, int _y ) { tms9918_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/sg1000/paper.c b/ugbc/src/targets/sg1000/paper.c index 6eaeba5a1..a41926b9a 100755 --- a/ugbc/src/targets/sg1000/paper.c +++ b/ugbc/src/targets/sg1000/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target sg1000 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/sg1000/play.c b/ugbc/src/targets/sg1000/play.c index 1450cbf7b..7dc8e2d3e 100755 --- a/ugbc/src/targets/sg1000/play.c +++ b/ugbc/src/targets/sg1000/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target sg1000 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target sg1000 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/sg1000/play_off.c b/ugbc/src/targets/sg1000/play_off.c index 6ae048ef8..dad34e460 100755 --- a/ugbc/src/targets/sg1000/play_off.c +++ b/ugbc/src/targets/sg1000/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target sg1000 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target sg1000 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/sg1000/point_at.c b/ugbc/src/targets/sg1000/point_at.c index 4cb7c5aa5..60172e4ce 100755 --- a/ugbc/src/targets/sg1000/point_at.c +++ b/ugbc/src/targets/sg1000/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target sg1000 - */ void point_at( Environment * _environment, int _x, int _y ) { tms9918_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/vg5000/paper.c b/ugbc/src/targets/vg5000/paper.c index cfedac061..db469fa7f 100755 --- a/ugbc/src/targets/vg5000/paper.c +++ b/ugbc/src/targets/vg5000/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target vg5000 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/vg5000/point_at.c b/ugbc/src/targets/vg5000/point_at.c index ef76b87c8..67b9a10e5 100755 --- a/ugbc/src/targets/vg5000/point_at.c +++ b/ugbc/src/targets/vg5000/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target vg5000 - */ void point_at( Environment * _environment, int _x, int _y ) { ef9345_point_at_int( _environment, _x, _y ); diff --git a/ugbc/src/targets/vic20/next_raster_at.c b/ugbc/src/targets/vic20/next_raster_at.c index e96e9cf61..8b4698153 100755 --- a/ugbc/src/targets/vic20/next_raster_at.c +++ b/ugbc/src/targets/vic20/next_raster_at.c @@ -52,23 +52,6 @@ */ /* @keyword NEXT RASTER AT - -@english -Wait for the next raster at a specific, new, raster position -and to execute the code at the given label. Meanwhile, the -execution of the main code will resume where it left off. - -@italian -Attendi il raster successivo in una nuova posizione raster specifica -ed esegui il codice in corrispondenza dell'etichetta data. Nel -frattempo, l'esecuzione del codice principale riprenderà da dove -era stata interrotta. - -@syntax NEXT RASTER AT # [integer] WITH [label] - -@example NEXT RASTER AT #$42 WITH myRasterRoutine - -@target vic20 */ void next_raster_at_with( Environment * _environment, int _position, char * _label ) { @@ -95,10 +78,6 @@ void next_raster_at_with( Environment * _environment, int _position, char * _lab */ /* @keyword NEXT RASTER AT - -@syntax NEXT RASTER AT [expression] WITH [label] - -@example NEXT RASTER AT newRaterLine WITH myRasterRoutine */ void next_raster_at_with_var( Environment * _environment, char * _position, char * _label ) { diff --git a/ugbc/src/targets/vic20/paper.c b/ugbc/src/targets/vic20/paper.c index f9114233e..675cd5c78 100755 --- a/ugbc/src/targets/vic20/paper.c +++ b/ugbc/src/targets/vic20/paper.c @@ -44,34 +44,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@english -This command allow to select a background colour on which your text is -to be printed. The command is -followed by a colour index number between 0 and ''PAPER COLORS'', -depending on the graphics mode in use, in exactly the same way -as ''PEN''. The normal default colour index number is -''DEFAULT PAPER''. - -@italian -Questo comando permette di selezionare un colore di sfondo -su cui si trova il testo da stampare Il comando è seguito da -un numero compreso tra 0 e ''PAPER COLORS'', a seconda della -modalità grafica in uso, esattamente come ''PEN''. Il colore -predefinito è ''DEFAULT PAPER''. - -@syntax PAPER [expression] - -@example PAPER 4 -@example PAPER (esempio) - -@UsedInExample texts_options_01.bas -@UsedInExample texts_options_02.bas - -@target vic20 - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/vic20/play.c b/ugbc/src/targets/vic20/play.c index 0a83f8526..9f31adbbd 100755 --- a/ugbc/src/targets/vic20/play.c +++ b/ugbc/src/targets/vic20/play.c @@ -51,29 +51,6 @@ */ /* @keyword PLAY - -@english -This command allows you to play a certain note, for a certain time and on certain -channels. The command has a number of variations. First, you can omit the channel. -In this case, the sound will be played on all channels (or on those enabled by the -''VOICES''/''CHANNELS'' command). Then you can omit the duration, in which case the sound will -continue to play while the next instruction is executed. Duration is expressed -in milliseconds. - -@italian -Questo comando permette di suonare una certa nota, per un certo tempo e su certi -canali. Il comando ha una serie di varianti. In primo luogo, è possibile omettere il -canale. In tal caso, il suono sarà suonato su tutti i canali (oppure su quelli abilitati -dal comando ''VOICES''/''CHANNELS''). Poi è possibile omettere la durata, e in tal caso il suono -continuerà ad essere suonato mentre viene eseguita l'istruzione successiva. La durata è -espressa in millisecondi. - -@syntax PLAY #[note] {, #[duration] {ON #[channels]}} - -@example PLAY #32 -@example PLAY #24, #250 -@example PLAY #60, #1250 ON #%001 - @target c64 */ void play( Environment * _environment, int _note, int _delay, int _channels ) { @@ -99,13 +76,6 @@ void play( Environment * _environment, int _note, int _delay, int _channels ) { */ /* @keyword PLAY - -@syntax PLAY [note] {, [duration] {ON [channels]}} - -@example PLAY laDiesis -@example PLAY solMaggiore, breve -@example PLAY solMaggiore, lunga ON primaVoce - @target c64 */ void play_vars( Environment * _environment, char * _note, char * _delay, char * _channels ) { diff --git a/ugbc/src/targets/vic20/play_off.c b/ugbc/src/targets/vic20/play_off.c index ea77ee290..dd7e148f4 100755 --- a/ugbc/src/targets/vic20/play_off.c +++ b/ugbc/src/targets/vic20/play_off.c @@ -48,18 +48,6 @@ */ /* @keyword PLAY OFF - -@english -This command allows you to stop the play on all channels or specific channels. - -@italian -Questo comando permette di interrompere il suono su tutti i canali o su canali specifici. - -@syntax PLAY OFF {ON #channels} - -@example PLAY OFF -@example PLAY OFF ON #%001 - @target c64 */ void play_off( Environment * _environment, int _channels ) { @@ -78,12 +66,6 @@ void play_off( Environment * _environment, int _channels ) { */ /* @keyword PLAY OFF - -@syntax PLAY OFF {ON [channels]} - -@example PLAY OFF -@example PLAY OFF ON primaVoce - @target c64 */ void play_off_var( Environment * _environment, char * _channels ) { diff --git a/ugbc/src/targets/vic20/point_at.c b/ugbc/src/targets/vic20/point_at.c index 5159907e0..d7b53d8cf 100755 --- a/ugbc/src/targets/vic20/point_at.c +++ b/ugbc/src/targets/vic20/point_at.c @@ -51,21 +51,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@english -Draws a pixel on the screen in bitmap mode on given coordinates. - -@italian -Disegna un pixel sullo schermo in modalità bitmap su coordinate date. - -@syntax POINT AT (# [integer], # [integer]) - -@example POINT AT (#42,#42) - -@target vic20 - */ void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); @@ -92,13 +77,6 @@ void point_at( Environment * _environment, int _x, int _y ) { * @param _y Expression with the ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@syntax POINT AT ([expression],[expression]) - -@example POINT AT (x+1,y+1) - */ void point_at_vars( Environment * _environment, char * _x, char * _y ) { outline2("; POINT AT (%s,%s)", _x, _y); diff --git a/ugbc/src/targets/vic20/text_get_paper.c b/ugbc/src/targets/vic20/text_get_paper.c index 3a73b80d2..a7699e551 100755 --- a/ugbc/src/targets/vic20/text_get_paper.c +++ b/ugbc/src/targets/vic20/text_get_paper.c @@ -45,32 +45,6 @@ * @param _color * @return Variable* */ -/* -@keyword PAPER$ - -@english -The ''PEN$'' function returns a special control sequence that changes -the paper colour inside a string. This means that, whenever the string is -printed on the screen, the pre-set paper colour is automatically assigned -to it. The format of the string returned by ''PAPER$'' is not specific -for the target. - -@italian -La funzione ''PAPER$'' restituisce una speciale sequenza di controllo -che cambia il colore dello sfondo all'interno di una stringa. -Ciò significa che, ogni volta che la stringa viene stampata -sullo schermo, le viene automaticamente assegnato il colore -dello sfondo preimpostato. Il formato della stringa restituita da -''PAPER$'' non è specifico per l'hardware - -@syntax = PAPER$([expression]) - -@example PRINT PAPER$(WHITE) - -@UsedInExample texts_options_02.bas - -@target all - */ Variable * get_paper( Environment * _environment, char * _color ) { Variable * color = variable_retrieve_or_define( _environment, _color, VT_COLOR, COLOR_BLACK ); diff --git a/ugbc/src/targets/zx/paper.c b/ugbc/src/targets/zx/paper.c index 413d69903..1ebb4efd3 100755 --- a/ugbc/src/targets/zx/paper.c +++ b/ugbc/src/targets/zx/paper.c @@ -43,11 +43,6 @@ * @param _environment Current calling environment * @param _color Color to use for the paper */ -/* -@keyword PAPER - -@target zx - */ void paper( Environment * _environment, char * _color ) { Variable * paper = variable_retrieve( _environment, "PAPER" ); diff --git a/ugbc/src/targets/zx/point_at.c b/ugbc/src/targets/zx/point_at.c index d64c78f19..fa6297fe7 100755 --- a/ugbc/src/targets/zx/point_at.c +++ b/ugbc/src/targets/zx/point_at.c @@ -54,11 +54,6 @@ * @param _y Ordinate of the point * @throw EXIT_FAILURE "CRITICAL: POINT AT (xxx,xxx) needs BITMAP ENABLE" */ -/* -@keyword POINT AT - -@target zx - */ void point_at( Environment * _environment, int _x, int _y ) { outline2("; POINT AT (%d,%d)", _x, _y); diff --git a/ugbc/src/ugbc.y b/ugbc/src/ugbc.y index 90c886f9b..edf7ffb91 100755 --- a/ugbc/src/ugbc.y +++ b/ugbc/src/ugbc.y @@ -7224,6 +7224,10 @@ statement2: end_procedure( _environment, $4 ); ((struct _Environment *)_environment)->emptyProcedure = 0; } + | END PROCEDURE OSP expr CSP { + end_procedure( _environment, $4 ); + ((struct _Environment *)_environment)->emptyProcedure = 0; + } | FOR Identifier OP_ASSIGN expr TO expr STEP expr { begin_for_step( _environment, $2, $4, $6, $8 ); }