Changeset 3451


Ignore:
Timestamp:
Feb 10, 2019, 11:57:06 PM (6 years ago)
Author:
Andreas Schnellbacher
Message:
  • Added real case for Alt_1-loaded file.
  • Use '*' instaed of '*.*' as search filemask.
  • Cosmetic changes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/src/netlabs/macros/alt_1.e

    r3448 r3451  
    143143compile endif
    144144   -- Edit filename on current text line
    145    getline line
    146    orig_line = line
     145   getline LineStr
     146   OrgLineStr = LineStr
    147147   SearchPath = '%INCLUDE%;%PATH%'  -- default search path
    148148   CurMode = GetMode()
    … …  
    152152
    153153   -------------------------------------------------------------------------- shell or .DOS DIR
    154    call psave_pos( save_pos)
     154   call pSave_Pos( savepos)
    155155   getsearch oldsearch
    156156   Cmd = ''
    … …  
    169169      SearchPath = ShellDir';%PATH%'
    170170      setsearch oldsearch
    171       call prestore_pos( save_pos)
     171      call pRestore_Pos( savepos)
    172172   elseif upcase( leftstr( .filename, 8)) = '.DOS DIR' then  -- if a .DOS DIR buffer,
    173173      parse value upcase( .filename) with '.DOS DIR' Params  -- retrieve params from the title
    … …  
    176176   endif
    177177
    178    if upcase(cmd) = 'DIR' then  -- if "dir" executed as last cmd in .command_shell_ or if .DOS DIR
     178   if upcase( cmd) = 'DIR' then  -- if "dir" executed as last cmd in .command_shell_ or if .DOS DIR
    179179      Flags    = ''
    180180      Mask     = ''
    … …  
    184184
    185185      if pos( 'B', Flags) then  -- if DIR /B, lines are filenames only and there is no "Directory of" line
    186          Name = line
     186         Name = LineStr
    187187         wildcardpos = verify( Mask, '*?', 'M')
    188188         if wildcardpos then                               -- if a wildcard is used
    … …  
    248248               enddo
    249249               setsearch oldsearch
    250                call prestore_pos(save_pos)
     250               call pRestore_Pos( savepos)
    251251
    252252               --sayerror 'drive = 'drive', prevdir = 'prevdir', cddir = 'cddir', dirname = 'dirname
    … …  
    292292      elseif pos( 'F', flags) then  -- if DIR /F, then the line is the fully-qualified filename
    293293                                    -- Note: DIR /F /B is resolved to DIR /B.
    294          FullName = line
     294         FullName = LineStr
    295295
    296296      else  -- if not DIR /F or DIR /B, then parse the dir listing
    … …  
    298298
    299299         -- Check if word under cursor is fully qualified
    300          p1 = pos( ':\', line)
    301          p2 = pos( '\\', line)
     300         p1 = pos( ':\', LineStr)
     301         p2 = pos( '\\', LineStr)
    302302         if p1 > 0 then
    303             FullName = strip( substr( line, p1 - 1))
     303            FullName = strip( substr( LineStr, p1 - 1))
    304304         elseif p2 > 0 then
    305             FullName = strip( substr( line, p2))
     305            FullName = strip( substr( LineStr, p2))
    306306         endif
    307307
    308308         if FullName = '' then
    309             if verify( word( line, 1), DIR_DATETIME_CHARS) = 0 &            -- date
    310                Alt1VerifyTime( word( line, 2), DIR_DATETIME_CHARS) then     -- time
     309            if verify( word( LineStr, 1), DIR_DATETIME_CHARS) = 0 &            -- date
     310               Alt1VerifyTime( word( LineStr, 2), DIR_DATETIME_CHARS) then     -- time
    311311               -- probably a dir listing, not FAT
    312                NameIsDir = (word( line, 3) = '<DIR>')
    313                if verify( word( line, 3), DIR_SIZE_CHARS) = 0 |             -- size
     312               NameIsDir = (word( LineStr, 3) = '<DIR>')
     313               if verify( word( LineStr, 3), DIR_SIZE_CHARS) = 0 |             -- size
    314314                  NameIsDir then
    315                   if verify( word( line, 4), DIR_SIZE_CHARS) = 0 then       -- EAsize
    316                      if verify( word( line, 5), DIR_ATTRIB_CHARS) = 0 &     -- attribs if /v specified
    317                         length( word( line, 5)) = 4 &
    318                         word( line, 6) <> '' then
    319                         Name = subword( line, 6)
     315                  if verify( word( LineStr, 4), DIR_SIZE_CHARS) = 0 then       -- EAsize
     316                     if verify( word( LineStr, 5), DIR_ATTRIB_CHARS) = 0 &     -- attribs if /v specified
     317                        length( word( LineStr, 5)) = 4 &
     318                        word( LineStr, 6) <> '' then
     319                        Name = subword( LineStr, 6)
    320320                     else
    321                         Name = subword( line, 5)
     321                        Name = subword( LineStr, 5)
    322322                     endif
    323323                  else
    … …  
    327327                  --sayerror 'non-FAT size is invalid'
    328328               endif
    329             elseif verify( word( line, words(line) - 1), DIR_DATETIME_CHARS) = 0 &  -- date
    330                Alt1VerifyTime( word( line, words(line)), DIR_DATETIME_CHARS) then   -- time
     329            elseif verify( word( LineStr, words( LineStr) - 1), DIR_DATETIME_CHARS) = 0 &  -- date
     330               Alt1VerifyTime( word( LineStr, words( LineStr)), DIR_DATETIME_CHARS) then   -- time
    331331               -- probably a dir listing, FAT
    332332               --sayerror 'passed FAT code date/time verify'
    333                NameIsDir = (word( line, words(line) - 2) = '<DIR>')
    334                if verify( word( line, words(line) - 2), DIR_SIZE_CHARS) = 0 |       -- size
     333               NameIsDir = (word( LineStr, words( LineStr) - 2) = '<DIR>')
     334               if verify( word( LineStr, words( LineStr) - 2), DIR_SIZE_CHARS) = 0 |       -- size
    335335                  NameIsDir then
    336                   p = wordindex( line, words(line) - 2)  -- col of 3rdlast word
    337                   Name = strip( substr( line, 1, p - 1))
     336                  p = wordindex( LineStr, words( LineStr) - 2)  -- col of 3rdlast word
     337                  Name = strip( substr( LineStr, 1, p - 1))
    338338                  HasExtCol = ((substr( Name, 9, 1) = ' ') & (pos( Name, '.') = 0))  -- listing with separated extension column
    339339                  if HasExtCol then
    … …  
    399399      endif
    400400      attrib = ''
    401       -- qfilemode: Check if file or dir exists and query attribs
    402       if (qfilemode( FullName, attrib) = 0) & (FullName > '') then
     401      -- QFileMode: Check if file or dir exists and query attribs
     402      if (QFileMode( FullName, attrib) = 0) & (FullName > '') then
    403403         if verify( FullName, ' =', 'M') then  -- enquote
    404404            FullName = '"'FullName'"'
    … …  
    418418   -------------------------------------------------------------------------- .tree
    419419   if upcase( leftstr( .filename, 5)) = '.TREE' then
    420       if substr( line, 5, 1)''substr( line, 8, 1)''substr( line, 15, 1) ||
    421          substr( line, 18, 1) = '--::' then
    422          name = substr( line, 52)
    423          if substr( line, 31, 1) = '>' then
     420      if substr( LineStr, 5, 1)''substr( LineStr, 8, 1)''substr( LineStr, 15, 1) ||
     421         substr( LineStr, 18, 1) = '--::' then
     422         name = substr( LineStr, 52)
     423         if substr( LineStr, 31, 1) = '>' then
    424424            if isadefc( 'tree_dir') then
    425                'tree_dir "'name'\*.*"'
     425               'tree_dir "'name'\*"'
    426426            else
    427427               'dir' name
    … …  
    448448   parse value .filename with file ext .
    449449   if ext = 'OUTPUT' & file = substr( 'LISTFILE', 1, length( file)) then
    450       parse value line with fn ft fm .
     450      parse value LineStr with fn ft fm .
    451451      parse value .userstring with '[lt:'lt']'
    452452      if lt = '' then
    … …  
    461461   -- LaMail index support
    462462   if upcase( rightstr( .filename, 4)) = '.NDX' then
    463       parse value orig_line with 28 fn ft . 84 ext
    464       if pos(\1, ext) then
     463      parse value OrgLineStr with 28 fn ft . 84 ext
     464      if pos( \1, ext) then
    465465         'e' substr( .filename, 1, length( .filename) - 4)'\'fn'.'ft
    466466         return
    … …  
    472472   -- should work with any preprocesor, filetype, past  to future
    473473   -- set 'ESEARCH' to search other directories
    474    parse value lowcase( line) with word1 word2 .
     474   parse value lowcase( LineStr) with word1 word2 .
    475475   if rightstr( word1, 7) = 'include' then  -- if first word ends in "include"
    476476      delim = leftstr( word2, 1)
    477477      fTryCurFirst = 1
    478478      if pos( delim, "'" || '"') > 0 then   -- file has quote delimiters?
    479          parse value line with . (delim) filename (delim) .
     479         parse value LineStr with . (delim) filename (delim) .
    480480      elseif delim = '<' then
    481          parse value line with . '<' filename '>' .
     481         parse value LineStr with . '<' filename '>' .
    482482         if CurMode = 'C' then
    483483            fTryCurFirst = 0
    484 ;             if lowcase('  ' || rightstr(filename, 2)) <> '.h' then  JBSQ: Support new C++ includes w/o '.h'?
     484;             if lowcase( '  ' || rightstr( filename, 2)) <> '.h' then  JBSQ: Support new C++ includes w/o '.h'?
    485485;                filename = filename || '.h'
    486486;             endif
    … …  
    504504   ext = substr( upcase( .filename), lastpos( '.', upcase( .filename)) + 1)
    505505   if ext = 'USE' or ext = 'XRF' then
    506       if substr( line, 1, 1) = ' ' then  -- child line
    507          parse value line with . infunc linenum file
     506      if substr( LineStr, 1, 1) = ' ' then  -- child line
     507         parse value LineStr with . infunc linenum file
    508508         for i = .line - 1 to 1 by -1    -- search upward for parent line
    509             getline line, i
    510             if substr( line, 1, 1) <> ' ' then
    511                parse value line with func .
     509            getline LineStr, i
     510            if substr( LineStr, 1, 1) <> ' ' then
     511               parse value LineStr with func .
    512512               leave
    513513            endif
    … …  
    525525         sayerror 'Found 'func' in 'infunc' in 'file'.'
    526526      else                               -- parent line
    527          parse value line with func linenum file
     527         parse value LineStr with func linenum file
    528528         if linenum = '#' then           -- might have a '#' in 2nd column
    529529            parse value file with linenum file
    … …  
    552552   parse value .filename with filename filetyp fmode .  -- Not as crude, TJR
    553553   if ('INDEX' = filetyp & 'PROCS' = rightstr( filename, 5)) then
    554       if vmfile( fn, ft) then
    555          parse value line with proc fn ft uid node date .
     554      if VmFile( fn, ft) then
     555         parse value LineStr with proc fn ft uid node date .
    556556         if ('PROCS' <> ft) then                 -- Is the current line an entry?
    557             getline line, .line - 1              -- Go back one line and try again.
    558             parse value line with proc fn ft uid node date .
     557            getline LineStr, .line - 1           -- Go back one line and try again.
     558            parse value LineStr with proc fn ft uid node date .
    559559            if ('PROCS' <> ft) then              -- One more time. . . .
    560560               sayerror 'Sorry, cursor is not at a PROCS index entry.  No file loaded.'
    … …  
    583583               return
    584584            else
    585                getline line
    586                if (uid = substr( line, lastpos( 'by ', line) + 3,
    587                                  length(uid))) then
     585               getline LineStr
     586               if (uid = substr( LineStr, lastpos( 'by ', LineStr) + 3,
     587                                 length( uid))) then
    588588                  sayerror proc' macro added by 'uid' on 'date'.'
    589589                  beginline                      -- Move to beginning.
    … …  
    606606   lp = lastpos( '\', word( .filename, 1))
    607607   if substr( .filename, lp + 1, 17) = '.Output from grep' then
    608       parse value textline(1) with 'SEARCH:'next
     608      parse value textline( 1) with 'SEARCH:'next
    609609      if next > '' then
    610610         fGnuGrep = 0
    … …  
    618618   if fGnuGrep = 1 then
    619619      -- New: get current dir from line 1 to handle relative paths.
    620       parse value textline(2) with 'Current directory = 'CurDir
    621 
    622       if substr( line, 1, 2) = '\\' | substr( line, 2, 2) = ':\' then  -- fully qualified
    623          parse value substr( line, 3) with next':'LineNumber':'rest
    624          FileName = substr( line, 1, 2 + length(next))
     620      parse value textline( 2) with 'Current directory = 'CurDir
     621
     622      if substr( LineStr, 1, 2) = '\\' | substr( LineStr, 2, 2) = ':\' then  -- fully qualified
     623         parse value substr( LineStr, 3) with next':'LineNumber':'rest
     624         FileName = substr( LineStr, 1, 2 + length( next))
    625625         FileName = translate( FileName, '\', '/')
    626626      else
    627          parse value line with FileMask':'LineNumber':'rest
     627         parse value LineStr with FileMask':'LineNumber':'rest
    628628         if LineNumber then
    629629            FileMask = translate( FileMask, '\', '/')
    … …  
    651651      fGnuGrep = 0 then                                               -- LAM's GREP
    652652      getsearch oldsearch
    653       call psave_pos( save_pos)
     653      call pSave_Pos( savepos)
    654654      'xcom l .   File #. -'          -- Find previous file
    655655         setsearch oldsearch
    … …  
    659659      else
    660660         getline newline
    661          call prestore_pos( save_pos)
     661         call pRestore_Pos( savepos)
    662662         parse value newline with "==> " filename " <=="
    663663         call A1Load( filename, SearchPath, 1)
    664664;;compile if 1                                                -- LAM:  I use /L
    665665;  Now supports both; if line starts with a number, assume /L; if not, do search.
    666          parse value orig_line with num ')'
    667          if pos('(', num) & not pos(' ', num) then
     666         parse value OrgLineStr with num ')'
     667         if pos( '(', num) & not pos( ' ', num) then
    668668            parse value num with . '(' num
    669669         endif
    670670         parse value num with num ':' col
    671          if IsNum(num) then
     671         if IsNum( num) then
    672672            y = num
    673673            x = 1
    674674            .cursory = .windowheight%2
    675             if IsNum(col) then
     675            if IsNum( col) then
    676676               x = col
    677677            endif
    678             'postme goto' y x
     678            'PostMe GoTo' y x
    679679            return
    680680         endif
    681681;;compile else                                                -- TJR doesn't
    682          parse value orig_line with "==>" tempstr
     682         parse value OrgLineStr with "==>" tempstr
    683683         if tempstr = ''  then
    684684            -- Let it be hilighted by the built-in stuff...
    685             'postme xcom l '\158''orig_line\158'eaf+'          /* ALT-158 is the search delim */
     685            'PostMe xcom l '\158''OrgLineStr\158'eaf+'          -- ALT-158 is the search delim
    686686            if rc then
    687                sayerror substr( line, 1, 60)'. . . Not Found.'
     687               sayerror substr( LineStr, 1, 60)'. . . Not Found.'
    688688            endif
    689689         endif
    … …  
    696696   ---------------------------------------------------------------------------- .Output from gsee
    697697   if substr( .filename, 1, 17) = '.Output from gsee' then            -- LAM's GSEE
    698       parse value line with name '.' ext 13 52 path
    699       if substr( line, 9, 1) = '.' & substr( line, 53, 1) = ':' then
     698      parse value LineStr with name '.' ext 13 52 path
     699      if substr( LineStr, 9, 1) = '.' & substr( LineStr, 53, 1) = ':' then
    700700         if length( path) > 3 then
    701701            path = path'\'
    702702         endif
    703          call A1Load( path''strip(name)'.'ext, SearchPath, 0)
     703         call A1Load( path''strip( name)'.'ext, SearchPath, 0)
    704704         return
    705705      endif
    … …  
    711711   linenum = ''
    712712   col = ''
    713    p = pos( '(', line)
     713   p = pos( '(', LineStr)
    714714   if p > 0 then
    715       parse value line with next '(' num ')' .
     715      parse value LineStr with next '(' num ')' .
    716716      if verify( num, '0123456789:') = 0 then  -- if number or colon
    717          p2 = pos( strip( strip(next), 'b', \9), line)
     717         p2 = pos( strip( strip( next), 'b', \9), LineStr)
    718718         if p2 > 0 then
    719719            .col = p2
    720720         endif
    721          line    = next
     721         LineStr = next
    722722         linenum = num
    723723         parse value linenum with linenum ':' col  -- LAM: CSet/2 includes column
    … …  
    732732   SeparatorList = '"'||"'"||'(){}[]<>,;|+ '\9'#'
    733733
    734    -- call find_token( StartCol, EndCol, SeparatorList, '')
     734   -- call Find_Token( StartCol, EndCol, SeparatorList, '')
    735735   -- fWordFound = (StartCol <> 0 & EndCol >= StartCol)
    736736   -- Checking the return code is better in the case the cursor is
    737737   -- on a 'diad'.  JBS
    738    rcx = find_token( StartCol, EndCol, SeparatorList, '')
     738   rcx = Find_Token( StartCol, EndCol, SeparatorList, '')
    739739   fWordFound = (rcx == 1)
    740740
    741741   if fWordFound then  -- if word found
    742       Spec = substr( line, StartCol, EndCol - StartCol + 1)
     742      Spec = substr( LineStr, StartCol, EndCol - StartCol + 1)
    743743      -- strip trailing periods
    744744      -- This has been moved ahead of where it was in order to handle
    … …  
    815815      -- Found by the last procs?
    816816      if NepmdFileExists( Spec) then
    817          'edit "'Spec'"'
     817         'Edit "'Spec'"'
    818818      elseif NepmdDirExists( Spec) then
    819819         --'dir "'Spec'"'
    … …  
    826826   else
    827827      if linenum > '' & col > '' then
    828          'postme goto' linenum col
     828         'PostMe GoTo' linenum col
    829829      elseif linenum > '' then
    830          'postme goto' linenum
     830         'PostMe GoTo' linenum
    831831      endif
    832832   endif
    … …  
    889889
    890890      getfileid curfid
    891       'tree 'strip( Dir, 't', '\')'\'SpecName
     891      'Tree 'strip( Dir, 't', '\')'\'SpecName
    892892      getfileid treefid
    893893      if treefid <> curfid then
    … …  
    906906   Title = 'Find file "'SpecName'" in tree'
    907907   Text  = 'Start in directory:'
    908    Text  = Text''copies( ' ', Max( 100 - length(Text), 0))
     908   Text  = Text''copies( ' ', Max( 100 - length( Text), 0))
    909909   parse value EntryBox( Title,
    910910                         '/~OK/Change to ~work dir/Cancel',
    … …  
    912912                         0,
    913913                         240,
    914                          atoi(1) || atoi(0) || atol(0) ||
     914                         atoi( 1) || atoi( 0) || atol( 0) ||
    915915                         Text) with button 2 Dir \0
    916916   Dir = strip( Dir)
    … …  
    944944
    945945   if WildcardPos then
    946       if YES_CHAR <> AskYesNo( WILDCARD_WARNING__MSG, '', filename) then
     946      if YES_CHAR <> AskYesNo( WILDCARD_WARNING__MSG, '', FileName) then
    947947         return
    948948      endif
    949       'edit "'FileName'"'
     949      FileName = GetRealCase( FileName)
     950      'Edit "'FileName'"'
    950951
    951952   else
    952       call parse_filename( FileName)
     953      call Parse_FileName( FileName)
    953954
    954955      -- Every check for existing names returns always 0 for wildcards in name.
    … …  
    994995         -- LoadName must exist
    995996         FullName = NepmdQueryFullname( LoadName)
    996          --dprintf( 'A1Load: FullName = 'FullName', LoadName = 'LoadName)
    997          'edit "'FullName'"'
     997         'Edit "'FullName'"'
    998998      endif
    999999   endif
Note: See TracChangeset for help on using the changeset viewer.