DBU & Co -> Xbase++ [erledigt]
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
DBU & Co -> Xbase++ [erledigt]
es gibt doch eine Anleitung dazu ... wie heisst die Datei ... ich finde die nicht
Zuletzt geändert von AUGE_OHR am Sa, 09. Apr 2016 10:39, insgesamt 1-mal geändert.
gruss by OHR
Jimmy
Jimmy
- mini990
- 1000 working lines a day
- Beiträge: 592
- Registriert: Sa, 28. Jan 2006 9:44
- Wohnort: Berg-Richtheim bei Neumarkt i.d.Opf.
- Danksagung erhalten: 1 Mal
Re: DBU & Co -> Xbase++
Bittesehr...
Gruß Stefan
Code: Alles auswählen
///////////////////////////////////////////////////////////////////////////////
//
// A C S N
//
// +--------------- Alaska Certified Solutions Network -------------------+
// | |
// | This file is proved and certified by Alaska Software |
// | |
// | No: <Certification number> |
// | 109xxx-03-0003 |
// | |
// | For more information about ACSN read the appropriate announcement |
// | or scan for ACSN in the Alaska Support-LIBs on CompuServe or |
// | at WWW.ALASKA-SOFTWARE.COM |
// | |
// +------------------------------------------------------------------------+
//
// FILE NAME
//
// CLIPUTIL.TXT
//
// AUTHOR
//
// (c) Copyright 1997, Hannes Ziegler
//
// ALL RIGHTS RESERVED
//
// This file is the property of AUTHOR. It participates in the
// Alaska Certified Solutions Network program. Permission to use,
// copy, modify, and distribute this software for any purpose and
// without fee is hereby granted, provided that the above copyright
// notice appear in all copies and that the name of the author or
// Alaska Software not be used in advertising or publicity pertaining
// to distribution of the software without specific, written prior
// permission.
//
// WARRANTY
//
// THE MATERIAL EMBODIED ON THIS SOFTWARE IS PROVIDED TO YOU "AS-IS"
// AND WITHOUT WARRANTY OF ANY KIND, EXPRESS, IMPLIED OR OTHERWISE,
// INCLUDING WITHOUT LIMITATION, ANY WARRANTY OF MERCHANTABILITY OR
// FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR
// OR ALASKA SOFTWARE BE LIABLE TO YOU OR ANYONE ELSE FOR ANY DIRECT,
// SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
// INCLUDING WITHOUT LIMITATION, LOSS OF PROFIT AND LOSS OF USE.
//
// DESCRIPTION
//
// This file describes what to change in CA Clipper's utility programs
// DBU.EXE and RL.EXE when porting them to Xbase++. If the changes
// are applied, the programs run smoothly with both Clipper and Xbase++.
//
// HISTORY
//
// Created Oct. 1st, 1997
//
///////////////////////////////////////////////////////////////////////////////
*******************************************************************************
Changes for DBU.EXE 5.2e
*******************************************************************************
1. DBU.PRG
o Rename PROCEDURE Dbu to PROCEDURE Main
2. DBUEDIT.PRG
o Correct an implementation error which is tolerated by Clipper
but not by Xbase++
if ( "->" $ cEditField )
cAlias := Substr(cEditField, 1, At("->", cEditField) + 1)
This Plus must be a Minus ----------------^^^
o Change two Inkey() calls to Inkey(0.1) for smooth operation
3. DBUVIEW.PRG
o Move all "local saveColor" declarations in front of the
PARAMETERS statement
o Change one Inkey() to Inkey(0.1) for smooth operation
o Change the code in FUNCTION bar_menu to reflect a slightly
different behaviour of Xbase++'s Achoice() function.
(Clipper's Achoice() does not display array elements which contain
null strings, while Xbase++ does)
FUNCTION bar_menu
--------------------
Old: local saveColor
New: local saveColor, nElem
--------------------------------
Old: IF M->num_d < LEN(M->array)
num_d = M->num_d + 1
array[M->num_d] = " "
ENDIF
New: nElem := LEN(M->array)
IF M->num_d < nElem
num_d = M->num_d + 1
array[M->num_d] = " "
ASize( m->array, M->num_d )
ENDIF
------------------------------
Old: IF array[M->num_d] == " "
array[M->num_d] = ""
ENDIF
New: IF array[M->num_d] == " "
ASize( M->array, nElem )
AFill( M->array, "", M->num_d )
ENDIF
5. DBUUTIL.PRG
o Move all "local saveColor" declarations in front of the
PARAMETERS statement
o Change this command with & to its functional equivalent
(necessary because Xbase++ always uses late binding in code blocks)
Old: SET RELATION ADDITIVE TO &k INTO &t
New: DbSetRelation( t, &( "{||"+ k +"}" ), k )
o Change one Inkey() to Inkey(0.1) for smooth operation
6. DBUCOPY.PRG
o Move all "local saveColor" declarations in front of the
PARAMETERS statement
*******************************************************************************
Changes for RL.EXE 5.2e
*******************************************************************************
1. RLFRONT.PRG
o Rename PROCEDURE SetUp() to Main()
o Add SET EXCLUSIVE ON in Main()
2. RLBACK.PRG
o Change FUNCTION LBL_LOAD to reflect additional operating system
error codes
Old: IF file_error = 2
New: IF file_error = 2 .OR. file_error = 110
3. RLDIALG.PRG
o Correct two wrong Achoice() calls in FUNCTION filelist
This line has an error:
achoice(wt+1,wl+32,wt+wh,wl+43,files,"ch_func",0,asel,arel)
This is correct:
achoice(wt+1,wl+32,wt+wh,wl+43,files,.T.,"ch_func",asel,arel)
(just search for "ch_func")
4. FRMDEF.CH
o Add one directive to the include file
#xtranslate IsAffirm( <c> ) => (<c> $ "Yy")
5. LBLDEF.CH
o Add one directive to the include file
#xtranslate IsNegative( <c> ) => (<c> $ "Nn")
6. STD.CH
o Replace Xbase++'s LABEL FORM and REPORT FORM #commands in STD.CH
with Clipper's #commands (Better: copy them into a separate
CH file and #include this file to PRGs which use the commands).
//EOF
/////