////////////////////////////////////////////////////////////////////// // // STD.CH // (ak) // // Copyright: // Alaska Software GmbH, (c) 1998-2002. Alle Rechte vorbehalten. // // Inhalt: // Direktiven fr die Xbase++ - Standard Sprachdefinitionen // // Bemerkungen: // Funktionen, die mit einem Unterstrich beginnen, // sind reserviert. Sie k”nnen versionsabh„ngig sein // und sollten nicht direkt aufgerufen werden! // ////////////////////////////////////////////////////////////////////// // Std.ch ist noch nicht eingebunden #ifndef _STD_CH // Mehrfaches #include verhindern #define _STD_CH /******************************************************************************* * Allgemeine Konstanten fuer den Sprachumfang *******************************************************************************/ #define SCOPE_TOP 0x01 #define SCOPE_BOTTOM 0x02 #define SCOPE_BOTH 0xFF #ifdef __XPP__ ******************************************************************************* * Weitere #include Dateien einbinden, die zum Sprachumfang geh”ren ******************************************************************************* // Direktiven fr SET und SET() einbinden #ifndef _SET_CH #include "Set.ch" #endif // Direktiven fr das Get-System einbinden #ifndef _GET_CH #include "Get.ch" #endif // Direktiven fr das Men-System einbinden #ifndef _PROMPT_CH #include "Prompt.ch" #endif // Direktiven fr SAVE und RESTORE von #ifndef _MEMVAR_CH // PRIVATE und PUBLIC Variablen einbinden #include "Memvar.ch" #endif // Definitionen fr SET LEXICAL TO #ifndef _COLLAT_CH #include "collat.ch" #endif ******************************************************************************* * Anweisungen fr Kontrollstrukturen ******************************************************************************* #command DO WHILE => while #command END => end #command END SEQUENCE => end #command ENDSEQUENCE => end #command BREAK [ ] => _break([]) #command ENDDO <*what*> => enddo #command ENDIF <*what*> => endif #command ENDCASE <*what*> => endcase #command ENDFOR [<*what*>] => next #command NEXT [TO ] [STEP ] => next ******************************************************************************* * SET Befehle fr Vergleiche, Datums- und Zahlenformat ******************************************************************************* #command SET CHARSET TO ANSI => Set( _SET_CHARSET, CHARSET_ANSI ) #command SET CHARSET TO OEM => Set( _SET_CHARSET, CHARSET_OEM ) #command SET EXACT => Set( _SET_EXACT, <(x)> ) #command SET EXACT () => Set( _SET_EXACT, ) #command SET LEXICAL => Set( _SET_LEXICAL, <(x)> ) #command SET LEXICAL () => Set( _SET_LEXICAL, ) #command SET COLLATION TO => Set( _SET_COLLATION, COLLAT_ASCII ) #command SET COLLATION TO => ; Set( _SET_COLLATION, COLLAT_ ) #command SET COLLATION TO DIN => Set( _SET_COLLATION, COLLAT_GERMAN );; SetLexRule( {{"„","ae"},{"”","oe"},{"","ue"},; {"Ž","AE"},{"™","OE"},{"š","UE"},; {"á","ss"}}) #command SET FIXED => Set( _SET_FIXED, <(x)> ) #command SET FIXED () => Set( _SET_FIXED, ) #command SET DECIMALS TO => Set( _SET_DECIMALS, ) #command SET DECIMALS TO => Set( _SET_DECIMALS, 0 ) #command SET DATE FORMAT [TO] => Set( _SET_DATEFORMAT, ) #define _DFSET(x, y) Set( _SET_DATEFORMAT, iif(Set( _SET_CENTURY ), x, y) ) #command SET DATE [TO] SYSTEM => Set( _SET_DATEFORMAT, "" ) #command SET DATE [TO] AMERICAN => _DFSET( "mm/dd/yyyy", "mm/dd/yy" ) #command SET DATE [TO] ANSI => _DFSET( "yyyy.mm.dd", "yy.mm.dd" ) #command SET DATE [TO] BRITISH => _DFSET( "dd/mm/yyyy", "dd/mm/yy" ) #command SET DATE [TO] FRENCH => _DFSET( "dd/mm/yyyy", "dd/mm/yy" ) #command SET DATE [TO] GERMAN => _DFSET( "dd.mm.yyyy", "dd.mm.yy" ) #command SET DATE [TO] ITALIAN => _DFSET( "dd-mm-yyyy", "dd-mm-yy" ) #command SET DATE [TO] JAPANESE => _DFSET( "yyyy/mm/dd", "yy/mm/dd" ) #command SET DATE [TO] USA => _DFSET( "mm-dd-yyyy", "mm-dd-yy" ) #command SET TIME TO <(x)> => Set( _SET_TIME, <(x)> ) #command SET TIME TO SYSTEM => Set( _SET_TIME, "" ) #command SET CENTURY => Set( _SET_CENTURY, <(x)> ) #command SET CENTURY () => Set( _SET_CENTURY, ) #command SET EPOCH TO => Set( _SET_EPOCH, ) ******************************************************************************* * SET Befehle fr Verzeichnisse ******************************************************************************* #command SET PATH TO <(path)> => Set( _SET_PATH, <(path)> ) #command SET PATH TO => Set( _SET_PATH, "" ) #command SET DEFAULT TO <(path)> => Set( _SET_DEFAULT, <(path)> ) #command SET DEFAULT TO => Set( _SET_DEFAULT, "" ) ******************************************************************************* * SET Befehle fr die Database-Engine ******************************************************************************* #command SET EXCLUSIVE => Set( _SET_EXCLUSIVE, <(x)> ) #command SET EXCLUSIVE () => Set( _SET_EXCLUSIVE, ) #command SET SOFTSEEK => Set( _SET_SOFTSEEK, <(x)> ) #command SET SOFTSEEK () => Set( _SET_SOFTSEEK, ) #command SET UNIQUE => Set( _SET_UNIQUE, <(x)> ) #command SET UNIQUE () => Set( _SET_UNIQUE, ) #command SET DELETED => Set( _SET_DELETED, <(x)> ) #command SET DELETED () => Set( _SET_DELETED, ) #command SET OPTIMIZE => Set( _SET_OPTIMIZE , <(x)> ) #command SET OPTIMIZE () => Set( _SET_OPTIMIZE, ) #command SET RUSHMORE => Set( _SET_RUSHMORE , <(x)> ) #command SET RUSHMORE () => Set( _SET_RUSHMORE, ) #command SET SMARTFILTER => Set( _SET_SMARTFILTER , <(x)> ) #command SET SMARTFILTER () => Set( _SET_SMARTFILTER , ) ******************************************************************************* * SET Befehle fr die Tastatur ******************************************************************************* #command SET TYPEAHEAD TO => Set( _SET_TYPEAHEAD, ) ******************************************************************************* * SET Befehle fr die Bildschirmanzeige ******************************************************************************* #command SET COLOR TO [<*spec*>] => SetColor( # ) #command SET COLOR TO ( ) => SetColor( ) #command SET COLOUR TO [<*spec*>] => SET COLOR TO [] #command SET CURSOR ; => SetCursor( iif(upper(<(x)>)=="ON", 1, 0) ) #command SET CURSOR () => SetCursor( iif(, 1, 0) ) #command SET CONSOLE => Set( _SET_CONSOLE, <(x)> ) #command SET CONSOLE () => Set( _SET_CONSOLE, ) ******************************************************************************* * SET Befehle fr die Druckausgabe ******************************************************************************* #command SET ALTERNATE => Set( _SET_ALTERNATE, <(x)> ) #command SET ALTERNATE () => Set( _SET_ALTERNATE, ) #command SET ALTERNATE TO => Set( _SET_ALTFILE, "" ) #command SET ALTERNATE TO <(file)> [] ; => Set( _SET_ALTFILE, <(file)>, <.add.> ) // (Original->) #command SET DEVICE TO SCREEN => Set( _SET_DEVICE, "SCREEN" ) // (Original->) #command SET DEVICE TO PRINTER => Set( _SET_DEVICE, "PRINTER" ) // SET DEVICE TO steht am Ende dieser Datei (AK) // (Original->) #command SET PRINTER => Set( _SET_PRINTER, <(x)> ) // SET PRINTER ON steht am Ende dieser Datei (AK) #command SET PRINTER => Set( _SET_PRINTER, <(x)> ) #command SET PRINTER () => Set( _SET_PRINTER, ) #command SET PRINTER TO => Set( _SET_PRINTFILE, "" ) #command SET PRINTER TO <(file)> [] ; => Set( _SET_PRINTFILE, <(file)>, <.add.> ) #command SET MARGIN TO => Set( _SET_MARGIN, ) #command SET MARGIN TO => Set( _SET_MARGIN, 0 ) ******************************************************************************* * SET Befehle fr das Get-System ******************************************************************************* #command SET BELL => Set( _SET_BELL, <(x)> ) #command SET BELL () => Set( _SET_BELL, ) #command SET CONFIRM => Set( _SET_CONFIRM, <(x)> ) #command SET CONFIRM () => Set( _SET_CONFIRM, ) #command SET ESCAPE => Set( _SET_ESCAPE, <(x)> ) #command SET ESCAPE () => Set( _SET_ESCAPE, ) #command SET INTENSITY => Set( _SET_INTENSITY, <(x)> ) #command SET INTENSITY () => Set( _SET_INTENSITY, ) #command SET SCOREBOARD => Set( _SET_SCOREBOARD, <(x)> ) #command SET SCOREBOARD () => Set( _SET_SCOREBOARD, ) #command SET DELIMITERS => Set( _SET_DELIMITERS, <(x)> ) #command SET DELIMITERS () => Set( _SET_DELIMITERS, ) #command SET DELIMITERS TO => Set( _SET_DELIMCHARS, ) #command SET DELIMITERS TO DEFAULT => Set( _SET_DELIMCHARS, "::" ) #command SET DELIMITERS TO => Set( _SET_DELIMCHARS, "::" ) ******************************************************************************* * Befehle fr die Ausgabe am Bildschirm oder Drucker ******************************************************************************* #command ? [] => QOUT( ) #command ?? [] => QQOUT( ) //#command EJECT => _Eject() // ak: #command EJECT => NeueSeite() ******************************************************************************* * Bildschirm l”schen ******************************************************************************* #command CLS ; => Scroll() ; SetPos(0,0) #command CLEAR SCREEN ; => Scroll() ; SetPos(0,0) #command @ , ; => Scroll(, , ) ; SetPos(, ) #command @ , CLEAR ; => Scroll(, ) ; SetPos(, ) #command @ , CLEAR TO , ; => Scroll(, , , ) ; SetPos(, ) ******************************************************************************* * Box am Bildschirm ausgeben ******************************************************************************* #command @ , , , BOX [COLOR ] ; => DispBox(, , , , [,]) #command @ , TO , [DOUBLE] [COLOR ] ; => DispBox(, , , , 2 [,]) #command @ , TO , [COLOR ] ; => DispBox(, , , , 1 [,]) ******************************************************************************* * Befehl: @...SAY ******************************************************************************* #command @ , SAY [PICTURE ] [COLOR ] ; => DevPos(, ) ; DevOutPict(, [,]) #command @ , SAY [COLOR ] ; => Sage( , , ) // nur mit Printer_anG() in Sonnex.prg // => DevPos(, ) ; DevOut( [,]) ******************************************************************************* * Befehl: @...COLOUR ******************************************************************************* #command @ [] COLOUR [] ; => @ [] COLOR [] ******************************************************************************* * Befehle: SAVE / RESTORE SCREEN ******************************************************************************* #command SAVE SCREEN => _XSaveScreen() #command RESTORE SCREEN => _XRestScreen() #command SAVE SCREEN TO ; => := SaveScreen(0, 0, Maxrow(), Maxcol()) #command RESTORE SCREEN FROM ; => RestScreen(0, 0, Maxrow(), Maxcol(), ) ******************************************************************************* * Befehle fr Tastatureingaben ******************************************************************************* #command WAIT ; => _Wait() #command WAIT [] TO ; => := _Wait() #command WAIT ; => _Wait("Press any key to continue...") #command ACCEPT [] TO ; => := _Accept(<(cInput)>) #command ACCEPT TO ; => := _Accept("") #command INPUT [] TO ; => if ( .not. Empty(_Accept()) ) ;; := &(_AcceptStr()) ;; endif #command KEYBOARD ; => _Keyboard() #command CLEAR TYPEAHEAD ; => _Keyboard() #command SET KEY TO ; => SetKey(, {|pn,pl,vn,obj| (pn,pl,vn,obj)}) #command SET KEY TO ( [] ) ; => SET KEY TO #command SET KEY TO ; => if ( Empty(<(proc)>) ) ;; SetKey(, NIL) ;; else ;; SetKey(, {|pn,pl,vn,obj| (pn,pl,vn,obj)}) ;; endif #command SET KEY [TO] ; => SetKey(, NIL) ******************************************************************************* * Datei-Befehle ******************************************************************************* #command ERASE <(file)> ; => fErase( <(file)> ) #command DELETE FILE <(file)> ; => fErase( <(file)> ) #command RENAME <(oldFile)> TO <(newFile)> ; => fRename( <(oldFile)>, <(newFile)> ) #command COPY FILE <(source)> TO <(target)> ; => _copyFile(<(source)>, <(target)>) #command TYPE <(file)> [] [TO FILE <(target)>] ; => _typeFile(<(file)>, <.prn.>) ; [; COPY FILE <(file)> TO <(target)> ] #command TYPE <(file)> []; => _typeFile(<(file)>, <.prn.>) ******************************************************************************* * Befehle fr die Ausfhrung von Programmen ******************************************************************************* #command CANCEL => _quit() #command QUIT [] => _quit() #command RUN <*cmd*> => runShell( "/C " + # ) #command RUN ( ) => runShell( "/C " + ) #command ! <*cmd*> => RUN #command RUN = => (run := ) #command RUN := => (run := ) ******************************************************************************* * Befehle fr die Database-Engine ******************************************************************************* #command SELECT ; => dbSelectArea( <(area)> ) #command SELECT ([]) ; => dbSelectArea( () ) #command USE ; => dbCloseArea() #command USE <(dbFile)> ; [VIA ] ; [ALIAS ] ; [] ; [] ; [] ; [] ; [INDEX <(index1)> [,; <(indexN)>]] ; => dbUseArea( <.new.>, <(dbe)>, <(dbFile)>, <(alias)>, ; iif(<.sha.> .or. <.exc.>, !<.exc.>, NIL), <.reo.>) ; [; dbSetIndex( <(index1)> )] [; dbSetIndex( <(indexN)> )] #command GO => dbGoto() #command GO TOP => dbGoTop() #command GO BOTTOM => dbGoBottom() #command GOTO => dbGoto() #command GOTO TOP => dbGoTop() #command GOTO BOTTOM => dbGoBottom() #command SKIP => dbSkip(1) #command SKIP => dbSkip() #command SKIP ALIAS => ->(dbSkip(1)) #command SKIP ALIAS => ->(dbSkip()) #command APPEND BLANK => dbAppend() #command ZAP => dbZap() #command PACK => dbPack() #command COMMIT => dbCommitAll() #command UNLOCK => dbUnlock() #command UNLOCK ALL => dbUnlockAll() #command FIND <*text*> => dbSeek(<(text)>) #command FIND := => (find := ) #command FIND = => (find := ) #command SEEK [] ; => dbSeek(, iif(<.ss.>,.T., NIL)) #command LOCATE ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbLocate( __EBCB(), __EBCB(), , , <.rst.> ) #command CONTINUE ; => dbContinue() #command SET RELATION TO ; => dbClearRelation() #command SET RELATION [] [; TO INTO <(alias1)> [] [,; [TO] INTO <(aliasN)> []]]; => if (.not. <.add.>) ;; dbClearRelation() ;; endif ;; dbSetRelation(<(alias1)>, __EBCB(), <"key1">, <.sel1.>) [;; dbSetRelation(<(aliasN)>, __EBCB(), <"keyN">, <.selN.>) ] #command SET FILTER TO ; => dbClearFilter(NIL) #command SET FILTER TO ; => dbSetFilter(__EBCB(), <"exp">) #command SET FILTER TO ; => if ( Empty(<(x)>) ) ;; dbClearFilter() ;; else ;; dbSetFilter(__EBCB(), <(x)>) ;; endif #xcommand SET SCOPE TO ; => DbClearScope(SCOPE_BOTH) #xcommand SET SCOPE TO ; => DbSetScope(SCOPE_BOTH,) #xcommand SET SCOPE TO , ; => DbSetScope(SCOPE_TOP , ) ; ; DbSetScope(SCOPE_BOTTOM, ) #xcommand SET SCOPETOP TO ; => DbClearScope(SCOPE_TOP) #xcommand SET SCOPETOP TO ; => DbSetScope(SCOPE_TOP, ) #xcommand SET SCOPEBOTTOM TO ; => DbClearScope(SCOPE_BOTTOM) #xcommand SET SCOPEBOTTOM TO ; => DbSetScope(SCOPE_BOTTOM, ) #command REPLACE [ WITH [,; WITH ] ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbEval( {|| FIELD-> := [, ; FIELD-> := ] }, ; __EBCB(), __EBCB(), , , <.rst.>) #command REPLACE WITH [, WITH ] ; => FIELD-> := [; FIELD-> := ] // siehe hinten: //#command DELETE ; // [ FOR ] ; // [ WHILE ] ; // [ NEXT ] ; // [RECORD ] ; // [ ] ; // [ ALL ] ; // => dbEval( {|| dbDelete()}, ; // __EBCB(), __EBCB(), , , <.rst.>) // siehe hinten: //#command DELETE ; // => dbDelete() // siehe hinten: //#command RECALL ; // [ FOR ] ; // [ WHILE ] ; // [ NEXT ] ; // [RECORD ] ; // [ ] ; // [ ALL ] ; // => dbEval( {|| dbRecall()}, ; // __EBCB(), __EBCB(), , , <.rst.>) // siehe hinten: //#command RECALL ; // => dbRecall() #command CREATE <(dbFile1)> ; [ FROM <(dbFile2)>] ; [ VIA ] ; [ALIAS ] ; [] ; => dbCreateFrom(<(dbFile1)>, <(dbe)>, <(dbFile2)>, <(dbe)>, <.new.>, <(alias)>) #command CREATE <(dbFile)> ; => dbCreateExtStruct( <(dbFile)> ) #command COPY [STRUCTURE] [EXTENDED] [TO <(dbFile)>] ; => dbCopyExtStruct( <(dbFile)> ) #command COPY [STRUCTURE] [TO <(dbFile)>] [FIELDS ] ; => dbCopyStruct( <(dbFile)>, {<(flds)>} ) #command COPY [TO <(file)>] ; [ DELIMITED [ WITH <*lim*>] ] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => _dbExport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, "DELDBE", <(lim)> ) #command COPY [TO <(file)>] ; [SDF ] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => _dbExport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, "SDFDBE" ) #command COPY [TO <(file)>] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ VIA ] ; [ ALL ] ; => _dbExport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, ) #command APPEND [FROM <(file)>] ; [DELIMITED [WITH <*lim*> ]] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => _dbImport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, "DELDBE", <(lim)> ) #command APPEND [FROM <(file)>] ; [SDF] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => _dbImport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, "SDFDBE" ) #command APPEND [FROM <(file)>] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ VIA ] ; [ ALL ] ; => _dbImport( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>, <(dbe)>) #command SORT [TO <(file)>] ; [ON ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbSort( <(file)>, { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.>) #command TOTAL [TO <(file)>] ; [ON ] ; [FIELDS ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbTotal( <(file)>, __EBCB(), { <(flds)> }, ; __EBCB(), __EBCB(), , , <.rst.> ) #command UPDATE [FROM <(alias)>] [ON ] ; [REPLACE WITH [,; WITH ] ] ; [] ; => dbUpdate( <(alias)>, ; {|| FIELD-> := [, ; FIELD-> := ] }, ; __EBCB(), <.rnd.> ) #command JOIN [WITH <(alias)>] ; [TO ] ; [FIELDS ] ; [FOR ] ; => dbJoin( <(alias)>, <(file)>, { <(flds)> }, __EBCB() ) #command COUNT [TO ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => := 0 ;; dbEval( {|| ++ }, ; __EBCB(), __EBCB(), , , <.rst.> ) #command SUM [ [, ] ; TO [, ] ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => := [ := ] 0 ;; dbEval( {|| += [, ; += ] }, ; __EBCB(), __EBCB(), , , <.rst.> ) #command AVERAGE [ [, ] ; TO [, ] ] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => M->_Avg_ := := [ := ] 0 ;; dbEval( {|| M->_Avg_ ++ , ; += [, ; += ] }, ; __EBCB(), __EBCB(), , , <.rst.> ) ;; /= M->_Avg_ [;; /= M->_Avg_ ] #command LIST [] ; [] ; [] ; [TO FILE <(file)>] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbList( { <{flds}> }, <.off.>, .T., ; __EBCB(), __EBCB(), , , <.rst.>, ; <.prn.>, <(file)> ) #command DISPLAY [] ; [] ; [] ; [TO FILE <(file)>] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ] ; => dbList( { <{flds}> }, <.off.>, <.all.>, ; __EBCB(), __EBCB(), , , <.rst.>, ; <.prn.>, <(file)> ) #command CLOSE => ->( dbCloseArea() ) #command CLOSE => dbCloseArea() #command CLOSE DATABASES => dbCloseAll() #command CLOSE ALTERNATE => Set(_SET_ALTFILE, "") #command CLOSE INDEXES => dbClearIndex() #command CLOSE ALL => dbCloseAll() ; dbSelectArea(1) #command CLEAR ; => CLEAR SCREEN ;; CLEAR GETS #command CLEAR ALL ; => CLOSE DATABASES ;; CLEAR MEMORY ;; CLEAR GETS ;; SET ALTERNATE OFF ;; SET ALTERNATE TO ******************************************************************************* * Befehle fr die Database-Engine: Index-Dateien ******************************************************************************* #command INDEX ON [TAG <(cOrdName)> ] TO <(cOrdBagName)> ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ EVAL ]; [ EVERY ]; [ ] ; [ ] ; [] ; [ ] ; [] ; [ ] ; => ordCondSet( <"for">, __EBCB() ,[<.all.>], ; __EBCB(), __EBCB(), , ; RECNO(), , , ; [<.rst.>], [<.desc.>] ) ;; ordCreate( <(cOrdBagName)>, <(cOrdName)>, ; <"key">, __EBCB(), [<.uniq.>], <.add.> ) #command INDEX ON TAG <(cOrdName)> [TO <(cOrdBagName)>] ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ EVAL ]; [ EVERY ]; [ ] ; [ ] ; [] ; [ ] ; [] ; [ ] ; => ordCondSet( <"for">, __EBCB() ,[<.all.>], ; __EBCB(), __EBCB(), , ; RECNO(), , , ; [<.rst.>], [<.desc.>] ) ;; ordCreate(<(cOrdBagName)>, <(cOrdName)>, ; <"key">, __EBCB(), [<.uniq.>], <.add.> ) #command INDEX ON TO <(file)> [] ; => dbCreateIndex( <(file)>, <"key">, __EBCB(), ; iif(<.uniq.>, .T., NIL) ) #command DELETE TAG <(cOrdName1)> [ IN <(cOrdBag1)> ] [, ; <(cOrdNameN)> [ IN <(cOrdBagN)> ] ] ; => ordDestroy(<(cOrdName1)>, <(cOrdBag1)>) [ ;; ordDestroy(<(cOrdNameN)>, <(cOrdBagN)>) ] #command REINDEX ; => ordListRebuild() #command SET INDEX TO [ <(index1)> [, <(indexN)>]] ; => ordListClear() ; [; ordListAdd( <(index1)> )] [; ordListAdd( <(indexN)> )] #command SET INDEX TO <(index1)> [, <(indexN)> ] ADDITIVE ; => ordListAdd( <(index1)> ) [; ordListAdd( <(indexN)> )] #command SET ORDER TO ; [IN <(cOrdBag)>] ; => ordSetFocus( [, <(cOrdBag)>] ) #command SET ORDER TO TAG <(cOrd)> ; [IN <(cOrdBag)>] ; => ordSetFocus( <(cOrd)> [, <(cOrdBag)>] ) #command SET ORDER TO ; => ordSetFocus(0) ******************************************************************************* * Kompatibilit„t ******************************************************************************* #command SET ECHO <*x*> ; => #command SET SAFETY <*x*>; => #command SET STATUS <*x*>; => #command SET TALK <*x*>; => #command SET PROCEDURE TO ; => #command SET PROCEDURE TO ; => #PROCREQ <(proc)> #command DO .PRG [WITH ] ; => do [ WITH ] #command STORE TO [, ] ; => := [ :=] #command TEXT ; => text QOut, QQOut #command TEXT INTO ; => text literal, #command TEXT INTO TRIMMED; => text literal, ,, ltrim #command TEXT INTO WRAP ; => text literal, , #command TEXT INTO WRAP TRIMMED ; => text literal, , , ltrim #command TEXT INTO WRAP => text literal, , CHR(13)+CHR(10) #command TEXT TO FILE <(file)> ; => _TextSave( <(file)> ) ;; text QOut, _TextRestore #command TEXT TO PRINTER ; => _TextSave("PRINTER") ;; text QOut, _TextRestore #command EXTERNAL <*procList*> ; => REQUEST #xtranslate :assign => :_assign #xtranslate :end => :_end ******************************************************************************* * Erzwinge Early Binding von Makroausdrcken in Codebl”cken ******************************************************************************* #xtrans __EBCB() => #xtrans __EBCB( ) => _EarlyBoundCodeblock(<{exp}>) ******************************************************************************* * Inkompatibilit„t ******************************************************************************* #command CALL <*x*> => #error Unsupported command: CALL #command CLOSE FORMAT <*x*> => #error Unsupported command: CLOSE FORMAT #command CLOSE PROCEDURE <*x*> => #error Unsupported command: CLOSE PROCEDURE #command DIR <*x*> => #error Unsupported command: DIR #command LABEL FORM <*x*> => #error Unsupported command: LABEL FORM #command REPORT FORM <*x*> => #error Unsupported command: REPORT FORM #command SET FORMAT TO <*x*> => #error Unsupported command: SET FORMAT #command SET FUNCTION <*x*> => #error Unsupported command: SET FUNCTION #ifdef __XPP_PROFILE__ #xtranslate PrfHold([]) => _prfHold() #xtranslate PrfResume([]) => _prfResume() #else #xtranslate PrfHold([]) => #xtranslate PrfResume([]) => #endif //#endif // #ifndef _STD_CH // Achtung // // Hier kommen eigene Zeilen von A.K. // #command USE ; => DBaufmachen( <(f)>, , "S" ) #command USE INDEX ; => DBaufmachen( <(f)>, <(i)>, "S" ) #command USE INDEX EXCLUSIVE; => DBaufmachen( <(f)>, <(i)>, "E" ) #command USE EXCLUSIVE; => DBaufmachen( <(f)>, , "E" ) #command DELETE ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbEval( {|| SatzDelete()}, ; __EBCB(), __EBCB(), , , <.rst.>) #command DELETE; => Satzdelete() #command RECALL ; [ FOR ] ; [ WHILE ] ; [ NEXT ] ; [RECORD ] ; [ ] ; [ ALL ] ; => dbEval( {|| SatzRecall()}, ; __EBCB(), __EBCB(), , , <.rst.>) #command RECALL; => Satzrecall() #xcommand APPEND BLANK; => Satzappend() // #command SET FUNCTION TO ; => __SETFUNCTION( , ) // #command SET FUNC TO ; => __SETFUNCTION( , ) // #command SET PRINTER ON => Drucker_an(nP:=1) #command SET PRINTW ON => Drucker_anW(nP:=1) // #command SET DEVICE TO SCREEN => Drucker_aus() #command SET DEVICE TO PRINTER => Drucker_an(nP:=2) #command SET DEVICE TO PRINTW => Drucker_anW(nP:=2) #command SET DEVICE TO PRINT => Drucker_an(nP:=2) // Ende der eigenen Zeilen von A.K. // #endif // #ifdef __XPP__ #endif // #ifndef _STD_CH // * EOF *