OS/2 Shareware BBS: 18 REXX/18-REXX.zip/rexx25e.zip/CODE.DAT

Text File | 1995-09-08 | 10KB | 450 lines

@Base funktions
%If Then Else
$IF value = 0 THEN
   DO
   END
ELSE
   DO
   END

%DO
$DO index = 1 to 100 by 1
END
%Do while
$DO WHILE value > 0
END
%Do until
$DO UNTIL value > 0
END
%Select when
$SELECT
   WHEN value > 0
      THEN
   WHEN value = 0
      THEN
   WHEN value < 0
      THEN
   OTHERWISE
END
%Grater than
$>
%Less than
$<
%Equal
$= or ==
%Not equal
$<> or \=
%And
$&
%Or
$|
%Not
$^ or \
%Procedure
$PROCEDURE EXPOSE Valuename /* Procedure must follow imidiately after the label ! */
%Signal
$SIGNAL labelname
%Signal off
$SIGNAL OFF ERROR
SIGNAL OFF FAILURE
SIGNAL OFF HALT
SIGNAL OFF NOVALUE
SIGNAL OFF SYNTAX
SIGNAL OFF NOTREADY
%Singal on
$SIGNAL ON ERROR NAME labelname
SIGNAL ON FAILURE NAME labelname
SIGNAL ON HALT NAME labelname
SIGNAL ON NOVALUE NAME labelname
SIGNAL ON SYNTAX NAME labelname
SIGNAL ON NOTREADY NAME labelname

@Rexxutil
%Load RexxUtil
$/* Load RexxUtil.DLL */
CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
CALL SysLoadFuncs
%Query RexxUtil
$rc = RxFuncQuery('SysloadFuncs') /* rc is 0 if  SysLoadFuncs is not loaded */
%Drop RexxUtil
$CALL SysDropFuncs
%RxMessageBox
$Aktion = RxMessageBox(text,title,bottom,symbol)

@Sys - objekt funktions
%SysCopyObject
$rc = SysCopyObject(source,destination)
%SysCreateObject
$rc = SysCreateObject('WPProgram', 'titel', '<WP_DESKTOP>','EXENAME=filename;STARTUPDIR=dir;PROGTYPE=PM;', 'U')
%SysDeregisterObjectClass
$rc = SysDeregisterObjectClass(classname)
%SysDestroyObject
$rc = SysDestroyObject(objektname)
%SysMoveObject
$rc = SysMoveObject(source,destination)
%SysOpenObject
$rc = SysOpenObject(objektname, display, mark)
%SysQueryClassList
$CALL SysQueryClassList 'list.'
%SysRegisterObjectClass
$rc = SysRegisterObjectClass(name,modul)

@Sys - file functions
%SysDriveInfo
$Info = SysDriveInfo(drive)
%SysDriveMap
$Liste = SysDriveMap(drive,options)
%SysFileTree
$CALL SysFileTree filename,'Liste',optionen,attribut
%SysFileSearch
$CALL SysFileSearch search value,file,'Liste',options
%SysGetMessage
$Message = SysGetMessage(number,file)
%SysIni - query value
$value = SysIni(file,app,key)
%SysIni - query all apps
$rc = SysIni(file,'ALL:','List')
%SysMkDir
$CALL SysMkDir directory
%SysPutEA
$CALL SysPutEA file, EAname, value
%SysRmDir
$CALL SysRmDir directory
%SysSetIcon
$rc = SysSetIcon(file,iconfile)
%SysTempFileName
$file = SysTempFileName(template,filter)

@Sys - other functions
%SysCls
$CALL SysCls
%SysCurPos
$pos = SysCurPos(row,col)
%SysCurState
$CALL SysCurState 'ON' or 'OFF'
%SysGetKey
$key = SysGetKey('ECHO')
key = SysGetKey('NOECHO')
%SysOS2Ver
$Version = SysOS2Ver()
%SysSleep
$CALL SysSleep seconds
%SysTextScreenRead
$line = SysTextScreenRead(row,col,length)
%SysTextScreenSize
$rc =SysTextScreenSize()

@I/O functions
%Address
$ADDRESS environment
%Charin
$Value = CHARIN(name,start,lenght)
%Charout
$CALL CHAROUT name,string
%Chars
$Anzahl = CHARS(name)
%Directroy
$Value = DIRECTORY() /* returns current directory */
CALL DIRECTORY directory /* switch to directory */
%Filespec
$Value = FILESPEC('D',filename) /* returns drive */
Value = FILESPEC('P',filename) /* returns the path */
Value = FILESPEC('N',filename /* returns the filename */
%Linein
$value = LINEIN(name,line)
%Lineout
$CALL LINEOUT name,string,line
%Lines
$lines = LINES(name)

@Parse
%Parse Arg
$PARSE ARG string
%Parse Pull
$PARSE PULL string
%Parse Source
$PARSE SOURCE string
%Parse Value
$PARSE VALUE funktion WITH template /* Parse Value TIME() with Std ':' Min ':' Sek */
%Parse Var
$PARSE VAR string word1 rest
%Parse Version
$PARSE VERSION REXXVERSION

@Stream
%Stream - Open
$CALL STREAM file,'C','OPEN'
%Stream - Open Read
$CAll STREAM file,'C','OPEN READ'
%Stream - Open Write
$CALL STREAM file,'C','OPEN WRITE'
%Stream - Seek
$CALL STREAM file,'C','SEEK number'
%Stream - Close
$CALL STREAM file,'C','CLOSE'
%Stream - filename
$filename = STREAM(file,'C','QUERRY EXIST')
%Stream - size
$size = STREAM(file,'C','QUERRY SIZE')
%Stream - time/Date
$timeinfo = STREAM(file,'C','QUERRY DATETIME')
%Stream - description
$Value = STREAM(file,'D')
%Stream - status
$Value = STREAM(file,'S')

@Queue
%RxQueue - GET
$Queue = RxQueue('GET')
%RxQueue - Create
$Name = RxQueue('CREATE',name)
%RxQueue - Set
$rc = RxQueue('SET',name)
%RxQueue - Delete
$rc = RxQueue('DELETE',name)
%Queued
$Zeilen = QUEUED() /* returns the number of lines in queue */
%Queue
$QUEUE value /* append value to the end of the queue */
%Pull
$PULL Zeile /* get 1. line of queue */
%Push
$PUSH value /* insert value at the beginning of the queue */

@Strings
%B2X
$value = B2X(char)
%Center
$value = CENTER(string,lenght,fillchar)
%Chars
$value = CHARS(name)
%Compare
$value = COMPARE(string1,string2)
%Copies
$value = COPIES(string,number)
%C2D
$value = C2D(char)
%C2X
$value = C2X(char)
%Delstr
$value = DELSTR(string,start,length)
%Delword
$value = DELWORD(string,start,length)
%D2C
$value = D2C(number)
%D2X
$value = D2X(number)
%Insert
$value = INSERT(new,target,start)
%Lastpos
$value = LASTPOS(needle,haystack,start)
%Left
$value = LEFT(string,length,fillchar)
%Length
$value = LENGTH(string)
%Pos
$value = POS(needle,haystack,start)
%Overlay
$value = OVERLAY(new,target,start,length,fillchar)
%Reverse
$value = REVERSE(string)
%Right
$value = RIGHT(string,length,fillchar)
%Space
$value = SPACE(string,number,fillchar)
%Strip
$value = STRIP(string,option,fillchar)
%Substr
$value = SUBSTR(string,start,length)
%Subword
$value = SUBWORD(string,start,length)
%Translate
$value = TRANSLATE(string) /* convert string to uppercase */
/* replace a character within the string with an other character */
value = TRANSLATE(string,tableo,tablei,pad)
%Verify
$value = VERIFY(string1,string2)
%Word
$value = WORD(string,pos)
%Wordindex
$index = WORDINDEX(string,word)
%Wordlength
$value = WORDLENGTH(string,pos)
%Wordpos
$value = WORDPOS(needle,haystack,start)
%Words
$value = WORDS(string)
%X2B
$value = X2B(hex char)
%X2C
$value = X2C(hex char)
%X2D
$value = X2D(hex char)
%Xrange
$value = XRANGE(start,end)

@Math funktions
%ABS
$value = ABS(number)
%Digits
$value = DIGITS()
%Format
$value = FORMAT(number,before,after)
%Form
$value = FORM()
%Fuzz
$value = FUZZ()
%Numeric Digits
$NUMERIC DIGITS value
%Numeric Form
$NUMERIC FORM 'SCIENTIFIC' or 'ENGINEERING'
%Numeric Fuzz
$NUMERIC FUZZ value
%Max
$value = MAX(number1,number2,...,number20)
%Min
$value = MIN(number1,number2,....,number20)
%Random
$value = RANDOM(min,max)
%Sign
$value = SIGN(number)
%Trunc
$Value = TRUNC(number,n)

@Other functions
%Abbrev
$value = ABBREV(information,info,lenght)
%Beep
$CALL BEEP frequency,duration
%Condition
$rc = CONDITION('C') /* Condition Name */
rc = CONDITION('I') /* Condition Instruction */
rc = CONDITION('D') /* Condition Description */
rc = CONDITION('S') /* Condition Status */
%Datatype
$Type = DATATYPE(string)
%Date
$value = DATE() /* dd mm jjj */
value = DATE('B') /* days since January 1, 0001 */
value = DATE('D') /* days since January 1, of the current year */
value = DATE('E') /* dd/mm/jj European format */
value = DATE('L') /* language-dependent format*/
value = DATE('M') /* name of the month */
value = DATE('N') /* dd mon jjj */
value = DATE('O') /* jj/mm/ddt */
value = DATE('S') /* jjjmmdd */
value = DATE('U') /* mm/dd/jj */
value = DATE('W') /* day of week */
%Drop
$DROP value
%Sourceline
$line = SOURCELINE(linen)
%Symbol
$status = SYMBOL(value)
%Time
$value = TIME() /* hh:mm:ss */
value = TIME('C') /* hh:mmxx */
value = TIME('E')
value = TIME('H')
value = TIME('L')
value = TIME('N')
value = TIME('R')
%value
$value = VALUE(name,newvalue,environment)
/* example */
path = VALUE('Path',,'OS2ENVIRONMENT')

@Screen colors (ANSI-Sequences)
%Standard
$CALL CHAROUT 'CON:',''
%Bright - foreground
$CALL CHAROUT 'CON:',''
%Invers
$CALL CHAROUT 'CON:',''
%Invisible
$CALL CHAROUT 'CON:',''
%Foreground black
$CALL CHAROUT 'CON:',''
%Foreground red
$CALL CHAROUT 'CON:',''

%Foreground white
$CALL CHAROUT 'CON:',''
%Background black
$CALL CHAROUT 'CON:',''
%Background red
$CALL CHAROUT 'CON:',''

%Background white
$CALL CHAROUT 'CON:',''
%Clear screen
$CALL CHAROUT 'CON:',''
%Delete line
$CALL CHAROUT 'CON:',''
%Coursor position
$CALL CHAROUT 'CON:','x;yH'
%Coursor up
$CALL CHAROUT 'CON:','yA'
%Coursor down
$CALL CHAROUT 'CON:','yB'
%Coursor to right
$CALL CHAROUT 'CON:','xC'
%Coursor to left
$CALL CHAROUT 'CON:','xD'

%Coursor position restore
$CALL CHAROUT 'CON:','u'
%ANSI on
$ADDRESS CMD 'ANSI ON'
%ANSI off
$ADDRESS CMD 'ANSI OFF'

@VREXX/2
%Load VREXX
$/* Load VREXX */
CALL RxFuncadd 'VInit','VREXX','VInit'
CALL VINIT
%Drop VREXX
$CALL VExit
%VGetVersion
$VER=VGETVERSION()

@VREXX/2 - Dialog functions
%VCcheckBox
$CALL VCHECKBOX title, STEM, output, buttons
%VColorBox
$CALL VCOLORBOX STEM

%VRadioBox
$CALL VRADIOBOX title, STEM, buttons
%VTableBox
$CALL VTABLEBOX title, STEM, SELECTION, width, hight

@VREXX/2 - Windows
%VBackColor
$CALL VBACKCOLOR ID, color
%VClearWindow
$CALL VCLEARWINDOW ID
%VCloseWindow
$CALL VCLOSEWINDOW ID
%VForeColor
$CALL VFORE ID, color
%VOpenWindow
$NEWID=VOPENWINDOW(title, color, STEM)
%VResize
$CALL VRESIZE ID, STEM
%VSay
$CALL VSAY ID, X, Y, TEXT
%VSetFont
$CALL VSETFONT ID, TYPE, SIZE
%VSetTitle
$CALL VSETTitle ID, title

@VREXX/2 - Graphic
%VARC
$CALL VARC ID, X, Y, RADIUS, ANGLE1, ANGLE2
%VDraw
$CALL VDRAW ID, DRWATYPE, XSTEMM, YSTEMM, NUM
%VDrawParms
$CALL VDRAWPARMS ID, MARKERTYPE, LINETYPE, FILLTYPE