- STATE @ IF ( compiling? )
- ['] LITSTRING , ( compile LITSTRING )
- HERE ( save the address of the length word on the stack )
- 0 , ( dummy length - we don't know what it is yet )
-
- BEGIN
- >IN @ #TIB @ >= IF \ End of TIB?
- QUERY \ Get next line
- THEN
-
- TIB >IN @ + @ 1 >IN +! \ Get char from TIB
-
- DUP [CHAR] " <>
- WHILE
- C, ( copy character )
- REPEAT
- DROP ( drop the double quote character at the end )
- DUP ( get the saved address of the length word )
- HERE SWAP - ( calculate the length )
- 1- ( subtract 1 (because we measured from the start of the length word) )
- SWAP ! ( and back-fill the length location )
- ELSE ( immediate mode )
- HERE ( get the start address of the temporary space )
-
- BEGIN
- >IN @ #TIB @ >= IF \ End of TIB?
- QUERY \ Get next line
- THEN
-
- TIB >IN @ + @ 1 >IN +! \ Get char from TIB
-
- DUP [CHAR] " <>
- WHILE
- OVER C! ( save next character )
- 1+ ( increment address )
- REPEAT
- DROP ( drop the final " character )
- HERE - ( calculate the length )
- HERE ( push the start address )
- SWAP ( addr len )
- THEN
+ ['] LITSTRING , ( compile LITSTRING )
+ HERE ( save the address of the length word on the stack )
+ 0 , ( dummy length - we don't know what it is yet )
+
+ BEGIN
+ >IN @ #TIB @ >= IF \ End of TIB?
+ QUERY \ Get next line
+ THEN
+
+ TIB >IN @ + @ 1 >IN +! \ Get char from TIB
+
+ DUP [CHAR] " <>
+ WHILE
+ C, ( copy character )
+ REPEAT
+ DROP ( drop the double quote character at the end )
+ DUP ( get the saved address of the length word )
+ HERE SWAP - ( calculate the length )
+ 1- ( subtract 1 (because we measured from the start of the length word) )
+ SWAP ! ( and back-fill the length location )