FiveTech Software tech support forums

Code: Select all

#!/bin/bash
# m.sh

builddate=$(date +"%d/%m/%Y@%T")
strBD=""
strBD+='-dkBDATE="'
strBD+=${builddate}
strBD+='"'
echo date string is ${strBD}

if [ $# = 0 ]; then
   echo syntax: ./m.sh project
   echo where project is the name of the Five Linux project [.flp] file
   exit
fi

check_errs()
{
  # Parameter 1 is the return code
  # Parameter 2 is text to display on failure.
  if [ "${1}" -ne "0" ]; then
    echo "ERROR # ${1} : ${2}"
    exit ${1}
  fi
}

compile_prg()
{
  # Parameter 1 is the module name  
  echo compiling $1.prg xHarbour code to C code
  ./../../xharbour/bin/harbour $1.prg -n -I./../include -I./../../xharbour/include -q0 ${strBD}
  check_errs $? "compiling ${1}.prg"
  echo compiling $1.c to object code
  gcc $1.c -c -I./../include -I./../../xharbour/include `pkg-config --cflags gtk+-2.0`
  check_errs $? "compiling ${1}.c"
  rm $1.c
}

. ${1}.flp
echo
echo Building ${appname}
echo


objects=""
for m in ${sources}
do
  compile_prg ${m}
  objects+=" ${m}.o"
done
libs="-lfivex -lfivec -lcommon -lvm -lrtl -lrdd -lmacro -llang -lcodepage -lpp -ldbfntx -ldbfcdx -ldbffpt -lhbsix -lhsx -lpcrepos -lusrrdd -ltip -lct -lcgi -lgtnul -lgtstd -lgtcgi -lgtcrs -lhbodbc -ldebug -lm -lgpm -lncurses"
ldirs="-L./../lib -L./../../xharbour/lib"
cfigs="`pkg-config --libs gtk+-2.0` `pkg-config --libs libglade-2.0` `pkg-config --libs libgnomeprintui-2.2`"

echo linking to create ${output}
gcc ${objects} -o${output} ${ldirs} ${cfigs} -Wl,--start-group ${libs} -Wl,--end-group

echo removing object files
for m in ${sources}
do
  rm ${m}.o
done

echo done!

Code: Select all

. ${1}.flp

Code: Select all

#!/bin/bash

appname="mSYS Medical Software"
output="mSYS"
sources="mSYS 
mTEMLIST 
xOBJECTS 
PATIENT_Class 
PATFILE_Class 
EXTEND5 
DOCTOR_Classes 
OSTEO_Class 
SINGLE_Class
xPATIENT_Class 
PRINTERS
RECORD_Class"

Code: Select all

CLASS FILES

DATA sDir              /** string: absolute directory name of directory to list */
DATA aDirs             /** array: of directory names of above directory */
DATA aFDirInfo         /** array: of contents of above directory */
DATA lEntries          /** logical: aFDirInfo has real entries rather than just a dummy entry so browse doesn't crash */
DATA brw_FILE_LIST     /** object: file list browse object */
DATA bInclude          /** code block: evaluated to determine if a file entry should be included */
DATA sSelectedFile     /** string: the name of the selected file */
DATA lSelectionMade    /** logical: a file has been selected */


METHOD New() CONSTRUCTOR
METHOD GetList( plUpdateDirs )
METHOD Select( psWhat, psFullName )
METHOD ChooseDir( piLevel )
METHOD Select_Clicked()

ENDCLASS

METHOD New() CLASS FILES

::aFDirInfo := ARRAY( 0 )

RETURN self


METHOD GetList( plUpdateDirs ) CLASS FILES

LOCAL sTokenEnv        /** string: work variable for tokeniser */
LOCAL iDirDepth        /** integer: depth of directory */
LOCAL aDirInfo         /** array: of directory contents unsorted and unfiltered */
LOCAL aEntry           /** array: used for building ::aFDirInfo entries*/
LOCAL lInclude         /** logical: should this entry be included in the filtered list */

IF plUpdateDirs
   ::aDirs := ARRAY( 0 )
   AAdd( ::aDirs, "/" )
   ::sDir := CurDirX()
   TokenInit( @::sDir, "/", 0, @sTokenEnv )
   DO WHILE .NOT. TokenEnd( @sTokenEnv )
      sToken := TokenNext( @::sDir, , @sTokenEnv )
      AAdd( ::aDirs, sToken )
   ENDDO
ENDIF
// ? "Length of aDirs", LEN( ::aDirs )
// ? "aDirs[1]", ::aDirs[1]
// ? "aDirs[2]", ::aDirs[2]

aDirInfo := Directory( ::sDir + "*", "d" )
// MsgInfo( "raw entries = " + STR( LEN( aDirInfo ) ) )
// ::aFDirInfo := ARRAY( 0 )
ASize( ::aFDirInfo, 0 )
FOR ii = 1 TO LEN( aDirInfo )
   // ? aDirInfo[ii][1], aDirInfo[ii][5]
   IF aDirInfo[ii][5] = "D"
      aENTRY := ARRAY( 0 )
      AADD( aEntry, aDirInfo[ii][1] )
      AADD( aEntry, "(dir)" )
      AADD( ::aFDirInfo, aEntry )
     ELSE
      // IF RIGHT( aDirInfo[ii][1], 4 ) = ".flp"
      lInclude := Eval( ::bInclude, aDirInfo[ii][1] )
      IF lInclude
         aENTRY := ARRAY( 0 )
         AADD( aEntry, aDirInfo[ii][1] )
         AADD( aEntry, "(file)" )
         AADD( ::aFDirInfo, aEntry )
      ENDIF
   ENDIF
NEXT

ASORT( ::aFDirInfo, , , { |x, y| ( x[2] < y[2] ) .OR. ( (x[2] = y[2] ) .AND. ( UPPER( x[1] ) < UPPER( y[1] ) ) ) } )
IF LEN( ::aFDirInfo ) < 1
   aENTRY := ARRAY( 0 )
   AAdd( aENTRY, "" )
   AAdd( aENTRY, "" )
   AAdd( ::aFDirInfo, aENTRY )
   ::lEntries := .F.
  ELSE
   ::lEntries := .T.
ENDIF
RETURN nil

METHOD Select( psWhat, psFullName ) CLASS FILES

LOCAL dlg_SELECT_FILE  /** string: file selection dialog */
LOCAL btn_SELECT   /** object (button): select button on dlg_SELECT_FILE */
LOCAL sTitle       /** string: dialog title */
LOCAL iNextCol     /** integer: horizontal position of next directory button */
LOCAL iDirDepth    /** integer: number of directory levels */
LOCAL ii           /** integer: loop counter */
LOCAL oThisButton  /** object (button): store buttons so their properties can be manipulated */
LOCAL sThisLabel   /** string: directory name = label for this button */
LOCAL iThisWidth   /** integer: calculated required button width */
LOCAL lLoop        /** logical: loop controller */

sTitle := "Open " + psWhat
lLoop := .T.
DO WHILE lLoop
   DEFINE DIALOG dlg_SELECT_FILE TITLE sTitle SIZE 600, 800
   iNextCol := 4
   iDirDepth := LEN( ::aDirs )
   FOR ii = 1 TO iDirDepth
      sThisLabel := ::aDirs[ii]
      iThisWidth := ( ( LEN( sThisLabel ) + 2 ) * 8 )
      @ 60, iNextCol BUTTON oThisButton PROMPT sThisLabel SIZE iThisWidth, 27 ;
         ACTION ( ::ChooseDir( o:cargo ), ::brw_FILE_LIST:SetArray( ::aFDirInfo ), dlg_SELECT_FILE:Refresh() ) OF dlg_SELECT_FILE PIXEL
      iNextCol += (iThisWidth + 6 )
      oThisButton:cargo := ii
   NEXT
   @ 9, 0.4 BROWSE ::brw_FILE_LIST ;
      FIELDS ::aFDirInfo[::brw_FILE_LIST:nAt][2], ::aFDirInfo[::brw_FILE_LIST:nAt][1]  ;
      HEADERS "Type", "File Name" SIZE 460, 510 OF dlg_SELECT_FILE
   BrwSetColWidths( ::brw_FILE_LIST , { 60, 380 } )
   ::brw_FILE_LIST:iLength := LEN( ::aFDirInfo )
   ::brw_FILE_LIST:SetArray( ::aFDirInfo )
   ::brw_FILE_LIST:bLDblClick := { | nRow, nCol | btn_SELECT:Click() }
   @ 700, 10 BUTTON btn_SELECT PROMPT "Select" ;
      ACTION ( lLoop := ::Select_Clicked( ::sDir + ::aFDirInfo[::brw_FILE_LIST:nAt][1] ),  ;
      IF( !lLoop,  dlg_SELECT_FILE:End(), dlg_SELECT_FILE:End() ) ) ;
      WHEN ::lEntries OF dlg_SELECT_FILE PIXEL UPDATE
// ACTION ( lLoop := ::Select_Clicked( ::sDir + ::aFDirInfo[::brw_FILE_LIST:nAt][1] ),  IF( lLoop, dlg_SELECT_FILE:Refresh(), dlg_SELECT_FILE:End() ) ) ;
//   ACTION ( ::Select_Clicked( ::sDir + ::aFDirInfo[::brw_FILE_LIST:nAt][1] ),  dlg_SELECT_FILE:End() ) ;
   @ 700, 110 BUTTON "Cancel" ;
      ACTION ( lLoop := .F., dlg_SELECT_FILE:End() ) ;
      OF dlg_SELECT_FILE PIXEL
      ACTIVATE DIALOG dlg_SELECT_FILE CENTERED
ENDDO
RETURN nil

METHOD ChooseDir( piLevel ) CLASS FILES

LOCAL sDirName

sDirName := "/"
IF piLevel > 1
   FOR ii = 2 TO piLevel
      sDirName += ::aDirs[ii] + "/"
   NEXT
ENDIF
// MsgInfo( sDirName )
::sDir := sDirName
DirChange( ::sDir )
::GetList( .F. )
::brw_FILE_LIST:iLength := LEN( ::aFDirInfo )
::brw_FILE_LIST:SetArray( ::aFDirInfo )
RETURN nil

METHOD Select_Clicked( xProjectFile ) CLASS FILES

IF ::aFDirInfo[::brw_FILE_LIST:nAt][2] = "(dir)"
   ::sDir += ::aFDirInfo[::brw_FILE_LIST:nAt][1] + "/"
   DirChange( ::sDir )
   ::GetList( .T. )
   ::brw_FILE_LIST:iLength := LEN( ::aFDirInfo )
   ::brw_FILE_LIST:SetArray( ::aFDirInfo )
   ::lSelectionMade := .F.
   RETURN .T.
  ELSE
   ::sSelectedFile := xProjectFile
   ::lSelectionMade := .T.
   RETURN .F.
ENDIF 

Code: Select all

FUNCTION ProjectOpen()

LOCAL oFindProject

oFindProject := FILES():New()
oFindProject:bInclude := { | x | RIGHT( UPPER( x ), 4 ) = ".FLP" }
oFindProject:GetList( .T. )
oFindProject:Select( "Project File" )

RETURN nil

Code: Select all

FUNCTION Compile( xProject )

LOCAL sOsCommand

sOsCommand := "./m.sh " + xProject + " > " + xProject + ".flb" 
RUN ( sOsCommand )
MsgInfo( MemoRead( xProject + ".flb" ) )

RETURN nil