Dyalog Forums

Code: Select all

#!/bin/bash
INDIR="$PWD/_SANDBOX_"
OUTDIR="$PWD/_SANDBOX_UNICODE_"
rm -r $OUTDIR
for ws in `find $INDIR -type f \( -name "*.dws" -o -name "*.DWS" \)` 
do 
  echo "WS: $ws"
  NEWDIR=$(dirname -- "$ws")
  NEWDIR=${NEWDIR/$INDIR/$OUTDIR}
  echo $NEWDIR
  mkdir -p $NEWDIR
  cd $NEWDIR
  filename=$(basename -- "$ws")
  extension="${filename##*.}"
  WS_name="${filename%.*}"

  echo $WS_name
  /usr/bin/dyalog -tty << END_OF_FILE
  )xload $ws
  ]SNAP $NEWDIR/ -makedir
  ⍝ OK but no file generated to reload the ws
  ⍝ ]SNAP $NEWDIR/ -makedir –loadfn
  ⍝* Command Execution Failed: Unable to create file /home/viguice/Documents/_SAND
  ⍝    BOX_UNICODE_/ -makedir –loadfn/=AMECOINIT=.dyalog: /home/viguice/Document
  ⍝    s/_SANDBOX_UNICODE_/ -makedir –loadfn/=AMECOINIT=.dyalog: Unable to creat
  ⍝    e file
  ⍝ Based on https://dyalog.tv/Dyalog18/?v=w4Wp01-d3Rw but not working even using batch mode
  ⍝]CreateProject $NEWDIR/$WS_name #
  )OFF
END_OF_FILE

done

Code: Select all

CopyInAllWorkspaces←{
     ⍝ ⍵ ←→ Folder
     f←(⎕NINFO⍠1)⍵,'\*.dws' ⍝ All workspaces
     n←1⊃¨⎕NPARTS↑f          ⍝ Short file names
     s←⍎¨n ⎕NS¨⊂''          ⍝ Create namespaces
     _←s.⎕CY¨f               ⍝ Copy in code
     0
 }

Code: Select all

find . -exec file {} \; | grep -i "dyalog.*workspace" | sed 's/:.*$//'

Code: Select all

find .  -exec file -m /opt/mdyalog/19.0/64/unicode/p9/magic {} \; |\ 
   grep -i "dyalog.*workspace" | sed 's/:.*$//'

Code: Select all

#!/bin/bash
INDIR="$PWD/_SANDBOX_"
OUTDIR="$PWD/_SANDBOX_UNICODE_"
LOGFILE="$PWD/link_all.log"
TEMPFILE="$PWD/link_temp.log"
ERRFILE="$PWD/link_err.log"

rm -r $OUTDIR
rm $LOGFILE $ERRFILE
OIFS="$IFS"
IFS=$'\n'
for ws in `find $INDIR -type f \( -name "*.dws" -o -name "*.DWS" \)` 
do 
  echo "WS: $ws"
  echo "WS: $ws" >> $LOGFILE
  NEWDIR=$(dirname -- "$ws")
  NEWDIR=${NEWDIR/$INDIR/$OUTDIR}
  echo $NEWDIR
  mkdir $NEWDIR
  cd $NEWDIR
  filename=$(basename -- "$ws")
  extension="${filename##*.}"
  WS_name="${filename%.*}"
  /usr/bin/dyalog -tty << END_OF_FILE > $TEMPFILE
  ⎕PW←256
  )xload "$ws"
  ]Link.export # "./WS_$WS_name" -arrays
  )OFF
END_OF_FILE
  if grep -q "File name case clash"  "$TEMPFILE"; then
    echo "-> Force casecode" >> $LOGFILE
    echo "   Issue for $(grep "^#." $TEMPFILE | tr -d ' ' | tr '\n' ' ')" >> $LOGFILE
    /usr/bin/dyalog -tty << END_OF_FILE2 > $TEMPFILE
    ⎕PW←256
    )xload "$ws"
    ]Link.export # "./WS_$WS_name" -arrays -casecode
    )OFF
END_OF_FILE2
  fi
  if grep -q "ERROR"  "$TEMPFILE"; then
    echo "WS: $ws" >> $ERRFILE
    cat $TEMPFILE >> $ERRFILE
    echo "-> Error for $(grep "^#." $TEMPFILE | tr '\n' ' ')" >> $LOGFILE
    echo "   Retry without these objects..." >> $LOGFILE
    rm -r ./WS_$WS_name
    /usr/bin/dyalog -tty << END_OF_FILE3 > $TEMPFILE
    ⎕PW←256
    )xload "$ws"
    )erase $(grep "^#." $TEMPFILE | tr '\n' ' ')
    ]Link.export # "./WS_$WS_name" -arrays -casecode
    )OFF
END_OF_FILE3
    if grep -q "ERROR"  "$TEMPFILE"; then
      echo "WS: $ws" >> $ERRFILE
      cat $TEMPFILE >> $ERRFILE
      echo "   Still not working..." >> $LOGFILE      
    fi
  else
    cat $TEMPFILE >> $LOGFILE
  fi
  /usr/bin/dyalog -tty << END_OF_FILE4
  ⍝ ⎕SE.Link.Import # ''WS_$WS_name'' -overwrite not working
  ⍝ #.⎕FX'∆WS_LX' '⎕SE.Link.Import # ''WS_$WS_name'''
  ⍝ #.⎕FX'∆WS_LX' '⎕SE.Link.Import # (⎕WSID,WS_$WS_name)'
  #.⎕FX'∆WS_LX' '⎕SE.Link.Import # ''$NEWDIR/WS_$WS_name'''
  )SAVE $WS_name
  )OFF
END_OF_FILE4
done
IFS="$OIFS"
rm $TEMPFILE
grep -v "Opening in existing browser session." $LOGFILE
grep -v "Opening in existing browser session."  $ERRFILE