Position Independent Source Code

Hex Artifact Content
Login

Artifact 6be3bb68af7e378463fb2d1116a647a71582dbc7:


0000: 2f 2a 20 50 61 72 73 69 6e 67 20 43 53 56 20 64  /* Parsing CSV d
0010: 61 74 61 20 69 6e 20 50 49 53 43 20 2a 2f 0a 22  ata in PISC */."
0020: 44 69 63 74 73 2e 70 69 73 63 22 20 69 6d 70 6f  Dicts.pisc" impo
0030: 72 74 0a 0a 3a 20 70 61 72 73 65 2d 63 73 76 2d  rt..: parse-csv-
0040: 63 6f 72 65 20 28 20 72 65 61 64 65 72 20 2d 2d  core ( reader --
0050: 20 76 65 63 20 5b 20 76 65 63 20 5d 20 29 20 0a   vec [ vec ] ) .
0060: 09 3a 72 65 61 64 65 72 0a 09 3c 76 65 63 74 6f  .:reader..<vecto
0070: 72 3e 20 3a 72 65 73 75 6c 74 73 0a 09 66 20 3a  r> :results..f :
0080: 69 6e 53 74 72 69 6e 67 0a 09 5b 20 24 69 6e 53  inString..[ $inS
0090: 74 72 69 6e 67 20 6e 6f 74 20 5d 20 3a 6f 75 74  tring not ] :out
00a0: 4f 66 53 74 72 69 6e 67 0a 0a 09 2f 2a 20 53 65  OfString.../* Se
00b0: 74 20 75 70 20 74 68 65 20 74 65 6d 70 6f 72 61  t up the tempora
00c0: 72 79 20 76 61 72 69 61 62 6c 65 73 20 2a 2f 0a  ry variables */.
00d0: 09 5b 20 22 22 20 3a 74 65 6d 70 53 74 72 20 5d  .[ "" :tempStr ]
00e0: 20 3a 72 65 73 65 74 43 65 6c 6c 0a 09 5b 20 72   :resetCell..[ r
00f0: 65 73 65 74 43 65 6c 6c 20 3c 76 65 63 74 6f 72  esetCell <vector
0100: 3e 20 3a 74 65 6d 70 56 65 63 20 5d 20 64 75 70  > :tempVec ] dup
0110: 20 63 61 6c 6c 20 3a 72 65 73 65 74 4c 69 6e 65   call :resetLine
0120: 0a 0a 09 5b 20 24 74 65 6d 70 56 65 63 20 24 74  ...[ $tempVec $t
0130: 65 6d 70 53 74 72 20 76 65 63 2d 61 70 70 65 6e  empStr vec-appen
0140: 64 20 3a 74 65 6d 70 56 65 63 20 72 65 73 65 74  d :tempVec reset
0150: 43 65 6c 6c 20 5d 20 3a 61 64 64 43 65 6c 6c 0a  Cell ] :addCell.
0160: 09 5b 20 24 72 65 73 75 6c 74 73 20 24 74 65 6d  .[ $results $tem
0170: 70 56 65 63 20 76 65 63 2d 61 70 70 65 6e 64 20  pVec vec-append 
0180: 3a 72 65 73 75 6c 74 73 20 72 65 73 65 74 4c 69  :results resetLi
0190: 6e 65 20 5d 20 3a 61 64 64 4c 69 6e 65 0a 0a 09  ne ] :addLine...
01a0: 2f 2a 20 44 65 62 75 67 67 69 6e 67 20 0a 09 22  /* Debugging .."
01b0: 54 65 6d 70 20 43 65 6c 6c 3a 20 22 20 24 74 65  Temp Cell: " $te
01c0: 6d 70 53 74 72 20 63 6f 6e 63 61 74 20 70 72 69  mpStr concat pri
01d0: 6e 74 0a 09 22 54 65 6d 70 20 56 65 63 74 6f 72  nt.."Temp Vector
01e0: 3a 20 22 20 24 74 65 6d 70 56 65 63 20 3e 73 74  : " $tempVec >st
01f0: 72 69 6e 67 20 63 6f 6e 63 61 74 20 70 72 69 6e  ring concat prin
0200: 74 0a 09 2a 2f 0a 0a 09 5b 20 24 72 65 61 64 65  t..*/...[ $reade
0210: 72 20 2d 24 45 4f 46 20 63 61 6c 6c 20 6e 6f 74  r -$EOF call not
0220: 20 6e 69 70 20 5d 20 3a 6e 6f 74 45 4f 46 0a 09   nip ] :notEOF..
0230: 5b 20 24 72 65 61 64 65 72 20 2d 24 72 65 61 64  [ $reader -$read
0240: 2d 72 75 6e 65 20 63 61 6c 6c 20 6e 69 70 20 5d  -rune call nip ]
0250: 20 3a 72 65 61 64 52 75 6e 65 0a 0a 09 5b 20 6e   :readRune...[ n
0260: 6f 74 45 4f 46 20 5d 20 5b 20 0a 09 09 72 65 61  otEOF ] [ ...rea
0270: 64 52 75 6e 65 0a 09 09 2f 2a 20 42 79 20 64 65  dRune.../* By de
0280: 66 61 75 6c 74 2c 20 61 70 70 65 6e 64 20 61 20  fault, append a 
0290: 63 68 61 72 20 2a 2f 0a 09 09 74 20 3a 64 65 66  char */...t :def
02a0: 61 75 6c 74 0a 09 09 5b 20 66 20 3a 64 65 66 61  ault...[ f :defa
02b0: 75 6c 74 20 5d 20 3a 62 72 65 61 6b 0a 0a 09 09  ult ] :break....
02c0: 64 75 70 20 22 2c 22 20 73 74 72 2d 65 71 20 6f  dup "," str-eq o
02d0: 75 74 4f 66 53 74 72 69 6e 67 20 61 6e 64 20 5b  utOfString and [
02e0: 20 61 64 64 43 65 6c 6c 20 62 72 65 61 6b 20 5d   addCell break ]
02f0: 20 77 68 65 6e 0a 09 09 64 75 70 20 22 5c 6e 22   when...dup "\n"
0300: 20 73 74 72 2d 65 71 20 6f 75 74 4f 66 53 74 72   str-eq outOfStr
0310: 69 6e 67 20 61 6e 64 20 5b 20 61 64 64 43 65 6c  ing and [ addCel
0320: 6c 20 61 64 64 4c 69 6e 65 20 62 72 65 61 6b 20  l addLine break 
0330: 5d 20 77 68 65 6e 0a 09 09 64 75 70 20 22 5c 22  ] when...dup "\"
0340: 22 20 73 74 72 2d 65 71 20 2f 2a 20 54 6f 67 67  " str-eq /* Togg
0350: 6c 65 20 2a 2f 20 5b 20 6f 75 74 4f 66 53 74 72  le */ [ outOfStr
0360: 69 6e 67 20 3a 69 6e 53 74 72 69 6e 67 20 62 72  ing :inString br
0370: 65 61 6b 20 5d 20 77 68 65 6e 0a 09 09 24 64 65  eak ] when...$de
0380: 66 61 75 6c 74 20 5b 20 24 74 65 6d 70 53 74 72  fault [ $tempStr
0390: 20 73 77 61 70 20 63 6f 6e 63 61 74 20 3a 74 65   swap concat :te
03a0: 6d 70 53 74 72 20 5d 20 5b 20 64 72 6f 70 20 5d  mpStr ] [ drop ]
03b0: 20 69 66 0a 09 5d 20 77 68 69 6c 65 20 0a 09 2f   if..] while ../
03c0: 2a 20 41 64 64 20 74 68 65 20 73 74 72 61 67 67  * Add the stragg
03d0: 6c 69 6e 67 20 69 74 65 6d 73 20 2a 2f 0a 09 61  ling items */..a
03e0: 64 64 43 65 6c 6c 20 61 64 64 4c 69 6e 65 20 0a  ddCell addLine .
03f0: 09 24 72 65 73 75 6c 74 73 20 3b 20 0a 0a 3a 20  .$results ; ..: 
0400: 63 73 76 2d 6f 66 2d 66 69 6c 65 20 28 20 66 69  csv-of-file ( fi
0410: 6c 65 70 61 74 68 20 2d 2d 20 76 65 63 20 5b 20  lepath -- vec [ 
0420: 76 65 63 20 5d 20 29 20 6f 70 65 6e 2d 66 69 6c  vec ] ) open-fil
0430: 65 2d 72 65 61 64 65 72 20 70 61 72 73 65 2d 63  e-reader parse-c
0440: 73 76 2d 63 6f 72 65 20 3b 0a 3a 20 63 73 76 2d  sv-core ;.: csv-
0450: 6f 66 2d 73 74 72 69 6e 67 20 28 20 73 74 72 69  of-string ( stri
0460: 6e 67 20 2d 2d 20 76 65 63 20 5b 20 76 65 63 20  ng -- vec [ vec 
0470: 5d 20 29 20 73 74 72 3e 72 75 6e 65 2d 72 65 61  ] ) str>rune-rea
0480: 64 65 72 20 70 61 72 73 65 2d 63 73 76 2d 63 6f  der parse-csv-co
0490: 72 65 20 3b                                      re ;