Lowercase BaCon
Descripción del contenido de la página
Programa en BaCon para poder escribir código en BaCon en minúsculas.
BaCon es un convertidor de BASIC a C que compila el código C resultante y crea un fichero ejecutable. Es una herramienta muy buena, pero en mi opinión su mayor pega es que, como algunas otras versiones de BASIC, obliga a escribir las palabras clave en mayúsculas. Esto me resulta muy incómodo para escribir código, especialmente con un editor modal como Vim.
Guiado por un pequeño programa de ejemplo que viene con el paquete, logré averiguar cómo usar el preprocesador de C para traducir las palabras clave de minúsculas a mayúsculas. Este programa es el resultado. Para usarlo, basta incluirlo en nuestro programa con el comando #include de C (no con el include de BaCon) y compilarlo con la opción «-j» para activar el preprocesador de C, como en este ejemplo: bacon -j mi_programa.bac.
Código fuente
' lowercase_bacon.bac
' Lowercase BaCon
' This file provides the C preprocessor macros required to use
' lowercase keywords in BaCon (http://www.basic-converter.org).
' Written by Marcos Cruz (programandala.net)
' ##############################################################
' Usage:
' 1) Include this program into your program:
' #include "whatever/path/to/lowercase_bacon.bac"
' 2) Compile your program with the -j option:
' bacon -j your_program.bac
' ##############################################################
' History:
' 2012-09-03 First version, based on an a little example program
' found in the BaCon package. But how to use it?
' 2012-09-06 Found out how to use it: "#include"! Added some
' missing keywords: end, by, size, then, writing, reading,
' appending, readwrite, directory, network, server, memory, as,
' open, until, string, floating, number. number, #define,
' #include, bg, fg, black, red, green, yellow, magenta, blue,
' cyan, white, normal, intense, inverse, reset, compare, socket,
' memstream, memtype, collapse, international, startpoint, else.
' 2012-09-29 Added missing keywords: endsub, endfunction, endif,
' default, endselect, cursor, off, getx, gety.
' 2012-09-30 Removed wrong keyword: exit.
' 2012-10-01 Added missing keywords: elif, rem, do.
' 2012-10-03 Added missing keywords: whence, start, current,
' offset, from, file.
' 2012-11-03 Just discovered a similar file already existed at <http://www.basic-converter.org/lowercase.bac>. I compared both files and copied the missing keywords: assoc, base, broadcast, chunk, def, down, endwith, fn, format, int, is, isnot, memtell, m
ulticast, setenviron, udp, usec. Added also: tcp. Removed: long (one of the possible arguments of memtype).
' ##############################################################
#define abs ABS
#define address ADDRESS
#define alarm ALARM
#define alias ALIAS
#define and AND
#define appending APPENDING
#define argument$ ARGUMENT$
#define array ARRAY
#define as AS
#define asc ASC
#define assoc ASSOC
#define atn ATN
#define base BASE
#define bg BG
#define black BLACK
#define blue BLUE
#define break BREAK
#define broadcast BROADCAST
#define by BY
#define call CALL
#define case CASE
#define catch CATCH
#define changedir CHANGEDIR
#define chop$ CHOP$
#define chr$ CHR$
#define chunk CHUNK
#define clear CLEAR
#define close CLOSE
#define collapse COLLAPSE
#define color COLOR
#define columns COLUMNS
#define compare COMPARE
#define concat$ CONCAT$
#define const CONST
#define continue CONTINUE
#define copy COPY
#define cos COS
#define curdir$ CURDIR$
#define current CURRENT
#define cursor CURSOR
#define cyan CYAN
#define data DATA
#define day DAY
#define dec DEC
#define declare DECLARE
#define decr DECR
#define def DEF
#define default DEFAULT
#define delete DELETE
#define directory DIRECTORY
#define do DO
#define down DOWN
#define elif ELIF
#define else ELSE
#define end END
#define endfile ENDFILE
#define endfunction ENDFUNCTION
#define endif ENDIF
#define endselect ENDSELECT
#define endsub ENDSUB
#define endusec ENDUSEC
#define endwith ENDWITH
#define eq EQ
#define equal EQUAL
#define err$ ERR$
#define error ERROR
#define even EVEN
#define exec$ EXEC$
#define exp EXP
#define false FALSE
#define fg FG
#define file FILE
#define fileexists FILEEXISTS
#define filelen FILELEN
#define filetime FILETIME
#define filetype FILETYPE
#define fill$ FILL$
#define floating FLOATING
#define floor FLOOR
#define fn FN
#define for FOR
#define format FORMAT
#define fp FP
#define free FREE
#define from FROM
#define function FUNCTION
#define getbyte GETBYTE
#define getenviron$ GETENVIRON$
#define getfile GETFILE
#define getkey GETKEY
#define getline GETLINE
#define getx GETX
#define gety GETY
#define global GLOBAL
#define gosub GOSUB
#define goto GOTO
#define gotoxy GOTOXY
#define green GREEN
#define hex$ HEX$
#define host$ HOST$
#define hour HOUR
#define if IF
#define import IMPORT
#define include INCLUDE
#define incr INCR
#define input INPUT
#define instr INSTR
#define instrrev INSTRREV
#define intense INTENSE
#define international INTERNATIONAL
#define intl$ INTL$
#define inverse INVERSE
#define is IS
#define isfalse ISFALSE
#define isnot ISNOT
#define istrue ISTRUE
#define label LABEL
#define lcase$ LCASE$
#define left$ LEFT$
#define len LEN
#define let LET
#define local LOCAL
#define log LOG
#define lookup LOOKUP
#define magenta MAGENTA
#define makedir MAKEDIR
#define maxrandom MAXRANDOM
#define memory MEMORY
#define memrewind MEMREWIND
#define memstream MEMSTREAM
#define memtell MEMTELL
#define memtype MEMTYPE
#define mid$ MID$
#define minute MINUTE
#define mod MOD
#define month MONTH
#define month$ MONTH$
#define multicast MULTICAST
#define ne NE
#define network NETWORK
#define next NEXT
#define nl$ NL$
#define nntl$ NNTL$
#define normal NORMAL
#define not NOT
#define now NOW
#define number NUMBER
#define odd ODD
#define off OFF
#define offset OFFSET
#define on ON
#define open OPEN
#define option OPTION
#define or OR
#define os$ OS$
#define peek PEEK
#define pi PI
#define poke POKE
#define pow POW
#define print PRINT
#define proto PROTO
#define pull PULL
#define push PUSH
#define putbyte PUTBYTE
#define putline PUTLINE
#define random RANDOM
#define read READ
#define reading READING
#define readln READLN
#define readwrite READWRITE
#define receive RECEIVE
#define record RECORD
#define red RED
#define redim REDIM
#define regex REGEX
#define relate RELATE
#define rem REM
#define rename RENAME
#define repeat REPEAT
#define replace$ REPLACE$
#define reset RESET
#define resize RESIZE
#define restore RESTORE
#define resume RESUME
#define return RETURN
#define retval RETVAL
#define reverse$ REVERSE$
#define rewind REWIND
#define right$ RIGHT$
#define rnd RND
#define round ROUND
#define rows ROWS
#define search SEARCH
#define second SECOND
#define seed SEED
#define seek SEEK
#define select SELECT
#define send SEND
#define server SERVER
#define setenviron SETENVIRON
#define sgn SGN
#define sin SIN
#define size SIZE
#define sizeof SIZEOF
#define sleep SLEEP
#define socket SOCKET
#define sort SORT
#define spc$ SPC$
#define split SPLIT
#define sqr SQR
#define start START
#define startpoint STARTPOINT
#define step STEP
#define stop STOP
#define str$ STR$
#define string STRING
#define sub SUB
#define system SYSTEM
#define tab$ TAB$
#define tan TAN
#define tcp TCP
#define tell TELL
#define textdomain TEXTDOMAIN
#define then THEN
#define timevalue TIMEVALUE
#define to TO
#define trace TRACE
#define trap TRAP
#define true TRUE
#define type TYPE
#define ucase$ UCASE$
#define udp UDP
#define until UNTIL
#define usec USEC
#define val VAL
#define var VAR
#define version$ VERSION$
#define wait WAIT
#define week WEEK
#define weekday$ WEEKDAY$
#define wend WEND
#define whence WHENCE
#define while WHILE
#define white WHITE
#define with WITH
#define writeln WRITELN
#define writing WRITING
#define year YEAR
#define yellow YELLOW