Farbflash projects: Imaging lingo table | 3-D scene list | Find all | Handler menu | Lingo message window

Changeset 84 for branches


Ignore:
Timestamp:
12/09/07 10:41:06 (4 years ago)
Author:
alex
Message:

cleanup

Location:
branches/beta
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/beta/castlib1/OSCmenu_Utilities.ls

    r80 r84  
    5252    subli.add("Batch compare selected scripts") 
    5353    pLookUpCommandList.setaprop("Batch compare selected scripts", ["mCompareSelectedScriptmembersBatch me", "bbedit_Utilities"]) 
     54     
    5455     
    5556  end if 
    … …  
    353354  pLookUpCommandList.setaprop("Fix colors in scriptlists (SES 10 -> SES 9)", ["Authoring_ExchangeScriptListColorsToRGBs me", "alexUtilities"]) 
    354355   
     356   
     357  if isMac = 1 then 
     358    --------------------------------------------------- 
     359    li.add("Unix path") 
     360    subli = [] 
     361    li.add(subli) 
     362     
     363    subli.add("Convert path from HFS to UNIX") 
     364    pLookUpCommandList.setaprop("Convert path from HFS to UNIX", ["mConvertHFS2Unix me", "alexUtilities"]) 
     365    subli.add("Convert path from UNIX to HFS") 
     366    pLookUpCommandList.setaprop("Convert path from UNIX to HFS", ["mConvertUnix2HFS me", "alexUtilities"]) 
     367     
     368  end if 
    355369   
    356370  li.add("") 

  • branches/beta/castlib1/alexUtilities.ls

    r80 r84  
    22552255end 
    22562256 
     2257-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     2258 
     2259on mConvertHFS2Unix me, fname 
     2260   
     2261  if not(the platform) contains "mac" then return fname 
     2262   
     2263  if mCheckForXtra(me, "budapi") = 0 then 
     2264    offs = offset(":", fname) 
     2265    repeat while offs 
     2266      put "/" into char offs of fname 
     2267      offs = offset(":", fname) 
     2268    end repeat 
     2269    put "/Volumes/" before fname 
     2270  else 
     2271    return baUnixName(fname) 
     2272  end if 
     2273   
     2274  return fname 
     2275   
     2276end 
     2277 
     2278-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
     2279 
     2280on mConvertUnix2Hfs me, fname 
     2281  if not(the platform) contains "mac" then return fname 
     2282   
     2283  if mCheckForXtra(me, "budapi") = 0 then 
     2284    offs = offset("/", fname) 
     2285    repeat while offs 
     2286      put ":" into char offs of fname 
     2287      offs = offset("/", fname) 
     2288    end repeat 
     2289    osDir = getOsDirectory() 
     2290    olddelim = the itemdelimiter 
     2291    the itemdelimiter = ":" 
     2292    put item 1 of osDir before fname 
     2293    the itemdelimiter = olddelim 
     2294  else 
     2295    return baHFSName(fname) 
     2296  end if 
     2297   
     2298  return fname 
     2299   
     2300end 
    22572301 
    22582302-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
    … …  
    25362580 
    25372581on mGetFloatVersionNumber me, prodVers 
    2538     offs = offset(".", prodVers) 
    2539     if offs > 0 then 
    2540       intVers = char 1 to offs of prodVers 
    2541       delete char 1 to offs of prodVers 
    2542     else 
    2543       intVers = "" 
    2544     end if 
    2545     cnt = length(prodVers) 
    2546     repeat with n = 1 to cnt 
    2547       c = prodVers.char[n] 
    2548       if integerP(integer(c)) then 
    2549         put c after intVers 
    2550       else if c <> "." then 
    2551         exit repeat 
    2552       end if 
    2553     end repeat 
    2554      
     2582  offs = offset(".", prodVers) 
     2583  if offs > 0 then 
     2584    intVers = char 1 to offs of prodVers 
     2585    delete char 1 to offs of prodVers 
     2586  else 
     2587    intVers = "" 
     2588  end if 
     2589  cnt = length(prodVers) 
     2590  repeat with n = 1 to cnt 
     2591    c = prodVers.char[n] 
     2592    if integerP(integer(c)) then 
     2593      put c after intVers 
     2594    else if c <> "." then 
     2595      exit repeat 
     2596    end if 
     2597  end repeat 
     2598   
    25552599  return value(intVers) 
    25562600end 

  • branches/beta/castlib1/bbedit_Utilities.ls

    r80 r84  
    3737        if fname.length then 
    3838           
    39           ppath = mDoShellCmd(me, "osascript -e " & QUOTE & "return POSIX path of \" & QUOTE & fname & "\" & QUOTE & QUOTE) 
     39          ppath = mConvertHFS2Unix(me, fname) 
     40          -- ppath = mDoShellCmd(me, "osascript -e " & QUOTE & "return POSIX path of \" & QUOTE & fname & "\" & QUOTE & QUOTE) 
    4041           
    4142          if charToNum(the last char of ppath) = 10 then delete the last char of ppath 
    … …  
    101102          -- tempSrcPath = tempSrcPath[1] 
    102103          tempSrcPath = "/tmp/temp_BBEdit_file.ls" 
    103           tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    104           tempSrcHFSPath = tempSrcHFSPath[1] 
     104           
     105          --          tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     106          --  tempSrcHFSPath = tempSrcHFSPath[1] 
     107          tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
     108           
     109           
    105110          theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath) 
    106111          --------------------- 
    … …  
    128133          -- create a temporary file from scripttext: 
    129134          tempSrcPath = "/tmp/" & theName & ".ls" 
    130           tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    131           tempSrcHFSPath = tempSrcHFSPath[1] 
     135           
     136          -- tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     137          -- tempSrcHFSPath = tempSrcHFSPath[1] 
     138          tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
     139           
     140           
    132141          theResult = mSaveTextToTempFile(me, theText, tempSrcHFSPath) 
    133142          --------------------- 
    … …  
    337346            if doit = 0 then 
    338347               
    339               tempSrcPath = mDoShellCmd(me, "mktemp -d -t temp_BBDiff_folder1", 1) 
    340               tempSrcPath = tempSrcPath[1] & "/" 
    341               tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    342               tempSrcHFSPath = tempSrcHFSPath[1] 
    343                
    344                
    345               tempTgtPath = mDoShellCmd(me, "mktemp -d -t temp_BBDiff_folder2", 1) 
    346               tempTgtPath = tempTgtPath[1] & "/" 
    347               tempTgtHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempTgtPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    348               tempTgtHFSPath = tempTgtHFSPath[1] 
    349                
     348              --              tempSrcPath = mDoShellCmd(me, "mktemp -d -t temp_BBDiff_folder1", 1) 
     349              --              tempSrcPath = tempSrcPath[1] & "/" 
     350               
     351              tempSrcPath = "/tmp/temp_BBDiff_folder1/" 
     352               
     353              mDoShellCmd(me, "mkdir -p " & tempSrcPath) 
     354              mDoShellCmd(me, "rm -r " & tempSrcPath) 
     355               
     356              -- tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     357              -- tempSrcHFSPath = tempSrcHFSPath[1] 
     358              tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
     359               
     360               
     361              --              tempTgtPath = mDoShellCmd(me, "mktemp -d -t temp_BBDiff_folder2", 1) 
     362              --              tempTgtPath = tempTgtPath[1] & "/" 
     363               
     364              tempTgtPath = "/tmp/temp_BBDiff_folder2/" 
     365               
     366              mDoShellCmd(me, "mkdir -p " & tempTgtPath) 
     367              mDoShellCmd(me, "rm -r " & tempTgtPath) 
     368               
     369              --tempTgtHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempTgtPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     370              --tempTgtHFSPath = tempTgtHFSPath[1] 
     371              tempTgtHFSPath = mConvertUnix2Hfs(me, tempTgtPath) 
    350372               
    351373              doit = 1 
    … …  
    431453  --  tempSrcPath = tempSrcPath[1] 
    432454  tempSrcPath = "/tmp/temp_BBDiff_file1.ls" 
    433   tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    434   tempSrcHFSPath = tempSrcHFSPath[1] 
     455   
     456  -- tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     457  -- tempSrcHFSPath = tempSrcHFSPath[1] 
     458  tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
    435459   
    436460  st1 = memref1.scripttext 
    … …  
    457481    --    tempSrcPath2 = tempSrcPath2[1] 
    458482    tempSrcPath2 = "/tmp/temp_BBDiff_file2.ls" 
    459     tempSrcHFSPath2 = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath2 & "\" & QUOTE & " as string" & QUOTE, 1) 
    460     tempSrcHFSPath2 = tempSrcHFSPath2[1] 
     483     
     484    -- tempSrcHFSPath2 = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath2 & "\" & QUOTE & " as string" & QUOTE, 1) 
     485    -- tempSrcHFSPath2 = tempSrcHFSPath2[1] 
     486    tempSrcHFSPath2 = mConvertUnix2Hfs(me, tempSrcPath2) 
     487     
    461488    comm = tempSrcPath2 
    462489     
    … …  
    617644        memref.filename = memref.filename 
    618645      else 
    619       if memref.type = #script then 
    620         aPath = mGetFilePathFromMemberComments(me, memref, isMac, CurrentOSXUserName) 
    621         if length(aPath) > 0 then 
    622           dertext = mGetTextFromFile(me, aPath) 
    623           if length(dertext) > 0 then 
    624             put "updating scripttext of member:" memref.name && "(" & memref & ")" 
    625             memref.scripttext = dertext 
     646        if memref.type = #script then 
     647          aPath = mGetFilePathFromMemberComments(me, memref, isMac, CurrentOSXUserName) 
     648          if length(aPath) > 0 then 
     649            dertext = mGetTextFromFile(me, aPath) 
     650            if length(dertext) > 0 then 
     651              put "updating scripttext of member:" memref.name && "(" & memref & ")" 
     652              memref.scripttext = dertext 
     653            end if 
    626654          end if 
    627655        end if 
    628       end if 
    629656      end if 
    630657    end repeat 
    … …  
    9891016        comm = memref.comments 
    9901017        if comm.length then 
    991          
     1018           
    9921019          aPath = mGetFilePathFromMemberComments(me, memref, isMac, CurrentOSXUserName) 
    9931020           
    9941021          if length(aPath) > 0 then 
    995            
    996           fio = (xtra "fileio").new() 
    997           if objectP(fio) then 
    998             fio.openFile(aPath, 0) 
    999             if fio.status() = 0 then 
    1000               vergText = fio.readFile() 
    1001               fio.closeFile() 
    1002               memscr = memref.scripttext 
    1003               if vergText <> memscr then 
    1004                  
    1005                 isEqual = 0 
    1006                 if mCheckForXtra(me, "Pregex") = 1 then 
     1022             
     1023            fio = (xtra "fileio").new() 
     1024            if objectP(fio) then 
     1025              fio.openFile(aPath, 0) 
     1026              if fio.status() = 0 then 
     1027                vergText = fio.readFile() 
     1028                fio.closeFile() 
     1029                memscr = memref.scripttext 
     1030                if vergText <> memscr then 
    10071031                   
    1008                   memscrLi = [memscr] 
    1009                   pregex_replace(memscrLi, "\s", "ig", "") 
    1010                   memscrLi = memscrLi[1] 
     1032                  isEqual = 0 
     1033                  if mCheckForXtra(me, "Pregex") = 1 then 
     1034                     
     1035                    memscrLi = [memscr] 
     1036                    pregex_replace(memscrLi, "\s", "ig", "") 
     1037                    memscrLi = memscrLi[1] 
     1038                     
     1039                    vergTextLi = [vergText] 
     1040                    pregex_replace(vergTextLi, "\s", "ig", "") 
     1041                    vergTextLi = vergTextLi[1] 
     1042                     
     1043                    isEqual = (memscrLi = vergTextLi) 
     1044                  end if 
    10111045                   
    1012                   vergTextLi = [vergText] 
    1013                   pregex_replace(vergTextLi, "\s", "ig", "") 
    1014                   vergTextLi = vergTextLi[1] 
    1015                    
    1016                   isEqual = (memscrLi = vergTextLi) 
    1017                 end if 
    1018                  
    1019                 if isEqual = 0 then 
    1020                    
    1021                   if length(bbdiffpath) < 1 then 
     1046                  if isEqual = 0 then 
    10221047                     
    1023                      
    1024                     if not(the platform contains "mac") then 
    1025                       put "-------------------------------------------------------" 
    1026                       put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN 
    1027                       put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN 
    1028                     else 
     1048                    if length(bbdiffpath) < 1 then 
    10291049                       
     1050                       
     1051                      if not(the platform contains "mac") then 
     1052                        put "-------------------------------------------------------" 
     1053                        put RETURN&"neuer = new(#field)"&RETURN&"neuer.text = "&memref&".scripttext"&RETURN&"neuer.copyToClipBoard()"&RETURN&"neuer.erase()"&RETURN 
     1054                        put RETURN&"shell_cmd("&QUOTE&"PBPaste | BBedit ; BBedit "&memref.comments&QUOTE&")"&RETURN 
     1055                      else 
    10301056                         
    10311057                        if (mCheckForXtra(me, "Shell") + mCheckForXtra(me, "ff_shell")) = 0  then 
    … …  
    10401066                          neuer.copyToClipBoard() 
    10411067                          neuer.erase() 
    1042                           mDoShellCmd(me, "PBPaste | BBedit ; BBedit "&memref.comments) 
     1068                           
     1069                          comm = memref.comments 
     1070                          if char 1 of comm = "~" then put "$HOME" into char 1 of comm 
     1071                           
     1072                          mDoShellCmd(me, "PBPaste | BBedit ; BBedit " & comm) 
    10431073                           
    10441074                        end if 
    … …  
    10461076                      end if 
    10471077                       
    1048                      
    1049                   else 
    1050                      
    1051                      
    1052                     tempSrcPath = mDoShellCmd(me, "mktemp -t temp_BBDiff_file1", 1) 
    1053                     tempSrcPath = tempSrcPath[1] 
    1054                     tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    1055                     tempSrcHFSPath = tempSrcHFSPath[1] 
    1056                      
    1057                     mSaveTextToTempFile(me, memref.scripttext, tempSrcHFSPath) 
    1058                      
    1059                     --                    comm = memref.comments 
    1060                     --                    if comm.length then 
    1061                     --                      if char 1 of comm = "~" then 
    1062                     --                        put shell_Cmd("echo -n $HOME") into char 1 of comm 
    1063                     --                      end if 
    1064                     --                    end if 
    1065                      
    1066                     mDoShellCmd(me, bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE) 
    1067                      
    1068                     memref.scripttext = mGetTextFromFile(me, tempSrcHFSPath) 
     1078                    else 
     1079                       
     1080                       
     1081                      --                      tempSrcPath = mDoShellCmd(me, "mktemp -t temp_BBDiff_file1.ls", 1) 
     1082                      --                      tempSrcPath = tempSrcPath[1] 
     1083                      tempSrcPath = "/tmp/temp_BBEdit_file.ls" 
     1084                       
     1085                      -- tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
     1086                      -- tempSrcHFSPath = tempSrcHFSPath[1] 
     1087                      tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
     1088                       
     1089                      mSaveTextToTempFile(me, memref.scripttext, tempSrcHFSPath) 
     1090                       
     1091                      --                    comm = memref.comments 
     1092                      --                    if comm.length then 
     1093                      --                      if char 1 of comm = "~" then 
     1094                      --                        put shell_Cmd("echo -n $HOME") into char 1 of comm 
     1095                      --                      end if 
     1096                      --                    end if 
     1097                       
     1098                       
     1099                      if char 1 of comm = "~" then put "$HOME" into char 1 of comm 
     1100                       
     1101                      mDoShellCmd(me, bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE) 
     1102                       
     1103                      memref.scripttext = mGetTextFromFile(me, tempSrcHFSPath) 
     1104                       
     1105                    end if 
    10691106                     
    10701107                  end if 
    10711108                   
     1109                   
    10721110                end if 
    10731111                 
    1074                  
    10751112              end if 
    10761113               
    10771114            end if 
    1078              
    1079           end if 
    10801115          end if 
    10811116        end if 
    … …  
    11151150  clistr = "bbedit" 
    11161151   
    1117   home = mDoShellCmd(me, "echo -n $HOME") 
     1152  -- home = mDoShellCmd(me, "echo -n $HOME") 
    11181153   
    11191154  repeat with sub in sel 
    … …  
    11251160        if comm.length then 
    11261161          if char 1 of comm = "~" then 
    1127             put home into char 1 of comm 
     1162            -- put home into char 1 of comm 
     1163            put "$HOME" into char 1 of comm 
    11281164          end if 
    11291165          put " "&comm after clistr 

  • branches/beta/castlib1/memberInfo.xml

    r70 r84  
    3131                <fName>simpleBMMenu</fName> 
    3232        </simpleBMMenu> 
    33         <myNewFieldMember> 
    34                 <scriptType>#field</scriptType> 
    35                 <comments></comments> 
    36                 <memberName>myNewFieldMember</memberName> 
    37                 <fName>myNewFieldMember</fName> 
    38         </myNewFieldMember> 
    3933        <OSCmenu_Utilities> 
    4034                <scriptType>#score</scriptType> 
    … …  
    4539        <alexUtilities> 
    4640                <scriptType>#parent</scriptType> 
    47                 <comments></comments> 
     41                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
    4842                <memberName>alexUtilities</memberName> 
    4943                <fName>alexUtilities</fName> 
    5044        </alexUtilities> 
    51         <svn_Utilities> 
    52                 <scriptType>#parent</scriptType> 
    53                 <comments></comments> 
    54                 <memberName>svn_Utilities</memberName> 
    55                 <fName>svn_Utilities</fName> 
    56         </svn_Utilities> 
    57         <bbedit_Utilities> 
    58                 <scriptType>#parent</scriptType> 
    59                 <comments></comments> 
    60                 <memberName>bbedit_Utilities</memberName> 
    61                 <fName>bbedit_Utilities</fName> 
    62         </bbedit_Utilities> 
    6345        <convert_Lingo_2_CSS_Html> 
    6446                <scriptType>#movie</scriptType> 
    … …  
    118100                <fName>texthyperlinkBehavior</fName> 
    119101        </texthyperlinkBehavior> 
    120         <bbdiff> 
    121                 <scriptType>#movie</scriptType> 
    122                 <comments></comments> 
    123                 <memberName>bbdiff</memberName> 
    124                 <fName>bbdiff</fName> 
    125         </bbdiff> 
    126102        <statusOutput> 
    127103                <scriptType>#text</scriptType> 
    … …  
    133109                <fName>statusOutput</fName> 
    134110        </statusOutput> 
     111        <bbedit_Utilities> 
     112                <scriptType>#parent</scriptType> 
     113                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
     114                <memberName>bbedit_Utilities</memberName> 
     115                <fName>bbedit_Utilities</fName> 
     116        </bbedit_Utilities> 
     117        <svn_Utilities> 
     118                <scriptType>#parent</scriptType> 
     119                <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments> 
     120                <memberName>svn_Utilities</memberName> 
     121                <fName>svn_Utilities</fName> 
     122        </svn_Utilities> 
    135123</Untitled> 

  • branches/beta/castlib1/svn_Utilities.ls

    r72 r84  
    22 
    33on new me 
    4 ancestor = new(script "alexUtilities") 
    5 return me 
     4  ancestor = new(script "alexUtilities") 
     5  return me 
    66end 
    77 
    … …  
    8484          --------------------- 
    8585          -- create a temporary file from scripttext: 
    86           tempSrcPath = mDoShellCmd(me, "mktemp -t temp_BBDiff_file1", 1) 
    87           tempSrcPath = tempSrcPath[1] 
    88            
    89           if mCheckForXtra(me, "budapi") = 0 then 
    90             tempSrcHFSPath = mDoShellCmd(me, "osascript -e" && QUOTE & "return POSIX file \" & QUOTE & tempSrcPath & "\" & QUOTE & " as string" & QUOTE, 1) 
    91             tempSrcHFSPath = tempSrcHFSPath[1] 
    92           else 
    93             tempSrcHFSPath = baHFSName(tempSrcPath) 
    94           end if 
     86          --          tempSrcPath = mDoShellCmd(me, "mktemp -t temp_BBDiff_file1", 1) 
     87          --          tempSrcPath = tempSrcPath[1] 
     88          tempSrcPath = "/tmp/temp_BBEdit_file1.ls" 
     89           
     90          tempSrcHFSPath = mConvertUnix2Hfs(me, tempSrcPath) 
    9591           
    9692           
    … …  
    134130           
    135131           
    136            
    137           if mCheckForXtra(me, "budapi") = 0 then 
    138             comm = thePath 
    139             offs = offset(":", comm) 
    140             repeat while offs 
    141               put "/" into char offs of comm 
    142               offs = offset(":", comm) 
    143             end repeat 
    144             put "/Volumes/" before comm 
    145           else 
    146             comm = baUnixName(thePath) 
    147           end if 
     132          comm = mConvertHFS2Unix(me, thePath) 
     133           
    148134           
    149135          theResult = mDoShellCmd(me, bbdiffpath & " --ignore-curly-quotes --ignore-spaces --wait --resume " &QUOTE& tempSrcPath &QUOTE&&QUOTE& comm &QUOTE && "2>&1", 1) 

  • branches/beta/castlib2/FileIOFunktionen.ls

    r80 r84  
    1 -- FileIO Handlers -- ©03 Alex da Franca -- alex@farbflash.de 
     1-- FileIO Handlers -- ©03 Alex da Franca -- alex@farbflash.de 
    22--------------------------------------------------------------------- 
    33 
    … …  
    606606 
    607607on interface me 
    608   str = "FileIO Scripts  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved" 
     608  str = "FileIO Scripts  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved" 
    609609   
    610610  put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str 

  • branches/beta/castlib2/PseudoXMLPS.ls

    r72 r84  
    1 -- Pseudo XML by Alex da Franca ©2003 
     1-- Pseudo XML by Alex da Franca ©2003 
    22-- Convert a lingo list to a XML like string and back 
    33 
    … …  
    6060 
    6161on interface me 
    62   str = "Pseudo XML Script  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved" 
     62  str = "Pseudo XML Script  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved" 
    6363  put RETURN & "version 1" after str 
    6464   
    … …  
    860860      if count(val) then 
    861861        if ilk(retlist) = #proplist then 
    862         retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues)) 
    863       else 
     862          retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues)) 
     863        else 
    864864          retlist.add(mConvertXMLPropList(me, val, convertValues)) 
    865865        end if 
    … …  
    939939         
    940940        if ilk(retlist) = #proplist then 
    941         retlist.addProp(symbol(inputlist[n].getaprop(#name)), val) 
     941          retlist.addProp(symbol(inputlist[n].getaprop(#name)), val) 
    942942        else 
    943943          retlist.add(val) 

  • branches/beta/castlib2/aleXtrasMovieScript.ls

    r72 r84  
    1 -- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de 
     1-- LDM Xtras Moviescript -- ©05 Alex da Franca -- alex@farbflash.de 
    22--------------------------------------------------------------------- 
    33 
    … …  
    5454on mCallDestroy 
    5555  call(#mCallDestroy, mGetXScript()) 
    56   -- call(#mDestroy, the actorlist) 
     56 -- call(#mDestroy, the actorlist) 
    5757end 
    5858 
Note: See TracChangeset for help on using the changeset viewer.