DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d36ca318a⟧ TextFile

    Length: 567 (0x237)
    Types: TextFile
    Names: »ISCHAR.PAS«

Derivation

└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
    └─⟦this⟧ »RTP\ISCHAR.PAS« 
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\ISCHAR.PAS« 
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\ISCHAR.PAS« 
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
    └─⟦this⟧ »ISCHAR.PAS« 
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
    └─⟦this⟧ »RTP\ISCHAR.PAS«

TextFile

\r
function is_chararray(var node_addr: st_address;var node_ptr: st_elemptr):boolean;\r
var result: boolean;\r
begin\r
  (* TOG !!! new rtp86 !!! , string = array( ) of char *)\r
  result:=false;\r
  if not equal_addr(node_addr, st_nilladdr) then\r
  begin\r
  st_retrievetype(node_ptr^.typeref, node_ptr);\r
  if node_ptr^.st_kind=carraytype then\r
  begin\r
    st_retrievetype(node_ptr^.typeref, node_ptr);\r
    if node_ptr^.st_kind=cchar then\r
    begin\r
      node_addr:=st_string_type_addr;\r
      result:=true;\r
    end;\r
  end;\r
  end;\r
  is_chararray:= result;\r
end;\r
«eof»