Don

Here is a definition for UniVerse that I adapted from a syntax file for
DataStage that I downloaded from the site. It might be a good starting point
for a UniData definition.

You might also want to download a copy of mvDeveloper from my website. It's
free, UniObjects driven and has highlighting and lots of other features for
UniVerse and UniData.

Brian 

------ Begin definition here ------
; TextPad keyword syntax file for Universe Basic
;
; Adapted from a syntax file for DataStage originally
; contributed by BENOIT BOUCHARD ([EMAIL PROTECTED])
; Version 1.0
; Suggested color assignments:
;   Keywords 1 = Blue   --> FUNCTIONS
;   Keywords 2 = Green  --> PROGRAM FLOW
;   Keywords 3 = Rose   --> @VARIABLES
;   Keywords 4 = Purple --> COMPILER DIRECTIVES
;   Keywords 5 = Red    --> OPERATORS
;   Keywords 6 = brown  --> BASIC SUBROUTINES


C=1

[Syntax]
Namespace1 = 6
IgnoreCase = Yes
InitKeyWordChars = %[a-zA-Z_0-9]*:
KeyWordChars = %[a-zA-Z_0-9]*:
BracketChars = ()0
PreprocStart =
SyntaxStart =
SyntaxEnd =
CommentStart =
CommentEnd =
CommentStartAlt =
CommentEndAlt =
SingleComment =*
SingleCommentCol =
SingleCommentAlt =!
SingleCommentColAlt =
StringStart = "
StringEnd = "
StringAlt ="
StringEsc =\
CharStart ='
CharEnd ='
CharEsc =\

;-------------------
;FUNCTIONS
;-------------------
[Keywords 1]
ABS
ABSS
ACOS
ADDS
ALPHA
ANDS
ASCII
ASIN
ATAN
AUTHORIZATION
AUXMAP
BITAND
BITNOT
BITOR
BITRESET
BITSET
BITTEST
BITXOR
BREAK
BSCAN
BYTE
BYTELEN
BYTETYPE
BYTEVAL
CATS
CHANGE
CHAR
CHARS
CHECKSUM
CLEARDATA
CLEARFILE
CLEARPROMPTS
CLEARSELECT
CLOSE
CLOSESEQ
COMMIT
COMPARE
CONVERT
COS
COSH
COUNT
COUNTS
CREATE
CRT
DATA
DATE
DCOUNT
DEBUG
DEL
DELETE
DELETELIST
DELETEU
DISPLAY
DIV
DIVS
DOWNCASE
DQUOTE
DTX
EBCDIC
ECHO
EOF
EQS
EREPLACE
ERRMSG
EXCHANGE
EXP E
XTRACT
FADD
FDIV
FFIX
FFLT
FIELD
FIELDS
FIELDSTORE
FILEINFO
FILELOCK
FILEUNLOCK
FIND
FINDSTR
FIX
FLUSH
FMT
FMTDP
FMTS
FMTSDP
FMUL
FOLD
FOLDDP
FOOTING
FSUB
GES
GET
GETLIST
GETLOCALE
GETREM
GETX
GROUP
GROUPSTORE
GTS
HEADING
HUSH
ICONV
ICONVS
IFS
ILPROMPT
INDEX
INDEXS
INDICES
INMAT
INPUT
INPUTCLEAR
INPUTDISP
INPUTDP
INPUTERR
INPUTNULL
INPUTTRAP
INS
INSERT
INT
ISNULL
ISNULLS
ISOLATION
ITYPE
KEYEDIT
KEYEXIT
KEYIN
KEYTRAP
LEFT
LEN
LENDP
LENS
LENSDP
LES
LEVEL
LN
LOCALEINFO
LOCATE
LOCK
LOWER
LTS
MATBUILD
MATCHFIELD
MATPARSE
MATREAD
MATREADL
MATREADU
MATWRITE
MATWRITEU
MAXIMUM
MINIMUM
MOD
MODS
MULS
NAP
NEG
NEGS
NES
NOBUF
NOTS
NUM
NUMS
OCONV
OCONVS
OPEN
OPENDEV
OPENPATH
OPENSEQ
ORS
PAGE
PRECISION
PRINT
PRINTER
PRINTERR
PROCREAD
PROCWRITE
PROMPT
PWR
QUOTE
RAISE
RANDOMIZE
READ
READBLK
READL
READLIST
READNEXT
READSEQ
READT
READU
READV
READVL
READVU
REAL
RECORDLOCKED
RECORDLOCKL
RECORDLOCKU
RELEASE
REMOVE
REPLACE
RESET
REUSE
REVREMOVE
REWIND
RIGHT
RND
ROLLBACK
RPC.CALL
RPC.CONNECT
RPC.DISCONNECT
SADD
SCMP
SDIV
SEEK
SELECT
SELECTE
SELECTINDEX
SELECTINFO
SEND
SENTENCE
SEQ
SEQS
SET
SETLOCALE
SETREM
SIN
SINH
SLEEP
SMUL
SOUNDEX
SPACE
SPACES
SPLICE
SQRT
SQUOTE
SSELECT
SSUB
START
STATUS
STR
STRS
SUBS
SUBSTRINGS
SUM
SUMMATION
SYSTEM
TABSTOP
TAN
TANH
TERMINFO
TIME
TIMEDATE
TIMEOUT
TPARM
TPRINT
TRANS
TRANSACTION
TRIM
TRIMB
TRIMBS
TRIMF
TRIMFS
TRIMS
TTYCTL
TTYGET
TTYSET
UNICHAR
UNICHARS
UNISEQ
UNISEQS
UNLOCK
UPCASE
UPRINT
WEOF
WEOFSEQ
WRITE
WRITEBLK
WRITELIST
WRITESEQ
WRITESEQF
WRITET
WRITEU
WRITEV
WRITEVU
XLATE
XTD

;------------
;PROGRAM FLOW
;------------
[Keywords 2]
ABORT
BEGIN
CALL
CASE
CHAIN
CONTINUE
ELSE
END
ENTER
ERROR
EXECUTE
EXIT
FOR
GOSUB
GOTO
IF
LOOP
NEXT
ON
PERFORM
REPEAT
RETURN
STOP
SUBR
THEN
UNTIL
WHILE

;--------------------
;@VARIABLES
;--------------------
[Keywords 3]
@ABORT.CODE
@ACCOUNT
@AM
@ANS
@AUTHORIZATION
@COMMAND
@COMMAND.STACK
@CONV
@CRTHIGH
@CRTWIDE
@DATA.PENDING
@DATE
@DAY
@DICT
@FALSE
@FILE.NAME
@FILENAME
@FM
@FORMAT
@HDBC
@HEADER
@HENV
@HSTMT
@ID
@IM
@ISOLATION
@LEVEL
@LOGNAME
@LPTRHIGH
@LPTRWIDE
@MONTH
@MV
@NB
@ND
@NEW
@NI
@NS
@NULL
@NULL.STR
@NV
@OLD
@OPTION
@PARASENTENCE
@PATH
@RECCOUNT
@RECORD
@RECUR0
@RECUR1
@RECUR2
@RECUR3
@RECUR4
@SCHEMA
@SELECTED
@SENTENCE
@SM
@SQL.CODE
@SQL.DATE
@SQL.ERROR
@SQL.STATE
@SQL.TIME
@SQL.WARNING
@SQLPROC.NAME
@SQLPROC.TX.LEVEL
@STDFIL
@SVM
@SYS.BELL
@SYSTEM.RETURN.CODE
@SYSTEM.SET
@SYSTEM.RETURN.CODE.
@TERM.TYPE
@TIME
@TM
@TRANSACTION
@TRANSACTION.ID
@TRANSACTION.LEVEL
@TRUE
@TTY
@USER0
@USER1
@USER2
@USER3
@USER4
@USERNO
@USER.NO
@USER.RETURN.CODE
@VM
@WHO
@YEAR
FALSE
TRUE

;-------------------
;COMPILER DIRECTIVES
;-------------------
[Keywords 4]
#INCLUDE
$BIND
$CHAIN
$COPYRIGHT
$DEFINE
$EJECT
$ENDIF
$IFDEF
$IFNDEF
$INCLUDE
$INSERT
$MAP
$OPTIONS
$PAGE
$UNDEFINE
ASSIGNED
CLEAR
COMMON
DEFFUN
DIM
DIMENSION
EQU
EQUATE
FUNCTION
INCLUDE
LET
LIT
LITERAL
MAT
NULL
PROGRAM
SUBROUTINE
UNASSIGNED
UNIVERSE
UNIDATA
D3
JBASE

;---------
;OPERATORS
;---------
[Keywords 5]
#
#<
#>
*
**
+
+=
-
-=
//
/
:
:=
<
<=
<>
=
=>
>
>< =
AND
CAT
EQ
GE
GT
LE
LT
NE
NOT
OR
^
;-----------------
;BASIC SUBROUTINES
;-----------------
[Keywords 6]
!ADDS
!AMLC
!ANDS
!ASYNC
!CATS
!CHARS
!CLEAR.PROMPTS
!COUNTS
!DISLEN
!DIVS
!EDIT.INPUT
!EQS
!ERRNO
!FADD
!FCMP
!FDIV
!FIELDS
!FMTS
!FMUL
!FOLD
!FSUB
!GES
!GET.KEY
!GET.PARTNUM
!GET.PATHNAME
!GET.USER.COUNTS
!GETPU
!GTS
!ICONVS
!IFS
!INDEXS
!INLINE.PROMPTS
!INTS
!LENS
!LES
!LTS
!MAKE.PATHNAME
!MATCHES
!MAXIMUM
!MESSAGE
!MINIMUM
!MODS
!MULS
!NES
!NOTS
!NUMS
!OCONVS
!ORS
!PACK.FNKEYS
!REPORT.ERROR
!SEQS
!SET.PTR
!SETPU
!SPACES
!SPLICE
!STRS
!SUBS
!SUBSTRINGS
!SUMMATION
!TIMDAT
!USER.TYPE
!VOC.PATHNAME
---- End definition ----

> -----Original Message-----
> From: [EMAIL PROTECTED] 
> [mailto:[EMAIL PROTECTED] On Behalf Of Don Verhagen
> Sent: 01 June 2008 00:46
> To: [email protected]
> Subject: [U2] OT: Textpad Syntax File for Unidata
> 
> Group,
> 
> I was wondering if any else out there uses a text editor 
> TEXTPAD and has already created a syntax file for it.
> 
> If so, please email offline or link.
> 
> Thanks,
> Don Verhagen
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to